hedgewars/uIO.pas
changeset 7628 bc7b1d228a2c
parent 7201 dc17ffdf0702
parent 7442 9bb6abdb5675
child 8003 7d8bce524daf
equal deleted inserted replaced
7533:7ee319134713 7628:bc7b1d228a2c
   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;
   130      'V': begin
   131      'V': begin
   131               if s[2] = '.' then
   132               if s[2] = '.' then
   132                   ParseCommand('campvar ' + copy(s, 3, length(s) - 2), true);
   133                   ParseCommand('campvar ' + copy(s, 3, length(s) - 2), true);
   133           end
   134           end
   404             begin
   405             begin
   405             TargetPoint.X:= putX;
   406             TargetPoint.X:= putX;
   406             TargetPoint.Y:= putY
   407             TargetPoint.Y:= putY
   407             end;
   408             end;
   408         AddFileLog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));
   409         AddFileLog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));
   409         State:= State and not gstHHChooseTarget;
   410         State:= State and (not gstHHChooseTarget);
   410         if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackingPut) <> 0 then
   411         if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackingPut) <> 0 then
   411             Message:= Message or (gmAttack and InputMask);
   412             Message:= Message or (gmAttack and InputMask);
   412         end
   413         end
   413     else
   414     else
   414         if CurrentTeam^.ExtDriven then
   415         if CurrentTeam^.ExtDriven then