Sorry your browser is not supported!

sync on
sync rate 60
autocam off

make object cube 1,20
position object 1,0,0,0

position camera 0,0,0,-20
point camera 0,0,0,0

oldtimer=timer()
newtimer=timer()

do
newtimer=timer()
if newtimer-oldtimer>10000
    yrotate object 1,rnd(90)
    oldtimer=timer()
endif
position object 1,newxvalue(object position x(0),object angle y(0),1),0,newzvalue(object position z(0),object angle y(0),1)
point camera 0,object position x(1),object position y(0),object position z(0)
position camera 0,newxvalue(camera position x(0),camera angle y(0),1),20,newzvalue(camera position z(0),camera angle y(0),1)

sync
loop
end

xpos=newxvalue(xpos,angy,spd)
zpos=newzvalue(zpos,angy,spd)

x#=0
y#=0
do
x#=newxvalue(x#,15,1)
y#=newyvalue(y#,15,1)
dot x#,y#
loop

`camera follows box

sync on
sync rate 65
autocam off
hide mouse

make matrix 1,3000,3000,10,10

make object box 1, 10,5,20

do

	if upkey() = 1 then move object 1, 5
	
	if rightkey() = 1 then inc yang
	if leftkey() = 1 then dec yang

	yrotate object 1, yang
	
	set camera to follow object position x(1), object position y(1), object position z(1), yang, 50, 20, 5, 0

	text 1,1, "use arrow keys to move box"

	sync

loop

`move mouse left and right to rotate camera
`LMB to shoot


sync on
sync rate 65
autocam off
hide mouse

make matrix 1,3000,3000,10,10

make object box 1, 10,6,30


yang = 0

do

	yang = yang + mousemovex()	

	yrotate object 1, yang

	if shoot = 0	
		position object 1, 1500, 3, 0
		
		position camera object position x(1), object position y(1)+20, object position z(1)
		yrotate camera yang
		move camera -50
	else
		move object 1, 10
	endif	

	if mouseclick() = 1
		shoot = 1
	endif
	
	if spacekey() = 1 then shoot = 0
	
	text 1,1, "move mouse left and right and press LMB to shoot"
	if shoot = 1 then text 1,30, "PRESS SPACE TO RESET"
	
	sync

loop

sync on
sync rate 60
backdrop on
make object cube 1,100
x#=0
y#=0
z#=0
do
    //i need a way to figure out the object's new x, y, and z coordinates according to its angle 
    
    //i need to use the command below fir things to work correctly
    position object 1,x#,y#,z#
    sync
loop

`camera is stationary, use mouse to rotate camera
`box is positioned in front of camera.

sync on
sync rate 65
autocam off
hide mouse

make matrix 1,3000,3000,10,10

make object box 1, 20,5,30

do

	yang = yang + mousemovex()
	
	position camera 1500,30,1500
	yrotate camera yang
	
	position object 1, camera position x(), 0, camera position z()
	yrotate object 1, yang
	move object 1, 100

	text 1,1, "Move mouse left and right to rotate camera"
	
	sync

loop

// APP SETUP
sync on
sync rate 66
autocam off
color backdrop 0
hide mouse

// SOME OBJEX
make object sphere 1,5
make object box 2,50,1,50

// THE LOWER SENS# IS THE FASTER THE CAMERA WILL MOVE
SENS#=8
do
  // CAMERA ANGLE
  MAX#=CAX#+(mousemovey()/SENS#)
  MAY#=CAY#+(mousemovex()/SENS#)
  if MAX#<-90 then MAX#=-90
  if MAX#>90 then MAX#=90
  rotate camera MAX#,MAY#,0

  // PLAYER MOVEMENT BASED OFF WASD AND CAMERA ANGLE
  UPMOVE=keystate(17)-keystate(31)
  RIGHTMOVE=keystate(32)-keystate(30)
  if UPMOVE or RIGHTMOVE
   ANGLE#=atanfull(RIGHTMOVE,UPMOVE)+CAY#
   yrotate object 1,ANGLE#
   move object 1,1
  endif

  // CAMERA POSITION BASED OFF PLAYER POSITION AND CAMERA ANGLE
  X#=object position x(1) : Y#=object position y(1) : Z#=object position z(1)
  position camera X#-(sin(MAY#)*10),Y#+10,Z#-(cos(MAY#)*10) : ` if the trigonometry behind this line confuses you I can explain it (just ask)
  point camera X#,Y#+2.5,Z#
  move camera -15 : ` this is part of the trigonometry of that line 2 lines up^^
  rotate camera MAX#,MAY#,0
  CAX#=camera angle x() : CAY#=camera angle y()

  // RENDER
  sync
loop

// APP SETUP
sync on
sync rate 66
autocam off
color backdrop 0
hide mouse

// SOME OBJEX
make object sphere 1,5
make object box 2,50,1,50

// THE LOWER SENS# IS THE FASTER THE CAMERA WILL MOVE
SENS#=8
do
  // CAMERA ANGLE
  MAX#=CAX#+(mousemovey()/SENS#)
  MAY#=CAY#+(mousemovex()/SENS#)
  if MAX#<-90 then MAX#=-90
  if MAX#>90 then MAX#=90
  rotate camera MAX#,MAY#,0

  // PLAYER MOVEMENT BASED OFF WASD AND CAMERA ANGLE
  UPMOVE=keystate(17)-keystate(31)
  RIGHTMOVE=keystate(32)-keystate(30)
  if UPMOVE or RIGHTMOVE
   ANGLE#=atanfull(RIGHTMOVE,UPMOVE)+CAY#
   yrotate object 1,ANGLE#
   
   
   `added in to determine the x and z coordinates of the player object
   X# = newxvalue(X#, ANGLE#, 1.0)
   Z# = newzvalue(Z#, ANGLE#, 1.0)
         
  endif


  `control for jumping
  if space = 0
  	if spacekey() = 1 then yvel# = 2.0	:`initial upward speed of object 
  	space = 1
  endif
  if spacekey() = 0 then space = 0	

  
  Y# = Y# + yvel#		:`calculate new y coordinate of player object 
  yvel# = yvel# - 0.1	:`apply gravity (in this case = 0.1) to velocity
  if Y# <= 0.0			:`if player hits the ground
  	Y# = 0.0
  	yvel# = 0.0
  endif

  `position object
  position object 1, X#,Y#,Z#

  // CAMERA POSITION BASED OFF PLAYER POSITION AND CAMERA ANGLE
  `if the trigonometry behind this line confuses you I can explain it (just ask)
  x_cam# = X#-(sin(MAY#)*10)
  y_cam# = Y#+5
  z_cam# = Z#-(cos(MAY#)*10)

  `position and point the camera
  position camera x_cam#,y_cam#,z_cam#
  point camera X#,Y#+2.5,Z#
  move camera -15 : ` this is part of the trigonometry of that line 2 lines up^^
  rotate camera MAX#,MAY#,0
  CAX#=camera angle x() : CAY#=camera angle y()

  // RENDER
  sync
loop