Tile based collision help - GameCreators Forum

Author

Message

Darksyde

21

Years of Service

User Offline

Joined: 13th Sep 2003

Location: Staffordshire, UK

Posted: 17th Aug 2004 06:22

Link

Righto, I've started making a game, well its just a level at the moment. Im using data statements to load in the 32*32 level tiles ala mario, but now i haven't got the foggiest how to make it so that my player sprite will stay on top of the ones that are platforms. Could someone please point me in the right direction, or give me some help. I could do with it being explained quite well, as my brains like a sieve... and i tend to kinda think i understand it when i actually dont a lot of the time.

Cheers

Im willing to find out what impossible means.

Back to top

Profile PM Email

Darksyde

21

Years of Service

User Offline

Joined: 13th Sep 2003

Location: Staffordshire, UK

Posted: 17th Aug 2004 06:23

Link

Sorry about double post. I couldnt find an edit button.

Also I intend on making the level scroll eventually. Will using data statements cause any problems with this?

Im willing to find out what impossible means.

Back to top

Profile PM Email

Emperor Baal

21

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 17th Aug 2004 09:00

Link

My tutorial covers that, click on the web button below my sig.

Back to top

Profile PM Email Website

Darksyde

21

Years of Service

User Offline

Joined: 13th Sep 2003

Location: Staffordshire, UK

Posted: 17th Aug 2004 09:06

Link

Thank you. That's just what I'm looking for. Lol, I had checked your site before, but somehow missed the tutorial. Anyways thanks a lot, I've bookmarked it for now. Will have a read through it in the morning.

Cheers

Im willing to find out what impossible means.

Back to top

Profile PM Email

Darksyde

21

Years of Service

User Offline

Joined: 13th Sep 2003

Location: Staffordshire, UK

Posted: 18th Aug 2004 20:22

Link

Hi. After looking through your tutorial I'm slightly confused. In the bit of code I've been using to draw my map, I haven't yet used arrays... which is probably my problem. I've just used the for loop with the data. I guess I need to pass those values into an array so I can redraw the map each loop, yes/no? Also, I notice that your tutorial says for DarkBasic Classic, I'm using DBPro (sorry, I should have mentioned) will this cause any problems?

Cheers

Im willing to find out what impossible means.

Back to top

Profile PM Email

Emperor Baal

21

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 18th Aug 2004 21:08

Link

It works perfectly with dbpro. You can use data as well, but I prefer arrays. You can create a new array, dim tiles(x,y), and use a for loop to load in the values from the datablock.

Back to top

Profile PM Email Website

Darksyde

21

Years of Service

User Offline

Joined: 13th Sep 2003

Location: Staffordshire, UK

Posted: 19th Aug 2004 00:05

Link

I couldn't really follow your tutorial, sorry.
This is my code so far,

+ Code Snippet

Rem Project: tilegame
Rem Created: 18/08/2004 13:06:55

Rem ***** Main Source File *****
flush video memory
sync on : sync rate 0
hide mouse

load image "background.jpg", 1
load image "platform.jpg", 2
load image "player.jpg", 3

dim map(5,5)


for y = 1 to 5
for x = 1 to 5
read map(x,y)
next x
next y

do
rem draw map
for y = 1 to 5
for x = 1 to 5

if map(x,y) = 0 then paste image 1, x * 32 - 32, y * 32 - 32
if map(x,y) = 1 then paste image 2, x * 32 - 32, y * 32 - 32

next x
next y

rem draw player
paste image 3, xpos, ypos

rem control
if upkey()=1 then dec ypos,1
if downkey()=1 then inc ypos,1
if leftkey()=1 then dec xpos,1
if rightkey()=1 then inc xpos,1



sync
cls
loop


data 0,0,0,0,0
data 0,0,0,0,0
data 0,0,0,0,0
data 0,0,0,0,0
data 1,1,1,1,1

Is there a way of dividing the whole screen up into 32*32 to tiles, and then locating which one the player is in? I guess this would also involve arrays. The I suppose I'd need to compare that array with the one that draws my map or something to find out which tiles cant be moved into... I guess I need just a very basic example of this.

Cheers

Im willing to find out what impossible means.

Back to top

Profile PM Email

Emperor Baal

21

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 19th Aug 2004 02:00 Edited at: 19th Aug 2004 02:02

Link

This code works with 32x32 tiles and a 32x32 mario. Otherwise you'll have to change it here and there.

sync on
sync rate 60

