hedgewars/uStore.pas
changeset 5704 718f98a9df12
parent 5696 972bf04d4a79
child 5712 08944be1d679
equal deleted inserted replaced
5703:637fb1e6487b 5704:718f98a9df12
  1028 
  1028 
  1029     AddFileLog('Setting up OpenGL (using driver: ' + shortstring(SDL_VideoDriverName(buf, sizeof(buf))) + ')');
  1029     AddFileLog('Setting up OpenGL (using driver: ' + shortstring(SDL_VideoDriverName(buf, sizeof(buf))) + ')');
  1030     SetupOpenGL();
  1030     SetupOpenGL();
  1031     if reinit then
  1031     if reinit then
  1032         begin
  1032         begin
  1033         if ((cReducedQuality and rqNoBackground) = 0) then 
  1033         if SuddenDeathDmg then
       
  1034              glClearColor(SDSkyColor.r * (SDTint/255) / 255, SDSkyColor.g * (SDTint/255) / 255, SDSkyColor.b * (SDTint/255) / 255, 0.99)
       
  1035         else if ((cReducedQuality and rqNoBackground) = 0) then 
  1034              glClearColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255, 0.99)
  1036              glClearColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255, 0.99)
  1035         else glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99);
  1037         else glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99);
       
  1038 
  1036         StoreRelease(true);
  1039         StoreRelease(true);
  1037         StoreLoad(true);
  1040         StoreLoad(true);
  1038         ResetLand;
  1041         ResetLand;
  1039         UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT)
  1042         UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT)
  1040         end;
  1043         end;