Sorry your browser is not supported!

"perform checklist for object limbs 1
`limb_count = GET LIMB COUNT(1)
`print limb_count
`MAKE OBJECT SPHERE 9999,2
`MAKE MESH FROM OBJECT 1,9999
`DELETE OBJECT 9999
`ADD LIMB 1,32,1
`OFFSET LIMB 1,32,0,-50,5
`DELETE MESH 1

do
rem xxxxxxxxxxxxxxxxxx control player1 xxxxxxxxxxxxxxxxxxxxxxxxxx
rem running
`if shiftkey() = 1 and upkey() = 1
`position object 1, x#, 0, z#
`loop object 1,264,286
`x# = newxvalue( x#, object angle y(1), -0.21 )
`z# = newzvalue( z#, object angle y(1), -0.21 )
`position camera x#, cy + 15, z# -50
`endif
rem waiting
`print limb_count
if upkey() = 0
position camera  x#, cy + 15, z# -50
point camera x#, cy, z#
position object 1, x#, 0, z#
loop object 1,23,283
endif
rem walk forwards
if upkey() = 1 and shiftkey() = 0
position object 1, x#, 0, z#
loop object 1,1,22
x# = newxvalue( x#, object angle y(1), -0.13 )
z# = newzvalue( z#, object angle y(1), -0.13 )
position camera x#, cy + 15, z# -50
point camera x#, cy, z#
endif
rem switch view
if spacekey() = 1
position camera x#, 8, z#
yrotate camera ay#
`cls
rem get mouse x y
mx=mousex()
my=mousey()
rem draw line from x y
line mx-10 ,my ,mx+10 ,my
line mx ,my-10 ,mx ,my+10
rem add sights maybe gosub spacekey
endif


Rem Left and Right
If Leftkey()=1 then aY# = Wrapvalue(aY#-5)
If Rightkey()=1 then aY# = Wrapvalue(aY#+5)
rem rotate the Player1
Yrotate object 1,aY# + 180
`yrotate camera ay#"

"if spacekey() = 1
position camera x#, 8, z#
yrotate camera ay#
`cls
rem get mouse x y
mx=mousex()
my=mousey()
rem draw line from x y
line mx-10 ,my ,mx+10 ,my
line mx ,my-10 ,mx ,my+10
rem add sights maybe gosub spacekey
lx# = limb angle x (1,32)
ly# = limb angle y (1,32)

lx# = mx
ly# = my
"

` Get the position of a point 5 000 units away from the main camera,
` that the mouse points at.
pick screen mouseX(), mouseY(), 5000.0 ` You could use a bigger number if your scene is large

` Retrieve the actual position of the point
` The pick vectors will origin from the camera position, so by adding
` the camera's positions to them you will get the absolute position
` of the target point.
targetX# = camera position x() + get pick vector x()
targetY# = camera position y() + get pick vector y()
targetZ# = camera position z() + get pick vector z()


` Now, I assume that you wanted to fire here.
` Follow this pseudocode:
for e = 1 to enemies ` Assuming there actually exists at least one enemy
   intersection# = intersect object(enemy(e).obj, enemy(e).posX, enemy(e).posY, enemy(e).posZ, targetX#, targetY#, targetZ#)
   if(intersection# > 0.0 and intersection <= 5000.0)
      ` Insert hit code here (the enemy 'e' was hit)
   endif
next e

"if spacekey() = 1
position camera x#, 8, z#
yrotate camera ay#
`cls
rem get mouse x y
mx=mousex()
my=mousey()
rem draw line from x y
line mx-10 ,my ,mx+10 ,my
line mx ,my-10 ,mx ,my+10
rem centre mouse
rem ????????????/?/?/
rem rotate camera with the mouse
rem rotate player with mouse
endif"