1762     if (x < 4) and (h > byte('0')) and (h < byte('9')) then i:= h - 48;

  1762     if (x < 4) and (h > byte('0')) and (h < byte('9')) then i:= h - 48;

  1763     if i <> 0 then text:= copy(s, 4, Length(s) - 1)

  1763     if i <> 0 then text:= copy(s, 4, Length(s) - 1)

  1764     else if x < 4 then text:= copy(s, 3, Length(s) - 1)

  1764     else if x < 4 then text:= copy(s, 3, Length(s) - 1)

  1765     else text:= copy(s, 2, Length(s) - 1);

  1765     else text:= copy(s, 2, Length(s) - 1);

  1766 

  1766 

  1767     if CheckNoTeamOrHH then

  1768     if CheckNoTeamOrHH then

  1768         begin

  1769         begin

  1769         ParseCommand('say ' + text, true);

  1770         ParseCommand('say ' + text, true);

  1770         exit

  1771         exit

  1771         end;

  1772         end;

  1772 

  1774 

  1773     if (x < 4) and (TeamsArray[t] <> nil) then

  1775     if (x < 4) and (TeamsArray[t] <> nil) then

  1774         begin

  1776         begin

  1775             // if team matches current hedgehog team, default to current hedgehog

  1777             // if team matches current hedgehog team, default to current hedgehog

  1776             if (i = 0) and (CurrentHedgehog^.Team = TeamsArray[t]) then hh:= CurrentHedgehog

  1778             if (i = 0) and (CurrentHedgehog^.Team = TeamsArray[t]) then hh:= CurrentHedgehog

  1797             Gear^.Text:= text;

  1799             Gear^.Text:= text;

  1798             Gear^.FrameTicks:= x

  1800             Gear^.FrameTicks:= x

  1799             end

  1801             end

  1800         else ParseCommand('say ' + text, true)

  1802         else ParseCommand('say ' + text, true)

  1801         end

  1803         end

  1803         begin

  1805         begin

  1804         SpeechType:= x-3;

  1806         SpeechType:= x-3;

  1805         SpeechText:= text

  1807         SpeechText:= text

  1806         end;

  1808         end;

  1807 end;

  1809 end;