equal
deleted
inserted
replaced
738 case Layer of |
738 case Layer of |
739 0: while Gear <> nil do |
739 0: while Gear <> nil do |
740 begin |
740 begin |
741 case Gear^.Kind of |
741 case Gear^.Kind of |
742 vgtFlake: if vobVelocity = 0 then |
742 vgtFlake: if vobVelocity = 0 then |
743 DrawSprite(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame) |
743 DrawSprite(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
744 else |
744 else |
745 DrawRotatedF(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
745 DrawRotatedF(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle); |
746 vgtCloud: DrawSprite(sprCloud, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame); |
746 vgtCloud: DrawSprite(sprCloud, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame); |
747 end; |
747 end; |
748 Gear:= Gear^.NextGear |
748 Gear:= Gear^.NextGear |
749 end; |
749 end; |
750 1: while Gear <> nil do |
750 1: while Gear <> nil do |
751 begin |
751 begin |