hedgewars/uVisualGears.pas
changeset 3616 85d69ddb41b6
parent 3615 b78d7959540a
child 3641 98319a621dc8
equal deleted inserted replaced
3615:b78d7959540a 3616:85d69ddb41b6
   373 case Layer of
   373 case Layer of
   374     0: while Gear <> nil do
   374     0: while Gear <> nil do
   375         begin
   375         begin
   376         Tint(Gear^.Tint);
   376         Tint(Gear^.Tint);
   377         case Gear^.Kind of
   377         case Gear^.Kind of
   378             vgtFlake: if ((cReducedQuality and rqkillFlakes) <> 0) then
   378             vgtFlake: if ((cReducedQuality and rqkillFlakes) = 0) then
   379                         if vobVelocity = 0 then
   379                         if vobVelocity = 0 then
   380                             DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
   380                             DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
   381                         else
   381                         else
   382                             DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
   382                             DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
   383             vgtCloud: DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame);
   383             vgtCloud: DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame);