Is this what you're trying to do?
REM edutainment
REM by abbas and sam
REM created 12/2/13 10:11 a.m.
autocam off
rem ****____****____title intro thing____****____****
center text 320,240, "Welcome to a Friend in Need"
ink rgb(0,20,255),0
center text 321,241, "Welcome to a Friend in Need"
ink rgb(255,255,255),0
center text 320,260, "A Game About Transfering Energy"
ink rgb(0,20,255),0
center text 321,261, "A Game About Transfering Energy"
ink rgb(255,255,255),0
center text 320,280, "Press [A] to Continue"
ink rgb(0,20,255),0
center text 321,281, "Press [A] to Continue"
ink rgb(255,255,255),0
do
if inkey$()="a"
do
if inkey$()<>"a" then cls : exit
loop
exit
endif
loop
ink rgb(255,255,255),0
center text 320,240, "Drive to Your Friend Who"
ink rgb(0,20,255),0
center text 321,241, "Drive to Your Friend Who"
ink rgb(255,255,255),0
center text 320,260, "Is Low On Energy,"
ink rgb(0,20,255),0
center text 321,261, "Is Low On Energy,"
ink rgb(255,255,255),0
center text 320,280, "Only You Can Save Him!!!"
ink rgb(0,20,255),0
center text 321,281, "Only You Can Save Him!!!"
ink rgb(255,255,255),0
center text 320,300, "Press [S] to Continoue"
ink rgb(0,20,255),0
center text 321,301, "Press [S] to Continoue"
ink rgb(255,255,255),0
do
if inkey$()="s"
do
if inkey$()<>"s" then cls : exit
loop
exit
endif
loop
center text 320,220, "********************"
ink rgb(0,20,255),0
center text 321,221, "********************"
ink rgb(255,255,255),0
center text 320,240, "Press [P] To Start"
ink rgb(0,20,255),0
center text 321,241, "Press [P] To Start"
ink rgb(255,255,255),0
center text 320,260, "********************"
ink rgb(0,20,255),0
center text 321,261, "********************"
ink rgb(155,255,255),0
do
if inkey$()="p"
do
if inkey$()<>"p" then cls :exit
loop
exit
endif
loop
rem ****____****_____loading section____****____****
rem ****____****____MainSection Loop____****____****
MainSection:
make object cube 1,100
scale object 1, 75,100,100
color object 1, rgb(255,0,0)
position object 1,0,0,0
color backdrop rgb(0,0,0)
position camera 0,85,-5
point camera 0,55,60
rem Walls
rem North Wall
make object box 2,2000,1000,10
rotate object 2,0,0,0
position object 2, 0,500,1005
texture object 2,2
rem East Wall
make object box 3,2000,1000,10
rotate object 3,0,90,0
position object 3, 1005,500,0
texture object 3,3
rem North Wall
make object box 4,2000,1000,10
rotate object 4,0,180,0
position object 4, 0,500,-1005
texture object 4,4
rem West Wall
make object box 5,2000,1000,10
rotate object 5,0,270,0
position object 5, -1005,500,0
texture object 5,5
rem Floor
make object box 6,2000,1000,2000 : position object 6,0,-500,0 : color object 6,rgb(0,255,0)
make object collision box 6,-1000,-500,-1000,1000,500,1000,0
texture object 6,1500 : scale object texture 6,50,50
rem ****____****____ Motion Section ____****____****
do
rem store angle
ay# = object angle Y(1)
rem key input
if upkey()=1 then move object 1, 1
if downkey()=1 then move object 1 ,-1
if leftkey()=1 then ay# = wrapvalue(ay#-1)
if rightkey()=1 then ay# = wrapvalue(ay#+1)
rem rotate object
yrotate object 1,ay#
set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 200, 100, 50, 0
loop
rem ***___Camera mini section ___***
wait key
New sig coming soon..
