got something going but it needs some work on getting the fire to be the same direction you are facing.
have a look you may see what you might need to do.
Phy Start
AI start
`set window off
`set display mode 1600,1200,16
sync on
sync rate 120
position camera 0,0,30,-100
make object box 1,3,10,3
make object box 2,100,1,100
make object cube 3,20
make object cube 4,20
position object 1,0,20,0
position object 2,0,0,0
position object 3,30,1,0
position object 4,10,23,0
color object 2,RGB(255,0,0)
phy make box character controller 1,0,5.6,0,1.5,5,1.5,2,2,5
phy make rigid body static box 2
phy make rigid body static box 3
phy make rigid body static box 4
x# = object position x(1)
y# = object position y(1)
z# = object position z(1)
objectnum = 100
do
text 0,40,"x="+ str$(x#)+" y="+str$(y#)+" z= "+str$(z#)
x# = object position x (1)
y# = object position y (1)
z# = object position z (1)
newcax#=camera angle x()
cax#=camera angle x()
cax#=cax#+mousemovey()/2
if cax# > 60 and cax# < 310
cax# = newcax#
ENDIF
xrotate camera wrapvalue(cax#)
text 0,0,Str$(cax#)
text 0,10,Str$(cay#)
position camera 0,x#,y#,z#
rotate object 1,0,cay#,0
if keystate(30)=1
rotation# = rotation# - 1
yrotate camera 0,rotation#
cay#=camera angle y()
yrotate camera 0,cay#
ENDIF
if keystate(32)=1
rotation# = rotation# + 1
yrotate camera 0,rotation#
cay#=camera angle y()
yrotate camera 0,cay#
ENDIF
if keystate(17)=1
phy move character controller 1,10.0
ENDIF
if keystate(31)=1
phy move character controller 1,-10.0
ENDIF
if spacekey()=1 and pressed=0
pressed=1-pressed
objectnum = objectnum + 1
make object sphere objectnum,1
` position object objectnum,x#,y#,z#
`rotate object objectnum,0,rotation#,0
` move object objectnum,100
color object objectnum,RGB(0,50,255)
phy make rigid body dynamic sphere objectnum
phy set rigid body position objectnum,x#,y#,z#+1
phy set rigid body rotation objectnum,x#,cay#,z#
phy add rigid body force objectnum,0,5,2,cax#,cay#,caz#,2
ENDIF
if spacekey()<>1 then pressed=1-pressed
oy# = object angle y(1)
ox# = object angle x(1)
oz# = object angle z(1)
rotate object 1,90,0,0
phy move character controller 1,1
rotate object 1,ox#,oy#,oz#
text 0,50,str$(objectnum)
phy update
sync
LOOPDark Physics makes any hot drink go cold.
