Sorry your browser is not supported!

      make object sphere ammoID,1

      position object ammoID,camera position x(),camera position y(),camera position z()
Set Object To Camera Orientation ammoID
     move object ammoID,10

      phy make rigid body dynamic sphere ammoID
     phy set rigid body linear velocity ammoID, ??????,?????,?????
    phy set rigid body mass ammoID, 500

phy set rigid body position cursorobj,objx#+pickdiffx#,objy#+pickdiffy#,objz#+pickdiffz#
phy add rigid body force cursorobj, 0.0,0.1,0.1,1

em Project: phypickupanddrop1
Rem Created: 04/10/2006 04:24:40

Rem ***** Main Source File *****
Rem Project: phypickobject1
Rem Created: 10/08/2006 04:38:53

phy start
sync on
sync rate 0
autocam off
color backdrop 0

make light 1
set directional light 1, -5, -5, 5
position camera -20, 20, -25
point camera 0, 10, 0

make object box 1, 1000, 2, 1000
color object 1,RGB(0,128,128)
phy make rigid body static box 1

make object box 2,5,2,1
phy make rigid body dynamic box 2
phy set rigid body mass 2,1
phy set rigid body linear velocity 2,0,0.1,0
Rem ***** Main Source File *****
do
gosub _drag_object
Set Object To Camera Orientation 2

   phy update
sync
loop

_drag_object:

if mouseclick()=0 then pickmode=0 : cursorobj=0
mclick=mouseclick()
if mclick>0
 if pickmode=0
  cursorobj=pick object(mousex(),mousey(),2,2)
text 0,0,"object = "+str$(cursorobj):sync
  if cursorobj>0
   pickmode=mclick
   pickdistance#=get pick distance()
   pickfromx#=get pick vector x()
   pickfromy#=get pick vector y()
   pickfromz#=get pick vector z()
   if pickmode=1
    objx#=object position x(cursorobj)
    objy#=object position y(cursorobj)
    objz#=object position z(cursorobj)
   else
    objx#=object angle x(cursorobj)
    objy#=object angle y(cursorobj)
    objz#=object angle z(cursorobj)
    pickdiffx#=mousemovey() : pickdiffx#=0
    pickdiffy#=mousemovex() : pickdiffy#=0
   endif
  else
   highlightobj=0
  endif
 endif
 if pickmode>0
  if pickmode=1
   pick screen mousex(),mousey(),pickdistance#
   picktox#=get pick vector x()
   picktoy#=get pick vector y()
   picktoz#=get pick vector z()
   pickdiffx#=picktox#-pickfromx#
   pickdiffy#=picktoy#-pickfromy#
   pickdiffz#=picktoz#-pickfromz#
   grid=0
   if grid=1
    pickdiffx#=int(pickdiffx#/5)*5
    pickdiffy#=int(pickdiffy#/5)*5
    pickdiffz#=int(pickdiffz#/5)*5
   endif
phy set rigid body position cursorobj,objx#+pickdiffx#,objy#+pickdiffy#,objz#+pickdiffz#
phy add rigid body force cursorobj, 0.0,0.6,0.5,1
   `position object cursorobj,objx#+pickdiffx#,objy#+pickdiffy#,objz#+pickdiffz#
  else
   pickdiffx#=pickdiffx#+mousemovey()
   pickdiffy#=pickdiffy#+mousemovex()
   grid=0
   if grid=1
    tpickdiffx#=int(pickdiffx#/22.5)*22.5
    tpickdiffy#=int(pickdiffy#/22.5)*22.5
   else
    tpickdiffx#=pickdiffx#
    tpickdiffy#=pickdiffy#
   endif
   `rotate object cursorobj,wrapvalue(objx#-tpickdiffx#),wrapvalue(objy#-tpickdiffy#),objz#
rotate camera 0,wrapvalue(objx#-tpickdiffx#),wrapvalue(objy#-tpickdiffy#),objz#
  endif
 endif
endif

return

  cx#=camera position x()
      cy#=camera position y()
      cz#=camera position z()
      position object shooter,camera position x(),camera position y(),camera position z()
      set object to camera orientation shooter
      move object shooter,1
      sx#=object position x(shooter)-cx#
      sy#=object position y(shooter)-cy#
      sz#=object position z(shooter)-cz#
      phy make rigid body dynamic sphere shooter
      phy set rigid body linear velocity shooter,sx#*power#,sy#*power#,sz#*power#

function controlShooting()
   if mouseclick()=1 and mtimer<timer()
      mtimer = timer()+300


power# =10
  cx#=camera position x()
      cy#=camera position y()
      cz#=camera position z()

      make object sphere ammoID,1

      position object ammoID,camera position x(),camera position y(),camera position z()
Set Object To Camera Orientation ammoID

 ` cx#=object position x(ammoID)
  ``    cy#=object position y(ammoID)
  `    cz#=object position z(ammoID)


   `   move object right ammoID,object position x(gun)+2.5
  `    move object up ammoID,object position y(gun)-2
  `    move object ammoID,object position z(gun)-3

      move object ammoID,10
      sx#=object position x(ammoID)-cx#
      sy#=object position y(ammoID)-cy#
      sz#=object position z(ammoID)-cz#
      phy make rigid body dynamic sphere ammoID
      phy set rigid body linear velocity ammoID,sx#*power#,sy#*power#,sz#*power#


    phy set rigid body mass ammoID, 500

`
      inc ammoID
   endif
endfunction