hedgewars/uStore.pas
changeset 1698 993c42413387
parent 1525 311d0ab35d98
child 1805 dd9fb4b13fd8
equal deleted inserted replaced
1697:ea3eddd73f2c 1698:993c42413387
   157 				if Gear <> nil then
   157 				if Gear <> nil then
   158 					begin
   158 					begin
   159 					NameTagTex:= RenderStringTex(Name, Clan^.Color, fnt16);
   159 					NameTagTex:= RenderStringTex(Name, Clan^.Color, fnt16);
   160 					if Hat <> 'NoHat' then
   160 					if Hat <> 'NoHat' then
   161 						begin
   161 						begin
   162 						texsurf:= LoadImage(Pathz[ptHats] + '/' + Hat, false, true, false);
   162 						texsurf:= LoadImage(Pathz[ptHats] + '/' + Hat, false, false, false);
   163 						HatTex:= Surface2Tex(texsurf);
   163 						if texsurf <> nil then
   164 						SDL_FreeSurface(texsurf)
   164 							begin
       
   165 							HatTex:= Surface2Tex(texsurf);
       
   166 							SDL_FreeSurface(texsurf)
       
   167 							end
   165 						end
   168 						end
   166 					end;
   169 					end;
   167 		end;
   170 		end;
   168 	end;
   171 	end;
   169 
   172 
   250 		TTF_SetFontStyle(Handle, style);
   253 		TTF_SetFontStyle(Handle, style);
   251 		WriteLnToConsole(msgOK)
   254 		WriteLnToConsole(msgOK)
   252 		end;
   255 		end;
   253 AddProgress;
   256 AddProgress;
   254 
   257 
   255 AddProgress;
       
   256 WriteNames(fnt16);
   258 WriteNames(fnt16);
   257 MakeCrossHairs;
   259 MakeCrossHairs;
   258 LoadGraves;
   260 LoadGraves;
   259 
   261 
   260 AddProgress;
   262 AddProgress;