How do I read DATA numbers? - GameCreators Forum

Author

Message

Mudbud Productions

13

Years of Service

User Offline

Joined: 1st May 2011

Location: Cloud 9

Posted: 24th May 2011 07:44 Edited at: 25th May 2011 23:12

Link

EDIT: NEVERMIND I finally GOT IT!! woohoo!! Thanks for the help ya'll

using DBPro 7.7
Ok, so I am trying to make a tile-based 2D map and have the following:

data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,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,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,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,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,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,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,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,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,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,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,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,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,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,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,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,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,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,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,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,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,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,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,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,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,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,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,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,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,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,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

How do I read this so that say 1 = grass; 0 = sky??
I also have a variable that holds the tile amount: dim FMap(40,15)
any help will be appreciated!

EDIT: NEVERMIND I finally GOT IT!! woohoo!! Thanks for the help ya'll

Your signature has been erased by a mod - no affiliate links thanks

Back to top

Profile PM

Kevin Picone

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 24th May 2011 17:13

Link

A nested FOR/NEXT loop would do. Something like this..

(untested)

+ Code Snippet

 for y=0 to 14
   For x=0 to 39 
       read Tile
       Map(x,y)=Tile 
    next x
 next y

Hmm, I wonder what's coming in 2011?

Back to top

Profile PM Website

Mudbud Productions

13

Years of Service

User Offline

Joined: 1st May 2011

Location: Cloud 9

Posted: 24th May 2011 20:34 Edited at: 25th May 2011 23:12

Link

i'm a total noob, how do I assign a sprite to the number? like 1 = grass; 0 = sky?

heres my code so far:

+ Code Snippet

Rem Project: DATA reading
Rem Created: Tuesday, May 24, 2011

Rem ***** Main Source File *****
set display mode 800,600,32
sync on
sync rate 60

gosub File:


dim map_grid(3,3)

load image "F:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\Load image\media\grass_tile.bmp",1
load image "F:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\Load image\media\water_tile.bmp",2
//paste image 3,0,0
gosub map_create

do
    
    print map_grid(1,3)
    sync
    
LOOP

map_create:
open to read 1, "C:/mapdata.txt"
for y=0 to 3
for x=0 to 3
read file 1,tile
map_grid(x,y) = tile
next x
next y
close file 1
return

File:
Open To Write 2,"C:/mapdata.txt"
Write File 2,1
Write File 2,1
Write File 2,1
Write File 2,1

Write File 2,1
Write File 2,2
Write File 2,2
Write File 2,1

Write File 2,1
Write File 2,2
Write File 2,2
Write File 2,1

Write File 2,1
Write File 2,1
Write File 2,1
Write File 2,1

Close File 2 
return

EDIT: Ok so I have a semi Working map thingy:

+ Code Snippet

dim MAP(2,2)
LOAD IMAGE "F:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\Load image\media\grass_tile.bmp",1
LOAD IMAGE "F:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\Load image\media\water_tile.bmp",2
for x = 0 to 7
 for y = 0 to 7
     read T
if T = 1 then PASTE IMAGE 1, 16*x,16*y
 NEXT x 
NEXT y

WAIT KEY

DATA 1,1,1,1,1
DATA 1,1,1,1,1
DATA 1,1,1,1,1
DATA 1,1,1,1,1

But how do I make it so that multiple tiles come in without overlapping eachother? so that the 1's look like their in the same place when put together in the DATA functions?

EDIT: NEVERMIND I finally GOT IT!! woohoo!! Thanks for the help ya'll

Your signature has been erased by a mod - no affiliate links thanks

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / How do I read DATA numbers?