program cubiz;

{$mode delphi}
{$I zglCustomConfig.cfg}
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,
  { you can add units after this }
  zglHeader,
  core_unit,
  sceneUnit,
  var_const,
  cursor_Scene,
  GameUnits,
  LevelUnit,
  enemy_Unit, menu_scene;

begin
  if not zglLoad( libZenGL ) Then exit;
  Game := TCore.Create;
  //Game.SetScreenParams(1024,768, False);
  Game.SetScreenParams(zgl_Get( DESKTOP_WIDTH ),zgl_Get( DESKTOP_HEIGHT ), true);
  //Game.SetScreenParams(800,600, false);
  Cursor := TCursor.Create('Cursor');
  Game.AddScene(Cursor);

  {GameScene:=TLevelScene.Create('levelScene');
  Game.AddScene(GameScene);


  Game.PlayScene('levelScene');    }

  menuScene:=TMenu.Create('menuScene');
    Game.AddScene(menuScene);
  Game.PlayScene('menuScene');

  Game.ShowCursor;
  Game.Start();
  {end game}
  Game.Destroy;
end.


