Reading Specific Data - GameCreators Forum

Author

Message

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 10th Feb 2004 22:54

Link

Hey. I was wondeing how to read one tile in my DATA statement. The tile is 50x50. My map(DATA) is 14,10 The closest I could get was:

for x = 1 to 14
for y = 1 to 10
read map(4,4)
next x
next y

...

i know that this reads this:

DATA 1,1,1,1
DATA 1,0,0,0
DATA 1,0,0,0
DATA 1,0,0,0

but i want it to read just this:
DATA -,-,-,-
DATA -,-,-,-
DATA -,-,-,-
DATA -,-,-,4 <---just that

...the dashes indicate that i don't want it to be read. Does anyone know how to do this?
Thanks!

.....

Back to top

Profile PM

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Feb 2004 00:02 Edited at: 11th Feb 2004 00:05

Link

This is how you do it.

You can use a label with MyMap:
Then restore MYMap
This would just restore that part of the data, so you could restore something that happens after another set of Data.

rem ===========================================================
rem DARK BASIC EXAMPLE PROGRAM 6
rem ===========================================================
rem This program will show you how to use data command
rem -----------------------------------------------------------

rem Set the ink to white and paper color to black 
ink rgb(244,214,210),1
	
rem Read some data in
rem you must know what order the data is
rem if the first data is a number
rem then don`t read it has a string

print "read data in"
read name$
read address$		
read area$
read town$
read age
read height

print "NAME    = ",name$
print "ADDRESS = ",address$
print "AREA    = ",area$
print "TOWN    = ",town$
print "AGE     = ",age
print "HEIGHT  = ",height," ft"

rem Once the data has been read then to reread the same data
rem you must use the RESTORE command

rem this set the data pointer to myname
restore myname

print "reading data in again"
read name$
read address$		
read area$
read town$
read age
read height

print "NAME    = ",name$
print "ADDRESS = ",address$
print "AREA    = ",area$
print "TOWN    = ",town$
print "AGE     = ",age
print "HEIGHT  = ",height," ft"

rem if you do not reset the data pointer then the next read would read
rem the next set of data or there would be a error
rem out of data

print "reading the next lot of data"
read name$
read address$		
read area$
read town$
read age
read height	
print "NAME    = ",name$
print "ADDRESS = ",address$
print "AREA    = ",area$
print "TOWN    = ",town$
print "AGE     = ",age
print "HEIGHT  = ",height," ft"

print
print "press spacekey"
suspend for key
end

myname:
data "malcolm bamber"
data "124 long lane","leigh","wigan"
data 34,5
yourname:
data "lee bamber"
data "11 small lane","leigh","wigan on sea"
data 22,3

+ Code Snippet

rem ===========================================================
rem DARK BASIC EXAMPLE PROGRAM 6
rem ===========================================================
rem This program will show you how to use data command
rem -----------------------------------------------------------

rem Set the ink to white and paper color to black 
ink rgb(244,214,210),1
	
rem Read some data in
rem you must know what order the data is
rem if the first data is a number
rem then don`t read it has a string

print "read data in"
read name$
read address$		
read area$
read town$
read age
read height	

print "NAME    = ",name$
print "ADDRESS = ",address$
print "AREA    = ",area$
print "TOWN    = ",town$
print "AGE     = ",age
print "HEIGHT  = ",height," ft"

rem Once the data has been read then to reread the same data
rem you must use the RESTORE command

rem this set the data pointer to myname
restore myname

print "reading data in again"
read name$
read address$		
read area$
read town$
read age
read height	

print "NAME    = ",name$
print "ADDRESS = ",address$
print "AREA    = ",area$
print "TOWN    = ",town$
print "AGE     = ",age
print "HEIGHT  = ",height," ft"

rem if you do not reset the data pointer then the next read would read
rem the next set of data or there would be a error
rem out of data

print "reading the next lot of data"
read name$
read address$		
read area$
read town$
read age
read height	
print "NAME    = ",name$
print "ADDRESS = ",address$
print "AREA    = ",area$
print "TOWN    = ",town$
print "AGE     = ",age
print "HEIGHT  = ",height," ft"

print
print "press spacekey"
suspend for key
end

myname:
data "malcolm bamber"
data "124 long lane","leigh","wigan"
data 34,5
yourname:
data "lee bamber"
data "11 small lane","leigh","wigan on sea"
data 22,3

Back to top

Profile PM Email Website

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 11th Feb 2004 00:23

Link

Thanks Pincho.
What I'm trying to do is make it so if a sprite that I can move around on my map hits tile 1 then it stops. Here's what I have so far:

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=150
guyy=150

