57 function RatePlace(Gear: PGear): integer;

    57 function RatePlace(Gear: PGear): integer;

    58 function TestColl(x, y, r: integer): boolean;

    58 function TestColl(x, y, r: integer): boolean;

    59 function RateExplosion(Me: PGear; x, y, r: integer): integer;

    59 function RateExplosion(Me: PGear; x, y, r: integer): integer;

    60 function RateShove(Me: PGear; x, y, r, power: integer): integer;

    60 function RateShove(Me: PGear; x, y, r, power: integer): integer;

    61 function HHGo(Gear, AltGear: PGear; out GoInfo: TGoInfo): boolean;

    61 function HHGo(Gear, AltGear: PGear; out GoInfo: TGoInfo): boolean;

    62 

    63 

    63 var ThinkingHH: PGear;

    64 var ThinkingHH: PGear;

    64     Targets: TTargets;

    65     Targets: TTargets;

    65 

    66 

    66 implementation

    67 implementation

   399    end

   400    end

   400 until (pX = round(Gear.X)) and (pY = round(Gear.Y)) and ((Gear.State and gstFalling) = 0);

   401 until (pX = round(Gear.X)) and (pY = round(Gear.Y)) and ((Gear.State and gstFalling) = 0);

   401 HHJump(AltGear, jmpHJump, GoInfo)

   402 HHJump(AltGear, jmpHJump, GoInfo)

   402 end;

   403 end;

   403 

   404 

   404 end.

   411 end.