equal
deleted
inserted
replaced
374 case Layer of |
374 case Layer of |
375 0: while Gear <> nil do |
375 0: while Gear <> nil do |
376 begin |
376 begin |
377 Tint(Gear^.Tint); |
377 Tint(Gear^.Tint); |
378 case Gear^.Kind of |
378 case Gear^.Kind of |
379 vgtFlake: if vobVelocity = 0 then |
379 vgtFlake: if ((cReducedQuality and rqkillFlakes) <> 0) then |
380 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
380 if vobVelocity = 0 then |
381 else |
381 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
382 DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle); |
382 else |
|
383 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); |
384 vgtCloud: DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame); |
384 end; |
385 end; |
385 Gear:= Gear^.NextGear |
386 Gear:= Gear^.NextGear |
386 end; |
387 end; |
387 1: while Gear <> nil do |
388 1: while Gear <> nil do |