hedgewars/uTeams.pas
changeset 971 d2c49b730771
parent 944 9299c0ebfdbc
child 1011 4fe2c4c57d10
equal deleted inserted replaced
970:1bd9a4eafbc3 971:d2c49b730771
   144      if Gear <> nil then
   144      if Gear <> nil then
   145         begin
   145         begin
   146         AttacksNum:= 0;
   146         AttacksNum:= 0;
   147         Gear^.Message:= 0;
   147         Gear^.Message:= 0;
   148         Gear^.Z:= cHHZ;
   148         Gear^.Z:= cHHZ;
   149         SwitchNotHoldedAmmo(CurrentHedgehog^);
       
   150         RemoveGearFromList(Gear);
   149         RemoveGearFromList(Gear);
   151         InsertGearToList(Gear)
   150         InsertGearToList(Gear)
   152         end;
   151         end;
   153 
   152 
   154 c:= CurrentTeam^.Clan^.ClanIndex;
   153 c:= CurrentTeam^.Clan^.ClanIndex;