changeset 15267 | 22f2fd8a3d2c |
parent 14778 | bbec6b28d072 |
child 15283 | c4fd2813b127 |
child 15588 | 96a02e385d54 |
15266:b58f98bbc120 | 15267:22f2fd8a3d2c |
---|---|
33 procedure SendHogSpeech(s: shortstring); |
33 procedure SendHogSpeech(s: shortstring); |
34 procedure CopyToClipboard(var newContent: shortstring); |
34 procedure CopyToClipboard(var newContent: shortstring); |
35 procedure TextInput(var event: TSDL_TextInputEvent); |
35 procedure TextInput(var event: TSDL_TextInputEvent); |
36 |
36 |
37 implementation |
37 implementation |
38 uses uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO, uScript, uRenderUtils, uLocale; |
38 uses uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO, uScript, uRenderUtils, uLocale |
39 {$IFDEF USE_VIDEO_RECORDING}, uVideoRec{$ENDIF}; |
|
39 |
40 |
40 const MaxStrIndex = 27; |
41 const MaxStrIndex = 27; |
41 MaxInputStrLen = 200; |
42 MaxInputStrLen = 200; |
42 |
43 |
43 type TChatLine = record |
44 type TChatLine = record |
546 exit |
547 exit |
547 end; |
548 end; |
548 |
549 |
549 if (copy(s, 2, 3) = 'lua') then |
550 if (copy(s, 2, 3) = 'lua') then |
550 begin |
551 begin |
552 LuaCmdUsed:= true; |
|
551 AddFileLog('/lua issued'); |
553 AddFileLog('/lua issued'); |
554 {$IFDEF USE_VIDEO_RECORDING} |
|
555 if flagPrerecording then |
|
556 begin |
|
557 AddFileLog('Force-stopping prerecording! Lua commands can not be recorded'); |
|
558 StopPreRecording; |
|
559 end; |
|
560 {$ENDIF} |
|
552 if gameType <> gmtNet then |
561 if gameType <> gmtNet then |
553 begin |
562 begin |
554 liveLua:= (not liveLua); |
563 liveLua:= (not liveLua); |
555 if liveLua then |
564 if liveLua then |
556 begin |
565 begin |