rem the map is 14 tiles by 10 tiles

dim map(14,10)

rem reads the map

for x = 1 to 14
for y = 1 to 10

read map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

do

sync

rem moves sprite

if upkey()=1 and move=true then guyy=guyy-5
if downkey()=1 and move=true then guyy=guyy+5
if leftkey()=1 and move=true then guyx=guyx-5
if rightkey()=1 and move=true then guyx=guyx+5

move=true

sprite 2,guyx,guyy,2

rem makes boundaries around the map

if guyx<105 then guyx=guyx+5
if guyx>645 then guyx=guyx-5
if guyy>445 then guyy=guyy-5
if guyy<105 then guyy=guyy+5

rem ***this is where I'm having trouble
rem I want to be able to read the data
rem at the position where the guy is. 
rem Example: If guyx=100 and guyy=100
rem then I want to read the tile that is
rem at (100,100) on the screen, and if
rem it's a 1 tile then I don't want the
rem guy to be able to walk over it

for x=1 to 14
foy y=1 to 10
read map
if map=1 then move=false
next x
next y

loop

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

+ Code Snippet

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=150
guyy=150

rem the map is 14 tiles by 10 tiles

dim map(14,10)

rem reads the map

for x = 1 to 14
for y = 1 to 10

read map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y



do 

sync

rem moves sprite

if upkey()=1 and move=true then guyy=guyy-5
if downkey()=1 and move=true then guyy=guyy+5
if leftkey()=1 and move=true then guyx=guyx-5
if rightkey()=1 and move=true then guyx=guyx+5

move=true

sprite 2,guyx,guyy,2

rem makes boundaries around the map

if guyx<105 then guyx=guyx+5
if guyx>645 then guyx=guyx-5
if guyy>445 then guyy=guyy-5
if guyy<105 then guyy=guyy+5

rem ***this is where I'm having trouble
rem I want to be able to read the data
rem at the position where the guy is. 
rem Example: If guyx=100 and guyy=100
rem then I want to read the tile that is
rem at (100,100) on the screen, and if
rem it's a 1 tile then I don't want the
rem guy to be able to walk over it

for x=1 to 14
foy y=1 to 10
read map
if map=1 then move=false
next x
next y

loop

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

If you know a way I an solve this please help!
Thanks a lot!

.....

Back to top

Profile PM

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Feb 2004 00:34 Edited at: 11th Feb 2004 00:35

Link

dim map(14,10)......You haven't even used this yet!!!

rem reads the map

for x = 1 to 14
for y = 1 to 10

read map

Map(x,y) = map ................Use it here!!!
if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

if upkey()=1 and move=true then guyy=guyy-5 ......here you need to add a map position for your man!
if downkey()=1 and move=true then guyy=guyy+5
if leftkey()=1 and move=true then guyx=guyx-5
if rightkey()=1 and move=true then guyx=guyx+5

Now that you have stored your map in an array you can look inside it to see if your man is touching a wall. But to look inside it in blocks of 14,10 you need to find out which square your man is standing inside. So as your man walks around the screen, you need to wait for him to walk 50 pixels, and then make a map position for your man, and see if it is a wall.

sprite 2,guyx,guyy,2

Back to top

Profile PM Email Website

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 11th Feb 2004 01:17

Link

Thanks again Pincho.
I tried using this in my main loop:

for x=1 to 14
for y=1 to 10
map(guyx/50,guyy/50)=map
read map
if map=1 then move=false
next x
next y

...it still doesn't work. Do you know why?
Thanks again!

.....

Back to top

Profile PM

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Feb 2004 01:31 Edited at: 11th Feb 2004 01:32

Link

map(guyx/50,guyy/50)=map

Just use..........map(x,y)=map

Back to top

Profile PM Email Website

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 11th Feb 2004 01:38

Link

ok thanks. Now how do i check the guy's position so if he hits a wall he stops?

thanks!

.....

Back to top

Profile PM

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Feb 2004 01:55 Edited at: 11th Feb 2004 02:01

Link

Well lets take a look at whet you have stored in your map.

Map(1,1) = 1
Map(2,1) = 1
Map(3,1) = 1.......etc

Map(2,2) = 0
Map(2,3) = 0.......etc

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

If your man starts the game at 150,150 he is standing on Map(2,2)

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1....Your man is here!
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

So

ManposX = 2 : ManposY = 2

If map(ManposX,ManPosY) = 1 then he has hit a wall!

Now if he walks left/right/up/down you have to count how many pixels he moves, because you need to track his movements. when he crosses into the next tile you need to look in the map(Manposx,manposy) to see if it is a 1 or a 0. If it is a 1, you don't allow him to walk anymore, and you put him back where he moved from.

