hedgewars/uVideoRec.pas
changeset 15463 a7d54832fad6
parent 15336 f53bfe04065e
child 15464 25a5a0f86928
equal deleted inserted replaced
15462:e2a23c63efdb 15463:a7d54832fad6
    46 
    46 
    47 procedure initModule;
    47 procedure initModule;
    48 procedure freeModule;
    48 procedure freeModule;
    49 
    49 
    50 implementation
    50 implementation
    51 uses uVariables, GLunit, SDLh, SysUtils, uUtils, uSound, uIO, uMisc, uTypes, uDebug;
    51 uses uVariables, GLunit, SDLh, SysUtils, uUtils, uSound, uChat, uIO, uMisc, uTypes, uDebug;
    52 
    52 
    53 type TAddFileLogRaw = procedure (s: pchar); cdecl;
    53 type TAddFileLogRaw = procedure (s: pchar); cdecl;
    54 const AvwrapperLibName = {$IFDEF WIN32_VCPKG}'avwrapper'{$ELSE}'libavwrapper'{$ENDIF};
    54 const AvwrapperLibName = {$IFDEF WIN32_VCPKG}'avwrapper'{$ELSE}'libavwrapper'{$ENDIF};
    55 
    55 
    56 function AVWrapper_Init(
    56 function AVWrapper_Init(
   289     // Videos don't work if /lua command was used, so we forbid them
   289     // Videos don't work if /lua command was used, so we forbid them
   290     if luaCmdUsed then
   290     if luaCmdUsed then
   291         begin
   291         begin
   292         // TODO: Show message to player
   292         // TODO: Show message to player
   293         PlaySound(sndDenied);
   293         PlaySound(sndDenied);
       
   294         AddChatString(#0 + shortstring(trmsg[sidVideoRecLuaFail]));
   294         AddFileLog('Pre-recording prevented; /lua command was used before');
   295         AddFileLog('Pre-recording prevented; /lua command was used before');
   295         exit;
   296         exit;
   296         end;
   297         end;
   297 
   298 
   298     thumbnailSaved:= false;
   299     thumbnailSaved:= false;