hedgewars/uGears.pas
changeset 12916 6fede49bc103
parent 12898 8a40ce061d94
child 12918 6deb29364723
equal deleted inserted replaced
12915:4d3b52f1ba18 12916:6fede49bc103
   336                     ScreenFadeValue:= sfMax;
   336                     ScreenFadeValue:= sfMax;
   337                     ScreenFadeSpeed:= 1;
   337                     ScreenFadeSpeed:= 1;
   338 
   338 
   339                     ChangeToSDClouds;
   339                     ChangeToSDClouds;
   340                     ChangeToSDFlakes;
   340                     ChangeToSDFlakes;
   341                     SetSkyColor(SDSkyColor.r * (SDTint.r/255) / 255, SDSkyColor.g * (SDTint.r/255) / 255, SDSkyColor.b * (SDTint.b/255) / 255);
   341                     SetSkyColor(SDSkyColor.r * (SDTint.r/255) / 255, SDSkyColor.g * (SDTint.g/255) / 255, SDSkyColor.b * (SDTint.b/255) / 255);
   342                     Ammoz[amTardis].SkipTurns:= 9999;
   342                     Ammoz[amTardis].SkipTurns:= 9999;
   343                     Ammoz[amTardis].Probability:= 0;
   343                     Ammoz[amTardis].Probability:= 0;
   344                     end;
   344                     end;
   345                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   345                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   346                 ScriptCall('onSuddenDeath');
   346                 ScriptCall('onSuddenDeath');