Abwechselnd angreifen

[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.

[Doenercola]

Oh man, genau das war der Fehler! Danke! Jetzt funktioniert alles wie ichs haben will. Ihr habt was gut bei mir! Ich muss noch viel lernen

Liebe Grüße
Marcel