| changeset 7615 | b39beffcf05e |
| parent 7503 | deaeac102355 |
| child 7628 | bc7b1d228a2c |
| 7614:3ae60c8a15f2 | 7615:b39beffcf05e |
|---|---|
24 |
24 |
25 procedure initModule; |
25 procedure initModule; |
26 procedure freeModule; |
26 procedure freeModule; |
27 |
27 |
28 implementation |
28 implementation |
29 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom, uCaptions; |
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 |
526 |
527 |
527 procedure chCapture(var s: shortstring); |
528 procedure chCapture(var s: shortstring); |
528 begin |
529 begin |
529 s:= s; // avoid compiler hint |
530 s:= s; // avoid compiler hint |
530 flagMakeCapture:= true |
531 flagMakeCapture:= true |
532 end; |
|
533 |
|
534 procedure chRecord(var s: shortstring); |
|
535 begin |
|
536 s:= s; // avoid compiler hint |
|
537 {$IFDEF USE_VIDEO_RECORDING} |
|
538 if flagPrerecording then |
|
539 StopPreRecording() |
|
540 else |
|
541 BeginPreRecording(); |
|
542 {$ENDIF} |
|
531 end; |
543 end; |
532 |
544 |
533 procedure chSetMap(var s: shortstring); |
545 procedure chSetMap(var s: shortstring); |
534 begin |
546 begin |
535 if isDeveloperMode then |
547 if isDeveloperMode then |
866 RegisterVariable('-cur_d' , @chCurD_m , true ); |
878 RegisterVariable('-cur_d' , @chCurD_m , true ); |
867 RegisterVariable('+cur_l' , @chCurL_p , true ); |
879 RegisterVariable('+cur_l' , @chCurL_p , true ); |
868 RegisterVariable('-cur_l' , @chCurL_m , true ); |
880 RegisterVariable('-cur_l' , @chCurL_m , true ); |
869 RegisterVariable('+cur_r' , @chCurR_p , true ); |
881 RegisterVariable('+cur_r' , @chCurR_p , true ); |
870 RegisterVariable('-cur_r' , @chCurR_m , true ); |
882 RegisterVariable('-cur_r' , @chCurR_m , true ); |
883 RegisterVariable('record' , @chRecord , true ); |
|
871 end; |
884 end; |
872 |
885 |
873 procedure freeModule; |
886 procedure freeModule; |
874 begin |
887 begin |
875 end; |
888 end; |