First of all... use the code button, not quotes.
Anyways... the problem is that the code that makes the sphere is inside the loop... which gets repeated. So that means, it would make the same sphere over and over again in the loop. So that means you would have to move the texturing and everything else before the loop... like this:
Sync On
Sync Rate 30
Rem Load Textures
Load Image "C:\Program Files\Dark Basic Software\Dark Basic\myproj\room\bmp\ball color.bmp",1
Rem Make sphere
Make object sphere 10,50
Texture object 10,1
Do
Rem Store Object angle Y in aY#
aY# = Object angle Y(10)
Rem Control input for camera
If Upkey()=1 then Move object 10,10
If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5)
If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5)
If Downkey()=1 then Move object 10,-10
Rem get player object position and store in X# and Z#
X# = Object position x(10)
Z# = Object position z(10)
Rem get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,200)
cX# = Newxvalue(X#,aY#-180,200)
Rem position camera
Position Camera cX#,100,cZ#
Rem point the camera at the player object
Point camera X#,50,Z#
Rem Control input for camera
If Upkey()=1 then Move camera -1
If Downkey()=1 then Move camera 2
Sync
Loop
Also, it's good to have a setup procedure, like this:
rem Random program
gosub setup
do
rem Main program loop
loop
setup:
Sync On
Sync Rate 30
Rem Load Textures
Load Image "C:\Program Files\Dark Basic Software\Dark Basic\myproj\room\bmp\ball color.bmp",1
Rem Make sphere
Make object sphere 10,50
Texture object 10,1
return
Your signature has been erased by a mod because it's larger than 600x120
