Rollercoaster Collision - GameCreators Forum

Author

Message

Zombie 20

18

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 28th Mar 2007 09:21

Link

I wasn\'t sure if i should put this here or in the newcomers corner, but anyway.

I have a code setup for a rollercoaster and i need to set up texture and collision so i don\'t fall of the sides and that comes to my two questions. I was reading through some examples on darbasic and was wondering...

1.Can i use scrolling texture to make it an only has you need to see texture?

2.Should I use sliding collision or box collision for the walls, because i don\'t which is best.

and here is the code i have so far.

autocam off
sync on
sync rate 60
color backdrop 100
hide mouse

cls
text 0,10,\"Hello and welcome to my small rollercoaster demo.\"
wait key
text 0,30,\"What my team and I hope  to accomplish is to deliver a fun experience.\"
text 0,50,\"while at the same time showing off technical prowness.\"
wait key
text 0,70,\"Though we are begginners,we are willing to do anything to prove ourselves.\"
wait key
text 0,90,\"My name is Ian Lyons and this is my rollercoaster demo.\"
wait key
text 0,150,\"Latch, thank you for the code to get this project rolling. I owe you one.\"
wait key
cls

make matrix 1,4000/25,30000,1,25
make matrix 2,4000,4000/25,25,1
make matrix 3,30000/25,800,1,25
make matrix 4,50000/25,800,1,25
make matrix 5,10000/25,800,1,25
make matrix 6,50000/25,800,1,25
make matrix 7,40000/25,800,1,25
make matrix 8,40000/25,800,1,25
make matrix 9,20000/25,800,1,25

position matrix 3, 2000,50,-100
position matrix 4, 1600,50,-100
position matrix 5, 3500,50,-100
position matrix 6, 1000,50,-100
position matrix 7, 0,50,-100
position matrix 8, 0,50,-100
position matrix 9, 0,50,-100

position camera 4000,100,10

for z=2 to 25
   ang=ang+40
   for x=0 to 1
      y#=700*sin(ang)
      set matrix height 1,x,z,y#
   next x
next z

update matrix 1
update matrix 2

make object sphere 1,20
scale object 1, 100,100,-100
color object 1,400

do
   if upkey()=1 then move camera 10.0
   if downkey()=1 then move camera -10.0
   if leftkey()=1 then angley#=wrapvalue(angley#-2.0)
   if rightkey()=1 then angley#=wrapvalue(angley#+2.0)

xrotate camera 0.0
   yrotate camera angley#
   zrotate camera 0.0

