Scratch/Cloud List

Scratch/Cloud List

• https://scratch.mit.edu/projects/25635262

задать [☁ Connection? v] значение [0]
сменить фон на [Thumbnail v]
скрыть список [Cloud List v]
удалить (все v) из [Cloud List v]

задать [☁ Connection? v] значение [1]

определить Load (Variable) To (List)
удалить (все v) из (List)
если <(остаток от деления (длина (Variable)) на (2)) = [0]> , то 
  задать [Var v] значение [1]
  удалить (все v) из [Tmp v]
  повторить ((длина (Variable)) / (2)) 
    если <(слить (буква (Var) в (Variable)) и (буква ((Var) + (1)) в (Variable))) = [00]> , то 
      добавить (Tmp :: list) к (List)
      удалить (все v) из [Tmp v]
    иначе 
      добавить (элемент (слить (буква (Var) в (Variable)) и (буква ((Var) + (1)) в (Variable))) из [Chars v] :: list) к [Tmp v]
    end
    изменить [Var v] на (2)
  end
end

когда щёлкнут по зелёному флагу
скрыть список [Cloud List v]
если <не <(имя фона) = [WIP]>> , то 
  сменить фон на [Connecting v]
  ждать до <(☁ Connection?) = [1]>
  сменить фон на [Thumbnail v]
  перезапустить таймер
  Load (☁ Cloud) To [Cloud List v] :: custom
  если <не <[Cloud List v] содержит (имя участника) ?>> , то 
    добавить (имя участника) к [Cloud List v]
    Save [Cloud List v] To [☁ Cloud v] :: custom
    добавить [] к [Cloud List v]
    добавить [Your username has been successfully added to the list ! :)] к [Cloud List v]
    вставить (слить [Containing ] и (слить ((длина списка [Cloud List v] :: list) - (2)) и (слить [ items. Loaded and saved in ] и (слить (таймер) и (слить [ seconds. Cloud variable length: ] и (слить (длина (☁ Cloud)) и [.])))))) в (1 v) из [Cloud List v]
  иначе 
    добавить [] к [Cloud List v]
    добавить (слить [Thanks for coming back, ] и (слить (имя участника) и [ ! :D])) к [Cloud List v]
    вставить (слить [Containing ] и (слить ((длина списка [Cloud List v] :: list) - (2)) и (слить [ items. Loaded in ] и (слить (таймер) и (слить [ seconds. Cloud variable length: ] и (слить (длина (☁ Cloud)) и [.])))))) в (1 v) из [Cloud List v]
  end
  показать список [Cloud List v]
end
стоп [этот скрипт v]

<<> и <(слить (буква ((длина (Variable)) - (1)) в (Variable)) и (буква (длина (Variable)) в (Variable))) = [00]>>

определить Save (List) To (Variable)
удалить (все v) из [Tmp v]
задать [Var v] значение [1]
повторить (длина списка (List) :: list) 
  задать [Var2 v] значение [1]
  повторить (длина (элемент (Var) из (List) :: list)) 
    если <[hasCase v] содержит (буква (Var2) в (элемент (Var) из (List) :: list)) ?> , то 
      сменить костюм на (буква (Var2) в (элемент (Var) из (List) :: list))
      если <(длина (костюм #)) = [1]> , то 
        добавить [0] к [Tmp v]
        добавить (буква (1) в (костюм #)) к [Tmp v]
      иначе 
        добавить (буква (1) в (костюм #)) к [Tmp v]
        добавить (буква (2) в (костюм #)) к [Tmp v]
      end
    иначе 
      если <[Chars v] содержит (буква (Var2) в (элемент (Var) из (List) :: list)) ?> , то 
        задать [Var3 v] значение [1]
        повторять пока не <(элемент (Var3) из [Chars v] :: list) = (буква (Var2) в (элемент (Var) из (List) :: list))> 
          изменить [Var3 v] на (1)
        конец
        если <(длина (Var3)) = [1]> , то 
          добавить [0] к [Tmp v]
          добавить (буква (1) в (Var3)) к [Tmp v]
        иначе 
          добавить (буква (1) в (Var3)) к [Tmp v]
          добавить (буква (2) в (Var3)) к [Tmp v]
       конец
      иначе 
        добавить [9] к [Tmp v]
        добавить [6] к [Tmp v]
      конец
   конец
    изменить [Var2 v] на (1)
 конец
  повторить (2) 
    добавить [0] к [Tmp v]
  end
  изменить [Var v] на (1)
конец
задать (Variable) значение (Tmp :: list)

удалить (все v) из [Tmp v]
задать [Var v] значение [1]
повторить (длина списка (List) :: list) 
  задать [Var2 v] значение [1]
  повторить (длина (элемент (Var) из (List) :: list)) 
    сменить костюм на [� v]
    сменить костюм на (буква (Var2) в (элемент (Var) из (List) :: list))
    если <(длина (костюм #)) = [1]> , то 
      добавить [0] к [Tmp v]
      добавить (буква (1) в (костюм #)) к [Tmp v]
    иначе 
      добавить (буква (1) в (костюм #)) к [Tmp v]
      добавить (буква (2) в (костюм #)) к [Tmp v]
  конец
    изменить [Var2 v] на (1)
 конец
  повторить (2) 
    добавить [0] к [Tmp v]
 конец
  изменить [Var v] на (1)
end
задать (Variable) значение (Tmp :: list)