Abwechselnd angreifen

[Doenercola]

Ich habs schon geahnt dass es mit repeat geht! Danke euch beiden!
Zum Verständnis: SpielerZieht und GegnerZieht sind eigene Prozeduren, eben die die angreifen, und am Ende einer Prozedur soll gecheckt werden ob die LP 0 oder unter 0 sind? Wird das net bei dem until auch festgelegt?

SpielerIstAmZug := not SpielerIstAmZug; und mit dieser Zeile stellt man die Flag auf False sozusagen, für weitere Missionen, richtig?

[stahli]

Ja richtig.

Deine Prozedur könnte so aussehen:

Delphi-Quellcode:

procedure SpielerZieht(var XYZ: Boolean; LP: Integer);
begin
  ...
  if SpieleristTot then
    XYZ := True;
end;

Du solltest alle benötigten Variablen in der Prozedur übergeben. Sollen veränderte Werte zurückgegeben werden können, muss man sie mit "var" definieren.
Wie die Parameter der Prozedur benannt sind, ist dabei egal. XYZ wäre natürlich trotzdem nicht sinnvoll.

[Doenercola]

Alles klar DAnkeschön! Ihr glaubt garnet wie sehr ihr mir geholfen habt Ich mach mich gleich dran und meld mich morgen nochmal obs geklappt hat, Danke!

[Doenercola]

Ich hab ein wenig rumprobiert aber es will noch net so recht klappen Er lässt den Gegner nicht angreifen. Der Spieler greigt die ganze Zeit den Gegner an. Wenn ich in der Schleife nur die GegnerZieht Prozedur drinnen habe verliere ich, wenn ich beide verschiedene Prozeduren drinnen habe gewinne ich immer, egal wie ich es drehe.

Alle Variablen hab ich mal der Einfachheit halber Global gesetzt, bis auf die Flag und die Abbruchbedingung in der SChleife.

Delphi-Quellcode:

procedure SpielerZieht(var Ende : Boolean);
begin
 GegnerLP := GegnerLP - SpielerAP;  // Kampf
 Rundenzahl := Rundenzahl + 1;
        if GegnerLP <= 0 then
        begin
          Ende := True;  // Abbruchbedingung auf True setzen
          Gold := Gold + ((Stufe * 30) * GoldMultiplikator);  // Goldbelohnung
          SpielerLP := Lebenspunkte;  // Lebenspunktevariable mit dem Wert der SpielerLP Variable überschreiben
          Form1.Pnl_Lebenspunkte.Caption := IntToStr(Lebenspunkte);  // LP-Anzeige aktualisieren
          Aktionspunkte := Aktionspunkte - 20;  // AP abziehen
          Form1.Pnl_Aktionspunkte.Caption := IntToStr(Aktionspunkte);  // AP-Anzeige aktualisieren

          Form1.Memo_Textausgabe.Text := Form1.Memo_Textausgabe.Text +        // Informationen über Kampf ausgeben
                                 'Du hast den Kampf nach ' +
                                 IntToStr(Rundenzahl) +
                                 ' Runden gewonnen. :) Nach dem Kampf hast Du noch ' +
                                 IntToStr(SpielerLP) + ' Lebenspunkte und ' +
                                 IntToStr(Aktionspunkte) + ' Aktionspunkte übrig.';
        end;
end;

procedure GegnerZieht(var Ende : Boolean);
begin
  SpielerLP := SpielerLP - GegnerAP;  // Kampf
  Rundenzahl := Rundenzahl +1;
     if SpielerLP <= 0 then                                                 // Was passiert wenn SpielerLP <= Null sind
     begin
       Ende := True;                                                       // Abbruchbedingung auf True setzen
       Lebenspunkte := 1;     // LP auf 1 setzen
       Form1.Pnl_Lebenspunkte.Caption := IntToStr(Lebenspunkte);   // LP-Anzeige aktualisieren
       Aktionspunkte := Aktionspunkte - 20;   // AP abziehen
       Form1.Pnl_Aktionspunkte.Caption := IntToStr(Aktionspunkte);  // AP-ANzeige aktualisieren
       Form1.Memo_Textausgabe.Text := Form1.Memo_Textausgabe.Text +       // Informationen über Kampf ausgeben
                                 'Du hast den Kampf nach ' +
                                 IntToStr(Rundenzahl) +
                                 ' Runden verloren. :( Der Gegner hatte noch  ' +
                                 FloatToStr(GegnerLP) + ' Lebenspunkte übrig.';
     end;
