hedgewars/GSHandlers.inc
changeset 2301 7a4ad0772c88
parent 2283 2bcb75cead52
child 2329 1cfb7d184ee1
equal deleted inserted replaced
2300:d633bc70c893 2301:7a4ad0772c88
  2283 
  2283 
  2284 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
  2284 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
  2285 FollowGear:= HHGear;
  2285 FollowGear:= HHGear;
  2286 OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
  2286 OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
  2287 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
  2287 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
  2288 Gear^.State:= Gear^.State or gsttmpFlag;
       
  2289 with HHGear^ do
  2288 with HHGear^ do
  2290 	begin
  2289 	begin
  2291 	State:= State and not gstAttacking;
  2290 	State:= State and not gstAttacking;
  2292 	Message:= Message and not (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right);
  2291 	Message:= Message and not (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right);
  2293     dY:= dY - _0_2
  2292     if (dY < _0_1) and (dY > -_0_1) then
       
  2293         begin
       
  2294         Gear^.State:= Gear^.State or gsttmpFlag;
       
  2295         dY:= dY - _0_2
       
  2296         end
  2294 	end
  2297 	end
  2295 end;
  2298 end;