I never looked at this board before but when i did i finished an old game i was trying to make. Like sumo marbles but i like marble mayhem better. This is also the first game i ever really completed.
See how fast you can knock him off the edge, i havent played it much but i won in 17sec once
.
make object sphere 1,100,10,30:scale object 1,100,2,100:make object sphere 100,94:hide object 100:make object sphere 2,6:make object sphere 3,6:make object sphere 1000,6:make object sphere 1001,6:scale object 1000,100,1,100:scale object 1001,100,1,100
color object 2,rgb(255,0,0):color object 3,rgb(0,0,255):color object 1000,rgb(0,0,0):color object 1001,rgb(0,0,0):for i=1 to 3:set object i,1,1,1,1,1,0,0:next i:
reset: mil=0:t=0:m=0:pz#=-30:px#=0:ex#=0:ez#=30:new=1:speed#=0:y#=4:bounce=0:pf=0:ef=0:show object 1000:show object 1001:esu#=0:psu#=0:psl#=0:position object 2,px#,y#,pz#:position object 3,ex#,y#,ez#:position object 1000,px#,y#-3,pz#
position object 1001,ex#,y#-3,ez#:position camera 0,60,-110:point camera 0,0,0:sync rate 60:sync on:do:color backdrop rgb(100,200,50):if mil<mil+1:inc mil:endif:if mil=60:inc t:mil=0:endif:if t=60:t=0:inc m:endif:ink rgb(200,200,200),0
set text font "book":center text 500,100,""+str$(m)+":"+str$(t):set text size 14:center text 325,25,"Marble Mayhem":set text size 12:center text 325,50,"By:Silas Hatfield":center text 500,50,"Arrow keys move":set global collision on
if object collision(2,3):bounce=1:endif:if upkey()=1:if psu#>1:psu#=psu#-.5:else psu#=psu#-.2:endif:endif:if downkey()=1:if psu#<-1:psu#=psu#+.5:else psu#=psu#+.2:endif:endif:if leftkey()=1:if psl#<-1:psl#=psl#+.5:else psl#=psl#+.2:endif:endif
if rightkey()=1:if psl#>1:psl#=psl#-.5:else psl#=psl#-.2:endif:endif:pz#=pz#-psu#/50:px#=px#-psl#/50:point object 3,px#,y#,pz#:esu#=.2+speed#:if speed#<5:inc speed#,.001:endif:move object 3,esu#:ex#=object position x(3):ez#=object position z(3)
position object 3,ex#,y#,ez#:position object 1001,ex#,y#-3,ez#:if object collision(100,2)=0:pf=1:gosub gettext:endif:if object collision(100,3)=0:ef=1:gosub gettext:endif::point object 2,ex#,y#,ez#:position object 2,px#,y#,pz#
position object 1000,px#,y#-3,pz#:if bounce=1:if psu#<0:psu#=abs(psu#):endif:move object 2,-4+-esu#:move object 3,-2+-psu#:speed#=speed#/5:psu#=0:psl#=0:px#=object position x(2):pz#=object position z(2):esu#=0:bounce=0:endif:sync:loop
gettext:ink rgb(255,0,0),0:set text font "century gothic":set text size 16:if pf=1:xrotate object 2,90:hide object 1000:i=1:do:center text 300,100,"YOU LOST!":center text 300,120,"Press a key to restart":move object 2,1:inc i
if i>100:gosub e:endif:sync:loop:endif:if ef=1:xrotate object 3,90:hide object 1001:i=1:do:center text 300,100,"YOU WON!"+" "+str$(m)+":"+str$(t):center text 300,120,"Press a key to restart":move object 3,1:inc i:if i>100:gosub e:endif:sync:loop:endif
e:wait key:gosub reset
mfield
