Fps physics bullet - GameCreators Forum

Author

Message

Markswii

17

Years of Service

User Offline

Joined: 5th Aug 2007

Location: Object position x (mark)

Posted: 15th Mar 2008 18:04

Link

I am creating a game in which I am mainly using dark physics I am at a point that has left me stuck for days. I want to create a bullet as a rigid body and when the mouse is clicked it should be positioned at the players position and rotated the same way the player is. I already have that but when I go to move the rigid body it moves only on the z axis dispite its rotation is there a way to fix this?

From the ashes of the first pc new breed of programmer is born. The TGC programmer can create a game in seconds with his mighty weapons of basic programming. (Is not an artist of any standards).

Back to top

Profile PM Email Website

Codger

22

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 15th Mar 2008 22:53

Link

As a bullet is generally fired directly away from you that would be the z plane, you did mean z plane and not z axis as that implies rotation?

System
PIV 2.8 MZ 512 Mem
FX 5600 256 mem

Back to top

Profile PM Email

Dewi Morgan

16

Years of Service

User Offline

Joined: 16th Jan 2008

Location: London, UK

Posted: 16th Mar 2008 14:23

Link

As I understand the question (which may not be correct), you are doing something like:

+ Code Snippet

#constant BULLET 1
#constant PLAYER 2
#constant BULLET_SPEED 60

` blah blah code to move player and let him shoot, then when he shoots:

Make Object Triangle BULLET
Position Object BULLET, Object Position X PLAYER, Object Position Y PLAYER, Object Position Z PLAYER
Rotate Object BULLET, Object Angle X PLAYER, Object Angle Y PLAYER, Object Angle Z PLAYER
Move Object BULLET, BULLET_SPEED/Screen Fps()

And the "Move Object" is moving the BULLET object in the global Z direction, rather than the direction the player is facing?

I think to find the problem, you'd need to paste at least the bullet position, rotation and movement code.

Yet another programmer - http://www.thudgame.com/mmo
All my posts are Public Domain unless I say otherwise.
You may use all my code and ideas as you see fit.

Back to top

Profile PM Website

Codger

22

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 16th Mar 2008 17:51

Link

@Dewi
You may have correctly guessed the approach but, I'm sure you realize that to incorporate a bullet in DP you do not want to use the move commands instead apply force proportional to the relative distances from the "gun" to the target. The bullet should be a dynamic object or, as you cannot see a bullet anyway the effects can be faked using raycasting and the forces applied directly to the target.

Codger

System
PIV 2.8 MZ 512 Mem
FX 5600 256 mem

Back to top

Profile PM Email

Natflash Games

18

Years of Service

User Offline

Joined: 7th Feb 2006

Location:

Posted: 16th Mar 2008 18:23

Link

This code will do what you want, suprisingly there is no phy move object in DP but this will work.

To create the bullet:

+ Code Snippet

if player_shoot
 make object cube bullet#,5
 position object bullet#,camera position x(),camera position y(),camera position z()
 rotate object bullet#,camera angle x(),camera angle y(),camera angle z()
 phy make rigid body dynamic box bullet#
 phy set rigid body mass bullet#,100000
endif

Then to move the bullet:

+ Code Snippet

phy set rigid body linear velocity bullet#,1500*sin(camera angle y())*cos(camera angle x()),1500*sin(camera angle x()),1500*cos(camera angle y())*cos(camera angle x())

That code will work, I had the exact same problem as you and thats how I fixed it.

Check out my site for the latest on my games.

Back to top

Profile PM Website

culmor30

17

Years of Service

User Offline

Joined: 16th Jun 2007

Location: In my head.

Posted: 16th Mar 2008 18:25

Link

Also, you could do what I did for my player object:

+ Code Snippet

`=====Create player object=====
PlayerObject = NextIDNumber()
make object cube PlayerObject,2
scale object PlayerObject,2,5,2
position object PlayerObject,10,2.5,0
move object PlayerObject,-25
sc_setupobject PlayerObject,0,2
hide object PlayerObject
`=====Create player object=====

pbpx#=object position x(PlayerObject)
pbpy#=object position y(PlayerObject)
pbpz#=object position z(PlayerObject)

`======== Make Dummy Object representing Player for Physics ==============
PlayerDummyObject = NextIDNumber()
make object cube PlayerDummyObject,5
scale object PlayerDummyObject,100,250,100
position object PlayerDummyObject,pbpx#,pbpy#-3,pbpz#
hide object PlayerDummyObject
phy make rigid body dynamic box PlayerDummyObject,PlayerDummyObject
phy set rigid body mass PlayerDummyObject,25.0
phy set rigid body kinematic PlayerDummyObject,1
`=========================================================================

And in the loop:

+ Code Snippet

`=====PLAYER PHY OBJ=====
phy set rigid body kinematic position PlayerDummyObject,object position x(PlayerObject), object position y(PlayerObject)-6,object position z(PlayerObject)
phy set rigid body kinematic rotation PlayerDummyObject,object angle x(PlayerObject), object angle y(PlayerObject),object angle z(PlayerObject)
`=====PLAYER PHY OBJ=====

Of course, you wouldn't need the sparky's commands I used, but that should give you a general idea. Make a normal DB sphere bullet and use a dummy phy object to follow it and have an effect on objects.

Back to top

Profile PM

Airslide

20

Years of Service

User Offline

Joined: 18th Oct 2004

Location: California

Posted: 19th Mar 2008 00:54

Link

If you want fast moving bullets, I highly reccomend using a raycast instead of a rigid body. The raycast will determine what you hit and you can use the collision feedback (if your using sparky's for instance) to apply force at that position. You can of course use a rigid body for slow moving projectiles like rockets or rifle-grenades.

FPSC Utilities Page

Back to top

Profile PM Email

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 14th Apr 2008 02:43

Link

ok I think I can help here, here is a pace of code that I was working on about a year or so ago

sync on :sync rate 100
autocam off
hide mouse
backdrop on
color backdrop rgb(0,0,0)

phy start

load image "bana01.jpg",1

` make a box as a holder for the banner
make object box 2, 20, 1, 1
position object 2, 0, 6.5, 20
hide object 2
phy make rigid body static box 2

