hedgewars/uChat.pas
branchsdl2transition
changeset 9798 f2b18754742f
parent 9699 fab319c85a39
parent 9680 50a001b1964e
child 11360 7a7611adf715
equal deleted inserted replaced
9711:7d0329f37181 9798:f2b18754742f
   283         begin
   283         begin
   284         ParseCommand(s, true);
   284         ParseCommand(s, true);
   285         exit
   285         exit
   286         end;
   286         end;
   287 
   287 
   288     if (copy(s, 1, 4) <> '/me ') then
   288     if (copy(s, 1, 4) = '/me ') then
   289         begin
   289         begin
   290         if CurrentTeam^.ExtDriven or (CurrentTeam^.Hedgehogs[0].BotLevel <> 0) then
   290         ParseCommand('/say ' + s, true);
   291             exit;
   291         exit
   292 
   292         end;
       
   293 
       
   294     if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
       
   295         begin
   293         for i:= Low(TWave) to High(TWave) do
   296         for i:= Low(TWave) to High(TWave) do
   294             if (s = Wavez[i].cmd) then
   297             if (s = Wavez[i].cmd) then
   295                 begin
   298                 begin
   296                 ParseCommand('/taunt ' + char(i), true);
   299                 ParseCommand('/taunt ' + char(i), true);
   297                 exit
   300                 exit