hedgewars/uVisualGearsHandlers.pas
changeset 9761 b497a6c679cb
parent 9720 453a1c29b7e4
child 9762 938d1c08d0d1
equal deleted inserted replaced
9760:395ca7fe6362 9761:b497a6c679cb
   612 
   612 
   613 Gear^.Timer:= max(LongInt(Length(Gear^.Text)) * 150, 3000);
   613 Gear^.Timer:= max(LongInt(Length(Gear^.Text)) * 150, 3000);
   614 
   614 
   615 Gear^.Tex:= RenderSpeechBubbleTex(Gear^.Text, Gear^.FrameTicks, fnt16);
   615 Gear^.Tex:= RenderSpeechBubbleTex(Gear^.Text, Gear^.FrameTicks, fnt16);
   616 
   616 
       
   617 // FrameTicks cannot hold negative values
   617 case Gear^.FrameTicks of
   618 case Gear^.FrameTicks of
   618     1: Gear^.FrameTicks:= SpritesData[sprSpeechTail].Width-28;
   619     1: Gear^.FrameTicks:= max(0,SpritesData[sprSpeechTail].Width-28);
   619     2: Gear^.FrameTicks:= SpritesData[sprThoughtTail].Width-20;
   620     2: Gear^.FrameTicks:= max(0,SpritesData[sprThoughtTail].Width-20);
   620     3: Gear^.FrameTicks:= SpritesData[sprShoutTail].Width-10;
   621     3: Gear^.FrameTicks:= max(0,SpritesData[sprShoutTail].Width-10);
   621     end;
   622     end;
   622 
   623 
   623 Gear^.doStep:= @doStepSpeechBubbleWork;
   624 Gear^.doStep:= @doStepSpeechBubbleWork;
   624 
   625 
   625 Gear^.Y:= Gear^.Y - Gear^.Tex^.h
   626 Gear^.Y:= Gear^.Y - Gear^.Tex^.h