{*******************************************************}
{                                                       }
{       Space game                                      }
{                                                       }
{       Copyright (C) 2011 IDEYA-X                      }
{                                                       }
{*******************************************************}

unit GM_Vars;

interface
  uses Windows;


const

Pi_DEG=180/Pi;
Pi_RAD=Pi/180;
Pi_M180=Pi*180;
Pi_2=Pi/2;

TexW=1/512;

ActionCreate=0;
ActionSelect=1;
ActionNone=255;

 black          = $000000;
 white          = $FFFFFF;
 grey           = $C8C8C8;
 grey2          = $969696;
 grey3          = $646464;
 grey4          = $323232;
 cyan           = $00FFFF;
 cyan2          = $009696;
 red            = $FF0000;
 red2           = $960000;
 red3           = $640000;
 yellow         = $FFFF00;
 yellow2        = $969600;
 yellow3        = $646400;
 green          = $00FF00;
 green1         = $00C800;
 green2         = $009600;
 green3         = $006400;
 purple         = $FF00FF;
 purple1        = $C800C8;
 purple2        = $960096;
 blue           = $0000FF;
 blue1          = $0000C8;
 blue2          = $000096;
 blue3          = $000064;
 orange         = $FFAB05;
 orange2        = $805502;
 brown          = $414181;

type
 TState = (sLogo, sGMenu, sOptions, sRecords, sAuthor, sExit, sGame);   // состояние игры

// needed to return 2 values at once
type
 TVector2Di=record
  x,y:Integer;
end;




var

   GUItexture:cardinal;

  MySysfont:array[0..3] of Dword;

  Pathstr:string='';

  GameStatus:TState=sGame;

  appPath:string;
   
  PauseGame:Boolean=False;

  SelectPunkt:integer=0;
  EngineStart:boolean=false;

  MyLogoGFX:Cardinal;
  MyLogoAlpha:Integer=0;
  MyLogoState:Byte=0;
  MyLogoTimer:Integer=0;


  TestGFX,
  TestGFX2,
  TitulGFX:Cardinal;

  bullet_sfx:Integer;
  enemy_die_sfx:Integer;
  player_die_sfx:Integer;
  weapon_upgrade_sfx:Integer;
  player_hit_sfx:Integer;
  get_powerup_sfx:Integer;
  enemy_bullet_sfx:Integer;

  level0song:Integer;

 Titul_menu : array[0..2] of string =
  ('Новая игра',
   'Настройки',
   'Выход');

 Author_menu: array[0..20] of string=
  ('             Программинг:',
   '      Амосов Евгений aka Gambit_oz',
   '                   <IdeyaX studio>',
   '     e-Mail : greenrat@mail333.com',
   '',
   '             Графика:',
   '            Gambit_oz',
   '',
   '          Звуковые эффекты:',
   '             Gambit_oz',
   '',
   '       Используемые инструменты:',
   '         IDE          - Delphi 6',
   '     Графика          - Adobe Photoshop 7.0',
   '                      - 3dsmax 3.0',
   '       Sound          - www.yandex.ru',
   '',
   '',
   '',
   '      13.09.2007 - 23.09.2007',
   '       для code.darthman.com');


implementation

end.
