also folgendes proplehm. bei diesem code (weiter unten) kann ich nichts finden und es gibt auch keine fehlermeldungen aber trotzdem rechnet er mal plus mal minus?! dabei will ich ja nur minus

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.button_laser_2Click(Sender: TObject);
begin

//text im memofeld spieler 2
memo_infotext.Text:='Spieler 2 hat an seinem Raumschiff einen Laser! Dieser trift den Gegner mit voller Wucht!';
//waffenprozente
gauge_waffen_2.Progress:=gauge_waffen_2.Progress-2;
//schaden
Randomize;
Schaden2:=random(9);
schildschaden2:= Schaden2-1;
Lebenschaden2:= schaden2-3;
gauge_leben_1.Progress:=gauge_leben_1.Progress - Lebenschaden2;
gauge_schild_1.Progress:=gauge_schild_1.Progress - Schildschaden2;
end;

also das leben und der schild sind beide betroffen bzw. mal + mal -

Hallo

1. randomize: solltest du nur einmal aufrufen, also im formcreate nicht beim buttonclick oder in einer schleife.

2.

Zitat:

Schaden2:=random(9)

kommen Zahlen zwischen 0-8 raus.
wenn du jetzt
Lebensschaden2:=Schaden2-3 und Schaden2 0,1 oder 2 war, wird Lebenschaden negativ und es kommt bei der nächsten Rechnung halt ein positiver wert raus.

Ändere dein random
mach z.B sowas:
Schaden2:=random(9)+5
damit bekommst du werte zwischen 5 und 13

Mfg Frank

und schon gehts weiter DANKE!