if keystate(210)
point camera 100,25,100
position camera p1x, p1y - 10, p1z - 10
endif
CAMERA_STATUS:
` rotate camera according to mouse
a# = WrapValue(a# + (MouseMoveX() / 3.0))
` position and rotate camera
cxa# = cxa# + (MouseMoveY() / 3.0)
If cxa# < -90.0 Then cxa# = -90.0
If cxa# > 90.0 Then cxa# = 90.0
Position Camera x#,(Get Ground Height(1,x#,z#) + player_height#),z#
Rotate Camera WrapValue(cxa#),a#,0
RETURN
Notice where you have
position camera p1x, p1y - 10, p1z - 10 and then, in the same loop you have
Position Camera x#,(Get Ground Height(1,x#,z#) + player_height#),z# so, It's positionin git where you want it to be positioned then going straight back to where ti was positioned originally.
You need to set a variable when you press Insert.
Like this:
if keystate(210)
If cameramode = 1 Then cameramode = 2 : point camera 100,25,100 : EndIf
If cameramode = 2 Then cameramode = 1 : EndIf
endif
Then in your camera code, you have to put in an If function.
Such as:
CAMERA_STATUS:
` rotate camera according to mouse
a# = WrapValue(a# + (MouseMoveX() / 3.0))
` position and rotate camera
cxa# = cxa# + (MouseMoveY() / 3.0)
If cxa# < -90.0 Then cxa# = -90.0
If cxa# > 90.0 Then cxa# = 90.0
If cameramode = 1 Then Position Camera x#,(Get Ground Height(1,x#,z#) + player_height#),z#
If cameramode = 2 Then position camera p1x, p1y - 10, p1z - 10
Rotate Camera WrapValue(cxa#),a#,0
RETURN
Hope I Helped...
Team EOD :: Programmer/Logical Engineer/All-Round Nice Guy
