Sorry your browser is not supported!

sync on:sync rate 60:backdrop off:hide mouse
make object cube 1,50
make object cone 2,50
color object 1,348404247
color object 2,94498240724
do
if upkey()=1 then move object 1,10
if downkey()=1 then move object 1,-10 
if spacekey()=1 then position object 1, mousex(),mousey(),23:position object 2,mousex(),mousey(),23
if inkey$()="e" then move object 2,20
if inkey$()="d" then move object 2,-20
if shiftkey()=1 then input "File?",fil$:bmp$=".bmp":make file fil$+bmp$
sync
loop

sync on:backdrop off:hide mouse:autocam off:sync rate 20
make object cube 1,50:make object cylinder 2,50:position object 1,345,232,333:position object 2,64,23,23
color object 1,348404247:color object 2,94498240724
do
set cursor 0,0
ink rgb(255,255,0),0
print "object x(1)=";object position x(1):print "object y(1)=";object position y(1):print "object z(1)=";object position y(1):print "Collision=";object collision(1,2)
if upkey()=1 then move object 1,20
if downkey()=1 then move object 1,-20 
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-3)
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+3)
if spacekey()=1 then position object 1, mousex(),mousey(),23:position object 2,mousex(),mousey(),23
if inkey$()="e" then move object 2,20
if inkey$()="d" then move object 2,-20
if inkey$()="s" then yrotate object 2,wrapvalue(object angle y(2)-3)
if inkey$()="f" then yrotate object 2,wrapvalue(object angle y(2)+3)
if shiftkey()=1 then input "File?",fil$:bmp$=".bmp":save bitmap fil$+bmp$
sync
loop