Terrain collision - GameCreators Forum

Author

Message

Wi1dcat Man

15

Years of Service

User Offline

Joined: 15th Feb 2009

Location: United States

Posted: 6th Mar 2009 04:16 Edited at: 6th Mar 2009 13:02

Link

hello, I'm new to DB Pro, and I'm trying to make an rpg game, and i know it will take a while, but I really just want to know how to make collision. I have Sparky's Collision DLL, and I studied the sliding demo to try to make my object collide with the terrain, but it doesn't work.

The only thing I can think of wrong is I'm not doing it right, it's because my object is a cube, or because the surface I'm colliding with is a bmp map, and not a .x object.

Please help, I don't care if you give me code to help, or tell, but any help will be very appreciated

Thanks, Wildcat Man

Code:

sync on
sync rate 0

WORDS$="Start Game"
Pressed=0
x1=20
y1=55
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
Do
   if Button(20,55,"Start Game")=1 then Goto New_Game
   Button(20,95,"Options")`uncomplete
   if Button(20,135,"Exit")=1 then End

sync
loop

New_Game:
cls
repeat
   text 240,220,"Press enter to begin";
   sync
until returnkey()=1

`make and position box(player for now)
make object box 1,4,3,5
position object 1,100,75,200

`load terrain and skybox
load image "Texture.bmp",1
load image "detail.png",2
load object "skybox1skybox.x",2
`make terrain
make object terrain 3
set terrain heightmap 3,"terrain.bmp"
set terrain scale 3,3,0.6,3
set terrain light 3,1,-0.25,0,1,1,0.78,0.5
set terrain texture 3,1,2
build terrain 3
sc_SetupComplexObject 3,1,0
`make skybox
set object light 2,0
scale object 2,30000,30000,30000

movespeed = 75
turnspeed = 87.5
time=timer()
do
   gameTime=timer()-time
   MSframe#=gameTime*(movespeed/1000.0) `Move Speed frame
   TSframe#=gameTime*(turnspeed/1000.0) `Turn Speed frame

if keystate(17)=1
      move object 1,MSframe#
   endif
   if keystate(31)=1
      move object 1,-MSframe#
   endif
   if keystate(30)=1
      dec a#,TSframe#
   endif
   if keystate(32)=1
      inc a#,TSframe#
   endif
   yrotate object 1,a#

posx#=cos(270-a#) * 30 + object position x(1)
   posz#=sin(270-a#) * 30 + object position z(1)
   position camera posx#,object position y(1)+6,posz#
   point camera object position x(1),object position y(1),object position z(1)

time=timer()

`update terrain(level)
   update terrain

sync
loop
end

function Button(x1,y1,WORDS$)
   Pressed=0
   x2=text width(WORDS$)
   y2=text height(WORDS$)
   if mousex()>x1 and mousex()<x1+x2
   if mousey()>y1-y2 and mousey()<y1+y2
      Pressed=1
   endif
   endif
   if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   if pressed=1
      Pressed=Mouseclick()
   else
      pressed = 0
   endif
   text x1,y1,WORDS$
endfunction Pressed

+ Code Snippet

sync on
sync rate 0

WORDS$="Start Game"
Pressed=0
x1=20
y1=55
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
Do
   if Button(20,55,"Start Game")=1 then Goto New_Game
   Button(20,95,"Options")`uncomplete
   if Button(20,135,"Exit")=1 then End

   sync
loop

New_Game:
cls
repeat
   text 240,220,"Press enter to begin";
   sync
until returnkey()=1

`make and position box(player for now)
make object box 1,4,3,5
position object 1,100,75,200

`load terrain and skybox
load image "Texture.bmp",1
load image "detail.png",2
load object "skybox1skybox.x",2
`make terrain
make object terrain 3
set terrain heightmap 3,"terrain.bmp"
set terrain scale 3,3,0.6,3
set terrain light 3,1,-0.25,0,1,1,0.78,0.5
set terrain texture 3,1,2
build terrain 3
sc_SetupComplexObject 3,1,0
`make skybox
set object light 2,0
scale object 2,30000,30000,30000

