Bug fixes and Story Updates + Update Function added

Ansgars_Adventure.dproj

@@ -60,8 +60,7 @@
         <AppEnableHighDPI>true</AppEnableHighDPI>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_MinorVer>1</VerInfo_MinorVer>
-        <VerInfo_Private>true</VerInfo_Private>
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;PrivateBuild=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.1.0.0;InternalName=Ansgars Adventure;LegalCopyright=GNU General Public License v3.0;LegalTrademarks=;OriginalFilename=;ProductName=Ansgars Adventure;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">

Ansgars_Adventure.dproj.local

@@ -1,18 +1,18 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899.12.30 00:00:00.000.dproj,E:\Info Projekt\2\Projekt\Ansgars_Adventure.dproj=E:\Info Projekt\2\Projekt\Project1.dproj</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.pas,H:\Informatik\Projekt\Unit2.pas=C:\Users\s2096\Documents\RAD Studio\Projekte\Unit2.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.394,F:\Info Projekt\2\Projekt\save.pas=F:\Info Projekt\2\Projekt\Unit4.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.dfm,H:\Informatik\Projekt\Unit1.dfm=C:\Users\s2096\Documents\RAD Studio\Projekte\Unit1.dfm</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.394,F:\Info Projekt\2\Projekt\Unit4.pas=F:\Info Projekt\2\Projekt\save.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.dproj,E:\Info Projekt\2\Projekt\Project1.dproj=E:\Info Projekt\2\Projekt\Ansgars_Adventure.dproj</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.798,F:\Info Projekt\Ansgars-adventure\load.dfm=F:\Info Projekt\Ansgars-adventure\Unit5.dfm</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.dfm,C:\Users\s2096\Documents\RAD Studio\Projekte\Unit2.dfm=H:\Informatik\Projekt\Unit2.dfm</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.pas,C:\Users\s2096\Documents\RAD Studio\Projekte\Unit2.pas=H:\Informatik\Projekt\Unit2.pas</Transaction>
     <Transaction>1899.12.30 00:00:00.000.689,=F:\Info Projekt\2\Projekt\Unit4.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.dproj,H:\Informatik\Projekt\Project1.dproj=C:\Users\s2096\Documents\RAD Studio\Projekte\Project1.dproj</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.798,F:\Info Projekt\Ansgars-adventure\Unit5.pas=F:\Info Projekt\Ansgars-adventure\load.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.394,F:\Info Projekt\2\Projekt\save.dfm=F:\Info Projekt\2\Projekt\Unit4.dfm</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.dproj,C:\Users\s2096\Documents\RAD Studio\Projekte\Project1.dproj=H:\Informatik\Projekt\Project1.dproj</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.798,F:\Info Projekt\Ansgars-adventure\load.pas=F:\Info Projekt\Ansgars-adventure\Unit5.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.pas,C:\Users\s2096\Documents\RAD Studio\Projekte\Unit1.pas=H:\Informatik\Projekt\Unit1.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.dfm,C:\Users\s2096\Documents\RAD Studio\Projekte\Unit1.dfm=H:\Informatik\Projekt\Unit1.dfm</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.pas,T:\Schulweiter Tausch\Info Projekt Zork Delphi\Projekt\Unit4.pas=T:\Schulweiter Tausch\Info Projekt Zork Delphi\Projekt\Objects.pas</Transaction>
     <Transaction>1899.12.30 00:00:00.000.974,=F:\Info Projekt\2\Ansgars-adventure\Unit5.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.pas,H:\Informatik\Projekt\Unit1.pas=C:\Users\s2096\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.798,F:\Info Projekt\Ansgars-adventure\Unit5.dfm=F:\Info Projekt\Ansgars-adventure\load.dfm</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.dfm,H:\Informatik\Projekt\Unit2.dfm=C:\Users\s2096\Documents\RAD Studio\Projekte\Unit2.dfm</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.pas,T:\Schulweiter Tausch\Info Projekt Zork Delphi\Projekt\Objects.pas=T:\Schulweiter Tausch\Info Projekt Zork Delphi\Projekt\Unit4.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.394,F:\Info Projekt\2\Projekt\Unit4.dfm=F:\Info Projekt\2\Projekt\save.dfm</Transaction>
   </Transactions>
 </BorlandProject>

Ansgars_Adventure.stat

@@ -1,10 +1,10 @@
 [Stats]
-EditorSecs=4957
-DesignerSecs=168
-InspectorSecs=206
-CompileSecs=53405
-OtherSecs=498
+EditorSecs=5212
+DesignerSecs=252
+InspectorSecs=243
+CompileSecs=104271
+OtherSecs=914
 StartTime=20.03.2018 08:20:45
 RealKeys=0
 EffectiveKeys=0
