hedgewars/GSHandlers.inc
changeset 1708 62e1d9af1dd9
parent 1698 993c42413387
child 1712 f5b916de40f0
equal deleted inserted replaced
1707:43a571a99f8e 1708:62e1d9af1dd9
  2009 		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0);
  2009 		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0);
  2010 
  2010 
  2011 if ((HHGear^.Message and gm_Attack) <> 0) and (Gear^.Health <> 0) then
  2011 if ((HHGear^.Message and gm_Attack) <> 0) and (Gear^.Health <> 0) then
  2012 	begin
  2012 	begin
  2013 	HHGear^.Message := HHGear^.Message and not gm_Attack;
  2013 	HHGear^.Message := HHGear^.Message and not gm_Attack;
  2014 	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, cBombsSpeed * Gear^.Tag, _0, 0);
  2014 	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, Gear^.dX * _0_5, Gear^.dY * _0_5, 0);
  2015 	dec(Gear^.Health)
  2015 	dec(Gear^.Health)
  2016 	end;
  2016 	end;
  2017 
  2017 
  2018 // pickup bonuses
  2018 // pickup bonuses
  2019 t:= CheckGearNear(Gear, gtCase, 36, 36);
  2019 t:= CheckGearNear(Gear, gtCase, 36, 36);