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;