hedgewars/uGears.pas
changeset 11895 19cb0de79287
parent 11887 083c12795632
child 11896 cb36d6df3814
equal deleted inserted replaced
11894:dd3cbbde7876 11895:19cb0de79287
   334                     ScreenFadeValue:= sfMax;
   334                     ScreenFadeValue:= sfMax;
   335                     ScreenFadeSpeed:= 1;
   335                     ScreenFadeSpeed:= 1;
   336 
   336 
   337                     ChangeToSDClouds;
   337                     ChangeToSDClouds;
   338                     ChangeToSDFlakes;
   338                     ChangeToSDFlakes;
   339                     SetSkyColor(SDSkyColor.r * (SDTint/255) / 255, SDSkyColor.g * (SDTint/255) / 255, SDSkyColor.b * (SDTint/255) / 255);
   339                     SetSkyColor(SDSkyColor.r * (SDTint.r/255) / 255, SDSkyColor.g * (SDTint.r/255) / 255, SDSkyColor.b * (SDTint.b/255) / 255);
   340                     Ammoz[amTardis].SkipTurns:= 9999;
   340                     Ammoz[amTardis].SkipTurns:= 9999;
   341                     Ammoz[amTardis].Probability:= 0;
   341                     Ammoz[amTardis].Probability:= 0;
   342                     end;
   342                     end;
   343                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   343                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
   344                 ScriptCall('onSuddenDeath');
   344                 ScriptCall('onSuddenDeath');