Interesting predicament... - GameCreators Forum

Author

Message

Yodaman Jer

User Banned

Posted: 2nd Jan 2009 23:04

Hey all!

It's been a while since I've done any form of programming. Lately I've been goofing off over in the Geek Culture threads and over there someone recently started a thread about making games in January and completing them. At first I didn't want to enter ( I think I missed the deadline anyway) but now I really am motivated to get this project of mine done. For now it's called Maze-O-Mania but I might change it later. Anyway, whilst making it and testing it out, I came across an interesting problem.

The object that the player object bumps into to go the next level is object #15 for now. I have it set up like this to work:

+ Code Snippet

  `make end to game
  if object collision(1,15) then gosub WIN1

The thing is, when the player object (a sphere that will have a marble texture on it later) bumps into it, it goes right THROUGH it, even though it's programmed to go to WIN1, delete all of the objects and lights, and move on to level 2 (which hasn't even been constructed yet, but will be once I get this sorted out).

I have no idea what's causing this. It just goes through object 15. Does anyone have any ideas as to what is causing this?

"People still have 1024x768?" -Jeku

Back to top

Profile

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 2nd Jan 2009 23:57

Link

DBC collision can give you problems.

Make sure when you create your objects you do 2 things if you want collision:

1. Set Object Collision On <object num>
2. Set Object Collision To boxes,spheres or polygons or Make object collision box etc.

If you use Make object Collision Box, collision will only be detected with other objects that have used Make Object Collision Box or Make static object collision box.

If you Scale the object, after scaling:

1. Set Object Collision Off <obj>
2. Set Object Collision On <obj>
3. Set Object collision to whatever

Using Global Collision on and Off is unpredictable. It's better to set individual objects' collision status.

Enjoy your day.

Back to top

Profile PM

Yodaman Jer

User Banned

Posted: 3rd Jan 2009 00:09 Edited at: 3rd Jan 2009 00:09

Link

The thing is I've done this before, without making the "tele-porting" object use collision at all. For example:

+ Code Snippet

Make object sphere 1, 2,2

'Make teleporter object to go position player somewhere else

Make object box 2, 3,3,3

'In main program loop

If object collision(1,2) then position object 1, 0,35,0

And I thought I could change it around so that when the player bumps into this object, you win the first level and go to level 2. Maybe this isn't possible this way? But if that's the case how come I can get the game over screen to pop-up?

You know what, here's my source code, it might make things clearer:

`set display mode and hide mouse
set display mode 800,600,32 : hide mouse

