hedgewars/VGSHandlers.inc
changeset 5186 a05c14510c8a
parent 5179 8d64dcb566ea
child 5235 e30b06ffea3a
equal deleted inserted replaced
5185:7607a64e1853 5186:a05c14510c8a
   484 with Gear^.Hedgehog^ do
   484 with Gear^.Hedgehog^ do
   485     if SpeechGear <> nil then SpeechGear^.Timer:= 0;
   485     if SpeechGear <> nil then SpeechGear^.Timer:= 0;
   486 
   486 
   487 Gear^.Hedgehog^.SpeechGear:= Gear;
   487 Gear^.Hedgehog^.SpeechGear:= Gear;
   488 
   488 
   489 Gear^.Timer:= max(Length(Gear^.Text) * 150, 3000);
   489 Gear^.Timer:= max(LongInt(Length(Gear^.Text)) * 150, 3000);
   490 
   490 
   491 Gear^.Tex:= RenderSpeechBubbleTex(Gear^.Text, Gear^.FrameTicks, fnt16);
   491 Gear^.Tex:= RenderSpeechBubbleTex(Gear^.Text, Gear^.FrameTicks, fnt16);
   492 
   492 
   493 case Gear^.FrameTicks of
   493 case Gear^.FrameTicks of
   494     1: Gear^.FrameTicks:= SpritesData[sprSpeechTail].Width-28;
   494     1: Gear^.FrameTicks:= SpritesData[sprSpeechTail].Width-28;