Here is my code for any other statements,
Rem Hide mouse
Hide mouse
Rem Warning please read.
Print "Warning! Please read before playing."
Print " ^ ^ ^ ^ ^"
Print " Read this!"
Print " "
Print "Warning if you recieve any medical issues due to bugs in the game..."
Print "Leoneftw Company is not responsible for your safty."
Print " "
Print "Play at your own risk..."
Print " "
Print " "
Print "Press any key to Begin"
Print " "
Print " "
Wait key
Rem The riddle
Print "Press lower case q to find out what your objective is."
Print " "
Print " "
Print "The Clue (Riddle)"
Print " "
Print "The walls are imaginary invisible if you think"
Print "they speak, A small little fellow knows where"
Print "the cube is. He is a wonderful color to us,"
Print "He is the color of the first part of the name of a"
Print "14th century disease and loves to be away from the others,"
Print "he is a very diffrent circle from the rest. "
Print " "
Print " "
Print "Press any key to Start the Game now."
Wait key
Rem Sync
Sync On
Sync Rate 30
Rem Brother #1
Make object sphere 11,60
Position object 11, 350,0,200
Color object 11, Rgb (255,128,0)
Rem Brother #2
Make object sphere 12,70
Position object 12, 200,0,300
Color object 12, Rgb (0,128,0)
Rem Brother #3
Make object sphere 13,80
Position object 13, 250,0,200
Color object 13, Rgb (0,0,255)
Rem Sister #1 (I think)
Make object sphere 14,90
Position object 14, 450,0,450
Color object 14, Rgb (255,103,103)
Rem the clue
Make object sphere 18,30
Position object 18, 630,0,780
Color object 18, Rgb (0,0,0)
Rem Family Members
Make object sphere 15,100
Position object 15, 180,0,880
Color object 15, Rgb (255,0,0)
Make object sphere 16,110
Position object 16, 520,0,200
Color object 16, Rgb (255,0,0)
Make object sphere 17,40
Position object 17, 275,0,750
Color object 17, Rgb (255,0,0)
Make object sphere 19,20
Position object 19, 430,0,210
Color object 19, Rgb (255,0,0)
Make object sphere 20,120
Position object 20, 255,0,370
Color object 20, Rgb (255,0,0)
Make object sphere 21,130
Position object 21, 220,0,300
Color object 21, Rgb (255,0,0)
Make object sphere 22,140
Position object 22, 780,0,455
Color object 22, Rgb (255,0,0)
Rem Make Jermey the circle
Make object sphere 10,50
Color object 10, Rgb (255,255,255)
Position object 10, 600,0,455
Set object collision to spheres 10
Rem The Objective
If inkey$ () = "q"
do
If Inkey$ () <> "q"then Print "Find the blue Cube to win"
loop
Endif
Rem the Objective object
Make object Cube 25,50
Color object 25, Rgb (0,0,255)
Position object 25,835,0,3000
Rem Walls to mess with the players minds
Make object plane 60,300000,1000,300000
Position object 60,2400,0,2000
Set object collision off 60
Color object 60, rgb (0,0,0)
Rem Wall Next to objective
Make object plane 70,300000,1000,300000
Position object 70,3000,0,4000
Color object 70, rgb (0,0,0)
Rem Wall to limit the map
Make object plane 75,300000,5000,300000
Position object 75,-2000,0,-1000
Color object 75, rgb (0,0,0)
Rem wall to limit the map (Side ways)
make object plane 5,20000,1000,100
rotate object 5,0,270,0
position object 5, -700,0,-800
Color object 5, rgb (0,0,0)
Rem Wall to limit map Other (Side ways)
make object box 7,20000,1000,100
rotate object 7,0,270,0
position object 7, 1500,0,0
Color object 7, rgb (0,0,0)
Rem Texture for floor
Load image "F:\Math Game\images\Rock.bmp",1
Rem The Floor
make object box 6,30000,1000,30000
position object 6,0,-540,0
Texture object 6,1
make object collision box 6,-1000,-500,-1000,1000,500,1000,0
scale object texture 6,50,50
Rem Main loop
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,15
If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-7)
If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+7)
If Downkey()=1 then Move object 10,-15
Rem Detect collision
If Object collision(10,0)>0 then position object 10,X#,0,Z#
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,100)
cX# = Newxvalue(X#,aY#-180,100)
Rem position camera
Position Camera cX#,75,cZ#
Rem point the camera at the player object
Point camera X#,25,Z#
Rem Refresh Screen
Sync
Loop