CLS
RANDOMIZE TIMER
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