| changeset 7180 | 53ffc8853008 |
| parent 7151 | ec15d9e1a7e3 |
| child 7194 | d8e68cbca7ee |
| 7176:fb4b0c6dfdbd | 7180:53ffc8853008 |
|---|---|
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 SysUtils, uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom, uCaptions, uVideoRec; |
30 |
30 |
31 var prevGState: TGameState = gsConfirm; |
31 var prevGState: TGameState = gsConfirm; |
32 |
32 |
33 procedure chGenCmd(var s: shortstring); |
33 procedure chGenCmd(var s: shortstring); |
34 begin |
34 begin |
525 |
525 |
526 procedure chCapture(var s: shortstring); |
526 procedure chCapture(var s: shortstring); |
527 begin |
527 begin |
528 s:= s; // avoid compiler hint |
528 s:= s; // avoid compiler hint |
529 flagMakeCapture:= true |
529 flagMakeCapture:= true |
530 end; |
|
531 |
|
532 procedure chRecord(var s: shortstring); |
|
533 begin |
|
534 s:= s; // avoid compiler hint |
|
535 if flagPrerecording then |
|
536 StopPreRecording |
|
537 else |
|
538 BeginPreRecording(FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now())); |
|
530 end; |
539 end; |
531 |
540 |
532 procedure chSetMap(var s: shortstring); |
541 procedure chSetMap(var s: shortstring); |
533 begin |
542 begin |
534 if isDeveloperMode then |
543 if isDeveloperMode then |
862 RegisterVariable('-cur_d' , @chCurD_m , true ); |
871 RegisterVariable('-cur_d' , @chCurD_m , true ); |
863 RegisterVariable('+cur_l' , @chCurL_p , true ); |
872 RegisterVariable('+cur_l' , @chCurL_p , true ); |
864 RegisterVariable('-cur_l' , @chCurL_m , true ); |
873 RegisterVariable('-cur_l' , @chCurL_m , true ); |
865 RegisterVariable('+cur_r' , @chCurR_p , true ); |
874 RegisterVariable('+cur_r' , @chCurR_p , true ); |
866 RegisterVariable('-cur_r' , @chCurR_m , true ); |
875 RegisterVariable('-cur_r' , @chCurR_m , true ); |
876 RegisterVariable('record' , @chRecord , true ); |
|
867 end; |
877 end; |
868 |
878 |
869 procedure freeModule; |
879 procedure freeModule; |
870 begin |
880 begin |
871 end; |
881 end; |