You dec ManposX if the man walks around 50 pixels left. You inc ManposX if your man walks 50 pixels right, plus his width.

Back to top

Profile PM Email Website

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 11th Feb 2004 02:20

Link

Thanks again.
This is what I have now:

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=150
guyy=150

rem the map is 14 tiles by 10 tiles

dim map(14,10)

rem reads the map

for x = 1 to 14
for y = 1 to 10

map(x,y)=map
read map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

posx=2
posy=2

movedx=150
movedy=150

do

sync

rem moves sprite

if upkey()=1 and move=true then guyy=guyy-5:movedy=movedy-5
if downkey()=1 and move=true then guyy=guyy+5:movedy=movedy+5
if leftkey()=1 and move=true then guyx=guyx-5:movedx=movedx-5
if rightkey()=1 and move=true then guyx=guyx+5:movedx=movedx+5

if movedx>=movedx+50 then posx=posx+1
if movedx<=movedx-50 then posx=posx-1
if movedy>=movedy+50 then posy=posy+1
if movedx<=movedy-50 then posy=posy-1
 
move=true

sprite 2,guyx,guyy,2

rem makes boundaries around the map

if guyx<105 then guyx=guyx+5
if guyx>645 then guyx=guyx-5
if guyy>445 then guyy=guyy-5
if guyy<105 then guyy=guyy+5

for x=1 to 14
for y=1 to 10
map(posx,posy)=map 
read map
if map=1 then move=false
next x
next y

loop

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

+ Code Snippet

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=150
guyy=150

rem the map is 14 tiles by 10 tiles

dim map(14,10)

rem reads the map

for x = 1 to 14
for y = 1 to 10

map(x,y)=map
read map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

posx=2
posy=2

movedx=150
movedy=150

do 

sync

rem moves sprite

if upkey()=1 and move=true then guyy=guyy-5:movedy=movedy-5
if downkey()=1 and move=true then guyy=guyy+5:movedy=movedy+5
if leftkey()=1 and move=true then guyx=guyx-5:movedx=movedx-5
if rightkey()=1 and move=true then guyx=guyx+5:movedx=movedx+5

if movedx>=movedx+50 then posx=posx+1
if movedx<=movedx-50 then posx=posx-1
if movedy>=movedy+50 then posy=posy+1
if movedx<=movedy-50 then posy=posy-1
 
move=true

sprite 2,guyx,guyy,2

rem makes boundaries around the map

if guyx<105 then guyx=guyx+5
if guyx>645 then guyx=guyx-5
if guyy>445 then guyy=guyy-5
if guyy<105 then guyy=guyy+5

for x=1 to 14
for y=1 to 10
map(posx,posy)=map 
read map
if map=1 then move=false
next x
next y


loop

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

It still doesn't work..but I'm understanding it a lot more. Do you know what's wrong with my code?
Thanks so much!

.....

Back to top

Profile PM

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 11th Feb 2004 05:06

Link

well i figured some more out. Here's all my code now.

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=100
guyy=100

rem the map is 14 tiles by 10 tiles

dim map(10,14)

rem reads the map

for x = 1 to 14
for y = 1 to 10

map(x,y)=map
read map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

oldposx=2
oldposy=2

oldmovedx=100
oldmovedy=100

do

sync

rem moves sprite

if upkey()=1 and move<>false then guyy=guyy-5: movedy=movedy-5:print "Y=",guyy
if downkey()=1 and move<>false then guyy=guyy+5: movedy=movedy+5:print "Y=",guyy
if leftkey()=1 and move<>false then guyx=guyx-5: movedx=movedx-5:print "X=",guyx
if rightkey()=1 and move<>false then guyx=guyx+5: movedx=movedx+5:print "X=",guyx

if movedx>=oldmovedx+50 then posx=oldposx+1:posx=oldposx
if movedx<=oldmovedx-50 then posx=oldposx-1:posx=oldposx
if movedy>=oldmovedy+50 then posy=oldposy+1:posy=oldposy
if movedy<=oldmovedy-50 then posy=oldposy-1:posy=oldposy
 
move=true

sprite 2,guyx,guyy,2

rem makes boundaries around the map

if guyx<105 then guyx=guyx+5
if guyx>645 then guyx=guyx-5
if guyy>445 then guyy=guyy-5
if guyy<105 then guyy=guyy+5

read map(posx,posy)
if map(posx,posy)=1 then move=false

loop

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

+ Code Snippet

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=100
guyy=100

rem the map is 14 tiles by 10 tiles

dim map(10,14)

rem reads the map

for x = 1 to 14
for y = 1 to 10

map(x,y)=map
read map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

oldposx=2
oldposy=2

oldmovedx=100
oldmovedy=100

do

sync

rem moves sprite

if upkey()=1 and move<>false then guyy=guyy-5: movedy=movedy-5:print "Y=",guyy
if downkey()=1 and move<>false then guyy=guyy+5: movedy=movedy+5:print "Y=",guyy
if leftkey()=1 and move<>false then guyx=guyx-5: movedx=movedx-5:print "X=",guyx
if rightkey()=1 and move<>false then guyx=guyx+5: movedx=movedx+5:print "X=",guyx

if movedx>=oldmovedx+50 then posx=oldposx+1:posx=oldposx
if movedx<=oldmovedx-50 then posx=oldposx-1:posx=oldposx
if movedy>=oldmovedy+50 then posy=oldposy+1:posy=oldposy
if movedy<=oldmovedy-50 then posy=oldposy-1:posy=oldposy
 
move=true

sprite 2,guyx,guyy,2

rem makes boundaries around the map

if guyx<105 then guyx=guyx+5
if guyx>645 then guyx=guyx-5
if guyy>445 then guyy=guyy-5
if guyy<105 then guyy=guyy+5


read map(posx,posy)
if map(posx,posy)=1 then move=false



loop

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

my problem is that it is reading map(posx,posy) and posx=2, posy=2, but at (2,2) on my data there is grass(0). I think it is reading:
DATA 1,1
DATA 1,0
...since there are 3 ones there, then move=false. how do i get it to just read:
DATA -,-
DATA -,0<---just that
....that's what I want it to do. Is there a way to do this?
Thanks so much Pilchard...you've taught me so much about Programming, I really appreciate it.

.....

Back to top

Profile PM

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 11th Feb 2004 05:07

Link

i spelled ur name wrong..sorry...pilchard is the name of another guy that wrote a Q-Basic tutorial that I read last night..haha..sorry

.....

Back to top

Profile PM

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Feb 2004 11:35 Edited at: 11th Feb 2004 11:43

Link

Quote: "...since there are 3 ones there, then move=false. how do i get it to just read:
DATA -,-
DATA -,0<---just that"

That is Map(2,2)...2 across, 2 down. That's how Your Map works, by just reading one piece of data at a time.

map(x,y)=map
read map

you have these the wrong way around should be.....

read map
map(x,y)=map...........All the Data has been put inside here...

The data has been stored so..You don't need to read the map twice.....so you can remove this line.

read map(posx,posy)

Back to top

Profile PM Email Website

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 12th Feb 2004 05:35

Link

thanks again.
I almost have it. For some reason, it stops at 3,3...heres my code:

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=100
guyy=100

rem the map is 14 tiles by 10 tiles

dim map(10,14)

rem reads the map

for x = 1 to 14
for y = 1 to 10

map(x,y)=map
read map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

posx=2
posy=2

oldmovedx=100
oldmovedy=100

movedx=100
movedy=100

do

sync

rem moves sprite

if upkey()=1 and move=true then guyy=guyy-5: movedy=movedy-5
if downkey()=1 and move=true then guyy=guyy+5: movedy=movedy+5
if leftkey()=1 and move=true then guyx=guyx-5: movedx=movedx-5
if rightkey()=1 and move=true then guyx=guyx+5: movedx=movedx+5

if movedx>=oldmovedx+50 
posx=posx+1
movedx=oldmovedx
gosub col
print "x",posx

endif

if movedx<=oldmovedx-50
posx=posx-1
movedx=oldmovedx
gosub col
print "x",posx

endif

if movedy>=oldmovedy+50
posy=posy+1
movedy=oldmovedx
gosub col
print "y",posy

endif

if movedy<=oldmovedy-50
posy=posy-1
movedy=oldmovedx
gosub col
print "y",posy

endif

sprite 2,guyx,guyy,2

move=true

loop

col:
read map(posy,posx)
if map(posy,posx)=1 then end
return

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

+ Code Snippet


sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=100
guyy=100

rem the map is 14 tiles by 10 tiles

dim map(10,14)

rem reads the map

for x = 1 to 14
for y = 1 to 10

map(x,y)=map
read map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

posx=2
posy=2

oldmovedx=100
oldmovedy=100

movedx=100
movedy=100

do

sync

rem moves sprite

