Updates for designer

1 files changed, 4 insertions, 7 deletions

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)