movespeed = 75
turnspeed = 87.5
time=timer()
do
   gameTime=timer()-time
   MSframe#=gameTime*(movespeed/1000.0) `Move Speed frame
   TSframe#=gameTime*(turnspeed/1000.0) `Turn Speed frame

   if keystate(17)=1
      move object 1,MSframe#
   endif
   if keystate(31)=1
      move object 1,-MSframe#
   endif
   if keystate(30)=1
      dec a#,TSframe#
   endif
   if keystate(32)=1
      inc a#,TSframe#
   endif
   yrotate object 1,a#

   posx#=cos(270-a#) * 30 + object position x(1)
   posz#=sin(270-a#) * 30 + object position z(1)
   position camera posx#,object position y(1)+6,posz#
   point camera object position x(1),object position y(1),object position z(1)

   time=timer()

   `update terrain(level)
   update terrain

   sync
loop
end

function Button(x1,y1,WORDS$)
   Pressed=0
   x2=text width(WORDS$)
   y2=text height(WORDS$)
   if mousex()>x1 and mousex()<x1+x2
   if mousey()>y1-y2 and mousey()<y1+y2
      Pressed=1
   endif
   endif
   if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   if pressed=1
      Pressed=Mouseclick()
   else
      pressed = 0
   endif
   text x1,y1,WORDS$
endfunction Pressed

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 6th Mar 2009 12:48 Edited at: 6th Mar 2009 12:51

Link

There is a terrain example that comes with Sparky's Collision DLL which is relatively recent (I have v2.04b and it's in there, and it comes with v2.05 as well). Instead of using SC_SetupComplexObject try using sc_setupTerrainCollision

.

Also, I don't see any collision code in the code you posted besides the SC_SetupComplexObject command. That command only sets your object up for collision-- you will need to check for collision in your loop. You will also need to setup up your cube object with the SC_SetupObject command.

Snow Demo

Back to top

Profile PM Email

Wi1dcat Man

15

Years of Service

User Offline

Joined: 15th Feb 2009

Location: United States

Posted: 7th Mar 2009 02:14

Link

Hey Sixy Squares, thanks for the help, but I think i have v2.05, and it says sc_setupTerrainCollision isn't used anymore and to use sc_setComplexObject. Anyway, I have a small dbo map i can use instead of the terrain, but can someone explain to me how to make collision (for a third person type game)?

Thanks.

Back to top

Profile PM

Wi1dcat Man

15

Years of Service

User Offline

Joined: 15th Feb 2009

Location: United States

Posted: 7th Mar 2009 04:12

Link

Hey, I got my collision working, thanks to one of RUCCUS's posts, the only problem is everything is blue... I don't know if there's something in my code or what, but I've tried a few different maps, .Xs and .DBOs, I'll put a download to a .X map I got from a tutorial, I forgot who made it but I didn't.

If anyone can help, thanks.

Attachments

Login to view attachments

Back to top

Profile PM

Wi1dcat Man

15

Years of Service

User Offline

Joined: 15th Feb 2009

Location: United States

Posted: 7th Mar 2009 04:14 Edited at: 7th Mar 2009 15:07

Link

Here's the code, sorry

sync on
sync rate 0

WORDS$="Start Game"
Pressed=0
x1=20
y1=55
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
Do
   if Button(20,55,"Start Game")=1 then Goto New_Game
   Button(20,95,"Options")`uncomplete
   if Button(20,135,"Exit")=1 then End

sync
loop

New_Game:
cls
repeat
   text 240,220,"Press enter to begin";
   sync
until returnkey()=1

`make and position box(player for now)
make object cube 1,20
position object 1,0,5,0
`load terrain and skybox
load object "colltest.x",2
ghost object on 2
position object 2,0,-20,60
sc_SetupObject 2,0,0

movespeed = 75
turnspeed = 87.5
time=timer()

do
   `store player's old position on xyz axis
   ox# = object position x(1)
   oy# = object position y(1)
   oz# = object position z(1)

gameTime=timer()-time
   MSframe#=gameTime*(movespeed/1000.0) `Move Speed frame
   TSframe#=gameTime*(turnspeed/1000.0) `Turn Speed frame

if keystate(17)=1
      move object 1,MSframe#
   endif
   if keystate(31)=1
      move object 1,-MSframe#
   endif
   if keystate(30)=1
      dec a#,TSframe#
   endif
   if keystate(32)=1
      inc a#,TSframe#
   endif
   yrotate object 1,a#

posx#=cos(270-a#) * 50 + object position x(1)
   posz#=sin(270-a#) * 50 + object position z(1)
   position camera posx#,object position y(1)+6,posz#
   point camera object position x(1),object position y(1),object position z(1)
   `store player's new position on xyz axis
   x# = object position x(1)
   y# = object position y(1)
   z# = object position z(1)

SlidingCollision(ox#,oy#,oz#,x#,y#,z#,10,1,2)

time=timer()

`update terrain(level)
   update terrain

sync
loop
end

function Button(x1,y1,WORDS$)
   Pressed=0
   x2=text width(WORDS$)
   y2=text height(WORDS$)
   if mousex()>x1 and mousex()<x1+x2
   if mousey()>y1-y2 and mousey()<y1+y2
      Pressed=1
   endif
   endif
   if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   if pressed=1
      Pressed=Mouseclick()
   else
      pressed = 0
   endif
   text x1,y1,WORDS$
endfunction Pressed

