hedgewars/uVisualGears.pas
branchqmlfrontend
changeset 10886 99273b7afbff
parent 10876 d012728b89b9
child 11046 47a8c19ecb60
equal deleted inserted replaced
10823:1ff3dd3705b1 10886:99273b7afbff
   286                                     i:= -1
   286                                     i:= -1
   287                                 else
   287                                 else
   288                                     i:= 1;
   288                                     i:= 1;
   289                                 DrawTextureRotatedF(SpritesData[TSprite(Gear^.State)].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, i, SpritesData[TSprite(Gear^.State)].Width, SpritesData[TSprite(Gear^.State)].Height, Gear^.Angle);
   289                                 DrawTextureRotatedF(SpritesData[TSprite(Gear^.State)].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, i, SpritesData[TSprite(Gear^.State)].Width, SpritesData[TSprite(Gear^.State)].Height, Gear^.Angle);
   290                                 end;
   290                                 end;
       
   291                    vgtFeather: begin
       
   292                                if Gear^.FrameTicks < 255 then
       
   293                                    begin
       
   294                                    Tint($FF, $FF, $FF, Gear^.FrameTicks);
       
   295                                    tinted:= true
       
   296                                    end;
       
   297                                DrawSpriteRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
       
   298                              end;
   291            end;
   299            end;
   292            if (cReducedQuality and rqAntiBoom) = 0 then
   300            if (cReducedQuality and rqAntiBoom) = 0 then
   293                case Gear^.Kind of
   301                case Gear^.Kind of
   294                    vgtChunk: DrawSpriteRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
   302                    vgtChunk: DrawSpriteRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
   295                end;
   303                end;
   330                                  begin
   338                                  begin
   331                                  Tint($FF, $FF, $FF, Gear^.FrameTicks);
   339                                  Tint($FF, $FF, $FF, Gear^.FrameTicks);
   332                                  tinted:= true
   340                                  tinted:= true
   333                                  end;
   341                                  end;
   334                              DrawSpriteRotatedF(sprShell, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
   342                              DrawSpriteRotatedF(sprShell, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
   335                              end;
       
   336                    vgtFeather: begin
       
   337                                if Gear^.FrameTicks < 255 then
       
   338                                    begin
       
   339                                    Tint($FF, $FF, $FF, Gear^.FrameTicks);
       
   340                                    tinted:= true
       
   341                                    end;
       
   342                                DrawSpriteRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
       
   343                              end;
   343                              end;
   344                    vgtEgg: DrawSpriteRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
   344                    vgtEgg: DrawSpriteRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
   345                    vgtBeeTrace: begin
   345                    vgtBeeTrace: begin
   346                                 if Gear^.FrameTicks < $FF then
   346                                 if Gear^.FrameTicks < $FF then
   347                                     Tint($FF, $FF, $FF, Gear^.FrameTicks div 2)
   347                                     Tint($FF, $FF, $FF, Gear^.FrameTicks div 2)