Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Würfelspiel--Wer zu erst gewisse Punktzahl erreicht gewi

  Alt 17. Dez 2009, 16:48
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;
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat