hedgewars/uVariables.pas
changeset 8596 def92c20cd49
parent 8584 ea20d9cc8515
child 8617 e7bea88096d2
equal deleted inserted replaced
8595:d2940421d3d4 8596:def92c20cd49
   114     isAudioMuted     : boolean;
   114     isAudioMuted     : boolean;
   115 
   115 
   116     // originally typed consts
   116     // originally typed consts
   117     ExplosionBorderColor: LongWord;
   117     ExplosionBorderColor: LongWord;
   118     IceColor            : LongWord;
   118     IceColor            : LongWord;
       
   119     IceEdgeColor        : LongWord;
   119     WaterOpacity: byte;
   120     WaterOpacity: byte;
   120     SDWaterOpacity: byte;
   121     SDWaterOpacity: byte;
   121     GrayScale: Boolean;
   122     GrayScale: Boolean;
   122 
   123 
   123     CountTexz: array[0..Pred(AMMO_INFINITE)] of PTexture;
   124     CountTexz: array[0..Pred(AMMO_INFINITE)] of PTexture;
  2409     SDWaterColorArray[3]:= SDWaterColorArray[2];
  2410     SDWaterColorArray[3]:= SDWaterColorArray[2];
  2410     SDWaterOpacity:= $80;
  2411     SDWaterOpacity:= $80;
  2411     SDTint:= $80;
  2412     SDTint:= $80;
  2412     ExplosionBorderColor:= $FF808080;
  2413     ExplosionBorderColor:= $FF808080;
  2413     IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift);
  2414     IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift);
       
  2415     IceEdgeColor:= ($8A shl RShift) or ($AF shl GShift) or ($B2 shl BShift) or ($FF shl AShift);
       
  2416 
  2414     WaterOpacity:= $80;
  2417     WaterOpacity:= $80;
  2415 
  2418 
  2416     cDrownSpeed.QWordValue  := 257698038;       // 0.06
  2419     cDrownSpeed.QWordValue  := 257698038;       // 0.06
  2417     cDrownSpeedf            := 0.06;
  2420     cDrownSpeedf            := 0.06;
  2418     cMaxWindSpeed.QWordValue:= 1073742;     // 0.00025
  2421     cMaxWindSpeed.QWordValue:= 1073742;     // 0.00025