equal
deleted
inserted
replaced
312 end; |
312 end; |
313 |
313 |
314 procedure chNextTurn(var s: shortstring); |
314 procedure chNextTurn(var s: shortstring); |
315 begin |
315 begin |
316 TryDo(AllInactive, '/nextturn called when not all gears are inactive', true); |
316 TryDo(AllInactive, '/nextturn called when not all gears are inactive', true); |
317 if CurrentTeam^.ExtDriven then addfilelog('CurrentTeam^.ExtDriven') else addfilelog('not CurrentTeam^.ExtDriven'); |
317 |
318 if not CurrentTeam^.ExtDriven then SendIPC('N'); |
318 if not CurrentTeam^.ExtDriven then SendIPC('N'); |
319 TickTrigger(trigTurns); |
319 TickTrigger(trigTurns); |
320 {$IFDEF DEBUGFILE}AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));{$ENDIF} |
320 {$IFDEF DEBUGFILE}AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));{$ENDIF} |
321 end; |
321 end; |
322 |
322 |