equal
deleted
inserted
replaced
39 procedure CalcRotationDirAngle(Gear: PGear); |
39 procedure CalcRotationDirAngle(Gear: PGear); |
40 procedure ResurrectHedgehog(var gear: PGear); |
40 procedure ResurrectHedgehog(var gear: PGear); |
41 |
41 |
42 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); inline; |
42 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); inline; |
43 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt; skipProximity: boolean); |
43 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt; skipProximity: boolean); |
|
44 function CountLand(x, y, r, c: LongInt; mask, antimask: LongWord): LongInt; |
44 |
45 |
45 function CheckGearNear(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt): PGear; |
46 function CheckGearNear(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt): PGear; |
46 function CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: LongInt): PGear; |
47 function CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: LongInt): PGear; |
47 function CheckGearDrowning(var Gear: PGear): boolean; |
48 function CheckGearDrowning(var Gear: PGear): boolean; |
48 procedure CheckCollision(Gear: PGear); inline; |
49 procedure CheckCollision(Gear: PGear); inline; |