hedgewars/uGears.pas
changeset 4806 48c1a395f0a7
parent 4792 68f9b331014a
child 4808 7c3e5b52344a
equal deleted inserted replaced
4805:01332828b568 4806:48c1a395f0a7
   797                     begin
   797                     begin
   798                     SuddenDeath:= true;
   798                     SuddenDeath:= true;
   799                     if cHealthDecrease <> 0 then
   799                     if cHealthDecrease <> 0 then
   800                         begin
   800                         begin
   801                         SuddenDeathDmg:= true;
   801                         SuddenDeathDmg:= true;
   802                         ChangeToSDClouds
   802                         ChangeToSDClouds;
       
   803                         ChangeToSDFlakes;
   803                         end;
   804                         end;
   804                     AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   805                     AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   805                     playSound(sndSuddenDeath);
   806                     playSound(sndSuddenDeath);
   806                     MusicFN:= SDMusic;
   807                     MusicFN:= SDMusic;
   807                     ChangeMusic
   808                     ChangeMusic