`set up menu block
ink rgb(0,50,250),0
cls : do
   set text font "Arial Italic"
   set text size 30 : set text to bold
   center text 420,80,"MAZE-O-MANIA!"
   center text 420,180,"LEVEL ONE"
   center text 420,280,"PRESS ENTER."
  if returnkey()=1
  gosub L1
 endif
loop

`+++++++++LEVEL ONE INFORMATION++++++++
L1:
cls
`set sync rate
sync on : sync rate 0 : backdrop on
`set ambient light
set ambient light 55 : color ambient light rgb(0,90,55)
make light 1
color light 1,rgb(0,200,255)
set point light 1,0,0,0
make light 2
color light 2,rgb(0,90,200)
set spot light 2,90,400
`set fog up
fog on : fog distance 80 : fog color rgb(0,0,0)

`set up variables
lives = 3 : coins = 0
`load sounds
load sound "SoundsAMBER.mp3",1 : loop sound 1
load sound "Soundsscream1.wav",3
load sound "Soundsvoidhum.wav",2 : loop sound 2
`load textures
load image "Textures-Objectsbrick_floor1.bmp",1
`load character
make object sphere 1,1 : color object 1,rgb(200,200,0) : position object 1,0,10,0

`make borders for maze
make object box 2,350,20,2 : position object 2, 0,0,175 : set object 2,1,1,1
make object box 3,350,20,2 : position object 3, 0,0,-175 : set object 3,1,1,1
make object box 4,2,20,350 : position object 4, 175,0,0 : set object 4,1,1,1
make object box 5,2,20,350 : position object 5, -175,0,0 : set object 5,1,1,1
`make floor with gaps
make object box 6,12,2,150 : position object 6, 0,2,0 : texture object 6,1 : scale object texture 6,15,3 : set object texture 6,0,1 : set object 6,1,1,1
   objx#=object position x(6)
   objy#=object position y(6)
   objz#=object position z(6)
   objsx#=object size x(6)/2.0
   objsy#=object size y(6)/2.0
   objsz#=object size z(6)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 7,70,2,12 : position object 7, -50,0,0 : texture object 7,1 : scale object texture 7,3,15  : set object texture 7,0,1 : set object 7,1,1,1
   objx#=object position x(7)
   objy#=object position y(7)
   objz#=object position z(7)
   objsx#=object size x(7)/2.0
   objsy#=object size y(7)/2.0
   objsz#=object size z(7)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 8,70,2,12 : position object 8, 50,0,0 : texture object 8,1 : scale object texture 8,3,15 : set object texture 8,0,1 : set object 8,1,1,1
   objx#=object position x(8)
   objy#=object position y(8)
   objz#=object position z(8)
   objsx#=object size x(8)/2.0
   objsy#=object size y(8)/2.0
   objsz#=object size z(8)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 9,12,2,40 : position object 9, 50,0,26 : texture object 9,1 : scale object texture 9,15,3 : set object texture 9,0,1 : set object 9,1,1,1
   objx#=object position x(9)
   objy#=object position y(9)
   objz#=object position z(9)
   objsx#=object size x(9)/2.0
   objsy#=object size y(9)/2.0
   objsz#=object size z(9)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 10,40,2,12 : position object 10,64,0,52 : texture object 10,1 : scale object texture 10,3,15  : set object texture 10,0,1 : set object 10,1,1,1
   objx#=object position x(10)
   objy#=object position y(10)
   objz#=object position z(10)
   objsx#=object size x(10)/2.0
   objsy#=object size y(10)/2.0
   objsz#=object size z(10)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 11,12,2,40 : position object 11,90,0,66 : texture object 11,1 : scale object texture 11,15,3  : set object texture 11,0,1 : set object 11,1,1,1
   objx#=object position x(11)
   objy#=object position y(11)
   objz#=object position z(11)
   objsx#=object size x(11)/2.0
   objsy#=object size y(11)/2.0
   objsz#=object size z(11)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 12,12,2,60 : position object 12,-91,0,0 : texture object 12,1 : scale object texture 12,15,3 : set object texture 12,0,1 : set object 12,1,1,1
   objx#=object position x(12)
   objy#=object position y(12)
   objz#=object position z(12)
   objsx#=object size x(12)/2.0
   objsy#=object size y(12)/2.0
   objsz#=object size z(12)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 13,12,2,70 : position object 13,90,0,-29 : texture object 13,1 : scale object texture 13,15,3 : set object texture 13,0,1 : set object 13,1,1,1
   objx#=object position x(13)
   objy#=object position y(13)
   objz#=object position z(13)
   objsx#=object size x(13)/2.0
   objsy#=object size y(13)/2.0
   objsz#=object size z(13)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 15, 4,4,4 : position object 15,90,3,-60

`swamp gas
make object plain 14,1000,1000 : xrotate object 14,90 : position object 14,0,-20,0

`main program loop
do
  `print life and health information
  ink rgb(0,50,250),0 : set cursor 0,0 : set text size 25
  text 20,45,"LIVES "+str$(lives)
  text 665,45,"COINS "+str$(coins)
  text 20,75,"FPS:"+str$(screen fps() )