` make our cloth
phy make cloth 3
phy set cloth dimensions 3, 5, 20, 0.2
phy set cloth position 3, 3, 7.1, 20
phy set cloth rotation 3, 90, 0, 180
phy set cloth friction 3, 1.0
phy set cloth tearing 3, 1
phy set cloth tear factor 3, 2.5
phy build cloth 3
phy attach cloth to shape 3, 2, 1
texture object 3,1
`SET REFLECTION SHADING ON 3

` set up some variables
ID=300
currentime = timer()
lasttime = 0

do

`************************************************************
remstart
`***  ***
Tiph = Tiph + 1

if Tiph >= 5
camX# = camera angle x()
camY# = camera angle y()
camZ# = camera angle z()
Tiph = 0
endif

`***  ***
   if  camera angle x() > camX# then Phx1 = 1 :TPhx1 = 1
   if  camera angle x() < camX# then Phx1 = 2 :TPhx1 = 1

if TPhx1 > 0
   if Phx1 = 1 then PHangX#=PHangX#+1.0 :TPhx1 = 0
   if Phx1 = 2 then PHangX#=PHangX#-1.0 :TPhx1 = 0
endif

if TPhx1 = 0 then Phx1 = 0

`***  ***
   if camera angle y() > camY# then  Phy1 = 1 :TPhy1 = 1
   if camera angle y() < camY# then  Phy1 = 2 :TPhy1 = 1

if TPhy1 > 0
   if Phy1 = 1 then PHangY#=PHangY#+1.0 :TPhy1 = 0
   if Phy1 = 2 then PHangY#=PHangY#-1.0 :TPhy1 = 0
endif

if TPhy1 = 0 then Phy1 = 0

`***  ***
   set cursor 20,20 :print PHangX#;"     ";camera angle x()
   set cursor 20,40 :print PHangY#;"     ";camera angle y()
   set cursor 20,60 :print Phx1
   set cursor 20,80 :print Phy1
   set cursor 20,100 :print TPhx1
   set cursor 20,120 :print TPhy1
