equal
deleted
inserted
replaced
50 function TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: LongInt; Dir: LongInt): boolean; |
50 function TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: LongInt; Dir: LongInt): boolean; |
51 |
51 |
52 function calcSlopeNormal(Gear: PGear; collisionX, collisionY: LongInt; var deltaX, deltaY: LongInt; TestWord: LongWord): Boolean; |
52 function calcSlopeNormal(Gear: PGear; collisionX, collisionY: LongInt; var deltaX, deltaY: LongInt; TestWord: LongWord): Boolean; |
53 |
53 |
54 implementation |
54 implementation |
55 uses uMisc, uConsts, uLand, uLandGraphics, uConsole; |
55 uses uMisc, uConsts, uLand, uLandGraphics; |
56 |
56 |
57 type TCollisionEntry = record |
57 type TCollisionEntry = record |
58 X, Y, Radius: LongInt; |
58 X, Y, Radius: LongInt; |
59 cGear: PGear; |
59 cGear: PGear; |
60 end; |
60 end; |