hedgewars/GSHandlers.inc
changeset 1698 993c42413387
parent 1697 ea3eddd73f2c
child 1708 62e1d9af1dd9
equal deleted inserted replaced
1697:ea3eddd73f2c 1698:993c42413387
  2001 
  2001 
  2002 Gear^.X:= Gear^.X + Gear^.dX;
  2002 Gear^.X:= Gear^.X + Gear^.dX;
  2003 Gear^.Y:= Gear^.Y + Gear^.dY;
  2003 Gear^.Y:= Gear^.Y + Gear^.dY;
  2004 
  2004 
  2005 if (GameTicks and $FF) = 0 then
  2005 if (GameTicks and $FF) = 0 then
  2006 	if Gear^.Timer < 2500 then
  2006 	if Gear^.Timer < 3500 then
  2007 		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtEvilTrace, 0, _0, _0, 0)
  2007 		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtEvilTrace, 0, _0, _0, 0)
  2008 	else
  2008 	else
  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