thanks for the help.this is my final outcome(BN2,i know you said i
could combine some of them but i did that on my last project and i
had a mess.I had to keep on going back because i put the wrong
array number down.and because i've already started to use the
arrays.)
``````````````LOAD ARRAYS```
loadarrays:
If File Exist("arrays")=1
open to read 1,"arrays"
Read String 1,T$: str_lev(1)=Val(T$)
Read String 1,T$: mag_lev(1)=Val(T$)
Read String 1,T$: def_lev(1)=Val(T$)
Read String 1,T$: int_lev(1)=Val(T$)
Read String 1,T$: agl_lev(1)=Val(T$)
Read String 1,T$: name$(1)=T$
Read String 1,T$: image(1)=Val(T$)
Read String 1,T$: hth_pot(1)=Val(T$)
Read String 1,T$: mag_pot(1)=Val(T$)
Read String 1,T$: hth_elx(1)=Val(T$)
Read String 1,T$: mag_elx(1)=Val(T$)
Read String 1,T$: heal(1)=Val(T$)
Read String 1,T$: berserk(1)=Val(T$)
Read String 1,T$: cure(1)=Val(T$)
Read String 1,T$: ember(1)=Val(T$)
Read String 1,T$: stun(1)=Val(T$)
Read String 1,T$: flame(1)=Val(T$)
Read String 1,T$: drain(1)=Val(T$)
Read String 1,T$: incinerate(1)=Val(T$)
Read String 1,T$: holy(1)=Val(T$)
Read String 1,T$: health(1)=Val(T$)
Read String 1,T$: mp(1)=Val(T$)
Read String 1,T$: gold(1)=Val(T$)
Read String 1,T$: experience(1)=Val(T$)
Read String 1,T$: x(1)=Val(T$)
Read String 1,T$: y(1)=Val(T$)
Read String 1,T$: tutorial(1)=Val(T$)
for zz=1 to 20
Read String 1,T$: block(zz)=Val(T$)
Read String 1,T$: quest(zz)=Val(T$)
next zz
close file 1
endif
return
``````````````SAVE ARRAYS```
savearrays:
If File Exist("arrays")=1 Then Delete File "arrays"
open to write 1,"arrays"
Write String 1,Str$(str_lev(1))
Write String 1,Str$(mag_lev(1))
Write String 1,Str$(def_lev(1))
Write String 1,Str$(int_lev(1))
Write String 1,Str$(agl_lev(1))
Write String 1,name$(1)
Write String 1,Str$(image(1))
Write String 1,Str$(hth_pot(1))
Write String 1,Str$(mag_pot(1))
Write String 1,Str$(hth_elx(1))
Write String 1,Str$(mag_elx(1))
Write String 1,Str$(heal(1))
Write String 1,Str$(berserk(1))
Write String 1,Str$(cure(1))
Write String 1,Str$(ember(1))
Write String 1,Str$(stun(1))
Write String 1,Str$(flame(1))
Write String 1,Str$(drain(1))
Write String 1,Str$(incinerate(1))
Write String 1,Str$(holy(1))
Write String 1,Str$(health(1))
Write String 1,Str$(mp(1))
Write String 1,Str$(gold(1))
Write String 1,Str$(experience(1))
Write String 1,Str$(x(1))
Write String 1,Str$(y(1))
Write String 1,Str$(tutorial(1))
for zz=1 to 20
Write String 1,Str$(block(zz))
Write String 1,Str$(quest(zz))
next zz
close file 1
return
If at first you don't succeed-Pause-Go to last checkpoint
