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.

zusammenfalten · markieren

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

Ein Flag ist eine Boolean-Variable, das "JA" beinhalten kann (oder eben nicht).
Wechseln kann man das sehr leicht durch Flag := not Flag;

Man kann auch eine Intergervariable nutzen und diese hochzählen.

markieren

Delphi-Quellcode:

I := 1;
...
Inc(I);
if I > 2 then
  I := 1;

Es gibt da unterschiedliche Möglichkeiten. Du musst Dich an Deinen jeweiligen Bedürfnissen orientieren.

Hi,
also mir sind zwei Sachen aufgefallen:
1) Aktualisieren_Lebenspunkte hast du nur in dem Angriff des Computers. Was wird dabei gemacht, ist die wichtig?
2) Ich glaube, du hast noch ein logisches Problem. Wenn du den Computer angreifst, dann hat er noch LP, soweit korrekt. Angenommen, deine AP ist 10 und die LP des Gegners 9, dann ist er nach dem Angriff tod. Eigentlich müsstest du nachdem die Attacke ausgeführt wurde nochmal überprüfen, ob der Gegner nicht vielleicht jetzt tod ist. Also etwa so:

markieren

Delphi-Quellcode:

if Gegner_LP > 0 then
begin
  Gegner_LP:=Gegner_LP - Angreifer_AP;
  if Gegner_LP <= 0 then
    Verloren(Gegner)
  else
    WerIstDran:=Gegner;

Dann bräuchtest du auch den else-Zweig nicht mehr. Die Prozedur "Verloren" könnte dann so aussehen:

markieren

Delphi-Quellcode:

procedure Verloren(Spieler: String);
begin
  Memo.Text:=Memo.Text + 'Spieler ' + Spieler + ' hat verloren! Versuchs wann anders nochmal!';
end;

Bei der Prozedur kannst du dann natürlich auch noch weitere Abfragen einbauen. Also das z.B. unterschiedliche Nachrichten ausgegeben werden, wenn der Spieler gewonnen oder verloren hat, oder du gibst noch an, wie das Spiel verlaufen ist, oder wie das Endergebnis war, oder oder oder...

Hoffe, ich konnte dir helfen!

LG; hans ditter

P.S.: Ich hoffe, dass trifft dein Problem. Du hast nämlich (ist mir jetzt grad erst aufgefallen...) keine wirkliche Beschreibung deines Problems mit reingestellt...

Danke für die schnellen Antworten!

Die Prozedur "Aktualisiere Lebenspunkte" sieht so aus:

markieren

Delphi-Quellcode:

procedure Aktualisiere_Lebenspunkte;
begin
Lebenspunkte := Lebenspunkte + ZusatzLP;
Form1.Pnl_Lebenspunkte.Caption := IntToStr(Lebenspunkte);

Sie stellt die aktuellen LP in nem Panel dar und aktualisiert den Wert
E: Zur ERklärung, in der Prozedur im Startpost hab ich gesagt: SpielerLP := Lebenspunkte;

Mein Problem ist das, dass ich nicht weiß wie ich das Programm dazu bringen soll, immer abwechselnd anzugreifen. Das heißt, zuerst greift der Spieler den Gegner an, dann der Gegner den Spieler, dann ist wieder der Spieler dran,... und das soll gestoppt werden, wenn einer der beiden zu Boden geht sozusagen.

ungefähr so...

zusammenfalten · markieren

Delphi-Quellcode:

Ende := False;
SpielerIstAmZug := True;
...
repeat
  if SpielerIstAmZug then
  begin
    SpielerZieht(Ende); // kann Ende auf True setzen
  end
  else
  begin
    GegnerZieht(Ende); // kann Ende auf True setzen
  end;
  SpielerIstAmZug := not SpielerIstAmZug;
until Ende;

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?

Ja richtig.

Deine Prozedur könnte so aussehen:

markieren

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.