hedgewars/uTeams.pas
changeset 540 b06c5aace2fa
parent 534 92fb2b0d5117
child 547 b81a055f2d06
--- a/hedgewars/uTeams.pas	Thu Jun 07 18:09:54 2007 +0000
+++ b/hedgewars/uTeams.pas	Mon Jun 11 15:52:32 2007 +0000
@@ -131,6 +131,7 @@
 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do
      if Gear <> nil then
         begin
+        AttacksNum:= 0;
         Gear^.Message:= 0;
         Gear^.Z:= cHHZ;
         RemoveGearFromList(Gear);
@@ -150,7 +151,6 @@
 
 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do
      begin
-     AttacksNum:= 0;
      with Gear^ do
           begin
           Z:= cCurrHHZ;