hedgewars/uCommands.pas
changeset 8498 eecadca7db50
parent 7850 fcbb024090a4
child 9080 9b42757d7e71
equal deleted inserted replaced
8497:c5605c6f5bb3 8498:eecadca7db50
    86 begin
    86 begin
    87 isExternalSource:= ExternalSource or ((CurrentTeam <> nil) and CurrentTeam^.ExtDriven);
    87 isExternalSource:= ExternalSource or ((CurrentTeam <> nil) and CurrentTeam^.ExtDriven);
    88 //WriteLnToConsole(CmdStr);
    88 //WriteLnToConsole(CmdStr);
    89 if CmdStr[0]=#0 then
    89 if CmdStr[0]=#0 then
    90     exit;
    90     exit;
       
    91 
       
    92 AddFileLog('[Cmd] ' + sanitizeForLog(CmdStr));
       
    93 
    91 c:= CmdStr[1];
    94 c:= CmdStr[1];
    92 if (c = '/') or (c = '$') then
    95 if (c = '/') or (c = '$') then
    93     Delete(CmdStr, 1, 1);
    96     Delete(CmdStr, 1, 1);
    94 s:= '';
    97 s:= '';
    95 SplitBySpace(CmdStr, s);
    98 SplitBySpace(CmdStr, s);
    96 AddFileLog('[Cmd] ' + CmdStr + ' (' + inttostr(length(s)) + ')');
       
    97 
    99 
    98 t:= Variables;
   100 t:= Variables;
    99 while t <> nil do
   101 while t <> nil do
   100     begin
   102     begin
   101     if t^.Name = CmdStr then
   103     if t^.Name = CmdStr then