hedgewars/uGears.pas
changeset 4706 fea3b34cf9b0
parent 4705 593ef1ad3cd3
child 4748 ce9b48de1f52
equal deleted inserted replaced
4705:593ef1ad3cd3 4706:fea3b34cf9b0
  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