ok, i changed the code a little
Sync On
Sync Rate 35
hide mouse
Backdrop on
Set camera range 1,5000
Autocam off
Rem load the map
Load object "map.x",1
Rem Position camera
`Height cam is off the ground
charht#=170
`speed to move
spd#=8
`set the radius for collisions
radius#=10.0
`set initial camera position
position camera -75,charht#,-75
yrotate camera 180
Rem Main loop
Do
set cursor 0,0
print screen fps()
oldcAY# = cAY#
oldcAX# = cAX#
cAY# = WrapValue(cAY#+MousemoveX()*0.2)
cAX# = WrapValue(cAX#+MousemoveY()*0.2)
caZ# = Camera angle Z()
Rem Control input for camera
If Upkey()=1
XTest# = Newxvalue(X#,cAY#,5)
ZTest# = Newzvalue(Z#,cAY#,5)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
If Downkey()=1
XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),5)
ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),5)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
If Leftkey()=1
XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),5)
ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),5)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
If Rightkey()=1
XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),5)
ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),5)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
Position camera X#,Y#,Z#
Rem Rotate camera
cTestX#=WrapValue(cAX#-180)
if cTestX# > 225 then cAX#=45
if cTestX# < 135 then cAX#=315
YRotate camera CurveAngle(cAY#,oldcAY#,24)
XRotate camera CurveAngle(cAX#,oldcAX#,24)
Rem Refresh Screen
Sync
Loop
i took collision off, to see if that was the problem, it isnt, but the camera seems to stop at some points, like when i go forward, suddenly it stops! this is the last thing i ask about this i promise!! plz someone help
Just google pallmanni and get the history of me!
http://whatishl.ytmnd.com/ so friggin funny!
