Reading 2d tilemap data - GameCreators Forum

Author

Message

Tym

20

Years of Service

User Offline

Joined: 31st Oct 2005

Location:

Posted: 1st Nov 2005 04:57

Link

I'm new to doing 2d stuff in DarkBASIC Pro. I while back I was able to display a tilemap but I since lost my source code for it. But I remember I didn't use the Data and Read statements to do it, but that's what I want to do this time bcause I'm going to have external files that contain the map data (eventually). I've looked at the 2d concept thread that is pinned at the top and although I get the concept, I'm having problem with the actual READ statement.

Here is a piece of my code. There is something wrong when it tries to populate the array with the DATA. I got the example from another thread.

+ Code Snippet

dim world(9,9)

restore worlddata:

for indexY=0 to 9
for indexX=0 to 9
tilenum = read values
world(indexX,indexY)=tilenum
next indexX
next indexY

for indexY=0 to 9
for indexX=0 to 9
print world(indexX,indexY)
next indexX
next indexY


worlddata:
`layer 0
data 0,0,0,1,1,1,1,0,0,0
data 0,0,1,0,0,0,0,1,0,0
data 0,1,0,0,0,0,0,0,1,0
data 1,0,2,2,0,0,2,2,0,1
data 1,0,2,2,0,0,2,2,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,3,0,0,0,0,3,0,1
data 0,1,0,3,3,3,3,0,1,0
data 0,0,1,0,0,0,0,1,0,0
data 0,0,0,1,1,1,1,0,0,0

I'm trying to print the array out so I can tell if it's populated with the correct data, but it says it can't determine the parameter type of my "read values." To be honest I just left it as it was in the example. The documentation doesn't really help me to determine what it is I'm actually supposed to "read" I'm assuming since values is not a declared variable that is the problem. But I don't know what I should put there instead.

Any help would be apprciated.

Back to top

Profile PM

Oraculaca

23

Years of Service

User Offline

Joined: 6th Jan 2003

Location: Scotland

Posted: 1st Nov 2005 10:52

Link

change 'tilenum = read values'

to

'read tilenum'

Back to top

Profile PM

Oraculaca

23

Years of Service

User Offline

Joined: 6th Jan 2003

Location: Scotland

Posted: 1st Nov 2005 11:01 Edited at: 1st Nov 2005 11:14

Link

Here it is in a more readable form

+ Code Snippet

dim world(9,9)

restore worlddata:

for indexY=0 to 9
for indexX=0 to 9
read tilenum
world(indexX,indexY)=tilenum
next indexX
next indexY

for indexY=0 to 9
for indexX=0 to 9
text indexX*10,indexy*10,str$(world(indexX,indexY))
next indexX
next indexY
suspend for key

worlddata:
`layer 0
data 0,0,0,1,1,1,1,0,0,0
data 0,0,1,0,0,0,0,1,0,0
data 0,1,0,0,0,0,0,0,1,0
data 1,0,2,2,0,0,2,2,0,1
data 1,0,2,2,0,0,2,2,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,3,0,0,0,0,3,0,1
data 0,1,0,3,3,3,3,0,1,0
data 0,0,1,0,0,0,0,1,0,0
data 0,0,0,1,1,1,1,0,0,0

And once more in colour:

+ Code Snippet

dim world(9,9)

box 0,10,20,20
ink 56000,0
box 10,10,20,20
ink 99999,0
box 20,10,30,20
ink 4990000,0
box 30,10,40,20
get image 1,10,10,20,20
get image 2,20,10,30,20
get image 3,30,10,40,20
paste image 2,100,100

cls

restore worlddata:

for indexY=0 to 9
 for indexX=0 to 9
  read tilenum
  world(indexX,indexY)=tilenum
 next indexX
next indexY

for indexY=0 to 9
 for indexX=0 to 9
  if world(indexX,indexY)>0
   paste image world(indexX,indexY),indexX*10,indexY*10
 endif
 next indexX
next indexY

