Hi There
Is there anyone with Android 8 phone or tab that is willing to install one of my apps to test?
Is there anyone with Android 8 phone or tab that is willing to install one of my apps to test?
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
IF app_pause=0
updatestuff()
drawstuff()
ELSE
drawpausescreen()
ENDIF
myshowscreen()
SUB GLB_ON_PAUSE:
app_pause = 1
music.pause()
IF ISMUSICPLAYING()=TRUE THEN STOPMUSIC
ENDFUNCTION
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