function SlidingCollision(x1#,y1#,z1#,x2#,y2#,z2#,Radius#,Dyn,Obj)

C = sc_SphereSlide(Obj,x1#,y1#,z1#,x2#,y2#,z2#,Radius#,0)

if C > 0
      cx# = sc_getCollisionSlideX()
      cy# = sc_getCollisionSlideY()
      cz# = sc_getCollisionSlideZ()

position object Dyn, cx#,cy#,cz#
   endif
endfunction

delete memblock 1

+ Code Snippet

sync on
sync rate 0

WORDS$="Start Game"
Pressed=0
x1=20
y1=55
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
Do
   if Button(20,55,"Start Game")=1 then Goto New_Game
   Button(20,95,"Options")`uncomplete
   if Button(20,135,"Exit")=1 then End

   sync
loop

New_Game:
cls
repeat
   text 240,220,"Press enter to begin";
   sync
until returnkey()=1

`make and position box(player for now)
make object cube 1,20
position object 1,0,5,0
`load terrain and skybox
load object "colltest.x",2
ghost object on 2
position object 2,0,-20,60
sc_SetupObject 2,0,0

movespeed = 75
turnspeed = 87.5
time=timer()

do
   `store player's old position on xyz axis
   ox# = object position x(1)
   oy# = object position y(1)
   oz# = object position z(1)

   gameTime=timer()-time
   MSframe#=gameTime*(movespeed/1000.0) `Move Speed frame
   TSframe#=gameTime*(turnspeed/1000.0) `Turn Speed frame

   if keystate(17)=1
      move object 1,MSframe#
   endif
   if keystate(31)=1
      move object 1,-MSframe#
   endif
   if keystate(30)=1
      dec a#,TSframe#
   endif
   if keystate(32)=1
      inc a#,TSframe#
   endif
   yrotate object 1,a#

   posx#=cos(270-a#) * 50 + object position x(1)
   posz#=sin(270-a#) * 50 + object position z(1)
   position camera posx#,object position y(1)+6,posz#
   point camera object position x(1),object position y(1),object position z(1)
   `store player's new position on xyz axis
   x# = object position x(1)
   y# = object position y(1)
   z# = object position z(1)

   SlidingCollision(ox#,oy#,oz#,x#,y#,z#,10,1,2)


   time=timer()

   `update terrain(level)
   update terrain

   sync
loop
end

function Button(x1,y1,WORDS$)
   Pressed=0
   x2=text width(WORDS$)
   y2=text height(WORDS$)
   if mousex()>x1 and mousex()<x1+x2
   if mousey()>y1-y2 and mousey()<y1+y2
      Pressed=1
   endif
   endif
   if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   if pressed=1
      Pressed=Mouseclick()
   else
      pressed = 0
   endif
   text x1,y1,WORDS$
endfunction Pressed

function SlidingCollision(x1#,y1#,z1#,x2#,y2#,z2#,Radius#,Dyn,Obj)

   C = sc_SphereSlide(Obj,x1#,y1#,z1#,x2#,y2#,z2#,Radius#,0)

   if C > 0
      cx# = sc_getCollisionSlideX()
      cy# = sc_getCollisionSlideY()
      cz# = sc_getCollisionSlideZ()

      position object Dyn, cx#,cy#,cz#
   endif
endfunction

delete memblock 1

EDIT:

I figured out what was wrong, i had GHOST OBJECT ON 2, which made everything blue and clear, I deleted it and everything is fine now, just working on gravity.
Thanks again Sixty Squares.

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 9th Mar 2009 18:35

Link

Hallo friends....there is an easy way to collide... (simulate collision) with the terrain or matrix.... and we just have to know the matrix or terrain heithe around us to decide to slide forcing the camera (player object )to go around or stop if not posible to go.

Have a look to this litle example.

Cheers.

[/code]
autocam off
sync on
ink rgb(0,100,0),1:box 0,0,50,50
ink rgb(0,200,0),1:box 10,10,40,40
ink rgb(0,130,0),0:set cursor 0,0
print
print "CHAFARI"
print "CHAFARI"
print "CHAFARI"
get image 1,0,0,50,50,1

`We make the terrain
`_______________________
make matrix 1,2000,2000,50,50
prepare matrix texture 1,1,1,1
randomize matrix 1,50
for i= 10 to 40
set matrix height 1,i+rnd(5),i+rnd(5),rnd(300)
next i
update matrix 1
`starting position
x#=300
z#=300
`________________________

do
//camera controls
if upkey()=1 then x#=newxvalue(x#,a#,0.3) : z#=newzvalue(z#,a#,0.3)
if downkey()=1 then x#=newxvalue(x#,a#,-0.3) : z#=newzvalue(z#,a#,-0.3)

if leftkey()=1 THEN x#=NEWXVALUE(x#,a#-90,0.3):z#=NEWZVALUE(z#,a#-90,0.3)
if rightkey()=1 THEN x#=NEWXVALUE(x#,a#-90,-0.3):z#=NEWZVALUE(z#,a#-90,-0.3)

a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
y#=get ground height(1,x#,z#)+5

`camera limits
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70
rotate camera cam#,a#,0

`we make sure the player walk around
`_____________________________________
xd#=get ground height(1,x#+30,z#)
xi#=get ground height(1,x#-30,z#)

zf#=get ground height(1,x#,z#+30)
zb#=get ground height(1,x#,z#-30)

if xd#>y#+20 then dec x#,0.3
if xi#>y#+20 then inc x#,0.3

if zf#>y#+20 then dec z#,0.3
if zb#>y#+20 then inc z#,0.3

position camera x#,y#,z#
`_____________________________________

sync
loop
[code]

oh my god

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Terrain collision

Attachments