1714 

  1715 procedure chSkip(var s: shortstring);

  1716 begin

  1717 s:= s; // avoid compiler hint

  1718 if not CurrentTeam^.ExtDriven then SendIPC(',');

  1719 uStats.Skipped;

  1720 skipFlag:= true

  1721 end;

  1722 

  1723 procedure chHogSay(var s: shortstring);

  1724 var Gear: PVisualGear;

  1725     text: shortstring;

  1726 begin

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

  1728     if CheckNoTeamOrHH

  1729     or ((CurrentHedgehog^.Gear^.State and gstHHDriven) = 0) then

  1730         begin

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

  1732         exit

  1733         end;

  1734 

  1735     if not CurrentTeam^.ExtDriven then SendIPC('h' + s);

  1736 

  1737     if byte(s[1]) < 4 then

  1738         begin

  1739         Gear:= AddVisualGear(0, 0, vgtSpeechBubble);

  1740         if Gear <> nil then

  1741             begin

  1742             Gear^.Hedgehog:= CurrentHedgehog;

  1743             Gear^.Text:= text;

  1744             Gear^.FrameTicks:= byte(s[1])

  1745             end

  1746         end

  1747     else

  1748         begin

  1749         SpeechType:= byte(s[1])-3;

  1750         SpeechText:= text

  1751         end;

  1752 end;

  1753 

  1756     RegisterVariable('skip', vtCommand, @chSkip, false);

  1757     RegisterVariable('hogsay', vtCommand, @chHogSay, true );

  1758