hedgewars/uTeams.pas
changeset 5812 91d9de564ef5
parent 5638 e35ba2a400d8
child 5818 d071162d550d
--- a/hedgewars/uTeams.pas	Thu Sep 08 17:44:51 2011 +0200
+++ b/hedgewars/uTeams.pas	Thu Sep 08 13:01:20 2011 -0400
@@ -518,7 +518,7 @@
 end;
 
 procedure chTeamGone(var s:shortstring);
-var t: LongInt;
+var t, i: LongInt;
 begin
 t:= 0;
 while (t < cMaxTeams)
@@ -529,6 +529,9 @@
 with TeamsArray[t]^ do
     begin
     AddChatString('** '+ TeamName + ' is gone');
+    for i:= 0 to cMaxHHIndex do
+        if Hedgehogs[i].GearHidden <> nil then
+            RestoreHog(@Hedgehogs[i]);
     hasGone:= true
     end;