diff options
Diffstat (limited to 'level.bmx')
| -rw-r--r-- | level.bmx | 11 |
1 files changed, 4 insertions, 7 deletions
@@ -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) |