hedgewars/uGears.pas
changeset 5689 48ef34701751
parent 5681 5fc750c7f2b4
child 5691 54b12cc39e95
equal deleted inserted replaced
5688:fba59d6b5b6c 5689:48ef34701751
   861                         ScreenFadeValue:= sfMax;
   861                         ScreenFadeValue:= sfMax;
   862                         ScreenFadeSpeed:= 1;
   862                         ScreenFadeSpeed:= 1;
   863                         
   863                         
   864                         ChangeToSDClouds;
   864                         ChangeToSDClouds;
   865                         ChangeToSDFlakes;
   865                         ChangeToSDFlakes;
   866                         glClearColor(SDSkyColor.r / 255, SDSkyColor.g / 255, SDSkyColor.b / 255, 0.99);
   866                         glClearColor(SDSkyColor.r * (SDTint/255) / 255, SDSkyColor.g * (SDTint/255) / 255, SDSkyColor.b * (SDTint/255) / 255, 0.99);
   867                         end;
   867                         end;
   868                     AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   868                     AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   869                     playSound(sndSuddenDeath);
   869                     playSound(sndSuddenDeath);
   870                     MusicFN:= SDMusic;
   870                     MusicFN:= SDMusic;
   871                     ChangeMusic
   871                     ChangeMusic