[Tiptoi] Zufall per Schleife reagiert "nicht ordentlich" ?

[Karsten Voß]

Hallo zusammen,

wie einige andere auch, versuche ich gerade eine Zufallskomponente in 
mein Projekt (ich arbeite an der Umsetzung eines Spiels aus meiner 
frühren Jugend, war eines der ersten elektronischen Spiele) einzuarbeiten.

Ich hatte es bislang mit der Variante "eng gepackte OIDs versucht", 
wollte aber nicht nur Zufallszahlen von 1 bis 6 haben, sondern 1-20.
Das wurde etwas aufwändiger (wenn auch noch erträglich), daher versuche 
ich mich nun an der "Schleifen " Fassung (die aus dem Olchi Spiel).

Die brachte bei mir allerdings fast keine brauchbaren Ergebnisse, 
Betonung liegt auf mir (oder meinem neuen Player Stift)

Der Stift scheint gar nicht zu reagieren, oder extrem langsam. Um dies 
zu analysieren habe ich in den Programmtext ein paar Kontroll PLAY 
eingebaut.
Am Ende sagt der Stift aktuell nicht eins oder zwei oder drei...(was er 
gemäß Programmtext eigentlich sollte)
Auch habe mittlerweile die leer.mp3 extrem verkürzt.  Wie schnell zählt 
dieser Programmcode denn normalerweise durch?
Kann das am neuen Stift liegen? Habe ich den Origincode zu stark oder 
falsch verändert?

Ich habe den Programm Text wie folgt aktuell in der Anwendung (ein 
gedrucktes OID startet per jump zunächst auf "seed", ein zweites ruft 
dann "zahl" auf):

   seed:
   - $n<768? $n+=1 P(l) J(seed)
   - $n>767? $n:=1 P(z1) J(seed)

   random:
   - $n*=202 $n%=769 J(zahl)
   - P(RND)

   zahl: # 0-5
   - P(ZAAL)
   - $zahl:=$n $zahl-=1 $zahl/=128
   - $zahl==0? P(z1)
   - $zahl==1? P(z2)
   - $zahl==2? P(z3)
   - $zahl==3? P(z4)
   - $zahl==4? P(z5)
   - $zahl==5? P(z6)
   - $zahl==6? P(z7)
   - $zahl>5? P(fehler)

speak:
    fehler: "fehler"
    l: "l"
    RND: "random"
    ZAAL: "Zaal"
    z1: "eins"
    z2: "zwei"
    z3: "drei"
    z4: "vier"
    z5: "fuenf"
    z6: "sechs"
    z7: "sieben"