equal
deleted
inserted
replaced
638 realgear:= GearByUID(Gear^.Frame); |
638 realgear:= GearByUID(Gear^.Frame); |
639 if realgear <> nil then |
639 if realgear <> nil then |
640 begin |
640 begin |
641 Gear^.X:= hwFloat2Float(realgear^.X) + (Gear^.Tex^.w div 2 - Gear^.Tag); |
641 Gear^.X:= hwFloat2Float(realgear^.X) + (Gear^.Tex^.w div 2 - Gear^.Tag); |
642 Gear^.Y:= hwFloat2Float(realgear^.Y) - (realgear^.Radius + Gear^.Tex^.h); |
642 Gear^.Y:= hwFloat2Float(realgear^.Y) - (realgear^.Radius + Gear^.Tex^.h); |
|
643 Gear^.Angle:= 1; // Mark speech bubble as ready for rendering |
643 end |
644 end |
644 end |
645 end |
645 else if Gear^.Hedgehog^.Gear <> nil then |
646 else if Gear^.Hedgehog^.Gear <> nil then |
646 begin |
647 begin |
647 Gear^.X:= hwFloat2Float(Gear^.Hedgehog^.Gear^.X) + (Gear^.Tex^.w div 2 - Gear^.Tag); |
648 Gear^.X:= hwFloat2Float(Gear^.Hedgehog^.Gear^.X) + (Gear^.Tex^.w div 2 - Gear^.Tag); |
648 Gear^.Y:= hwFloat2Float(Gear^.Hedgehog^.Gear^.Y) - (cHHRadius + Gear^.Tex^.h); |
649 Gear^.Y:= hwFloat2Float(Gear^.Hedgehog^.Gear^.Y) - (cHHRadius + Gear^.Tex^.h); |
|
650 Gear^.Angle:= 1; // Mark speech bubble as ready for rendering |
649 end; |
651 end; |
650 |
652 |
651 if (Gear^.Timer = 0) or ((realgear = nil) and (Gear^.Frame <> 0)) then |
653 if (Gear^.Timer = 0) or ((realgear = nil) and (Gear^.Frame <> 0)) then |
652 begin |
654 begin |
653 if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.SpeechGear = Gear) then |
655 if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.SpeechGear = Gear) then |