I compressed it and it came up with some errors, so i might have messed something up. I will include the uncompressed if you dont want to try and fix it.
compressed
sync on : sync rate 60
type sp
pnt as integer
endtype
dim whl(61) as sp
btn=0 : p=100 : f=0 : mf=0 : pos=1 : mx=15 : my=15 : num=60 : spd=1 : scr=0
for i=1 to 60 : a = rnd(p*10) : b = rnd(p*9)*-1 : whl(i).pnt=a+b : next i : do : if mouseclick()=0 then mf=0 : if scr>=10000 : cls : text 0,60, "YOU HAVE WON!!!!" : wait 1000 : scr=0 : endif : if scr<=-1000 : cls : text 0,60, "You are a loser :)"
wait 1000 : scr=0 : endif : text screen width()/2, screen height()/2+20, "Points: "+str$(scr) : xx=mousex() : yy=mousey() : if btn=0 : text 0, 0, "10,000 pnts to win" : text 0, 20, "-1,000 pnts to lose" : text 0, 40, "Click Spin to play!" : text screen width()/2, screen height()/2, "Spin"
if xx>(screen width()/2-text width("Spin")) and xx<(screen width()/2+text width("Spin")) : if yy>(screen height()/2-text width("Spin")) and yy<(screen height()/2+text width("Spin")) : if mouseclick()=1 and mf=0 then btn=1 : mf=1 : endif : endif : endif : if btn=1 : x=300 : y=0
for j=1 to spd : cls : for i=1 to num : if i=1 then ink rgb(255,0,0), 0 : if i>1 then ink rgb(255,255,255), 0 : text x, y, str$(whl(i).pnt) : if pos=1 and f=0 : inc y, my : inc x, mx : if i=15 then pos=2 : f=1 : endif
if pos=2 and f=0 : inc y, my : dec x, mx : if i=30 then pos=3 : f=1 : endif : if pos=3 and f=0 : dec y, my : dec x, mx : if i=45 then pos=4 : f=1 : endif : if pos=4 and f=0 : dec y, my : inc x, mx : endif
f=0 : next i : pos=1 : spin=0 : for k=0 to num : whl(61-k).pnt=whl(60-k).pnt : next k : whl(1).pnt=whl(61).pnt : next j
text screen width()/2, screen height()/2, "Stop" : if xx>(screen width()/2-text width("Stop")) and xx<(screen width()/2+text width("Stop"))
if yy>(screen height()/2-text width("Stop")) and yy<(screen height()/2+text width("Stop")) : if mouseclick()=1 and mf=0 then btn=0 : scr=scr+whl(2).pnt : mf=1 : ink rgb(0,0,0),0 : text screen width()/2, screen height()/2, "Stop" : ink rgb(255,255,255),0
endif : endif : endif : sync : loop
uncompressed
sync on
sync rate 60
type sp
pnt as integer
endtype
dim whl(61) as sp
btn=0
p=100
f=0
mf=0
pos=1
mx=15
my=15
num=60
spd=1
scr=0
for i=1 to 60
a = rnd(p*10)
b = rnd(p*9)*-1
whl(i).pnt=a+b
next i
do
if mouseclick()=0 then mf=0
if scr>=10000
cls
text 0,60, "YOU HAVE WON!!!!"
wait 1000
scr=0
endif
if scr<=-1000
cls
text 0,60, "You are a loser :)"
wait 1000
scr=0
endif
text screen width()/2, screen height()/2+20, "Points: "+str$(scr)
xx=mousex()
yy=mousey()
if btn=0
text 0, 0, "10,000 pnts to win"
text 0, 20, "-1,000 pnts to lose"
text 0, 40, "Click Spin to play!"
text screen width()/2, screen height()/2, "Spin"
if xx>(screen width()/2-text width("Spin")) and xx<(screen width()/2+text width("Spin"))
if yy>(screen height()/2-text width("Spin")) and yy<(screen height()/2+text width("Spin"))
if mouseclick()=1 and mf=0 then btn=1 : mf=1
endif
endif
endif
if btn=1
x=300
y=0
for j=1 to spd
cls
for i=1 to num
if i=1 then ink rgb(255,0,0), 0
if i>1 then ink rgb(255,255,255), 0
text x, y, str$(whl(i).pnt)
if pos=1 and f=0
inc y, my
inc x, mx
if i=15 then pos=2 : f=1
endif
if pos=2 and f=0
inc y, my
dec x, mx
if i=30 then pos=3 : f=1
endif
if pos=3 and f=0
dec y, my
dec x, mx
if i=45 then pos=4 : f=1
endif
if pos=4 and f=0
dec y, my
inc x, mx
endif
f=0
next i
pos=1
spin=0
for k=0 to num
whl(61-k).pnt=whl(60-k).pnt
next k
whl(1).pnt=whl(61).pnt
next j
text screen width()/2, screen height()/2, "Stop"
if xx>(screen width()/2-text width("Stop")) and xx<(screen width()/2+text width("Stop"))
if yy>(screen height()/2-text width("Stop")) and yy<(screen height()/2+text width("Stop"))
if mouseclick()=1 and mf=0 then btn=0 : scr=scr+whl(2).pnt : mf=1 : ink rgb(0,0,0),0 : text screen width()/2, screen height()/2, "Stop" : ink rgb(255,255,255),0
endif
endif
endif
sync
loop
mfield