`death from mist
   if object collision(1,14) then lives = lives-1 : play sound 3: sleep 1000 : position object 1,0,10,0
  `make end to game
  if object collision(1,15) then gosub WIN1
  `make sure 15 is limit
  if coins => 15 then coins = coins -15
  `store old positions
   oldposx#=object position x(1) : oldposy#=object position y(1) : oldposz#=object position z(1)
    `make sure lives doesn't go beneath 0
  if lives =< 0
    lives =0
    stop sound 1
    delete light 1
    delete light 2

for object = 1 to 15
   delete object object
   next object
    gosub GOL1
  endif
  `controls
  if upkey()=1 then move object 1,0.25
  if downkey()=1 then move object 1,-0.25
  if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2)
  if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2)
  if spacekey()=1 and playergrav#=0 then playergrav#=0.25
  if inkey$()="p" then wait 200 : stop sound 1: suspend for key : loop sound 1
  if inkey$()="t" then position camera 0,55,0 : point camera 0,-180,0
  ` get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `ensure camera stays out of static boxes
  if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
    dec posx#,get static collision x()
    dec posy#,get static collision y()
    dec posz#,get static collision z()
    if get static collision y()<>0.0 then playergrav#=0.0
  endif
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

GOL1:
cls
`load game over sound
load sound "Soundsvoidhum.wav",4 : loop sound 4
do
set text to bold
   text 320,50,"  GAME OVER"
   text 320,90,"PRESS ENTER."
   if returnkey()=1
  gosub L1
 endif
loop

`Make winning screen
WIN1:
cls

for object2 = 1 to 15
delete object object2
next object2

text 320,40,"YOU WIN!!"

wait key

end

+ Code Snippet

`set display mode and hide mouse
set display mode 800,600,32 : hide mouse

`set up menu block
ink rgb(0,50,250),0
cls : do
   set text font "Arial Italic"
   set text size 30 : set text to bold
   center text 420,80,"MAZE-O-MANIA!"
   center text 420,180,"LEVEL ONE"
   center text 420,280,"PRESS ENTER."
  if returnkey()=1
  gosub L1
 endif
loop



`+++++++++LEVEL ONE INFORMATION++++++++
L1:
cls
`set sync rate
sync on : sync rate 0 : backdrop on
`set ambient light
set ambient light 55 : color ambient light rgb(0,90,55)
make light 1
color light 1,rgb(0,200,255)
set point light 1,0,0,0
make light 2
color light 2,rgb(0,90,200)
set spot light 2,90,400
`set fog up
fog on : fog distance 80 : fog color rgb(0,0,0)

`set up variables
lives = 3 : coins = 0
`load sounds
load sound "SoundsAMBER.mp3",1 : loop sound 1
load sound "Soundsscream1.wav",3
load sound "Soundsvoidhum.wav",2 : loop sound 2
`load textures
load image "Textures-Objectsbrick_floor1.bmp",1
`load character
make object sphere 1,1 : color object 1,rgb(200,200,0) : position object 1,0,10,0

