{

Copyright 2023-2024 Michalis Kamburelis, Eugene Loza.

This file is part of "Castle Game Engine".

"Castle Game Engine" is free software; see the file COPYING.txt,

included in this distribution, for details about the copyright.

"Castle Game Engine" is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

----------------------------------------------------------------------------

}

{ Game initialization.

This unit is cross-platform.

It will be used by the platform-specific program or library file. }

unit GameInitialize;

interface

implementation

uses SysUtils,

CastleWindow, CastleLog, CastleUIControls, CastleSteam,

GameSteam

{$region 'Castle Initialization Uses'}

// The content here may be automatically updated by CGE editor.

, GameViewMain

{$endregion 'Castle Initialization Uses'};

var

Window: TCastleWindow;

{ One-time initialization of resources. }

procedure ApplicationInitialize;

begin

{ Adjust container settings for a scalable UI (adjusts to any window size in a smart way). }

Window.Container.LoadSettings('castle-data:/CastleSettings.xml');

Steam := TCastleSteam.Create(AppId);

{ Create TViewMain that will handle "main" view of the game.

Larger games may use multiple views,

e.g. TViewMainMenu ("main menu view"),

TViewPlay ("playing the game view"),

TViewCredits ("showing the credits view") etc. }

{$region 'Castle View Creation'}

// The content here may be automatically updated by CGE editor.

ViewMain := TViewMain.Create(Application);

{$endregion 'Castle View Creation'}

Window.Container.View := ViewMain;

end;

initialization

Randomize;

{ This initialization section configures:

- Application.OnInitialize

- Application.MainWindow

- determines initial window size

You should not need to do anything more in this initialization section.

Most of your actual application initialization (in particular, any file reading)

should happen inside ApplicationInitialize. }

Application.OnInitialize := @ApplicationInitialize;

Window := TCastleWindow.Create(Application);

Application.MainWindow := Window;

{ Optionally, adjust window fullscreen state and size at this point.

See https://castle-engine.io/window_size . }

// Fullscreen by default, makes Steam overlay look better

Window.FullScreen := true;

{ Handle command-line parameters like --fullscreen and --window.

By doing this last, you let user to override your fullscreen / mode setup. }

Window.ParseParameters;

end.