ungewollte aktion beim zufall!

[Gregor]

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 :(

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;

[Gregor]

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

:| :( :x :twisted:

[Keldorn]

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

[Gregor]

und schon gehts weiter :coder: DANKE!