hedgewars/CCHandlers.inc
changeset 2045 b0588498bc3a
parent 2042 905c554d62e6
child 2046 57fb5673ff17
--- 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);