equal
deleted
inserted
replaced
28 TGearArray = record |
28 TGearArray = record |
29 ar: array[0..cMaxGearArrayInd] of PGear; |
29 ar: array[0..cMaxGearArrayInd] of PGear; |
30 Count: Longword |
30 Count: Longword |
31 end; |
31 end; |
32 |
32 |
33 procedure init_uCollisions; |
33 procedure initModule; |
34 procedure free_uCollisions; |
34 procedure freeModule; |
35 |
35 |
36 procedure AddGearCI(Gear: PGear); |
36 procedure AddGearCI(Gear: PGear); |
37 procedure DeleteCI(Gear: PGear); |
37 procedure DeleteCI(Gear: PGear); |
38 |
38 |
39 function CheckGearsCollision(Gear: PGear): PGearArray; |
39 function CheckGearsCollision(Gear: PGear): PGearArray; |
310 TestCollisionYwithXYShift:= TestCollisionYwithGear(Gear, Dir); |
310 TestCollisionYwithXYShift:= TestCollisionYwithGear(Gear, Dir); |
311 Gear^.X:= Gear^.X - int2hwFloat(ShiftX); |
311 Gear^.X:= Gear^.X - int2hwFloat(ShiftX); |
312 Gear^.Y:= Gear^.Y - int2hwFloat(ShiftY) |
312 Gear^.Y:= Gear^.Y - int2hwFloat(ShiftY) |
313 end; |
313 end; |
314 |
314 |
315 procedure init_uCollisions; |
315 procedure initModule; |
316 begin |
316 begin |
317 Count:= 0; |
317 Count:= 0; |
318 end; |
318 end; |
319 |
319 |
320 procedure free_uCollisions; |
320 procedure freeModule; |
321 begin |
321 begin |
322 |
322 |
323 end; |
323 end; |
324 |
324 |
325 end. |
325 end. |