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;

    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 

   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;