hedgewars/uStore.pas
changeset 10510 9329dab04490
parent 10443 42dadeb6e8ae
child 10526 b43d175d1577
equal deleted inserted replaced
10509:d62d3c706947 10510:9329dab04490
   358             SDLTry(Handle <> nil, true);
   358             SDLTry(Handle <> nil, true);
   359             TTF_SetFontStyle(Handle, style);
   359             TTF_SetFontStyle(Handle, style);
   360             WriteLnToConsole(msgOK)
   360             WriteLnToConsole(msgOK)
   361             end;
   361             end;
   362 
   362 
   363 if not cOnlyStats then 
   363 if not cOnlyStats then
   364     begin
   364     begin
   365     MakeCrossHairs;
   365     MakeCrossHairs;
   366     LoadGraves;
   366     LoadGraves;
   367     tmpHatSurf:= LoadDataImage(ptHats, 'Reserved/chef', ifNone);
   367     tmpHatSurf:= LoadDataImage(ptHats, 'Reserved/chef', ifNone);
   368     ChefHatTexture:= Surface2Tex(tmpHatSurf, true);
   368     ChefHatTexture:= Surface2Tex(tmpHatSurf, true);
   369     freeTmpHatSurf();
   369     freeTmpHatSurf();
   370     end;
   370     end;
   371     
   371 
   372 if not reload then
   372 if not reload then
   373     AddProgress;
   373     AddProgress;
   374 
   374 
   375 for ii:= Low(TSprite) to High(TSprite) do
   375 for ii:= Low(TSprite) to High(TSprite) do
   376     with SpritesData[ii] do
   376     with SpritesData[ii] do
   377         // FIXME - add a sprite attribute to match on rq flags?
   377         // FIXME - add a sprite attribute to match on rq flags?
   378         if (((cReducedQuality and (rqNoBackground or rqLowRes)) = 0) or   // why rqLowRes?
   378         if (((cReducedQuality and (rqNoBackground or rqLowRes)) = 0) or   // why rqLowRes?
   379                 (not (ii in [sprSky, sprSkyL, sprSkyR, sprHorizont, sprHorizontL, sprHorizontR])))
   379                 (not (ii in [sprSky, sprSkyL, sprSkyR, sprHorizont, sprHorizontL, sprHorizontR])))
   380            and (((cReducedQuality and rqPlainSplash) = 0) or ((not (ii in [sprSplash, sprDroplet, sprSDSplash, sprSDDroplet])))) 
   380            and (((cReducedQuality and rqPlainSplash) = 0) or ((not (ii in [sprSplash, sprDroplet, sprSDSplash, sprSDDroplet]))))
   381            and (((cReducedQuality and rqKillFlakes) = 0) or cSnow or ((not (ii in [sprFlake, sprSDFlake]))))
   381            and (((cReducedQuality and rqKillFlakes) = 0) or cSnow or ((not (ii in [sprFlake, sprSDFlake]))))
   382            and ((cCloudsNumber > 0) or (ii <> sprCloud))
   382            and ((cCloudsNumber > 0) or (ii <> sprCloud))
   383            and ((vobCount > 0) or (ii <> sprFlake)) 
   383            and ((vobCount > 0) or (ii <> sprFlake))
   384            and (savesurf or (not cOnlyStats)) // in stats-only only load those which are needed later
   384            and (savesurf or (not cOnlyStats)) // in stats-only only load those which are needed later
   385             then
   385             then
   386             begin
   386             begin
   387             if reload then
   387             if reload then
   388                 tmpsurf:= Surface
   388                 tmpsurf:= Surface