hedgewars/uChat.pas
changeset 9687 4054960f837a
parent 9680 50a001b1964e
child 9798 f2b18754742f
child 9950 2759212a27de
child 9998 736015b847e3
equal deleted inserted replaced
9685:7d925e82e572 9687:4054960f837a
   276         begin
   276         begin
   277         ParseCommand(s, true);
   277         ParseCommand(s, true);
   278         exit
   278         exit
   279         end;
   279         end;
   280 
   280 
   281     if (copy(s, 1, 4) <> '/me ') then
   281     if (copy(s, 1, 4) = '/me ') then
   282         begin
   282         begin
   283         if CurrentTeam^.ExtDriven or (CurrentTeam^.Hedgehogs[0].BotLevel <> 0) then
   283         ParseCommand('/say ' + s, true);
   284             exit;
   284         exit
   285 
   285         end;
       
   286 
       
   287     if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
       
   288         begin
   286         for i:= Low(TWave) to High(TWave) do
   289         for i:= Low(TWave) to High(TWave) do
   287             if (s = Wavez[i].cmd) then
   290             if (s = Wavez[i].cmd) then
   288                 begin
   291                 begin
   289                 ParseCommand('/taunt ' + char(i), true);
   292                 ParseCommand('/taunt ' + char(i), true);
   290                 exit
   293                 exit