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;