hedgewars/uStore.pas
changeset 11539 c22d292e7266
parent 11532 bf86c6cb9341
child 11822 4600dcb9db4f
equal deleted inserted replaced
11538:00860966354d 11539:c22d292e7266
   394            and (((cReducedQuality and rqPlainSplash) = 0) or ((not (ii in [sprSplash, sprDroplet, sprSDSplash, sprSDDroplet]))))
   394            and (((cReducedQuality and rqPlainSplash) = 0) or ((not (ii in [sprSplash, sprDroplet, sprSDSplash, sprSDDroplet]))))
   395            and (((cReducedQuality and rqKillFlakes) = 0) or cSnow or ((not (ii in [sprFlake, sprSDFlake]))))
   395            and (((cReducedQuality and rqKillFlakes) = 0) or cSnow or ((not (ii in [sprFlake, sprSDFlake]))))
   396            and ((cCloudsNumber > 0) or (ii <> sprCloud))
   396            and ((cCloudsNumber > 0) or (ii <> sprCloud))
   397            and ((vobCount > 0) or (ii <> sprFlake))
   397            and ((vobCount > 0) or (ii <> sprFlake))
   398            and (savesurf or (not cOnlyStats)) // in stats-only only load those which are needed later
   398            and (savesurf or (not cOnlyStats)) // in stats-only only load those which are needed later
       
   399            and allOK
   399             then
   400             then
   400             begin
   401             begin
   401             if reload then
   402             if reload then
   402                 tmpsurf:= Surface
   403                 tmpsurf:= Surface
   403             else
   404             else
   452                 end
   453                 end
   453             else
   454             else
   454                 Surface:= nil
   455                 Surface:= nil
   455         end;
   456         end;
   456 
   457 
   457 if not cOnlyStats then
   458 if (not cOnlyStats) and allOK then
   458     begin
   459     begin
   459     WriteNames(fnt16);
   460     WriteNames(fnt16);
   460 
   461 
   461     if not reload then
   462     if not reload then
   462         AddProgress;
   463         AddProgress;