end;


procedure TForm1.BitBtn_AngriffClick(Sender: TObject);
var Ende, SpielerIstAmZug : Boolean;
begin

if Aktionspunkte > 20 then
  begin
    Ende := False;  // Abbruchbedingung noch nicht gegeben
    SpielerIstAmZug := True;  // Flag auf True setzen
    GegnerLP  := 20*Stufe*GegnerLP_Multiplikator+20;  // LP des Gegners berechnen
    GegnerAP  := random(Stufe*10)+ (Stufe*5);  // Angriffspunkte des Gegners erechnen
    SpielerLP := Lebenspunkte;  // Variable für SpielerLP zuweisen
    SpielerAP := random(Max_Schaden) + Min_Schaden;  // Zufallswert zwischen max Schaden und min Schaden des Spielers
    showmessage(FloatToStr(GegnerLP));  // Nur Information, ANzeige der GegnerLP

  repeat  // Schleife initiieren
    if SpielerIstAmZug then  // Wenn Flag auf True steht dann...
    begin
      GegnerZieht(Ende);
    end
    else  // Wenn Flag nicht auf True steht dann...
    begin
      SpielerZieht(Ende);
    end;
    SpielerIstAmZug := not SpielerIstAmZug;  // Flag auf False setzen
  until Ende;  

  Rundenzahl := 0;  // Rundenzahl auf 0 setzen
  end;
end;

[stahli]

Hast Du mal einen Haltepunkt gesetzt und den Ablauf schrittweise verfolgt?
M.E. müssten die Funktionen abwechselnd aufgerufen werden (wobei man als Nutzer davon natürlich nichts weiter merkt, da ja nur Variableninhalte geändert werden.

Von der Logik her würde ich die Funktionen tauschen:

Delphi-Quellcode:

  repeat // Schleife initiieren
    if SpielerIstAmZug then // Wenn Flag auf True steht dann...
    begin
      GegnerZieht(Ende); // Spieler sollte ziehen
    end
    else // Wenn Flag nicht auf True steht dann...
    begin
      SpielerZieht(Ende); // Gegner sollte ziehen
    end;

Oder das Flag sollte GegnerIstAmZug heißen.

[Doenercola]

Oh, ja das ist ein Überbleibsel von meinem Rumprobieren

Ich hab jetzt mal ne Abfrage in der GegnerZieht Prozedur gemacht.

Delphi-Quellcode:

procedure GegnerZieht(var Ende : Boolean);
begin
  SpielerLP := SpielerLP - GegnerAP;
  SpielerLP := Lebenspunkte;
  Rundenzahl := Rundenzahl +1;
  Showmessage(IntToStr(SpielerLP));
  showmessage(IntToStr(Lebenspunkte));
  Showmessage(FloatToStr(GegnerLP));  
...

Alles wird gestartet, die Schleife funktioniert wunderbar, aber die SpielerLP / Lebenspunkte bleiben konstant auf dem Anfangswert von 100. An den GegnerAP kann es net liegen, ich hab sie mal auf 30 gesetzt und es änderte nichts daran.
Der Spieler greift richtig an, aber der Gegner greift nicht an sozusagen.

[Maximus]

Das Problem scheint bei folgender Zuweisung zu liegen:

SpielerLP := Lebenspunkte; // Lebenspunktevariable mit dem Wert der SpielerLP Variable überschreiben

Dabei scheint der Kommentar zwar das Richtige auszusagen, die Zuweisung ist jedoch gerade verkehrt herum.