hedgewars/uGearsHedgehog.pas
changeset 13826 5d46b4fae757
parent 13770 9fdb13633bcb
child 13827 4e5fcfc6f033
equal deleted inserted replaced
13825:096cc009e0b8 13826:5d46b4fae757
   184     color: LongWord;
   184     color: LongWord;
   185 begin
   185 begin
   186 Gear^.Message:= Gear^.Message and (not gmTimer);
   186 Gear^.Message:= Gear^.Message and (not gmTimer);
   187 CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^);
   187 CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^);
   188 with Gear^.Hedgehog^ do
   188 with Gear^.Hedgehog^ do
       
   189     if (((Gear^.State and gstAttacked) <> 0) and (GameFlags and gfInfAttack = 0))
       
   190     or ((Gear^.State and gstHHDriven) = 0) then
       
   191         exit;
   189     if ((Gear^.Message and gmPrecise) <> 0) and ((CurWeapon^.Propz and ammoprop_SetBounce) <> 0) then
   192     if ((Gear^.Message and gmPrecise) <> 0) and ((CurWeapon^.Propz and ammoprop_SetBounce) <> 0) then
   190         begin
   193         begin
   191         color:= Gear^.Hedgehog^.Team^.Clan^.Color;
   194         color:= Gear^.Hedgehog^.Team^.Clan^.Color;
   192 
   195 
   193         case Gear^.MsgParam of
   196         case Gear^.MsgParam of