Data
Store list to cloud by zorketdefine Store list to cloud set [ItemCounter v] to [1] set [ResultStore v] to [] repeat until <(ItemCounter) > (length of [CloudList v])> set [DigitCounter v] to [1] repeat until <(DigitCounter) > (length of (item (ItemCounter) of [CloudList v]))> set [DigitFinder v] to [1] repeat until <(item (DigitFinder) of [Digits v]) = (letter (DigitCounter) of (item (ItemCounter) of [CloudList v]))> change [DigitFinder v] by (1) end if <(DigitFinder) < [10]> then set [DigitFinder v] to (join [0] (DigitFinder)) end set [ResultStore v] to (join (ResultStore) (DigitFinder)) change [DigitCounter v] by (1) end change [ItemCounter v] by (1) if <not <(ItemCounter) > (length of [CloudList v])>> then set [ResultStore v] to (join (ResultStore) [99]) end end set [☁ CloudList v] to (ResultStore) Transfer items to list by bullelk12define Transfer Items to List set [Counter v] to [1] repeat (length of [List 1 v]) add (item (Counter) of [List 1 v]) to [List 2 v] change [Counter v] by (1) end Replace items by bullelk12define Replace all of item (string1) with (string2) set [counter v] to [1] repeat (length of [List v]) if <(item (counter) of [List v]) = (string1)> then replace item (counter) of [List v] with (string2) end change [counter v] by (1) end |
Retrieve list from cloud by zorketdefine Retrieve list from cloud delete (all v) of [CloudList v] if <not <(☁ CloudList) = [0]>> then add [] to [CloudList v] set [DigitCounter v] to [1] set [ItemCounter v] to [1] set [ResultStore v] to (☁ CloudList) repeat until <(DigitCounter) > (length of (ResultStore))> if <(join (letter (DigitCounter) of (ResultStore)) (letter ((DigitCounter) + (1)) of (ResultStore))) = [99]> then change [ItemCounter v] by (1) add [] to [CloudList v] else replace item (ItemCounter) of [CloudList v] with (join (item (ItemCounter) of [CloudList v]) (item (join (letter (DigitCounter) of (ResultStore)) (letter ((DigitCounter) + (1)) of (ResultStore))) of [Digits v])) end change [DigitCounter v] by (2) end end Randomize List by bullelk12define Randomize List set [Counter v] to [1] set [Counter 2 v] to [] repeat (length of [Random List v]) set [Counter 2 v] to (pick random (1) to (length of [Random List v])) set [cache v] to (item (Counter 2) of [Random List v]) replace item (Counter 2) of [Random List v] with (item (Counter) of [Random List v]) replace item (Counter) of [Random List v] with (cache) change [Counter v] by (1) end Delete first of string in list by Bullelk12define Delete first (string1) in list set [Counter v] to [1] repeat (length of [List v]) if <(item (Counter) of [List v]) = (string1)> then delete (Counter) of [List v] stop [this script v] end change [Counter v] by (1) end Delete all of string in list by bullelk12define Delete all (string1) in list set [Counter v] to [1] repeat (length of [List v]) if <(item (Counter) of [List v]) = (string1)> then delete (Counter) of [List v] end change [Counter v] by (1) end |