unit GMVars;

interface
  uses Windows;

const
Title='TetrisLandia v1.0';
MouseLB=256;
MouseRB=257;
MouseMB=258;

Pi_180=Pi/180;
Pi_M180=Pi*180;
Pi_2=Pi/2;

TexW=1/512;

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


 TETRIS_MODE_CLASSIC        =0;
 TETRIS_MODE_BOMBER         =1;
 TETRIS_MODE_LOGIC          =2;

type
  TVSyncMode = (vsmSync, vsmNoSync);

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

var
  SCRW:integer;
  SCRH:integer;
  SCR2W:integer;
  SCR2H:integer;
  SCRHZ:integer;
  SCRBit:integer;
  FullScreen:boolean;
  Sync:boolean;
  SCRXOffset,
  SCRYOffset:integer;
  CenterScreen:boolean=false;


  GWHandle: hWnd;
  GWDC: HDC;
  GWHRC: HGLRC;
  GWInstance: HINST;
  GWCaption:string; 

   CurrentTime : Longint;
   FPSLastTickCount : Longint;
   FPSFrames        : Longint;
   FPS              : Single;

   GUItexture:cardinal;

  Keys: array [0..258] of Boolean;
  MousePos:tpoint;

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

  Pathstr:string='';

  GameStatus:TState=sGame;

  appPath:string;

  PauseGame:Boolean=False;
  StartGame:Boolean=False;
  EndGame:Boolean=False;

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

  wTime, wTime_Delta, wTime_Old,
  ups_delta, ups_time_old, ups_time : DWORD;

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

  MyTileGFX:array[0..5] of Cardinal;
  MyPanelGFX:array[0..10] of Cardinal;

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

 Game_style : array[0..3] of string =
  ('Клаccический вариант',
   'Бомбер',
   'Логиcтик',
   'Назад');

 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.
