hedgewars/uIO.pas
changeset 7687 c73fd8cfa7c0
parent 7628 bc7b1d228a2c
child 8003 7d8bce524daf
equal deleted inserted replaced
7613:ce6ead3327b2 7687:c73fd8cfa7c0
   124      'T': case s[2] of
   124      'T': case s[2] of
   125                'L': GameType:= gmtLocal;
   125                'L': GameType:= gmtLocal;
   126                'D': GameType:= gmtDemo;
   126                'D': GameType:= gmtDemo;
   127                'N': GameType:= gmtNet;
   127                'N': GameType:= gmtNet;
   128                'S': GameType:= gmtSave;
   128                'S': GameType:= gmtSave;
       
   129                'V': GameType:= gmtRecord;
   129                else OutError(errmsgIncorrectUse + ' IPC "T" :' + s[2], true) end;
   130                else OutError(errmsgIncorrectUse + ' IPC "T" :' + s[2], true) end;
       
   131      'V': begin
       
   132               if s[2] = '.' then
       
   133                   ParseCommand('campvar ' + copy(s, 3, length(s) - 2), true);
       
   134           end
   130      else
   135      else
   131      loTicks:= SDLNet_Read16(@s[byte(s[0]) - 1]);
   136      loTicks:= SDLNet_Read16(@s[byte(s[0]) - 1]);
   132      AddCmd(loTicks, s);
   137      AddCmd(loTicks, s);
   133      AddFileLog('[IPC in] '+s[1]+' ticks '+IntToStr(lastcmd^.loTime));
   138      AddFileLog('[IPC in] '+s[1]+' ticks '+IntToStr(lastcmd^.loTime));
   134      end
   139      end