equal
deleted
inserted
replaced
83 procedure ParseCommand(CmdStr: shortstring; TrustedSource, ExternalSource: boolean); |
83 procedure ParseCommand(CmdStr: shortstring; TrustedSource, ExternalSource: boolean); |
84 var s: shortstring; |
84 var s: shortstring; |
85 t: PVariable; |
85 t: PVariable; |
86 c: char; |
86 c: char; |
87 begin |
87 begin |
88 isExternalSource:= ExternalSource or CurrentTeam^.ExtDriven; |
88 isExternalSource:= ExternalSource or ((CurrentTeam <> nil) and CurrentTeam^.ExtDriven); |
89 //WriteLnToConsole(CmdStr); |
89 //WriteLnToConsole(CmdStr); |
90 if CmdStr[0]=#0 then |
90 if CmdStr[0]=#0 then |
91 exit; |
91 exit; |
92 c:= CmdStr[1]; |
92 c:= CmdStr[1]; |
93 if (c = '/') or (c = '$') then |
93 if (c = '/') or (c = '$') then |