2199 (*if (HHGear^.Message and gm_Precise) <> 0 then

  2199 (*if (HHGear^.Message and gm_Precise) <> 0 then

  2200     begin

  2200     begin

  2201     move:= _0_02;

  2201     move:= _0_02;

  2202     fuel:= 5;

  2202     fuel:= 5;

  2203     end;*)

  2203     end;*)

  2205 

  2204 

  2206 if (HHGear^.Message and gm_Up) <> 0 then

  2205 if (HHGear^.Message and gm_Up) <> 0 then

  2207     begin

  2206     begin

  2208     HHGear^.dY:= HHGear^.dY - move;

  2207     HHGear^.dY:= HHGear^.dY - move;

  2209     dec(Gear^.Health, fuel);

  2208     dec(Gear^.Health, fuel);

  2210     Gear^.MsgParam:= Gear^.MsgParam or gm_Up;

  2209     Gear^.MsgParam:= Gear^.MsgParam or gm_Up;

  2211     Gear^.Timer:= GameTicks

  2210     Gear^.Timer:= GameTicks

  2212     end;

  2211     end;

  2213 if (HHGear^.Message and (gm_Left or gm_Right)) <> 0 then

  2213 if (HHGear^.Message and (gm_Left or gm_Right)) <> 0 then

  2214     begin

  2214     begin

  2215     HHGear^.dX:= HHGear^.dX + (move * _0_2);

  2215     HHGear^.dX:= HHGear^.dX + (move * _0_2);

  2216     dec(Gear^.Health, fuel div 5);

  2216     dec(Gear^.Health, fuel div 5);

  2217     Gear^.MsgParam:= Gear^.MsgParam or (HHGear^.Message and (gm_Left or gm_Right));

  2217     Gear^.MsgParam:= Gear^.MsgParam or (HHGear^.Message and (gm_Left or gm_Right));