122 {$ENDIF}

   122 {$ENDIF}

   123 end;

   123 end;

   124 

   124 

   125 procedure startVideoRecording(var paramIndex: LongInt);

   125 procedure startVideoRecording(var paramIndex: LongInt);

   126 begin

   126 begin

   127 {$IFDEF USE_VIDEO_RECORDING}

   129 {$IFDEF USE_VIDEO_RECORDING}

   128     GameType:= gmtRecord;

   130     GameType:= gmtRecord;

   129     inc(paramIndex);

   131     inc(paramIndex);

   130     cVideoFramerateNum:= StrToInt(ParamStr(paramIndex)); inc(paramIndex);

   132     cVideoFramerateNum:= StrToInt(ParamStr(paramIndex)); inc(paramIndex);

   131     cVideoFramerateDen:= StrToInt(ParamStr(paramIndex)); inc(paramIndex);

   133     cVideoFramerateDen:= StrToInt(ParamStr(paramIndex)); inc(paramIndex);

   243 

   245 

   244     index:= 0;

   246     index:= 0;

   245     tmpInt:= 1;

   247     tmpInt:= 1;

   246     while (index < size) do

   248     while (index < size) do

   247         begin

   249         begin

   248         inc(paramIndex);

   251         inc(paramIndex);

   249         cmd:= cmdArray[index];

   252         cmd:= cmdArray[index];

   250         arg:= ParamStr(paramIndex);

   253         arg:= ParamStr(paramIndex);

   251         isValid:= (cmd<>'--depth');

   254         isValid:= (cmd<>'--depth');

   252 

   255