`make borders for maze
make object box 2,350,20,2 : position object 2, 0,0,175 : set object 2,1,1,1
make object box 3,350,20,2 : position object 3, 0,0,-175 : set object 3,1,1,1
make object box 4,2,20,350 : position object 4, 175,0,0 : set object 4,1,1,1
make object box 5,2,20,350 : position object 5, -175,0,0 : set object 5,1,1,1
`make floor with gaps
make object box 6,12,2,150 : position object 6, 0,2,0 : texture object 6,1 : scale object texture 6,15,3 : set object texture 6,0,1 : set object 6,1,1,1
   objx#=object position x(6)
   objy#=object position y(6)
   objz#=object position z(6)
   objsx#=object size x(6)/2.0
   objsy#=object size y(6)/2.0
   objsz#=object size z(6)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 7,70,2,12 : position object 7, -50,0,0 : texture object 7,1 : scale object texture 7,3,15  : set object texture 7,0,1 : set object 7,1,1,1
   objx#=object position x(7)
   objy#=object position y(7)
   objz#=object position z(7)
   objsx#=object size x(7)/2.0
   objsy#=object size y(7)/2.0
   objsz#=object size z(7)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 8,70,2,12 : position object 8, 50,0,0 : texture object 8,1 : scale object texture 8,3,15 : set object texture 8,0,1 : set object 8,1,1,1
   objx#=object position x(8)
   objy#=object position y(8)
   objz#=object position z(8)
   objsx#=object size x(8)/2.0
   objsy#=object size y(8)/2.0
   objsz#=object size z(8)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 9,12,2,40 : position object 9, 50,0,26 : texture object 9,1 : scale object texture 9,15,3 : set object texture 9,0,1 : set object 9,1,1,1
   objx#=object position x(9)
   objy#=object position y(9)
   objz#=object position z(9)
   objsx#=object size x(9)/2.0
   objsy#=object size y(9)/2.0
   objsz#=object size z(9)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 10,40,2,12 : position object 10,64,0,52 : texture object 10,1 : scale object texture 10,3,15  : set object texture 10,0,1 : set object 10,1,1,1
   objx#=object position x(10)
   objy#=object position y(10)
   objz#=object position z(10)
   objsx#=object size x(10)/2.0
   objsy#=object size y(10)/2.0
   objsz#=object size z(10)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 11,12,2,40 : position object 11,90,0,66 : texture object 11,1 : scale object texture 11,15,3  : set object texture 11,0,1 : set object 11,1,1,1
   objx#=object position x(11)
   objy#=object position y(11)
   objz#=object position z(11)
   objsx#=object size x(11)/2.0
   objsy#=object size y(11)/2.0
   objsz#=object size z(11)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 12,12,2,60 : position object 12,-91,0,0 : texture object 12,1 : scale object texture 12,15,3 : set object texture 12,0,1 : set object 12,1,1,1
   objx#=object position x(12)
   objy#=object position y(12)
   objz#=object position z(12)
   objsx#=object size x(12)/2.0
   objsy#=object size y(12)/2.0
   objsz#=object size z(12)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 13,12,2,70 : position object 13,90,0,-29 : texture object 13,1 : scale object texture 13,15,3 : set object texture 13,0,1 : set object 13,1,1,1
   objx#=object position x(13)
   objy#=object position y(13)
   objz#=object position z(13)
   objsx#=object size x(13)/2.0
   objsy#=object size y(13)/2.0
   objsz#=object size z(13)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 15, 4,4,4 : position object 15,90,3,-60


   `swamp gas
make object plain 14,1000,1000 : xrotate object 14,90 : position object 14,0,-20,0

`main program loop
do
  `print life and health information
  ink rgb(0,50,250),0 : set cursor 0,0 : set text size 25
  text 20,45,"LIVES "+str$(lives)
  text 665,45,"COINS "+str$(coins)
  text 20,75,"FPS:"+str$(screen fps() )



  `death from mist
   if object collision(1,14) then lives = lives-1 : play sound 3: sleep 1000 : position object 1,0,10,0
  `make end to game
  if object collision(1,15) then gosub WIN1
  `make sure 15 is limit
  if coins => 15 then coins = coins -15
  `store old positions
   oldposx#=object position x(1) : oldposy#=object position y(1) : oldposz#=object position z(1)
    `make sure lives doesn't go beneath 0
  if lives =< 0
    lives =0
    stop sound 1
    delete light 1
    delete light 2

   for object = 1 to 15
   delete object object
   next object
    gosub GOL1
  endif
  `controls
  if upkey()=1 then move object 1,0.25
  if downkey()=1 then move object 1,-0.25
  if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2)
  if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2)
  if spacekey()=1 and playergrav#=0 then playergrav#=0.25
  if inkey$()="p" then wait 200 : stop sound 1: suspend for key : loop sound 1
  if inkey$()="t" then position camera 0,55,0 : point camera 0,-180,0
  ` get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `ensure camera stays out of static boxes
  if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
    dec posx#,get static collision x()
    dec posy#,get static collision y()
    dec posz#,get static collision z()
    if get static collision y()<>0.0 then playergrav#=0.0
  endif
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

GOL1:
cls
`load game over sound
load sound "Soundsvoidhum.wav",4 : loop sound 4
do
set text to bold
   text 320,50,"  GAME OVER"
   text 320,90,"PRESS ENTER."
   if returnkey()=1
  gosub L1
 endif
loop

