ForzaMark · ForzaMark · Mar 14, 2018 · Mar 8, 2018 · Mar 14, 2018 · Mar 14, 2018
diff --git a/Pokemon1.png b/Pokemon1.png
diff --git a/Pokemon10.png b/Pokemon10.png
diff --git a/Pokemon11.png b/Pokemon11.png
diff --git a/Pokemon12.png b/Pokemon12.png
diff --git a/Pokemon13.png b/Pokemon13.png
diff --git a/Pokemon14.png b/Pokemon14.png
diff --git a/Pokemon15.png b/Pokemon15.png
diff --git a/Pokemon16.png b/Pokemon16.png
diff --git a/Pokemon17.png b/Pokemon17.png
diff --git a/Pokemon18.png b/Pokemon18.png
diff --git a/Pokemon19.png b/Pokemon19.png
diff --git a/Pokemon2.png b/Pokemon2.png
diff --git a/Pokemon20.png b/Pokemon20.png
diff --git a/Pokemon21.png b/Pokemon21.png
diff --git a/Pokemon22.png b/Pokemon22.png
diff --git a/Pokemon23.png b/Pokemon23.png
diff --git a/Pokemon24.png b/Pokemon24.png
diff --git a/Pokemon25.png b/Pokemon25.png
diff --git a/Pokemon26.png b/Pokemon26.png
diff --git a/Pokemon27.png b/Pokemon27.png
diff --git a/Pokemon28.png b/Pokemon28.png
diff --git a/Pokemon29.png b/Pokemon29.png
diff --git a/Pokemon3.png b/Pokemon3.png
diff --git a/Pokemon30.png b/Pokemon30.png
diff --git a/Pokemon31.png b/Pokemon31.png
diff --git a/Pokemon32.png b/Pokemon32.png
diff --git a/Pokemon33.png b/Pokemon33.png
diff --git a/Pokemon34.png b/Pokemon34.png
diff --git a/Pokemon35.png b/Pokemon35.png
diff --git a/Pokemon36.png b/Pokemon36.png
diff --git a/Pokemon37.png b/Pokemon37.png
diff --git a/Pokemon38.png b/Pokemon38.png
diff --git a/Pokemon39.png b/Pokemon39.png
diff --git a/Pokemon4.png b/Pokemon4.png
diff --git a/Pokemon40.png b/Pokemon40.png
diff --git a/Pokemon41.png b/Pokemon41.png
diff --git a/Pokemon42.png b/Pokemon42.png
diff --git a/Pokemon43.png b/Pokemon43.png
diff --git a/Pokemon44.png b/Pokemon44.png
diff --git a/Pokemon45.png b/Pokemon45.png
diff --git a/Pokemon46.png b/Pokemon46.png
diff --git a/Pokemon47.png b/Pokemon47.png
diff --git a/Pokemon48.png b/Pokemon48.png
diff --git a/Pokemon49.png b/Pokemon49.png
diff --git a/Pokemon5.png b/Pokemon5.png
diff --git a/Pokemon50.png b/Pokemon50.png
diff --git a/Pokemon51.png b/Pokemon51.png
diff --git a/Pokemon52.png b/Pokemon52.png
diff --git a/Pokemon53.png b/Pokemon53.png
diff --git a/Pokemon6.png b/Pokemon6.png
diff --git a/Pokemon7.png b/Pokemon7.png
diff --git a/Pokemon8.png b/Pokemon8.png
diff --git a/Pokemon9.png b/Pokemon9.png
diff --git a/Unit1.pas b/Unit1.pas
@@ -0,0 +1,276 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, TBot,TSpielfigur,TKarte, ExtCtrls, StdCtrls,uTFightInterface,uTPokemon,pngimage;
+  //pngimage kommt von Vorlagen/Informatik/ga-if/12/BeispielPNG ... Zu genaueren Quellen
+  //Herr Markert fragen
+
+type
+  TForm1 = class(TForm)
+    procedure FormCreate(Sender: TObject);
+    procedure FormKeyPress(Sender: TObject; var Key: Char);
+    procedure AttackButton1Click(Sender: TObject); //!
+    procedure AttackButton2Click(Sender: TObject); //!
+    procedure AttackButton3Click(Sender: TObject); //!
+    procedure AttackButton4Click(Sender: TObject); //!
+    //procedure Timer1Timer(Sender: TObject);
+  private
+    { Private-Deklarationen }
+  public
+    { Public-Deklarationen }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+
+
+{$R *.dfm}
+
+var Karte : TKarte1;
+var Spielfigur : TSpielfigur1;
+var Bot : TBot1;
+var Kampf : TFightInterface;
+var Pokemon1,Pokemon2 : TPokemon;
+  AttackButton1,AttackButton2, AttackButton3, AttackButton4 : TButton; //!
+  HPLabel1, HPLabel2, XPLabel, NameLabel2: TLabel; //!
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+    Karte := TKarte1.Create(Form1,0,0);
+    Karte.paintbackground('newback.bmp');
+    Spielfigur := TSpielfigur1.Create(Form1,50,50);
+    Bot := TBot1.Create(Form1,375,115) ;
+
+    Bot.setFightDistanceX(0);
+    Bot.setFightDistanceY(21);
+
+
+
+end;
+
+procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
+var NameLabel1: TLabel;
+begin
+
+
+
+  if (key = 'a') and Karte.prooveCoords(Karte.getPosX + 5,Karte.getPosY) then
+   begin
+
+       Karte.setPosX(5);
+       Spielfigur.paintFigur(1);
+       Bot.setPosX(5);
+       Bot.setDistanceX(Spielfigur.getLeft);
+       Bot.setDistanceY(Spielfigur.getTop());
+    end;
+
+   if (key = 'd') and Karte.prooveCoords(Karte.getPosX - 5,Karte.getPosY) then
+   begin
+       Karte.setPosX(-5);
+       Spielfigur.paintFigur(2);
+       Bot.setPosX(-5);
+       Bot.setDistanceX(Spielfigur.getLeft);
+       Bot.setDistanceY(Spielfigur.getTop());
+    end;
+
+    if (key = 's') and Karte.prooveCoords(Karte.getPosX ,Karte.getPosY - 5) then
+   begin
+
+       Karte.setPosY(-5);
+       Spielfigur.paintFigur(4);
+       Bot.setPosY(-5);
+       Bot.setDistanceX(Spielfigur.getLeft);
+       Bot.setDistanceY(Spielfigur.getTop());
+    end;
+
+
+    if (key = 'w') and Karte.prooveCoords(Karte.getPosX ,Karte.getPosY + 5) then
+   begin
+
+       Karte.setPosY(5);
+       Spielfigur.paintFigur(3);
+       Bot.setPosY(5);
+       Bot.setDistanceX(Spielfigur.getLeft);
+       Bot.setDistanceY(Spielfigur.getTop());
+    end;
+
+
+    if (Key = 'x') and (Karte.getPosX = -365) and (Karte.getPosY = -50) then ShowMessage('Sie befinden sich in der Schulstra�e\n Gehen sie auf das blaue Feld um auf den Schulhof zu gelangen');
+
+
+    if (Key = 'x') and (abs(Bot.getDistanceY()) <= abs(Bot.getFightDistanceY())) and (abs(Bot.getDistanceX()) <= abs(Bot.getFightDistanceX())) then
+
+      begin
+
+       ShowMessage(Bot.startConversation());
+
+       Kampf := TFightInterface.Create(Form1,0,0);
+       Pokemon1 := TPokemon.create(Form1,1,4,true); //!
+       Pokemon2 := TPokemon.create(Form1,2,5,false); //!
+
+       Pokemon1.drawPokemon(Form1,410,70); //!
+       Pokemon2.drawPokemon(Form1,60,345); //!
+
+       Form1.ClientHeight:= 720;
+       Form1.ClientWidth:= 720;
+
+       begin
+
+  AttackButton1:=TButton.Create(Self);
+  AttackButton1.Parent:=Self;
+  AttackButton1.Caption:=Pokemon2.getattacke1.Name + ' ' + IntToStr(Pokemon2.getattacke1.AP); //!
+  AttackButton1.Left:=40;
+  AttackButton1.Top:=550;
+  AttackButton1.Width:=250;
+  AttackButton1.Height:=40;
+  AttackButton1.OnClick:= Attackbutton1click;   //!
+
+  AttackButton2:=TButton.Create(Self);
+  AttackButton2.Parent:=Self;
+  AttackButton2.Caption:=Pokemon2.getattacke2.Name + ' ' + IntToStr(Pokemon2.getattacke2.AP); //!
+  AttackButton2.Left:=420;
+  AttackButton2.Top:=550;
+  AttackButton2.Width:=250;
+  AttackButton2.Height:=40;
+  AttackButton2.OnClick:= Attackbutton2click; //!
+
+  AttackButton3:=TButton.Create(Self);
+  AttackButton3.Parent:=Self;
+  AttackButton3.Caption:=Pokemon2.getattacke3.Name + ' ' + IntToStr(Pokemon2.getattacke3.AP); //!
+  AttackButton3.Left:=40;
+  AttackButton3.Top:=645;
+  AttackButton3.Width:=250;
+  AttackButton3.Height:=40;
+  AttackButton3.OnClick:= Attackbutton3click; //!
+
+  AttackButton4:=TButton.Create(Self);
+  AttackButton4.Parent:=Self;
+  AttackButton4.Caption:= Pokemon2.getattacke4.Name + ' ' + IntToStr(Pokemon2.getattacke4.AP); //!
+  AttackButton4.Left:=420;
+  AttackButton4.Top:=645;
+  AttackButton4.Width:=250;
+  AttackButton4.Height:=40;
+  AttackButton4.OnClick:= Attackbutton4click;  //!
+
+// ab hier alles neu
+  HPLabel1:=TLabel.Create(Self);
+  with HPLabel1 do begin
+    Parent:=self;
+    Top:= 165;
+    Left:= 25;
+    Width:=80;
+    Height:=20;
+    Caption:= 'HP: '+ IntToStr(Pokemon1.getcurrentHP)+'/'+ IntToStr(Pokemon1.getmaxHP);
+    Font.Size:= 20;
+  end;
+
+  HPLabel2:=TLabel.Create(Self);
+  with HPLabel2 do begin
+    Parent:=self;
+    Top:= 416;
+    Left:= 400;
+    Width:=80;
+    Height:=20;
+    Caption:= 'HP: '+ IntToStr(Pokemon2.getcurrentHP)+'/'+ IntToStr(Pokemon2.getmaxHP);
+    Font.Size:= 20;
+  end;
+
+  XPLabel:=TLabel.Create(Self);
+  with XPLabel do begin
+    Parent:=self;
+    Top:= 447;
+    Left:= 400;
+    Width:=80;
+    Height:=20;
+    Caption:= 'XP: '+ IntToStr(Pokemon2.getXP)+'/100';
+    Font.Size:= 15;
+  end;
+
+  NameLabel1:=TLabel.Create(Self);
+  with NAmeLabel1 do begin
+    Parent:=self;
+    Top:= 135;
+    Left:= 25;
+    Width:=80;
+    Height:=20;
+    Caption:= Pokemon1.getName + ' Lvl.' + IntToStr(Pokemon1.getLevel);
+    Font.Size:= 25;
+  end;
+  NameLabel2:=TLabel.Create(Self);
+  with NameLabel2 do begin
+    Parent:=self;
+    Top:= 385;
+    Left:= 400;
+    Width:=80;
+    Height:=20;
+    Caption:= Pokemon2.getName + ' Lvl.' + IntToStr(Pokemon2.getLevel);
+    Font.Size:= 25;
+  end;
+end;
+
+end;
+
+
+end;
+
+procedure TForm1.AttackButton1Click(sender:TObject);
+begin
+  Pokemon2.Angriff(Pokemon1,1);
+  if Pokemon1.getcurrentHP<>0 then Pokemon1.Angriff(Pokemon2,1);
+  AttackButton1.Caption:=Pokemon2.getattacke1.Name + ' ' + IntToStr(Pokemon2.getattacke1.AP);
+  HPLabel2.Caption:= 'HP: '+ IntToStr(Pokemon2.getcurrentHP)+'/'+ IntToStr(Pokemon2.getmaxHP);
+  HPLabel1.Caption:= 'HP: '+ IntToStr(Pokemon1.getcurrentHP)+'/'+ IntToStr(Pokemon1.getmaxHP);
+  XPLabel.Caption:= 'XP: '+ IntToStr(Pokemon2.getXP)+'/100';
+  NameLabel2.Caption:= Pokemon2.getName + ' Lvl.' + IntToStr(Pokemon2.getLevel);
+  if Pokemon1.getcurrentHP <= 0 then showmessage('Du hast gewonnen!');
+  if Pokemon2.getcurrentHP <= 0 then showmessage('Du hast verloren...');
+end;
+
+procedure TForm1.AttackButton2Click(sender:TObject);
+begin
+  Pokemon2.Angriff(Pokemon1,2);
+  if Pokemon1.getcurrentHP<>0 then Pokemon1.Angriff(Pokemon2,1);
+  AttackButton2.Caption:=Pokemon2.getattacke2.Name + ' ' + IntToStr(Pokemon2.getattacke2.AP);
+  HPLabel2.Caption:= 'HP: '+ IntToStr(Pokemon2.getcurrentHP)+'/'+ IntToStr(Pokemon2.getmaxHP);
+  HPLabel1.Caption:= 'HP: '+ IntToStr(Pokemon1.getcurrentHP)+'/'+ IntToStr(Pokemon1.getmaxHP);
+  XPLabel.Caption:= 'XP: '+ IntToStr(Pokemon2.getXP)+'/100';
+  NameLabel2.Caption:= Pokemon2.getName + ' Lvl.' + IntToStr(Pokemon2.getLevel);
+  if Pokemon1.getcurrentHP <= 0 then showmessage('Du hast gewonnen!');
+  if Pokemon2.getcurrentHP <= 0 then showmessage('Du hast verloren...');
+end;
+
+procedure TForm1.AttackButton3Click(sender:TObject);
+begin
+  Pokemon2.Angriff(Pokemon1,3);
+  if Pokemon1.getcurrentHP<>0 then Pokemon1.Angriff(Pokemon2,1);
+  AttackButton3.Caption:=Pokemon2.getattacke3.Name + ' ' + IntToStr(Pokemon2.getattacke3.AP);
+  HPLabel2.Caption:= 'HP: '+ IntToStr(Pokemon2.getcurrentHP)+'/'+ IntToStr(Pokemon2.getmaxHP);
+  HPLabel1.Caption:= 'HP: '+ IntToStr(Pokemon1.getcurrentHP)+'/'+ IntToStr(Pokemon1.getmaxHP);
+  XPLabel.Caption:= 'XP: '+ IntToStr(Pokemon2.getXP)+'/100';
+  NameLabel2.Caption:= Pokemon2.getName + ' Lvl.' + IntToStr(Pokemon2.getLevel);
+  if Pokemon1.getcurrentHP <= 0 then showmessage('Du hast gewonnen!');
+  if Pokemon2.getcurrentHP <= 0 then showmessage('Du hast verloren...');
+end;
+
+procedure TForm1.AttackButton4Click(sender:TObject);
+begin
+  Pokemon2.Angriff(Pokemon1,4);
+  if Pokemon1.getcurrentHP<>0 then Pokemon1.Angriff(Pokemon2,1);
+  AttackButton4.Caption:=Pokemon2.getattacke4.Name + ' ' + IntToStr(Pokemon2.getattacke4.AP);
+  HPLabel2.Caption:= 'HP: '+ IntToStr(Pokemon2.getcurrentHP)+'/'+ IntToStr(Pokemon2.getmaxHP);
+  HPLabel1.Caption:= 'HP: '+ IntToStr(Pokemon1.getcurrentHP)+'/'+ IntToStr(Pokemon1.getmaxHP);
+  XPLabel.Caption:= 'XP: '+ IntToStr(Pokemon2.getXP)+'/100';
+  NameLabel2.Caption:= Pokemon2.getName + ' Lvl.' + IntToStr(Pokemon2.getLevel);
+  if Pokemon1.getcurrentHP <= 0 then showmessage('Du hast gewonnen!');
+  if Pokemon2.getcurrentHP <= 0 then showmessage('Du hast verloren...');
+end;
+
+
+
+end.
diff --git a/abra.PNG b/abra.PNG
diff --git a/flemmli.png b/flemmli.png
diff --git a/geckabor.png b/geckabor.png
diff --git a/hydropi.png b/hydropi.png
diff --git a/knilz.PNG b/knilz.PNG