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

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

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

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

add (username) to [output v]
add [default data] to [output v]
update to my version of list // category=custom
interpret code // category=custom

define find (s1) , (s2) of [string]
set [i v] to (s1)
set [result v] to []
repeat ((s2) - ((s1) - (1))
set [result v] to (join (result) (letter (i) of (string)))
change [i v] by (1)
end
define decode listdata to playerdata
delete (all v) of [playerdata v]
set [i v] to [0]
set [i2 v] to [1]
repeat (length of (listdata))
change [i v] by (1)
if <(letter (i) of (listdata)) = [;]> then
find (i2) , ((i) - (1)) of (listdata)
add (result) to [playerdata v]
set [i2 v] to ((i) + (1))
end

1234abcdcba4321 wrote:

See the other scripting…

bainer101 wrote:

1234abcdcba4321 wrote:

See the other scripting…

What Other Scripting?