if upkey()=1 and move=true then guyy=guyy-5: movedy=movedy-5
if downkey()=1 and move=true then guyy=guyy+5: movedy=movedy+5
if leftkey()=1 and move=true then guyx=guyx-5: movedx=movedx-5
if rightkey()=1 and move=true then guyx=guyx+5: movedx=movedx+5

if movedx>=oldmovedx+50 
posx=posx+1
movedx=oldmovedx
gosub col
print "x",posx

endif

if movedx<=oldmovedx-50
posx=posx-1
movedx=oldmovedx
gosub col
print "x",posx

endif

if movedy>=oldmovedy+50
posy=posy+1
movedy=oldmovedx
gosub col
print "y",posy

endif

if movedy<=oldmovedy-50
posy=posy-1
movedy=oldmovedx
gosub col
print "y",posy

endif


sprite 2,guyx,guyy,2

move=true

loop

col:
read map(posy,posx)
if map(posy,posx)=1 then end
return
 

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

i've tested it and it changes posx and posy when it changes tiles. But I just cant figure out how to get my sub col to work. Please help. Thanks a lot.

.....

Back to top

Profile PM

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 12th Feb 2004 10:21

Link

Well you haven't changed any of the things that I already told you about.

Back to top

Profile PM Email Website

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 12th Feb 2004 23:14

Link

Ok. Now I got it to work. I just don't know what to do to make my guy stop moving when he hits a wall. Thanks.

.....

Back to top

Profile PM

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 13th Feb 2004 02:17

Link

You move him back to his last position before he hit the wall. he will always try to move towards the wall, but will always be put back where he started from.

Pincho.

Back to top

Profile PM Email Website

Code Stealer

20

Years of Service

User Offline

Joined: 12th Feb 2004

Location:

Posted: 13th Feb 2004 14:12

Link

Please paste up the code that works, so I can look at it(Im learning)

GIve me more power!

Back to top

Profile PM Email

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 13th Feb 2004 22:15

Link

here it is

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=100
guyy=100

rem the map is 14 tiles by 10 tiles

dim map(10,14)

rem reads the map

for x = 1 to 14
for y = 1 to 10

read map
map(x,y)=map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

posx=2
posy=2

oldmovedx=100
oldmovedy=100

movedx=100
movedy=100

do

sync

rem moves sprite

if upkey()=1 then oldy=guyy: guyy=guyy-5: movedy=movedy-5
if downkey()=1 then oldy=guyy: guyy=guyy+5: movedy=movedy+5
if leftkey()=1 then oldx=guyx:guyx=guyx-5: movedx=movedx-5
if rightkey()=1 then oldx=guyx:guyx=guyx+5: movedx=movedx+5

move=true

if movedx>=oldmovedx+50 
posx=posx+1
movedx=oldmovedx
gosub col
print "x",posx
endif

if movedx<=oldmovedx-50
posx=posx-1
movedx=oldmovedx
gosub col
print "x",posx
endif

if movedy>=oldmovedy+50
posy=posy+1
movedy=oldmovedy
gosub col
print "y",posy
endif

if movedy<=oldmovedy-50
posy=posy-1
movedy=oldmovedy
gosub col
print "y",posy
endif

sprite 2,guyx,guyy,2

loop

col:

if map(posx,posy)=1 then print "wall"
return

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,1,0,0,0,1,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

+ Code Snippet


sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=100
guyy=100

rem the map is 14 tiles by 10 tiles

dim map(10,14)

rem reads the map

for x = 1 to 14
for y = 1 to 10

read map
map(x,y)=map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

posx=2
posy=2

oldmovedx=100
oldmovedy=100

movedx=100
movedy=100


do

sync

rem moves sprite

if upkey()=1 then oldy=guyy: guyy=guyy-5: movedy=movedy-5
if downkey()=1 then oldy=guyy: guyy=guyy+5: movedy=movedy+5
if leftkey()=1 then oldx=guyx:guyx=guyx-5: movedx=movedx-5
if rightkey()=1 then oldx=guyx:guyx=guyx+5: movedx=movedx+5

move=true

if movedx>=oldmovedx+50 
posx=posx+1
movedx=oldmovedx
gosub col
print "x",posx
endif

if movedx<=oldmovedx-50
posx=posx-1
movedx=oldmovedx
gosub col
print "x",posx
endif

if movedy>=oldmovedy+50
posy=posy+1
movedy=oldmovedy
gosub col
print "y",posy
endif

if movedy<=oldmovedy-50
posy=posy-1
movedy=oldmovedy
gosub col
print "y",posy
endif

sprite 2,guyx,guyy,2

loop

col:

if map(posx,posy)=1 then print "wall"
return
 

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,1,0,0,0,1,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

.....

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / Reading Specific Data