`Make winning screen
WIN1:
cls

for object2 = 1 to 15
delete object object2
next object2

text 320,40,"YOU WIN!!"

wait key

end

"People still have 1024x768?" -Jeku

Back to top

Profile

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 3rd Jan 2009 00:48

Link

Did you try out any of the above suggestions? From looking at the code (though I just scanned it quickly) it seems that you are trying to detect collision with a static collision box. Only an object that has used Make Object Collision Box can have collision detected between it and a static collision box.

After:

+ Code Snippet

make object sphere 1,1 : color object 1,rgb(200,200,0) : position object 1,0,10,0

try putting:

+ Code Snippet

set object collision on 1
make object collision box 1,-.5,-.5,-.5,.5,.5,.5,0

Here's your code with that addition. I also changed the sync rate to 60 because it was too fast at 0. I also removed references to media so I could run it.

`set display mode and hide mouse
set display mode 800,600,32 : hide mouse

`set up menu block
ink rgb(0,50,250),0
cls : do
   set text font "Arial Italic"
   set text size 30 : set text to bold
   center text 420,80,"MAZE-O-MANIA!"
   center text 420,180,"LEVEL ONE"
   center text 420,280,"PRESS ENTER."
  if returnkey()=1
  gosub L1
 endif
loop

`+++++++++LEVEL ONE INFORMATION++++++++
L1:
cls
`set sync rate
sync on : sync rate 60 : backdrop on
`set ambient light
set ambient light 55 : color ambient light rgb(0,90,55)
make light 1
color light 1,rgb(0,200,255)
set point light 1,0,0,0
make light 2
color light 2,rgb(0,90,200)
set spot light 2,90,400
`set fog up
fog on : fog distance 80 : fog color rgb(0,0,0)

`set up variables
lives = 3 : coins = 0
`load sounds
`load sound "SoundsAMBER.mp3",1 : loop sound 1
`load sound "Soundsscream1.wav",3
`load sound "Soundsvoidhum.wav",2 : loop sound 2
`load textures
`load image "Textures-Objectsbrick_floor1.bmp",1
`load character
make object sphere 1,1 : color object 1,rgb(200,200,0) : position object 1,0,10,0
set object collision on 1
make object collision box 1,-.5,-.5,-.5,.5,.5,.5,0

`make borders for maze
make object box 2,350,20,2 : position object 2, 0,0,175 : set object 2,1,1,1
make object box 3,350,20,2 : position object 3, 0,0,-175 : set object 3,1,1,1
make object box 4,2,20,350 : position object 4, 175,0,0 : set object 4,1,1,1
make object box 5,2,20,350 : position object 5, -175,0,0 : set object 5,1,1,1
`make floor with gaps
make object box 6,12,2,150 : position object 6, 0,2,0 : scale object texture 6,15,3 : set object texture 6,0,1 : set object 6,1,1,1
   objx#=object position x(6)
   objy#=object position y(6)
   objz#=object position z(6)
   objsx#=object size x(6)/2.0
   objsy#=object size y(6)/2.0
   objsz#=object size z(6)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 7,70,2,12 : position object 7, -50,0,0 : scale object texture 7,3,15  : set object texture 7,0,1 : set object 7,1,1,1
   objx#=object position x(7)
   objy#=object position y(7)
   objz#=object position z(7)
   objsx#=object size x(7)/2.0
   objsy#=object size y(7)/2.0
   objsz#=object size z(7)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 8,70,2,12 : position object 8, 50,0,0 : scale object texture 8,3,15 : set object texture 8,0,1 : set object 8,1,1,1
   objx#=object position x(8)
   objy#=object position y(8)
   objz#=object position z(8)
   objsx#=object size x(8)/2.0
   objsy#=object size y(8)/2.0
   objsz#=object size z(8)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 9,12,2,40 : position object 9, 50,0,26 :  scale object texture 9,15,3 : set object texture 9,0,1 : set object 9,1,1,1
   objx#=object position x(9)
   objy#=object position y(9)
   objz#=object position z(9)
   objsx#=object size x(9)/2.0
   objsy#=object size y(9)/2.0
   objsz#=object size z(9)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 10,40,2,12 : position object 10,64,0,52 :  scale object texture 10,3,15  : set object texture 10,0,1 : set object 10,1,1,1
   objx#=object position x(10)
   objy#=object position y(10)
   objz#=object position z(10)
   objsx#=object size x(10)/2.0
   objsy#=object size y(10)/2.0
   objsz#=object size z(10)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 11,12,2,40 : position object 11,90,0,66 :  scale object texture 11,15,3  : set object texture 11,0,1 : set object 11,1,1,1
   objx#=object position x(11)
   objy#=object position y(11)
   objz#=object position z(11)
   objsx#=object size x(11)/2.0
   objsy#=object size y(11)/2.0
   objsz#=object size z(11)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 12,12,2,60 : position object 12,-91,0,0 :  scale object texture 12,15,3 : set object texture 12,0,1 : set object 12,1,1,1
   objx#=object position x(12)
   objy#=object position y(12)
   objz#=object position z(12)
   objsx#=object size x(12)/2.0
   objsy#=object size y(12)/2.0
   objsz#=object size z(12)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 13,12,2,70 : position object 13,90,0,-29 :  scale object texture 13,15,3 : set object texture 13,0,1 : set object 13,1,1,1
   objx#=object position x(13)
   objy#=object position y(13)
   objz#=object position z(13)
   objsx#=object size x(13)/2.0
   objsy#=object size y(13)/2.0
   objsz#=object size z(13)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 15, 4,4,4 : position object 15,90,3,-60

`swamp gas
make object plain 14,1000,1000 : xrotate object 14,90 : position object 14,0,-20,0

