CLS
INPUT "Wie viele Spieler sind da?", a
DIM summe.aller.wurfel(a)
IF a > 0 THEN
  FOR s = 1 TO a
    CLS
    PRINT "Spieler "; s; "ist an der Reihe!"
    wurfelanzahl = 0
    WHILE wurfelanzahl <= 0 OR wurfelanzahl > 540
      LOCATE 2
      INPUT "Wie viele Wrfel willst du verwenden?", wurfelanzahl
    WEND
    REDIM zufallszahl(wurfelanzahl + 3)
    kommt.1.vor = 0
    FOR g = 1 TO INT(RND * 6) + 1
      FOR i = 1 TO wurfelanzahl
        zufallszahl(i) = INT(RND * 6) + 1
        kx = 0: ky = 0
        temp = i
        IF temp > 30 THEN
          WHILE temp > 30
            kx = kx + 1: temp = temp - 30
          WEND
          ky = i - kx * 30
        ELSE
          ky = i
        END IF
        LOCATE 6 + kx, 5 + ky * 2: PRINT zufallszahl(i)
      NEXT
      FOR t = 1 TO 10000: FOR x = 1 TO 10: NEXT: NEXT
    NEXT
    FOR d = 1 TO wurfelanzahl
      IF zufallszahl(d) = 1 THEN kommt.1.vor = 1
      summe.aller.wurfel(s) = summe.aller.wurfel(s) + zufallszahl(d)
    NEXT
    IF kommt.1.vor = 1 THEN summe.aller.wurfel(s) = 0
  LOCATE 4, 19: PRINT "Spieler "; s; " hat insgesamt "; summe.aller.wurfel(s); " erreicht!"
  SLEEP 2
  NEXT s
END IF