Loading a map from a file & collisions

Author

Message

xSpadez

12

Years of Service

User Offline

Joined: 11th Apr 2012

Location: 127.0.0.1

Posted: 12th Apr 2012 05:20

Link

Hello,

I have been reading tutorials/programming basic stuff and have a pretty nice grasp of the basics in DBPro so now I decided to make a game instead of these mini tech demos >_>. Basically the environment, player, baddies, are all keyboard (ASCII) characters. I got movement setup and basic AI + rewards system at the moment, But I want to add the ability to load the maps from text files so I can update them and people can add to the game. The maps are just Asterisks (*) for walls and $ for money, etc etc. Now I'm trying to figure out how to make it as simple as possible to make the map, save and then load when neccesary. So I know I have to load in the same way I saved the data like the coords to the objects and walls. How do I actually make the map and have it save the data? I started with:

DIM Map(20,20) <-- 20x20 map

So each numb is a plot on the grid and holds a character like a wall (*) or another object. How would I go about putting the actual object there and then saving the positions of it since these aren't sprites there just ASCII characters?

Another thing I'm struggling with is collision with the walls/baddies etc. If these were object/sprites I could add collision easily but their not so I guess checking the pixels around the Player and if it goes into a wall it would be a diff color so it checks with POINT command?

Sorry for the long text but I'm just trying to explain best as possible and I really don't know where to start off here.

Thanks,

xSpadez

xSpadez - Like a baws

Back to top

Profile PM

Lewis999

14

Years of Service

User Offline

Joined: 23rd Oct 2010

Location:

Posted: 12th Apr 2012 19:06

Link

I don't know how to do it exactly like you described, but If the map is on one row (make it how you would normally then delete the "returns") then this should work:

+ Code Snippet

Rem Project: test
Rem Created: Thursday, April 12, 2012

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

open to read 1,"test.txt"
    read string 1,test$
close file 1

dim map$(20,20)
for x = 0 to 19
    for y = 1 to 20
        map$(x+1,y) = mid$(test$,x*20+y)
    next y
next x

dim row$(20)
for x = 1 to 20
    for y = 1 to 20
        row$(x) = row$(x)+" "+map$(x,y)
    next y
NEXT x

for x = 1 to 20
    print row$(x)
NEXT

wait key
end

test.txt(in the same folder,must be 20x20(400) characters long):

+ Code Snippet

****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************

^all that's on one line, I'm sure It's possible to do it exactly how you said, but I don't know how >.<

Back to top

Profile PM

Lewis999

14

Years of Service

User Offline

Joined: 23rd Oct 2010

Location:

Posted: 12th Apr 2012 19:43

Link

Sorry for the double post, I couldn't just edit the previous one because it hasn't been verified yet

I just remembered how to load separate rows, can't believe I forgot >.<

+ Code Snippet

Rem Project: test
Rem Created: Thursday, April 12, 2012

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

dim row$(20)

open to read 1,"test.txt"
    for r = 1 to 20
        read string 1,row$(r)
    next r
close file 1

//conerting to 2 dimentional array
dim map$(20,20)
for x = 1 to 20
    for y = 1 to 20
        map$(x,y) = mid$(row$(x),y)
    next y
next x

//clears row$()
for x = 1 to 20
        row$(x) = ""
NEXT x

// puts a space between each character, to make it look square :)
for x = 1 to 20
    for y = 1 to 20
        row$(x) = row$(x)+" "+map$(x,y)
    next y
NEXT x

for x = 1 to 20
    print row$(x)
NEXT

wait key
end

Also, I'm bored.
epic loading screen is epic

Rem Project: test
Rem Created: Thursday, April 12, 2012

Rem ***** Main Source File *****
sync on : sync rate 5
dim row$(20)
open to read 1,"test.txt"
    for r = 1 to 20
        read string 1,row$(r)
    next r
close file 1
//conerting to 2 dimentional array
dim map$(20,20)
for x = 1 to 20
    for y = 1 to 20
        map$(x,y) = mid$(row$(x),y)
    next y
next x
meh = 1
also_meh = 10
do
    cls
    if meh = 21 then meh = 1
    if also_meh = 21 then also_meh = 1
    for x = 1 to 20
        for y = 1 to 20
            map$(x,y) = "*"
            if x = meh or y = meh then map$(x,y) = "#"
            if x = also_meh or y = also_meh then map$(x,y) = "0"
        next y
    next x
    inc meh
    inc also_meh
    //clears row$()
    for x = 1 to 20
            row$(x) = ""
    NEXT x
    // puts a space between each character, to make it look square :)
    for x = 1 to 20
        for y = 1 to 20
            row$(x) = row$(x)+" "+map$(x,y)
        next y
    NEXT x
    for x = 1 to 20
      print row$(x)
    NEXT
    sync
