158 while Gear <> nil do |
158 while Gear <> nil do |
159 begin |
159 begin |
160 if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint); |
160 if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint); |
161 case Gear^.Kind of |
161 case Gear^.Kind of |
162 vgtCloud: begin |
162 vgtCloud: begin |
163 spriteData:= GetSpriteData(GetSpriteByWind(sprCloud, sprCloudL), GetSpriteByWind(sprSDCloud, sprSDCloudL)); |
163 spriteData:= GetSpriteData(GetSpriteByWind(sprCloud, sprCloudL), GetSpriteByWind(sprSDCloud, sprSDCloudL)); |
164 DrawTextureF(spriteData^.Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, spriteData^.Width, spriteData^.Height) |
164 DrawTextureF(spriteData^.Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, spriteData^.Width, spriteData^.Height) |
165 end; |
165 end; |
166 vgtFlake: begin |
166 vgtFlake: begin |
167 sprite:= GetSpriteByWind(GetSprite(sprFlake, sprSDFlake), GetSprite(sprFlakeL, sprSDFlakeL)); |
167 sprite:= GetSpriteByWind(GetSprite(sprFlake, sprSDFlake), GetSprite(sprFlakeL, sprSDFlakeL)); |
168 if cFlattenFlakes then |
168 if cFlattenFlakes then |
419 begin |
419 begin |
420 if Gear^.Tint <> $FFFFFFFF then |
420 if Gear^.Tint <> $FFFFFFFF then |
421 Tint(Gear^.Tint); |
421 Tint(Gear^.Tint); |
422 case Gear^.Kind of |
422 case Gear^.Kind of |
423 vgtCloud: begin |
423 vgtCloud: begin |
424 sprite:= GetSpriteByWind(GetSprite(sprCloud, sprSDCloud), GetSprite(sprCloudL, sprSDCloudL)); |
424 sprite:= GetSpriteByWind(GetSprite(sprCloud, sprSDCloud), GetSprite(sprCloudL, sprSDCloudL)); |
425 DrawSprite(sprite, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame); |
425 DrawSprite(sprite, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame); |
426 end; |
426 end; |
427 vgtFlake: begin |
427 vgtFlake: begin |
428 sprite:= GetSpriteByWind(GetSprite(sprFlake, sprSDFlake), GetSprite(sprFlakeL, sprSDFlakeL)); |
428 sprite:= GetSpriteByWind(GetSprite(sprFlake, sprSDFlake), GetSprite(sprFlakeL, sprSDFlakeL)); |
429 if speedlessFlakes then |
429 if speedlessFlakes then |
430 DrawSprite(sprite, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
430 DrawSprite(sprite, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
431 else |
431 else |
432 DrawSpriteRotatedF(sprite, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle); |
432 DrawSpriteRotatedF(sprite, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle); |
433 end; |
433 end; |