Würfeln mit zwei Würfeln

[himitsu]

Da Lazarus von Delphi abgeguckt hatte, ist Vieles somit gleich/ähnlich.
(bei der grundlegenden Syntax, auch bei vielen Funktionen und beim Aufbau der RTL/VCL)

Zufall: Random, RandomRange
Prüfen: if-then, case, in
Wiederholungen: For, While oder Repeat

OK, wenn man zwischendrin die Spieleinsätze noch ändern will und nicht automatisch bis zum Ende würfeln will,
dann keine direkte Schleife, sondern als State-Mashine:
* zu Beginn alles initialisieren, bzw. am Ende oder auch zwischendrin zurücksetzen (Reset-Knopf)
* im Würfel-Knopf zuerst schauen ob das Spiel aktiv ist (kein Ende-Zustand)
** Einsätze einsammeln (Geld abziehen)
** die zwei Zufallszahlen bestimmen
** prüfen ob gewonnen/verloren/nix
*** Gewinn ausschütten (Geld hinzufügen)
** Daten anzeigen


PS: Randomize ruft man nicht ständig neu auf und innerhalb der VCL (TForm usw.) braucht man das garnicht aufrufen, da es schon einmal beim programmstart automatisch ausgeführt wird.