hedgewars/uStore.pas
changeset 6382 0e76c5cd4250
parent 6380 1ff5ad1d771b
child 6394 f0a9042e7387
equal deleted inserted replaced
6381:5f3412f6809e 6382:0e76c5cd4250
  1032         else if ((cReducedQuality and rqNoBackground) = 0) then 
  1032         else if ((cReducedQuality and rqNoBackground) = 0) then 
  1033              glClearColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255, 0.99)
  1033              glClearColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255, 0.99)
  1034         else glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99);
  1034         else glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99);
  1035 
  1035 
  1036         StoreRelease(true);
  1036         StoreRelease(true);
  1037         StoreLoad(true);
       
  1038 
       
  1039         ResetLand;
       
  1040         ReloadCaptions;
  1037         ReloadCaptions;
  1041         ReloadLines;
  1038         ReloadLines;
  1042 
  1039         StoreLoad(true);
  1043         UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT)
  1040 
       
  1041         ResetLand;
       
  1042         UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT);
  1044         end;
  1043         end;
  1045 end;
  1044 end;
  1046 
  1045 
  1047 procedure initModule;
  1046 procedure initModule;
  1048 var ai: TAmmoType;
  1047 var ai: TAmmoType;