New credits/rules/about scene content

Author: phomm

code/gameviewcredits.pas

@@ -1,5 +1,7 @@
 unit GameViewCredits;
 
+{$mode delphi}
+
 interface
 
 uses 
@@ -11,15 +13,21 @@ interface
 type
   TViewCredits = class(TCastleView)
   published
-    ButtonMenu, ButtonCastle, ButtonAuthor: TCastleButton;
+    ButtonMenu, ButtonCredits, ButtonRules, ButtonKeys, ButtonWeapon,
+      ButtonCastle, ButtonAuthor, ButtonItch, ButtonDiscord, ButtonWeb: TCastleButton;
+    GroupCredits, GroupRules, GroupKeys, GroupWeapon: TCastleUserInterface;
   public
     constructor Create(AOwner: TComponent); override;
     procedure Start; override;
     function Press(const Event: TInputPressRelease): Boolean; override;
   private
     procedure ButtonMenuClick(Sender: TObject);
+    procedure ButtonPanelClick(Sender: TObject);
     procedure ButtonCastleClick(Sender: TObject);
     procedure ButtonAuthorClick(Sender: TObject);
+    procedure ButtonItchClick(Sender: TObject);
+    procedure ButtonDiscordClick(Sender: TObject);
+    procedure ButtonWebClick(Sender: TObject);
   end;
 
 var
@@ -31,7 +39,7 @@ implementation
 // System
   SysUtils,
 // Castle  
-  castlewindow, CastleOpenDocument,
+  castlewindow, CastleOpenDocument, CastleApplicationProperties,
 // Own  
   gameviewmain;
 
@@ -44,9 +52,18 @@ constructor TViewCredits.Create(AOwner: TComponent);
 procedure TViewCredits.Start;
 begin
   inherited;
-  ButtonMenu.OnClick := @ButtonMenuClick;
-  ButtonCastle.OnClick := @ButtonCastleClick;
-  ButtonAuthor.OnClick := @ButtonAuthorClick;
+  ButtonMenu.OnClick := ButtonMenuClick;
+  ButtonCredits.OnClick := ButtonPanelClick;
+  ButtonRules.OnClick := ButtonPanelClick;
+  ButtonKeys.OnClick := ButtonPanelClick;
+  ButtonWeapon.OnClick := ButtonPanelClick;
+  ButtonCastle.OnClick := ButtonCastleClick;
+  ButtonAuthor.OnClick := ButtonAuthorClick;
+  ButtonItch.OnClick := ButtonItchClick;
+  ButtonDiscord.OnClick := ButtonDiscordClick;
+  ButtonWeb.OnClick := ButtonWebClick;
+
+  ButtonKeys.Exists := ApplicationProperties.ShowUserInterfaceToQuit {$IFDEF WASI} or True {$ENDIF};
 end;
 
 function TViewCredits.Press(const Event: TInputPressRelease): Boolean;
@@ -74,6 +91,33 @@ procedure TViewCredits.ButtonCastleClick(Sender: TObject);
 procedure TViewCredits.ButtonAuthorClick(Sender: TObject);
 begin
   OpenURL('https://github.com/phomm/Towerfight');
-end;  
+end;
+
+procedure TViewCredits.ButtonItchClick(Sender: TObject);
+begin
+  OpenURL('https://phomm.itch.io/tower-fight');
+end;
+
+procedure TViewCredits.ButtonDiscordClick(Sender: TObject);
+begin
+  OpenURL('https://discord.gg/fz7bbM3dr3');
+end;
+
+procedure TViewCredits.ButtonWebClick(Sender: TObject);
+begin
+  OpenURL('https://ephyre.ru');
+end;
+
+procedure TViewCredits.ButtonPanelClick(Sender: TObject);
+begin
+  GroupCredits.Exists := Sender = ButtonCredits;
+  GroupRules.Exists := Sender = ButtonRules;
+  GroupKeys.Exists := Sender = ButtonKeys;
+  GroupWeapon.Exists := Sender = ButtonWeapon;
+  ButtonCredits.Pressed := Sender = ButtonCredits;
+  ButtonRules.Pressed := Sender = ButtonRules;
+  ButtonKeys.Pressed := Sender = ButtonKeys;
+  ButtonWeapon.Pressed := Sender = ButtonWeapon;
+end;
 
 end.

code/gameviewformula.pas

@@ -85,7 +85,7 @@ procedure TViewFormula.Resume;
     if AMarked then
     begin
       LButton.ImageScale := 0.2;
-      LButton.Image.Url := 'castle-data:/resources/' + WeaponFileNames[Weapon];      
+      LButton.Image.Url := 'castle-data:/resources/' + WeaponFileNames[Weapon];
     end
     else
     begin

code/gameviewgame.pas

@@ -299,7 +299,7 @@ function TViewGame.Press(const Event: TInputPressRelease): Boolean;
   if Result then Exit; // allow the ancestor to handle keys
   if FPause then Exit;
 
-  if Event.IsKey(keyEscape) or Event.IsKey(keyBackSpace) then
+  if Event.IsKey(keyEscape) or Event.IsKey(keyBackSpace) or Event.IsKey(keyEnter) then
   begin
     ButtonDefeat.DoClick();
     Exit(True); // key was handled