--- a/hedgewars/CCHandlers.inc Mon May 11 19:42:29 2009 +0000
+++ b/hedgewars/CCHandlers.inc Mon May 11 21:19:47 2009 +0000
@@ -313,12 +313,11 @@
procedure chNextTurn(var s: shortstring);
begin
-if AllInactive then
- begin
- if not CurrentTeam^.ExtDriven then SendIPC('N');
- TickTrigger(trigTurns);
- {$IFDEF DEBUGFILE}AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));{$ENDIF}
- end
+TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);
+if CurrentTeam^.ExtDriven then addfilelog('CurrentTeam^.ExtDriven') else addfilelog('not CurrentTeam^.ExtDriven');
+if not CurrentTeam^.ExtDriven then SendIPC('N');
+TickTrigger(trigTurns);
+{$IFDEF DEBUGFILE}AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));{$ENDIF}
end;
procedure chSay(var s: shortstring);