| changeset 7198 | 5debd5fe526e |
| parent 7194 | d8e68cbca7ee |
| child 7231 | f484455dd055 |
| 7196:4fba5519c37f | 7198:5debd5fe526e |
|---|---|
24 |
24 |
25 procedure initModule; |
25 procedure initModule; |
26 procedure freeModule; |
26 procedure freeModule; |
27 |
27 |
28 implementation |
28 implementation |
29 uses SysUtils, uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom, uCaptions, uVideoRec; |
29 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom, uCaptions |
30 {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}; |
|
30 |
31 |
31 var prevGState: TGameState = gsConfirm; |
32 var prevGState: TGameState = gsConfirm; |
32 |
33 |
33 procedure chGenCmd(var s: shortstring); |
34 procedure chGenCmd(var s: shortstring); |
34 begin |
35 begin |
530 end; |
531 end; |
531 |
532 |
532 procedure chRecord(var s: shortstring); |
533 procedure chRecord(var s: shortstring); |
533 begin |
534 begin |
534 s:= s; // avoid compiler hint |
535 s:= s; // avoid compiler hint |
536 {$IFDEF USE_VIDEO_RECORDING} |
|
535 if flagPrerecording then |
537 if flagPrerecording then |
536 StopPreRecording |
538 StopPreRecording() |
537 else |
539 else |
538 BeginPreRecording(FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now())); |
540 BeginPreRecording(); |
541 {$ENDIF} |
|
539 end; |
542 end; |
540 |
543 |
541 procedure chSetMap(var s: shortstring); |
544 procedure chSetMap(var s: shortstring); |
542 begin |
545 begin |
543 if isDeveloperMode then |
546 if isDeveloperMode then |