Limitations of SAVE ARRAY? - GameCreators Forum

Author

Message

Rwilson

21

Years of Service

User Offline

Joined: 19th May 2003

Location: United States

Posted: 16th Sep 2003 02:45

Link

I am attempting to save a user defined type array, and am encountering an error concerning it's type. The exact error is "Runtime Error 54 - Array Type Is Invalid". If it is indeed the case that one can not save UDT arrays, what can be done to achieve the same results?

Regards,
Ryan Wilson

Back to top

Profile PM Email Website

zzabb

21

Years of Service

User Offline

Joined: 25th Apr 2003

Location: Seattle, USA

Posted: 16th Sep 2003 05:33

Link

without posting code its hard to see what problems you are having

Well Iâ€™m not sure what you mean by â€˜user defined arrayâ€™
All arrays are user defined
To make an array you first need to set the dimensions of an array

Dim nameofarray(sizeofarray)

It would look like:

Dim hitpoints(16)
Or
Dim hitpoints(16,16,16)

Where hitpoints is the name and 16 is the size

To save data to your array

X=1
Hitpoints(x)=10
Or
Hitpoints(x,0,0)=10
Or
Hitpoints(0,x,0)=10
or
Hitpoints(0,0,x)=10

Where x will be the place value for the number 10

To read the array

A=hitpoints(1)
Or
A=hitpoints(1,0,0)
or
A=hitpoints(0,1,0)
or
A=hitpoints(0,0,1)

Where A will be the value that you put in the 1 place

The only time I get the error you get is when I have either called an array position that doesnâ€™t exist or made a typing error with the name of the array

Hope this helps

My advice is free -
unfortunately you get what you pay for (-:

Back to top

Profile PM Email

Rwilson

21

Years of Service

User Offline

Joined: 19th May 2003

Location: United States

Posted: 16th Sep 2003 06:43

Link

What I mean by User Defined Type Array is this:

Type YO
huh AS INTEGER
WHAT AS INTEGER
EndType

dim Saythatagain(5) AS YO

save array saythatagain.txt,Saythatagain(0)

That is pretty much what I'm trying to do, although in much more detail.

Back to top

Profile PM Email Website

zzabb

21

Years of Service

User Offline

Joined: 25th Apr 2003

Location: Seattle, USA

Posted: 16th Sep 2003 07:01

Link

i'm sorry thats beyond me

My advice is free -
unfortunately you get what you pay for (-:

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 16th Sep 2003 10:15

Link

It's not possible. If you want to save a UDT array you have to do it the long way ... DIY

Back to top

Profile PM Email Website

Rwilson

21

Years of Service

User Offline

Joined: 19th May 2003

Location: United States

Posted: 16th Sep 2003 17:54

Link

If I could ask, what eaxactly IS the long way? I can imagine it requires using the file commands, but I'm afraid the cocepts of how to use them evades me. Could you give me a example in code?

Back to top

Profile PM Email Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 16th Sep 2003 19:35 Edited at: 16th Sep 2003 19:36

Link

post deleted by CattleRustler

-RUST-

Back to top

Profile PM

haggisman

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: United Kingdom

Posted: 16th Sep 2003 19:42

Link

Funnily enough the file commands are actually quite simple once you first use them. Heres a little example: -

rem Standard Setup Code
sync on : sync rate 0 :color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 12 : set text transparent

rem Simple type
Type My_Type test as float test2 as float endtype
Dim Test(10) as My_Type

rem fill the array with pointless info
For a=1 to 10
   Test(a).test=rnd(100)
   Test(a).test2=rnd(100)
Next a

rem Make sure output file doesn't already exist otherwise it may cause problems!
if file exist("My saved file.arr")=1 then delete file "My saved file.arr"

rem Create output file
Open to write 1, "My saved file.arr"

rem to save the data its a simple matter of writing floats to the file
for a=1 to 10
   write float 1, Test(a).test
   write float 1, Test(a).test2
next a

rem now to close the file to be sure the data is saved
close file 1

rem Lets now read the data back into the array!
Open to read 1, "My saved file.arr"

rem Lets redim the array to wipe it clean
Dim Test(10) as My_Type

rem The data is then read in the exact same order as it was written.
for a=1 to 10
   read float 1, Test(a).test
   read float 1, Test(a).test2
next a

rem Just for the sake of being tidy :)
close file 1

rem Now you could do what you like, like say outputting the data to the screen
for a=1 to 10
   print Test(a).test
   print Test(a).test2
next a

do
sync
loop

+ Code Snippet

rem Standard Setup Code
sync on : sync rate 0 :color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 12 : set text transparent

rem Simple type
Type My_Type test as float test2 as float endtype
Dim Test(10) as My_Type

rem fill the array with pointless info
For a=1 to 10
   Test(a).test=rnd(100)
   Test(a).test2=rnd(100)
Next a

rem Make sure output file doesn't already exist otherwise it may cause problems!
if file exist("My saved file.arr")=1 then delete file "My saved file.arr"

rem Create output file
Open to write 1, "My saved file.arr"

rem to save the data its a simple matter of writing floats to the file
for a=1 to 10
   write float 1, Test(a).test
   write float 1, Test(a).test2
next a

rem now to close the file to be sure the data is saved
close file 1

rem Lets now read the data back into the array!
Open to read 1, "My saved file.arr"

rem Lets redim the array to wipe it clean
Dim Test(10) as My_Type

rem The data is then read in the exact same order as it was written.
for a=1 to 10
   read float 1, Test(a).test
   read float 1, Test(a).test2
next a

rem Just for the sake of being tidy :)
close file 1

rem Now you could do what you like, like say outputting the data to the screen
for a=1 to 10
   print Test(a).test
   print Test(a).test2
next a

do
sync
loop

Back to top

Profile PM Email Website

Rwilson

21

Years of Service

User Offline

Joined: 19th May 2003

Location: United States

Posted: 16th Sep 2003 20:17

Link

By golly, your right! They look much simpler now that I see how one uses them. Thank you very much, HaggisMan!

Regards,
Ryan Wilson

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Limitations of SAVE ARRAY?