Your code was fine. All you needed to do was get rid of the CLS in your loop and make it so that the camera could see the sphere. You don't need CLS when you're using 3D. I don't think the 2D
has to be on plains...
Updated:
rem get screen ready
set display mode 640,480,32
sync on
cls 0
make object sphere 1,15
position object 1,320,240,10
rem I added this so we can see the sphere.
POSITION CAMERA 320,250,-30
do
rem Show mouse position
rem I got rid of the CLS...
ink rgb(255,255,255),0
set cursor 0,420
print mousex()
print mousey()
print mousez()
rem Make the toolbar
ink rgb(255,255,0),0
box 0,0,639,32
rem Make toolbar buttons
rem Button 1
ink rgb(0,255,255),0
box 5,5,105,27
ink 0,0
if mousex() > 5 and mousey() > 5 and mousex() < 105 and mousey() < 27
ink rgb (255,0,0),0
endif
set cursor 30,10
print "FILE"
rem Button 2
ink rgb(0,255,255),0
box 205,5,305,27
ink 0,0
if mousex() > 205 and mousey() > 5 and mousex() < 305 and mousey() < 27
ink rgb (255,0,0),0
endif
set cursor 230,10
print "ADD"
rem Button 3
ink rgb(0,255,255),0
box 405,5,505,27
ink 0,0
if mousex() > 405 and mousey() > 5 and mousex() < 505 and mousey() < 27
ink rgb (255,0,0),0
endif
set cursor 430,10
print "FINISH"
rem Button scrolldown 1
if mouseclick() = 1
if mousex() > 5 and mousey() > 5 and mousex() < 105 and mousey() < 27
makescrolldown1 = 1
endif
endif
if makescrolldown1 = 1
ink 16000000,0
box 5,32,130,250
ink 0,0
set cursor 10,42
print "New Project"
set cursor 10,62
print "Load Project"
set cursor 10,82
print "Options >>>"
set cursor 10,102
print "Help >>>"
set cursor 10,122
print "About"
set cursor 10,230
print "Exit"
endif
if mouseclick() = 1
if mousex() < 5 or mousey() < 5 or mousex() > 105 or mousey() > 27
makescrolldown1 = 0
endif
endif
rem Button scrolldown 2
if mouseclick() = 1
if mousex() > 205 and mousey() > 5 and mousex() < 305 and mousey() < 27
makescrolldown2 = 1
endif
endif
if makescrolldown2 = 1
ink 16000000,0
box 205,32,330,250
endif
if mouseclick() = 1
if mousex() < 205 or mousey() < 5 or mousex() > 305 or mousey() > 27
makescrolldown2 = 0
endif
endif
rem Button scrolldown 3
if mouseclick() = 1
if mousex() > 405 and mousey() > 5 and mousex() < 505 and mousey() < 27
makescrolldown3 = 1
endif
endif
if makescrolldown3 = 1
ink 16000000,0
box 405,32,530,250
endif
if mouseclick() = 1
if mousex() < 405 or mousey() < 5 or mousex() > 505 or mousey() > 27
makescrolldown3 = 0
endif
endif
sync
loop
