Can someone help my collision problem, please??

Author

Message

Cpt Caveman

21

Years of Service

User Offline

Joined: 29th Aug 2002

Location: New Zealand

Posted: 30th Dec 2002 09:24

Link

Im trying to make a game similar to Bubble Bobble, my problem is that when I try to introduced another player or enemy that collides with the platforms into my code the main character cannot jump anymore. I was originally trying to use read/data code to make the maps, but the xcollision didnt work in DBPro. Please help, tell me if there are any major problems with what Im doing.

cls
set display mode 1024,768,32
autocam off
backdrop on
color backdrop 0
hide mouse
set text size 24
set text to bold
sync on
sync rate 0

gosub setup:
eosx#=450
posx#=500

make camera 1

`load image "c:\Bubble-Bobble\bback.jpg",1
`load image "c:\bubble-Bobble\Bricks.bmp",2
`load music "c:\Bubble-Bobble\Bubble-Bobble.mp3",1
`load sound "c:\Bubble-Bobble\jump1.wav",1

`texture object 1000,1

make object sphere 2000,50
position object 2000,500,500,0
color object 2000,rgb(0,0,0)
make object collision box 2000,-30,-30,-30,30,30,30,0

do

`play music 1

if rightkey()=1 then posx#=posx#+2
if leftkey()=1 then posx#=posx#-2
if upkey() and grav#=0 and get object collision y()950 then posx#=950

posy#=object position y(1)

playergrav#=playergrav#-0.05
posy#=posy#+playergrav#

position object 1,posx#,posy#,0
if posy#630 then posy#=630

if object collision(1,0)
   dec posx#,get object collision x()
    dec posy#,get object collision y()
    if get object collision y()0 then playergrav#=0
  endif
`position object 1,posx#,posy#,0

`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
REM THIS IS THE PROBLEM
`  if object collision(2000,0)
` dec eosx#,get object collision x()
`   dec eosy#,get object collision y()
`   if get object collision y()0 then enemygrav#=0
`  endif
REM IF THIS IS ACTIVE I CAN'T JUMP ANYMORE
`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

position object 1,posx#,posy#,0

eosy#=object position y(2000)

enemygrav#=enemygrav#-0.5
if enemygrav#>5 then enemygrav#=5
eosy#=enemygrav#

position object 2000,eosx#,eosy#,0
if eosy#629 then eosy#=629

position object 2000,eosx#,eosy#,0

