# HG changeset patch
# User unc0rr
# Date 1224071646 0
# Node ID 8e167aa3b2e4a7187138df7a4819c74c00b82e3c
# Parent  a8dcdeb88a43fcba3c8a221b743369fecdd2c974
Further improve disconnects handling

diff -r a8dcdeb88a43 -r 8e167aa3b2e4 hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Wed Oct 15 11:50:16 2008 +0000
+++ b/hedgewars/uTeams.pas	Wed Oct 15 11:54:06 2008 +0000
@@ -372,9 +372,18 @@
 	AddChatString('* '+ TeamName + ' is gone');
 	for i:= 0 to cMaxHHIndex do
 		with Hedgehogs[i] do
-			Gear^.State:= Gear^.State and not gstHHDriven;
+			if Gear <> nil then
+				begin
+				if Gear^.State and gstAttacking <> 0 then
+					AttackBar:= 0;
+					
+				Gear^.State:= Gear^.State and not gstHHDriven
+				end;
+
 	hasGone:= true
-	end
+	end;
+	
+RecountTeamHealth(TeamsArray[i])
 end;
 
 initialization