Hi Guys
Can anyone tell me what i have dont wrong in this function...
or did I stumble on a bug?
The prizes array is always the same size.
FUNCTION savecoin:co%
LOCAL test$ //= GETCURRENTDIR$()+"Media/data/scr.txt"
test$ = PLATFORMINFO$("APPDATA") + "/g34222-g.dat"
LOCAL vv% = 0
LOCAL ok=TRUE
ok=OPENFILE(1,test$,FALSE)
IF ok=TRUE
WRITELINE 1,ENCRYPT$("mystuff",co%)
FOREACH pp IN prizes[]
vv% = pp.frm
WRITELINE 1,ENCRYPT$("mystuff",vv%)
DEBUG vv
NEXT
CLOSEFILE 1
ENDIF
ENDFUNCTION
FUNCTION loadcoin:
LOCAL test$ //= GETCURRENTDIR$()+"Media/data/scr.txt"
test$ = PLATFORMINFO$("APPDATA") + "/g34222-g.dat"
LOCAL hsc$ = ""
LOCAL ok
LOCAL line$=""
LOCAL pz$=""
LOCAL pz=0
//KILLFILE PLATFORMINFO$("APPDATA") + "/g34222-g.dat"
ok= OPENFILE(1, test$, TRUE)
//KILLFILE PLATFORMINFO$("APPDATA") + "/g34222-g.dat"
IF ok=TRUE
READLINE 1,line$
hsc$ = DECRYPT$("mystuff",line$)
IF hsc$ <> "" THEN RETURN hsc$
FOREACH pp IN prizes[]
READLINE 1,pz$
pz$ = DECRYPT$("mystuff",pz$)
DEBUG pz$
pz=pz$
pp.frm=pz
NEXT
CLOSEFILE 1
ENDIF
ENDFUNCTION
Basically the writing seems to work fine but the read version does not.
Doooh!
Please ignore I seen the problem!!! I had a RETURN too early :)