unit Variables;

interface
uses DGLEngine_header, OpenGL;

type
TSingleRect = record X,Y,Width,Height : Single; end;
TGLVectord3 = array[0..2] of GLDouble;
TGLVectori4 = array[0..3] of GLInt;
TGLMatrixd4 = array[0..3, 0..3] of Double;

TPlayer = record
Active : boolean;
X,Y, OldX, OldY : single;
Angle,LegsAngle,Points,Health : integer;
LegsFrame : single;
end;

const
GameVersion='Другой Мир';
//for main menu
MENU_MAIN = 0;
MENU_AUTHORS = 1;
//for init procedure
FIRST_START = 0;
GAME_START  = 1;
MENU_START  = 2;
MAP_LOAD    = 3;

var
//System
GameCamera : TCamera;
MenuStatus : byte = MENU_MAIN;
TexDetail : byte = 0;
GameDetail : byte = 0;
DrawFps : integer = 0;
Zoom : single = 0.0;
cameratyp : integer;
PlayMusicInGame : boolean = true;
Player : array [0..7] of TPlayer;
ShotWait : integer = 10;
reswait : integer = 0;
PlayerDead:boolean;

//Controls
KeyUp,KeyDown,KeyLeft,KeyRight : integer;

//Textures
tex_MainFont,
tex_bg1,tex_bg2,tex_bg3,
tex_space, tex_clouds, tex_planet,
tex_title,tex_alpharound,tex_cursor,
tex_reflection, tex_asteroid, tex_ship,
tex_Sky,tex_Pricel, tex_Blood
 : cardinal;

//Player
tex_Head,tex_Body,tex_Legs,tex_Pistol : Cardinal;
mdl_Head, mdl_Body, mdl_Legs, mdl_pistol : integer;

//Enemy
tex_Enemy : Cardinal;
mdl_Enemy_Run, mdl_Enemy_Attack, mdl_Enemy_Die : integer;

//MemoryLists

//Models
mdl_Ship, mdl_Asteroid : integer;

//sounds
s_shot,s_shot1,s_pain,s_pain2,s_hit,s_death,s_death2 : integer;
implementation
end.
