equal
deleted
inserted
replaced
311 Message:= Message or gm_Switch |
311 Message:= Message or gm_Switch |
312 end; |
312 end; |
313 |
313 |
314 procedure chNextTurn(var s: shortstring); |
314 procedure chNextTurn(var s: shortstring); |
315 begin |
315 begin |
316 if AllInactive then |
316 TryDo(AllInactive, '/nextturn called when not all gears are inactive', true); |
317 begin |
317 if CurrentTeam^.ExtDriven then addfilelog('CurrentTeam^.ExtDriven') else addfilelog('not CurrentTeam^.ExtDriven'); |
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 |
|
322 end; |
321 end; |
323 |
322 |
324 procedure chSay(var s: shortstring); |
323 procedure chSay(var s: shortstring); |
325 begin |
324 begin |
326 SendIPC('s' + s); |
325 SendIPC('s' + s); |