hedgewars/uGearsHandlersMess.pas
changeset 9824 136e0708eda2
parent 9820 1c04ccb9e5fd
child 9853 8786d4ac9e0b
equal deleted inserted replaced
9823:31c5f7e65259 9824:136e0708eda2
  2291         AmmoShove(Gear, 30, 40);
  2291         AmmoShove(Gear, 30, 40);
  2292         HHGear^.State := HHGear^.State and (not gstNoDamage)
  2292         HHGear^.State := HHGear^.State and (not gstNoDamage)
  2293         end;
  2293         end;
  2294 
  2294 
  2295     HHGear^.dY := HHGear^.dY + cGravity;
  2295     HHGear^.dY := HHGear^.dY + cGravity;
  2296     if not (HHGear^.dY.isNegative) then
  2296     if Gear^.Timer > 0 then dec(Gear^.Timer);
       
  2297     if not (HHGear^.dY.isNegative) or (Gear^.Timer = 0) then
  2297         begin
  2298         begin
  2298         HHGear^.State := HHGear^.State or gstMoving;
  2299         HHGear^.State := HHGear^.State or gstMoving;
  2299         DeleteGear(Gear);
  2300         DeleteGear(Gear);
  2300         AfterAttack;
  2301         AfterAttack;
  2301         exit
  2302         exit