127 

   127 

   128     // originally typed consts

   128     // originally typed consts

   129     ExplosionBorderColorR,

   129     ExplosionBorderColorR,

   130     ExplosionBorderColorG,

   130     ExplosionBorderColorG,

   131     ExplosionBorderColorB,

   131     ExplosionBorderColorB,

   132     ExplosionBorderColor:  LongWord;

   133     ExplosionBorderColor:  LongWord;

   133     IceColor            : LongWord;

   134     IceColor            : LongWord;

   134     IceEdgeColor        : LongWord;

   135     IceEdgeColor        : LongWord;

   135     WaterOpacity: byte;

   136     WaterOpacity: byte;

   136     SDWaterOpacity: byte;

   137     SDWaterOpacity: byte;

  2547     SDTint:= $80;

  2548     SDTint:= $80;

  2548     ExplosionBorderColorR:= 80;

  2549     ExplosionBorderColorR:= 80;

  2549     ExplosionBorderColorG:= 80;

  2550     ExplosionBorderColorG:= 80;

  2550     ExplosionBorderColorB:= 80;

  2551     ExplosionBorderColorB:= 80;

  2551     ExplosionBorderColor:= $FF808080;

  2552     ExplosionBorderColor:= $FF808080;

  2552     IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift);

  2554     IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift);

  2553     IceEdgeColor:= ($8A shl RShift) or ($AF shl GShift) or ($B2 shl BShift) or ($FF shl AShift);

  2555     IceEdgeColor:= ($8A shl RShift) or ($AF shl GShift) or ($B2 shl BShift) or ($FF shl AShift);

  2554 

  2556 

  2555     WaterOpacity:= $80;

  2557     WaterOpacity:= $80;

  2556 

  2558