| changeset 4437 | 05192cdbce9b |
| parent 4413 | 46caab3a8f84 |
| child 4522 | 0f590eefd531 |
| 4436:94c948a92759 | 4437:05192cdbce9b |
|---|---|
5 |
5 |
6 procedure initModule; |
6 procedure initModule; |
7 procedure freeModule; |
7 procedure freeModule; |
8 |
8 |
9 implementation |
9 implementation |
10 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uMobile, uRandom; |
10 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom; |
11 |
11 |
12 procedure chQuit(var s: shortstring); |
12 procedure chQuit(var s: shortstring); |
13 const prevGState: TGameState = gsConfirm; |
13 const prevGState: TGameState = gsConfirm; |
14 begin |
14 begin |
15 s:= s; // avoid compiler hint |
15 s:= s; // avoid compiler hint |
317 |
317 |
318 if not CurrentTeam^.ExtDriven then SendIPC('N'); |
318 if not CurrentTeam^.ExtDriven then SendIPC('N'); |
319 {$IFDEF DEBUGFILE} |
319 {$IFDEF DEBUGFILE} |
320 AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks)); |
320 AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks)); |
321 {$ENDIF} |
321 {$ENDIF} |
322 perfExt_NewTurnBeginning(); |
|
323 end; |
322 end; |
324 |
323 |
325 procedure chTimer(var s: shortstring); |
324 procedure chTimer(var s: shortstring); |
326 begin |
325 begin |
327 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit; |
326 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit; |