From f52fff7f3f56fbf79fd05017c0ae0f0836d3d6e2 Mon Sep 17 00:00:00 2001 From: Ian C Date: Sun, 25 Sep 2005 01:47:37 +0000 Subject: Updates for designer --- level.bmx | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'level.bmx') diff --git a/level.bmx b/level.bmx index ba0ea40..95aba16 100644 --- a/level.bmx +++ b/level.bmx @@ -15,9 +15,6 @@ Const MAGIC:String="PPINCH0.0" Const MAX_GRAV:Int=10 Const MAX_POINT:Int=1000 -Const GRAV_ATTRACT:Int=0 -Const GRAV_REPEL:Int=0 - Type TLevelException Field message:String @@ -29,7 +26,7 @@ Type TLevelException End Type Type TGravPoint - Field mode:Int + Field repel:Int Field friendly:Int Field x:Float Field y:Float @@ -49,12 +46,12 @@ Type TGravPoint m.x=x m.y=y - m.inverse=(mode=GRAV_REPEL) + m.inverse=repel End Method Function FromStream:TGravPoint(s:TStream) Local o:TGravPoint=New TGravPoint - o.mode=s.ReadInt() + o.repel=s.ReadInt() o.friendly=s.ReadInt() o.x=s.ReadFloat() o.y=s.ReadFloat() @@ -63,7 +60,7 @@ Type TGravPoint End Function Method ToStream(s:TStream) - s.WriteInt(mode) + s.WriteInt(repel) s.WriteInt(friendly) s.WriteFloat(x) s.WriteFloat(y) -- cgit v1.2.3