suspend for key
worlddata:
`layer 0
data 0,0,0,1,1,1,1,0,0,0
data 0,0,1,0,0,0,0,1,0,0
data 0,1,0,0,0,0,0,0,1,0
data 1,0,2,2,0,0,2,2,0,1
data 1,0,2,2,0,0,2,2,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,3,0,0,0,0,3,0,1
data 0,1,0,3,3,3,3,0,1,0
data 0,0,1,0,0,0,0,1,0,0
data 0,0,0,1,1,1,1,0,0,0

Back to top

Profile PM

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 1st Nov 2005 23:58

Link

Quote: "I'm new to doing 2d stuff in DarkBASIC Pro. I while back I was able to display a tilemap but I since lost my source code for it. But I remember I didn't use the Data and Read statements to do it, but that's what I want to do this time bcause I'm going to have external files that contain the map data (eventually). "

Actually if you want to use data statements you have to have the data in the code... you can't have it in an external file. The data has to be in the code so it can be read. I would use your first method and read/write files rather than use data statements. You did it once... you can do it again.

Back to top

Profile PM Email

Tym

20

Years of Service

User Offline

Joined: 31st Oct 2005

Location:

Posted: 2nd Nov 2005 19:33

Link

JOHN: Thanks! That helped a lot.

Grog: I'm working from the manual the referance manual that came with DBPro and trying to pick stuff up as I go since there aren't that many 2D tutorials. If I have a file (let's call it map.txt) that looked like this:
0,0,0,0,0
1,0,0,1,1
0,0,1,0,0
0,0,0,0,0
1,1,1,1,1

and I did a read file, I assume it would look something like this:

+ Code Snippet

OPEN TO READ 1,"map.txt"
READ FILE 1, mapData

What I don't understand is how to display the data from this point. How would I read mapData into an array to be displayed? Or is there some other approach that I'm missing?

Back to top

Profile PM

mr joe

21

Years of Service

User Offline

Joined: 12th Aug 2004

Location: Edinburger, Scotland. DBC

Posted: 11th Nov 2005 15:29

Link

I've just been trying to do the same thing as you I think. I have DBC, so I'm not sure if there is an easier way to do it in Pro, but you can use something like this to read your data into an array.

First you have to format it correctly in the .txt file, thats what I put my data in. So create a .txt (say map.txt) file, something like:
11111
10001
10001
10001
11111

Then the program might look like:

+ Code Snippet

`create your map array - it needs to be 2 larger in the first
`element than you need (see below)
dim map (7,5)

`now check if the file is already open and either 'restore' it,
`set the pointer to the beginning of the file again if it is open
`or open it if it isn't open
if file open(1)
restore
else
open to read 1,"map.txt"
endif

`now read the data into an array - the 'read byte' command takes one
`byte at a time, it gives you the ascii value so you have -48 to get
`the correct number.
`also notice the x value is 6 when it only needs to be 4. this is
`because in a .txt file there will be two extra bytes at the end of
`each line to do with the formating. you can just not use these extra
`pieces. I found that easier than trying to write in an 'if then' to
`stop it reading them.
for y=0 to 4
for x=0 to 6
read byte 1,value
map(x,y) = value-48
next x
next y

Hope that helps and isn't too confusing.

Joe

[href=http://www.mrexplode.tk]Huzzah![href]

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 11th Nov 2005 19:33

Link

Quote: "Grog: I'm working from the manual the referance manual that came with DBPro and trying to pick stuff up as I go since there aren't that many 2D tutorials. If I have a file (let's call it map.txt) that looked like this:
0,0,0,0,0
1,0,0,1,1
0,0,1,0,0
0,0,0,0,0
1,1,1,1,1
"

I'm sorry I didn't reply sooner... I somehow missed your message as being new. The easiest way to save and load map data is by the commands "save array" and "load array". Those commands take all the guesswork from reading/writing information. And "save array" doesn't require deleting the file before it can save. I really love those commands because they only use one line to put the entire file into the array.

+ Code Snippet

dim Map(100,100)

` Make random map data
for x=0 to 100
 for y=0 to 100
  Map(x,y)=rnd(10)
 next y
next x

save array "map.txt",Map()

` Clear data to show it's working
for x=0 to 100
 for y=0 to 100
  Map(x,y)=0
 next y
next x

load array "map.txt",Map()

` Print a 20x20 chunk of map data
for x=0 to 20
 for y=0 to 20
  print str$(Map(x,y))+",";
 next y
 print ""
next x

wait key

Back to top

Profile PM Email

Sorry your browser is not supported!

2D All the way! / Reading 2d tilemap data