hedgewars/uGears.pas
changeset 4467 adedeec8f18f
parent 4466 8ee58126f7bf
child 4468 0758b19bc99b
equal deleted inserted replaced
4466:8ee58126f7bf 4467:adedeec8f18f
  1762         begin
  1762         begin
  1763         ParseCommand('say ' + text, true);
  1763         ParseCommand('say ' + text, true);
  1764         exit
  1764         exit
  1765         end;
  1765         end;
  1766 
  1766 
  1767     SendIPC('h' + s);
       
  1768 
       
  1769     if (x < 4) and (TeamsArray[t] <> nil) then
  1767     if (x < 4) and (TeamsArray[t] <> nil) then
  1770         begin
  1768         begin
  1771             // if team matches current hedgehog team, default to current hedgehog
  1769             // if team matches current hedgehog team, default to current hedgehog
  1772             if (i = 0) and (CurrentHedgehog^.Team = TeamsArray[t]) then hh:= CurrentHedgehog
  1770             if (i = 0) and (CurrentHedgehog^.Team = TeamsArray[t]) then hh:= CurrentHedgehog
  1773             else 
  1771             else