757 if not cReducedQuality then |
757 if not cReducedQuality then |
758 case Gear^.Kind of |
758 case Gear^.Kind of |
759 vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
759 vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
760 vgtSmokeWhite: DrawSprite(sprSmokeWhite, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
760 vgtSmokeWhite: DrawSprite(sprSmokeWhite, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
761 vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
761 vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
|
762 vgtFeather: begin |
|
763 if Gear^.FrameTicks < 250 then |
|
764 glColor4f(1, 1, 1, Gear^.FrameTicks / 250); |
|
765 DrawRotatedF(sprFeather, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
|
766 if Gear^.FrameTicks < 250 then |
|
767 glColor4f(1, 1, 1, 1); |
|
768 end; |
762 end; |
769 end; |
763 Gear:= Gear^.NextGear |
770 Gear:= Gear^.NextGear |
764 end; |
771 end; |
765 2: while Gear <> nil do |
772 2: while Gear <> nil do |
766 begin |
773 begin |
812 vgtSmokeRing: begin |
819 vgtSmokeRing: begin |
813 glColor4f(1, 1, 1, Gear^.alpha); |
820 glColor4f(1, 1, 1, Gear^.alpha); |
814 DrawRotatedTextureF(SpritesData[sprSmokeRing].Texture, Gear^.scale, 0, 0, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, 1, 200, 200, Gear^.Angle); |
821 DrawRotatedTextureF(SpritesData[sprSmokeRing].Texture, Gear^.scale, 0, 0, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, 1, 200, 200, Gear^.Angle); |
815 glColor4f(1, 1, 1, 1); |
822 glColor4f(1, 1, 1, 1); |
816 end; |
823 end; |
817 vgtFeather: begin |
|
818 if Gear^.FrameTicks < 250 then |
|
819 glColor4f(1, 1, 1, Gear^.FrameTicks / 250); |
|
820 DrawRotatedF(sprFeather, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
|
821 if Gear^.FrameTicks < 250 then |
|
822 glColor4f(1, 1, 1, 1); |
|
823 end; |
|
824 end; |
824 end; |
825 case Gear^.Kind of |
825 case Gear^.Kind of |
826 vgtSmallDamageTag: DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex); |
826 vgtSmallDamageTag: DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex); |
827 vgtSpeechBubble: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex); |
827 vgtSpeechBubble: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex); |
828 end; |
828 end; |