455     TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);

   455     TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);

   456 

   456 

   457     if not CurrentTeam^.ExtDriven then SendIPC('N');

   457     if not CurrentTeam^.ExtDriven then SendIPC('N');

   458 {$IFDEF DEBUGFILE}

   458 {$IFDEF DEBUGFILE}

   459     AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));

   459     AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));

   463 {$ENDIF}

   460 {$ENDIF}

   464 end;

   461 end;

   465 

   462 

   466 procedure chSay(var s: shortstring);

   463 procedure chSay(var s: shortstring);

   467 begin

   464 begin