Sorry your browser is not supported!

set display mode 800,600,32
sync on
sync rate 40

make matrix 1,10000,10000,25,25
make object cube 1,25
lock object on 1
position object 1,0,-20,80

do
   gosub _move_camera
   sync
loop

`----------------------------------------------------------------
   _move_camera:
      move camera (upkey()-downkey())*5
      yang#=wrapvalue(camera angle y()+mousemovex())
      yrotate camera yang#

   return
`----------------------------------------------------------------

set display mode 800,600,32
sync on
sync rate 40

make matrix 1,10000,10000,25,25
make object cube 1,25
position object 1,0,13,0

do
   gosub _move_object
   sync
loop

`----------------------------------------------------------------
   _move_object:
      move object 1,(upkey()-downkey())*10
      yang#=wrapvalue(object angle y(1)+mousemovex())
      yrotate object 1,yang#

      set camera to follow object position x(1),object position y(1),object position z(1),yang#,100,50,10,1

   return
`----------------------------------------------------------------

set display mode 800,600,32
sync on
sync rate 40

make matrix 1,10000,10000,25,25
make object cube 1,25
position object 1,0,13,0

do
   gosub _move_object
   text 0,0,"Press SPACE to toggle perspective"
   os=ns
   ns=spacekey()
   if ns > os
      t=1-t
   endif
   if t=1 then cameradist=0
   if t=0 then cameradist=100
   sync
loop

`----------------------------------------------------------------
   _move_object:
      move object 1,(upkey()-downkey())*10
      yang#=wrapvalue(object angle y(1)+mousemovex())
      yrotate object 1,yang#

      set camera to follow object position x(1),object position y(1),object position z(1),yang#,cameradist,50,4,1

   return
`----------------------------------------------------------------

rem whenever planning to set the camera to an objects orientation
rem you may need to change the rotation order of the object or camera
set object rotation zyx OBJ

position camera objx,objy+(headheight),objz
set camera to object orientation OBJ
rem create code to rotate the head similar to the mouse look code
headx=wrapvalue(limb angle x(1,head)+mousemovey())
heady=wrapvalue(limb angle y(1,head)+mousemovex())
rotate camera wrapvalue(camera angle x()+headx),wrapvalue(camera angle y()+heady),0

sync on : sync rate 120
hide mouse

rem Make drone to mark a back position
make object sphere 3,10
hide object 3

player = 1
REM player object
LOAD OBJECT "H-Babe-move.x",player
SCALE OBJECT player,300,300,300
YROTATE OBJECT player,180
FIX OBJECT PIVOT player
LOOP OBJECT player,5,25
x# = 50.0
z# = 50.0
set object collision on player
make object collision box player,-2,-2,-2,2,2,2,1
x# = 50.0
z# = 50.0

sfov#=3.14/2.905
old#=mousemovez()
fov#=sfov#

do
rem whenever planning to set the camera to an objects orientation
rem you may need to change the rotation order of the object or camera
set object rotation zyx player

position camera objx,objy+(17height),objz
set camera to object orientation player
rem create code to rotate the head similar to the mouse look code
headx=wrapvalue(limb angle x(player,17)+mousemovey())
heady=wrapvalue(limb angle y(player,17)+mousemovex())
rotate camera wrapvalue(camera angle x()+17x),wrapvalue(camera angle y()+17y),0

  
   mmy=mousemovey()
   mmx=mousemovex()
  ` if mmy>0 then rotate  limb player,17,90,0,0
  ` if mmy<0 then rotate  limb player,17,-90,0,0
   if mmx<0 then turn object left player,10
   if mmx>0 then turn object right player,10   
 
   `controls
   if upkey()=1
      x#=newxvalue(x#,angy#,2.0)
      z#=newzvalue(z#,angy#,2.0)
   endif
   if downkey()=1
      x#=newxvalue(x#,wrapvalue(angy#-180),2.0)
      z#=newzvalue(z#,wrapvalue(angy#-180),2.0)
   endif
   if rightkey()=1
      x#=newxvalue(x#,wrapvalue(angy#+90),2.0)
      z#=newzvalue(z#,wrapvalue(angy#+90),2.0)
   endif
   if leftkey()=1
      x#=newxvalue(x#,wrapvalue(angy#-90),2.0)
      z#=newzvalue(z#,wrapvalue(angy#+90),2.0)
   endif

   `mouse looking
   angy#=wrapvalue(angy#+mousemovex()*2)
   angx#=wrapvalue(angx#+mousemovey()*2)
   angy#=curveangle(angy#,camera angle y(),10.0)
   angx#=curveangle(angx#,camera angle x(),10.0)


   `zoom/sniper
   if mousemovez()<>old
      mousemoved#=(mousemovez()-old#)/1200
      old#=mousemovez()
   else
      mousemoved=0
   endif
   newfov#=fov#-mousemoved#
   fov#=curvevalue(newfov#,fov#,5)
   if fov#<0.1 then fov#=0.1
   if fov#>sfov# then fov#=sfov#
   set camera FOV fov#


  If InKey$() = "1" Then cammode = 1 : ` third person
  If InKey$() = "2" Then cammode = 0 : ` first person


   `update camera
 `  rotate object angx#,angy#,0
  ` position object x#,y#,z#
 If cammode = 0
     rem Place camera and set orientation to object for FPS
     position camera object position x(player),object position y(player),object position z(player)
     set camera to object orientation player

   
    rem Place as over head for 3rd person

    move object player,-20
    position object 3,object position x(player),object position y(player),object position z(player)
    move object player,10



   rem Place camera and set orientation to object
   position camera object position x(3),object position y(3),object position z(3)
   set camera to object orientation player
  Endif
 sync
