(Dark Physics) Creating jedi-like powers. How?

Author

Message

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 3rd May 2007 21:50 Edited at: 7th May 2007 15:02

Link

Hi all.

I'm developing an physics game using Dark Physics. But I'm stuck. How do you create 'force powers', as the one in 'Jedi Knight 2' and 'Jedi Knight 3'? I've done it before, but now it doesn't work. This is my code for the push force:

+ Code Snippet

function Push()

rem Is the object an dynamic one?
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)

if objects( obj ) = 0 then exitfunction

rem The position of the object
x# = object position x( obj )
y# = object position y( obj )
z# = object position z( obj )

rem The position of the camera
cx# = camera position x()
cy# = camera position y()
cz# = camera position z()

rem Do it...
phy set rigid body linear velocity obj, (120 * (abs(cx# - x#))) / distance(obj, camera position x(), camera position y(), camera position z()), (120 * (abs(cy# - y#))) / distance(obj, camera position x(), camera position y(), camera position z()), (120 * (abs(cz# - z#))) / distance(obj, camera position x(), camera position y(), camera position z())

endfunction

. The array "objects" have 301 elements, and store the object numbers. The object number is also the position in the array. This makes it easy to check if the object you're aming at are dynamic. Here is the code where I create the objects:

function FillMaze()

rem Make the array
dim objects( 300 ) as integer

rem Fill the maze with 60 boxes
for x = 0 to 59
  obj = GetNewObjectNumber()
  make object box obj, 15 + rnd( 85 ), 15 + rnd( 85 ), 15 + rnd( 85 )
  position object obj, rnd( 5500 ) + 250, 1000, rnd( 5500 ) + 250

rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic box obj, 1
  phy set rigid body mass obj, 32

objects( obj ) = obj
next x
rem Fill the maze with 20 spheres
for x = 0 to 19
  obj = GetNewObjectNumber()
  make object sphere obj, 30 + rnd( 30 )
  position object obj, rnd( 5500 ) + 250, 1000, rnd( 5500 ) + 250

rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic sphere obj, 2
  phy set rigid body mass obj, 12
  objects( obj ) = obj
next x

endfunction

+ Code Snippet

function FillMaze()

rem Make the array
dim objects( 300 ) as integer

rem Fill the maze with 60 boxes
for x = 0 to 59
  obj = GetNewObjectNumber()
  make object box obj, 15 + rnd( 85 ), 15 + rnd( 85 ), 15 + rnd( 85 )
  position object obj, rnd( 5500 ) + 250, 1000, rnd( 5500 ) + 250

  rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

  rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic box obj, 1
  phy set rigid body mass obj, 32

  objects( obj ) = obj
next x
rem Fill the maze with 20 spheres
for x = 0 to 19
  obj = GetNewObjectNumber()
  make object sphere obj, 30 + rnd( 30 )
  position object obj, rnd( 5500 ) + 250, 1000, rnd( 5500 ) + 250

  rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

  rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic sphere obj, 2
  phy set rigid body mass obj, 12
  objects( obj ) = obj
next x

endfunction

. Can anyone help me with why the code does not work? Why can't I push an dynamic object?

Back to top

Profile PM Email

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 7th May 2007 15:11

Link

Ok, I've tried a veriety of things, but I know one thing: The program reaches the code (I just put an 'end' above the 'endfunction', and the progam ended), so it must be something inside. The code has been changed to this now:

+ Code Snippet

function Push()

rem Is the object an dynamic one?
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)

if objects( obj ) = 0 then exitfunction

rem The position of the object
x# = object position x( obj )
y# = object position y( obj )
z# = object position z( obj )

rem The position of the camera
cx# = camera position x()
cy# = camera position y()
cz# = camera position z()

rem Use the force...
phy set rigid body linear velocity obj, 240 / abs(cx# - x#), 240 / abs(cy# - y#), 240 / abs(cz# - z#)

endfunction

, but I've tested this:

+ Code Snippet

function Push()

rem Is the object an dynamic one?
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)

if objects( obj ) = 0 then exitfunction

rem The position of the object
x# = object position x( obj )
y# = object position y( obj )
z# = object position z( obj )

rem The position of the camera
cx# = camera position x()
cy# = camera position y()
cz# = camera position z()

rem Use the force...
phy set rigid body linear momentum obj, 240 / abs(cx# - x#), 240 / abs(cy# - y#), 240 / abs(cz# - z#)

endfunction

and this:

+ Code Snippet

function Push()

rem Is the object an dynamic one?
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)

if objects( obj ) = 0 then exitfunction

rem The position of the object
x# = object position x( obj )
y# = object position y( obj )
z# = object position z( obj )

rem The position of the camera
cx# = camera position x()
cy# = camera position y()
cz# = camera position z()

rem Use the force...
phy add rigid body force obj, 240 / abs(cx# - x#), 240 / abs(cy# - y#), 240 / abs(cz# - z#), 1

endfunction

, but none of that did any kind of effect. It's like it reaches the code, then go through it, but just don't care to do anything. Weired. Can anyone help me? Is it something wrong with the code, or might the problem be someplace else? If you need more info, please tell me, and I'll either explain or post more code.

Back to top

Profile PM Email

Codger

22

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 8th May 2007 04:01

Link

The gravity function at the end of this snippet should be a good basis to apply your "Jedi Powers"

phy start
sync on
sync rate 0
set ambient light 60
autocam off
color backdrop 0
randomize timer()
GLOBAL n =100 rem  number of objects adjust to taste and cpu speed

rem this makes an anchor object mainly so the camera has a position to lock onto
make object sphere 1, 10
position object 1, 0,0,0
phy make rigid body dynamic sphere 1
phy set rigid body mass 1, 10000
color object 1, rgb(rnd(255),rnd(255),rnd(2))

remstart this section was to test a binary system
make object sphere 2, 10
position object 2, 500,100,0
phy make rigid body dynamic sphere 2
phy set rigid body mass 2, 10000
phy set rigid body linear velocity 2, rnd(f#) - f#/2, rnd(f#) - f#/2, rnd(f#) - f#/2
color object 2, rgb(rnd(2),rnd(255),rnd(255))
remend

for i = 2 to n
make object cube i, 5
d# = 1000.0  ' distance
position object i, rnd(d#) - d#/2, rnd(d#) - d#/2, rnd(d#) - d#/2
phy make rigid body dynamic box i

f# = 10.0   ' Force
phy set rigid body linear velocity i, rnd(f#) - f#/2, rnd(f#) - f#/2, rnd(f#) - f#/2
m# = rnd(500.0)+1   ' Mass
phy set rigid body mass i, m#
scale object i, m#,m#,m#  ' just to show relative mass
color object i, rgb(rnd(255),rnd(255),rnd(255))
next i

phy set gravity 0, 0, 0

position camera 0, 0, 0, -1000
point camera 0, 0, 0, 0

null = make vector3(1)

do
   for i = 1 to n
      for j = 1 to n
         if i <> j then Gravity(i,j) ' test every object againt every object
      next j
   next i

phy update
   control camera using arrowkeys 0,1,1
   text 10,10, str$(screen fps())
   sync
loop

phy end
flush video memory
end

Function Gravity(Obj1,Obj2)
   set vector3 1, object position x(Obj1) - object position x(Obj2), object position y(Obj1) - object position y(Obj2), object position z(Obj1) - object position z(Obj2)
   normalize vector3 1, 1
   rem multiply vector3 1, 5
   m# = phy get rigid body mass(obj1)+ phy get rigid body mass(obj2)
   phy add rigid body force Obj2, x vector3(1)*m#, y vector3(1)*m#, z vector3(1)*m#, 3
Endfunction

+ Code Snippet

phy start
sync on
sync rate 0
set ambient light 60
autocam off
color backdrop 0
randomize timer()
GLOBAL n =100 rem  number of objects adjust to taste and cpu speed

rem this makes an anchor object mainly so the camera has a position to lock onto
make object sphere 1, 10
position object 1, 0,0,0
phy make rigid body dynamic sphere 1
phy set rigid body mass 1, 10000
color object 1, rgb(rnd(255),rnd(255),rnd(2))

remstart this section was to test a binary system
make object sphere 2, 10
position object 2, 500,100,0
phy make rigid body dynamic sphere 2
phy set rigid body mass 2, 10000
phy set rigid body linear velocity 2, rnd(f#) - f#/2, rnd(f#) - f#/2, rnd(f#) - f#/2
color object 2, rgb(rnd(2),rnd(255),rnd(255))
remend

for i = 2 to n
make object cube i, 5
d# = 1000.0  ' distance
position object i, rnd(d#) - d#/2, rnd(d#) - d#/2, rnd(d#) - d#/2
phy make rigid body dynamic box i

f# = 10.0   ' Force
phy set rigid body linear velocity i, rnd(f#) - f#/2, rnd(f#) - f#/2, rnd(f#) - f#/2
m# = rnd(500.0)+1   ' Mass
phy set rigid body mass i, m#
scale object i, m#,m#,m#  ' just to show relative mass
color object i, rgb(rnd(255),rnd(255),rnd(255))
next i

phy set gravity 0, 0, 0

position camera 0, 0, 0, -1000
point camera 0, 0, 0, 0

null = make vector3(1)

do
   for i = 1 to n
      for j = 1 to n
         if i <> j then Gravity(i,j) ' test every object againt every object
      next j
   next i

   phy update
   control camera using arrowkeys 0,1,1
   text 10,10, str$(screen fps())
   sync
loop

phy end
flush video memory
end

Function Gravity(Obj1,Obj2)
   set vector3 1, object position x(Obj1) - object position x(Obj2), object position y(Obj1) - object position y(Obj2), object position z(Obj1) - object position z(Obj2)
   normalize vector3 1, 1
   rem multiply vector3 1, 5
   m# = phy get rigid body mass(obj1)+ phy get rigid body mass(obj2)
   phy add rigid body force Obj2, x vector3(1)*m#, y vector3(1)*m#, z vector3(1)*m#, 3
Endfunction

I hope you find this helpful

Codger

System
PIV 2.8 MZ 512 Mem
FX 5600 256 mem

Back to top

Profile PM Email

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 8th May 2007 10:19

Link

Thanks. I can't take a look at it right now, but in two days I got the time.

Back to top

Profile PM Email

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 10th May 2007 21:44 Edited at: 10th May 2007 22:02

Link

Ok, it works now. But it's not perfect. There is a reason for that: The objects are kind of static. They move but never rotate. Here is my code för pulling and pushing:

function Pull()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( player ) - object position x( obj ), object position y( player ) - object position y( obj ), object position z( player ) - object position z( obj )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

function Push()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( obj ) - object position x( player ), object position y( obj ) - object position y( player ), object position z( obj ) - object position z( player )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

+ Code Snippet

function Pull()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( player ) - object position x( obj ), object position y( player ) - object position y( obj ), object position z( player ) - object position z( obj )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction


function Push()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( obj ) - object position x( player ), object position y( obj ) - object position y( player ), object position z( obj ) - object position z( player )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

. But I don't think the problem is there. Here is the code that contains the Dark Physics commands:

rem init the physics engine
if physx() = 0
  phy start
else
  phy start 1, 0, 1
endif
phy set gravity 0, -179, 0
phy set static friction 0
phy set dynamic friction 0

player:

if spacekey() = 1
  position object other( 0 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
  position object other( 1 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
  position object other( 2 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
endif

text 1, 1, "Screen FPS: " + str$( screen fps() )
text 1, 21, "Pos x: " + str$( camera position x() )
text 1, 41, "Pos y: " + str$( camera position y() )
text 1, 61, "Pos z: " + str$( camera position z() )

rem Player rotation
xrotate camera camera angle x() + mousemovey() / 2.2
yrotate object player, object angle y( player ) + mousemovex() / 2.2 - 2 * leftkey() + 2 * rightkey()
if camera angle x() > 50
  xrotate camera 50
else
  if camera angle x() < -90 then xrotate camera -90
endif

rem Player movement
if keystate( 17 ) = 1
  phy move character controller player, 215
else
  if keystate( 31 ) = 1
    phy move character controller player, -213
  else
    phy move character controller player, 0
  endif
endif
rem Strafing
if keystate( 30 ) = 1
  move object left player, 5
endif
if keystate( 32 ) = 1
  move object right player, 5
endif

if mouseclick() = 1
  Push()
else
  if mouseclick() = 2
    Pull()
  endif
endif

rem Position and angle the camera
position camera object position x( player ), object position y( player ) + 20, object position z( player )
yrotate camera object angle y( player )

position mouse sw / 2, sh / 2
circle sw / 2, sh / 2, 3

rem Update the light position and angle
position light 1, object position x( player ), object position y( player ), object position z( player )
rotate light 1, camera angle x(), camera angle y(), 0

return

rem The materials
MakeMaterials:

rem Make the unbouncy material
phy make material 1, "Drondtindum"
phy set material restitution 1, 0
phy set material dynamic friction 1, 35
phy build material 1

rem Make the bouncy material
phy make material 2, "Thodnumdumdum"
phy set material restitution 2, 1
phy set material dynamic friction 2, 15
phy build material 2

return

LoadWorld:

color backdrop 0

rem Make the floor
make object box 1, 10000, 500, 10000
position object 1, 500, -275, 500
color object 1, rgb(255, 255, 255)
set object specular 1, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 1, 255
set object specular power 1, 255
phy make rigid body static box 1
rem Make the roof
make object box 2, 10000, 50, 10000
position object 2, 500, 1250, 500
color object 2, rgb(255, 255, 255)
set object specular 2, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 2, 255
set object specular power 2, 255
phy make rigid body static box 2
rem Make the walls
make object box 3, 7200, 5000, 50
position object 3, 3500, 1000, 0
color object 3, rgb(255, 255, 255)
set object specular 3, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 3, 255
set object specular power 3, 255
phy make rigid body static box 3

make object box 4, 7200, 5000, 50
position object 4, 3500, 1000, 3500
color object 4, rgb(255, 255, 255)
set object specular 4, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 4, 255
set object specular power 4, 255
phy make rigid body static box 4

make object box 5, 50, 5000, 7200
position object 5, 0, 1000, 3500
color object 5, rgb(255, 255, 255)
set object specular 5, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 5, 255
set object specular power 5, 255
phy make rigid body static box 5

make object box 6, 50, 5000, 7200
position object 6, 3500, 1000, 3500
color object 6, rgb(255, 255, 255)
set object specular 6, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 6, 255
set object specular power 6, 255
phy make rigid body static box 6

MakeMaze()
FillMaze()

rem Make the light
make light 1
color light 1, rgb(255, 255, 255)
set light range 1, 1750

rem Make the player
player = GetNewObjectNumber()
make object box player, 20, 55, 20
position object player, rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50
phy make box character controller player, rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50, 20, 45, 20, 1, 40, 50

dim other( 2 ) as integer

other( 0 ) = GetNewObjectNumber()
make object box other( 0 ), 20, 55, 20
position object other( 0 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

other( 1 ) = GetNewObjectNumber()
make object box other( 1 ), 20, 55, 20
position object other( 1 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

other( 2 ) = GetNewObjectNumber()
make object box other( 2 ), 20, 55, 20
position object other( 2 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

return

phy end
flush video memory
end

function Pull()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( player ) - object position x( obj ), object position y( player ) - object position y( obj ), object position z( player ) - object position z( obj )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

function Push()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( obj ) - object position x( player ), object position y( obj ) - object position y( player ), object position z( obj ) - object position z( player )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

rem Create the environment
function MakeMaze()

rem Create the array
dim world(55, 55) as boolean

rem Loop through the "maze", and create it
for x = 0 to 5
  for y = 0 to 5

if world(x, y) = 0
      wall = rnd( 1000 )
      height = rnd( 5 ) + 1
      obj = GetNewObjectNumber()

rem Which sort of wall?
      if wall <= 500
        make object box obj, 250, 50 + 250 * height, 250
        position object obj, 750 * x, 0, 750 * y
      else
        if wall > 500 and wall <= 750
          t = rnd( 1000 )
          if t < 500
            make object box obj, 500, 50 + 250 * height, 250
            position object obj, 700 * x + 25, 0, 700 * y
            world(x + 1, y) = 1
            world(x + 2, y) = 1
          else
            make object box obj, 250, 50 + 250 * height, 500
            position object obj, 750 * x, 0, 750 * y + 25
            world(x, y + 1) = 1
            world(x, y + 2) = 1
          endif
        else
          if wall > 750
            t = rnd( 1000 )
            if t < 500
              make object box obj, 1000, 50 + 250 * height, 125
              position object obj, 750 * x + 35, 0, 750 * y
              world(x + 1, y) = 1
              world(x + 2, y) = 1
              world(x + 3, y) = 1
              world(x + 4, y) = 1
              world(x + 5, y) = 1
            else
              make object box obj, 250, 50 + 250 * height, 1000
              position object obj, 750 * x, 0, 750 * y + 35
              world(x, y + 1) = 1
              world(x, y + 2) = 1
              world(x, y + 3) = 1
              world(x, y + 4) = 1
              world(x, y + 5) = 1
            endif
          endif
        endif
      endif

rem The color
      color object obj, rgb(255, 100, 50)
      set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
      set object ambient obj, 100
      set object specular power obj, 155

world(x, y) = 1
      phy make rigid body static box obj

endif

next y
next x

undim world()

endfunction

function FillMaze()

rem Make the array
dim objects( 100 ) as integer

rem Fill the maze with 30 boxes
for x = 0 to 29
  obj = GetNewObjectNumber()
  sizeX = 25 + rnd( 120 )
  sizeY = 25 + rnd( 120 )
  sizeZ = 25 + rnd( 120 )
  make object box obj, sizeX, sizeY, sizeZ
  position object obj, rnd( 3550 ) + 100, 1000, rnd( 3550 ) + 100

rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic box obj, 1
  phy set rigid body mass obj, sizeX / 5 + sizeY / 5 + sizeZ / 5
  phy set rigid body linear velocity obj, rnd( 20 ) - 10, -1 - rnd( 10 ), rnd( 20 ) - 10
  objects( obj ) = obj
next x
rem Fill the maze with 20 spheres
for x = 0 to 19
  obj = GetNewObjectNumber()
  radius = 40 + rnd( 120 )
  make object sphere obj, radius
  position object obj, rnd( 3550 ) + 100, 1000, rnd( 3550 ) + 100

rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic sphere obj, 2
  phy set rigid body mass obj, (1.2453 * radius) / 2
  phy set rigid body linear velocity obj, rnd( 480 ) - 240, -1 - rnd( 10 ), rnd( 480 ) - 240
  objects( obj ) = obj

next x

endfunction

+ Code Snippet

rem init the physics engine
if physx() = 0
  phy start
else
  phy start 1, 0, 1
endif
phy set gravity 0, -179, 0
phy set static friction 0
phy set dynamic friction 0


player:

if spacekey() = 1
  position object other( 0 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
  position object other( 1 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
  position object other( 2 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
endif

text 1, 1, "Screen FPS: " + str$( screen fps() )
text 1, 21, "Pos x: " + str$( camera position x() )
text 1, 41, "Pos y: " + str$( camera position y() )
text 1, 61, "Pos z: " + str$( camera position z() )

rem Player rotation
xrotate camera camera angle x() + mousemovey() / 2.2
yrotate object player, object angle y( player ) + mousemovex() / 2.2 - 2 * leftkey() + 2 * rightkey()
if camera angle x() > 50
  xrotate camera 50
else
  if camera angle x() < -90 then xrotate camera -90
endif

rem Player movement
if keystate( 17 ) = 1
  phy move character controller player, 215
else
  if keystate( 31 ) = 1
    phy move character controller player, -213
  else
    phy move character controller player, 0
  endif
endif
rem Strafing
if keystate( 30 ) = 1
  move object left player, 5
endif
if keystate( 32 ) = 1
  move object right player, 5
endif

if mouseclick() = 1
  Push()
else
  if mouseclick() = 2
    Pull()
  endif
endif

rem Position and angle the camera
position camera object position x( player ), object position y( player ) + 20, object position z( player )
yrotate camera object angle y( player )

position mouse sw / 2, sh / 2
circle sw / 2, sh / 2, 3

rem Update the light position and angle
position light 1, object position x( player ), object position y( player ), object position z( player )
rotate light 1, camera angle x(), camera angle y(), 0

return

rem The materials
MakeMaterials:

rem Make the unbouncy material
phy make material 1, "Drondtindum"
phy set material restitution 1, 0
phy set material dynamic friction 1, 35
phy build material 1

rem Make the bouncy material
phy make material 2, "Thodnumdumdum"
phy set material restitution 2, 1
phy set material dynamic friction 2, 15
phy build material 2

return


LoadWorld:

color backdrop 0

rem Make the floor
make object box 1, 10000, 500, 10000
position object 1, 500, -275, 500
color object 1, rgb(255, 255, 255)
set object specular 1, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 1, 255
set object specular power 1, 255
phy make rigid body static box 1
rem Make the roof
make object box 2, 10000, 50, 10000
position object 2, 500, 1250, 500
color object 2, rgb(255, 255, 255)
set object specular 2, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 2, 255
set object specular power 2, 255
phy make rigid body static box 2
rem Make the walls
make object box 3, 7200, 5000, 50
position object 3, 3500, 1000, 0
color object 3, rgb(255, 255, 255)
set object specular 3, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 3, 255
set object specular power 3, 255
phy make rigid body static box 3

make object box 4, 7200, 5000, 50
position object 4, 3500, 1000, 3500
color object 4, rgb(255, 255, 255)
set object specular 4, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 4, 255
set object specular power 4, 255
phy make rigid body static box 4

make object box 5, 50, 5000, 7200
position object 5, 0, 1000, 3500
color object 5, rgb(255, 255, 255)
set object specular 5, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 5, 255
set object specular power 5, 255
phy make rigid body static box 5

make object box 6, 50, 5000, 7200
position object 6, 3500, 1000, 3500
color object 6, rgb(255, 255, 255)
set object specular 6, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 6, 255
set object specular power 6, 255
phy make rigid body static box 6

MakeMaze()
FillMaze()

rem Make the light
make light 1
color light 1, rgb(255, 255, 255)
set light range 1, 1750

rem Make the player
player = GetNewObjectNumber()
make object box player, 20, 55, 20
position object player, rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50
phy make box character controller player, rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50, 20, 45, 20, 1, 40, 50

dim other( 2 ) as integer

other( 0 ) = GetNewObjectNumber()
make object box other( 0 ), 20, 55, 20
position object other( 0 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

other( 1 ) = GetNewObjectNumber()
make object box other( 1 ), 20, 55, 20
position object other( 1 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

other( 2 ) = GetNewObjectNumber()
make object box other( 2 ), 20, 55, 20
position object other( 2 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

return


phy end
flush video memory
end



function Pull()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( player ) - object position x( obj ), object position y( player ) - object position y( obj ), object position z( player ) - object position z( obj )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction


function Push()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( obj ) - object position x( player ), object position y( obj ) - object position y( player ), object position z( obj ) - object position z( player )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

rem Create the environment
function MakeMaze()

rem Create the array
dim world(55, 55) as boolean

rem Loop through the "maze", and create it
for x = 0 to 5
  for y = 0 to 5

    if world(x, y) = 0
      wall = rnd( 1000 )
      height = rnd( 5 ) + 1
      obj = GetNewObjectNumber()

      rem Which sort of wall?
      if wall <= 500
        make object box obj, 250, 50 + 250 * height, 250
        position object obj, 750 * x, 0, 750 * y
      else
        if wall > 500 and wall <= 750
          t = rnd( 1000 )
          if t < 500
            make object box obj, 500, 50 + 250 * height, 250
            position object obj, 700 * x + 25, 0, 700 * y
            world(x + 1, y) = 1
            world(x + 2, y) = 1
          else
            make object box obj, 250, 50 + 250 * height, 500
            position object obj, 750 * x, 0, 750 * y + 25
            world(x, y + 1) = 1
            world(x, y + 2) = 1
          endif
        else
          if wall > 750
            t = rnd( 1000 )
            if t < 500
              make object box obj, 1000, 50 + 250 * height, 125
              position object obj, 750 * x + 35, 0, 750 * y
              world(x + 1, y) = 1
              world(x + 2, y) = 1
              world(x + 3, y) = 1
              world(x + 4, y) = 1
              world(x + 5, y) = 1
            else
              make object box obj, 250, 50 + 250 * height, 1000
              position object obj, 750 * x, 0, 750 * y + 35
              world(x, y + 1) = 1
              world(x, y + 2) = 1
              world(x, y + 3) = 1
              world(x, y + 4) = 1
              world(x, y + 5) = 1
            endif
          endif
        endif
      endif

      rem The color
      color object obj, rgb(255, 100, 50)
      set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
      set object ambient obj, 100
      set object specular power obj, 155

      world(x, y) = 1
      phy make rigid body static box obj

    endif

  next y
next x

undim world()

endfunction

function FillMaze()

rem Make the array
dim objects( 100 ) as integer

rem Fill the maze with 30 boxes
for x = 0 to 29
  obj = GetNewObjectNumber()
  sizeX = 25 + rnd( 120 )
  sizeY = 25 + rnd( 120 )
  sizeZ = 25 + rnd( 120 )
  make object box obj, sizeX, sizeY, sizeZ
  position object obj, rnd( 3550 ) + 100, 1000, rnd( 3550 ) + 100

  rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

  rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic box obj, 1
  phy set rigid body mass obj, sizeX / 5 + sizeY / 5 + sizeZ / 5
  phy set rigid body linear velocity obj, rnd( 20 ) - 10, -1 - rnd( 10 ), rnd( 20 ) - 10
  objects( obj ) = obj
next x
rem Fill the maze with 20 spheres
for x = 0 to 19
  obj = GetNewObjectNumber()
  radius = 40 + rnd( 120 )
  make object sphere obj, radius
  position object obj, rnd( 3550 ) + 100, 1000, rnd( 3550 ) + 100

  rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

  rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic sphere obj, 2
  phy set rigid body mass obj, (1.2453 * radius) / 2
  phy set rigid body linear velocity obj, rnd( 480 ) - 240, -1 - rnd( 10 ), rnd( 480 ) - 240
  objects( obj ) = obj

next x

endfunction

. I wonder if you can see why they don't rotate. Please help me.

EDIT:

Here is the entire source, in case you would need it:

REM Project: The Arena
REM Created: 2007-04-12 19:10:16
REM
REM ***** Main Source File *****
REM

set display mode 1024, 768, 32
sync on : sync rate 90
backdrop on
autocam off
randomize timer()

rem The globals
global sw as integer
global sh as integer
global player as integer

rem The locals
local menu as boolean

rem Screen width and height
sw = screen width()
sh = screen height()

rem init the physics engine
if physx() = 0
  phy start
else
  phy start 1, 0, 1
endif
phy set gravity 0, -179, 0
phy set static friction 0
phy set dynamic friction 0

rem Load the world
gosub MakeMaterials
gosub LoadMenu
ink rgb( 255, 255, 0 ), 0

null = make vector3( 1 )

repeat

if menu = 1
    gosub theMenu
  else
    rem Receive multiplayer data
    while TGetMessage()
      RNetwork()
    endwhile
    rem The player
    gosub player
    if object in screen( other( 0 ) ) then text object screen x( other( 0 ) ), object screen y( other( 0 ) ), "1"
    if object in screen( other( 1 ) ) then text object screen x( other( 1 ) ), object screen y( other( 1 ) ), "2"
    if object in screen( other( 2 ) ) then text object screen x( other( 2 ) ), object screen y( other( 2 ) ), "3"
  endif

phy update
  sync

rem Send multiplayer data
  if TConnected() = 1 then gosub network

until keystate( 14 ) = 1

theMenu:

rem Select the correct option
select Options()
  case 1
  endcase
  case 2
    menu = 0
    Dispose()
    gosub LoadWorld
    Connect( "blatt", "Deathmatch", "User32", 7)
  endcase
  case 3
  endcase
endselect

return

player:

if spacekey() = 1
  position object other( 0 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
  position object other( 1 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
  position object other( 2 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
endif

text 1, 1, "Screen FPS: " + str$( screen fps() )
text 1, 21, "Pos x: " + str$( camera position x() )
text 1, 41, "Pos y: " + str$( camera position y() )
text 1, 61, "Pos z: " + str$( camera position z() )

rem Player rotation
xrotate camera camera angle x() + mousemovey() / 2.2
yrotate object player, object angle y( player ) + mousemovex() / 2.2 - 2 * leftkey() + 2 * rightkey()
if camera angle x() > 50
  xrotate camera 50
else
  if camera angle x() < -90 then xrotate camera -90
endif

rem Player movement
if keystate( 17 ) = 1
  phy move character controller player, 215
else
  if keystate( 31 ) = 1
    phy move character controller player, -213
  else
    phy move character controller player, 0
  endif
endif
rem Strafing
if keystate( 30 ) = 1
  move object left player, 5
endif
if keystate( 32 ) = 1
  move object right player, 5
endif

if mouseclick() = 1
  Push()
else
  if mouseclick() = 2
    Pull()
  endif
endif

rem Position and angle the camera
position camera object position x( player ), object position y( player ) + 20, object position z( player )
yrotate camera object angle y( player )

position mouse sw / 2, sh / 2
circle sw / 2, sh / 2, 3

rem Update the light position and angle
position light 1, object position x( player ), object position y( player ), object position z( player )
rotate light 1, camera angle x(), camera angle y(), 0

return

network:

rem Send the data of the player
TPutFloat object position x( player )
TPutFloat object position y( player )
TPutFloat object position z( player )
TPutFloat object angle x( player )
TPutFloat object angle y( player )

rem Send the data of the objects
for n = 0 to 100
  if objects( n ) > 0
    TPutFloat object position x(objects( n ))
    TPutFloat object position y(objects( n ))
    TPutFloat object position z(objects( n ))
    TPutFloat object angle x(objects( n ))
    TPutFloat object angle y(objects( n ))
    TPutFloat object angle z(objects( n ))
  endif
next n

rem Send all data
TSendAll
TSync

return

LoadMenu:

rem Create the images
text 1, 1, "Join"
get image 1, 1, 1, 60, text height( "J" ) + 1
cls

text 1, 1, "Start"
get image 2, 1, 1, 60, text height( "S" ) + 1
cls

text 1, 1, "Options"
get image 3, 1, 1, 60, text height( "O" ) + 1
cls

text 1, 1, "End"
get image 4, 1, 1, 60, text height( "E" ) + 1
cls

rem Create the buttons
make object plain 1, 70, text height( "J" )
position object 1, -30, 50, 50
point object 1, 0, 30, 0
texture object 1, 1
scale object 1, 10, 10, 100

make object plain 2, 70, text height( "S" )
position object 2, -30, 40, 50
point object 2, 0, 30, 0
texture object 2, 2
scale object 2, 10, 10, 100

make object plain 3, 70, text height( "O" )
position object 3, -30, 30, 50
point object 3, 0, 30, 0
texture object 3, 3
scale object 3, 10, 10, 100

make object plain 4, 70, text height( "E" )
position object 4, -30, 20, 50
point object 4, 0, 30, 0
texture object 4, 4
scale object 4, 10, 10, 100

position camera 0, 30, 0
point camera 0, 30, 50

menu = 1

return

MakeMaterials:

rem Make the unbouncy material
phy make material 1, "Drondtindum"
phy set material restitution 1, 0
phy set material dynamic friction 1, 35
phy build material 1

rem Make the bouncy material
phy make material 2, "Thodnumdumdum"
phy set material restitution 2, 1
phy set material dynamic friction 2, 15
phy build material 2

return

LoadWorld:

color backdrop 0

rem Make the floor
make object box 1, 10000, 500, 10000
position object 1, 500, -275, 500
color object 1, rgb(255, 255, 255)
set object specular 1, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 1, 255
set object specular power 1, 255
phy make rigid body static box 1
rem Make the roof
make object box 2, 10000, 50, 10000
position object 2, 500, 1250, 500
color object 2, rgb(255, 255, 255)
set object specular 2, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 2, 255
set object specular power 2, 255
phy make rigid body static box 2
rem Make the walls
make object box 3, 7200, 5000, 50
position object 3, 3500, 1000, 0
color object 3, rgb(255, 255, 255)
set object specular 3, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 3, 255
set object specular power 3, 255
phy make rigid body static box 3

make object box 4, 7200, 5000, 50
position object 4, 3500, 1000, 3500
color object 4, rgb(255, 255, 255)
set object specular 4, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 4, 255
set object specular power 4, 255
phy make rigid body static box 4

make object box 5, 50, 5000, 7200
position object 5, 0, 1000, 3500
color object 5, rgb(255, 255, 255)
set object specular 5, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 5, 255
set object specular power 5, 255
phy make rigid body static box 5

make object box 6, 50, 5000, 7200
position object 6, 3500, 1000, 3500
color object 6, rgb(255, 255, 255)
set object specular 6, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 6, 255
set object specular power 6, 255
phy make rigid body static box 6

MakeMaze()
FillMaze()

rem Make the light
make light 1
color light 1, rgb(255, 255, 255)
set light range 1, 1750

rem Make the player
player = GetNewObjectNumber()
make object box player, 20, 55, 20
position object player, rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50
phy make box character controller player, rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50, 20, 45, 20, 1, 40, 50

dim other( 2 ) as integer

other( 0 ) = GetNewObjectNumber()
make object box other( 0 ), 20, 55, 20
position object other( 0 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

other( 1 ) = GetNewObjectNumber()
make object box other( 1 ), 20, 55, 20
position object other( 1 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

other( 2 ) = GetNewObjectNumber()
make object box other( 2 ), 20, 55, 20
position object other( 2 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

return

phy end
flush video memory
end

function Pull()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( player ) - object position x( obj ), object position y( player ) - object position y( obj ), object position z( player ) - object position z( obj )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

function Push()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( obj ) - object position x( player ), object position y( obj ) - object position y( player ), object position z( obj ) - object position z( player )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

function GetNewObjectNumber()

newObj = 2
repeat : newObj = newObj + 1 : until object exist( newObj ) = 0

endfunction newObj

function MakeMaze()

rem Create the array
dim world(55, 55) as boolean

rem Loop through the "maze", and create it
for x = 0 to 5
  for y = 0 to 5

if world(x, y) = 0
      wall = rnd( 1000 )
      height = rnd( 5 ) + 1
      obj = GetNewObjectNumber()

rem Which sort of wall?
      if wall <= 500
        make object box obj, 250, 50 + 250 * height, 250
        position object obj, 750 * x, 0, 750 * y
      else
        if wall > 500 and wall <= 750
          t = rnd( 1000 )
          if t < 500
            make object box obj, 500, 50 + 250 * height, 250
            position object obj, 700 * x + 25, 0, 700 * y
            world(x + 1, y) = 1
            world(x + 2, y) = 1
          else
            make object box obj, 250, 50 + 250 * height, 500
            position object obj, 750 * x, 0, 750 * y + 25
            world(x, y + 1) = 1
            world(x, y + 2) = 1
          endif
        else
          if wall > 750
            t = rnd( 1000 )
            if t < 500
              make object box obj, 1000, 50 + 250 * height, 125
              position object obj, 750 * x + 35, 0, 750 * y
              world(x + 1, y) = 1
              world(x + 2, y) = 1
              world(x + 3, y) = 1
              world(x + 4, y) = 1
              world(x + 5, y) = 1
            else
              make object box obj, 250, 50 + 250 * height, 1000
              position object obj, 750 * x, 0, 750 * y + 35
              world(x, y + 1) = 1
              world(x, y + 2) = 1
              world(x, y + 3) = 1
              world(x, y + 4) = 1
              world(x, y + 5) = 1
            endif
          endif
        endif
      endif

rem The color
      color object obj, rgb(255, 100, 50)
      set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
      set object ambient obj, 100
      set object specular power obj, 155

world(x, y) = 1
      phy make rigid body static box obj

endif

next y
next x

undim world()

endfunction

function FillMaze()

rem Make the array
dim objects( 100 ) as integer

rem Fill the maze with 30 boxes
for x = 0 to 29
  obj = GetNewObjectNumber()
  sizeX = 25 + rnd( 120 )
  sizeY = 25 + rnd( 120 )
  sizeZ = 25 + rnd( 120 )
  make object box obj, sizeX, sizeY, sizeZ
  position object obj, rnd( 3550 ) + 100, 1000, rnd( 3550 ) + 100

rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic box obj, 1
  phy set rigid body mass obj, sizeX / 5 + sizeY / 5 + sizeZ / 5
  phy set rigid body linear velocity obj, rnd( 20 ) - 10, -1 - rnd( 10 ), rnd( 20 ) - 10
  objects( obj ) = obj
next x
rem Fill the maze with 20 spheres
for x = 0 to 19
  obj = GetNewObjectNumber()
  radius = 40 + rnd( 120 )
  make object sphere obj, radius
  position object obj, rnd( 3550 ) + 100, 1000, rnd( 3550 ) + 100

rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic sphere obj, 2
  phy set rigid body mass obj, (1.2453 * radius) / 2
  phy set rigid body linear velocity obj, rnd( 480 ) - 240, -1 - rnd( 10 ), rnd( 480 ) - 240
  objects( obj ) = obj

next x

endfunction

remstart
function StrafeLeft( player as integer )

x# as float
x# = object angle x( player )
xrotate object player, 0
yrotate object player, object angle y( player ) + 90
move object player, 5
yrotate object player, object angle y( player ) - 90
xrotate object player, x#

endfunction

function StrafeRight()

x# as float
x# = object angle x( player )
xrotate object player, 0
yrotate object player, object angle y( player ) + 90
move object player, 5
yrotate object player, object angle y( player ) - 90
xrotate object player, x#

endfunction
remend

function distance(obj as integer, x as integer, y as integer, z as integer)

dist = sqrt( abs( object position x( obj ) - x ) ^ 2 + abs( object position y( obj ) - y ) ^ 2 + abs( object position z( obj ) - z ) ^ 2 )

endfunction dist

function Options()

option as byte

obj = pick object( mousex(), mousey(), 1, 4 )
if obj = 1
  yrotate object 1, 110
  if mouseclick() = 1 then option = 1
else
  point object 1, 0, 50, 0
  if obj = 2
    yrotate object 2, 110
    if mouseclick() = 1 then option = 2
  else
    point object 2, 0, 40, 0
    if obj = 3
      yrotate object 3, 110
      if mouseclick() = 1 then option = 3
    else
      point object 3, 0, 30, 0
      if obj = 4
        yrotate object 4, 110
        if mouseclick() = 1 then end
      else
        point object 4, 0, 20, 0
      endif
    endif
  endif
endif

endfunction option

function Dispose()

for n = 1 to 500
  if object exist( n ) then delete object n
next n

endfunction

function Connect(gname as string, gtype as string, user as string, timeL as integer)

THost "0.0.0.0", 4, user
TRegisterGame gname, gtype, "Random maze", timeL * 60000

endfunction

function RNetwork()

rem Get the sender
sender = TGetSender()
posX# = TGetFloat()
posY# = TGetFloat()
posZ# = TGetFloat()
ax# = TGetFloat()
ay# = TGetFloat()

rem Position the sender
position object other( sender - 1 ), posX#, posY#, posZ#
rotate object other( sender - 1 ), ax#, ay#, 0

rem Get the new positions of the objects
for n = 0 to 100
  if objects( n ) > 0
    ox# = TGetFloat()
    oy# = TGetFloat()
    oz# = TGetFloat()
    oax# = TGetFloat()
    oay# = TGetFloat()
    oaz# = TGetFloat()
    phy set rigid body position objects( n ), ox#, oy#, oz#
    phy set rigid body rotation objects( n ), oax#, oay#, oaz#
  endif
next n

endfunction

+ Code Snippet

REM Project: The Arena
REM Created: 2007-04-12 19:10:16
REM
REM ***** Main Source File *****
REM

set display mode 1024, 768, 32
sync on : sync rate 90
backdrop on
autocam off
randomize timer()

rem The globals
global sw as integer
global sh as integer
global player as integer

rem The locals
local menu as boolean

rem Screen width and height
sw = screen width()
sh = screen height()

rem init the physics engine
if physx() = 0
  phy start
else
  phy start 1, 0, 1
endif
phy set gravity 0, -179, 0
phy set static friction 0
phy set dynamic friction 0

rem Load the world
gosub MakeMaterials
gosub LoadMenu
ink rgb( 255, 255, 0 ), 0

null = make vector3( 1 )

repeat

  if menu = 1
    gosub theMenu
  else
    rem Receive multiplayer data
    while TGetMessage()
      RNetwork()
    endwhile
    rem The player
    gosub player
    if object in screen( other( 0 ) ) then text object screen x( other( 0 ) ), object screen y( other( 0 ) ), "1"
    if object in screen( other( 1 ) ) then text object screen x( other( 1 ) ), object screen y( other( 1 ) ), "2"
    if object in screen( other( 2 ) ) then text object screen x( other( 2 ) ), object screen y( other( 2 ) ), "3"
  endif

  phy update
  sync

  rem Send multiplayer data
  if TConnected() = 1 then gosub network

until keystate( 14 ) = 1







theMenu:

rem Select the correct option
select Options()
  case 1
  endcase
  case 2
    menu = 0
    Dispose()
    gosub LoadWorld
    Connect( "blatt", "Deathmatch", "User32", 7)
  endcase
  case 3
  endcase
endselect

return

player:

if spacekey() = 1
  position object other( 0 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
  position object other( 1 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
  position object other( 2 ), rnd( 5 ) * 600 + 50, 60, rnd( 5 ) * 600 + 50
endif

text 1, 1, "Screen FPS: " + str$( screen fps() )
text 1, 21, "Pos x: " + str$( camera position x() )
text 1, 41, "Pos y: " + str$( camera position y() )
text 1, 61, "Pos z: " + str$( camera position z() )

rem Player rotation
xrotate camera camera angle x() + mousemovey() / 2.2
yrotate object player, object angle y( player ) + mousemovex() / 2.2 - 2 * leftkey() + 2 * rightkey()
if camera angle x() > 50
  xrotate camera 50
else
  if camera angle x() < -90 then xrotate camera -90
endif

rem Player movement
if keystate( 17 ) = 1
  phy move character controller player, 215
else
  if keystate( 31 ) = 1
    phy move character controller player, -213
  else
    phy move character controller player, 0
  endif
endif
rem Strafing
if keystate( 30 ) = 1
  move object left player, 5
endif
if keystate( 32 ) = 1
  move object right player, 5
endif

if mouseclick() = 1
  Push()
else
  if mouseclick() = 2
    Pull()
  endif
endif

rem Position and angle the camera
position camera object position x( player ), object position y( player ) + 20, object position z( player )
yrotate camera object angle y( player )

position mouse sw / 2, sh / 2
circle sw / 2, sh / 2, 3

rem Update the light position and angle
position light 1, object position x( player ), object position y( player ), object position z( player )
rotate light 1, camera angle x(), camera angle y(), 0

return

network:

rem Send the data of the player
TPutFloat object position x( player )
TPutFloat object position y( player )
TPutFloat object position z( player )
TPutFloat object angle x( player )
TPutFloat object angle y( player )

rem Send the data of the objects
for n = 0 to 100
  if objects( n ) > 0
    TPutFloat object position x(objects( n ))
    TPutFloat object position y(objects( n ))
    TPutFloat object position z(objects( n ))
    TPutFloat object angle x(objects( n ))
    TPutFloat object angle y(objects( n ))
    TPutFloat object angle z(objects( n ))
  endif
next n

rem Send all data
TSendAll
TSync

return







LoadMenu:

rem Create the images
text 1, 1, "Join"
get image 1, 1, 1, 60, text height( "J" ) + 1
cls

text 1, 1, "Start"
get image 2, 1, 1, 60, text height( "S" ) + 1
cls

text 1, 1, "Options"
get image 3, 1, 1, 60, text height( "O" ) + 1
cls

text 1, 1, "End"
get image 4, 1, 1, 60, text height( "E" ) + 1
cls

rem Create the buttons
make object plain 1, 70, text height( "J" )
position object 1, -30, 50, 50
point object 1, 0, 30, 0
texture object 1, 1
scale object 1, 10, 10, 100

make object plain 2, 70, text height( "S" )
position object 2, -30, 40, 50
point object 2, 0, 30, 0
texture object 2, 2
scale object 2, 10, 10, 100

make object plain 3, 70, text height( "O" )
position object 3, -30, 30, 50
point object 3, 0, 30, 0
texture object 3, 3
scale object 3, 10, 10, 100

make object plain 4, 70, text height( "E" )
position object 4, -30, 20, 50
point object 4, 0, 30, 0
texture object 4, 4
scale object 4, 10, 10, 100

position camera 0, 30, 0
point camera 0, 30, 50

menu = 1

return


MakeMaterials:

rem Make the unbouncy material
phy make material 1, "Drondtindum"
phy set material restitution 1, 0
phy set material dynamic friction 1, 35
phy build material 1

rem Make the bouncy material
phy make material 2, "Thodnumdumdum"
phy set material restitution 2, 1
phy set material dynamic friction 2, 15
phy build material 2

return


LoadWorld:

color backdrop 0

rem Make the floor
make object box 1, 10000, 500, 10000
position object 1, 500, -275, 500
color object 1, rgb(255, 255, 255)
set object specular 1, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 1, 255
set object specular power 1, 255
phy make rigid body static box 1
rem Make the roof
make object box 2, 10000, 50, 10000
position object 2, 500, 1250, 500
color object 2, rgb(255, 255, 255)
set object specular 2, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 2, 255
set object specular power 2, 255
phy make rigid body static box 2
rem Make the walls
make object box 3, 7200, 5000, 50
position object 3, 3500, 1000, 0
color object 3, rgb(255, 255, 255)
set object specular 3, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 3, 255
set object specular power 3, 255
phy make rigid body static box 3

make object box 4, 7200, 5000, 50
position object 4, 3500, 1000, 3500
color object 4, rgb(255, 255, 255)
set object specular 4, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 4, 255
set object specular power 4, 255
phy make rigid body static box 4

make object box 5, 50, 5000, 7200
position object 5, 0, 1000, 3500
color object 5, rgb(255, 255, 255)
set object specular 5, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 5, 255
set object specular power 5, 255
phy make rigid body static box 5

make object box 6, 50, 5000, 7200
position object 6, 3500, 1000, 3500
color object 6, rgb(255, 255, 255)
set object specular 6, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object ambient 6, 255
set object specular power 6, 255
phy make rigid body static box 6

MakeMaze()
FillMaze()

rem Make the light
make light 1
color light 1, rgb(255, 255, 255)
set light range 1, 1750

rem Make the player
player = GetNewObjectNumber()
make object box player, 20, 55, 20
position object player, rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50
phy make box character controller player, rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50, 20, 45, 20, 1, 40, 50

dim other( 2 ) as integer

other( 0 ) = GetNewObjectNumber()
make object box other( 0 ), 20, 55, 20
position object other( 0 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

other( 1 ) = GetNewObjectNumber()
make object box other( 1 ), 20, 55, 20
position object other( 1 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

other( 2 ) = GetNewObjectNumber()
make object box other( 2 ), 20, 55, 20
position object other( 2 ), rnd( 5 ) * 700 + 50, 60, rnd( 5 ) * 700 + 50

return


phy end
flush video memory
end



function Pull()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( player ) - object position x( obj ), object position y( player ) - object position y( obj ), object position z( player ) - object position z( obj )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction


function Push()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem Set the vector
set vector3 1, object position x( obj ) - object position x( player ), object position y( obj ) - object position y( player ), object position z( obj ) - object position z( player )
normalize vector3 1, 1

rem Create the force
rbg# = phy get rigid body mass( obj )
if rbm# > 41
  m# = 777 * (rbm# - 40)
else
  m# = 777
endif

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

function GetNewObjectNumber()

newObj = 2
repeat : newObj = newObj + 1 : until object exist( newObj ) = 0

endfunction newObj

function MakeMaze()

rem Create the array
dim world(55, 55) as boolean

rem Loop through the "maze", and create it
for x = 0 to 5
  for y = 0 to 5

    if world(x, y) = 0
      wall = rnd( 1000 )
      height = rnd( 5 ) + 1
      obj = GetNewObjectNumber()

      rem Which sort of wall?
      if wall <= 500
        make object box obj, 250, 50 + 250 * height, 250
        position object obj, 750 * x, 0, 750 * y
      else
        if wall > 500 and wall <= 750
          t = rnd( 1000 )
          if t < 500
            make object box obj, 500, 50 + 250 * height, 250
            position object obj, 700 * x + 25, 0, 700 * y
            world(x + 1, y) = 1
            world(x + 2, y) = 1
          else
            make object box obj, 250, 50 + 250 * height, 500
            position object obj, 750 * x, 0, 750 * y + 25
            world(x, y + 1) = 1
            world(x, y + 2) = 1
          endif
        else
          if wall > 750
            t = rnd( 1000 )
            if t < 500
              make object box obj, 1000, 50 + 250 * height, 125
              position object obj, 750 * x + 35, 0, 750 * y
              world(x + 1, y) = 1
              world(x + 2, y) = 1
              world(x + 3, y) = 1
              world(x + 4, y) = 1
              world(x + 5, y) = 1
            else
              make object box obj, 250, 50 + 250 * height, 1000
              position object obj, 750 * x, 0, 750 * y + 35
              world(x, y + 1) = 1
              world(x, y + 2) = 1
              world(x, y + 3) = 1
              world(x, y + 4) = 1
              world(x, y + 5) = 1
            endif
          endif
        endif
      endif

      rem The color
      color object obj, rgb(255, 100, 50)
      set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
      set object ambient obj, 100
      set object specular power obj, 155

      world(x, y) = 1
      phy make rigid body static box obj

    endif

  next y
next x

undim world()

endfunction

function FillMaze()

rem Make the array
dim objects( 100 ) as integer

rem Fill the maze with 30 boxes
for x = 0 to 29
  obj = GetNewObjectNumber()
  sizeX = 25 + rnd( 120 )
  sizeY = 25 + rnd( 120 )
  sizeZ = 25 + rnd( 120 )
  make object box obj, sizeX, sizeY, sizeZ
  position object obj, rnd( 3550 ) + 100, 1000, rnd( 3550 ) + 100

  rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

  rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic box obj, 1
  phy set rigid body mass obj, sizeX / 5 + sizeY / 5 + sizeZ / 5
  phy set rigid body linear velocity obj, rnd( 20 ) - 10, -1 - rnd( 10 ), rnd( 20 ) - 10
  objects( obj ) = obj
next x
rem Fill the maze with 20 spheres
for x = 0 to 19
  obj = GetNewObjectNumber()
  radius = 40 + rnd( 120 )
  make object sphere obj, radius
  position object obj, rnd( 3550 ) + 100, 1000, rnd( 3550 ) + 100

  rem The color
  color object obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object specular obj, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
  set object ambient obj, 255
  set object specular power obj, 255

  rem Bring the object into the world of Dark Physics
  phy make rigid body dynamic sphere obj, 2
  phy set rigid body mass obj, (1.2453 * radius) / 2
  phy set rigid body linear velocity obj, rnd( 480 ) - 240, -1 - rnd( 10 ), rnd( 480 ) - 240
  objects( obj ) = obj

next x

endfunction

remstart
function StrafeLeft( player as integer )

x# as float
x# = object angle x( player )
xrotate object player, 0
yrotate object player, object angle y( player ) + 90
move object player, 5
yrotate object player, object angle y( player ) - 90
xrotate object player, x#

endfunction

function StrafeRight()

x# as float
x# = object angle x( player )
xrotate object player, 0
yrotate object player, object angle y( player ) + 90
move object player, 5
yrotate object player, object angle y( player ) - 90
xrotate object player, x#

endfunction
remend

function distance(obj as integer, x as integer, y as integer, z as integer)

dist = sqrt( abs( object position x( obj ) - x ) ^ 2 + abs( object position y( obj ) - y ) ^ 2 + abs( object position z( obj ) - z ) ^ 2 )

endfunction dist

function Options()

option as byte

obj = pick object( mousex(), mousey(), 1, 4 )
if obj = 1
  yrotate object 1, 110
  if mouseclick() = 1 then option = 1
else
  point object 1, 0, 50, 0
  if obj = 2
    yrotate object 2, 110
    if mouseclick() = 1 then option = 2
  else
    point object 2, 0, 40, 0
    if obj = 3
      yrotate object 3, 110
      if mouseclick() = 1 then option = 3
    else
      point object 3, 0, 30, 0
      if obj = 4
        yrotate object 4, 110
        if mouseclick() = 1 then end
      else
        point object 4, 0, 20, 0
      endif
    endif
  endif
endif

endfunction option

function Dispose()

for n = 1 to 500
  if object exist( n ) then delete object n
next n

endfunction

function Connect(gname as string, gtype as string, user as string, timeL as integer)

THost "0.0.0.0", 4, user
TRegisterGame gname, gtype, "Random maze", timeL * 60000

endfunction

function RNetwork()

rem Get the sender
sender = TGetSender()
posX# = TGetFloat()
posY# = TGetFloat()
posZ# = TGetFloat()
ax# = TGetFloat()
ay# = TGetFloat()

rem Position the sender
position object other( sender - 1 ), posX#, posY#, posZ#
rotate object other( sender - 1 ), ax#, ay#, 0

rem Get the new positions of the objects
for n = 0 to 100
  if objects( n ) > 0
    ox# = TGetFloat()
    oy# = TGetFloat()
    oz# = TGetFloat()
    oax# = TGetFloat()
    oay# = TGetFloat()
    oaz# = TGetFloat()
    phy set rigid body position objects( n ), ox#, oy#, oz#
    phy set rigid body rotation objects( n ), oax#, oay#, oaz#
  endif
next n

endfunction

Back to top

Profile PM Email

Codger

22

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 11th May 2007 03:58

Link

I am unable to compile the "entire source" it has some commands not available to me the "T" function sets so i am unable to help.

The second snippet has functions missing.

Perhaps you could review the second snippet and repost?

System
PIV 2.8 MZ 512 Mem
FX 5600 256 mem

Back to top

Profile PM Email

White knight

19

Years of Service

User Offline

Joined: 31st Dec 2004

Location:

Posted: 13th May 2007 18:36 Edited at: 13th May 2007 18:42

Link

i think it's gibbles plugin codger but i am not for sure i looked for TPutFloat function in the forums and tha's what i found.Or maybe Tempest.dll http://forum.thegamecreators.com/?m=forum_view&t=73665&b=5 if you need the plugin it's here

new learning center comming soon http://911.bounceme.net/

Back to top

Profile PM Website

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 14th May 2007 10:08 Edited at: 16th May 2007 16:58

Link

It's tempest. Sorry for not commenting that I use it. But you can just take away those commands, they do nothing important at the moment (they are just for when I'm implementing multiplayer, which is not right now).

EDIT:

This is what I mean with that the objects do not rotate. It's rare that this happens (they usually just stay in the same angle all the time), but when it happens they get stuck in this angle as well. On the image (attached at the bottom of the screen) you se an object standing in an wiered way. Dark Physics SHOULD make so it turn right and everything, but it doesn't. The object has the same angle all the time. Can anyone tell me why?

Attachments

Login to view attachments

Back to top

Profile PM Email

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 16th May 2007 20:44

Link

Sorry for the double post, but I think I found the problem. It's the static and dynamic friction that is 0, and I think it might have something to do with it. However, if I make them any heigher, it will conflict with the force powers. Because suddenly the friction gets in the way of the forces, that I use to push or pull the object (as in Codgers code). The objects are not affected in the right way if they are standing on the ground, if I make the friction heigher then 0. So I need an alternative solution.

I've been working on makeing it work with the 'phy set rigid body linear velocity' command, but that does not work at all... The thing is that I've made it work that way before in my 'Sandbox" program. Here is how I did it then:

function Force(mousefactor as integer)

rem Pick an object
obj = pick object( sw / 2, sh / 2, 1, bullet )
if controlkey() = 1 and sel <> 2 then obj = bullet
if controlkey() = 0
  if obj = 0
    exitfunction
  else
    if obj = 5 or obj = 6 or obj = 7 or obj = 8 or obj = 9 or obj = 10
      if sel <> 2
        exitfunction
      endif
    endif
  endif
endif

rem The position of the bullet
px = object position x( obj )
py = object position y( obj )
pz = object position z( obj )

if sel = 2
  rem The seeker power
  movX# = (30 * (px - object position x( bullet ))) / distance(obj, object position x( bullet ), object position y( bullet ), object position z( bullet ))
  movY# = (30 * (py - object position y( bullet ))) / distance(obj, object position x( bullet ), object position y( bullet ), object position z( bullet ))
  movZ# = (30 * (pz - object position z( bullet ))) / distance(obj, object position x( bullet ), object position y( bullet ), object position z( bullet ))
  obj = bullet
else
  rem The other powers
  movX# = (30 * (px - camera position x())) / distance(obj, camera position x(), camera position y(), camera position z())
  movY# = (30 * (py - camera position y())) / distance(obj, camera position x(), camera position y(), camera position z())
  movZ# = (30 * (pz - camera position z())) / distance(obj, camera position x(), camera position y(), camera position z())
endif

if sel = 0 or sel = 2
  factor = 2 * mousefactor * ((shiftkey() * 5) + 1)
else
  factor = -2 * mousefactor * ((shiftkey() * 5) + 1)
endif

phy set rigid body linear velocity obj, factor * movX#, factor * movY#, factor * movZ#

endfunction

+ Code Snippet

function Force(mousefactor as integer)

rem Pick an object
obj = pick object( sw / 2, sh / 2, 1, bullet )
if controlkey() = 1 and sel <> 2 then obj = bullet
if controlkey() = 0
  if obj = 0
    exitfunction
  else
    if obj = 5 or obj = 6 or obj = 7 or obj = 8 or obj = 9 or obj = 10
      if sel <> 2
        exitfunction
      endif
    endif
  endif
endif

rem The position of the bullet
px = object position x( obj )
py = object position y( obj )
pz = object position z( obj )

if sel = 2
  rem The seeker power
  movX# = (30 * (px - object position x( bullet ))) / distance(obj, object position x( bullet ), object position y( bullet ), object position z( bullet ))
  movY# = (30 * (py - object position y( bullet ))) / distance(obj, object position x( bullet ), object position y( bullet ), object position z( bullet ))
  movZ# = (30 * (pz - object position z( bullet ))) / distance(obj, object position x( bullet ), object position y( bullet ), object position z( bullet ))
  obj = bullet
else
  rem The other powers
  movX# = (30 * (px - camera position x())) / distance(obj, camera position x(), camera position y(), camera position z())
  movY# = (30 * (py - camera position y())) / distance(obj, camera position x(), camera position y(), camera position z())
  movZ# = (30 * (pz - camera position z())) / distance(obj, camera position x(), camera position y(), camera position z())
endif

if sel = 0 or sel = 2
  factor = 2 * mousefactor * ((shiftkey() * 5) + 1)
else
  factor = -2 * mousefactor * ((shiftkey() * 5) + 1)
endif

phy set rigid body linear velocity obj, factor * movX#, factor * movY#, factor * movZ#

endfunction

And here are the current code for the forces:

function Pull()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem The position of the object
opx# = object position x( obj )
opy# = object position y( obj )
opz# = object position z( obj )

rem Set the vector
set vector3 1, object position x( player ) - opx#, object position y( player ) - opy#, object position z( player ) - opz#
normalize vector3 1, 1

rem Create the force factor
m# = (42 * (1150 - phy get rigid body mass( obj ))) / (31 * distance(obj, opx#, opy#, opz#))
if m# > 2341.5 then m# = 2341.5

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

function Push()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem The position of the object
opx# = object position x( obj )
opy# = object position y( obj )
opz# = object position z( obj )

rem Set the vector
set vector3 1, opx# - object position x( player ), opy# - object position y( player ), opz# - object position z( player )
normalize vector3 1, 1

rem Create the force factor
m# = (42 * (1150 - phy get rigid body mass( obj ))) / (31 * distance(obj, opx#, opy#, opz#))
if m# > 2341.5 then m# = 2341.5

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

+ Code Snippet

function Pull()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem The position of the object
opx# = object position x( obj )
opy# = object position y( obj )
opz# = object position z( obj )

rem Set the vector
set vector3 1, object position x( player ) - opx#, object position y( player ) - opy#, object position z( player ) - opz#
normalize vector3 1, 1

rem Create the force factor
m# = (42 * (1150 - phy get rigid body mass( obj ))) / (31 * distance(obj, opx#, opy#, opz#))
if m# > 2341.5 then m# = 2341.5

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction


function Push()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem The position of the object
opx# = object position x( obj )
opy# = object position y( obj )
opz# = object position z( obj )

rem Set the vector
set vector3 1, opx# - object position x( player ), opy# - object position y( player ), opz# - object position z( player )
normalize vector3 1, 1

rem Create the force factor
m# = (42 * (1150 - phy get rigid body mass( obj ))) / (31 * distance(obj, opx#, opy#, opz#))
if m# > 2341.5 then m# = 2341.5

rem Apply the force
phy add rigid body force obj, x vector3( 1 ) * m#, y vector3( 1 ) * m#, z vector3( 1 ) * m#, 3

endfunction

Can anyone help me? How do I make so the force powers work, without using forces? Or is there a way to use forces without having the problem I'm having?

Back to top

Profile PM Email

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 24th May 2007 11:29 Edited at: 26th May 2007 10:57

Link

No one knows how to create these powers without having to worry for the friction?

EDIT:

Ok, I've done it. It was not very hard, I just didn't do it right the previous times. Anyway, here is the code if you're interested.

function Pull()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem The position of the object
opx# = object position x( obj )
opy# = object position y( obj )
opz# = object position z( obj )

rem Store the distance
dx# = object position x( player ) - opx#
dy# = object position y( player ) - opy#
dz# = object position z( player ) - opz#

rem Create the movements
mx# = (840 * dx#) / (distance(player, opx#, opy#, opz#))
my# = (840 * dy#) / (distance(player, opx#, opy#, opz#))
mz# = (840 * dz#) / (distance(player, opx#, opy#, opz#))

rem Apply the movements
phy set rigid body linear velocity obj, mx#, my#, mz#

endfunction

`--------------------------------------------------------------------------

function Push()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem The position of the object
opx# = object position x( obj )
opy# = object position y( obj )
opz# = object position z( obj )

rem Store the distance
dx# = opx# - object position x( player )
dy# = opy# - object position y( player )
dz# = opz# - object position z( player )

rem Create the movements
mx# = (840 * dx#) / (distance(player, opx#, opy#, opz#))
my# = (840 * dy#) / (distance(player, opx#, opy#, opz#))
mz# = (840 * dz#) / (distance(player, opx#, opy#, opz#))

rem Apply the movements
phy set rigid body linear velocity obj, mx#, my#, mz#

endfunction

+ Code Snippet

function Pull()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem The position of the object
opx# = object position x( obj )
opy# = object position y( obj )
opz# = object position z( obj )

rem Store the distance
dx# = object position x( player ) - opx#
dy# = object position y( player ) - opy#
dz# = object position z( player ) - opz#

rem Create the movements
mx# = (840 * dx#) / (distance(player, opx#, opy#, opz#))
my# = (840 * dy#) / (distance(player, opx#, opy#, opz#))
mz# = (840 * dz#) / (distance(player, opx#, opy#, opz#))

rem Apply the movements
phy set rigid body linear velocity obj, mx#, my#, mz#

endfunction

`--------------------------------------------------------------------------

function Push()

rem Pick the right object
obj = pick object(sw / 2, sh / 2, 1, player - 1)
if obj = 0 then obj = pick object(sw / 2, sh / 2, player + 1, 300)
if objects( obj ) = 0 then exitfunction

rem The position of the object
opx# = object position x( obj )
opy# = object position y( obj )
opz# = object position z( obj )

rem Store the distance
dx# = opx# - object position x( player )
dy# = opy# - object position y( player )
dz# = opz# - object position z( player )

rem Create the movements
mx# = (840 * dx#) / (distance(player, opx#, opy#, opz#))
my# = (840 * dy#) / (distance(player, opx#, opy#, opz#))
mz# = (840 * dz#) / (distance(player, opx#, opy#, opz#))

rem Apply the movements
phy set rigid body linear velocity obj, mx#, my#, mz#

endfunction

Thanks everyone for your help.

Back to top

Profile PM Email

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / (Dark Physics) Creating jedi-like powers. How?

Attachments