rem Create and fill the array
dim map(5,5)

data 1,1,1,1,1
data 1,1,1,1,1
data 1,1,1,1,1
data 1,1,1,1,1
data 2,2,2,2,2

for a=0 to 4
   for b=0 to 4
       rem Read it this way, if you use a,b then the array will be filled wrong (rotating the field 270 degrees)
       read map(b,a)
   next b
next a

rem Load the tiles
load image "background.bmp", 1
load image "platform.bmp", 2

rem Load the player (keep the image number high enough, so you can
rem load more tiles later).
load image "mario.bmp", 1000

mario_x = 32
mario_y = 0
mario_img = 1000

do

rem Paste the tiles
for a=0 to 4
    for b=0 to 4
        img = map(a,b)
        paste image img, a*32,b*32
    next b
next a

rem Get mario's new coordinates

rem Pull Mario down (gravity)
mario_y = mario_y + 3
if map(int(mario_x / 32),int(mario_y / 32)+1) = 2
   mario_y = (int(mario_y / 32) - 1) * 32 + 31
endif

rem Move him with the keys
x_move = rightkey() - leftkey()
mario_x = mario_x + x_move

if map(int(mario_x / 32),int(mario_y / 32)) = 2
   if x_move < 0
      mario_x = (int(mario_x / 32) + 1)*32
   else
      mario_x = (int(mario_x / 32) - 1)*32 + 31
   endif
endif

paste image mario_img, mario_x, mario_y

sync
cls
loop

+ Code Snippet

sync on
sync rate 60

rem Create and fill the array
dim map(5,5)

data 1,1,1,1,1
data 1,1,1,1,1
data 1,1,1,1,1
data 1,1,1,1,1
data 2,2,2,2,2

for a=0 to 4
   for b=0 to 4
       rem Read it this way, if you use a,b then the array will be filled wrong (rotating the field 270 degrees)
       read map(b,a)
   next b
next a

rem Load the tiles
load image "background.bmp", 1
load image "platform.bmp", 2

rem Load the player (keep the image number high enough, so you can
rem load more tiles later).
load image "mario.bmp", 1000



mario_x = 32
mario_y = 0
mario_img = 1000

do

rem Paste the tiles
for a=0 to 4
    for b=0 to 4
        img = map(a,b)
        paste image img, a*32,b*32
    next b
next a

rem Get mario's new coordinates

rem Pull Mario down (gravity)
mario_y = mario_y + 3
if map(int(mario_x / 32),int(mario_y / 32)+1) = 2
   mario_y = (int(mario_y / 32) - 1) * 32 + 31
endif

rem Move him with the keys
x_move = rightkey() - leftkey()
mario_x = mario_x + x_move

if map(int(mario_x / 32),int(mario_y / 32)) = 2
   if x_move < 0
      mario_x = (int(mario_x / 32) + 1)*32
   else
      mario_x = (int(mario_x / 32) - 1)*32 + 31
   endif
endif

paste image mario_img, mario_x, mario_y

sync
cls
loop

I guess I should update my tutorial, using this better method.

Back to top

Profile PM Email Website

Darksyde

21

Years of Service

User Offline

Joined: 13th Sep 2003

Location: Staffordshire, UK

Posted: 19th Aug 2004 04:18

Link

Thanks again. Im still running into problems unfortunately. My source code is below...

Rem Project: tilegame
Rem Created: 18/08/2004 13:06:55

Rem ***** Main Source File *****

rem setup
flush video memory
set display mode 640,480,16
sync on : sync rate 60
hide mouse

rem colorkey
set image colorkey 255,0,255

rem load media
load image "player.bmp", 1000
load image "background.jpg", 1
load image "platform.jpg", 2
load image "title_bar.bmp",1001

rem create sprites
create animated sprite 1, "player.bmp", 4, 1, 1000

rem create map array
dim map(20,15)

rem read data into map array
for y = 1 to 15
for x = 1 to 20
read map(x,y)
next x
next y

do
rem draw map
for y = 1 to 15
for x = 1 to 20

paste image map(x,y), x * 32 - 32, y * 32 - 32

next x
next y

rem draw title_bar
paste image 1001, 192, 0

rem display fps
print "fps:";screen fps()

rem gravity effect
ypos = ypos + 3

rem check player position and adjust ypos if collision with tile 2
if map(int(xpos / 32),int(ypos / 32)+1) = 2
   ypos = (int(ypos / 32) - 1) * 32 + 31
