Ok i have this code
sync on
sync rate 0
autocam off
hide mouse
set display mode 1024,768,16
sync
start:
cls
print "1. START"
print "2. INSTRUCTIONS"
print "3. QUIT"
do
if inkey$()="1" then goto char
if inkey$()="2" then goto instructions
if inkey$()="3" then end
`character selection
sync
loop
char:
cls
print "JET"
do
if returnkey()=1 then goto game
sync
loop
instructions:
cls
print "A Remake of BM-TRON by MAIN GAMES"
print " Press ENTER to return to the menu"
do
if returnkey()=1 then goto start
sync
loop
game:
make object cube 10,100
aX# = object angle x(10)
aY# = Object angle Y(10)
sync
`makes level
make matrix 4,6000,6000,10,10
x#=900
z#=900
y#=get ground height(4,x#,z#)+25
position object 10,x#,y#,z#
do
a#=object angle y(10)
oldx#=object position x(10)
oldz#=object position z(10)
oldy#=get ground height(4,x#,z#)
s#=object size(10)/2
move object 10,1
x#=object position x(10)
z#=object position z(10)
y#=get ground height(4,x#,z#)+25
if upkey()=1 then aX# = Wrapvalue(aX#+5)
if downkey()=1 then aX# = Wrapvalue(aX#-5)
if inkey$()="w" then move object 10,2
if inkey$()="s" then move object 10,-2
If Leftkey()=1 then aY# = Wrapvalue(aY#-5)
If Rightkey()=1 then aY# = Wrapvalue(aY#+5)
Yrotate object 10,aY#
Xrotate object 10,aX#
sync
set camera to follow x#,y#,z#,a#,200,y#+100,3.5,1
cameraposx#=camera position x()
cameraposz#=camera position z()
cameraposy#=y#+100
position camera cameraposx#,cameraposy#,cameraposz#
point camera newxvalue(x#,a#,100),y#,newzvalue(z#,a#,100)
sync
loop
if u run this program when u get to the game the camera is behind the cube. but if u rotate left and right the controls go all weird and the camera wont follow me when u move up and down. please help!
If nobodys perfect then im nobody!
