hedgewars/uTeams.pas
changeset 1354 a8dcdeb88a43
parent 1352 405ad07cf875
child 1355 8e167aa3b2e4
--- a/hedgewars/uTeams.pas	Tue Oct 14 14:35:52 2008 +0000
+++ b/hedgewars/uTeams.pas	Wed Oct 15 11:50:16 2008 +0000
@@ -370,7 +370,9 @@
 with TeamsArray[i]^ do
 	begin
 	AddChatString('* '+ TeamName + ' is gone');
-	//for i:= 0 to cMaxHHIndex do Hedgehogs[i].Gear:= nil;
+	for i:= 0 to cMaxHHIndex do
+		with Hedgehogs[i] do
+			Gear^.State:= Gear^.State and not gstHHDriven;
 	hasGone:= true
 	end
 end;