Here is my first attemp at a 20 lines program (and my 2° game):
position camera x,y,z : hide mouse : gosub _printtext : gosub _createball : sync on
_printtext:
print "3D Ball Move v. 1.1" : print "Created by Gamekids" : print "Use arrows to move. Left and right to rotate ball. Up and down to" : print "move ball foward or reverse" : print "Press enter if you lose the ball" : print "Press Esc to exit"
wait key : return
_createball:
make object sphere 1,1
if file exist("anf_gamesicon2_copy.bmp") then load image "anf_gamesicon2_copy.jpg",1
if image exist(1) then texture object 1,1 else color object 1,rgb(50,00,255)
gosub _ballcontrol : return
_ballcontrol:
do
if upkey()=1 then move object 1,0.1
if downkey()=1 then move object 1,-0.1
if leftkey()=1 then yrotate object 1,object angle y(1)-1
if rightkey()=1 then yrotate object 1,object angle y(1)+1
if keystate(28)=1 then position object 1,x,y,z
loop : return
Charlie
Ps: the game can work without the image but I post it. It should be in the game folder.
Have a nice day