LOOP

+ Code Snippet

Rem Project: test
Rem Created: Thursday, April 12, 2012

Rem ***** Main Source File *****
sync on : sync rate 5
dim row$(20)
open to read 1,"test.txt"
    for r = 1 to 20
        read string 1,row$(r)
    next r
close file 1
//conerting to 2 dimentional array
dim map$(20,20)
for x = 1 to 20
    for y = 1 to 20
        map$(x,y) = mid$(row$(x),y)
    next y
next x
meh = 1
also_meh = 10
do
    cls
    if meh = 21 then meh = 1
    if also_meh = 21 then also_meh = 1
    for x = 1 to 20
        for y = 1 to 20
            map$(x,y) = "*"
            if x = meh or y = meh then map$(x,y) = "#"
            if x = also_meh or y = also_meh then map$(x,y) = "0"
        next y
    next x
    inc meh
    inc also_meh
    //clears row$()
    for x = 1 to 20
            row$(x) = ""
    NEXT x
    // puts a space between each character, to make it look square :)
    for x = 1 to 20
        for y = 1 to 20
            row$(x) = row$(x)+" "+map$(x,y)
        next y
    NEXT x
    for x = 1 to 20
      print row$(x)
    NEXT
    sync
LOOP

Back to top

Profile PM

nonZero

13

Years of Service

User Offline

Joined: 10th Jul 2011

Location: Dark Empire HQ, Otherworld, Silent Hill

Posted: 12th Apr 2012 22:11 Edited at: 12th Apr 2012 22:12

Link

Asking how to make the map's a little like asking "How should I draw?". There's only one correct answer and that's "Any darn way that makes you feel comfortable". Here's something I boiled up that will load your map quickly and create a graphical representation old-school-style.

NOTE this line: MapFile$ = "C:\Map.txt"
needs to be changed to point to wherever your map file is before running.

remstart
      nonZero's MazeMaker -   So awesome, you'll, you'll, --- OKAY IT SUX!
                              But that's not the point, it's an example!
                              ---
                              Back to the lesson

remend

MapFile$ = "C:\Map.txt"       `Place your map file here!

`Make some graphics to use
   INK RGB(200,200,200), RGB(0,0,0)       `The wall block
   BOX 0, 0, 20, 20
   GET IMAGE 1, 0, 0, 20, 20

CLS
   INK RGB(50,50,50), RGB(0,0,0)          `The floor block
   BOX 0, 0, 20, 20
   GET IMAGE 3, 0, 0, 20, 20

INK RGB(250,250,50), RGB(0,0,0)        `The Gold block (Note using the floor as a bg)
   CIRCLE 10, 10, 5
   GET IMAGE 2, 0, 0, 20, 20

CLS

`Working based on your method
   DIM Map(20, 20)

`We'll quickly load the data into strings
   DIM result$(20)
   OPEN TO READ 1, MapFile$
         FOR i = 1 TO 20
               READ STRING 1, result$(i)
         NEXT i
   CLOSE FILE 1

`Now we just use a nested FOR-loop to assign numeric values to your multi-dimensional array
   FOR row = 1 TO 20
         FOR col = 1 TO 20
               temp$ = MID$(result$(row), col)
               Map(row, col) = ASC(temp$)
         NEXT col
   NEXT row

`Actually MAKING the map aint much different
   FOR row = 1 TO 20
         FOR col = 1 TO 20
`             $36  *42
               IF Map(row, col) = 42
                     PASTE IMAGE 1, (row - 1) * 20, (col - 1) * 20
               ELSE
                     IF Map(row, col) = 36
                           PASTE IMAGE 2, (row - 1) * 20, (col - 1) * 20
                     ELSE
                           PASTE IMAGE 3, (row - 1) * 20, (col - 1) * 20
                     ENDIF
               ENDIF
         NEXT col
   NEXT row

WAIT KEY

+ Code Snippet

remstart
      nonZero's MazeMaker -   So awesome, you'll, you'll, --- OKAY IT SUX!
                              But that's not the point, it's an example!
                              ---
                              Back to the lesson

remend

   MapFile$ = "C:\Map.txt"       `Place your map file here!

`Make some graphics to use
   INK RGB(200,200,200), RGB(0,0,0)       `The wall block
   BOX 0, 0, 20, 20
   GET IMAGE 1, 0, 0, 20, 20

   CLS
   INK RGB(50,50,50), RGB(0,0,0)          `The floor block
   BOX 0, 0, 20, 20
   GET IMAGE 3, 0, 0, 20, 20

   INK RGB(250,250,50), RGB(0,0,0)        `The Gold block (Note using the floor as a bg)
   CIRCLE 10, 10, 5
   GET IMAGE 2, 0, 0, 20, 20

   CLS

`Working based on your method
   DIM Map(20, 20)

