hedgewars/uGears.pas
changeset 5558 49cfd05ccb83
parent 5556 5b8ca3955834
child 5563 fc73b6e941f7
equal deleted inserted replaced
5557:5a971d01a545 5558:49cfd05ccb83
   851                     begin
   851                     begin
   852                     SuddenDeath:= true;
   852                     SuddenDeath:= true;
   853                     if cHealthDecrease <> 0 then
   853                     if cHealthDecrease <> 0 then
   854                         begin
   854                         begin
   855                         SuddenDeathDmg:= true;
   855                         SuddenDeathDmg:= true;
       
   856                         
       
   857                         // flash
       
   858                         ScreenFade:= sfFromWhite;
       
   859                         ScreenFadeValue:= sfMax;
       
   860                         ScreenFadeSpeed:= 1;
       
   861                         
   856                         ChangeToSDClouds;
   862                         ChangeToSDClouds;
   857                         ChangeToSDFlakes;
   863                         ChangeToSDFlakes;
   858                         glClearColor(SDSkyColor.r / 255, SDSkyColor.g / 255, SDSkyColor.b / 255, 0.99);
   864                         glClearColor(SDSkyColor.r / 255, SDSkyColor.g / 255, SDSkyColor.b / 255, 0.99);
   859                         end;
   865                         end;
   860                     AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   866                     AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);