text 10,20, "PLAYER ONE SCORE    " + STR$(playerone#)
text 650,20, "PLAYER TWO SCORE    " + STR$(playertwo#)
text 400,20, "HI SCORE    " + STR$(hiscore#)

position camera 1,500,245,-650

a#=wrapvalue(a#+2.0)
position object 1000,500+sin(a#)*20.0,250+cos(a#)*30.0,785.0

sync
loop

setup:
`setup backdrop
make object plain 1000,3000,1800
position object 1000,500,300,120
`setup player1
make object box 1,40,40,20
color object 1,rgb(255,0,0)
make object collision box 1,-18,-18,-10,18,10,10,0
position object 1,200,350,0
`setup area
make object box 100,400,40,40
color object 100,rgb(0,0,200)
position object 100,200,-130,0
make object collision box 100,-1500,-25,-10,205,25,10,0

make object box 300,400,40,40
color object 300,rgb(0,0,200)
position object 300,800,-130,0
make object collision box 300,-200,-25,-10,1500,20,10,0

make object box 101,40,720,40
color object 101,rgb(0,0,200)
position object 101,10,220,0

make object box 102,400,40,40
color object 102,rgb(0,0,200)
position object 102,190,560,0

make object box 302,400,40,40
color object 302,rgb(0,0,200)
position object 302,810,560,0

make object box 103,40,720,40
color object 103,rgb(0,0,200)
position object 103,990,220,0

make object box 200,150,40,40
color object 200,rgb(200,25,80)
position object 200,250,-45,0
make object collision box 200,-80,-25,-20,80,25,25,0

make object box 201,250,40,40
color object 201,rgb(0,255,0)
position object 201,450,100,0
make object collision box 201,-130,-25,-25,130,25,25,0

make object box 202,450,40,40
color object 202,rgb(230,55,20)
position object 202,650,200,0
make object collision box 202,-230,-25,-5,230,20,5,0

make object box 203,150,40,40
color object 203,rgb(30,25,220)
position object 203,180,200,0
make object collision box 203,-75,-20,-25,75,20,25,0

make object box 204,250,40,40
color object 204,rgb(40,255,20)
position object 204,750,370,0
make object collision box 204,-130,-25,-25,130,25,25,0

make object box 205,250,40,40
color object 205,rgb(0,255,255)
position object 205,760,-45,0
make object collision box 205,-130,-25,-25,130,25,25,0

return

+ Code Snippet

cls
set display mode 1024,768,32
autocam off
backdrop on
color backdrop 0
hide mouse
set text size 24
set text to bold
sync on
sync rate 0


gosub setup:
eosx#=450
posx#=500

make camera 1

`load image "c:\Bubble-Bobble\bback.jpg",1
`load image "c:\bubble-Bobble\Bricks.bmp",2
`load music "c:\Bubble-Bobble\Bubble-Bobble.mp3",1
`load sound "c:\Bubble-Bobble\jump1.wav",1

`texture object 1000,1

make object sphere 2000,50
position object 2000,500,500,0
color object 2000,rgb(0,0,0)
make object collision box 2000,-30,-30,-30,30,30,30,0


do

`play music 1

if rightkey()=1 then posx#=posx#+2
if leftkey()=1 then posx#=posx#-2
if upkey() and grav#=0 and get object collision y()950 then posx#=950


posy#=object position y(1)

playergrav#=playergrav#-0.05
posy#=posy#+playergrav#

position object 1,posx#,posy#,0
if posy#630 then posy#=630

  if object collision(1,0)
   dec posx#,get object collision x()
    dec posy#,get object collision y()
    if get object collision y()0 then playergrav#=0
  endif
`position object 1,posx#,posy#,0

`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
REM THIS IS THE PROBLEM
`  if object collision(2000,0)
` dec eosx#,get object collision x()
`   dec eosy#,get object collision y()
`   if get object collision y()0 then enemygrav#=0
`  endif
REM IF THIS IS ACTIVE I CAN'T JUMP ANYMORE
`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

position object 1,posx#,posy#,0

eosy#=object position y(2000)

enemygrav#=enemygrav#-0.5
if enemygrav#>5 then enemygrav#=5
eosy#=enemygrav#


position object 2000,eosx#,eosy#,0
if eosy#629 then eosy#=629

position object 2000,eosx#,eosy#,0


text 10,20, "PLAYER ONE SCORE    " + STR$(playerone#)
text 650,20, "PLAYER TWO SCORE    " + STR$(playertwo#)
text 400,20, "HI SCORE    " + STR$(hiscore#)

position camera 1,500,245,-650

a#=wrapvalue(a#+2.0)
position object 1000,500+sin(a#)*20.0,250+cos(a#)*30.0,785.0


sync
loop



setup:
`setup backdrop
make object plain 1000,3000,1800
position object 1000,500,300,120
`setup player1
make object box 1,40,40,20
color object 1,rgb(255,0,0)
make object collision box 1,-18,-18,-10,18,10,10,0
position object 1,200,350,0
`setup area
make object box 100,400,40,40
color object 100,rgb(0,0,200)
position object 100,200,-130,0
make object collision box 100,-1500,-25,-10,205,25,10,0

make object box 300,400,40,40
color object 300,rgb(0,0,200)
position object 300,800,-130,0
make object collision box 300,-200,-25,-10,1500,20,10,0

make object box 101,40,720,40
color object 101,rgb(0,0,200)
position object 101,10,220,0

make object box 102,400,40,40
color object 102,rgb(0,0,200)
position object 102,190,560,0

make object box 302,400,40,40
color object 302,rgb(0,0,200)
position object 302,810,560,0

make object box 103,40,720,40
color object 103,rgb(0,0,200)
position object 103,990,220,0


make object box 200,150,40,40
color object 200,rgb(200,25,80)
position object 200,250,-45,0
make object collision box 200,-80,-25,-20,80,25,25,0

make object box 201,250,40,40
color object 201,rgb(0,255,0)
position object 201,450,100,0
make object collision box 201,-130,-25,-25,130,25,25,0

make object box 202,450,40,40
color object 202,rgb(230,55,20)
position object 202,650,200,0
make object collision box 202,-230,-25,-5,230,20,5,0

make object box 203,150,40,40
color object 203,rgb(30,25,220)
position object 203,180,200,0
make object collision box 203,-75,-20,-25,75,20,25,0

make object box 204,250,40,40
color object 204,rgb(40,255,20)
position object 204,750,370,0
make object collision box 204,-130,-25,-25,130,25,25,0

make object box 205,250,40,40
color object 205,rgb(0,255,255)
position object 205,760,-45,0
make object collision box 205,-130,-25,-25,130,25,25,0

return

Back to top

Profile PM

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 30th Dec 2002 22:49

Link

Your code was quite hard to understand. Your problem was probably due to your layout, try and make the code a bit neater, thats your major problem. Put remarks in aswell.

I have normal db but I just had to make a few adjustments to your program to make it work so Im hoping that you will have to only make a few adjustments to mine to make it work, I wrote your program again except neater and using static collision.

rem Setup environment
autocam off
hide mouse
sync on

rem Position camera
position camera 0,0,-900

rem Setup game
gosub variables
gosub makeworld
gosub makeplayers

rem Start main loop
do

gosub enemy
gosub player
gosub controls

rem Update screen
sync

rem End main loop
loop

rem Detect input from the keyboard
controls:

rem Store old player positions for collision
ox#=x#
oy#=y#
oz#=z#

rem Move player
if leftkey()=1 then x#=x#-player_speed#
if rightkey()=1 then x#=x#+player_speed#

rem Control player jumping
if spacekey()=1 and jump=0 then player_grav#=jump_power#:jump=1

return

rem Move player
player:

rem Control gravity
player_grav#=player_grav#-gravity#
y#=y#+player_grav#

rem Limit player's falling speed like ing bobble-bobble
if player_grav#<player_grav_limit# then player_grav#=player_grav_limit#

rem Adjust position if it falls off the bottom of the screen
if y#<-540 then y#=540

rem Detect for static collision
if get static collision hit(ox#-s#,oy#-s#,oz#-s#,ox#+s#,oy#+s#,oz#+s#,x#-s#,y#-s#,z#-s#,x#+s#,y#+s#,z#+s#)=1

rem Adjust player position
	dec x#,get static collision x()
	dec y#,get static collision y()

rem Control jumping and player gravity
	if get static collision y()<0 then player_grav#=0.0:jump=0
	if get static collision y()>0 then player_grav#=0.0

endif

rem Detect for collision
if object collision(1,0)>0

rem Adjust player position
	dec x#,get object collision x()
	dec y#,get object collision y()

rem Control jumping and player gravity
	if get object collision y()<0 then player_grav#=0.0:jump=0
	if get object collision y()>0 then player_grav#=0.0

endif

rem Position character
position object 1,x#,y#,z#

return

rem Move enemy
enemy:

rem Get old enemy positions for static collision
eox#=ex#
eoy#=ey#
eoz#=ez#

rem Control gravity
enemy_grav#=enemy_grav#-gravity#
ey#=ey#+enemy_grav#

rem Limit enemy's falling speed like ing bobble-bobble
if enemy_grav#<enemy_grav_limit# then enemy_grav#=enemy_grav_limit#

rem Adjust position if it falls off the bottom of the screen
if ey#<-540 then ey#=540

rem Detect for static collision
if get static collision hit(eox#-s#,eoy#-s#,eoz#-s#,eox#+s#,eoy#+s#,eoz#+s#,ex#-s#,ey#-s#,ez#-s#,ex#+s#,ey#+s#,ez#+s#)=1

rem Adjust player position
	dec ex#,get static collision x()
	dec ey#,get static collision y()

rem Control jumping and player gravity
	if get static collision y()<0 then enemy_grav#=0.0
	if get static collision y()>0 then enemy_grav#=0.0

endif

rem Detect for collision
if object collision(2,0)>0

rem Adjust player position
	dec ex#,get object collision x()
	dec ey#,get object collision y()

rem Control jumping and player gravity
	if get object collision y()<0 then enemy_grav#=0.0
	if get object collision y()>0 then enemy_grav#=0.0

endif

rem Position character
position object 2,ex#,ey#,ez#

return

rem Set variables for physics and game
variables:

rem Player start co-ordinates
x#=0.0
y#=-200.0
z#=0.0
s#=25

rem Enemy start co-ordinates
ex#=0.0
ey#=200.0
ez#=0.0
es#=25

rem PLayer attributes
player_speed#=10.0
jump_power#=30.0
gravity#=2.0

rem Gravity limits
player_grav_limit#=-15.0
enemy_grav_limit#=-15.0

return

rem Make the world
makeworld:

rem The top
make object box 10,400,50,50
position object 10,-400,480,0
make static object 10
make static collision box -600,455,-25,-200,505,25

make object box 11,400,50,50
position object 11,400,480,0
make static object 11
make static collision box 200,455,-25,600,505,25

rem The bottom
make object box 12,400,50,50
position object 12,-400,-480,0
make static object 12
make static collision box -600,-505,-25,-200,-455,25

make object box 13,400,50,50
position object 13,400,-480,0
make static object 13
make static collision box 200,-505,-25,600,-455,25

rem The right
make object box 14,50,1000,50
position object 14,620,0,0
make static object 14
make static collision box 595,-500,-25,645,500,25

rem The left
make object box 15,50,1000,50
position object 15,-620,0,0
make static object 15
make static collision box -645,-500,-25,-595,500,25

rem The first layer
make object box 16,800,50,50
position object 16,0,-300,0
make static object 16
make static collision box -400,-325,-25,400,-275,25

rem The second layer
make object box 17,400,50,50
position object 17,-400,-100,0
make static object 17
make static collision box -600,-125,-25,-200,-75,25

make object box 18,400,50,50
position object 18,400,-100,0
make static object 18
make static collision box 200,-125,-25,600,-75,25

rem The third layer
make object box 19,800,50,50
position object 19,0,100,0
make static object 19
make static collision box -400,75,-25,400,125,25
return

rem Make the characters
makeplayers:

rem Make the player
make object cube 1,s#*2
color object 1,rgb(255,0,0)
make object collision box 1,0-s#,0-s#,0-s#,s#,s#,s#,0

rem Make the enemy
make object cube 2,es#*2
color object 2,rgb(255,255,0)
make object collision box 2,0-es#,0-es#,0-es#,es#,es#,es#,0

return

+ Code Snippet

rem Setup environment
autocam off
hide mouse
sync on

rem Position camera
position camera 0,0,-900

rem Setup game
gosub variables
gosub makeworld
gosub makeplayers

rem Start main loop
do

gosub enemy
gosub player
gosub controls

rem Update screen
sync

rem End main loop
loop

rem Detect input from the keyboard
controls:

rem Store old player positions for collision
ox#=x#
oy#=y#
oz#=z#

rem Move player
if leftkey()=1 then x#=x#-player_speed#
if rightkey()=1 then x#=x#+player_speed#

rem Control player jumping
if spacekey()=1 and jump=0 then player_grav#=jump_power#:jump=1

return

rem Move player
player:

rem Control gravity
player_grav#=player_grav#-gravity#
y#=y#+player_grav#

rem Limit player's falling speed like ing bobble-bobble
if player_grav#<player_grav_limit# then player_grav#=player_grav_limit#

rem Adjust position if it falls off the bottom of the screen
if y#<-540 then y#=540

rem Detect for static collision
if get static collision hit(ox#-s#,oy#-s#,oz#-s#,ox#+s#,oy#+s#,oz#+s#,x#-s#,y#-s#,z#-s#,x#+s#,y#+s#,z#+s#)=1

	rem Adjust player position
	dec x#,get static collision x()
	dec y#,get static collision y()

	rem Control jumping and player gravity
	if get static collision y()<0 then player_grav#=0.0:jump=0
	if get static collision y()>0 then player_grav#=0.0

endif

rem Detect for collision
if object collision(1,0)>0

	rem Adjust player position
	dec x#,get object collision x()
	dec y#,get object collision y()

	rem Control jumping and player gravity
	if get object collision y()<0 then player_grav#=0.0:jump=0
	if get object collision y()>0 then player_grav#=0.0

endif

rem Position character
position object 1,x#,y#,z#

return

rem Move enemy
enemy:

rem Get old enemy positions for static collision
eox#=ex#
eoy#=ey#
eoz#=ez#

rem Control gravity
enemy_grav#=enemy_grav#-gravity#
ey#=ey#+enemy_grav#

rem Limit enemy's falling speed like ing bobble-bobble
if enemy_grav#<enemy_grav_limit# then enemy_grav#=enemy_grav_limit#

rem Adjust position if it falls off the bottom of the screen
if ey#<-540 then ey#=540

rem Detect for static collision
if get static collision hit(eox#-s#,eoy#-s#,eoz#-s#,eox#+s#,eoy#+s#,eoz#+s#,ex#-s#,ey#-s#,ez#-s#,ex#+s#,ey#+s#,ez#+s#)=1

	rem Adjust player position
	dec ex#,get static collision x()
	dec ey#,get static collision y()

	rem Control jumping and player gravity
	if get static collision y()<0 then enemy_grav#=0.0
	if get static collision y()>0 then enemy_grav#=0.0

endif

rem Detect for collision
if object collision(2,0)>0

	rem Adjust player position
	dec ex#,get object collision x()
	dec ey#,get object collision y()

	rem Control jumping and player gravity
	if get object collision y()<0 then enemy_grav#=0.0
	if get object collision y()>0 then enemy_grav#=0.0

endif

rem Position character
position object 2,ex#,ey#,ez#

return

rem Set variables for physics and game
variables:

rem Player start co-ordinates
x#=0.0
y#=-200.0
z#=0.0
s#=25

rem Enemy start co-ordinates
ex#=0.0
ey#=200.0
ez#=0.0
es#=25

rem PLayer attributes
player_speed#=10.0
jump_power#=30.0
gravity#=2.0

rem Gravity limits
player_grav_limit#=-15.0
enemy_grav_limit#=-15.0

return

rem Make the world
makeworld:

rem The top
make object box 10,400,50,50
position object 10,-400,480,0
make static object 10
make static collision box -600,455,-25,-200,505,25

make object box 11,400,50,50
position object 11,400,480,0
make static object 11
make static collision box 200,455,-25,600,505,25

rem The bottom
make object box 12,400,50,50
position object 12,-400,-480,0
make static object 12
make static collision box -600,-505,-25,-200,-455,25

make object box 13,400,50,50
position object 13,400,-480,0
make static object 13
make static collision box 200,-505,-25,600,-455,25

rem The right
make object box 14,50,1000,50
position object 14,620,0,0
make static object 14
make static collision box 595,-500,-25,645,500,25

rem The left
make object box 15,50,1000,50
position object 15,-620,0,0
make static object 15
make static collision box -645,-500,-25,-595,500,25

rem The first layer
make object box 16,800,50,50
position object 16,0,-300,0
make static object 16
make static collision box -400,-325,-25,400,-275,25

rem The second layer
make object box 17,400,50,50
position object 17,-400,-100,0
make static object 17
make static collision box -600,-125,-25,-200,-75,25

make object box 18,400,50,50
position object 18,400,-100,0
make static object 18
make static collision box 200,-125,-25,600,-75,25

rem The third layer
make object box 19,800,50,50
position object 19,0,100,0
make static object 19
make static collision box -400,75,-25,400,125,25
return

rem Make the characters
makeplayers:

rem Make the player
make object cube 1,s#*2
color object 1,rgb(255,0,0)
make object collision box 1,0-s#,0-s#,0-s#,s#,s#,s#,0

rem Make the enemy
make object cube 2,es#*2
color object 2,rgb(255,255,0)
make object collision box 2,0-es#,0-es#,0-es#,es#,es#,es#,0

return

Yum! Yum! Yum! Yum!

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 30th Dec 2002 23:02

Link

Ill also pick out a few bits which I dont know what they do:

if upkey() and grav#=0 and get object collision y()950 then posx#=950

Is this meant to control jumping? You should do this-

if upkey=() and playergrav#=0 then playergrav#=jump_power#

What does this do? You havent even created that object(1000), or have you?

a#=wrapvalue(a#+2.0)
position object 1000,500+sin(a#)*20.0,250+cos(a#)*30.0,785.0

is this meant to reposition the enemy when it gets beneath the screen?

if eosy#629 then eosy#=629

Also dont set the screen resolution too high, my computer was really slow displaying it. I dont mean to be too critical but I dont get alot of the program.

Yum! Yum! Yum! Yum!

Back to top

Profile PM Email Website

Cpt Caveman

21

Years of Service

User Offline

Joined: 29th Aug 2002

Location: New Zealand

Posted: 31st Dec 2002 01:18

Link

Thanks for your honesty

, I guess you wrote this in DB1, cos it doesnt really do what my original code did, I'll have a decent look at it 2moro after I sober up. Thanks again

Back to top

Profile PM

Cpt Caveman

21

Years of Service

User Offline

Joined: 29th Aug 2002

Location: New Zealand

Posted: 31st Dec 2002 05:35

Link

Hehe, I didnt read that space jumped, not upkey like it used to be. My bad, sorry

Back to top

Profile PM

Cpt Caveman

21

Years of Service

User Offline

Joined: 29th Aug 2002

Location: New Zealand

Posted: 2nd Jan 2003 00:06

Link

Ive added some moving enemies, unfortunately they appear to have random movement but they arent meant to, all I wanted them to do was to go as far right as they could, then go as far left as they could, with gravity of falling off the platforms. But they tend to migrate to the left side after awhile and the more I have on screen the faster they do that. Also I have made enemy into a seperate gosub, maybe doing them all at once may have been better. I remed out the 2 last enemies to make things look a little better

heres my code, maybe its quite long for a simple rework/fix

rem Setup environment
cls
`set display mode 1024,768,32
autocam off
`backdrop on
`color backdrop 0
hide mouse
set text size 20
set text to bold
sync on
sync rate 60
rem Position camera
position camera 0,0,-900

rem Setup game
gosub variables
gosub makeworld
gosub makeplayers
`load image "c:\Bubble-Bobble\bback.jpg",1
`load image "c:\bubble-Bobble\Bricks.bmp",2
`load music "c:\Bubble-Bobble\Bubble-Bobble.mp3",1
`load sound "c:\Bubble-Bobble\jump1.wav",1
make object plain 1000,3000,1800
position object 1000,300,150,120
color object 1000,rgb(200,0,200)
`texture object 1000,1
rem Start main loop
do
`play music 1
gosub enemy
gosub enemy2
`gosub enemy3
`gosub enemy4
gosub player
gosub controls

a#=wrapvalue(a#+2.0)
position object 1000,20+sin(a#)*20.0,20+cos(a#)*30.0,535.0

text 10,0, "PLAYER ONE SCORE    " + STR$(playerone#)
text 650,0, "PLAYER TWO SCORE    " + STR$(playertwo#)
text 400,0, "HI SCORE    " + STR$(hiscore#)
rem Update screen
sync

rem End main loop
loop

rem Detect input from the keyboard
controls:

rem Store old player positions for collision
ox#=x#
oy#=y#
oz#=z#

rem Move player
if leftkey()=1 then x#=x#-player_speed#
if rightkey()=1 then x#=x#+player_speed#

rem Control player jumping
if upkey()=1 and jump=0 then player_grav#=jump_power#:jump=1
`: play sound 1

return

rem Move player
player:

rem Control gravity
player_grav#=player_grav#-gravity#
y#=y#+player_grav#

rem Limit player's falling speed like ing bobble-bobble
if player_grav#<player_grav_limit# then player_grav#=player_grav_limit#

rem Adjust position if it falls off the bottom of the screen
if y#<-540 then y#=540

rem Detect for static collision
if get static collision hit(ox#-s#,oy#-s#,oz#-s#,ox#+s#,oy#+s#,oz#+s#,x#-s#,y#-s#,z#-s#,x#+s#,y#+s#,z#+s#)=1

rem Adjust player position
   dec x#,get static collision x()
   dec y#,get static collision y()

rem Control jumping and player gravity
   if get static collision y()<0 then player_grav#=0.0:jump=0
   if get static collision y()>0 then player_grav#=0.0

endif

rem Detect for collision
if object collision(1,0)>0

rem Adjust player position
   dec x#,get object collision x()
   dec y#,get object collision y()

rem Control jumping and player gravity
   if get object collision y()<0 then player_grav#=0.0:jump=0
   if get object collision y()>0 then player_grav#=0.0
endif

if object collision(1,0)>0

rem Adjust player position
   dec x#,get object collision x()
   dec y#,get object collision y()

rem Control jumping and player gravity
      if get object collision y()<0 then player_grav#=0.0:jump=0
   if get object collision y()>0 then player_grav#=0.0
`text 400,400,"Player HIt"
endif

rem Position character
position object 1,x#,y#,z#

return

rem Move enemy
enemy:

rem Get old enemy positions for static collision
eox#=ex#
eoy#=ey#
eoz#=ez#

rem Control gravity
enemy_grav#=enemy_grav#-gravity#
ey#=ey#+enemy_grav#

rem Limit enemy's falling speed like ing bobble-bobble
if enemy_grav#<enemy_grav_limit# then enemy_grav#=enemy_grav_limit#

rem Adjust position if it falls off the bottom of the screen
if ey#<-540 then ey#=540

rem Detect for static collision
if get static collision hit(eox#-s#,eoy#-s#,eoz#-s#,eox#+s#,eoy#+s#,eoz#+s#,ex#-s#,ey#-s#,ez#-s#,ex#+s#,ey#+s#,ez#+s#)=1

rem Adjust player position
   dec ex#,get static collision x()
   dec ey#,get static collision y()

rem Control jumping and player gravity
   if get static collision y()<0 then enemy_grav#=0.0
   if get static collision y()>0 then enemy_grav#=0.0

endif
if ex#<=-570 then direction$ = "right"
if ex#>=570 then direction$ = "left"

if direction$ = "right" then ex# = ex# + 10
if direction$ = "left" then ex# = ex# - 6
rem Detect for collision
if object collision(2,0)>0

rem Adjust player position
   dec ex#,get object collision x()
   dec ey#,get object collision y()

rem Control jumping and player gravity
   if get object collision y()<0 then enemy_grav#=0.0
   if get object collision y()>0 then enemy_grav#=0.0

if get object collision x()>50 then ex#=ex#+enemy_speed#
if get object collision x()<50 then ex#=ex#-enemy_speed#

endif

rem Position character
position object 2,ex#,ey#,ez#

return

enemy2:

rem Get old enemy positions for static collision

eox1#=ex1#
eoy1#=ey1#
eoz1#=ez1#
rem Control gravity
enemy_grav1#=enemy_grav1#-gravity1#
ey1#=ey1#+enemy_grav1#
rem Limit enemy's falling speed like ing bobble-bobble
if enemy_grav1#<enemy_grav_limit1# then enemy_grav1#=enemy_grav_limit1#

rem Adjust position if it falls off the bottom of the screen
if ey1#<-540 then ey1#=540

rem enemy 2 collision starts here
if get static collision hit(eox1#-s#,eoy1#-s#,eoz1#-s#,eox1#+s#,eoy1#+s#,eoz1#+s#,ex1#-s#,ey1#-s#,ez1#-s#,ex1#+s#,ey1#+s#,ez1#+s#)=1

rem Adjust player position
   dec ex1#,get static collision x()
   dec ey1#,get static collision y()

rem Control jumping and player gravity
   if get static collision y()<0 then enemy_grav1#=0.0
   if get static collision y()>0 then enemy_grav1#=0.0

endif

if ex1#<=-570 then direction$ = "right1"
if ex1#>=570 then direction$ = "left1"

if direction$ = "right1" then ex1# = ex1# + 10
if direction$ = "left1" then ex1# = ex1# - 6

rem Detect for collision
if object collision(3,0)>0

rem Adjust player position
   dec ex1#,get object collision x()
   dec ey1#,get object collision y()

rem Control jumping and player gravity
   if get object collision y()<0 then enemy_grav1#=0.0
   if get object collision y()>0 then enemy_grav1#=0.0

if get object collision x()>50 then ex1#=ex1#+enemy_speed1#
if get object collision x()<50 then ex1#=ex1#-enemy_speed1#

endif

rem Position character
position object 3,ex1#,ey1#,ez1#
return

enemy3:

rem Get old enemy positions for static collision

eox2#=ex2#
eoy2#=ey2#
eoz2#=ez2#
rem Control gravity
enemy_grav2#=enemy_grav2#-gravity2#
ey2#=ey2#+enemy_grav2#
rem Limit enemy's falling speed like ing bobble-bobble
if enemy_grav2#<enemy_grav_limit2# then enemy_grav2#=enemy_grav_limit2#

rem Adjust position if it falls off the bottom of the screen
if ey2#<-540 then ey2#=540

rem enemy 3 collision starts here
if get static collision hit(eox2#-s#,eoy2#-s#,eoz2#-s#,eox2#+s#,eoy2#+s#,eoz2#+s#,ex2#-s#,ey2#-s#,ez2#-s#,ex2#+s#,ey2#+s#,ez2#+s#)=1

rem Adjust player position
   dec ex2#,get static collision x()
   dec ey2#,get static collision y()

rem Control jumping and player gravity
   if get static collision y()<0 then enemy_grav2#=0.0
   if get static collision y()>0 then enemy_grav2#=0.0

endif

if ex2#<=-570 then direction$ = "right2"
if ex2#>=570 then direction$ = "left2"

if direction$ = "right2" then ex2# = ex2# + 10
if direction$ = "left2" then ex2# = ex2# - 6

rem Detect for collision
if object collision(4,0)>0

rem Adjust player position
   dec ex2#,get object collision x()
   dec ey2#,get object collision y()

rem Control jumping and player gravity
   if get object collision y()<0 then enemy_grav2#=0.0
   if get object collision y()>0 then enemy_grav2#=0.0

if get object collision x()>50 then ex2#=ex2#+enemy_speed2#
if get object collision x()<50 then ex2#=ex2#-enemy_speed2#

endif

rem Position character
position object 4,ex2#,ey2#,ez2#

return

enemy4:

rem Get old enemy positions for static collision

eox3#=ex3#
eoy3#=ey3#
eoz3#=ez3#
rem Control gravity
enemy_grav3#=enemy_grav3#-gravity3#
ey3#=ey3#+enemy_grav3#
rem Limit enemy's falling speed like ing bobble-bobble
if enemy_grav3#<enemy_grav_limit3# then enemy_grav3#=enemy_grav_limit3#

rem Adjust position if it falls off the bottom of the screen
if ey3#<-540 then ey3#=540

rem enemy 4 collision starts here
if get static collision hit(eox3#-s#,eoy3#-s#,eoz3#-s#,eox3#+s#,eoy3#+s#,eoz3#+s#,ex3#-s#,ey3#-s#,ez3#-s#,ex3#+s#,ey3#+s#,ez3#+s#)=1

rem Adjust player position
   dec ex3#,get static collision x()
   dec ey3#,get static collision y()

rem Control jumping and player gravity
   if get static collision y()<0 then enemy_grav3#=0.0
   if get static collision y()>0 then enemy_grav3#=0.0

endif

if ex3#<=-570 then direction$ = "right3"
if ex3#>=570 then direction$ = "left3"

if direction$ = "right3" then ex3# = ex3# + 10
if direction$ = "left3" then ex3# = ex3# - 6

rem Detect for collision
if object collision(5,0)>0

rem Adjust player position
   dec ex3#,get object collision x()
   dec ey3#,get object collision y()

rem Control jumping and player gravity
   if get object collision y()<0 then enemy_grav3#=0.0
   if get object collision y()>0 then enemy_grav3#=0.0

if get object collision x()>50 then ex3#=ex3#+enemy_speed3#
if get object collision x()<50 then ex3#=ex3#-enemy_speed3#

endif

rem Position character
position object 5,ex3#,ey3#,ez3#
return

rem Set variables for physics and game
variables:

rem Player start co-ordinates
x#=0.0
y#=0.0
z#=0.0
s#=25

rem Enemy start co-ordinates
ex#=250.0
ey#=400.0
ez#=0.0
es#=25

ex1#=-240.0
ey1#=400.0
ez1#=0.0
es1#=25

ex2#=500.0
ey2#=400.0
ez2#=0.0
es2#=25

ex3#=-500.0
ey3#=400.0
ez3#=0.0
es3#=25

rem PLayer attributes
player_speed#=5.0
jump_power#=30.0
gravity#=2.0

rem Enemy attributes
enemy_speed#=5.0
jump_power#=30.0
gravity#=2.0

enemy_speed1#=5.0
jump_power1#=30.0
gravity1#=2.0

enemy_speed2#=5.0
jump_power2#=30.0
gravity2#=2.0

enemy_speed3#=5.0
jump_power3#=30.0
gravity3#=2.0

rem Gravity limits
player_grav_limit#=-15.0
enemy_grav_limit#=-15.0
enemy_grav_limit1#=-15.0
enemy_grav_limit2#=-15.0
enemy_grav_limit3#=-15.0

return

rem Make the world
makeworld:

rem The top
make object box 10,400,50,50
position object 10,-400,475,0
`make static object 10
make static collision box -600,455,-25,-200,505,25

make object box 11,400,50,50
position object 11,400,475,0
`make static object 11
make static collision box 200,455,-25,600,505,25

rem The bottom
make object box 12,400,50,50
position object 12,-400,-475,0
`make static object 12
make static collision box -600,-505,-25,-200,-455,25

make object box 13,400,50,50
position object 13,400,-475,0
`make static object 13
make static collision box 200,-505,-25,600,-455,25

rem The right
make object box 14,50,1000,50
position object 14,620,0,0
`make static object 14
make static collision box 595,-500,-25,645,500,25

rem The left
make object box 15,50,1000,50
position object 15,-620,0,0
`make static object 15
make static collision box -645,-500,-25,-595,500,25

rem The first layer
make object box 16,800,50,50
position object 16,0,-300,0
`make static object 16
make static collision box -400,-325,-25,400,-275,25

rem The second layer
make object box 17,400,50,50
position object 17,-400,-100,0
`texture object 17,2
`make static object 17
make static collision box -600,-125,-25,-200,-75,25

make object box 18,400,50,50
position object 18,400,-100,0
`texture object 18,2
`make static object 18
make static collision box 200,-125,-25,600,-75,25

rem The third layer
make object box 19,800,50,50
position object 19,0,100,0
`texture object 19,2
`make static object 19
make static collision box -400,75,-25,400,125,25
return

rem Make the characters
makeplayers:

rem Make the player
make object cube 1,s#*2
color object 1,rgb(255,0,0)
make object collision box 1,0-s#,0-s#,0-s#,s#,s#,s#,0

rem Make the enemy
make object cube 2,es#*2
color object 2,rgb(255,255,0)
make object collision box 2,0-es#,0-es#,0-es#,es#,es#,es#,0

make object cube 3,es#*2
color object 3,rgb(255,0,255)
make object collision box 3,0-es#,0-es#,0-es#,es#,es#,es#,0

make object cube 4,es#*2
color object 4,rgb(0,0,255)
make object collision box 4,0-es#,0-es#,0-es#,es#,es#,es#,0

make object cube 5,es#*2
color object 5,rgb(0,255,255)
make object collision box 5,0-es#,0-es#,0-es#,es#,es#,es#,0
return

+ Code Snippet

rem Setup environment
cls
`set display mode 1024,768,32
autocam off
`backdrop on
`color backdrop 0
hide mouse
set text size 20
set text to bold
sync on
sync rate 60
rem Position camera
position camera 0,0,-900

rem Setup game
gosub variables
gosub makeworld
gosub makeplayers
`load image "c:\Bubble-Bobble\bback.jpg",1
`load image "c:\bubble-Bobble\Bricks.bmp",2
`load music "c:\Bubble-Bobble\Bubble-Bobble.mp3",1
`load sound "c:\Bubble-Bobble\jump1.wav",1
make object plain 1000,3000,1800
position object 1000,300,150,120
color object 1000,rgb(200,0,200)
`texture object 1000,1
rem Start main loop
do
`play music 1
gosub enemy
gosub enemy2
`gosub enemy3
`gosub enemy4
gosub player
gosub controls

a#=wrapvalue(a#+2.0)
position object 1000,20+sin(a#)*20.0,20+cos(a#)*30.0,535.0


text 10,0, "PLAYER ONE SCORE    " + STR$(playerone#)
text 650,0, "PLAYER TWO SCORE    " + STR$(playertwo#)
text 400,0, "HI SCORE    " + STR$(hiscore#)
rem Update screen
sync

rem End main loop
loop

rem Detect input from the keyboard
controls:

rem Store old player positions for collision
ox#=x#
oy#=y#
oz#=z#

rem Move player
if leftkey()=1 then x#=x#-player_speed#
if rightkey()=1 then x#=x#+player_speed#

rem Control player jumping
if upkey()=1 and jump=0 then player_grav#=jump_power#:jump=1
`: play sound 1

return

rem Move player
player:

rem Control gravity
player_grav#=player_grav#-gravity#
y#=y#+player_grav#

rem Limit player's falling speed like ing bobble-bobble
if player_grav#<player_grav_limit# then player_grav#=player_grav_limit#

rem Adjust position if it falls off the bottom of the screen
if y#<-540 then y#=540

rem Detect for static collision
if get static collision hit(ox#-s#,oy#-s#,oz#-s#,ox#+s#,oy#+s#,oz#+s#,x#-s#,y#-s#,z#-s#,x#+s#,y#+s#,z#+s#)=1

   rem Adjust player position
   dec x#,get static collision x()
   dec y#,get static collision y()

   rem Control jumping and player gravity
   if get static collision y()<0 then player_grav#=0.0:jump=0
   if get static collision y()>0 then player_grav#=0.0

endif

rem Detect for collision
if object collision(1,0)>0

   rem Adjust player position
   dec x#,get object collision x()
   dec y#,get object collision y()

   rem Control jumping and player gravity
   if get object collision y()<0 then player_grav#=0.0:jump=0
   if get object collision y()>0 then player_grav#=0.0
endif

if object collision(1,0)>0

   rem Adjust player position
   dec x#,get object collision x()
   dec y#,get object collision y()

   rem Control jumping and player gravity
      if get object collision y()<0 then player_grav#=0.0:jump=0
   if get object collision y()>0 then player_grav#=0.0
`text 400,400,"Player HIt"
endif

rem Position character
position object 1,x#,y#,z#

return

rem Move enemy
enemy:

rem Get old enemy positions for static collision
eox#=ex#
eoy#=ey#
eoz#=ez#

rem Control gravity
enemy_grav#=enemy_grav#-gravity#
ey#=ey#+enemy_grav#

rem Limit enemy's falling speed like ing bobble-bobble
if enemy_grav#<enemy_grav_limit# then enemy_grav#=enemy_grav_limit#

rem Adjust position if it falls off the bottom of the screen
if ey#<-540 then ey#=540

rem Detect for static collision
if get static collision hit(eox#-s#,eoy#-s#,eoz#-s#,eox#+s#,eoy#+s#,eoz#+s#,ex#-s#,ey#-s#,ez#-s#,ex#+s#,ey#+s#,ez#+s#)=1

   rem Adjust player position
   dec ex#,get static collision x()
   dec ey#,get static collision y()

   rem Control jumping and player gravity
   if get static collision y()<0 then enemy_grav#=0.0
   if get static collision y()>0 then enemy_grav#=0.0

endif
if ex#<=-570 then direction$ = "right"
if ex#>=570 then direction$ = "left"

if direction$ = "right" then ex# = ex# + 10
if direction$ = "left" then ex# = ex# - 6
rem Detect for collision
if object collision(2,0)>0

   rem Adjust player position
   dec ex#,get object collision x()
   dec ey#,get object collision y()

   rem Control jumping and player gravity
   if get object collision y()<0 then enemy_grav#=0.0
   if get object collision y()>0 then enemy_grav#=0.0

if get object collision x()>50 then ex#=ex#+enemy_speed#
if get object collision x()<50 then ex#=ex#-enemy_speed#

endif





rem Position character
position object 2,ex#,ey#,ez#

return

enemy2:

rem Get old enemy positions for static collision

eox1#=ex1#
eoy1#=ey1#
eoz1#=ez1#
rem Control gravity
enemy_grav1#=enemy_grav1#-gravity1#
ey1#=ey1#+enemy_grav1#
rem Limit enemy's falling speed like ing bobble-bobble
if enemy_grav1#<enemy_grav_limit1# then enemy_grav1#=enemy_grav_limit1#

rem Adjust position if it falls off the bottom of the screen
if ey1#<-540 then ey1#=540


rem enemy 2 collision starts here
if get static collision hit(eox1#-s#,eoy1#-s#,eoz1#-s#,eox1#+s#,eoy1#+s#,eoz1#+s#,ex1#-s#,ey1#-s#,ez1#-s#,ex1#+s#,ey1#+s#,ez1#+s#)=1

   rem Adjust player position
   dec ex1#,get static collision x()
   dec ey1#,get static collision y()

   rem Control jumping and player gravity
   if get static collision y()<0 then enemy_grav1#=0.0
   if get static collision y()>0 then enemy_grav1#=0.0

endif

if ex1#<=-570 then direction$ = "right1"
if ex1#>=570 then direction$ = "left1"

if direction$ = "right1" then ex1# = ex1# + 10
if direction$ = "left1" then ex1# = ex1# - 6


rem Detect for collision
if object collision(3,0)>0

   rem Adjust player position
   dec ex1#,get object collision x()
   dec ey1#,get object collision y()

   rem Control jumping and player gravity
   if get object collision y()<0 then enemy_grav1#=0.0
   if get object collision y()>0 then enemy_grav1#=0.0

if get object collision x()>50 then ex1#=ex1#+enemy_speed1#
if get object collision x()<50 then ex1#=ex1#-enemy_speed1#

endif





rem Position character
position object 3,ex1#,ey1#,ez1#
return

enemy3:

rem Get old enemy positions for static collision

eox2#=ex2#
eoy2#=ey2#
eoz2#=ez2#
rem Control gravity
enemy_grav2#=enemy_grav2#-gravity2#
ey2#=ey2#+enemy_grav2#
rem Limit enemy's falling speed like ing bobble-bobble
if enemy_grav2#<enemy_grav_limit2# then enemy_grav2#=enemy_grav_limit2#

rem Adjust position if it falls off the bottom of the screen
if ey2#<-540 then ey2#=540


rem enemy 3 collision starts here
if get static collision hit(eox2#-s#,eoy2#-s#,eoz2#-s#,eox2#+s#,eoy2#+s#,eoz2#+s#,ex2#-s#,ey2#-s#,ez2#-s#,ex2#+s#,ey2#+s#,ez2#+s#)=1

   rem Adjust player position
   dec ex2#,get static collision x()
   dec ey2#,get static collision y()

   rem Control jumping and player gravity
   if get static collision y()<0 then enemy_grav2#=0.0
   if get static collision y()>0 then enemy_grav2#=0.0

endif

if ex2#<=-570 then direction$ = "right2"
if ex2#>=570 then direction$ = "left2"

if direction$ = "right2" then ex2# = ex2# + 10
if direction$ = "left2" then ex2# = ex2# - 6


rem Detect for collision
if object collision(4,0)>0

   rem Adjust player position
   dec ex2#,get object collision x()
   dec ey2#,get object collision y()

   rem Control jumping and player gravity
   if get object collision y()<0 then enemy_grav2#=0.0
   if get object collision y()>0 then enemy_grav2#=0.0

if get object collision x()>50 then ex2#=ex2#+enemy_speed2#
if get object collision x()<50 then ex2#=ex2#-enemy_speed2#

endif

rem Position character
position object 4,ex2#,ey2#,ez2#

return

enemy4:

rem Get old enemy positions for static collision

eox3#=ex3#
eoy3#=ey3#
eoz3#=ez3#
rem Control gravity
enemy_grav3#=enemy_grav3#-gravity3#
ey3#=ey3#+enemy_grav3#
rem Limit enemy's falling speed like ing bobble-bobble
if enemy_grav3#<enemy_grav_limit3# then enemy_grav3#=enemy_grav_limit3#

rem Adjust position if it falls off the bottom of the screen
if ey3#<-540 then ey3#=540


rem enemy 4 collision starts here
if get static collision hit(eox3#-s#,eoy3#-s#,eoz3#-s#,eox3#+s#,eoy3#+s#,eoz3#+s#,ex3#-s#,ey3#-s#,ez3#-s#,ex3#+s#,ey3#+s#,ez3#+s#)=1

   rem Adjust player position
   dec ex3#,get static collision x()
   dec ey3#,get static collision y()

   rem Control jumping and player gravity
   if get static collision y()<0 then enemy_grav3#=0.0
   if get static collision y()>0 then enemy_grav3#=0.0

endif

if ex3#<=-570 then direction$ = "right3"
if ex3#>=570 then direction$ = "left3"

if direction$ = "right3" then ex3# = ex3# + 10
if direction$ = "left3" then ex3# = ex3# - 6


rem Detect for collision
if object collision(5,0)>0

   rem Adjust player position
   dec ex3#,get object collision x()
   dec ey3#,get object collision y()

   rem Control jumping and player gravity
   if get object collision y()<0 then enemy_grav3#=0.0
   if get object collision y()>0 then enemy_grav3#=0.0

if get object collision x()>50 then ex3#=ex3#+enemy_speed3#
if get object collision x()<50 then ex3#=ex3#-enemy_speed3#

endif





rem Position character
position object 5,ex3#,ey3#,ez3#
return

rem Set variables for physics and game
variables:

rem Player start co-ordinates
x#=0.0
y#=0.0
z#=0.0
s#=25

rem Enemy start co-ordinates
ex#=250.0
ey#=400.0
ez#=0.0
es#=25

ex1#=-240.0
ey1#=400.0
ez1#=0.0
es1#=25

ex2#=500.0
ey2#=400.0
ez2#=0.0
es2#=25

ex3#=-500.0
ey3#=400.0
ez3#=0.0
es3#=25

rem PLayer attributes
player_speed#=5.0
jump_power#=30.0
gravity#=2.0

rem Enemy attributes
enemy_speed#=5.0
jump_power#=30.0
gravity#=2.0

enemy_speed1#=5.0
jump_power1#=30.0
gravity1#=2.0

enemy_speed2#=5.0
jump_power2#=30.0
gravity2#=2.0

enemy_speed3#=5.0
jump_power3#=30.0
gravity3#=2.0

rem Gravity limits
player_grav_limit#=-15.0
enemy_grav_limit#=-15.0
enemy_grav_limit1#=-15.0
enemy_grav_limit2#=-15.0
enemy_grav_limit3#=-15.0

return

rem Make the world
makeworld:

rem The top
make object box 10,400,50,50
position object 10,-400,475,0
`make static object 10
make static collision box -600,455,-25,-200,505,25

make object box 11,400,50,50
position object 11,400,475,0
`make static object 11
make static collision box 200,455,-25,600,505,25

rem The bottom
make object box 12,400,50,50
position object 12,-400,-475,0
`make static object 12
make static collision box -600,-505,-25,-200,-455,25

make object box 13,400,50,50
position object 13,400,-475,0
`make static object 13
make static collision box 200,-505,-25,600,-455,25

rem The right
make object box 14,50,1000,50
position object 14,620,0,0
`make static object 14
make static collision box 595,-500,-25,645,500,25

rem The left
make object box 15,50,1000,50
position object 15,-620,0,0
`make static object 15
make static collision box -645,-500,-25,-595,500,25

rem The first layer
make object box 16,800,50,50
position object 16,0,-300,0
`make static object 16
make static collision box -400,-325,-25,400,-275,25

rem The second layer
make object box 17,400,50,50
position object 17,-400,-100,0
`texture object 17,2
`make static object 17
make static collision box -600,-125,-25,-200,-75,25

make object box 18,400,50,50
position object 18,400,-100,0
`texture object 18,2
`make static object 18
make static collision box 200,-125,-25,600,-75,25

rem The third layer
make object box 19,800,50,50
position object 19,0,100,0
`texture object 19,2
`make static object 19
make static collision box -400,75,-25,400,125,25
return

rem Make the characters
makeplayers:

rem Make the player
make object cube 1,s#*2
color object 1,rgb(255,0,0)
make object collision box 1,0-s#,0-s#,0-s#,s#,s#,s#,0

rem Make the enemy
make object cube 2,es#*2
color object 2,rgb(255,255,0)
make object collision box 2,0-es#,0-es#,0-es#,es#,es#,es#,0


make object cube 3,es#*2
color object 3,rgb(255,0,255)
make object collision box 3,0-es#,0-es#,0-es#,es#,es#,es#,0

make object cube 4,es#*2
color object 4,rgb(0,0,255)
make object collision box 4,0-es#,0-es#,0-es#,es#,es#,es#,0

make object cube 5,es#*2
color object 5,rgb(0,255,255)
make object collision box 5,0-es#,0-es#,0-es#,es#,es#,es#,0
return

Back to top

Profile PM

Cpt Caveman

21

Years of Service

User Offline

Joined: 29th Aug 2002

Location: New Zealand

Posted: 2nd Jan 2003 00:10

Link

Also I noticed that in the orginal version the player and enemies jumped thru the platforms and landed on top of them, even though it is impossible in reallife. How would I go about this, the player would hit his head on the bottom of the platform in the codes present state??

Back to top

Profile PM

Cpt Caveman

21

Years of Service

User Offline

Joined: 29th Aug 2002

Location: New Zealand

Posted: 2nd Jan 2003 20:36

Link

Apparently this code has no problems at all on my friends computer, but mine has the same problem of stuck enemies in both DB1 and DBPro. Can people it test out to see if it works on theirs.

Back to top

Profile PM

soap_shoes

21

Years of Service

User Offline

Joined: 22nd Dec 2002

Location: United States

Posted: 3rd Jan 2003 19:40

Link

sure....once i have a pc w/ db on itlol!

noobie game designer

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Can someone help my collision problem, please??