hedgewars/uVariables.pas
changeset 11895 19cb0de79287
parent 11887 083c12795632
child 11912 d3a852554aa7
equal deleted inserted replaced
11894:dd3cbbde7876 11895:19cb0de79287
   204     RealTicks       : Longword;
   204     RealTicks       : Longword;
   205     AttackBar       : LongInt;
   205     AttackBar       : LongInt;
   206 
   206 
   207     WaterColorArray : array[0..7] of HwColor4f;
   207     WaterColorArray : array[0..7] of HwColor4f;
   208     SDWaterColorArray : array[0..7] of HwColor4f;
   208     SDWaterColorArray : array[0..7] of HwColor4f;
   209     SDTint          : LongInt;
       
   210 
   209 
   211     TargetCursorPoint     : TPoint;
   210     TargetCursorPoint     : TPoint;
   212     CursorPoint           : TPoint;
   211     CursorPoint           : TPoint;
   213     TargetPoint           : TPoint;
   212     TargetPoint           : TPoint;
   214 
   213 
  2405     bShowAmmoMenu: boolean;
  2404     bShowAmmoMenu: boolean;
  2406     bSelected: boolean;
  2405     bSelected: boolean;
  2407     bShowFinger: boolean;
  2406     bShowFinger: boolean;
  2408     Frames: Longword;
  2407     Frames: Longword;
  2409     WaterColor, DeepWaterColor: TSDL_Color;
  2408     WaterColor, DeepWaterColor: TSDL_Color;
  2410     SkyColor, RQSkyColor, SDSkyColor: TSDL_Color;
  2409     SDTint, SkyColor, RQSkyColor, SDSkyColor: TSDL_Color;
  2411     SkyOffset: LongInt;
  2410     SkyOffset: LongInt;
  2412 {$IFDEF COUNTTICKS}
  2411 {$IFDEF COUNTTICKS}
  2413     cntTicks: LongWord;
  2412     cntTicks: LongWord;
  2414 {$ENDIF}
  2413 {$ENDIF}
  2415 
  2414 
  2590     SDWaterColorArray[5]:= SDWaterColorArray[1];
  2589     SDWaterColorArray[5]:= SDWaterColorArray[1];
  2591     SDWaterColorArray[7]:= SDWaterColorArray[1];
  2590     SDWaterColorArray[7]:= SDWaterColorArray[1];
  2592 
  2591 
  2593     SDWaterOpacity:= $80;
  2592     SDWaterOpacity:= $80;
  2594 
  2593 
  2595     SDTint:= $80;
  2594     SDTint.r := $80;
       
  2595     SDTint.g := $80;
       
  2596     SDTint.b := $80;
       
  2597     SDTint.a := $FF;
       
  2598 
  2596     ExplosionBorderColorR:= 80;
  2599     ExplosionBorderColorR:= 80;
  2597     ExplosionBorderColorG:= 80;
  2600     ExplosionBorderColorG:= 80;
  2598     ExplosionBorderColorB:= 80;
  2601     ExplosionBorderColorB:= 80;
  2599     ExplosionBorderColor:= $FF808080;
  2602     ExplosionBorderColor:= $FF808080;
  2600     ExplosionBorderColorNoA:= ExplosionBorderColor and (not AMask);
  2603     ExplosionBorderColorNoA:= ExplosionBorderColor and (not AMask);