`main program loop
do
  `print life and health information
  ink rgb(0,50,250),0 : set cursor 0,0 : set text size 25
  text 20,45,"LIVES "+str$(lives)
  text 665,45,"COINS "+str$(coins)
  text 20,75,"FPS:"+str$(screen fps() )

`death from mist
   if object collision(1,14) then lives = lives-1 : play sound 3: sleep 1000 : position object 1,0,10,0
  `make end to game
  if object collision(1,15) then gosub WIN1
  `make sure 15 is limit
  if coins => 15 then coins = coins -15
  `store old positions
   oldposx#=object position x(1) : oldposy#=object position y(1) : oldposz#=object position z(1)
    `make sure lives doesn't go beneath 0
  if lives =< 0
    lives =0
    stop sound 1
    delete light 1
    delete light 2

for object = 1 to 15
   delete object object
   next object
    gosub GOL1
  endif
  `controls
  if upkey()=1 then move object 1,0.25
  if downkey()=1 then move object 1,-0.25
  if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2)
  if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2)
  if spacekey()=1 and playergrav#=0 then playergrav#=0.25
  if inkey$()="p" then wait 200 : stop sound 1: suspend for key : loop sound 1
  if inkey$()="t" then position camera 0,55,0 : point camera 0,-180,0
  ` get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `ensure camera stays out of static boxes
  if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
    dec posx#,get static collision x()
    dec posy#,get static collision y()
    dec posz#,get static collision z()
    if get static collision y()<>0.0 then playergrav#=0.0
  endif
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

GOL1:
cls
`load game over sound
`load sound "Soundsvoidhum.wav",4 : loop sound 4
do
set text to bold
   text 320,50,"  GAME OVER"
   text 320,90,"PRESS ENTER."
   if returnkey()=1
  gosub L1
 endif
loop

`Make winning screen
WIN1:
cls

for object2 = 1 to 15
delete object object2
next object2

repeat
   text 320,40,"YOU WIN!!"
   text 320,100,"press enter"
   sync
until returnkey()=1

end

+ Code Snippet

`set display mode and hide mouse
set display mode 800,600,32 : hide mouse