`We'll quickly load the data into strings
   DIM result$(20)
   OPEN TO READ 1, MapFile$
         FOR i = 1 TO 20
               READ STRING 1, result$(i)
         NEXT i
   CLOSE FILE 1

`Now we just use a nested FOR-loop to assign numeric values to your multi-dimensional array
   FOR row = 1 TO 20
         FOR col = 1 TO 20
               temp$ = MID$(result$(row), col)
               Map(row, col) = ASC(temp$)
         NEXT col
   NEXT row

`Actually MAKING the map aint much different
   FOR row = 1 TO 20
         FOR col = 1 TO 20
`             $36  *42
               IF Map(row, col) = 42
                     PASTE IMAGE 1, (row - 1) * 20, (col - 1) * 20
               ELSE
                     IF Map(row, col) = 36
                           PASTE IMAGE 2, (row - 1) * 20, (col - 1) * 20
                     ELSE
                           PASTE IMAGE 3, (row - 1) * 20, (col - 1) * 20
                     ENDIF
               ENDIF
         NEXT col
   NEXT row

   WAIT KEY

It's crude and ugly but it works

Hope this was what you were looking for.

PS: You can print ASCII characters by modifying the code a little. I just used graphics for the sake of illustration.

Back to top

Profile PM Email Website

Lewis999

14

Years of Service

User Offline

Joined: 23rd Oct 2010

Location:

Posted: 13th Apr 2012 16:13 Edited at: 13th Apr 2012 17:36

Link

nonZero, sorry for being a little off topic, but how do you get syntax highlighting to work in the code snippets? ^^

So this post isn't completely off topic, I'll throw some code that's slightly related to the OP in your face

//takes a map from  map.txt and makes it into a 3d scene. move player with wasd

sync on : sync rate 60
dim row$(100) : dim map$(100,100)
color backdrop rgb(10,10,10)
player_pos_x = 0 : player_pos_y = 0
map_size_x = 0 : map_size_y = 0
floor_color = rgb(100,100,100)

dot 0,0,floor_color
get image 1,0,0,1,1

r = 0
open to read 1,"map.txt"
    repeat 
        inc r
        read string 1,row$(r)
    until row$(r) = ""
close file 1
map_size_x = len(row$(1))
map_size_y = r - 1

for x = 1 to map_size_x
    for y = 1 to map_size_y
        map$(x,y) = mid$(row$(y),x)
    next y
next x
obj_no = 2
for x = 1 to map_size_x
    for y = 1 to map_size_y
        if map$(x,y) = "*"
            make object cube obj_no,10
            position object obj_no,x*10,0,y*10
            inc obj_no
        endif
        if map$(x,y) = "P"
            player_pos_x = x
            player_pos_y = y
        endif
    next y
next x

make matrix 1,map_size_x*10,map_size_y*10,map_size_x,map_size_y
position matrix 1,5,0,5
prepare matrix texture 1,1,1,1
set matrix wireframe off 1
make object cube 1,5
position object 1,player_pos_x*10,0,player_pos_y*10
position camera 105,190,105
point camera 105,0,105

do
if keystate(17) = 1 and u = 0 and map$(player_pos_x,player_pos_y+1) = "#"then inc player_pos_y : u = 1  
if keystate(17) = 0 then u = 0
if keystate(31) = 1 and d = 0 and map$(player_pos_x,player_pos_y-1) = "#"then dec player_pos_y : d = 1  
if keystate(31) = 0 then d = 0
if keystate(30) = 1 and l = 0 and map$(player_pos_x-1,player_pos_y) = "#"then dec player_pos_x : l = 1 
if keystate(30) = 0 then l = 0
if keystate(32) = 1 and r = 0 and map$(player_pos_x+1,player_pos_y) = "#" then inc player_pos_x : r = 1 
if keystate(32) = 0 then r = 0
position object 1,player_pos_x*10,0,player_pos_y*10
set camera to follow object position x(1),0,object position z(1),0,0,150,50,0
rotate camera 90,0,0
sync
loop

+ Code Snippet

//takes a map from  map.txt and makes it into a 3d scene. move player with wasd

sync on : sync rate 60
dim row$(100) : dim map$(100,100)
color backdrop rgb(10,10,10)
player_pos_x = 0 : player_pos_y = 0
map_size_x = 0 : map_size_y = 0
floor_color = rgb(100,100,100)


dot 0,0,floor_color
get image 1,0,0,1,1

r = 0
open to read 1,"map.txt"
    repeat 
        inc r
        read string 1,row$(r)
    until row$(r) = ""
