hedgewars/uVariables.pas
branchicegun
changeset 8584 ea20d9cc8515
parent 8578 d2bfe0683b9a
child 8596 def92c20cd49
equal deleted inserted replaced
8583:f2edd6d5f958 8584:ea20d9cc8515
   113     cGearScrEdgesDist: LongInt;
   113     cGearScrEdgesDist: LongInt;
   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     WaterOpacity: byte;
   119     WaterOpacity: byte;
   119     SDWaterOpacity: byte;
   120     SDWaterOpacity: byte;
   120     GrayScale: Boolean;
   121     GrayScale: Boolean;
   121 
   122 
   122     CountTexz: array[0..Pred(AMMO_INFINITE)] of PTexture;
   123     CountTexz: array[0..Pred(AMMO_INFINITE)] of PTexture;
  2407     SDWaterColorArray[1]:= SDWaterColorArray[0];
  2408     SDWaterColorArray[1]:= SDWaterColorArray[0];
  2408     SDWaterColorArray[3]:= SDWaterColorArray[2];
  2409     SDWaterColorArray[3]:= SDWaterColorArray[2];
  2409     SDWaterOpacity:= $80;
  2410     SDWaterOpacity:= $80;
  2410     SDTint:= $80;
  2411     SDTint:= $80;
  2411     ExplosionBorderColor:= $FF808080;
  2412     ExplosionBorderColor:= $FF808080;
       
  2413     IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift);
  2412     WaterOpacity:= $80;
  2414     WaterOpacity:= $80;
  2413 
  2415 
  2414     cDrownSpeed.QWordValue  := 257698038;       // 0.06
  2416     cDrownSpeed.QWordValue  := 257698038;       // 0.06
  2415     cDrownSpeedf            := 0.06;
  2417     cDrownSpeedf            := 0.06;
  2416     cMaxWindSpeed.QWordValue:= 1073742;     // 0.00025
  2418     cMaxWindSpeed.QWordValue:= 1073742;     // 0.00025