hedgewars/uChat.pas
changeset 10308 7350be35b335
parent 10304 7e40820b7ed6
child 10312 eda8d563f677
equal deleted inserted replaced
10307:e13d3147f15b 10308:7350be35b335
   332         begin
   332         begin
   333         cViewLimitsDebug:= (not cViewLimitsDebug);
   333         cViewLimitsDebug:= (not cViewLimitsDebug);
   334         UpdateViewLimits();
   334         UpdateViewLimits();
   335         exit
   335         exit
   336         end;
   336         end;
   337     end;
       
   338 
   337 
   339     if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
   338     if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
   340         begin
   339         begin
   341         for i:= Low(TWave) to High(TWave) do
   340         for i:= Low(TWave) to High(TWave) do
   342             if (s = Wavez[i].cmd) then
   341             if (s = Wavez[i].cmd) then
   350                 begin
   349                 begin
   351                 ParseCommand(ChatCommandz[j].ProcedureCallChatCmd, true);
   350                 ParseCommand(ChatCommandz[j].ProcedureCallChatCmd, true);
   352                 exit
   351                 exit
   353                 end;
   352                 end;
   354         end
   353         end
       
   354     end
   355     else
   355     else
   356         ParseCommand('/say ' + s, true);
   356         ParseCommand('/say ' + s, true);
   357 end;
   357 end;
   358 
   358 
   359 procedure CleanupInput;
   359 procedure CleanupInput;