`set up menu block
ink rgb(0,50,250),0
cls : do
   set text font "Arial Italic"
   set text size 30 : set text to bold
   center text 420,80,"MAZE-O-MANIA!"
   center text 420,180,"LEVEL ONE"
   center text 420,280,"PRESS ENTER."
  if returnkey()=1
  gosub L1
 endif
loop



`+++++++++LEVEL ONE INFORMATION++++++++
L1:
cls
`set sync rate
sync on : sync rate 60 : backdrop on
`set ambient light
set ambient light 55 : color ambient light rgb(0,90,55)
make light 1
color light 1,rgb(0,200,255)
set point light 1,0,0,0
make light 2
color light 2,rgb(0,90,200)
set spot light 2,90,400
`set fog up
fog on : fog distance 80 : fog color rgb(0,0,0)

`set up variables
lives = 3 : coins = 0
`load sounds
`load sound "SoundsAMBER.mp3",1 : loop sound 1
`load sound "Soundsscream1.wav",3
`load sound "Soundsvoidhum.wav",2 : loop sound 2
`load textures
`load image "Textures-Objectsbrick_floor1.bmp",1
`load character
make object sphere 1,1 : color object 1,rgb(200,200,0) : position object 1,0,10,0
set object collision on 1
make object collision box 1,-.5,-.5,-.5,.5,.5,.5,0

`make borders for maze
make object box 2,350,20,2 : position object 2, 0,0,175 : set object 2,1,1,1
make object box 3,350,20,2 : position object 3, 0,0,-175 : set object 3,1,1,1
make object box 4,2,20,350 : position object 4, 175,0,0 : set object 4,1,1,1
make object box 5,2,20,350 : position object 5, -175,0,0 : set object 5,1,1,1
`make floor with gaps
make object box 6,12,2,150 : position object 6, 0,2,0 : scale object texture 6,15,3 : set object texture 6,0,1 : set object 6,1,1,1
   objx#=object position x(6)
   objy#=object position y(6)
   objz#=object position z(6)
   objsx#=object size x(6)/2.0
   objsy#=object size y(6)/2.0
   objsz#=object size z(6)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 7,70,2,12 : position object 7, -50,0,0 : scale object texture 7,3,15  : set object texture 7,0,1 : set object 7,1,1,1
   objx#=object position x(7)
   objy#=object position y(7)
   objz#=object position z(7)
   objsx#=object size x(7)/2.0
   objsy#=object size y(7)/2.0
   objsz#=object size z(7)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 8,70,2,12 : position object 8, 50,0,0 : scale object texture 8,3,15 : set object texture 8,0,1 : set object 8,1,1,1
   objx#=object position x(8)
   objy#=object position y(8)
   objz#=object position z(8)
   objsx#=object size x(8)/2.0
   objsy#=object size y(8)/2.0
   objsz#=object size z(8)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 9,12,2,40 : position object 9, 50,0,26 :  scale object texture 9,15,3 : set object texture 9,0,1 : set object 9,1,1,1
   objx#=object position x(9)
   objy#=object position y(9)
   objz#=object position z(9)
   objsx#=object size x(9)/2.0
   objsy#=object size y(9)/2.0
   objsz#=object size z(9)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 10,40,2,12 : position object 10,64,0,52 :  scale object texture 10,3,15  : set object texture 10,0,1 : set object 10,1,1,1
   objx#=object position x(10)
   objy#=object position y(10)
   objz#=object position z(10)
   objsx#=object size x(10)/2.0
   objsy#=object size y(10)/2.0
   objsz#=object size z(10)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 11,12,2,40 : position object 11,90,0,66 :  scale object texture 11,15,3  : set object texture 11,0,1 : set object 11,1,1,1
   objx#=object position x(11)
   objy#=object position y(11)
   objz#=object position z(11)
   objsx#=object size x(11)/2.0
   objsy#=object size y(11)/2.0
   objsz#=object size z(11)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 12,12,2,60 : position object 12,-91,0,0 :  scale object texture 12,15,3 : set object texture 12,0,1 : set object 12,1,1,1
   objx#=object position x(12)
   objy#=object position y(12)
   objz#=object position z(12)
   objsx#=object size x(12)/2.0
   objsy#=object size y(12)/2.0
   objsz#=object size z(12)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 13,12,2,70 : position object 13,90,0,-29 :  scale object texture 13,15,3 : set object texture 13,0,1 : set object 13,1,1,1
   objx#=object position x(13)
   objy#=object position y(13)
   objz#=object position z(13)
   objsx#=object size x(13)/2.0
   objsy#=object size y(13)/2.0
   objsz#=object size z(13)/2.0
   make static collision box objx#-objsx#,objy#-objsy#,objz#-objsz#,objx#+objsx#,objy#+objsy#,objz#+objsz#
make object box 15, 4,4,4 : position object 15,90,3,-60


   `swamp gas
