Sorry your browser is not supported!

// SET DISPLAY MODE Width, Height, Depth, VSyncOn, Multisampling Factor, Multimonitor Mode
set display mode 1600,900,32,1,8,0
set window on

autocam off
backdrop on 0
color backdrop 0,rgb(0,0,0)

MAKE OBJECT SPHERE 1,5,50,50
position object 1,0,0,200
POSITION CAMERA 0, 0, 0, 200 - 10

// *****************************************
// ESTABLISH THE CAMERAS USED IN THE GAME
	// SET PLAYERS CAMERA SETTINGS
	// SET CAMERA VIEW 0, 50, 50, 1550, 800
	SET CAMERA ASPECT 0, 1.85
	SET CAMERA FOV 0, 60
	SET CAMERA RANGE 0,1,10000

DO

	// ALL KEYSTROKES TRAPPED IN MAIN LOOP
	if keystate(205)=1 then INC TurnThrusters#, .002
	if keystate(205)=0 and TurnThrusters# > 0 then DEC TurnThrusters#, .001
	if keystate(203)=1 then DEC TurnThrusters#, .002
	if keystate(203)=0 and TurnThrusters# < 0 then INC TurnThrusters#, .001
	
	if keystate(200)=1 then INC PitchThrusters#, .002
	if keystate(200)=0 and PitchThrusters# > 0 then DEC PitchThrusters#, .001
	if keystate(208)=1 then DEC PitchThrusters#, .002
	if keystate(208)=0 and PitchThrusters# < 0 then INC PitchThrusters#, .001
	
	//********************************************************************************
	// CONTROL THRUSTERS
	if TurnThrusters# > .4 then TurnThrusters# = .4
	if TurnThrusters# < -.4 then TurnThrusters# = -.4
	if TurnThrusters# > -.002 AND TurnThrusters# < .002 then TurnThrusters# = 0
	
	if PitchThrusters# > .4 then PitchThrusters# = .4
	if PitchThrusters# < -.4 then PitchThrusters# = -.4
	if PitchThrusters# > -.002 AND PitchThrusters# < .002 then PitchThrusters# = 0
	
	// MOVE CAMERA (PLAYER SHIP SIMULATED MOVEMENT)
	TURN CAMERA RIGHT Player$.CAMERA, TurnThrusters#
	PITCH CAMERA UP Player$.CAMERA, PitchThrusters#


LOOP

sync on : sync rate 60
backdrop on
infinite# = 1
do
infinite# = infinite# + infinite#
text 0,0,"infinite number    "+str$(infinite#)
   sync
loop

Function moveAll( Player as Integer, XSpeed as Float, YSpeed as Float, ZSpeed as Float )
For i = 1 to 99999 step 1
If NOT i = Player
NewPositionX# = Object Position X( i ) - XSpeed
NewPositionY# = Object Position Y( i ) - YSpeed
NewPositionZ# = Object Position Z( i ) - ZSpeed
Position Object i, NewPositionX#, NewPositionY#, NewPositionZ#
EndIf
EndFunction

	// WE'RE STARTING TO GET VECTOR3 - PRAISE GOD
	if keystate(203) = 1 then DEC MarkerBoxAngleY#, 0.5
	if keystate(205) = 1 then INC MarkerBoxAngleY#, 0.5
	if keystate(200) = 1 then INC MarkerBoxAngleX#, 0.5
	if keystate(208) = 1 then DEC MarkerBoxAngleX#, 0.5
	
	YROTATE OBJECT MarkerBoxID, MarkerBoxAngleY#
	XROTATE OBJECT MarkerBoxID, (MarkerBoxAngleX#*-1)
	
	//ZROTATE OBJECT MarkerBoxID, (MarkerBoxAngleY# * -SIN(MarkerBoxAngleY#))
	
	IF OBJECT ANGLE X(MarkerBoxID) + OBJECT ANGLE Y(MarkerBoxID) = 0 
		SET VECTOR3 MarkerBoxVector3, 0, 0, Velocity#
	ELSE
		//SET VECTOR3 MarkerBoxVector3, COS(OBJECT ANGLE Y(MarkerBoxID)) * SIN(OBJECT ANGLE X(MarkerBoxID))*Velocity, SIN(OBJECT ANGLE Y(MarkerBoxID))*Velocity,COS(OBJECT ANGLE Y(MarkerBoxID))*COS(OBJECT ANGLE X(MarkerBoxID))*Velocity
		SET VECTOR3 MarkerBoxVector3, COS(OBJECT ANGLE X(MarkerBoxID)) * SIN(OBJECT ANGLE Y(MarkerBoxID)) * Velocity#, SIN(OBJECT ANGLE X(MarkerBoxID)) * Velocity#, COS(OBJECT ANGLE X(MarkerBoxID))*COS(OBJECT ANGLE Y(MarkerBoxID)) * Velocity#
	ENDIF
	//POSITION OBJECT MarkerBoxID, OBJECT POSITION X(MarkerBoxID) + X VECTOR3(MarkerBoxVector3), OBJECT POSITION Y(MarkerBoxID) + Y VECTOR3(MarkerBoxVector3), OBJECT POSITION Z(MarkerBoxID) + Z VECTOR3(MarkerBoxVector3)
	POSITION OBJECT MarkerBoxID, 0, 0, 0
	
	//TRANSPOSE THE VECTOR OF THE PLANET TO MOVE IT AROUND
	//SET VECTOR3 PlanetVector3#, 0,0,8000
	SET VECTOR3 PlanetVector3#, X VECTOR3(PlanetVector3#) +  -1*(X VECTOR3(MarkerBoxVector3)), Y VECTOR3(PlanetVector3#) + -1*(Y VECTOR3(MarkerBoxVector3)), Z VECTOR3(PlanetVector3#) + -1*(Z VECTOR3(MarkerBoxVector3))
	POSITION OBJECT PlanetID, X VECTOR3(PlanetVector3#), Y VECTOR3(PlanetVector3#), Z VECTOR3(PlanetVector3#)