647 Tint($FF, $FF, $FF, Gear^.FrameTicks); |
647 Tint($FF, $FF, $FF, Gear^.FrameTicks); |
648 tinted:= true |
648 tinted:= true |
649 end; |
649 end; |
650 DrawRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
650 DrawRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
651 end; |
651 end; |
652 vgtEgg: begin |
652 vgtEgg: DrawRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
653 if Gear^.FrameTicks < $FF then |
|
654 begin |
|
655 Tint($FF, $FF, $FF, Gear^.FrameTicks); |
|
656 tinted:= true |
|
657 end; |
|
658 DrawRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
|
659 end; |
|
660 vgtBeeTrace: begin |
653 vgtBeeTrace: begin |
661 if Gear^.FrameTicks < $FF then |
654 if Gear^.FrameTicks < $FF then |
662 Tint($FF, $FF, $FF, Gear^.FrameTicks div 2) |
655 Tint($FF, $FF, $FF, Gear^.FrameTicks div 2) |
663 else |
656 else |
664 Tint($FF, $FF, $FF, $80); |
657 Tint($FF, $FF, $FF, $80); |