Sorry your browser is not supported!

PHY SET RIGID BODY MASS OFFSET LOCAL ID, x#, y#, z#

`check if its possible to shoot arrow
if mouseclick()=1 and bulletflies = 0 and addon < 30
 bullet = 500
 bulletflies = 1

`make a fake instance so it looks arrow just stays in the same place, but you actually place an copy of teh arrow at that place and shoot the other one again
INSTANCE OBJECT Pijl + addon, Pijl
position object Pijl+addon, object position x(Pijl), object position y(Pijl), object position z(Pijl) : rotate object Pijl+addon, object angle x(Pijl), object angle y(Pijl), object angle z(Pijl)
set object collision off Pijl+addon
inc addon

`phy set rigid body linear momentum Pijl, 0.0, 0.0, 0.0
`phy set rigid body angular velocity Pijl, 0.0, 0.0, 0.0
phy delete rigid body Pijl

`position arrow in good position
 XX# = newxvalue(XX#, camera angle y(1), 50)
 YY# = newyvalue(YY#, camera angle x(1), 50)
 ZZ# = newzvalue(ZZ#, camera angle y(1), 50)
 `play sound GunSnd
 position object Pijl,XX#,YY#,ZZ#
 rotate object Pijl,camera angle x(1),camera angle y(1),camera angle z(1)
 `set bsp object collision 2,BulletObj,0.1,1
 move object Pijl, 20
 
`setup the phys variables. I think that it goes wrong HERE 
 phy make rigid body dynamic capsule Pijl, 1
 PHY SET RIGID BODY MASS Pijl, 1000
 PHY SET RIGID BODY MASS OFFSET LOCAL Pijl, 0, 0, -80

 `movement
 phy add rigid body local force Pijl, 0, 0, 1000000, 0

Rem Project: bow phys dark test
Rem Created: Wednesday, March 18, 2009

Rem ***** Main Source File *****

sync on : sync rate 40

set window on

if check display mode(800,600,16)=1 then set display mode 800, 600, 16
if check display mode(800,600,32)=1 then set display mode 800, 600, 32
if check display mode(1024,768,16)=1 then set display mode 1024, 768, 16
if check display mode(1024,768,32)=1 then set display mode 1024, 768, 32
if check display mode(1280,800,16)=1 then set display mode 1280, 800, 16
if check display mode(1280,800,32)=1 then set display mode 1280, 800, 32

set window off

make camera 1 : autocam off : hide mouse

randomize timer()

phy start
center text screen width()/2, screen height()/2, "Did first" : sync : cls
phy make material 1,"first"
phy set material static friction 1,3
phy set material dynamic friction 1,2
phy set material restitution 1,0.5
phy build material 1

center text screen width()/2, screen height()/2, "Did second" : sync : cls
phy make material 2,"second"
phy set material static friction 2,4
phy set material dynamic friction 2,1
phy set material restitution 2,0.3
phy build material 2

center text screen width()/2, screen height()/2, "Did third" : sync : cls
phy make material 3,"third"
phy set material static friction 3,7
phy set material dynamic friction 3,5
phy set material restitution 3,0.6
phy build material 3

center text screen width()/2, screen height()/2, "Did fourth" : sync : cls
phy make material 4,"fourth"
phy set material static friction 4,3
phy set material dynamic friction 4,1
phy set material restitution 4,0.7
phy build material 4

center text screen width()/2, screen height()/2, "Did fifth" : sync : cls
phy make material 5,"fifth"
phy set material static friction 5,2
phy set material dynamic friction 5,8
phy set material restitution 5,0.4
phy build material 5

center text screen width()/2, screen height()/2, "Did ground" : sync : cls

make object box 1, 1000, 10, 1000
position object 1, 500, -20, 500
color object 1, rgb(rnd(255),rnd(255),rnd(255))
phy make rigid body static box 1

center text screen width()/2, screen height()/2, "making boxes" : sync : cls
for x = 100 to 500
make object cube x, 5
position object x, rnd(1000), 1000, rnd(1000)
color object x, rgb(rnd(255),rnd(255),rnd(255))
phy make rigid body dynamic box x, rnd(4)+1
phy set rigid body linear velocity x, 0, rnd(200)-100, 0
phy set rigid body angular velocity x, rnd(100)-50, rnd(100)-50, rnd(100)-50
next x

delay = timer()
arrow = 2
addon = 0

do
gosub controls

gosub arrows

phy update
sync
loop

controls:
XX# = camera position x(1)
YY# = camera position y(1)
ZZ# = camera position z(1)

if keystate(13)=1 then inc YY#
if keystate(12)=1 then dec YY#

rotate camera 1,curvevalue(camera angle x(1)+(mousemovey()/2.0),camera angle x(1),3),curvevalue(camera angle y(1)+(mousemovex()/2.0),camera angle y(1),3),0

if keystate(17)=1 and keystate(30)=1 or keystate(17)=1 and keystate(32)=1 or keystate(31)=1 and keystate(30)=1 or keystate(31)=1 and keystate(32)=1 : step#=3.5 : else : step#=5.0 : endif

`vooruit
if keystate(17)=1 : XF# = newxvalue(camera position x(1), wrapvalue(camera angle y(1)), step#) : ZF# = newzvalue(camera position z(1), wrapvalue(camera angle y(1)), step#) : position camera 1, XF#, YY#, ZF# : endif
`achteruit
if keystate(31)=1 : XB# = newxvalue(camera position x(1), wrapvalue(camera angle y(1)-180), step#) : ZB# = newzvalue(camera position z(1), wrapvalue(camera angle y(1)-180), step#) : position camera 1, XB#, YY#, ZB# : endif
`links
if keystate(30)=1 : XL# = newxvalue(camera position x(1), wrapvalue(camera angle y(1)-90), step#) : ZL# = newzvalue(camera position z(1), wrapvalue(camera angle y(1)-90), step#) : position camera 1, XL#, YY#, ZL# : endif
`rechts
if keystate(32)=1 : XR# = newxvalue(camera position x(1), wrapvalue(camera angle y(1)+90), step#) : ZR# = newzvalue(camera position z(1), wrapvalue(camera angle y(1)+90), step#) : position camera 1, XR#, YY#, ZR# : endif

position camera camera position x(1), YY#, camera position z(1)

if wrapvalue(camera angle x(1))>90 and wrapvalue(camera angle x(1))<180 then xrotate camera 1,90
if wrapvalue(camera angle x(1))>180 and wrapvalue(camera angle x(1))<280 then xrotate camera 1,280

return

arrows:
if mouseclick() = 1 and timer() - delay => 500
make object box arrow+addon, 2, 2, 20
position object arrow+addon, newxvalue(camera position x(1), camera angle y(1), 50), newyvalue(camera position y(1), camera angle x(1), 50), newzvalue(camera position z(1), camera angle y(1), 50)
rotate object arrow+addon, camera angle x(1), camera angle y(1), camera angle z(1)
phy make rigid body dynamic box arrow+addon

phy add rigid body local force arrow+addon, 0, 0, 50, 4

delay = timer() : inc addon
endif
return

center text screen width()/2, screen height()/2, "making boxes" : sync : cls
for x = 100 to 500
make object cube x, 5
position object x, rnd(1000), 1000, rnd(1000)
color object x, rgb(rnd(255),rnd(255),rnd(255))
phy make rigid body dynamic box x, rnd(4)+1
phy set rigid body linear velocity x, 0, -100+rnd(200), 0
phy set rigid body angular velocity x, -50+rnd(100), -50+rnd(100), -50+rnd(100)


next x

sync on
sync rate 60
autocam off

Controller = 100
Model = 101

` load model and exclude it as we will clone it later
` i just use a long box for now
`Load object "arrow.x", Model
make object box Model, 10,10,150
exclude object on Model



