Unit2.pas

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellApi;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;


implementation
uses Unit1;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);            //Start Game
begin
  //fen:= TForm1.Create(self);
  //fen.Show;
  Form2.Hide;
  Form1.Show;
end;

procedure TForm2.Button2Click(Sender: TObject);            //New Versions
begin
  ShellExecute(Handle, 'open', 'www.github.com/Dommicrafter/Ansgars-adventure/releases', nil, nil, SW_SHOWNORMAL);    //Befehl um Website im Standardbrowser anzuzeigen
end;

procedure TForm2.Button3Click(Sender: TObject);            //Impressum
begin
  ShowMessage('Progrmmiert von Dominik Schumann'+ #10#13 + 'Story entwickelt von Tim Linneken und teilw. von Dominik Schumann!' + #10#13 + 'Texturen von Nicolas Bätz und Dominik Schumann' + #10#13 + 'Ein Projekt des Theodor-Fontane Gymnasiums Strausberg' + #10#13 + 'Abgabe: 22.03.2018' + #10#13 + #10#13 + 'Copyright by Ansgars Adventure!' + #10#13 + #10#13 + 'Momentane Version: v1.1!' + #10#13 + 'Die neuste Version findest du auf:' + #10#13 + 'https://github.com/Dommicrafter/Ansgars-adventure/releases');
end;


procedure TForm2.Button4Click(Sender: TObject);            //Help
begin
  ShowMessage('In diesem Spiel steuerst du unseren Helden Ansgar!' + #10#13 + 'Begib dich auf eine epische Reise wo DU die Entscheidungen triffst!' + #10#13 + 'Mehr dazu im Prolog' + #10#13 + #10#13 + 'Wenn du das Spiel Starten möchtest klicke im neuem Fenster auf New' + #10#13 + 'Im unterem Teil des Fenster bekommst du für jeden Teil der Geschichte' + #10#13 + 'bis zu drei Auswahlmöglichkeiten!' + #10#13 + 'Zum speichern klicke auf Save und wähle ein Speicher Profil deiner Wahl aus' + #10#13 + 'Zum laden wählst du das entsprechende Profil ebenfalls aus' + #10#13 + #10#13 + 'Es wird empfohlen das Spiel mit dem offenem Stats Fenster zu spielen' + #10#13 + 'Viel Spaß! :)');
end;

end.