2806 

  2806 

  2807 if (HHGear^.Message and gm_Attack <> 0) then begin

  2807 if (HHGear^.Message and gm_Attack <> 0) then begin

  2808         HHGear^.Message := HHGear^.Message and not gm_Attack;

  2808         HHGear^.Message := HHGear^.Message and not gm_Attack;

  2809         if Gear^.FlightTime > 0 then begin

  2809         if Gear^.FlightTime > 0 then begin

  2810             AddGear(hwRound(Gear^.X), hwRound(Gear^.Y) + 32, gtEgg, 0, Gear^.dX * _0_5, Gear^.dY, 0);

  2810             AddGear(hwRound(Gear^.X), hwRound(Gear^.Y) + 32, gtEgg, 0, Gear^.dX * _0_5, Gear^.dY, 0);

  2811             dec(Gear^.FlightTime)

  2812             dec(Gear^.FlightTime)

  2812         end;

  2813         end;

  2813 end;

  2814 end;

  2814 

  2815 

  2815 if HHGear^.Message and (gm_Up or gm_Precise or gm_Left or gm_Right) <> 0 then Gear^.State:= Gear^.State and not gsttmpFlag;

  2816 if HHGear^.Message and (gm_Up or gm_Precise or gm_Left or gm_Right) <> 0 then Gear^.State:= Gear^.State and not gsttmpFlag;