Cool racing with dp - GameCreators Forum

Author

Message

Bad Monkey

17

Years of Service

User Offline

Joined: 1st Jan 2007

Location:

Posted: 27th Oct 2007 05:29

Link

i just bought dp and it's pretty cool. i'm playing around with the vehicle and the terrain static object and it's very easy, and stable.

i have an attached screenshot showing this. i think i can easily create a racing game now, previously unimaginable.

i'm having a bit of trouble with the camera place ment. it's just too jerky.

Here's my code:

Rem Project: Runaround
Rem Created: 10/26/2007 8:56:00 AM

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

sync on : sync rate 30 : phy start
phy set gravity 0,-100,0

concrete=1
phy make material concrete,"concrete"
phy set material static friction concrete,0.75
phy set material dynamic friction concrete,1
phy set material restitution concrete,1
phy build material concrete

load image "media/terrain/texture.bmp", 1
load image "media/terrain/detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "media/terrain/map.bmp"         ` set the heightmap
set terrain scale 1,3, .6, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, .75, .25, .75, .5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                              ` finally build the terrain

phy make rigid body static terrain 1, concrete

`make object cube 2,10
`phy make box character controller ID, x#, y#, z#, size x#, size y#, size z#, up, step#, slope limit#
`phy make box character controller 2, 500, 100, 500, 5, 5, 5, 1, 1, 45

load object "beach.x", 2
position object 2, 500, 20, 500
rotate limb 2, 0, 0, -90, 0

phy create vehicle 2
phy add vehicle body 2, 2.2, 0.6, 0.75, 0.0, 0.6, 0.0
phy add vehicle wheel 2, 5,  1.5, 0.3,  1.1, 0.6, 0.2, 0, 0
phy add vehicle wheel 2, 7,  1.5, 0.3, -1.1, 0.6, 0.2, 0, 1
phy add vehicle wheel 2, 3, -1.5, 0.3, -1.1, 0.6, 0.2, 1, 0
phy add vehicle wheel 2, 9, -1.5, 0.3,  1.1, 0.6, 0.2, 1, 1
phy set vehicle max motor 2, 600
phy set vehicle steering delta 2, 0.1
phy set vehicle max steering angle 2, 0.4
phy set vehicle auto 2, 1
phy set vehicle suspension spring 2,200
phy build vehicle 2

cameraObj = 100
make object cube cameraObj, 10
turn object right 100, 100
position camera 385,50,100

do
   if spacekey() = 1 THEN end
   `controlCameraWithMouseKeyBoard(0, 1, 3)
   `position camera camera position x(0), 10+get terrain ground height(1,camera position x(0), camera position z(0)),camera position z(0)
   `controlCharacter(2,50)
   `positionCameraAsObject(2, 0)
   `set camera to follow object position x ( 2 ), object position y ( 2 ), object position z ( 2 ), 0, 6, 4, 1, 0
   `gosub driveCar
   `setCamera(0, 2, 20, 0, 0)
   ezRotateFunction(2, 100, 0, -10, 5, 0)
   `controlCameraObjectAndCamera(0, cameraObj, 2, 35)
   phy set vehicle auto 2, 1
   update terrain
   phy update
   sync
loop

