bainer101 wrote:

I Do Not Doubt Your Coding, It Is Brilliant, But I Would Highly Appreciate It If You Made A Project Demonstrating It

CraZGuy wrote:

Okay,but what about Griffpatch's cloud multiplayer game?
You don't have to put in a codetoload progress; just go in with your username.

DudmasterUltra wrote:

Why not just use a code? Cloud saving is cool, but it can only save so much before crashing.

blartex wrote:

My cloud data won't save!!!!!!!!!!!

DudmasterUltra wrote:

Why not just use a code? Cloud saving is cool, but it can only save so much before crashing.

meowmoo wrote:

What does interperet code do?

CraZGuy wrote:

idk man that's what IM askin

when green flag clicked
ask [how do make a cloud data high score list with username] and wait

mrguy1 wrote:

when green flag clicked
ask [how do make a cloud data high score list with username] and wait

1234abcdcba4321 wrote:

define encode [String]
set [chars v] to [1234567890abcdefghijklmnopqrstuvwxyz_] // +whatever else you want
set [output v] to []
set [i v] to [0]
repeat (length of (String))
change [i v] by (1)
set [i2 v] to [0]
repeat until <(letter (i) of (String)) = (letter (i2) of (chars))>
change [i2 v] by (1)
end
if <(i2) > [9]> then
set [output v] to (join (output) (join [0] (i2)))
else
set [output v] to (join (output) (i2))
end
end
define decode (Number)
set [chars v] to [1234567890abcdefghijklmnopqrstuvwxyz_] // Make sure it's the exact same as encode
set [output v] to []
set [i v] to [1]
repeat ((length of (Number)) / (2))
set [i2 v] to [0]
repeat until <(join (letter (i) of (Number)) (letter ((i) + (1)) of (Number))) = (i2)>
change [i2 v] by (1)
if <(i2) < [10]> then
set [i2 v] to (join [0] (i2))
end
end
set [output v] to (join (output) (letter (i2) of (chars)))
change [i v] by (2)
define split [string] with separator [separator]
set [i v] to [0]
delete (all v) of [output v]
add [] to [output v]
repeat (length of (string))
change [i v] by (1)
if <(letter (i) of (string)) = (separator)> then
add [] to [output v]
else
replace item (last v) of [output v] with (join (item (last v) of [output v]) (letter (i) of (string)))
end
end
define Load Cloud List
decode (cloud list) // category=custom
split (output) with separator [/] // category=custom
define Add [string] to Cloud List
Load Cloud List // category=custom
encode (join [/] (string)) // category=custom
set [cloud list v] to (join (cloud list) (output)) // cloud list is a cloud variable, BTW

Output is supposed to be orange, not red. In all of those above.

define Load save data
Load Cloud List // category=custom
set [i v] to [1]
repeat until <<(item (i) of [cloud list v]) = (username)> or <(i) > (length of [cloud list v]>>
change [i v] by (2)
end
if <(i) > (length of [cloud list v])> then
... // restart from point blank
else
set [user ID v] to ((i) + (1))
set [my save data v] to (item (user ID) of [cloud list v]
interpret code // category=custom

Basically, from here, you would do the same thing as a script in an answer box you would enter.
Huh? You want to be able to add data to that list, too?

define update to my version of list
replace all [ ] s in (output) with [/] s :: custom // this one's the only one that should be this color; the rest should be orange
encode (output ::variables) // category=custom
set [cloud list v] to (output ::variables)

define save [data] // it should be run without screen refresh, to prevent corruption
Load Cloud List // category=custom
replace item (user ID) of [output v] with (data)
update to my version of list // category=custom
interpret code // category=custom

I forgot to define this earlier, so…

define replace all (stringa) s in (stringb) to (stringc) s
set [i v] to [0]
set [output v] to []
repeat (length of (stringb))
change [i v] by (1)
if <(letter (i) of (stringb)) = (stringa)> then
set [output v] to (join (output ::variables) (stringc))
else
set [output v] to (join (output ::variables) (letter (i) of (stringb)))
end

define <mouse down?><mouse down?><mouse down?><mouse down?>