-DebugSecs=140
+DebugSecs=622

Objects.pas

@@ -62,7 +62,7 @@ destructor Tplayer.free();                                            //destruct
 
 procedure Tplayer.addItem(item: string);                              //items hinzufügen
 begin
-  self.items.Add(item);
+  self.items.append(item);
 end;
 
 function Tplayer.checkForItem(item : String) : boolean;               //items testen
@@ -242,26 +242,26 @@ function Tplayer.setEffect(effect : tstringlist) : boolean;
       case IndexStr(abfrage,['Gold', 'Armor', 'HP', 'Strength', 'Item']) of
       0:Begin
         con2 := StrToInt(con);
-        if player.gold > con2 then
+        if player.gold >= con2 then
           result := ''
         else result := con + ' Gold';
       End;
       1:Begin
         con2 := StrToInt(con);
-        if player.armor > con2 then
+        if player.armor >= con2 then
            result := ''
         else result := con + ' Armor';
       End;
       2:Begin
         con2 := StrToInt(con);
-        if player.health > con2 then
+        if player.health >= con2 then
           result := ''
         else
           result := con + ' HP';
       End;
       3:Begin
         con2 := StrToInt(con);
-        if player.strength > con2 then
+        if player.strength >= con2 then
           result := ''
         else result := con + ' Strength';
       End;

Story/Story1-2-1-2.txt

@@ -1,6 +1,6 @@
 3
-Das einziges Verlust Gesch�ft du hast 5 Gold verloren!
+Das ist ein einziges Verlust Gesch�ft du hast 5 Gold verloren!
 
 Das muss doch gef�ltscht sein!
 1
-0|Zur�ckkehren|\Story\Story1-2-1.txt 
+2|Zur�ckkehren|\Story\Story1-2-1.txt|Gold:-5 

Story/Story1-2-1.txt

@@ -5,5 +5,5 @@ Und weiter hinten befindet sich ein Spieltisch.
 M�chtest du spielen?
 3
 1|Den Barkeeper fragen|\Story\Story1-2-1-1.txt|Item:Zugnirs Klinge
-2|Ein bisschen spielen|\Story\Story1-2-1-2.txt|Gold:-5
-0|Zur�ckkehren|\Story\zwischen1-1.txt
+1|Ein bisschen spielen|\Story\Story1-2-1-2.txt|Gold:5
+0|Zur�ckkehren|\Story\zwischen1-2.txt

Story/Story1-2-2.txt

@@ -3,5 +3,5 @@ Als du reinkamst fragt dich der Schmied was du kaufen m
 Doch er entschuldigt sich gleich w�hrenddessen dass er nur eine Klinge bes��e.
 M�chtest du sie kaufen oder doch lieber zum Hauptplatz zur�ckkehren?
 2
-1|Kaufen|\Story\zwischen1-2-2.txt|Gold:30
-0|Zur�ckkehren|\Story\zwischen1-1.txt
+3|Kaufen|\Story\zwischen1-2-2.txt|Gold:30|Item:Zugnirs Klinge
+0|Zur�ckkehren|\Story\zwischen1-2.txt

Story/zwischen1-2.txt

@@ -1,5 +1,6 @@
-1
-Bist du fertig m�chtest du gehen?
+2
+M�chtest du auf dem Dorfplatz bleiben?
+Oder bist du doch schon fertig und m�chtest zur�ckkehren?
 2
 0|Nein hier bleiben!|\Story\Story1-2.txt|Strength:-1
 0|Ja ich will zur�ckkehren|\Story\Story1-1.txt

Story/zwischen1.txt

@@ -1,4 +1,6 @@
+3
 W�hrend du dich auf den R�ckweg bewegen wolltest. F�llst du pl�tzlich in Ohnmacht 
 Alles um dich herrum wird Schwarz und als du auf dem Boden lagst wurdest du ohnm�chtig.
 Du bemerkst nur noch wie jemand versucht dich an einen anderen Ort zu ziehen. Doch alles andere verschwimmt
+1
 2|Weiter|\Story\Story2.txt|HP:10

Unit1.dfm

@@ -1793,6 +1793,7 @@ object Form1: TForm1
     0000000000003FF80000000000000000000000000000000000007FF80000}
   OldCreateOrder = False
   Position = poOwnerFormCenter
+  OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 20
   object Memo1: TMemo

Unit1.pas

