Making a tile map - GameCreators Forum

Author

Message

Dr Manette

20

Years of Service

User Offline

Joined: 17th Jan 2006

Location: BioFox Games hq

Posted: 30th Aug 2006 04:35 Edited at: 30th Aug 2006 04:36

Link

I have the basic concept down of making a tile map. Most of this code:

backdrop off
sync on
sync rate 30

load image "grass.bmp",1

Load Image "empty.bmp", 2

load image "character.bmp",3

if map=0 then gosub create

Do
cls 0
sprite 1,charx,chary,1
sync
Loop

create:
PosY = 0

For X = 1 to 15
   For Y = 1 to 20
      Read Level
      paste image Level, 23 * (y - 1), PosY
      Next Y
   Inc PosY,23
Next X
map=1
return

Level:
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, 2, 2, 2, 2, 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, 2, 2, 2, 2, 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, 2, 2, 2, 2, 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

backdrop off
sync on
sync rate 30

load image "grass.bmp",1

Load Image "empty.bmp", 2

load image "character.bmp",3

if map=0 then gosub create

Do
cls 0
sprite 1,charx,chary,1
sync
Loop









create:
PosY = 0

For X = 1 to 15
   For Y = 1 to 20
      Read Level
      paste image Level, 23 * (y - 1), PosY
      Next Y
   Inc PosY,23
Next X
map=1
return



Level:
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, 2, 2, 2, 2, 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, 2, 2, 2, 2, 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, 2, 2, 2, 2, 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

is from a thread I found on the subject, but it was inconclusive. And yes, I have searched for this on the forum. What my code is suppose to do is first make my tile map and then the sprite (character) which will be able to be moved based on the tiles. But when I make the sprite the screen is blue. To fix that, I did backdrop off and cls 0 but those get rid of my tile map!

Could someone point me in the right direction. I heard there was a Stickied RPG toutorial around, but I haven't seen it. Any help would be appreciated.

(edit) Stratch that, I found it!

Bio Fox...four guys, one computer, games like nobody's business.

Back to top

Profile PM Email Website

Jack LOL

19

Years of Service

User Offline

Joined: 4th Aug 2006

Location: Near the CPU Close to the graphic card

Posted: 30th Aug 2006 11:45

Link

Basicly whats happening is that when u paste the images they stay but u dont keep pasting them so when u cls it clears the screen.
so what u need to do is to change them into sprites and put them in an array with types of num,posx,posy as i always do with those kind of things, and then u must keep showing them in the loop.

lol?! xD

Back to top

Profile PM

Cave Man

19

Years of Service

User Offline

Joined: 22nd Aug 2006

Location: North Carolina, US

Posted: 30th Aug 2006 15:20

Link

Like Jack said, your'e using cls, youv'e gotta refresh it every loop, here i made an example

`make sure you add your character stuff
sync on

Dim Tiles(1) as integer
Dim MAP(-1,-1) as integer

Width as integer
Height as integer

`make a grass tile so that this is medialess, change to your load image
MakeRectIm(1000, 32,32, RGB(0,255,0))
MakeRectIm(1001, 32,32, RGB(0,0,0))
`the tiles are hard coded, you should probably
Tiles(0) = 1001
Tiles(1) = 1000

`tell it to start reading at the label MapData
restore MapData
`read the width and height
read width
read height
`decrease it cause were starting at zero at all our loops
dec width
dec height
undim MAP()
`redim with the width and height
dim MAP(Width,Height) as integer

`loop through and read the data
for y = 0 to height
    for x = 0 to width
        read MAP(x,y)
    next x
next y

do
cls
`loop through and paste the images, you should probable put this in a function
for y = 0 to height
    for x = 0 to width
        paste image Tiles(MAP(x,y)), x * 32, y * 32
    next x
next y
` do your sprite here
sync
loop

`this makes a image of a rectangle so that we dont need media for this example
Function MakeRectIm(ImNum as integer, IWidth as integer, IHeight as integer, Color as Dword)
    create bitmap 32, IWidth, IHeight
    ink Color, 0
    box 0,0,IWidth, IHeight
    get image ImNum, 0,0, IWidth, IHeight, 3
    delete bitmap 32
endfunction

`all the map data
MapData:
`width and height are now here
data 20,15
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
return

+ Code Snippet

`make sure you add your character stuff
sync on

Dim Tiles(1) as integer
Dim MAP(-1,-1) as integer

Width as integer
Height as integer

`make a grass tile so that this is medialess, change to your load image
MakeRectIm(1000, 32,32, RGB(0,255,0))
MakeRectIm(1001, 32,32, RGB(0,0,0))
`the tiles are hard coded, you should probably
Tiles(0) = 1001
Tiles(1) = 1000

`tell it to start reading at the label MapData
restore MapData
`read the width and height
read width
read height
`decrease it cause were starting at zero at all our loops
dec width
dec height
undim MAP()
`redim with the width and height
dim MAP(Width,Height) as integer

`loop through and read the data
for y = 0 to height
    for x = 0 to width
        read MAP(x,y)
    next x
next y





do
cls
`loop through and paste the images, you should probable put this in a function
for y = 0 to height
    for x = 0 to width
        paste image Tiles(MAP(x,y)), x * 32, y * 32
    next x
next y
` do your sprite here
sync
loop

`this makes a image of a rectangle so that we dont need media for this example
Function MakeRectIm(ImNum as integer, IWidth as integer, IHeight as integer, Color as Dword)
    create bitmap 32, IWidth, IHeight
    ink Color, 0
    box 0,0,IWidth, IHeight
    get image ImNum, 0,0, IWidth, IHeight, 3
    delete bitmap 32
endfunction

`all the map data
MapData:
`width and height are now here
data 20,15
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
return

hope i helped.

Back to top

Profile PM

Dr Manette

20

Years of Service

User Offline

Joined: 17th Jan 2006

Location: BioFox Games hq

Posted: 4th Sep 2006 04:47

Link

Okay, thanks everyone. I've got that fixed now.

Bio Fox...four guys, one computer, games like nobody's business.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

2D All the way! / Making a tile map