Need to read map from file and print the map [DB Pro]

Author

Message

filya

18

Years of Service

User Offline

Joined: 23rd Aug 2006

Location: USA

Posted: 17th Apr 2007 03:06 Edited at: 17th Apr 2007 03:06

Link

My code :

+ Code Snippet

sync on:sync rate 45
set window on:set window size 500,500

open to read 1,"map.txt"

read string 1, s$
TilesX = val(s$)
read string 1, s$
TilesY = val(s$)


dim TileMap(TilesX,TilesY)

for row = 1 to TilesY
   read string 1,s$
   for col = 1 to TilesX
      value = read byte from file ("map.txt",col)
      Tilemap(row, col) = value
   next col
next row

close file 1


set text size 20

for row=1 to TilesY
   for col=1 to TilesX
      posx=10*col:posy=10*row
      s$=str$(Tilemap(row,col))
      text posx,posy,s$
      sync
   next col
next row


wait key

My map file :

+ Code Snippet

25
25
5555555555555555555555555
5555555555555555555555555
0000000000000000000000055
0000000000000000000000055
5500555555555555555500055
5500555555555555555500055
5500550000000000000000000
5500550000000000000000000
5500550055555555500550055
5500550055555555500550055
5500550055555555500550055
5500550055555555500550055
5500550055555555500550055
5500550055555555500550055
5500550055555555500550055
5500550055555555500550055
5500550055555555500550055
5500550000000000000550055
5500550000000000000550055
5500555555555555555550055
5500555555555555555550055
5500000000000000000000055
5500000000000000000000055
5555555555555555555555555
5555555555555555555555555

1. I am unable to perform the read and print. I guess I have goofed up someplace. Could someone please help me find out my mistake?

2. How would I go about this, if instead of numbers in the map, I used characters? (say 'X' instead of '5' and a 'blank space' instead of '0')

Thank you very much for the anticipated help,

-filya

-- game dev is fun...but taking up too much time --

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 18th Apr 2007 00:30

Link

Try this:

+ Code Snippet

set window on:set window size 640,480
Sync On: Sync Rate 0
open to read 1,"map.txt"
  read string 1, s$: TilesX = val(s$)
  read string 1, s$: TilesY = val(s$)

  dim TileMap(TilesX,TilesY)
  for row = 1 to TilesY
     read string 1,s$: Rem << This reads a whole row in - NOT a single character!
     for col = 1 to TilesX
        Rem value = read byte from file ("map.txt",col)  << So this isn't required
        value = VAL(Mid$(s$,Col)): Rem  << This is!
        Tilemap(row, col) = value
     next col
  next row
close file 1

Set Text Font "Courier"
set text size 20
for row=1 to TilesY
   for col=1 to TilesX
      posx=12*col: posy=16*row
      If Tilemap(row,col) = 0
        S$=" "
      Else
        S$="X"
      Endif
      text posx,posy,s$
   next col
   Sync
next row

wait key

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

filya

18

Years of Service

User Offline

Joined: 23rd Aug 2006

Location: USA

Posted: 18th Apr 2007 00:50 Edited at: 18th Apr 2007 07:38

Link

Thank you very much for your help TDK!

The thing works perfectly now. Thanks for pointing out my errors too!
Appreciate your quick help.

edit: For the 2nd part of my question, I guess I didn't convey my question correctly.
Actually it is :

If in the map file, I had characters 'X' and ' '(blank) in place of the numbers, how would the code to read the file be different now? I am not too sure how it should change to accomodate that since I would not want to use the 'val' to change the character to an integer and then use 'str$' to convert the integer back to a character.

-- game dev is fun...but taking up too much time --

Back to top

Profile PM Email Website

Green7

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: Switzerland

Posted: 3rd May 2007 23:50

Link

yes, it would be nice if you could make the "map.txt" with letters instead of numbers, so you could get a bigger variety, as you got 24 letters instead of only 10 numbers...

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Need to read map from file and print the map [DB Pro]