@@ -25,6 +25,7 @@   TForm1 = class(TForm)
     procedure Button8Click(Sender: TObject);
     procedure Button6Click(Sender: TObject);
     procedure Button7Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
 
   private
     { Private-Deklarationen }
@@ -100,6 +101,11 @@ function TForm1.checkCondition() : Boolean;
     StoryContinue();
 end;
 
+procedure TForm1.FormCreate(Sender: TObject);  //Initialisierung des Inventory Menüs
+begin
+  Form3.setInventory('Hier ist nichts!');
+end;
+
 //Dateien können hiermit in Stringlists umgewandelt werden
 function TForm1.getText(filename : String) : tstringlist;
 begin

Unit2.dfm

@@ -1834,4 +1834,19 @@ object Form2: TForm2
     TabOrder = 2
     OnClick = Button4Click
   end
+  object Button2: TButton
+    Left = 824
+    Top = 8
+    Width = 128
+    Height = 41
+    Caption = 'New Versions'
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Courier'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 3
+    OnClick = Button2Click
+  end
 end

Unit2.pas

@@ -4,17 +4,19 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls;
+  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
@@ -37,15 +39,20 @@ procedure TForm2.Button1Click(Sender: TObject);            //Start Game
   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!' + #10#13 + 'Texturen von Nicolas und Dominik Schumann' + #10#13 + #10#13 + 'Copyright by Ansgars Adventure!');
+  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);
+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ß! :)');
+  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.

Unit3.dfm

@@ -4,8 +4,8 @@ object Form3: TForm3
   BorderIcons = [biSystemMenu, biMinimize]
   BorderStyle = bsSingle
   Caption = 'Stats'
-  ClientHeight = 460
-  ClientWidth = 328
+  ClientHeight = 462
+  ClientWidth = 305
   Color = clBtnFace
   Font.Charset = ANSI_CHARSET
   Font.Color = clWindowText
@@ -1999,17 +1999,17 @@ object Form3: TForm3
   end
   object Label1: TLabel
     Left = 192
-    Top = 32
+    Top = 72
     Width = 36
     Height = 20
     Caption = 'Du:'
   end
   object Label2: TLabel
     Left = 192
-    Top = 80
+    Top = 112
     Width = 72
     Height = 20
-    Caption = 'Michal'
+    Caption = 'Ansgar'
   end
   object Label3: TLabel
     Left = 32
@@ -2018,14 +2018,6 @@ object Form3: TForm3
     Height = 20
     Caption = 'Inventory:'
   end
-  object Label4: TLabel
-    Left = 32
-    Top = 240
-    Width = 36
-    Height = 20
-    Caption = 'n/a'
-    WordWrap = True
-  end
   object Label5: TLabel
     Left = 32
     Top = 288
@@ -2054,4 +2046,13 @@ object Form3: TForm3
     Height = 20
     Caption = 'St'#228'rke: n/a'
   end
+  object Button1: TButton
+    Left = 32
+    Top = 234
+    Width = 97
+    Height = 31
+    Caption = #214'ffnen'
+    TabOrder = 0
+    OnClick = Button1Click
+  end
 end

Unit3.pas

@@ -12,27 +12,41 @@   TForm3 = class(TForm)
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
-    Label4: TLabel;
     Label5: TLabel;
     Label6: TLabel;
     Label7: TLabel;
     Label8: TLabel;
+    Button1: TButton;
+    procedure Button1Click(Sender: TObject);
   private
     { Private-Deklarationen }
   public
     { Public-Deklarationen }
     procedure onUpdate(player : Tplayer);
+    procedure setInventory(setter : String);
   end;
 
 var
   Form3: TForm3;
+  Inventory: String;
 
 implementation
 
 uses Unit1;
 
 {$R *.dfm}
                                                                       //Stats updaten!
+
+procedure TForm3.setInventory;
+begin
+  Inventory := setter;
+end;
+
+procedure TForm3.Button1Click(Sender: TObject);  //Inventory Menü öffnen
+begin
+  ShowMessage(Inventory);
+end;
+
 procedure TForm3.onUpdate(player: Tplayer);
 var items : tstringlist;
     i : integer;
@@ -47,13 +61,16 @@ procedure TForm3.onUpdate(player: Tplayer);
     for i := 0 to items.Count -1 do
     Begin
       if i = 0 then
-        Label4.Caption := items[i]
+      Begin
+        Inventory := '';
+        Inventory := items[i];
+      End
       else
-        Label4.Caption := Label4.Caption + ', ' + items[i];
+        Inventory := Inventory + #10#13 + items[i];
     End;
   End
   else
-    Label4.Caption := '';
+    Inventory := 'Hier ist nichts!';
 
 end;