hedgewars/uVariables.pas
changeset 4375 ae5507ddb989
parent 4372 3836973380b9
child 4379 6cd6b77df8b8
equal deleted inserted replaced
4374:bcefeeabaa33 4375:ae5507ddb989
   128 
   128 
   129     WaterColorArray : array[0..3] of HwColor4f;
   129     WaterColorArray : array[0..3] of HwColor4f;
   130 
   130 
   131     CursorPoint     : TPoint;
   131     CursorPoint     : TPoint;
   132     TargetPoint     : TPoint;
   132     TargetPoint     : TPoint;
   133 
       
   134     TextureList     : PTexture;
       
   135 
   133 
   136     ScreenFade      : TScreenFade;
   134     ScreenFade      : TScreenFade;
   137     ScreenFadeValue : LongInt;
   135     ScreenFadeValue : LongInt;
   138     ScreenFadeSpeed : LongInt;
   136     ScreenFadeSpeed : LongInt;
   139 
   137 
  2133     cWindSpeedf             := 0.0001;
  2131     cWindSpeedf             := 0.0001;
  2134     cGravity                := cMaxWindSpeed * 2;
  2132     cGravity                := cMaxWindSpeed * 2;
  2135     cGravityf               := 0.00025 * 2;
  2133     cGravityf               := 0.00025 * 2;
  2136     cDamageModifier         := _1;
  2134     cDamageModifier         := _1;
  2137     TargetPoint             := cTargetPointRef;
  2135     TargetPoint             := cTargetPointRef;
  2138     TextureList             := nil;
       
  2139 
  2136 
  2140     // int, longint longword and byte
  2137     // int, longint longword and byte
  2141     CursorMovementX     := 0;
  2138     CursorMovementX     := 0;
  2142     CursorMovementY     := 0;
  2139     CursorMovementY     := 0;
  2143     GameTicks           := 0;
  2140     GameTicks           := 0;