Würfelspiel--Wer zu erst gewisse Punktzahl erreicht gewinnt!

[sirius]

Die rar geht doch

Aber der Code ist ein anderer als der gepostete?

Delphi-Quellcode:

procedure TMain.img_wuerfelClick(Sender: TObject);
begin
if (Einstellungen.cb_spieler1.Checked = true) AND (spielerid =1) then
begin
  wuerfeln();
  if (wuerfelauge >0) And (wuerfelauge <6) then
  begin
    aktpktspieler1:= aktpktspieler1+wuerfelauge;
    lbl_aktpktspieler1.Caption := inttostr(aktpktspieler1);
  end else
  begin
    aktpktspieler1 :=0;
    lbl_aktpktspieler1.Caption := inttostr(aktpktspieler1);
    sndPlaySound('Mauli.wav',SND_SYNC);
    spielerid := spielerid+1;
    lbl_status.Caption := Einstellungen.edit_spieler2.Text + ' ist an der Reihe';
    btn_dasreicht.Click();
  end;
end;
end;