remend
`***********************************************************

`*** camera positonng ***
   x# = camera position x()
   z# = camera position z()
   y# = camera position y()

remstart
   angX# = camera angle x()
   angY# = camera angle y()
   angZ# = camera angle z()
remend

`if upkey()=1 then move camera 0,1.5
   `if downkey()=1 then move camera 0,-1.5
  ` if rightkey()>0 then move camera 1.5
  ` if leftkey()>0 then move camera 1.5

rem camera rotation
   yrotate camera camera angle y() + mousemovex()*0.3
   xrotate camera camera angle x() + mousemovey()*0.3

rem stops mouse from going upside down
   if wrapvalue(camera angle x(0))>100 and wrapvalue(camera angle x(0))<120 then xrotate camera 0,100
   if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

rem camera position
   position camera x#,y#,z#

if mouseclick()=2 then move camera 0,-1.5
   if upkey()=1 then move camera 0,1.5
   if downkey()=1 then move camera 0,-1.5

`*** shooter ***
   gosub shooter

for c = 300 to ID
   if object exist(c)=1
      Xpos#=object position x(c)
      Ypos#=object position y(c)
      Zpos#=object position z(c)
      position object c,Xpos#,Ypos#,Zpos#

SQpos# = sqrt((Xpos# - camera position x())^2 + (Ypos# - camera position y())^2 + (Zpos# - camera position z())^2)
      if SQpos# > 500 then hide object c
   endif
next c

`*** update phyics ***
phy update

`*** end loop ***
sync
loop

`*** fire balls ***
shooter:

if speed# >= 300 then speed# = 300
if speed# <= 25 then speed# = 25

if spacekey()=1 then speed#=speed#+1
if returnkey()=1 then speed#=speed#-1
tisp=tisp+1
if spacekey()=0 then if tisp >= 25 then speed#=speed#-1 :tisp = 0

set cursor 20,20 : print "fire speed   :";speed#

if mouseclick()=1
      if (currenttime-lasttime) > 1000

angy# = camera angle y()
      angx# = -camera angle X()

make object sphere ID,1
         `scale object ID,25,25,25
         position object ID,camera position x(),camera position y(),camera position z()
         phy make rigid body dynamic sphere ID
         phy set rigid body linear velocity ID,speed#*sin(angY#)*cos(angX#),speed#*sin(angX#),speed#*cos(angY#)*cos(angX#)
         inc ID
         lasttime = timer()
      endif
   endif
currenttime = timer()
return

`*** end phy ***
phy end

+ Code Snippet

sync on :sync rate 100
autocam off
hide mouse
backdrop on
color backdrop rgb(0,0,0)


phy start

load image "bana01.jpg",1

` make a box as a holder for the banner
make object box 2, 20, 1, 1
position object 2, 0, 6.5, 20
hide object 2
phy make rigid body static box 2

` make our cloth
phy make cloth 3
phy set cloth dimensions 3, 5, 20, 0.2
phy set cloth position 3, 3, 7.1, 20
phy set cloth rotation 3, 90, 0, 180
phy set cloth friction 3, 1.0
phy set cloth tearing 3, 1
phy set cloth tear factor 3, 2.5
phy build cloth 3
phy attach cloth to shape 3, 2, 1
texture object 3,1
`SET REFLECTION SHADING ON 3



` set up some variables
ID=300
currentime = timer()
lasttime = 0


do

`************************************************************
remstart
`***  ***
Tiph = Tiph + 1

