# HG changeset patch
# User unc0rr
# Date 1232148445 0
# Node ID a73c8cda1ed1df55a46c72b07ad6e6419cf8941f
# Parent  f42dbc52225cd451131939953aa1abd252b036b0
Fix engine freeze when one of the teams is killed before its first turn, number of hedgehogs in that team < 8, and game still goes on

diff -r f42dbc52225c -r a73c8cda1ed1 hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Fri Jan 16 18:40:52 2009 +0000
+++ b/hedgewars/uTeams.pas	Fri Jan 16 23:27:25 2009 +0000
@@ -185,7 +185,7 @@
 			CurrentTeam:= Teams[CurrTeam];
 			with CurrentTeam^ do
 				begin
-				PrevHH:= CurrHedgehog;
+				PrevHH:= CurrHedgehog mod HedgehogsNumber; // prevent infinite loop when CurrHedgehog = 7, but HedgehogsNumber < 8 (team is destroyed before its first turn
 				repeat
 					CurrHedgehog:= Succ(CurrHedgehog) mod HedgehogsNumber;
 				until (Hedgehogs[CurrHedgehog].Gear <> nil) or (CurrHedgehog = PrevHH)