rem get ground height for camera height
   camy#=get ground height(1,camera position x(),camera position z())
   position camera camera position x(),camy#+20,camera position z()
   text 0,0,str$(camy#)

sync

loop

+ Code Snippet

autocam off
sync on
sync rate 60
color backdrop 100
hide mouse


cls
text 0,10,\"Hello and welcome to my small rollercoaster demo.\"
wait key
text 0,30,\"What my team and I hope  to accomplish is to deliver a fun experience.\"
text 0,50,\"while at the same time showing off technical prowness.\"
wait key
text 0,70,\"Though we are begginners,we are willing to do anything to prove ourselves.\"
wait key
text 0,90,\"My name is Ian Lyons and this is my rollercoaster demo.\"
wait key
text 0,150,\"Latch, thank you for the code to get this project rolling. I owe you one.\"
wait key
cls



make matrix 1,4000/25,30000,1,25
make matrix 2,4000,4000/25,25,1
make matrix 3,30000/25,800,1,25
make matrix 4,50000/25,800,1,25
make matrix 5,10000/25,800,1,25
make matrix 6,50000/25,800,1,25
make matrix 7,40000/25,800,1,25
make matrix 8,40000/25,800,1,25
make matrix 9,20000/25,800,1,25

position matrix 3, 2000,50,-100
position matrix 4, 1600,50,-100
position matrix 5, 3500,50,-100
position matrix 6, 1000,50,-100
position matrix 7, 0,50,-100
position matrix 8, 0,50,-100
position matrix 9, 0,50,-100


position camera 4000,100,10

for z=2 to 25
   ang=ang+40
   for x=0 to 1
      y#=700*sin(ang)
      set matrix height 1,x,z,y#
   next x
next z

update matrix 1
update matrix 2

make object sphere 1,20
scale object 1, 100,100,-100
color object 1,400 


do
   if upkey()=1 then move camera 10.0
   if downkey()=1 then move camera -10.0
   if leftkey()=1 then angley#=wrapvalue(angley#-2.0)
   if rightkey()=1 then angley#=wrapvalue(angley#+2.0)

   xrotate camera 0.0
   yrotate camera angley#
   zrotate camera 0.0

   rem get ground height for camera height
   camy#=get ground height(1,camera position x(),camera position z())
   position camera camera position x(),camy#+20,camera position z()
   text 0,0,str$(camy#)

   sync

loop

Back to top

Profile PM Email

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 28th Mar 2007 12:00

Link

Hello,

Quote: "1.Can i use scrolling texture to make it an only has you need to see texture?"

Not exactly sure what you mean, but if you had a large object, you could scroll the texture as the camera moved so that what was in view was always the same texture portion. If you mean to give the appearance of animation, you could "swap" textures rapidly. I suppose with an evenly sized faced polygon you could scroll the textures in such a way that it would be "see as you need to" - and all the textures would be proportionate. On a matrix, however, I don't think you can scroll textures the same way you can on an object. You can reposition a matrix and then shift it to give the appearance of smooth texture scrolling.

Quote: "2.Should I use sliding collision or box collision for the walls, because i don\'t which is best."

Depending on how you create your walls, there could be many means of collision. One thing to keep in mind, if you have lot's of objects that are going to be checking for collision, it will slow your program down. Since you are using matrices for your track, you could fake the collision with less computational resources.

Collision is basically measuring distances and flagging when these distances have been met or exceded - usually in the form of an area, radius, or a projected ray around or through single points, collections of points, polygons, or collections of polygons. If you can find a way to measure a certain distance between your roller coaster car and the track, you could make your own collision routine. For example, if your track is 100 units wide, and if your car is 50 units wide, it has play of 25 units on each side if it is in the center of the track. The center of a 100 unit track is at 50, so the car could drift to a point at 50+25 on the right and 50-25 on the left. If your car drifts to these points or greater (or less) then you make your program react as if it is colliding with a wall.

Here's an example - now even though there are no walls, the program behaves as if the car is colliding (without actually using collision). The car will keep increasing speed, try to keep it centered with the left and right arrows. SCREEEEECH means it's hitting an imaginary wall:

sync on
sync rate 60
cls 0
autocam off

rem make a texture
ink RGB(255,255,0),0
line 5,5,5,15
get image 1,0,0,11,21

ink rgb(255,255,255),0

rem make a matrix
make matrix 1,100,300000,1,30
prepare matrix texture 1,1,1,1

rem make a cube that will be the car
make object cube 1,50
position object 1,50,25,0

do
   rem gradually increase speed
   speed#=speed#+.1
   move object 1,speed#

text 0,0,"Speed  "+str$(speed#)

rem get left and right control
   if leftkey()=1 then ang#=ang#-.5
   if rightkey()=1 then ang#=ang#+.5

rem store cube position in variables
   objx#=object position x(1)
   objy#=object position y(1)
   objz#=object position z(1)
   objangy#=object angle y(1)

rem create a drift so the car doesn't stay centered
   drift#=rnd(2)-1
   carang#=wrapvalue(objang#+ang#+drift#)

rem turn the car according to key input and drift
   yrotate object 1,carang#

rem camera follow object
   position camera 50,100,objz#-200

rem check to see if it hits the imagimnary walls
   if objx# < 50-25 then x# = 50-25
   if objx# > 50+25 then x# = 50+25
   if objx# < 50-25 or objx# > 50+25
      ink rgb(255,0,0),0
      center text screen width()/2,screen height()/2,"SCREEEEEEECHHHHH!!!!"
      position object 1,x#,objy#,objz#
   endif

ink rgb(255,255,255),0

rem has it reached the end of the track?
   if objz# >= 300000 then end

sync

loop

+ Code Snippet

sync on
sync rate 60
cls 0
autocam off

rem make a texture
ink RGB(255,255,0),0
line 5,5,5,15
get image 1,0,0,11,21

ink rgb(255,255,255),0

rem make a matrix
make matrix 1,100,300000,1,30
prepare matrix texture 1,1,1,1


rem make a cube that will be the car
make object cube 1,50
position object 1,50,25,0



do
   rem gradually increase speed
   speed#=speed#+.1
   move object 1,speed#

   text 0,0,"Speed  "+str$(speed#)

   rem get left and right control
   if leftkey()=1 then ang#=ang#-.5
   if rightkey()=1 then ang#=ang#+.5

   rem store cube position in variables
   objx#=object position x(1)
   objy#=object position y(1)
   objz#=object position z(1)
   objangy#=object angle y(1)

   rem create a drift so the car doesn't stay centered
   drift#=rnd(2)-1
   carang#=wrapvalue(objang#+ang#+drift#)

   rem turn the car according to key input and drift
   yrotate object 1,carang#

   rem camera follow object
   position camera 50,100,objz#-200

   rem check to see if it hits the imagimnary walls
   if objx# < 50-25 then x# = 50-25
   if objx# > 50+25 then x# = 50+25
   if objx# < 50-25 or objx# > 50+25
      ink rgb(255,0,0),0
      center text screen width()/2,screen height()/2,"SCREEEEEEECHHHHH!!!!"
      position object 1,x#,objy#,objz#
   endif

   ink rgb(255,255,255),0

   rem has it reached the end of the track?
   if objz# >= 300000 then end


   sync

loop

Enjoy your day.

Back to top

Profile PM

Zombie 20

18

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 28th Mar 2007 16:54 Edited at: 28th Mar 2007 21:07

Link

Wow, thank you very much for such a detailed description, i appreciate it. Have a nice day.

Latch, in the rollercoaster code you helped me with, i'm using a camera to get around for the first person view. My question is will i be able to apply this collision even though i'm using a camera?

Back to top

Profile PM Email

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 29th Mar 2007 03:14

Link

The same principals apply - in fact, you could still use a cube for your collision detection. All you have to do is position it at the camera, and hide it! Here's the same code except I'm putting the camera at the cube's position and hiding it. The camera is shaky because of how I'm calculating the drift. No big deal, that can be changed or eliminated but it makes it look like the track is uneven and dangerous - or maybe it just gives the viewer a headache!

sync on
sync rate 60
cls 0
autocam off
hide mouse

rem make a texture
ink RGB(255,255,0),0
line 5,5,5,15
get image 1,0,0,11,21

ink rgb(255,255,255),0

rem make a matrix
make matrix 1,100,300000,1,30
prepare matrix texture 1,1,1,1

rem make a cube that will be the car
make object cube 1,50
position object 1,50,25,0

rem hide the cube
hide object 1

do
   rem gradually increase speed
   speed#=speed#+.1
   move object 1,speed#

text 0,0,"Speed  "+str$(speed#)

rem get left and right control
   if leftkey()=1 then ang#=ang#-.5
   if rightkey()=1 then ang#=ang#+.5

rem store cube position in variables
   objx#=object position x(1)
   objy#=object position y(1)
   objz#=object position z(1)
   objangy#=object angle y(1)

rem create a drift so the car doesn't stay centered
   drift#=rnd(2)-1
   carang#=wrapvalue(objang#+ang#+drift#)

rem turn the car according to key input and drift
   rem turn the camera also
   yrotate object 1,carang#
   yrotate camera wrapvalue(ang#)

rem instead of having the camera follow the object - put it at the same exact location
   position camera objx#,objy#,objz#

rem check to see if it hits the imagimnary walls
   if objx# < 50-25 then x# = 50-25
   if objx# > 50+25 then x# = 50+25
   if objx# < 50-25 or objx# > 50+25
      ink rgb(255,0,0),0
      center text screen width()/2,screen height()/2,"SCREEEEEEECHHHHH!!!!"
      position object 1,x#,objy#,objz#
   endif

ink rgb(255,255,255),0

rem has it reached the end of the track?
   if objz# >= 300000 then end

sync

loop

+ Code Snippet

sync on
sync rate 60
cls 0
autocam off
hide mouse

rem make a texture
ink RGB(255,255,0),0
line 5,5,5,15
get image 1,0,0,11,21

ink rgb(255,255,255),0

rem make a matrix
make matrix 1,100,300000,1,30
prepare matrix texture 1,1,1,1

rem make a cube that will be the car
make object cube 1,50
position object 1,50,25,0

rem hide the cube
hide object 1



do
   rem gradually increase speed
   speed#=speed#+.1
   move object 1,speed#

   text 0,0,"Speed  "+str$(speed#)

   rem get left and right control
   if leftkey()=1 then ang#=ang#-.5
   if rightkey()=1 then ang#=ang#+.5

   rem store cube position in variables
   objx#=object position x(1)
   objy#=object position y(1)
   objz#=object position z(1)
   objangy#=object angle y(1)

   rem create a drift so the car doesn't stay centered
   drift#=rnd(2)-1
   carang#=wrapvalue(objang#+ang#+drift#)

   rem turn the car according to key input and drift
   rem turn the camera also
   yrotate object 1,carang#
   yrotate camera wrapvalue(ang#)

   rem instead of having the camera follow the object - put it at the same exact location
   position camera objx#,objy#,objz#

   rem check to see if it hits the imagimnary walls
   if objx# < 50-25 then x# = 50-25
   if objx# > 50+25 then x# = 50+25
   if objx# < 50-25 or objx# > 50+25
      ink rgb(255,0,0),0
      center text screen width()/2,screen height()/2,"SCREEEEEEECHHHHH!!!!"
      position object 1,x#,objy#,objz#
   endif

   ink rgb(255,255,255),0

   rem has it reached the end of the track?
   if objz# >= 300000 then end


   sync

loop

Enjoy your day.

Back to top

Profile PM

Zombie 20

18

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 29th Mar 2007 03:16

Link

wow dude, is there anything you can't do? You rock!

Back to top

Profile PM Email

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 29th Mar 2007 03:23

Link

Thanks for the praise!

But I'm still learning just like everybody else - and there's always new things to learn! I just hope my info is helpful.

Enjoy your day.

Back to top

Profile PM

Zombie 20

18

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 29th Mar 2007 03:24

Link

absolutely, you're giving me a lot of cool code, this is great, i hope i can return the favor one day.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Rollercoaster Collision