Sorry your browser is not supported!

function fpscam(object,rotateobj)
	CamX = Camera Angle X( )
	CamY = Camera Angle Y( )
	MMoveX = MouseMoveX( )
	MMoveY = MouseMoveY( )
	rotate camera object angle x (rotateobj),object angle y (rotateobj),object angle z (rotateobj)
	position camera object position x(object),object position y (object), object position z (object) 
endfunction

function fpscam(object,rotateobj)
	CamX = Camera Angle X( )
	CamY = Camera Angle Y( )
	MMoveX = MouseMoveX( )
	MMoveY = MouseMoveY( )
	rotate camera camera angle x ()+MMoveY/2.0,camera angle y ()+MMoveX/2.0,camera angle z ()
	position camera object position x(object),object position y (object), object position z (object) 
endfunction

camangx# =mousemovey()/2+oldcamx#
camangy# =mousemovex()/2+oldcamy#

set camera to object orientation 2

position camera object position x(15),object position y (15), object position z (15) 
        if Player.turn > 0 then turn camera right Player.turn + camangy#
		if Player.turn < 0 then turn camera left (Player.turn * -1) - camangy#
		if Player.turn = 0 and camangy# < 0 then turn camera left camangy#*-1
		if Player.turn = 0 and camangy# => 0 then turn camera right camangy#
		

		if Player.pitch > 0 then pitch camera up Player.pitch - camangx#
		if Player.pitch < 0 then pitch camera down (Player.pitch * -1) + camangx#
		if Player.pitch = 0 and camangx# >0 then pitch camera up camangx#*-1
		if Player.pitch = 0 and camangx# <= 0 then pitch camera down camangx#
		

		if Player.roll > 0 then roll camera right Player.roll
		if Player.roll < 0 then roll camera left (Player.roll * -1)
		
		
set object to camera orientation 15

  oldcamx# = camangx#
  oldcamy# = camangy#
return

type vect2
   x as float
   y as float
   z as float
endtype
global ret as vect2
global retAngle as vect2
autocam off
make object box 1,10,.1,10
position object 1,0,0,0
make object box 2,1,2,.5
ChildPos as vect2
ChildAng as vect2
ChildPos.x=rnd(10)-5
ChildPos.y=1
ChildPos.z=rnd(10)-5
ChildAng.x=rnd(10)-5

position object 2,ChildPos.x,ChildPos.y,ChildPos.z
sync on
sync rate 30
do
   rotate object 1,object angle x(1)+keystate(16)-keystate(30),object angle y(1)+keystate(17)-keystate(31),object angle z(1)+keystate(18)-keystate(32)

   if upkey()
      inc ChildPos.x,cos(ChildAng.y)*.1
      inc ChildPos.z,sin(ChildAng.y)*.1
   endif
   if downkey()
      inc ChildPos.x,-cos(ChildAng.y)*.1
      inc ChildPos.z,-sin(ChildAng.y)*.1
   endif
   inc ChildAng.x,mousemovey()
   inc ChildAng.y,mousemovex()
   rotate object 2,ChildAng.x,ChildAng.y,ChildAng.z
   ParentToChild(1,2,ChildPos)
   position object 2,ret.x,ret.y,ret.z
   rotate object 2,retAngle.x,retAngle.y,retAngle.z
   position camera ret.x,ret.y,ret.z
   rotate camera retAngle.x,retAngle.y,retAngle.z


   if spacekey()
      position camera 10,10,10
      point camera 0,0,0
   endif
   sync
loop







function ParentToChild(Parent as integer, Child as integer, offset as vect2)
   null = make matrix4(1)
   null = make matrix4(2)
   null = make matrix4(3)
   null = make vector4(4)
   null = make vector4(5)
   ObjectRotationMatrix(Parent,1)
   ObjectRotationMatrix(Child,2)
   set vector4 4,offset.x,offset.y,offset.z,1
   transform vector4 5,4,1
   ret.x=x vector4(5) : ret.y=y vector4(5) : ret.z=z vector4(5)
   multiply matrix4 3,2,1
   rotMatrixToEulerAng(3)
   null = delete matrix4(1)
   null = delete matrix4(2)
   null = delete matrix4(3)
   null = delete vector4(4)
   null = delete vector4(5)
