884                 Gear^.Hedgehog:= hh;

   884                 Gear^.Hedgehog:= hh;

   885                 Gear^.Text:= text;

   885                 Gear^.Text:= text;

   886                 Gear^.FrameTicks:= x

   886                 Gear^.FrameTicks:= x

   887                 end;

   887                 end;

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

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

   890             end

   890             end

   891         end

   891         end

   892     else if (x >= 4) then

   892     else if (x >= 4) then

   893         begin

   893         begin

   894         SpeechType:= x-3;

   894         SpeechType:= x-3;