loop

rotate camera wrapvalue(camera angle x()+17x),wrapvalue(camera angle y()+17y),0

rem assume a look around mode has been set
if lookaround=1
   position camera objx,objy+(headheight),objz
   set camera to object orientation OBJ
   rem create code to rotate the head similar to the mouse look code
   rotate limb OBJ,head,wrapvalue(limb angle x(OBJ,head)+mousemovey()),wrapvalue(limb angle y(OBJ,head)+mousemovex()),0
   headx=limb angle x(OBJ,head)
   heady=limb angle y(OBJ,head)
   rotate camera wrapvalue(camera angle x()+headx),wrapvalue(camera angle y()+heady),0
endif
rem done looking around, set head back to center
rotate limb OBJ,head,originalx,originaly,originalz

rem limb look around
rem by latch
rem 2/22/2009

set display mode 800,600,32
sync on
sync rate 60
autocam off
hide mouse

rem make an object with a head
make object cube 1,25

make object cube 2,10
make mesh from object 2,2
add limb 1,1,2
delete object 2
delete mesh 2

offset limb 1,1,0,20,0
color limb 1,1,rgb(0,255,0)

position object 1,5000,13,5000
set object rotation zyx 1

rem make a matrix to walk around on
make matrix 1,10000,10000,30,30
randomize matrix 1,100


do
   gosub _move_object

   sync
loop

`----------------------------------------------------------
   _move_object:
      rem move the object
      objx#=object position x(1)
      objz#=object position z(1)

      yang#=wrapvalue(object angle y(1)+mousemovex())
      yrotate object 1,yang#

      newx#=newxvalue(objx#,yang#,((upkey()-downkey())*10))
      newz#=newzvalue(objz#,yang#,((upkey()-downkey())*10))
      objy#=get ground height(1,newx#,newz#)+13
      position object 1,newx#,objy#,newz#

      rem position the camera
      os=ns
      ns=spacekey()
      if os > ns
         mode=1-mode
      endif
      if mode=0
         camdist=150
         camheight=60+objy#
         smooth=5
      endif
      if mode=1
         camdist=1
         camheight=objy#+20
      endif

      set camera to follow newx#,objy#,newz#,yang#,camdist,camheight,smooth,1
      camx#=camera angle x()
      camy#=camera angle y()

      rem now enter look around mode
      if mode=1
         smooth=1
         rem if the right click is held - look around
         while mouseclick()=2
            rem target
            ink rgb(255,0,0),0
            circle screen width()/2,screen height()/2,20

            rem figure out head rotations
            headyang#=wrapvalue(limb angle y(1,1)+mousemovex())
            headxang#=wrapvalue(limb angle x(1,1)+mousemovey())

            rotate limb 1,1,headxang#,headyang#,0
            cy#=limb direction y(1,1)
            cx#=limb direction x(1,1)
            rotate camera cx#,cy#,0

            sync
         endwhile
         rem restore original rotations
         rotate camera camx#,camy#,camera angle z()
         rotate limb 1,1,0,0,0
      endif
   return

if limb angle y(OBJ,head) > 10 and limb angle y(OBJ,head) < 90
   headyang#=limb angle y(OBJ,head)
   yrotate object OBJ,wrapvalue(object angle y(OBJ)+headyang#)
   rem after body move, rotate the head back to 0 to align with body
   rotate limb OBJ,head,limb angle x(OBJ,head),0,0
endif
if limb angle y(OBJ,head) > 270 and limb angle y(OBJ,head) < 350
   headyang#=360-limb angle y(OBJ,head)
   yrotate object OBJ,wrapvalue(object angle y(OBJ)-headyang#)
   rotate limb OBJ,head,limb angle x(OBJ,head),0,0
endif