hedgewars/uStore.pas
changeset 1698 993c42413387
parent 1525 311d0ab35d98
child 1805 dd9fb4b13fd8
--- a/hedgewars/uStore.pas	Sun Jan 18 13:02:38 2009 +0000
+++ b/hedgewars/uStore.pas	Sun Jan 18 14:17:10 2009 +0000
@@ -159,9 +159,12 @@
 					NameTagTex:= RenderStringTex(Name, Clan^.Color, fnt16);
 					if Hat <> 'NoHat' then
 						begin
-						texsurf:= LoadImage(Pathz[ptHats] + '/' + Hat, false, true, false);
-						HatTex:= Surface2Tex(texsurf);
-						SDL_FreeSurface(texsurf)
+						texsurf:= LoadImage(Pathz[ptHats] + '/' + Hat, false, false, false);
+						if texsurf <> nil then
+							begin
+							HatTex:= Surface2Tex(texsurf);
+							SDL_FreeSurface(texsurf)
+							end
 						end
 					end;
 		end;
@@ -252,7 +255,6 @@
 		end;
 AddProgress;
 
-AddProgress;
 WriteNames(fnt16);
 MakeCrossHairs;
 LoadGraves;