hedgewars/uVisualGears.pas
changeset 12164 cb3e785534da
parent 12163 4d1250ca68ac
child 12470 c8ee50955fae
equal deleted inserted replaced
12163:4d1250ca68ac 12164:cb3e785534da
   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;