equal
deleted
inserted
replaced
617 |
617 |
618 Gear^.Hedgehog^.SpeechGear:= Gear; |
618 Gear^.Hedgehog^.SpeechGear:= Gear; |
619 |
619 |
620 Gear^.Timer:= max(LongInt(Length(Gear^.Text)) * 150, 3000); |
620 Gear^.Timer:= max(LongInt(Length(Gear^.Text)) * 150, 3000); |
621 |
621 |
622 Gear^.Tex:= RenderSpeechBubbleTex(Gear^.Text, Gear^.FrameTicks, fnt16); |
622 Gear^.Tex:= RenderSpeechBubbleTex(ansistring(Gear^.Text), Gear^.FrameTicks, fnt16); |
623 |
623 |
624 // FrameTicks cannot hold negative values |
624 // FrameTicks cannot hold negative values |
625 case Gear^.FrameTicks of |
625 case Gear^.FrameTicks of |
626 1: Gear^.Tag:= SpritesData[sprSpeechTail].Width-28; |
626 1: Gear^.Tag:= SpritesData[sprSpeechTail].Width-28; |
627 2: Gear^.Tag:= SpritesData[sprThoughtTail].Width-20; |
627 2: Gear^.Tag:= SpritesData[sprThoughtTail].Width-20; |
660 begin |
660 begin |
661 s:= ''; |
661 s:= ''; |
662 |
662 |
663 str(Gear^.State, s); |
663 str(Gear^.State, s); |
664 if Gear^.Hedgehog <> nil then |
664 if Gear^.Hedgehog <> nil then |
665 Gear^.Tex:= RenderStringTex(s, Gear^.Hedgehog^.Team^.Clan^.Color, fnt16) |
665 Gear^.Tex:= RenderStringTex(ansistring(s), Gear^.Hedgehog^.Team^.Clan^.Color, fnt16) |
666 else |
666 else |
667 Gear^.Tex:= RenderStringTex(s, cWhiteColor, fnt16); |
667 Gear^.Tex:= RenderStringTex(ansistring(s), cWhiteColor, fnt16); |
668 |
668 |
669 Gear^.doStep:= @doStepHealthTagWork; |
669 Gear^.doStep:= @doStepHealthTagWork; |
670 |
670 |
671 if (round(Gear^.Y) > cWaterLine) and (Gear^.Frame = 0) then |
671 if (round(Gear^.Y) > cWaterLine) and (Gear^.Frame = 0) then |
672 Gear^.doStep:= @doStepHealthTagWorkUnderWater; |
672 Gear^.doStep:= @doStepHealthTagWorkUnderWater; |