if Tiph >= 5
camX# = camera angle x()
camY# = camera angle y()
camZ# = camera angle z()
Tiph = 0
endif

`***  ***
   if  camera angle x() > camX# then Phx1 = 1 :TPhx1 = 1
   if  camera angle x() < camX# then Phx1 = 2 :TPhx1 = 1

if TPhx1 > 0
   if Phx1 = 1 then PHangX#=PHangX#+1.0 :TPhx1 = 0
   if Phx1 = 2 then PHangX#=PHangX#-1.0 :TPhx1 = 0
endif

if TPhx1 = 0 then Phx1 = 0

`***  ***
   if camera angle y() > camY# then  Phy1 = 1 :TPhy1 = 1
   if camera angle y() < camY# then  Phy1 = 2 :TPhy1 = 1

if TPhy1 > 0
   if Phy1 = 1 then PHangY#=PHangY#+1.0 :TPhy1 = 0
   if Phy1 = 2 then PHangY#=PHangY#-1.0 :TPhy1 = 0
endif

if TPhy1 = 0 then Phy1 = 0

`***  ***
   set cursor 20,20 :print PHangX#;"     ";camera angle x()
   set cursor 20,40 :print PHangY#;"     ";camera angle y()
   set cursor 20,60 :print Phx1
   set cursor 20,80 :print Phy1
   set cursor 20,100 :print TPhx1
   set cursor 20,120 :print TPhy1
remend
`***********************************************************

   `*** camera positonng ***
   x# = camera position x()
   z# = camera position z()
   y# = camera position y()

remstart
   angX# = camera angle x()
   angY# = camera angle y()
   angZ# = camera angle z()
remend

   `if upkey()=1 then move camera 0,1.5
   `if downkey()=1 then move camera 0,-1.5
  ` if rightkey()>0 then move camera 1.5
  ` if leftkey()>0 then move camera 1.5

   rem camera rotation
   yrotate camera camera angle y() + mousemovex()*0.3
   xrotate camera camera angle x() + mousemovey()*0.3

   rem stops mouse from going upside down
   if wrapvalue(camera angle x(0))>100 and wrapvalue(camera angle x(0))<120 then xrotate camera 0,100
   if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

   rem camera position
   position camera x#,y#,z#

   if mouseclick()=2 then move camera 0,-1.5
   if upkey()=1 then move camera 0,1.5
   if downkey()=1 then move camera 0,-1.5

   `*** shooter ***
   gosub shooter

for c = 300 to ID
   if object exist(c)=1
      Xpos#=object position x(c)
      Ypos#=object position y(c)
      Zpos#=object position z(c)
      position object c,Xpos#,Ypos#,Zpos#

      SQpos# = sqrt((Xpos# - camera position x())^2 + (Ypos# - camera position y())^2 + (Zpos# - camera position z())^2)
      if SQpos# > 500 then hide object c
   endif
next c

`*** update phyics ***
phy update

`*** end loop ***
sync
loop

`*** fire balls ***
shooter:

if speed# >= 300 then speed# = 300
if speed# <= 25 then speed# = 25

if spacekey()=1 then speed#=speed#+1
if returnkey()=1 then speed#=speed#-1
tisp=tisp+1
if spacekey()=0 then if tisp >= 25 then speed#=speed#-1 :tisp = 0

set cursor 20,20 : print "fire speed   :";speed#

   if mouseclick()=1
      if (currenttime-lasttime) > 1000

      angy# = camera angle y()
      angx# = -camera angle X()

         make object sphere ID,1
         `scale object ID,25,25,25
         position object ID,camera position x(),camera position y(),camera position z()
         phy make rigid body dynamic sphere ID
         phy set rigid body linear velocity ID,speed#*sin(angY#)*cos(angX#),speed#*sin(angX#),speed#*cos(angY#)*cos(angX#)
         inc ID
         lasttime = timer()
      endif
   endif
currenttime = timer()
return

