979                 Gear^.Hedgehog:= hh;

   979                 Gear^.Hedgehog:= hh;

   980                 Gear^.Text:= text;

   980                 Gear^.Text:= text;

   981                 Gear^.FrameTicks:= x

   981                 Gear^.FrameTicks:= x

   982                 end;

   982                 end;

   983             //ParseCommand('/say [' + hh^.Name + '] '+text, true)

   983             //ParseCommand('/say [' + hh^.Name + '] '+text, true)

   985             end

   985             end

   986         end

   986         end

   987     else if (x >= 4) then

   987     else if (x >= 4) then

   988         begin

   988         begin

   989         SpeechType:= x-3;

   989         SpeechType:= x-3;