endfunction
function rotMatrixToEulerAng(C as integer)
   C31#=M4Element(C,3,1)
   C32#=M4Element(C,3,2)
   C33#=M4Element(C,3,3)
   C21#=M4Element(C,2,1)
   C11#=M4Element(C,1,1)
   if absolut(C31#)<>1
      retAngle.y=-asin(C31#)
      retAngle.x=atanfull(C32#/cos(retAngle.y),C33#/cos(retAngle.y))
      retAngle.z=atanfull(C21#/cos(retAngle.y),C11#/cos(retAngle.y))
   else
      retAngle.z=0
      retAngle.y=posneg(C31#,90)
      retAngle.x=atanfull(posneg(C31#,C13#),posneg(C31#,C13#))
   endif
endfunction
function ObjectRotationMatrix(object as integer, mtrx as integer)
   null = make matrix4(1000)
   null = make matrix4(1001)
   null = make matrix4(1002)
   rotate x matrix4 1000,object angle x(object)*0.0174532925
   rotate y matrix4 1001,object angle y(object)*0.0174532925
   multiply matrix4 1002,1000,1001
   rotate z matrix4 1000,object angle z(object)*0.0174532925
   multiply matrix4 mtrx,1002,1000
   null = delete matrix4(1000)
   null = delete matrix4(1001)
   null = delete matrix4(1002)
endfunction
function posneg(a#,num#)
   if a#<0 then exitfunction -num#
   if a#>0 then exitfunction num#
endfunction 0.0
function absolut(a#)
   if a#>0 then exitfunction a#
   a#=-a#
endfunction a#
function M4Element(m4,row,column)
   n#=get matrix4 element(m4,(column-1)*4+row-1)
endfunction n#

updatehorizontalcollision(15)
updatehorizontalcollision(15)
ret.x=object position x(15)
ret.y=object position y(15)
ret.z=object position z(15)

_fps_cam:
   
ret.oldx = ret.x
ret.oldy = ret.y
ret.oldz = ret.z
oldchildx = childPos.x
oldchildy = childPos.y
oldchildz = childPos.z

if keystate(20)=1 
      inc ChildPos.x,sin(ChildAng.y)*.3
      inc ChildPos.z,cos(ChildAng.y)*.3
   endif
  if keystate(21)=1 
      inc ChildPos.x,-sin(ChildAng.y)*.3
      inc ChildPos.z,-cos(ChildAng.y)*.3
   endif
   
   if ChildAng.x >= -90 and ChildAng.x <= 90 
   		inc ChildAng.x,mousemovey()/2
   	else
   		if ChildAng.x <-90 then ChildAng.x = -90
   		if ChildAng.x >90 then ChildAng.x = 90
   endif
   
   inc ChildAng.y,mousemovex()/2
   rotate object 15,ChildAng.x,ChildAng.y,ChildAng.z
   ParentToChild(2,15,ChildPos)
   
   collide = sc_SphereSlideGroup(1,ret.oldx,ret.oldy,ret.oldz,ret.x,ret.oldy,ret.z,20,0)
  
   if collide > 0
      rem if hit, reposition player, halt movement vector
      ChildPos.x = sc_getCollisionSlideX()
      
      ChildPos.z = sc_getCollisionSlideZ()
      ParentToChild(2,15,ChildPos)
   endif
   
   position object 15,ret.x+player.x,ret.y+player.y,ret.z+player.z
   rotate object 15,retAngle.x,retAngle.y,retAngle.z
      
   position camera ret.x+player.x,ret.y+player.y,ret.z+player.z
   rotate camera retAngle.x,retAngle.y,retAngle.z
  
   SC_updateobject 15 //the player sphere
  
   return
   
  // ROTATION AROUND SHIP
   function ParentToChild(Parent as integer, Child as integer, offset as vect2)
   null = make matrix4(1)
   null = make matrix4(2)
   null = make matrix4(3)
   null = make vector4(4)
   null = make vector4(5)
   ObjectRotationMatrix(Parent,1)
   ObjectRotationMatrix(Child,2)
   set vector4 4,offset.x,offset.y+childdeck,offset.z,1
   transform vector4 5,4,1
   ret.x=x vector4(5) : ret.y=y vector4(5) : ret.z=z vector4(5)
   multiply matrix4 3,2,1
   rotMatrixToEulerAng(3)
   null = delete matrix4(1)
   null = delete matrix4(2)
   null = delete matrix4(3)
   null = delete vector4(4)
   null = delete vector4(5)
endfunction

function rotMatrixToEulerAng(C as integer)
   C31#=M4Element(C,3,1)
   C32#=M4Element(C,3,2)
   C33#=M4Element(C,3,3)
   C21#=M4Element(C,2,1)
   C11#=M4Element(C,1,1)
   if absolut(C31#)<>1
      retAngle.y=-asin(C31#)
      retAngle.x=atanfull(C32#/cos(retAngle.y),C33#/cos(retAngle.y))
      retAngle.z=atanfull(C21#/cos(retAngle.y),C11#/cos(retAngle.y))
   else
      retAngle.z=0
      retAngle.y=posneg(C31#,90)
      retAngle.x=atanfull(posneg(C31#,C13#),posneg(C31#,C13#))
   endif
endfunction
function ObjectRotationMatrix(object as integer, mtrx as integer)
   null = make matrix4(1000)
   null = make matrix4(1001)
   null = make matrix4(1002)
   rotate x matrix4 1000,object angle x(object)*0.0174532925
   rotate y matrix4 1001,object angle y(object)*0.0174532925
   multiply matrix4 1002,1000,1001
   rotate z matrix4 1000,object angle z(object)*0.0174532925
   multiply matrix4 mtrx,1002,1000
   null = delete matrix4(1000)
   null = delete matrix4(1001)
   null = delete matrix4(1002)
endfunction
function posneg(a#,num#)
   if a#<0 then exitfunction -num#
   if a#>0 then exitfunction num#
endfunction 0.0
function absolut(a#)
   if a#>0 then exitfunction a#
   a#=-a#
endfunction a#
function M4Element(m4,row,column)
   n#=get matrix4 element(m4,(column-1)*4+row-1)
endfunction n#