`*** end phy ***
phy end

hope it helps I've added a texture to sweeten the deal, if you use this image in your games please give me credit for it, thats all I ask, and if any one could help me with my problem witch I've posted at http://forum.thegamecreators.com/?m=forum_view&t=127692&b=30

hope this helps

From the dark and in to the light, twisted the body of madness, dark souls to only the one who would be called, Death lord of the dead, king of the forgotten, keep of lost souls.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 14th Apr 2008 02:45

Link

ok I think I can help here, here is a pace of code that I was working on about a year or so ago

sync on :sync rate 100
autocam off
hide mouse
backdrop on
color backdrop rgb(0,0,0)

phy start

load image "bana01.jpg",1

` make a box as a holder for the banner
make object box 2, 20, 1, 1
position object 2, 0, 6.5, 20
hide object 2
phy make rigid body static box 2

` make our cloth
phy make cloth 3
phy set cloth dimensions 3, 5, 20, 0.2
phy set cloth position 3, 3, 7.1, 20
phy set cloth rotation 3, 90, 0, 180
phy set cloth friction 3, 1.0
phy set cloth tearing 3, 1
phy set cloth tear factor 3, 2.5
phy build cloth 3
phy attach cloth to shape 3, 2, 1
texture object 3,1
`SET REFLECTION SHADING ON 3

` set up some variables
ID=300
currentime = timer()
lasttime = 0

do

`************************************************************
remstart
`***  ***
Tiph = Tiph + 1

if Tiph >= 5
camX# = camera angle x()
camY# = camera angle y()
camZ# = camera angle z()
Tiph = 0
endif

`***  ***
   if  camera angle x() > camX# then Phx1 = 1 :TPhx1 = 1
   if  camera angle x() < camX# then Phx1 = 2 :TPhx1 = 1

if TPhx1 > 0
   if Phx1 = 1 then PHangX#=PHangX#+1.0 :TPhx1 = 0
   if Phx1 = 2 then PHangX#=PHangX#-1.0 :TPhx1 = 0
endif

if TPhx1 = 0 then Phx1 = 0

`***  ***
   if camera angle y() > camY# then  Phy1 = 1 :TPhy1 = 1
   if camera angle y() < camY# then  Phy1 = 2 :TPhy1 = 1

if TPhy1 > 0
   if Phy1 = 1 then PHangY#=PHangY#+1.0 :TPhy1 = 0
   if Phy1 = 2 then PHangY#=PHangY#-1.0 :TPhy1 = 0
endif

if TPhy1 = 0 then Phy1 = 0

`***  ***
   set cursor 20,20 :print PHangX#;"     ";camera angle x()
   set cursor 20,40 :print PHangY#;"     ";camera angle y()
   set cursor 20,60 :print Phx1
   set cursor 20,80 :print Phy1
   set cursor 20,100 :print TPhx1
   set cursor 20,120 :print TPhy1
remend
`***********************************************************

`*** camera positonng ***
   x# = camera position x()
   z# = camera position z()
   y# = camera position y()

remstart
   angX# = camera angle x()
   angY# = camera angle y()
   angZ# = camera angle z()
remend

`if upkey()=1 then move camera 0,1.5
   `if downkey()=1 then move camera 0,-1.5
  ` if rightkey()>0 then move camera 1.5
  ` if leftkey()>0 then move camera 1.5

rem camera rotation
   yrotate camera camera angle y() + mousemovex()*0.3
   xrotate camera camera angle x() + mousemovey()*0.3

rem stops mouse from going upside down
   if wrapvalue(camera angle x(0))>100 and wrapvalue(camera angle x(0))<120 then xrotate camera 0,100
   if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

rem camera position
   position camera x#,y#,z#

if mouseclick()=2 then move camera 0,-1.5
   if upkey()=1 then move camera 0,1.5
   if downkey()=1 then move camera 0,-1.5

