hedgewars/uVisualGears.pas
changeset 10251 a3b42e81803c
parent 10193 d7cd5b43588f
child 10301 6a225b469eef
equal deleted inserted replaced
10250:887610b44848 10251:a3b42e81803c
   447                           else
   447                           else
   448                             if vobVelocity = 0 then
   448                             if vobVelocity = 0 then
   449                                 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
   449                                 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
   450                             else
   450                             else
   451                                 DrawSpriteRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
   451                                 DrawSpriteRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
       
   452                 vgtNoPlaceWarn:
       
   453                             DrawTexture(round(Gear^.X) + WorldDx - round(Gear^.Tex^.w * Gear^.Scale) div 2, round(Gear^.Y) + WorldDy - round(Gear^.Tex^.h * Gear^.Scale) div 2, Gear^.Tex, Gear^.Scale);
   452                 end;
   454                 end;
   453             if (Gear^.Tint <> $FFFFFFFF) then
   455             if (Gear^.Tint <> $FFFFFFFF) then
   454                 untint;
   456                 untint;
   455             Gear:= Gear^.NextGear
   457             Gear:= Gear^.NextGear
   456             end
   458             end