phy start

`make wall to shoot at
make object box 1, 1000,1000,1
phy make rigid body static box 1

` position camera to the side and angle it to wiew the flightpath
position camera -1500,100,-1000
point camera 0,0,-800

` number of arrows shot
arrownumber = 0
do
   text 0,0,"Press mouse button to shoot arrow, up/down keys with mouse to move camera"
   ` make physics go normal speed
   fps# = screen fps()
   if fps#
      phy set fixed timing fps#/60
   endif


   if mouseclick() and object exist(Controller) = 0

      ` create controller physics object and hide it
      make object sphere Controller, 10
      position object Controller , 0,0,-2000
      phy make rigid body dynamic sphere Controller
      hide object Controller

      ` put controller in motion
      angy# = rnd(20)-10
      angx# = rnd(10)+10
      force# = 200
      phy set rigid body linear velocity Controller , force#*sin(angy#)*cos(angx#),force#*sin(angx#),force#*cos(angy#)*cos(angx#)

      ` new arrow
      inc arrownumber
      clone object Model + arrownumber , Model , 1

   endif

   ` collide with wall, this has to be before we move the model, otherwise it will collide then bounce and be left in the wrong angle
   ` try rem this out for the arrow to bounce
   while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a=1 and b=Controller
         ` we hit wall, delete Controller and let arrow stick in wall
         phy delete rigid body Controller
         delete object Controller
      endif
   endwhile

   ` just in case we miss the target , delete controller if we get below -2000 y
   if object exist(Controller)
      if object position y( Controller ) < -2000
         phy delete rigid body Controller
         delete object Controller
      endif
   endif

   if object exist(Controller)
      ` Here we get the Controller objects travel angle and update the model to it

      ` Get horizontal angle
      x1# = object position x( Controller )
      x2# = object position x( Controller )-phy get rigid body linear velocity x( Controller )
      z1# = object position z( Controller )
      z2# = object position z( Controller )-phy get rigid body linear velocity z( Controller )
      angley# = atanfull(x1#-x2#, z1#-z2#)

      ` Get elevation angle (note, i dont use sqrt, just the average angle).
      x1# = 0
      z1# = 0
      z2# = (abs(phy get rigid body linear velocity x( Controller )) + abs(phy get rigid body linear velocity z( Controller )))/2
      x2# = phy get rigid body linear velocity y( Controller )
      anglex# = atanfull(x1#-x2#, z1#-z2#)

      ` rotate Model object to the angle Controller is traveling in.
      ` if the model goes sideways or backwards adjust angle with adjustangley# and adjustanglex#
      adjustangley# = 180 : adjustanglex# = 0
      xrotate object Model + arrownumber ,  wrapvalue(anglex# + adjustanglex# )
      yrotate object Model + arrownumber ,  wrapvalue(angley# + adjustangley# )

      ` position Model at the Controllers position
      position object Model + arrownumber, object position x( Controller ) , object position y( Controller ) , object position z( Controller )

   endif

   `move camera with up down arrow and mouse
   camspeed=20
   rotate camera wrapvalue(camera angle x()+mousemovey()/2),wrapvalue(camera angle y()+mousemovex()/2),0
   move camera (upkey()-downkey())*camspeed

   phy update
   sync

loop