hedgewars/uGears.pas
branch0.9.15
changeset 4721 5e50d8162a96
parent 4706 fea3b34cf9b0
child 4748 ce9b48de1f52
equal deleted inserted replaced
4700:e8fd20b2d66b 4721:5e50d8162a96
  1852             begin
  1852             begin
  1853             Gear^.Hedgehog:= hh;
  1853             Gear^.Hedgehog:= hh;
  1854             Gear^.Text:= text;
  1854             Gear^.Text:= text;
  1855             Gear^.FrameTicks:= x
  1855             Gear^.FrameTicks:= x
  1856             end
  1856             end
  1857         else ParseCommand('say ' + text, true)
  1857         //else ParseCommand('say ' + text, true)
  1858         end
  1858         end
  1859     else if (x >= 4) then
  1859     else if (x >= 4) then
  1860         begin
  1860         begin
  1861         SpeechType:= x-3;
  1861         SpeechType:= x-3;
  1862         SpeechText:= text
  1862         SpeechText:= text