Hallo!
Ich habe eine Frage, und zwar programmiere ich eine Art Textrollenspiel, es klappt soweit auch alles, aber bei den Angriffen bräuchte ich noch etwas Hilfe...
Folgende Situation : Man wählt ein Gebiet in das man reisen möchte und es "erscheint" ein Gegner. Dieser Gegner hat, wie der Spieler Treffer- und Angriffspunkte. Mit einem Klick auf einen Button "angreifen" wird der Kampf initiiert.
Es wird nacheinander angegriffen, bis die Lebenspunkte von einem der beiden auf 0 oder kleiner geht.
ICh habs mal versucht aber es funktioniert net.
Delphi-Quellcode:
//
case WerIstDran of // 1 = Spieler, 2 = Computer
1: begin
if GegnerLP > 0
then
begin
GegnerLP := GegnerLP - SpielerAP;
WerIstDran := 2;
end
else
begin
Memo_Textausgabe.Text := Memo_Textausgabe.Text +
'Du hast gewonnen! Glückwunsch!';
MemoFeld_NachUnten;
end;
end;
2: begin
if SpielerLP > 0
then
begin
SpielerLP := SpielerLP - GegnerAP;
Aktualisiere_Lebenspunkte;
WerIstDran := 1;
end;
else
begin
Memo_Textausgabe.Text := Memo_Textausgabe.Text +
'Du hast leider verloren! :( Versuchs morgen nochmal!';
MemoFEld_NachUnten;
end;
end;
Das alles befindet sich in einer on-click Prozedur des Angreifen-Buttons.
Wie und was muss ich einbinden, damit man sich nacheinander duelliert? Hat es was mit einer "Flag" zu tun? Wenn ja, was ist das genau? Ich programmiere leider noch net so lange.
Wenn einer der beiden stirbt, soll das Ergebnis in einem Memo_Feld ausgegeben werden, aber das bekomm ich hin
Liebe Grüße
Marcel