Abwechselnd angreifen

[Doenercola]

Oh, ja das ist ein Überbleibsel von meinem Rumprobieren :-D

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:

Delphi-Quellcode:

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! :D Ich muss noch viel lernen :oops:

Liebe Grüße
Marcel