Can't read a saved array. - GameCreators Forum

Author

Message

gameangel147

11

Years of Service

User Offline

Joined: 2nd Dec 2012

Location:

Posted: 1st Feb 2014 05:00

Link

So I have had trouble reading saved arrays from a DAT file. I currently have it set up so that each level array is stored in a DBA file, but if I am going to have lots of levels, it's going to take up lots of lines of code, so I was planning of saving arrays to file and loading them when needed.

My current code is:

function playLv_1()
	
	load image "grass.png", 1
	load image "dirt.png", 2
	
	restore lv_1

for y = 1 to 17
		for x = 1 to 25
			read lv_1(x, y)
			sprite tile.spriNum, tile.xPos, tile.yPos, lv_1(x, y)
			print lv_1(x, y)
			inc tile.spriNum, 1
			inc tile.xPos, 32
		next x
		inc tile.yPos, 32
		tile.xPos = 32
	next y

lv_1:
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2

data 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2  
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
endfunction

+ Code Snippet

function playLv_1()
	
	load image "grass.png", 1
	load image "dirt.png", 2
	
	restore lv_1

	for y = 1 to 17
		for x = 1 to 25
			read lv_1(x, y)
			sprite tile.spriNum, tile.xPos, tile.yPos, lv_1(x, y)
			print lv_1(x, y)
			inc tile.spriNum, 1
			inc tile.xPos, 32
		next x
		inc tile.yPos, 32
		tile.xPos = 32
	next y

lv_1:
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2

data 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2  
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2  

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
endfunction

It reads the label and reads the data into the array and then places the given tile.

The new way I tried doing it was rather than calling the label, I would open the rile and load the array.

+ Code Snippet

function playLv_1()
	
	load image "grass.png", 1
	load image "dirt.png", 2
	
	open to read 1, "lv_1_map.dat"

        load array 1 lv_1(25, 17)

	for y = 1 to 17
		for x = 1 to 25
			sprite tile.spriNum, tile.xPos, tile.yPos, lv_1(x, y)
			print lv_1(x, y)
			inc tile.spriNum, 1
			inc tile.xPos, 32
		next x
		inc tile.yPos, 32
		tile.xPos = 32
	next y
endfunction

And this is the program I used to save the array into a file, which was done in a separate program.

saveFlag as boolean
doneFlag as boolean

saveFlag = 0
doneFlag = 0

print "Press space to save array."

dim lv_1(25, 17) as integer

for y = 1 to 17
	for x = 1 to 25
		read lv_1(x, y)
	next x
next y
	
if file exist("lv_1.dat")
	delete file "lv_1.dat"
endif
	
save array "lv_1.dat", lv_1(25, 17)
	
print "Array Successfully Saved!"

wait key

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 2

data 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2  
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

+ Code Snippet

saveFlag as boolean
doneFlag as boolean


saveFlag = 0
doneFlag = 0


print "Press space to save array."


dim lv_1(25, 17) as integer

for y = 1 to 17
	for x = 1 to 25
		read lv_1(x, y)
	next x
next y
	
if file exist("lv_1.dat")
	delete file "lv_1.dat"
endif
	
save array "lv_1.dat", lv_1(25, 17)
	
print "Array Successfully Saved!"


wait key



data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 2

data 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2  
data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2  

data 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

For some reason the values of the array won't be read. Any help would be greatly appreciated.

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 1st Feb 2014 19:34

Link

I quickly looked through this without actually running it, but something I would check first are the filenames.

You save it as

Quote: "save array "lv_1.dat", lv_1(25, 17)"

but yet you reload it as

Quote: "open to read 1, "lv_1_map.dat""

Not 100% sure if that is it, but your filenames have to match.

So many games to code.....so little time.

Back to top

Profile PM Email

gameangel147

11

Years of Service

User Offline

Joined: 2nd Dec 2012

Location:

Posted: 2nd Feb 2014 06:14

Link

Yeah, that's a typo, my code has the file listed correctly. I test it by listing an image number and it works, but when I use the array as the image number then it says the number is invalid, and I'm not sure I know how the load array command works. I thought it loads the array from the file, but maybe it loads the data into another array?

Also to run the code, there needs to be a REPEAT/UNTIL loop after teh sprites are made to keep the program running. That function is only one part of the program, but it doesn't depend on anything else except for needing to create the lv_1 array.

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 2nd Feb 2014 19:15 Edited at: 2nd Feb 2014 19:16

Link

Okay, I'm not following the way you are using the TYPE variable for the sprites. As I see it, this code:

+ Code Snippet

function playLv_1()
	
	load image "grass.png", 1
	load image "dirt.png", 2
	
	open to read 1, "lv_1.dat"

        load array 1 lv_1(25, 17)

	for y = 1 to 17
		for x = 1 to 25
			sprite tile.spriNum, tile.xPos, tile.yPos, lv_1(x, y)
			print lv_1(x, y)
			inc tile.spriNum, 1
			inc tile.xPos, 32
		next x
		inc tile.yPos, 32
		tile.xPos = 32
	next y
endfunction

Should look something like this:

+ Code Snippet

function playLv_1()

	load image "grass.png", 1
	load image "dirt.png", 2
	load array "lv_1.dat",lv_1(0)
	CurrSprite = 1
	for y = 1 to 17
		for x = 1 to 25
			image = lv_1(x,y)
			tile(CurrSprite).sprinum = CurrSprite
			tile(CurrSprite).xPos= (x - 1) * 32
			tile(CurrSprite).yPos = (y - 1) * 32
			sprite tile(CurrSprite).spriNum, tile(CurrSprite).xPos, tile(CurrSprite).yPos, image
			inc CurrSprite
		next x
	next y


endfunction


Note:  I used this code to setup the TYPE variable:
type tileData
	spriNum, xPos, yPos
endtype
dim tile(425) as tileData

I made up some images, ran the code to save the file and ran it with this function and it worked. Hope this is helpful.

Also, it is worth noting that you do not need the array data listed in this function (as you had it), as you have already saved it to your hard drive and are loading in the array.

So many games to code.....so little time.

Back to top

Profile PM Email

Duffer

21

Years of Service

User Offline

Joined: 9th Feb 2003

Location: chair