close file 1
map_size_x = len(row$(1))
map_size_y = r - 1

for x = 1 to map_size_x
    for y = 1 to map_size_y
        map$(x,y) = mid$(row$(y),x)
    next y
next x
obj_no = 2
for x = 1 to map_size_x
    for y = 1 to map_size_y
        if map$(x,y) = "*"
            make object cube obj_no,10
            position object obj_no,x*10,0,y*10
            inc obj_no
        endif
        if map$(x,y) = "P"
            player_pos_x = x
            player_pos_y = y
        endif
    next y
next x

make matrix 1,map_size_x*10,map_size_y*10,map_size_x,map_size_y
position matrix 1,5,0,5
prepare matrix texture 1,1,1,1
set matrix wireframe off 1
make object cube 1,5
position object 1,player_pos_x*10,0,player_pos_y*10
position camera 105,190,105
point camera 105,0,105

do
if keystate(17) = 1 and u = 0 and map$(player_pos_x,player_pos_y+1) = "#"then inc player_pos_y : u = 1  
if keystate(17) = 0 then u = 0
if keystate(31) = 1 and d = 0 and map$(player_pos_x,player_pos_y-1) = "#"then dec player_pos_y : d = 1  
if keystate(31) = 0 then d = 0
if keystate(30) = 1 and l = 0 and map$(player_pos_x-1,player_pos_y) = "#"then dec player_pos_x : l = 1 
if keystate(30) = 0 then l = 0
if keystate(32) = 1 and r = 0 and map$(player_pos_x+1,player_pos_y) = "#" then inc player_pos_x : r = 1 
if keystate(32) = 0 then r = 0
position object 1,player_pos_x*10,0,player_pos_y*10
set camera to follow object position x(1),0,object position z(1),0,0,150,50,0
rotate camera 90,0,0
sync
loop

map.txt:

+ Code Snippet

*********##*********##******
*********##*********##*####*
*********##*********##*####*
*********##*********#######*
*********##*********##*####*
*********##*********##******
*********##*********##*####*
*********##*********##*####*
*********##*********##*####*
###########################*
P##########################*
*********##*********##*####*
***##############***##*####*
***#####*##*#####***##*####*
***##############***##******
*********##*********##******
***##############***##******
***#####*##*#####***##******
***##############***##******
*********##*********##******

edit: changed the code a little + put syntax highlighting on

Back to top

Profile PM

nonZero

13

Years of Service

User Offline

Joined: 10th Jul 2011

Location: Dark Empire HQ, Otherworld, Silent Hill

Posted: 13th Apr 2012 17:13

Link

@Lewis999:
[verbose explanation]
It's like so:
"[" + "code lang=dbp" + "]"
without the quotation marks or plusses. Take note of the spaces. I believe the "lang=" can be used to set highlighting for other languages like php, C, etc. Best way to learn if to subscribe to a thread (Enable mailback by checking the box above "Post Message" and then check your email which displays all forum code as raw text. For example, if you've subscribed to this thread already (mailback enabled), this

coffee will appear as "[" + "ic:coffee" + "]" in your email (without the +'s and quotes).
[/verbose explanation]

Back to top

Profile PM Email Website

Lewis999

14

Years of Service

User Offline

Joined: 23rd Oct 2010

Location:

Posted: 13th Apr 2012 17:37 Edited at: 13th Apr 2012 17:46

Link

Thanks

I just tried it on the post above and it works fine ^^
also, I think I'm having too much fun with the idea of a tile based rpg, loading the maps from a txt file, at this rate, I'll have map a map editor and dungeon generator within the next hour, and a combat system within 2 >.<

edit: oh, and @xSpadez:
If you're using a tile based system(if it's text based then I'm assuming you are), it's easy

. Just store the player co-ordinates as variables and when the player tries to move, check the place he is trying to move into to see if it is a solid block or not. eg:

+ Code Snippet

if keystate(17) = 1 and map$(player_pos_x,player_pos_y+1) = "#"then inc player_pos_y  //move up

(where "#" in the map.txt is nothing)
then just position the player at the 2 variables each loop

Back to top

Profile PM

xSpadez

12

Years of Service

User Offline

Joined: 11th Apr 2012

Location: 127.0.0.1

Posted: 13th Apr 2012 19:54

Link

Wow thanks for all the replies guys. I was away for a while so I didn't get to respond yet. I'm going to try out both examples and edit it a bit to fit. Thank you for helping me

xSpadez - Like a baws

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Loading a map from a file & collisions

Sorry your browser is not supported!

Newcomers DBPro Corner / Loading a map from a file &amp; collisions

Newcomers DBPro Corner / Loading a map from a file & collisions