Um den gesamten Code-Text zu sehen, musst Du innerhalb des Fensters scrollen. Am besten kannst Du die SUB lesen und verstehen, wenn Du sie an einem Stück siehst. Dazu musst Du im Fester auf "CODE: ALLES AUSWÄHLEN" klicken und den Text am besten in den einfachen Windows-Editor hineinkopieren (die kleine SUB passt auf eine Bildschrimseite).
Code: Alles auswählen
'--------------------------
SUB DiamantenAufbauen
'--------------------------
DIM n AS LOCAL LONG
DIM n2 AS LOCAL LONG
DIM n3 AS LOCAL LONG
FOR n=0 TO 2
Diamantenspeicher(n)=0
NEXT
FOR n=1 TO 5
FOR n2=0 TO 2
IF WildMatrix(n,n2)=1 THEN
INCR Diamantenspeicher(n2)
END IF
NEXT
NEXT
FOR n=0 TO 2
IF Diamantenspeicher(n)>0 THEN
FOR n2=1 TO Diamantenspeicher(n)
GRAPHIC COPY Hintergrund_Kopie,0,(955,411)-(1171,484) TO (955,411+133*n)
FOR n3=1 TO n2
GRAPHIC COPY Diamant,0,(0,0)-(42,79) TO (1022+n3*44-n2*22,411+n*133)
NEXT
Playsound (NameSound + "Diamant.wav",0,1)
scspd=n
scspd_dunkel=1
CALL ScatterspeicherDisplays
GRAPHIC REDRAW
SLEEP 100
CALL ScatterspeicherDisplays
GRAPHIC REDRAW
SLEEP 100
NEXT n2
END IF
NEXT
SLEEP 500
END SUB