hedgewars/uGears.pas
changeset 4835 a6924450e694
parent 4834 3763a386a427
child 4837 2ea0a152c319
equal deleted inserted replaced
4834:3763a386a427 4835:a6924450e694
   800                     if cHealthDecrease <> 0 then
   800                     if cHealthDecrease <> 0 then
   801                         begin
   801                         begin
   802                         SuddenDeathDmg:= true;
   802                         SuddenDeathDmg:= true;
   803                         ChangeToSDClouds;
   803                         ChangeToSDClouds;
   804                         ChangeToSDFlakes;
   804                         ChangeToSDFlakes;
       
   805                         glClearColor(SDSkyColor.r / 255, SDSkyColor.g / 255, SDSkyColor.b / 255, 0.99);
   805                         end;
   806                         end;
   806                     AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   807                     AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   807                     playSound(sndSuddenDeath);
   808                     playSound(sndSuddenDeath);
   808                     MusicFN:= SDMusic;
   809                     MusicFN:= SDMusic;
   809                     ChangeMusic
   810                     ChangeMusic