endif

rem move player using keys
x_move = rightkey() - leftkey()
xpos = xpos + x_move

rem check player position and adjust xpos if collision with tile 2
if map(int(xpos / 32),int(ypos / 32)) = 2
if x_move < 0
      xpos = (int(xpos / 32) + 1)*32
   else
      xpos = (int(xpos / 32) - 1)*32 + 31
   endif
endif

rem update sprite position
sprite 1, xpos, ypos, 1000

sync
cls
loop

rem map data
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2

+ Code Snippet

Rem Project: tilegame
Rem Created: 18/08/2004 13:06:55

Rem ***** Main Source File *****

rem setup
flush video memory
set display mode 640,480,16
sync on : sync rate 60
hide mouse

rem colorkey
set image colorkey 255,0,255

rem load media
load image "player.bmp", 1000
load image "background.jpg", 1
load image "platform.jpg", 2
load image "title_bar.bmp",1001

rem create sprites
create animated sprite 1, "player.bmp", 4, 1, 1000


rem create map array
dim map(20,15)

rem read data into map array
for y = 1 to 15
for x = 1 to 20
read map(x,y)
next x
next y


do
rem draw map
for y = 1 to 15
for x = 1 to 20

paste image map(x,y), x * 32 - 32, y * 32 - 32

next x
next y

rem draw title_bar
paste image 1001, 192, 0


rem display fps
print "fps:";screen fps()



rem gravity effect
ypos = ypos + 3

rem check player position and adjust ypos if collision with tile 2
if map(int(xpos / 32),int(ypos / 32)+1) = 2
   ypos = (int(ypos / 32) - 1) * 32 + 31
endif

rem move player using keys
x_move = rightkey() - leftkey()
xpos = xpos + x_move

rem check player position and adjust xpos if collision with tile 2
if map(int(xpos / 32),int(ypos / 32)) = 2
if x_move < 0
      xpos = (int(xpos / 32) + 1)*32
   else
      xpos = (int(xpos / 32) - 1)*32 + 31
   endif
endif

rem update sprite position
sprite 1, xpos, ypos, 1000




sync
cls
loop

rem map data
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2

The collision isn't working correctly... its like offset by a tile I think. (down one and right one)

Im willing to find out what impossible means.

Back to top

Profile PM Email

Emperor Baal

21

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 19th Aug 2004 08:59

Link

Play around with these numbers:

+ Code Snippet

rem check player position and adjust ypos if collision with tile 2
if map(int(xpos / 32),int(ypos / 32)+1) = 2
   ypos = (int(ypos / 32) - 1) * 32 + 31
endif

rem move player using keys
x_move = rightkey() - leftkey()
xpos = xpos + x_move

rem check player position and adjust xpos if collision with tile 2
if map(int(xpos / 32),int(ypos / 32)) = 2
if x_move < 0
      xpos = (int(xpos / 32) + 1)*32
   else
      xpos = (int(xpos / 32) - 1)*32 + 31
   endif
endif

Add a -2, -1, +1, +2 or nothing at all at these places:

rem These for Y offset
if map(int(xpos / 32),int(ypos / 32)+1) = 2
ypos = (int(ypos / 32) -1) * 32 + 31
endif

rem These for X offset
if map(int(xpos / 32)+0,int(ypos / 32)) = 2
if x_move < 0
xpos = (int(xpos / 32) + 1)*32
else
xpos = (int(xpos / 32) - 1)*32 + 31
endif
endif

Back to top

Profile PM Email Website

Darksyde

21

Years of Service

User Offline

Joined: 13th Sep 2003

Location: Staffordshire, UK

Posted: 19th Aug 2004 20:25

Link

Yer, I managed to get the y-axis one right last night, by changing;

if map(int(xpos / 32),int(ypos / 32)+1) = 2
to
if map(int(xpos / 32),int(ypos / 32)+2) = 2

but I still haven't found the right combination for the x-axis.

Cheers

Im willing to find out what impossible means.

Back to top

Profile PM Email

Darksyde

21

Years of Service

User Offline

Joined: 13th Sep 2003

Location: Staffordshire, UK

Posted: 24th Aug 2004 07:23

Link

*bump* im still having the above problem. I can't get the x-axis collision working right. Anybody got any ideas at where I need to alter... Im pretty certain I tried all the combinations that were mentioned above.

Cheers

Im willing to find out what impossible means.

Back to top

Profile PM Email