changeset 5829 | 3ec95dc2b249 |
parent 5818 | d071162d550d |
child 5832 | f730c8a9777b |
--- a/hedgewars/uTeams.pas Fri Sep 09 15:52:59 2011 +0200 +++ b/hedgewars/uTeams.pas Fri Sep 09 22:04:40 2011 +0400 @@ -427,11 +427,17 @@ with Team do for i:= 0 to cMaxHHIndex do with Hedgehogs[i] do + begin + if Hedgehogs[i].GearHidden <> nil then + RestoreHog(@Hedgehogs[i]); + if Gear <> nil then begin Gear^.Invulnerable:= false; - Gear^.Damage:= Gear^.Health + Gear^.Damage:= Gear^.Health; + Gear^.State:= Gear^.State or gstHHGone end + end end; procedure chAddHH(var id: shortstring);