Fertige Unit1

ForzaMark · Feb 1, 2018 · fea6662 · fea6662
1 parent e6bcf79
commit fea6662
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/Unit1.pas b/Unit1.pas
@@ -53,8 +53,7 @@ procedure TForm1.FormCreate(Sender: TObject);
 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
 begin
 
- Edit1.Text:= IntToStr(Karte.getPosX);
- Edit2.Text:= IntToStr(Karte.getPosy);
+
 
   if (key = 'a') and Karte.prooveCoords(Karte.getPosX + 5,Karte.getPosY) then
    begin
@@ -103,7 +102,7 @@ procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
     if (Key = 'x') and (abs(Bot.getDistanceY()) <= abs(Bot.getFightDistanceY())) and (abs(Bot.getDistanceX()) <= abs(Bot.getFightDistanceX())) then
 
       begin
-       Timer1.Enabled:= false;
+
        ShowMessage(Bot.startConversation());
 
        Kampf := TFightSystem.Create(Form1,0,0);