hedgewars/uChat.pas
changeset 15592 46b7b2c821d0
parent 15591 130b5052335c
child 15665 63e2b7b2ec47
equal deleted inserted replaced
15591:130b5052335c 15592:46b7b2c821d0
   633             AddChatString(#3 + shortstring(trcmd[sidCmdHelpRoom]));
   633             AddChatString(#3 + shortstring(trcmd[sidCmdHelpRoom]));
   634         exit
   634         exit
   635         end;
   635         end;
   636 
   636 
   637     // hedghog animations/taunts and engine commands
   637     // hedghog animations/taunts and engine commands
   638     if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
   638     for i:= Low(TWave) to High(TWave) do
   639         begin
   639         if (s = Wavez[i].cmd) then
   640         for i:= Low(TWave) to High(TWave) do
   640             begin
   641             if (s = Wavez[i].cmd) then
   641             // only works for local non-bot teams
   642                 begin
   642             if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
   643                 ParseCommand('/taunt ' + char(i), true);
   643                 ParseCommand('/taunt ' + char(i), true);
   644                 exit
   644             exit;
   645                 end;
   645             end;
   646         end;
       
   647 
   646 
   648     for j:= Low(TChatCmd) to High(TChatCmd) do
   647     for j:= Low(TChatCmd) to High(TChatCmd) do
   649         if (s = ChatCommandz[j].ChatCmd) then
   648         if (s = ChatCommandz[j].ChatCmd) then
   650             begin
   649             begin
   651             ParseCommand(ChatCommandz[j].ProcedureCallChatCmd, true);
   650             ParseCommand(ChatCommandz[j].ProcedureCallChatCmd, true);