unit uMainMenu;

interface

uses
  ElysionColors,
  ElysionTypes,
  ElysionStage,
  ElysionGraphics,
  ElysionTrueTypeFonts,
  ElysionApplication,
  ElysionGUI,
  ElysionInput;
  // and there are some other units which are not important right now

type
  TMainMenu = class(TelStage) // TelStage might be renamed in the final version
  private
    fBackground: TelSprite;
    fMenu: TelMenu;
    fFont: TelTrueTypeFont;
    fLogo: TelSprite;

    fNewGameClick: Boolean;
  public
    constructor Create; Override;
    destructor Destroy; Override;
	
    procedure Render; Override; // To render any objects from this main menu
    procedure Update(dt: Double); Override; // dt = DeltaTime: Allows time-independent animation/movement
    procedure HandleEvents; Override; // To check for input events like key presses or mouse events
  published
    property Background: TelSprite read fBackground write fBackground;
    property Font: TelTrueTypeFont read fFont write fFont;

    property Logo: TelSprite read fLogo write fLogo;
    property Menu: TelMenu read fMenu write fMenu;

    property NewGameClick: Boolean read fNewGameClick write fNewGameClick;
  end;

implementation

constructor TMainMenu.Create;
begin
  inherited;

  Background := TelSprite.Create;
  Background.LoadFromFile(GetResImgPath + 'background.jpg');

  fFont := TelTrueTypeFont.Create;
  fFont.LoadFromFile(GetStdFont, 14);
  fFont.Color := Color.clWhite;
  fFont.RenderStyle := rtBlended;

  Logo := TelSprite.Create;
  Logo.LoadFromFile(GetResImgPath + 'logo.png');
  Logo.Position.Make((ActiveWindow.Width - Logo.Width) div 2, 16, 0);

  Menu := TelMenu.Create;
  Menu.setButtons(GetResImgPath + 'button.png', GetStdFont, 15, ['New game', 'How to play', 'Credits', 'Settings', 'Quit']);
  Menu.Spacing := 16;
  Menu.Bounds.Make((ActiveWindow.Width - Menu.Width) div 2, Trunc(Logo.Position.Y + Logo.Height + 32));
  Menu.HoverAnimation := true;
  
end;

destructor TMainMenu.Destroy;
begin
  Menu.Destroy;

  inherited;
end;

procedure TMainMenu.Render;
begin
  Background.Draw;

  Logo.Draw;

  GUI.Box(makeRect(Menu.Bounds.X - 8, Menu.Bounds.Y - 8, Menu.Width + 16, Menu.Height), makeCol(0, 0, 0, 128));
  Menu.Draw;

  fFont.TextOut(makeV3f(8, ActiveWindow.Height - 50, 0), 'Some text \n With line break.');
end;

procedure TMainMenu.Update(dt: Double);
begin
  Menu.Update;
end;

procedure TMainMenu.HandleEvents;
begin
  if Menu.OnButtonClick('New game') then
  begin
    GameState := gsGame;
    fNewGameClick := true;
  end;

  if Menu.OnButtonClick('How to play') then GameState := gsInstructions;
  if Menu.OnButtonClick('Credits') then GameState := gsCredits;
  if Menu.OnButtonClick('Settings') then GameState := gsSettings;
  if Menu.OnButtonClick('Quit') or Input.Keyboard.IsKeyHit(Key.Escape) then Application.Quit;
end;

end.