diff --git a/Unit1.pas b/Unit1.pas index 5fc5e26..63f3046 100644 --- 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);