make object plain 14,1000,1000 : xrotate object 14,90 : position object 14,0,-20,0

`main program loop
do
  `print life and health information
  ink rgb(0,50,250),0 : set cursor 0,0 : set text size 25
  text 20,45,"LIVES "+str$(lives)
  text 665,45,"COINS "+str$(coins)
  text 20,75,"FPS:"+str$(screen fps() )



  `death from mist
   if object collision(1,14) then lives = lives-1 : play sound 3: sleep 1000 : position object 1,0,10,0
  `make end to game
  if object collision(1,15) then gosub WIN1
  `make sure 15 is limit
  if coins => 15 then coins = coins -15
  `store old positions
   oldposx#=object position x(1) : oldposy#=object position y(1) : oldposz#=object position z(1)
    `make sure lives doesn't go beneath 0
  if lives =< 0
    lives =0
    stop sound 1
    delete light 1
    delete light 2

   for object = 1 to 15
   delete object object
   next object
    gosub GOL1
  endif
  `controls
  if upkey()=1 then move object 1,0.25
  if downkey()=1 then move object 1,-0.25
  if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2)
  if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2)
  if spacekey()=1 and playergrav#=0 then playergrav#=0.25
  if inkey$()="p" then wait 200 : stop sound 1: suspend for key : loop sound 1
  if inkey$()="t" then position camera 0,55,0 : point camera 0,-180,0
  ` get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `ensure camera stays out of static boxes
  if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
    dec posx#,get static collision x()
    dec posy#,get static collision y()
    dec posz#,get static collision z()
    if get static collision y()<>0.0 then playergrav#=0.0
  endif
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

GOL1:
cls
`load game over sound
`load sound "Soundsvoidhum.wav",4 : loop sound 4
do
set text to bold
   text 320,50,"  GAME OVER"
   text 320,90,"PRESS ENTER."
   if returnkey()=1
  gosub L1
 endif
loop

`Make winning screen
WIN1:
cls

for object2 = 1 to 15
delete object object2
next object2

repeat
   text 320,40,"YOU WIN!!"
   text 320,100,"press enter"
   sync
until returnkey()=1



end

Enjoy your day.

Back to top

Profile PM

Yodaman Jer

User Banned

Posted: 3rd Jan 2009 02:46 Edited at: 3rd Jan 2009 02:48

Link

Oh! Thanks Latch, I'm sorry, I misunderstood at first. I ran it and it ran great (and I discovered that it runs SO much faster when it's not textured...maybe I'll make the boxes one solid color rather than have a bunch of textures and mip-mapping commands) when only programmed to run at 60 FPS.

I completely misunderstood your original post, I thought you thought that I was having a separate issue with another form of collision. I now remember that my original tests (back about a year ago)did have the box collision command. Thanks man!

btw, what kinda computer you got if it runs too fast at 0? I usually set it to 0 to make it run fast because 60 is usually too slow, however after you removed the texturing and such it definitely ran a lot smoother.

"People still have 1024x768?" -Jeku

Back to top

Profile

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 6th Jan 2009 22:03

Link

Quote: "btw, what kinda computer you got if it runs too fast at 0?"

Nothing special. It's about 7 years old - AMD 1.5 ghz processor . Radeon 9000 graphics card with 128mb . Though, I run DBC in windows 98 which means DBC pretty much runs in the environment it was designed to. At a sync rate of 0, your program runs at 190 FPS on my machine.

I removed the references to loaded media so I could run the program. It wasn't to try and capitalize on speed. With the textures and stuff included, it may have run more slowly at a 0 Sync rate.

Enjoy your day.

Back to top

Profile PM

Yodaman Jer

User Banned

Posted: 9th Jan 2009 21:22

Link

Quote: "At a sync rate of 0, your program runs at 190 FPS on my machine."

190 FPS?!?!??!!?! Holy cow!! That's insanely fast!

See my thread over in WIP!

Back to top

Profile

Sorry your browser is not supported!

DarkBASIC Discussion / Interesting predicament...