`*** shooter ***
   gosub shooter

for c = 300 to ID
   if object exist(c)=1
      Xpos#=object position x(c)
      Ypos#=object position y(c)
      Zpos#=object position z(c)
      position object c,Xpos#,Ypos#,Zpos#

SQpos# = sqrt((Xpos# - camera position x())^2 + (Ypos# - camera position y())^2 + (Zpos# - camera position z())^2)
      if SQpos# > 500 then hide object c
   endif
next c

`*** update phyics ***
phy update

`*** end loop ***
sync
loop

`*** fire balls ***
shooter:

if speed# >= 300 then speed# = 300
if speed# <= 25 then speed# = 25

if spacekey()=1 then speed#=speed#+1
if returnkey()=1 then speed#=speed#-1
tisp=tisp+1
if spacekey()=0 then if tisp >= 25 then speed#=speed#-1 :tisp = 0

set cursor 20,20 : print "fire speed   :";speed#

if mouseclick()=1
      if (currenttime-lasttime) > 1000

angy# = camera angle y()
      angx# = -camera angle X()

make object sphere ID,1
         `scale object ID,25,25,25
         position object ID,camera position x(),camera position y(),camera position z()
         phy make rigid body dynamic sphere ID
         phy set rigid body linear velocity ID,speed#*sin(angY#)*cos(angX#),speed#*sin(angX#),speed#*cos(angY#)*cos(angX#)
         inc ID
         lasttime = timer()
      endif
   endif
currenttime = timer()
return

`*** end phy ***
phy end

+ Code Snippet

sync on :sync rate 100
autocam off
hide mouse
backdrop on
color backdrop rgb(0,0,0)


phy start

load image "bana01.jpg",1

` make a box as a holder for the banner
make object box 2, 20, 1, 1
position object 2, 0, 6.5, 20
hide object 2
phy make rigid body static box 2

` make our cloth
phy make cloth 3
phy set cloth dimensions 3, 5, 20, 0.2
phy set cloth position 3, 3, 7.1, 20
phy set cloth rotation 3, 90, 0, 180
phy set cloth friction 3, 1.0
phy set cloth tearing 3, 1
phy set cloth tear factor 3, 2.5
phy build cloth 3
phy attach cloth to shape 3, 2, 1
texture object 3,1
`SET REFLECTION SHADING ON 3



` set up some variables
ID=300
currentime = timer()
lasttime = 0


do

`************************************************************
remstart
`***  ***
Tiph = Tiph + 1

if Tiph >= 5
camX# = camera angle x()
camY# = camera angle y()
camZ# = camera angle z()
Tiph = 0
endif

`***  ***
   if  camera angle x() > camX# then Phx1 = 1 :TPhx1 = 1
   if  camera angle x() < camX# then Phx1 = 2 :TPhx1 = 1

if TPhx1 > 0
   if Phx1 = 1 then PHangX#=PHangX#+1.0 :TPhx1 = 0
   if Phx1 = 2 then PHangX#=PHangX#-1.0 :TPhx1 = 0
endif

if TPhx1 = 0 then Phx1 = 0

`***  ***
   if camera angle y() > camY# then  Phy1 = 1 :TPhy1 = 1
   if camera angle y() < camY# then  Phy1 = 2 :TPhy1 = 1

if TPhy1 > 0
   if Phy1 = 1 then PHangY#=PHangY#+1.0 :TPhy1 = 0
   if Phy1 = 2 then PHangY#=PHangY#-1.0 :TPhy1 = 0
endif

if TPhy1 = 0 then Phy1 = 0

