equal
deleted
inserted
replaced
47 procedure DeleteCI(Gear: PGear); |
47 procedure DeleteCI(Gear: PGear); |
48 function CheckGearsCollision(Gear: PGear): PGearArray; |
48 function CheckGearsCollision(Gear: PGear): PGearArray; |
49 function TestCollisionXwithGear(Gear: PGear; Dir: integer): boolean; |
49 function TestCollisionXwithGear(Gear: PGear; Dir: integer): boolean; |
50 function TestCollisionYwithGear(Gear: PGear; Dir: integer): boolean; |
50 function TestCollisionYwithGear(Gear: PGear; Dir: integer): boolean; |
51 function TestCollisionY(Gear: PGear; Dir: integer): boolean; |
51 function TestCollisionY(Gear: PGear; Dir: integer): boolean; |
52 function TestCollisionXwithXYShift(Gear: PGear; ShiftX, ShiftY: real; Dir: integer): boolean; |
52 function TestCollisionXwithXYShift(Gear: PGear; ShiftX, ShiftY: Double; Dir: integer): boolean; |
53 function TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: integer; Dir: integer): boolean; |
53 function TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: integer; Dir: integer): boolean; |
54 |
54 |
55 implementation |
55 implementation |
56 uses uMisc, uConsts, uLand, uLandGraphics; |
56 uses uMisc, uConsts, uLand, uLandGraphics; |
57 |
57 |
129 inc(y) |
129 inc(y) |
130 until (y > i) or Result; |
130 until (y > i) or Result; |
131 end |
131 end |
132 end; |
132 end; |
133 |
133 |
134 function TestCollisionXwithXYShift(Gear: PGear; ShiftX, ShiftY: real; Dir: integer): boolean; |
134 function TestCollisionXwithXYShift(Gear: PGear; ShiftX, ShiftY: Double; Dir: integer): boolean; |
135 begin |
135 begin |
136 Gear.X:= Gear.X + ShiftX; |
136 Gear.X:= Gear.X + ShiftX; |
137 Gear.Y:= Gear.Y + ShiftY; |
137 Gear.Y:= Gear.Y + ShiftY; |
138 Result:= TestCollisionXwithGear(Gear, Dir); |
138 Result:= TestCollisionXwithGear(Gear, Dir); |
139 Gear.X:= Gear.X - ShiftX; |
139 Gear.X:= Gear.X - ShiftX; |