hedgewars/uGears.pas
changeset 4466 8ee58126f7bf
parent 4465 743673c67d0c
child 4467 adedeec8f18f
equal deleted inserted replaced
4465:743673c67d0c 4466:8ee58126f7bf
  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     if not CurrentTeam^.ExtDriven then SendIPC('h' + s);
  1767     SendIPC('h' + s);
  1768 
  1768 
  1769     if (x < 4) and (TeamsArray[t] <> nil) then
  1769     if (x < 4) and (TeamsArray[t] <> nil) then
  1770         begin
  1770         begin
  1771             // if team matches current hedgehog team, default to current hedgehog
  1771             // if team matches current hedgehog team, default to current hedgehog
  1772             if (i = 0) and (CurrentHedgehog^.Team = TeamsArray[t]) then hh:= CurrentHedgehog
  1772             if (i = 0) and (CurrentHedgehog^.Team = TeamsArray[t]) then hh:= CurrentHedgehog