`***  ***
   set cursor 20,20 :print PHangX#;"     ";camera angle x()
   set cursor 20,40 :print PHangY#;"     ";camera angle y()
   set cursor 20,60 :print Phx1
   set cursor 20,80 :print Phy1
   set cursor 20,100 :print TPhx1
   set cursor 20,120 :print TPhy1
remend
`***********************************************************

   `*** camera positonng ***
   x# = camera position x()
   z# = camera position z()
   y# = camera position y()

remstart
   angX# = camera angle x()
   angY# = camera angle y()
   angZ# = camera angle z()
remend

   `if upkey()=1 then move camera 0,1.5
   `if downkey()=1 then move camera 0,-1.5
  ` if rightkey()>0 then move camera 1.5
  ` if leftkey()>0 then move camera 1.5

   rem camera rotation
   yrotate camera camera angle y() + mousemovex()*0.3
   xrotate camera camera angle x() + mousemovey()*0.3

   rem stops mouse from going upside down
   if wrapvalue(camera angle x(0))>100 and wrapvalue(camera angle x(0))<120 then xrotate camera 0,100
   if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

   rem camera position
   position camera x#,y#,z#

   if mouseclick()=2 then move camera 0,-1.5
   if upkey()=1 then move camera 0,1.5
   if downkey()=1 then move camera 0,-1.5

   `*** shooter ***
   gosub shooter

for c = 300 to ID
   if object exist(c)=1
      Xpos#=object position x(c)
      Ypos#=object position y(c)
      Zpos#=object position z(c)
      position object c,Xpos#,Ypos#,Zpos#

      SQpos# = sqrt((Xpos# - camera position x())^2 + (Ypos# - camera position y())^2 + (Zpos# - camera position z())^2)
      if SQpos# > 500 then hide object c
   endif
next c

`*** update phyics ***
phy update

`*** end loop ***
sync
loop

`*** fire balls ***
shooter:

if speed# >= 300 then speed# = 300
if speed# <= 25 then speed# = 25

if spacekey()=1 then speed#=speed#+1
if returnkey()=1 then speed#=speed#-1
tisp=tisp+1
if spacekey()=0 then if tisp >= 25 then speed#=speed#-1 :tisp = 0

set cursor 20,20 : print "fire speed   :";speed#

   if mouseclick()=1
      if (currenttime-lasttime) > 1000

      angy# = camera angle y()
      angx# = -camera angle X()

         make object sphere ID,1
         `scale object ID,25,25,25
         position object ID,camera position x(),camera position y(),camera position z()
         phy make rigid body dynamic sphere ID
         phy set rigid body linear velocity ID,speed#*sin(angY#)*cos(angX#),speed#*sin(angX#),speed#*cos(angY#)*cos(angX#)
         inc ID
         lasttime = timer()
      endif
   endif
currenttime = timer()
return

`*** end phy ***
phy end

[img]null[/img][img]F:\Projects\Physic's projects\bana01.jpg[/img]

hope it helps I've added a texture to sweeten the deal, if you use this image in your games please give me credit for it, thats all I ask, and if any one could help me with my problem witch I've posted at http://forum.thegamecreators.com/?m=forum_view&t=127692&b=30

hope this helps

From the dark and in to the light, twisted the body of madness, dark souls to only the one who would be called, Death lord of the dead, king of the forgotten, keep of lost souls.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 14th Apr 2008 02:49

Link

sorry I didn't mean to post this more than once had a bit of a glitch

From the dark and in to the light, twisted the body of madness, dark souls to only the one who would be called, Death lord of the dead, king of the forgotten, keep of lost souls.

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 28th May 2008 02:39

Link

hay Markswii I`v add a like to this post to my new physic & AI challenge post, I hope thats ok.

I wonted to add my flag image to the download as a incentive to my challenge post, but then I changed my mind to go with a no media challenge, so I just added a link to your post instead.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

Nemasis

16

Years of Service

User Offline

Joined: 22nd Aug 2008

Location:

Posted: 22nd Aug 2008 09:29

Link

Hi all

Im writing a space game in 3D and I want the camera to be able to rotate on its side left or right until upside down

can any one help me with sample code for this?

also when the camera is upside down the controls become inverted is there a code snippet that counters this

Back to top

Profile PM Email

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / Fps physics bullet

Attachments

Attachments