hedgewars/uStore.pas
changeset 12324 69a37922353b
parent 12189 31184d9b9bfc
child 12462 4cc83b26b35c
--- a/hedgewars/uStore.pas	Tue Apr 25 17:51:03 2017 +0200
+++ b/hedgewars/uStore.pas	Tue Apr 25 13:13:47 2017 -0400
@@ -374,7 +374,7 @@
     ii: TSprite;
     fi: THWFont;
     ai: TAmmoType;
-    tmpsurf: PSDL_Surface;
+    tmpsurf, tmpoverlay: PSDL_Surface;
     i, imflags: LongInt;
 begin
 AddFileLog('StoreLoad()');
@@ -445,6 +445,15 @@
                         Width:= tmpsurf^.w;
                         Height:= tmpsurf^.h
                         end;
+                if (ii in [sprAMAmmos, sprAMAmmosBW]) then
+                    begin
+                    tmpoverlay := LoadDataImage(Path, copy(FileName, 1, length(FileName)-5), (imflags and not ifCritical));
+                    if tmpoverlay <> nil then
+                        begin
+                        copyToXY(tmpoverlay, tmpsurf, 0, 0);
+                        SDL_FreeSurface(tmpoverlay)
+                        end
+                    end;
                 if (ii in [sprSky, sprSkyL, sprSkyR, sprHorizont, sprHorizontL, sprHorizontR]) then
                     begin
                     Texture:= Surface2Tex(tmpsurf, true);