Collision and object help - GameCreators Forum

Author

Message

Wu dynasty

11

Years of Service

User Offline

Joined: 7th Feb 2013

Location: In a democracy

Posted: 12th Feb 2013 17:27

Link

I am working on a school project and need help with my game. I would like to make a volcanoe in the middle of my game, texture it. I would also like to make the collision for the volcanoe and the walls. Any help would be gladly accepted. Serious answers only.
thanks,
Nathan

sync on : sync rate 0

REM WALLS
REM NORTH WALL
MAKE OBJECT BOX 2,2000,1000,10
ROTATE OBJECT 2,0,0,0
POSITION OBJECT 2,0,500,1005
TEXTURE OBJECT 2,2

rem EAST WALL
MAKE OBJECT BOX 3,2000,1000,10
ROTATE OBJECT 3,0,90,0
POSITION OBJECT 3,1005,500,0
TEXTURE OBJECT 3,2

REM SOUTH WALL
MAKE OBJECT BOX 4,2000,1000,10
ROTATE OBJECT 4,0,180,0
POSITION OBJECT 4,0,500,-1005
TEXTURE OBJECT 4,2

REM WEST WALL
MAKE OBJECT BOX 5,2000,1000,10
ROTATE OBJECT 5,0,270,0
POSITION OBJECT 5,-1005,500,0
TEXTURE OBJECT 5,2

Rem Floor
make object box 6,2000,1000,2000 : position object 6,0,-500,0 : color object 6,RGB(255,255,0)
Make object collision box 6,-1000,-500,-1000,1000,500,1000,0
texture object 6,1 : scale object texture 6,50,50

load object "e:\Nathan\Doomsday Rocks\objects\MILVEH14.x",1

s#=1
a#=1
dist#=-20 : ` distance camera sohuld be behind player
height#=5 : ` height above player that camera should be
smooth=10 : ` smoothing value

do
if upkey() then move object 1,-s#
if downkey() then move object 1,s#
if leftkey() then yrotate object 1,wrapvalue(object angle y(1)-a#)
if rightkey() then yrotate object 1,wrapvalue(object angle y(1)+a#)

set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),dist#,height#,smooth,0

sync
loop
`COLLISION
`Check Player Character
`Wall Collision
s# = 10
if get static collision hit(P1X#-s#,P1Y#-s#,P1Z#-s#, P1X#+s#,P1Y#+s#,P1Z#+s#, newP1X#-s#,newP1Y#-s#,newP1Z#-s#, newP1X#+s#,newP1Y#+s#,newP1Z#+s#) = 1
dec newP1X#, get static collision x()
dec newP1Y#, get static collision y()
dec newP1Z#, get static collision z()
position object 1,newP1X#,newP1Y#,newP1Z#
endif

Back to top

Profile PM

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 13th Feb 2013 08:13

Link

you have a DBPro?

this sample-code

rem SlidingCollision
sync on : sync rate 60

rem create floor
make object box 1,400,10,400 : position object 1,0,-5,0

rem create walls
make object box 2,400,100,10 : position object 2,0,50,-200
make object box 3,400,100,10 : position object 3,0,50, 200
make object box 4,10,100,400 : position object 4,-200,50,0
make object box 5,10,100,400 : position object 5, 200,50,0

rem Set floor and walls to box collision for rectangle roamer
make object collision box 1,-200,-5,-200,200,5,200,0
make object collision box 2,-200,-50,-5,200,50,5,0
make object collision box 3,-200,-50,-5,200,50,5,0
make object collision box 4,-5,-50,-200,5,50,200,0
make object collision box 5,-5,-50,-200,5,50,200,0

rem rectangle roamer for box collision
make object box 41,40,20,40 : position object 41,95,31,50
color object 41, 0xff0000
make object collision box 41,-20,-10,-20,20,10,20,0

position camera 0,500,-300
point camera 0,0,0

do
  if upkey()=1 then move object 41,2
  if downkey()=1 then move object 41,-2
  if leftkey()=1 then yrotate object 41,wrapvalue(object angle y(41)-3)
  if rightkey()=1 then yrotate object 41,wrapvalue(object angle y(41)+3)

hit=object collision(41,0)
   if hit>0
      ax#=object position x(41)-get object collision x()
      ay#=object position y(41)-get object collision y()
      az#=object position z(41)-get object collision z()
      position object 41,ax#,ay#,az#
   endif

sync
loop

+ Code Snippet


rem SlidingCollision
sync on : sync rate 60

rem create floor
make object box 1,400,10,400 : position object 1,0,-5,0

rem create walls
make object box 2,400,100,10 : position object 2,0,50,-200
make object box 3,400,100,10 : position object 3,0,50, 200
make object box 4,10,100,400 : position object 4,-200,50,0
make object box 5,10,100,400 : position object 5, 200,50,0

rem Set floor and walls to box collision for rectangle roamer
make object collision box 1,-200,-5,-200,200,5,200,0
make object collision box 2,-200,-50,-5,200,50,5,0
make object collision box 3,-200,-50,-5,200,50,5,0
make object collision box 4,-5,-50,-200,5,50,200,0
make object collision box 5,-5,-50,-200,5,50,200,0

rem rectangle roamer for box collision
make object box 41,40,20,40 : position object 41,95,31,50
color object 41, 0xff0000
make object collision box 41,-20,-10,-20,20,10,20,0

position camera 0,500,-300
point camera 0,0,0

do
  if upkey()=1 then move object 41,2
  if downkey()=1 then move object 41,-2
  if leftkey()=1 then yrotate object 41,wrapvalue(object angle y(41)-3)
  if rightkey()=1 then yrotate object 41,wrapvalue(object angle y(41)+3)

   hit=object collision(41,0)
   if hit>0
      ax#=object position x(41)-get object collision x()
      ay#=object position y(41)-get object collision y()
      az#=object position z(41)-get object collision z()
      position object 41,ax#,ay#,az#
   endif

   sync
loop

Back to top

Profile PM

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 13th Feb 2013 17:25

Link

You could probably generate a decent volcano (and landscape) with Advanced Terrain, which is included with DBPro.

Alternately, you could model a volcano by hand with a free program like Sculptris.

D.D.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Collision and object help