Oneka

TS_MOVEMENT:
`Mouse Look
IF CUR_SCANCODE <> 0
	IF KEY_FUNCTION_CHECK("SPEED UP") = 1
		Moveamount = 200
	ELSE
		Moveamount = 6
	ENDIF
	if KEY_FUNCTION_CHECK("MOVE UP") = 1
		IF MOVETYPE = 0
			SET_MOVESPEED_DYNAMIC_OBJECT(MAIN_OBJ,Moveamount)
			MOVE_LOOP_DYNAMIC_OBJECT(MAIN_OBJ)
			MOVETYPE = 1
			`MOVE_DYNAMIC_OBJECT(MAIN_OBJ,CALCULATE_FRAME_DELAY(Moveamount),1)
			`Moveobject(CALCULATE_FRAME_DELAY(Moveamount))
			`MOVEMENT = 1
			`GOSUB TS_UPDATE_POS
		ENDIF
	else
		if MOVETYPE = 1
			MOVETYPE = 0
			STOP_MOVING_DYNAMIC_OBJECT(MAIN_OBJ)
		endif
	endif
	
	if KEY_FUNCTION_CHECK("MOVE DOWN") = 1
		IF MOVETYPE = 0
			SET_MOVESPEED_DYNAMIC_OBJECT(MAIN_OBJ,-Moveamount)
			MOVE_LOOP_DYNAMIC_OBJECT(MAIN_OBJ)
			MOVETYPE = 2
			`MOVE_DYNAMIC_OBJECT(MAIN_OBJ,CALCULATE_FRAME_DELAY(-Moveamount),1)
			`Moveobject(CALCULATE_FRAME_DELAY(-Moveamount))
			`MOVEMENT = 1
			`GOSUB TS_UPDATE_POS
		ENDIF
	else
		if MOVETYPE = 2
			MOVETYPE = 0
			STOP_MOVING_DYNAMIC_OBJECT(MAIN_OBJ)
		endif
	endif
	REMSTART
	IF KEY_FUNCTION_CHECK("MOVE UP") = 0
		IF movementdir = 1
			STOP_MOVING_DYNAMIC_OBJECT(MAIN_OBJ)
		ENDIF
	ENDIF
	IF KEY_FUNCTION_CHECK("MOVE DOWN") = 0
		IF movementdir = 0
			STOP_MOVING_DYNAMIC_OBJECT(MAIN_OBJ)
		ENDIF
	endif
	REMEND
	if KEY_FUNCTION_CHECK("TURN LEFT") = 1
		SET_Y_ROTATE_DYNAMIC_OBJECT(MAIN_OBJ,GET_Y_ANGLE_DYNAMIC_OBJECT(MAIN_OBJ)-CALCULATE_FRAME_DELAY(12))
		
		`Yrotate object MAIN_OBJ,Wrapvalue(MAIN_ANGLEY#-CALCULATE_FRAME_DELAY(12))
		`GOSUB TS_UPDATE_POS
	endif
	if KEY_FUNCTION_CHECK("TURN RIGHT") = 1
		SET_Y_ROTATE_DYNAMIC_OBJECT(MAIN_OBJ,GET_Y_ANGLE_DYNAMIC_OBJECT(MAIN_OBJ)+CALCULATE_FRAME_DELAY(12))
		`Yrotate object MAIN_OBJ,Wrapvalue(MAIN_ANGLEY#+CALCULATE_FRAME_DELAY(12))
		`GOSUB TS_UPDATE_POS
	endif
	
	if KEY_FUNCTION_CHECK("CAM UP") = 1
		CAMERA.HEIGHT# = CAMERA.HEIGHT# + CALCULATE_FRAME_DELAY(10)
	endif
	if KEY_FUNCTION_CHECK("CAM DOWN") = 1 AND CAMERA.LOCKHEIGHT = 0
		CAMERA.HEIGHT# = CAMERA.HEIGHT# - CALCULATE_FRAME_DELAY(10)
	endif
	if KEY_FUNCTION_CHECK("CAM LEFT") = 1
		CAMERA.ROTATION# = CAMERA.ROTATION# + CALCULATE_FRAME_DELAY(10)
	endif
	if KEY_FUNCTION_CHECK("CAM RIGHT") = 1
		CAMERA.ROTATION# = CAMERA.ROTATION# - CALCULATE_FRAME_DELAY(10)
	endif
	if KEY_FUNCTION_CHECK("CAM ZOOM IN") = 1
		CAMERA.DISTANCE# = CAMERA.DISTANCE# - CALCULATE_FRAME_DELAY(10)
	endif
	if KEY_FUNCTION_CHECK("CAM ZOOM OUT") = 1
		CAMERA.DISTANCE# = CAMERA.DISTANCE# + CALCULATE_FRAME_DELAY(10)
	endif

	IF KEY_FUNCTION_LOCK_CHECK("RESET")
		CAMERA_SET_PARAMETERS(180,20,50)
	ENDIF
	IF KEY_FUNCTION_LOCK_CHECK("SAVE")
		IF FILE EXIST ("CAMERA_SETTINGS.TXT") = 1
			DELETE FILE "CAMERA_SETTINGS.TXT"
		ENDIF
		OPEN TO WRITE 1,"CAMERA_SETTINGS.TXT"
		WRITE STRING 1,"Camera Rotation: "+STR$(CAMERA.ROTATION#)
		WRITE STRING 1,"Camera Height: "+STR$(CAMERA.HEIGHT#)
		WRITE STRING 1,"Camera Distance: "+STR$(CAMERA.DISTANCE#)
		CLOSE FILE 1
	ENDIF
ENDIF