function controlCameraObjectAndCamera(camNum, cameraObj, objNum, offset)
   objPosX# = object position x(objNum)
   objPosY# = object position y(objNum)
   objPosZ# = object position z(objNum)
   objRotX# = object angle x(objNum)
   objRotY# = object angle y(objNum)
   objRotZ# = object angle z(objNum)
   text 0,0,str$(objPosX#)+" : "+str$(objPosY#)+" : "+str$(objPosZ#)
   position object cameraObj, objPosx#, objPosY#, objPosZ#
   rotate object cameraObj, object angle x(cameraObj), objRotY#, object angle z(cameraObj)
   move object cameraObj, offset
   `objPosX# = object position x(cameraObj)
   `objPosY# = object position y(cameraObj)
   `objPosZ# = object position z(cameraObj)
   `text 0,15,str$(objPosX#)+" : "+str$(objPosY#)+" : "+str$(objPosZ#)
   `position camera 0, objPosX#, objPosY#, objPosZ#
endfunction

function controlCharacter(objNum, speed)
   if shiftkey() = 1 THEN speed = speed *10
   if upkey() = 1    OR keystate(20) = 1 THEN phy move character controller objNum,speed
   if downkey() = 1  OR keystate(34) = 1 THEN phy move character controller objNum,speed*-1
   if keystate(20) = 0 AND keystate(34) = 0 THEN phy move character controller objNum,0
   if keystate(33) THEN yrotate object objNum, object angle y(objNum)-2
   if keystate(35) THEN yrotate object objNum, 2 + object angle y(objNum)
   if keystate(19) THEN move object left objNum, speed
   if keystate(21) THEN move object right objNum, speed
   `if upkey() = 1
   `   phy move character controller objNum, speed
   `else
   `   phy move character controller objNum, speed
   `endif
endfunction

function controlCameraWithMouseKeyBoard(cameraNum, objectNum, speed)
   rotate camera cameraNum, camera angle x(cameraNum)+(mousemovey()/speed), camera angle y(cameraNum)+(mousemovex()/speed), 0
   cx# = camera angle x(cameraNum) : cy# = camera angle y(cameraNum)
   `w,s,a,d*****forward,back,left,right
   if upkey() = 2    OR keystate(17) = 1 then xrotate camera cameraNum, 0 : move camera cameraNum, speed : xrotate camera cameraNum, cx#
   if downkey() = 2  OR keystate(31) = 1 then xrotate camera cameraNum, 0 : move camera cameraNum, -1*speed : xrotate camera cameraNum, cx#
   if leftkey() = 2  OR keystate(30) = 1 THEN yrotate camera cameraNum, cy#-90 : move camera speed : yrotate camera cameraNum, cy#
   if rightkey() = 2 OR keystate(32) = 1 THEN yrotate camera cameraNum, cy#+90 : move camera speed : yrotate camera cameraNum, cy#
   if wrapvalue(camera angle x(cameraNum))>40 and wrapvalue(camera angle x(cameraNum))<180 then xrotate camera cameraNum, 40
   if wrapvalue(camera angle x(cameraNum))>180 and wrapvalue(camera angle x(cameraNum))<280 then xrotate camera cameraNum, 280
endfunction

function positionCameraAsObject(objectNum, cameraNum)
   objPosX# = object position x(objectNum)
   objPosY# = object position y(objectNum)
   objPosZ# = object position z(objectNum)
   objRotX# = object angle x(objectNum)
   objRotY# = object angle y(objectNum)
   objRotZ# = object angle z(objectNum)
   position camera cameraNum, objPosX#, objPosY#, objPosZ#
   rotate camera cameraNum, objRotX#, objRotY#, objRotZ#
endfunction

function setCamera(camNum, objNum, space, height, offset)
   objPosX# = object position x(objNum)
   objPosY# = object position y(objNum)
   objPosZ# = object position z(objNum)
   objRotY# = wrapvalue(object angle y(objNum)+360)

camPosX# = camera position x(camNum)
   camPosY# = camera position y(camNum)
   camPosZ# = camera position z(camNum)
   camRotX# = camera angle x(camNum)
   camRotZ# = camera angle z(camNum)

rotate camera  camNum, camRotX#, objRotY#, camRotZ#
   position camera camNum, objPosX#, objPosY#+height, objPosZ#
   move camera space * -1
   point camera camNum, objPosX#, objPosY#+offset, objPosZ#
endfunction

function ezRotateFunction(objNum, objNumTwo, camNum, offsetX#, offsetY#, offsetZ#)
   `Set EZrotate up with ship's current rotation
   EZro_SetEuler OBJECT ANGLE X(objNum),OBJECT ANGLE Y(objNum),OBJECT ANGLE Z(objNum)
   `Set EZrotate up with ship's current position
   EZro_SetPos OBJECT POSITION X(objNum),OBJECT POSITION Y(objNum),OBJECT POSITION Z(objNum)
   `!!! Find world coordinates of point from offset settings !!!
   EZro_FindPointFromOffset offsetX#, offsetY#, offsetZ#
   `!!! Position Camera at Calculated position !!!
   POSITION CAMERA camNum, EZro_GetOffsetX(),EZro_GetOffsetY(),EZro_GetOffsetZ()
   `Set the camera's rotation equal to the ship's rotation
   Point CAMERA camNum, OBJECT position X(objNum),OBJECT position Y(objNum)+4,OBJECT position Z(objNum)

endfunction

remstart
driveCar:

if upkey ( ) = 1
   phy set vehicle motor force 2, 200
   else if downkey ( ) = 1
      phy set vehicle motor force 2, 0.0
   else if phy get vehicle motor force ( 2 ) <> 0.0
      phy set vehicle motor force 2, 0.0
endif

steeringAngle# = phy get vehicle steering angle ( 2 )
steeringDelta# = phy get vehicle steering delta ( 2 )

if leftkey ( ) = 1
   if steeringAngle# > ( -1.0 + steeringDelta# )
      steeringAngle# -= steeringDelta# / 2
   endif
else if rightkey ( ) = 1
   if steeringAngle# < ( 1.0 – steeringDelta# )
      steeringAngle += steeringDelta# / 2
   endif
else
   if steeringAngle# > 0.0
      steeringAngle# = steeringAngle# - steeringDelta# * 2
   if steeringAngle# < 0
      steeringAngle# = 0.0
   endif
else if steeringAngle < 0.0
   steeringAngle# = steeringAngle# + steeringDelta# * 2
   if steeringAngle# > 0
      steeringAngle# = 0.0
   endif
   endif
endif

phy set vehicle steering angle 2, steeringAngle#

return
remend

+ Code Snippet

Rem Project: Runaround
Rem Created: 10/26/2007 8:56:00 AM

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

sync on : sync rate 30 : phy start
phy set gravity 0,-100,0

concrete=1
phy make material concrete,"concrete"
phy set material static friction concrete,0.75
phy set material dynamic friction concrete,1
phy set material restitution concrete,1
phy build material concrete

load image "media/terrain/texture.bmp", 1
load image "media/terrain/detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "media/terrain/map.bmp"         ` set the heightmap
set terrain scale 1,3, .6, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, .75, .25, .75, .5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                              ` finally build the terrain

phy make rigid body static terrain 1, concrete

`make object cube 2,10
`phy make box character controller ID, x#, y#, z#, size x#, size y#, size z#, up, step#, slope limit#
`phy make box character controller 2, 500, 100, 500, 5, 5, 5, 1, 1, 45

load object "beach.x", 2
position object 2, 500, 20, 500
rotate limb 2, 0, 0, -90, 0

phy create vehicle 2
phy add vehicle body 2, 2.2, 0.6, 0.75, 0.0, 0.6, 0.0
phy add vehicle wheel 2, 5,  1.5, 0.3,  1.1, 0.6, 0.2, 0, 0
phy add vehicle wheel 2, 7,  1.5, 0.3, -1.1, 0.6, 0.2, 0, 1
phy add vehicle wheel 2, 3, -1.5, 0.3, -1.1, 0.6, 0.2, 1, 0
phy add vehicle wheel 2, 9, -1.5, 0.3,  1.1, 0.6, 0.2, 1, 1
phy set vehicle max motor 2, 600
phy set vehicle steering delta 2, 0.1
phy set vehicle max steering angle 2, 0.4
phy set vehicle auto 2, 1
phy set vehicle suspension spring 2,200
phy build vehicle 2

cameraObj = 100
make object cube cameraObj, 10
turn object right 100, 100
position camera 385,50,100

do
   if spacekey() = 1 THEN end
   `controlCameraWithMouseKeyBoard(0, 1, 3)
   `position camera camera position x(0), 10+get terrain ground height(1,camera position x(0), camera position z(0)),camera position z(0)
   `controlCharacter(2,50)
   `positionCameraAsObject(2, 0)
   `set camera to follow object position x ( 2 ), object position y ( 2 ), object position z ( 2 ), 0, 6, 4, 1, 0
   `gosub driveCar
   `setCamera(0, 2, 20, 0, 0)
   ezRotateFunction(2, 100, 0, -10, 5, 0)
   `controlCameraObjectAndCamera(0, cameraObj, 2, 35)
   phy set vehicle auto 2, 1
   update terrain
   phy update
   sync
loop


function controlCameraObjectAndCamera(camNum, cameraObj, objNum, offset)
   objPosX# = object position x(objNum)
   objPosY# = object position y(objNum)
   objPosZ# = object position z(objNum)
   objRotX# = object angle x(objNum)
   objRotY# = object angle y(objNum)
   objRotZ# = object angle z(objNum)
   text 0,0,str$(objPosX#)+" : "+str$(objPosY#)+" : "+str$(objPosZ#)
   position object cameraObj, objPosx#, objPosY#, objPosZ#
   rotate object cameraObj, object angle x(cameraObj), objRotY#, object angle z(cameraObj)
   move object cameraObj, offset
   `objPosX# = object position x(cameraObj)
   `objPosY# = object position y(cameraObj)
   `objPosZ# = object position z(cameraObj)
   `text 0,15,str$(objPosX#)+" : "+str$(objPosY#)+" : "+str$(objPosZ#)
   `position camera 0, objPosX#, objPosY#, objPosZ#
endfunction

function controlCharacter(objNum, speed)
   if shiftkey() = 1 THEN speed = speed *10
   if upkey() = 1    OR keystate(20) = 1 THEN phy move character controller objNum,speed
   if downkey() = 1  OR keystate(34) = 1 THEN phy move character controller objNum,speed*-1
   if keystate(20) = 0 AND keystate(34) = 0 THEN phy move character controller objNum,0
   if keystate(33) THEN yrotate object objNum, object angle y(objNum)-2
   if keystate(35) THEN yrotate object objNum, 2 + object angle y(objNum)
   if keystate(19) THEN move object left objNum, speed
   if keystate(21) THEN move object right objNum, speed
   `if upkey() = 1
   `   phy move character controller objNum, speed
   `else
   `   phy move character controller objNum, speed
   `endif
endfunction

function controlCameraWithMouseKeyBoard(cameraNum, objectNum, speed)
   rotate camera cameraNum, camera angle x(cameraNum)+(mousemovey()/speed), camera angle y(cameraNum)+(mousemovex()/speed), 0
   cx# = camera angle x(cameraNum) : cy# = camera angle y(cameraNum)
   `w,s,a,d*****forward,back,left,right
   if upkey() = 2    OR keystate(17) = 1 then xrotate camera cameraNum, 0 : move camera cameraNum, speed : xrotate camera cameraNum, cx#
   if downkey() = 2  OR keystate(31) = 1 then xrotate camera cameraNum, 0 : move camera cameraNum, -1*speed : xrotate camera cameraNum, cx#
   if leftkey() = 2  OR keystate(30) = 1 THEN yrotate camera cameraNum, cy#-90 : move camera speed : yrotate camera cameraNum, cy#
   if rightkey() = 2 OR keystate(32) = 1 THEN yrotate camera cameraNum, cy#+90 : move camera speed : yrotate camera cameraNum, cy#
   if wrapvalue(camera angle x(cameraNum))>40 and wrapvalue(camera angle x(cameraNum))<180 then xrotate camera cameraNum, 40
   if wrapvalue(camera angle x(cameraNum))>180 and wrapvalue(camera angle x(cameraNum))<280 then xrotate camera cameraNum, 280
endfunction

function positionCameraAsObject(objectNum, cameraNum)
   objPosX# = object position x(objectNum)
   objPosY# = object position y(objectNum)
   objPosZ# = object position z(objectNum)
   objRotX# = object angle x(objectNum)
   objRotY# = object angle y(objectNum)
   objRotZ# = object angle z(objectNum)
   position camera cameraNum, objPosX#, objPosY#, objPosZ#
   rotate camera cameraNum, objRotX#, objRotY#, objRotZ#
endfunction

function setCamera(camNum, objNum, space, height, offset)
   objPosX# = object position x(objNum)
   objPosY# = object position y(objNum)
   objPosZ# = object position z(objNum)
   objRotY# = wrapvalue(object angle y(objNum)+360)

   camPosX# = camera position x(camNum)
   camPosY# = camera position y(camNum)
   camPosZ# = camera position z(camNum)
   camRotX# = camera angle x(camNum)
   camRotZ# = camera angle z(camNum)

   rotate camera  camNum, camRotX#, objRotY#, camRotZ#
   position camera camNum, objPosX#, objPosY#+height, objPosZ#
   move camera space * -1
   point camera camNum, objPosX#, objPosY#+offset, objPosZ#
endfunction

function ezRotateFunction(objNum, objNumTwo, camNum, offsetX#, offsetY#, offsetZ#)
   `Set EZrotate up with ship's current rotation
   EZro_SetEuler OBJECT ANGLE X(objNum),OBJECT ANGLE Y(objNum),OBJECT ANGLE Z(objNum)
   `Set EZrotate up with ship's current position
   EZro_SetPos OBJECT POSITION X(objNum),OBJECT POSITION Y(objNum),OBJECT POSITION Z(objNum)
   `!!! Find world coordinates of point from offset settings !!!
   EZro_FindPointFromOffset offsetX#, offsetY#, offsetZ#
   `!!! Position Camera at Calculated position !!!
   POSITION CAMERA camNum, EZro_GetOffsetX(),EZro_GetOffsetY(),EZro_GetOffsetZ()
   `Set the camera's rotation equal to the ship's rotation
   Point CAMERA camNum, OBJECT position X(objNum),OBJECT position Y(objNum)+4,OBJECT position Z(objNum)

endfunction


remstart
driveCar:

if upkey ( ) = 1
   phy set vehicle motor force 2, 200
   else if downkey ( ) = 1
      phy set vehicle motor force 2, 0.0
   else if phy get vehicle motor force ( 2 ) <> 0.0
      phy set vehicle motor force 2, 0.0
endif


steeringAngle# = phy get vehicle steering angle ( 2 )
steeringDelta# = phy get vehicle steering delta ( 2 )

if leftkey ( ) = 1
   if steeringAngle# > ( -1.0 + steeringDelta# )
      steeringAngle# -= steeringDelta# / 2
   endif
else if rightkey ( ) = 1
   if steeringAngle# < ( 1.0 – steeringDelta# )
      steeringAngle += steeringDelta# / 2
   endif
else
   if steeringAngle# > 0.0
      steeringAngle# = steeringAngle# - steeringDelta# * 2
   if steeringAngle# < 0
      steeringAngle# = 0.0
   endif
else if steeringAngle < 0.0
   steeringAngle# = steeringAngle# + steeringDelta# * 2
   if steeringAngle# > 0
      steeringAngle# = 0.0
   endif
   endif
endif

phy set vehicle steering angle 2, steeringAngle#

return
remend

it's not exactly clean or anything like that, lol. but the function that I'm using is called function ezRotateFunction(objNum, objNumTwo, camNum, offsetX#, offsetY#, offsetZ#)

+ Code Snippet

function ezRotateFunction(objNum, objNumTwo, camNum, offsetX#, offsetY#, offsetZ#)
   `Set EZrotate up with ship's current rotation
   EZro_SetEuler OBJECT ANGLE X(objNum),OBJECT ANGLE Y(objNum),OBJECT ANGLE Z(objNum)
   `Set EZrotate up with ship's current position
   EZro_SetPos OBJECT POSITION X(objNum),OBJECT POSITION Y(objNum),OBJECT POSITION Z(objNum)
   `!!! Find world coordinates of point from offset settings !!!
   EZro_FindPointFromOffset offsetX#, offsetY#, offsetZ#
   `!!! Position Camera at Calculated position !!!
   POSITION CAMERA camNum, EZro_GetOffsetX(),EZro_GetOffsetY(),EZro_GetOffsetZ()
   `Set the camera's rotation equal to the ship's rotation
   Point CAMERA camNum, OBJECT position X(objNum),OBJECT position Y(objNum)+4,OBJECT position Z(objNum)

endfunction

This function uses the ez rotate commands. it works fine--it does what it's supposed to, but its very shaky. Anyone know of a better way to position a camera behind an object?

Attachments

Login to view attachments

Back to top

Profile PM

Bozzy

17

Years of Service

User Offline

Joined: 10th Sep 2006

Location: Birmingham, UK

Posted: 27th Oct 2007 15:45 Edited at: 27th Oct 2007 15:47

Link

SET CAMERA TO FOLLOW maybe

u might have already done that though

In my one, I just did it so there was a variable called angle or whatever, and as the objec rotated, the variable increased and decreased... Then I set the camera to follow the object like that.

"I'm a firm believer that if a team scores one goal, then the other has to score two to win."

Back to top

Profile PM Email Website

Bad Monkey

17

Years of Service

User Offline

Joined: 1st Jan 2007

Location:

Posted: 31st Oct 2007 06:05

Link

Here is a hummer i made. not textured.

Attachments

Login to view attachments

Back to top

Profile PM

jason p sage

16

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 4th Jan 2008 22:54

Link

cool little hummer - I like the wheels

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

Bad Monkey

17

Years of Service

User Offline

Joined: 1st Jan 2007

Location:

Posted: 5th Jan 2008 04:49

Link

yes thanks, i've come across a problem though which i am still confused about.

I'm exporting with 3ds max 8, and when I put it in the dark physics engine the wheels turn in the opposite way. I'm not quite sure how to describe it, but it just doesn't work correctly.

I think the problem has to do with the limb coordinates and heirachy in max and it somehow not correctly translated into dbpro.

I might have to manually program the wheels as limbs inside of dbpro. So far, I haven't actually managed to squeeze in any time for this.

But the other vehicles from dark matter collection works fine.

Buy some new FPSCreator Ready Characters at:
http://www.freewebs.com/fpscharacters/

Back to top

Profile PM

jason p sage

16

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 5th Jan 2008 06:09

Link

will fix object pivot work? on limbs?

http://www.jasonpetersage.com/?PAGE=ironinfantry&SECTION=ironinfantry

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / Cool racing with dp

Attachments

Attachments