The World —— A Cloud Multiplayer Scrolling Platformer v1.2.1

Instructions: A Cloud Multiplayer Scrolling Platformer\nLove and Fav. pls\nTags :\n#games #Superking212223 #Cloud #Multiplayer #Scrolling #Platformer #The World #Cloud Multiplayer #Cloud Multiplayer Scrolling Platformer #Cloud Multiplayer Platformer #Scrolling Platformer\n\nUpdates :\nv1.1 12/9 Shared\nv1.2 13/9 Achievement System Added\n\n

@Stage\n\n@1. Player\n\nwhen flag clicked\nbroadcast (Green Flag v) and wait\nbroadcast (Play Game v) and wait\n\nwhen I receive [green flag v]\nhide\ngo to [front v] layer\n\nwhen I receive [play game v]\nset [level v] to [1]\nforever\n    broadcast (Reset v) and wait\n    broadcast (Setip v) and wait\n    Game on\n    repeat until <(EXIT) > []>\n        Tick\n        broadcast (Tick v)\n    end\n    if <(EXIT) = [Win]> then\n        Game - Win\n    else\n        Game - Die\n    end\nend\n\ndefine Game on\npoint in direction (90)\nset rotation style [left-right v]\nset [x v] to (STARTX)\nset [y v] to ((STARTY) + (40))\nset [speed y v] to [0]\nset [speed x v] to [0]\nset [in air v] to [0]\nset [exit v] to []\nset [scroll x v] to (STARTX)\nset [scroll y v] to ((STARTY) + (90))\nset size to (100) %\nclear graphic effects\nshow\n\ndefine Tick\nif <touching (26. acceleration  v)?> then\n    set [speed x v] to [75]\nend\nif <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n    change [speed x v] by (-2)\n    point in direction (-90)\nend\nif <<key (right arrow v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>> then\n    change [speed x v] by (2)\n    point in direction (90)\nend\nset [speed x v] to ((Speed x) * (0.8))\nif <([abs v] of (Speed x) ) > [0.9]> then\n    Change player x by (round (Speed x))\nend\nif <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n    if <not <touching (8. water v)?>> then\n        if <(in air) < [4]> then\n            set [speed y v] to [16]\n        end\n    end\nend\nif <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n    if <touching (8. water v)?> then\n        if <[20] > (Speed y)> then\n            change [speed y v] by (1.5)\n        end\n    end\nend\nif <<key (down arrow v) pressed?> or <<mouse down?> and <(y position) > (mouse y)>>> then\n    if <touching (8. water v)?> then\n        if <(Speed y) > [-20]> then\n            change [speed y v] by (-1.5)\n        end\n    else\n        if <(in air) > [0]> then\n            broadcast (#Small jump v)\n        end\n    end\nend\nif <(Speed y) > [-20]> then\n    if <touching (8. water v)?> then\n        change [speed y v] by (-0.1)\n    else\n        change [speed y v] by (-2)\n    end\nend\nChange player y by (Speed y)\nTest - Die\nset [scroll x v] to (x)\nif <(SCROLL X) < [0]> then\n    set [scroll x v] to [0]\nend\nif <(SCROLL X) > [3360]> then\n    set [scroll x v] to [3360]\nend\nif <touching (6. bouncy v)?> then\n    set [speed y v] to [30]\n    broadcast (Boing v)\n    if <key (up arrow v) pressed?> then\n        broadcast (## Big Jump v)\n    end\nend\nif <<touching (3. spikes v)?> or <<touching (11. saws v)?> or <(y) < [-170]>>> then\n    set [exit v] to [Die]\nend\nchange [scroll y v] by (round (((y) - (SCROLL Y)) / (5)))\nif <(SCROLL Y) < [0]> then\n    set [scroll y v] to [0]\nend\nPosition\n\ndefine Change player y by (sy)\nchange [y v] by (sy)\nchange [in air v] by (1)\nPosition\nrepeat until <not <touching (2. level v)?>>\n    if <(sy) > [0]> then\n        change [y v] by (-1)\n    else\n        change [y v] by (1)\n        set [in air v] to [0]\n    end\n    Position\n    set [speed y v] to [0]\nend\n\ndefine Position\ngo to x: ((x) - (SCROLL X)) y: ((y) - (SCROLL Y))\n\ndefine Change player x by (sx)\nchange [x v] by (sx)\nPosition\nif <touching (2. level v)?> then\n    repeat (12)\n        change [y v] by (1)\n        Position\n        if <not <touching (2. level v)?>> then\n            stop [this script v]\n        end\n    end\n    change [y v] by (-12)\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n        if <(sx) > [0]> then\n            set [speed x v] to [-16]\n        else\n            set [speed x v] to [16]\n        end\n        set [in air v] to [0]\n    else\n        set [speed x v] to [0]\n    end\n    repeat until <not <touching (2. level v)?>>\n        if <(sx) > [0]> then\n            change [x v] by (-1)\n        else\n            change [x v] by (1)\n        end\n        Position\n    end\nend\n\ndefine Game - Die\nbroadcast (Die v)\nclear graphic effects\nset rotation style [all around v]\nrepeat (20)\n    turn right (15) degrees\n    change y by (10)\n    change [ghost v] effect by (5)\nend\nset [exit v] to []\n\ndefine Game - Win\nrepeat (50)\n    point towards (exit v)\n    turn right (65) degrees\n    move ((distance to [exit v]) / (2)) steps\n    change size by (-2)\n    change [ghost v] effect by (2)\nend\nhide\nclear graphic effects\nchange [level v] by (1)\nwait (1) seconds\n\ndefine Test - Die\n\nwhen I receive [win v]\nif  then\n    hide\nend\nstop [other scripts in sprite v]\n\nif <(SCROLL Y) < [0]> then\n\nwhen I receive [tick v]\n\nif <(LEVEL) = [5]> then\n    set [scroll x v] to [0]\n    set [scroll y v] to [0]\nend\n\nwhen I receive [die v]\nset [exit v] to [Die]\n\nwhen flag clicked\nset [startx v] to [639]\nset [starty v] to [411]\n\nwhen flag clicked\nforever\n    wait until <touching (8. water v)?>\n    broadcast (Splash v)\n    wait until <not <touching (8. water v)?>>\nend\n\nwhen flag clicked\nset [timeout v] to [5000]\nforever\n    if <<<key (up arrow v) pressed?> or <<key (down arrow v) pressed?> or <<key (left arrow v) pressed?> or <key (right arrow v) pressed?>>>> or <mouse down?>> then\n        set [timeout v] to [5000]\n    end\n    change [timeout v] by (-1)\n    if <(Timeout) = [0]> then\n        stop [all v]\n    end\nend\n\nwhen I receive [tick v]\n\nsay <<touching (10. grass v)?> or <touching (8. water v)?>>\n\nwhen I receive [tick v]\nif <(in air) > [28]> then\n    if <not <touching (8. water v)?>> then\n        wait until <<touching (10. grass v)?> or <touching (8. water v)?>>\n        broadcast (Perfect Land v)\n        wait until <not <(in air) > [27]>>\n    end\nend\n\n\n\nif <<touching (3. spikes v)?> or <<touching (9. lazers v)?> or <touching (11. saws v)?>>> then\n\nreset timer\n\nwhen I receive [tick v]\n\nbroadcast (Perfect Land v) and wait\n\nif <<touching (10. grass v)?> or <touching (8. water v)?>> then\n    set [timer v] to [-0.1]\n    wait until <<touching (10. grass v)?> or <touching (8. water v)?>>\nend\n\nforever\n    change [timer v] by (0.1)\n    wait (0.077) seconds\nend\n\nwhen I receive [splash v]\nif <(Unmute ?) = [True]> then\n    play sound [Splash v] until done\nend\n\nwhen I receive [boing v]\nif <(Unmute ?) = [True]> then\n    play sound [Big Boing v] until done\nend\n\nwhen I receive [die v]\nif <(Unmute ?) = [True]> then\n    play sound [Oops v] until done\nend\n\nwhen [down arrow v] key pressed\nset [speed y v] to [0]\n\nwhen I receive [## big jump v]\nset [speed y v] to [40]\n\nwhen flag clicked\nforever\n    set [in air v] to (in air)\nend\n\nwhen [space v] key pressed\n\nif <(direction) = [90]> then\n\nbroadcast (#Small jump v)\n\n@2. Level\n\nwhen I start as a clone\n\nwhen I receive [green flag v]\nhide\nswitch backdrop to (1 v)\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [setip v]\nhide\nset [x v] to [0]\nset [y v] to [360]\nswitch costume to (level 1-1 v)\ngo [backward v] (4) layers\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [0]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [0] y: [0]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [0]\nClone at x: [480] y: [0]\nClone at x: [-960] y: [360]\nClone at x: [-480] y: [360]\nif <(Lock::1) = [1]> then\n    broadcast (Picklock one v)\nend\nif <(Lock::2) = [1]> then\n    broadcast (Picklock two v)\nend\n\ndefine Clone at x: (x) y: (y)\ngo [forward v] (1) layers\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\n\nwhen I receive [win v]\nif  then\n    delete this clone\nend\nstop [other scripts in sprite v]\n\nwhen I receive [picklock one v]\nif <(costume [number v]) = [4]> then\n    delete this clone\nend\n\nwhen flag clicked\nset [lock::1 v] to [0]\nset [lock::2 v] to [0]\n\nwhen I receive [picklock two v]\nif <(costume [number v]) = [10]> then\n    delete this clone\nend\n\n@3. Spikes\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [setip v]\nswitch costume to (level 1-1 v)\nhide\nset [x v] to [0]\nset [y v] to [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [0]\nClone at x: [480] y: [0]\nClone at x: [-480] y: [360]\nClone at x: [480] y: [0]\nClone at x: [-480] y: [0]\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x: (x) y: (y)\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\n\nwhen I receive [win v]\nif  then\n    delete this clone\nend\nstop [other scripts in sprite v]\n\n@4. Shadows\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [setip v]\nhide\nset [x v] to [0]\nset [y v] to [360]\nswitch costume to (level 1-4 v)\nset [ghost v] effect to (10)\ngo to [back v] layer\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: ((480) * (2)) y: [0]\nClone at x: [480] y: [0]\n\ndefine Position (x) (y)\ngo to [back v] layer\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x: (x) y: (y)\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\n\nwhen I receive [win v]\nif  then\n    delete this clone\nend\nstop [other scripts in sprite v]\n\n@5. Blank\n\n@6. Bouncy\n\nwhen I receive [green flag v]\nhide\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\nif <touching (1. player v)?> then\n    switch costume to (bounce2 v)\nelse\n    switch costume to (bounce v)\nend\n\ndefine Clone at x: (x) y: (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\n\nwhen I receive [setip v]\nhide\ngo to [back v] layer\nClone at x: [1241] y: [300]\nClone at x: [1432] y: [300]\nClone at x: [1564] y: [-90]\nClone at x: [2187] y: [-90]\nClone at x: [2307] y: [130]\nClone at x: [2543] y: [130]\nClone at x: [2762] y: [130]\nClone at x: [2650] y: [275]\nClone at x: [2073] y: [619]\nClone at x: [1900] y: [579]\nset [x v] to [-100]\nset [y v] to [-100]\n\nwhen I receive [reset v]\ndelete this clone\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nswitch costume to (bounce2 v)\nswitch costume to (close flag2 v)\nswitch costume to (bounce v)\n\nrepeat (2)\n    next costume\nend\nrepeat (2)\n    switch costume to ((costume [number v]) - (1))\nend\n\nClone at x: [1347] y: [-20]\n\n@7. Coins\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nnext costume\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\nif <touching (1. player v)?> then\n    change [collected v] by (1)\n    if <(COLLECTED) = (COLLECT MAX)> then\n        broadcast (Open exit v)\n    end\n    if <(Unmute ?) = [True]> then\n        broadcast (Coin v)\n    end\n    delete this clone\nend\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\ndefine Clone at x: (x) y: (y)\nset [x v] to (x)\nset [y v] to (y)\nchange [collect max v] by (1)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nforever\n    set [display value v] to (join (COLLECTED) (join [ / ] (COLLECT MAX)))\nend\n\nwhen [space v] key pressed\nset [mesee v] to (join ((mouse x) + (SCROLL X)) (join [,] ((mouse y) + (SCROLL Y))))\n\nwhen flag clicked\nhide\nset [collected v] to [0]\nset [collect max v] to [0]\nClone at x: [-100] y: [0]\nClone at x: [354] y: [220]\nClone at x: [424] y: [220]\nClone at x: [494] y: [220]\nClone at x: [17] y: [431]\nClone at x: [-112] y: [344]\nClone at x: [-112] y: [274]\nClone at x: [-112] y: [204]\nClone at x: [-112] y: [134]\nClone at x: [-112] y: [64]\nClone at x: [70] y: [31]\nClone at x: [325] y: [25]\nClone at x: [800] y: [85]\nClone at x: [800] y: [35]\nClone at x: [800] y: [-15]\nClone at x: [1337] y: [500]\nClone at x: [1480] y: [308]\nClone at x: [1595] y: [308]\nClone at x: [1595] y: [238]\nClone at x: [1595] y: [168]\nClone at x: [1595] y: [98]\nClone at x: [1595] y: [28]\nClone at x: [1079] y: [309]\nClone at x: [1773] y: [-24]\nClone at x: [1952] y: [-81]\nClone at x: [1863] y: [-81]\nClone at x: [2024] y: [-24]\nClone at x: [2240] y: [-81]\nClone at x: [2542] y: [-7]\nClone at x: [2657] y: [-52]\nClone at x: [2773] y: [-7]\nClone at x: [2349] y: [-24]\nClone at x: [2648] y: [320]\nClone at x: [2379] y: [284]\nClone at x: [2465] y: [284]\nClone at x: [2759] y: [192]\nClone at x: [2869] y: [137]\nClone at x: [2928] y: [219]\nClone at x: [2997] y: [140]\nClone at x: [3315] y: [116]\nClone at x: [3160] y: [94]\nClone at x: [3462] y: [80]\nClone at x: [2512] y: [471]\nClone at x: [2253] y: [548]\nClone at x: [2416] y: [471]\nClone at x: [1988] y: [900]\nset [x v] to [-9999]\nset [y v] to [0]\ngo to [front v] layer\n\nwhen I receive [coin v]\nplay sound [Coin v] until done\n\nClone at x: [1988] y: [900]\n\n@8. Water\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [setip v]\nhide\nset [x v] to [0]\nset [y v] to [360]\nset [ghost v] effect to (60)\ngo to [front v] layer\nswitch costume to (level 1-1 v)\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: ((4) * (480)) y: [0]\ncreate clone of (_myself_ v)\nset [x v] to [-99999]\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x: (x) y: (y)\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\n\nwhen I receive [win v]\nif  then\n    delete this clone\nend\nstop [other scripts in sprite v]\n\nwhen I start as a clone\ngo to [back v] layer\nforever\n    set [ghost v] effect to (60)\n    repeat (20)\n        change [y v] by (-0.5)\n    end\n    repeat (20)\n        change [y v] by (0.5)\n    end\nend\n\n@9. Lazers\n\nwhen I receive [green flag v]\nhide\nswitch backdrop to (1 v)\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\ndefine Clone at x: (x) y: (y)\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nchange [count v] by (2)\n\nwhen I receive [win v]\nif  then\n    delete this clone\nend\nstop [other scripts in sprite v]\n\nwhen I receive [tick v]\nif <((current [second v]) mod (4)) < [2]> then\n    broadcast (Laser v)\n    switch costume to (count)\n    if <touching (1. player v)?> then\n        broadcast (die v)\n    end\nelse\n    switch costume to ((count) + (1))\nend\n\nwhen I receive [setip v]\nhide\nset [count v] to [1]\nset [x v] to [0]\nset [y v] to [360]\nswitch costume to (level-1 v)\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: ((480) * (3)) y: [0]\n\n@10. Grass\n\nwhen I receive [green flag v]\nhide\nswitch backdrop to (1 v)\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [setip v]\nhide\nset [x v] to [0]\nset [y v] to [360]\nswitch costume to (level 1-1 v)\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [360]\nClone at x: [0] y: [-360]\nClone at x: [480] y: [0]\nClone at x: [480] y: [0]\nClone at x: [-960] y: [360]\nClone at x: [-480] y: [360]\n\ndefine Clone at x: (x) y: (y)\ncreate clone of (_myself_ v)\nchange [x v] by (x)\nchange [y v] by (y)\nnext costume\n\nwhen I receive [win v]\nif  then\n    delete this clone\nend\nstop [other scripts in sprite v]\n\nset [scroll x v] to [0]\n\nwhen I start as a clone\ngo [backward v] (2) layers\n\n@11. Saws\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nturn left (15) degrees\nnext costume\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nwhen I receive [setip v]\nif  then\n    delete this clone\nend\nhide\nset [x v] to [-9999]\nset [y v] to [0]\nClone at x: [230] y: [200]\nClone at x: [-180] y: [501]\nClone at x: [-180] y: [-42]\nClone at x: [970] y: [-165]\nClone at x: [1340] y: [286]\nClone at x: [1236] y: [-43]\nClone at x: [1996] y: [601]\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\ndefine Clone at x: (x) y: (y)\npoint in direction (90)\nset [x v] to (x)\nset [y v] to (y)\nchange [collect max v] by (1)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nforever\n    set [display value v] to (join (COLLECTED) (join [ / ] (COLLECT MAX)))\nend\n\n@12. Music\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [unmute ? v] to [True]\n\nwhen I receive [tick v]\nif <(Unmute ?) = [True]> then\n    switch costume to (costume1 v)\nelse\n    switch costume to (costume2 v)\nend\nif <touching (mouse-pointer v)?> then\n    set [brightness v] effect to (50)\nelse\n    clear graphic effects\nend\n\nwhen flag clicked\nforever\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        if <(Unmute ?) = [True]> then\n            set [unmute ? v] to [False]\n            switch costume to (costume2 v)\n        else\n            set [unmute ? v] to [True]\n            switch costume to (costume1 v)\n        end\n    end\n    wait until <not <mouse down?>>\nend\n\nwhen I receive [tick v]\ngo to [front v] layer\n\nwhen I receive [tick v]\nif <(Unmute ?) = [True]> then\n    set volume to (60) %\nelse\n    set volume to (0) %\nend\n\n@13. Diamond\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nnext costume\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\nrepeat until <touching (1. player v)?>\n    turn right (0.5) degrees\n    wait (0.02) seconds\n    turn right (-0.5) degrees\n    wait (0.02) seconds\nend\nchange [#diamonds v] by (1)\nif <(Unmute ?) = [True]> then\n    broadcast (Diamond v)\nend\ndelete this clone\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\ndefine Clone at x: (x) y: (y)\ngo to [front v] layer\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\n\nwhen [space v] key pressed\nset [mesee v] to (join ((mouse x) + (SCROLL X)) (join [,] ((mouse y) + (SCROLL Y))))\n\nwhen I start as a clone\nforever\n    repeat (20)\n        change [y v] by (-0.5)\n    end\n    repeat (20)\n        change [y v] by (0.5)\n    end\nend\n\nwhen flag clicked\nhide\nset [collected v] to [0]\nset [collect max v] to [0]\nClone at x: [640] y: [248]\nClone at x: [1139] y: [105]\nClone at x: [1345] y: [-39]\nClone at x: [2875] y: [-25]\nClone at x: [3545] y: [102]\nClone at x: [2225] y: [830]\nset [x v] to [-9999]\nset [y v] to [0]\n\nwhen I receive [diamond v]\nif <(Unmute ?) = [True]> then\n    play sound [Magic Spell v] until done\nend\n\n@14. Display\n\nwhen flag clicked\ngo to x: (-72) y: (50.5)\nClone\ngo to x: (0) y: (0)\nswitch costume to (display v)\nset size to (100) %\nforever\n    clear graphic effects\nend\n\nset size to (70) %\n\ndefine Digit (number)\nset y to (50)\nif <not <touching (18. other v)?>> then\n    go to [front v] layer\nend\nset size to (70) %\nset [brightness v] effect to (100)\nif <<[4] > (number)> and <(number) > [0]>> then\n    switch costume to (join [A] (letter (number) of (COLLECTED)))\n    if <<not <(number) = [1]>> and <(costume [number v]) = [A]>> then\n        show\n    else\n        show\n    end\nend\nif <<[7] > (number)> and <(number) > [3]>> then\n    switch costume to (join [A] (letter ((number) - (3)) of (#Diamonds)))\n    if <<not <(number) = [1]>> and <(costume [number v]) = [A]>> then\n        show\n    else\n        show\n    end\nend\n\nwhen I receive [tick v]\nif <not <(???CLONE???) = [7]>> then\n    Digit (???CLONE???)\nend\n\ndefine Clone\nset [???clone??? v] to [1]\nrepeat until <(???CLONE???) = [4]>\n    switch costume to (join [A] (letter (???CLONE???) of (COLLECTED)))\n    go to [front v] layer\n    create clone of (_myself_ v)\n    change [???clone??? v] by (1)\n    change x by (19)\nend\nchange x by (50)\nrepeat until <(???CLONE???) = [7]>\n    switch costume to (join [A] (letter ((???CLONE???) - (3)) of (#Diamonds)))\n    go to [front v] layer\n    create clone of (_myself_ v)\n    change [???clone??? v] by (1)\n    change x by (13)\nend\n\nchange x by (50)\nrepeat until <(???CLONE???) = [10]>\n    switch costume to (join [A] (letter ((???CLONE???) - (6)) of (VIP)))\n    go to [front v] layer\n    create clone of (_myself_ v)\n    change [???clone??? v] by (1)\n    change x by (13)\nend\n\nshow\n\nwhen flag clicked\nset [#diamonds v] to [0]\n\nset [#diamonds v] to [10]\n\nset [collected v] to [104]\nset [#diamonds v] to [104]\n\nwhen I receive [setip v]\nif <not <touching (18. other v)?>> then\n    go to [front v] layer\nend\n\nwhen I receive [reset v]\nif <not <touching (18. other v)?>> then\n    go to [front v] layer\nend\n\nwhen I receive [setip v]\nwait (0.01) seconds\ngo to [front v] layer\n\nif <<[10] > (number)> and <(number) > [6]>> then\n    switch costume to (join [A] (letter ((number) - (6)) of (VIP)))\n    if <<not <(number) = [1]>> and <(costume [number v]) = [A]>> then\n        show\n    else\n        show\n    end\nend\n\nchange [collected v] by (1)\n\n@15. Key\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nnext costume\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\ndefine Clone at x: (x) y: (y)\nset [x v] to (x)\nset [y v] to (y)\ncreate clone of (_myself_ v)\n\nwhen [space v] key pressed\nset [mesee v] to (join ((mouse x) + (SCROLL X)) (join [,] ((mouse y) + (SCROLL Y))))\n\nwhen I start as a clone\nforever\n    repeat (20)\n        change [y v] by (-0.5)\n    end\n    repeat (20)\n        change [y v] by (0.5)\n    end\nend\n\nwhen I start as a clone\nforever\n    if <touching (1. player v)?> then\n        if <(x) = [479]> then\n            set [lock::1 v] to [1]\n            broadcast (Picklock one v)\n        else\n            if <(x) = [1410]> then\n                set [lock::2 v] to [1]\n                broadcast (Picklock two v)\n            end\n        end\n        broadcast (Magic Spell v)\n    end\nend\n\nwhen flag clicked\nhide\nClone at x: [479] y: [30]\nClone at x: [1410] y: [132]\nset [x v] to [-9999]\nset [y v] to [0]\n\nwhen I receive [picklock one v]\nif <(x) = [479]> then\n    delete this clone\nend\n\nwhen I receive [picklock two v]\nif <(x) = [1410]> then\n    delete this clone\nend\n\nwhen I receive [magic spell v]\nif <(Unmute ?) = [True]> then\n    play sound [Magic Spell v] until done\nend\n\n@16. Thumbnail\n\nwhen [timer v] > (0.01)\nif <(Timeout) = [0]> then\n    switch costume to (costume4 v)\nelse\n    if <(__full) = [1]> then\n        switch costume to (costume3 v)\n    else\n        if <(_EXIT) = [True]> then\n            switch costume to (costume2 v)\n        else\n            switch costume to (costume1 v)\n        end\n    end\nend\nclear graphic effects\nshow\nset [ghost v] effect to (100)\nrepeat (20)\n    go to [front v] layer\n    change [ghost v] effect by (-5)\nend\ngo to [front v] layer\n\nwhen flag clicked\nset [_exit v] to [False]\nforever\n    hide\n    set [ghost v] effect to (100)\n    reset timer\nend\n\nwhen I receive [begin v]\nwait (3) seconds\nforever\n    if <(Unmute ?) = [True]> then\n        play sound [Pixelland.mp3 v] until done\n    end\nend\n\nwhen flag clicked\nforever\n    set [collect max v] to [46]\nend\n\nswitch costume to (costume1 v)\n\n@17. Checkpoints\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\nif <touching (1. player v)?> then\n    if <not <[1730] = (x)>> then\n        if <not <(STARTX) = (x)>> then\n            point in direction (135)\n            broadcast (Ding v)\n        end\n        set [startx v] to (x)\n        set [starty v] to (y)\n    end\n    if <<[1730] = (x)> and <<(COLLECTED) = (COLLECT MAX)> and <(#Diamonds) = [6]>>> then\n        set [_exit v] to [True]\n        stop [all v]\n    end\nend\nif <<(STARTX) = (x)> and <not <[1730] = (x)>>> then\n    switch costume to (checkpoint1 v)\nelse\n    if <[1730] = (x)> then\n        if <<(COLLECTED) = (COLLECT MAX)> and <(#Diamonds) = [6]>> then\n            switch costume to (checkpoint3 v)\n        else\n            switch costume to (checkpoint2 v)\n        end\n    else\n        switch costume to (checkpoint2 v)\n    end\nend\n\ndefine Position (x) (y)\nturn right (((90) - (direction)) / (5)) degrees\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\ndefine Clone at x: (x) y: (y)\ngo to [back v] layer\nswitch costume to (checkpoint2 v)\nset [x v] to (x)\nset [y v] to (y)\nchange [collect max v] by (1)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nforever\n    set [display value v] to (join (COLLECTED) (join [ / ] (COLLECT MAX)))\nend\n\nwhen [space v] key pressed\nset [mesee v] to (join ((mouse x) + (SCROLL X)) (join [,] ((mouse y) + (SCROLL Y))))\n\nwhen flag clicked\nhide\nClone at x: [639] y: [411]\nClone at x: [1651] y: [-105]\nClone at x: [2830] y: [112]\nClone at x: [1730] y: [717]\nset [y v] to [-500]\n\nwhen I receive [ding v]\nif <(Unmute ?) = [True]> then\n    play sound [Ding v] until done\nend\n\n@18. Other\n\ndefine encode string (val) and add to encoded value (new encode section?) (boolean)\nswitch costume to (lowercase v)\nif <(boolean) = [true]> then\n    set [encoded value v] to []\nend\nset [readdata# v] to [1]\nrepeat (length of (val))\n    set [word v] to (letter (readdata#) of (val))\n    switch costume to (join (word) [\)])\n    set [word v] to (item # of (word) in [run:data v])\n    if <(costume [name v]) = [lowercase]> then\n        if <not <(word) = [0]>> then\n            set [encoded value v] to (join (encoded value) (word))\n        else\n            set [encoded value v] to (join (encoded value) (item # of [*] in [run:data v]))\n        end\n    else\n        if <not <(word) = [0]>> then\n            set [encoded value v] to (join (encoded value) ((word) + (26)))\n        else\n            set [encoded value v] to (join (encoded value) (item # of [*] in [run:data v]))\n        end\n    end\n    switch costume to (lowercase v)\n    change [readdata# v] by (1)\nend\nset [encoded value v] to (join (encoded value) [000])\n\ndefine decode string (code) and add to value (new decode section?) (boolean)\nset [decoded result v] to []\nif <(boolean) = [true]> then\n    set [encoded value v] to (code)\n    set [readdata# v] to [1]\nend\nforever\n    set [decode idx v] to (join (letter (readdata#) of (encoded value)) (join (letter ((readdata#) + (1)) of (encoded value)) (letter ((readdata#) + (2)) of (encoded value))))\n    change [readdata# v] by (3)\n    if <(decode IDX) < [1]> then\n        stop [this script v]\n    end\n    set [decoded result v] to (join (decoded result) (item (decode IDX) of [run:data v]))\nend\n\ndefine clone (amount)\nset [offline v] to [100]\nset [clone# v] to [1]\nrepeat ((amount) - (1))\n    create clone of (_myself_ v)\n    change [clone# v] by (1)\nend\n\ndefine send cloud (#) (data)\nif <(#) = [1]> then\n    set [☁ p1 v] to (data)\nelse\n    if <(#) = [2]> then\n        set [☁ p2 v] to (data)\n    else\n        if <(#) = [3]> then\n            set [☁ p3 v] to (data)\n        else\n            if <(#) = [4]> then\n                set [☁ p4 v] to (data)\n            else\n                if <(#) = [5]> then\n                    set [☁ p5 v] to (data)\n                else\n                    if <(#) = [6]> then\n                        set [☁ p6 v] to (data)\n                    else\n                        if <(#) = [7]> then\n                            set [☁ p7 v] to (data)\n                        else\n                            if <(#) = [8]> then\n                                set [☁ p8 v] to (data)\n                            else\n                                if <(#) = [9]> then\n                                    set [☁ p9 v] to (data)\n                                else\n                                    if <(#) = [10]> then\n                                        set [☁ p10 v] to (data)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine value = cloud (#)\nif <(#) = [1]> then\n    set [decoded result v] to (☁ P1)\nelse\n    if <(#) = [2]> then\n        set [decoded result v] to (☁ P2)\n    else\n        if <(#) = [3]> then\n            set [decoded result v] to (☁ P3)\n        else\n            if <(#) = [4]> then\n                set [decoded result v] to (☁ P4)\n            else\n                if <(#) = [5]> then\n                    set [decoded result v] to (☁ P5)\n                else\n                    if <(#) = [6]> then\n                        set [decoded result v] to (☁ P6)\n                    else\n                        if <(#) = [7]> then\n                            set [decoded result v] to (☁ P7)\n                        else\n                            if <(#) = [8]> then\n                                set [decoded result v] to (☁ P8)\n                            else\n                                if <(#) = [9]> then\n                                    set [decoded result v] to (☁ P9)\n                                else\n                                    if <(#) = [10]> then\n                                        set [decoded result v] to (☁ P10)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\nset [__full v] to [0]\nset [@my player id@ v] to [0]\nhide\nclone [10]\nbroadcast (join game v) and wait\nif <(@MY PLAYER ID@) = [0]> then\n    set [__full v] to [1]\n    stop [all v]\nend\nbroadcast (begin v)\n\nwhen I receive [join game v]\nset [connected? v] to [false]\nvalue = cloud (clone#)\nset [_last val v] to (join [A] (decoded result))\nwait (2) seconds\nvalue = cloud (clone#)\nset [_disconnection_last val v] to (join [A] (decoded result))\nif <(join [A] (decoded result)) = (_last val)> then\n    set [@my player id@ v] to (clone#)\nend\nset [connected? v] to [true]\n\nwhen I receive [begin v]\nforever\n    if <(@MY PLAYER ID@) = (clone#)> then\n        go to [front v] layer\n        hide\n        encode string (round ([x v] of [1. player v])) and add to encoded value (new encode section?) [true]\n        encode string (round ([y v] of [1. player v])) and add to encoded value (new encode section?) []\n        encode string (username) and add to encoded value (new encode section?) []\n        encode string (round ((days since 2000) * (1000000))) and add to encoded value (new encode section?) []\n        send cloud (@MY PLAYER ID@) (encoded value)\n    else\n        value = cloud (clone#)\n        disconnection timeout [20]\n        decode string (decoded result) and add to value (new decode section?) [true]\n        set [x v] to (decoded result)\n        set x to ((x) - (SCROLL X))\n        decode string [] and add to value (new decode section?) []\n        set [y v] to (decoded result)\n        set y to ((y) - (SCROLL Y))\n        decode string [] and add to value (new decode section?) []\n        think (join (clone#) (join [:] (decoded result)))\n        switch costume to (player_0 v)\n        clear graphic effects\n        set rotation style [left-right v]\n        if <<not <(x position) = ((x) - (SCROLL X))>> or <not <(y position) = ((y) - (SCROLL Y))>>> then\n            switch costume to (arrow3 v)\n            point towards (5. blank v)\n            set rotation style [all around v]\n            move (40) steps\n            think []\n        end\n        go to [front v] layer\n    end\nend\n\ndefine disconnection timeout (frames)\nvalue = cloud (clone#)\nif <(join [A] (decoded result)) = (_disconnection_last val)> then\n    change [offline v] by (-1)\n    if <(offline) < (frames)> then\n        hide\n    end\nelse\n    set [offline v] to [100]\n    set [_disconnection_last val v] to (join [A] (decoded result))\n    if <(connected?) = [true]> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I start as a clone\nforever\n    go to [front v] layer\nend\n\n@19. Connect to Cloud\n\nwhen I receive [join game v]\nshow\nswitch costume to (connecting v)\nclear graphic effects\ngo to x: (0) y: (0)\n\nwhen I receive [tick v]\ngo to [front v] layer\n\nwhen I receive [begin v]\nswitch costume to (connected v)\nwait (1) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nhide\n\n@20. Achievement\n\nwhen I receive [perfect land v]\nset [achievement v] to [Perfect Land]\ncreate clone of (_myself_ v)\nset [achievement v] to []\n\nwhen I receive [perfect land v]\n\nwhen flag clicked\nforever\n    hide\nend\n\nwhen I receive [die v]\ndelete this clone\n\nwhen I receive [die v]\ndelete this clone\n\nwhen I receive [#small jump v]\nset [achievement v] to [Air Glide]\ncreate clone of (_myself_ v)\nset [achievement v] to []\n\nwhen I receive [tick v]\n\nwhen flag clicked\nset [lan v] to [0]\n\nif <(username) = [Superking212223]> then\n    set [lan v] to [1]\nend\n\nswitch costume to (air glide v)\n\nif <(lan) = [0]> then\n\nif <(Achievement) = [Super Jump]> then\n\nwhen I start as a clone\nif <(Achievement) = [Perfect Land]> then\n    switch costume to (perfect land v)\nend\nif <(Achievement) = [Air Glide]> then\n    switch costume to (air glide v)\nend\nif <(Achievement) = [Speed Run]> then\n    switch costume to (speed run v)\nend\nif <(Achievement) = [Super Jump]> then\n    switch costume to (super jump v)\nend\nwait (0.01) seconds\nwait (0) seconds\nrepeat (1)\n    show\n    clear graphic effects\n    go to x: (0) y: (-154)\n    go to [front v] layer\n    set size to (200) %\n    wait (0.05) seconds\n    repeat (3)\n        change size by (-40)\n    end\n    repeat (25)\n        change [ghost v] effect by (5)\n        wait (0.03) seconds\n        change [ghost v] effect by (-5)\n        wait (0.03) seconds\n    end\n    repeat (5)\n        change [ghost v] effect by (20)\n    end\n    delete this clone\nend\n\nswitch costume to (air glide v)\n\nwhen I receive [## big jump v]\nset [achievement v] to [Super Jump]\ncreate clone of (_myself_ v)\nset [achievement v] to []\n\nwhen I receive [~~~~~~~~~speed run v]\nset [achievement v] to [Speed Run]\ncreate clone of (_myself_ v)\nset [achievement v] to []\n\nif <(In Air) > [0]> then\n    broadcast (#Small jump v)\nend\n\n@21. Animation\n\nwhen flag clicked\nset [numbers v] to [0]\nset [intro v] to [0]\nhide\nset [__clone number v] to [5]\ncreate clone of (_myself_ v)\nset [__clone number v] to [0]\nrepeat (2)\n    change [__clone number v] by (1)\n    create clone of (_myself_ v)\nend\nwait until <(Intro) = [1]>\nset [__clone number v] to [4]\ncreate clone of (_myself_ v)\nset [__clone number v] to [3]\nrepeat (100)\n    create clone of (_myself_ v)\n    create clone of (_myself_ v)\n    create clone of (_myself_ v)\nend\nwait until <(Numbers) > [299]>\nset [intro v] to [2]\n\nwhen I start as a clone\nshow\nif <(__Clone Number) = [1]> then\n    go to x: (0) y: (0)\n    switch costume to (costume2 v)\n    clear graphic effects\n    go to [front v] layer\n    wait until <(Intro) = [2]>\n    delete this clone\nend\n\nwhen I start as a clone\nshow\nif <(__Clone Number) = [3]> then\n    set [speed v] to (pick random (20) to (35))\n    go to x: (0) y: (0)\n    go to [front v] layer\n    go [forward v] (1) layers\n    set size to (pick random (65) to (90)) %\n    clear graphic effects\n    change [ghost v] effect by (pick random (50) to (10))\n    switch costume to (costume3 v)\n    change [color v] effect by (pick random (0) to (199))\n    point in direction (pick random (0) to (359))\n    repeat until <touching (_edge_ v)?>\n        move (Speed) steps\n    end\n    change [numbers v] by (1)\n    delete this clone\nend\n\nwhen I start as a clone\nshow\nif <(__Clone Number) = [2]> then\n    wait (0.05) seconds\n    switch costume to (costume1 v)\n    clear graphic effects\n    go to [front v] layer\n    go to x: (0) y: (0)\n    repeat (20)\n        change [brightness v] effect by (5)\n    end\n    wait (0.1) seconds\n    set [intro v] to [1]\n    clear graphic effects\n    wait until <(Intro) = [2]>\n    delete this clone\nend\n\nwait (0.04) seconds\n\nwhen flag clicked\nwait until <(Intro) = [1]>\nrepeat (20)\n    if <(Unmute ?) = [True]> then\n        play sound [pop v] until done\n    end\n    wait (0.1) seconds\nend\n\nif <(Unmute ?) = [True]> then\n    play sound [pop v] until done\nend\n\nwait until <(Numbers) > [299]>\n\n\ndelete this clone\n\npoint in direction (90)\n\nwhen I start as a clone\nif <(__Clone Number) = [4]> then\n    switch costume to (costume4 v)\n    set size to (250) %\n    go to x: (0) y: (0)\n    go to [front v] layer\n    repeat until <(Intro) = [2]>\n        turn right (5) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(__Clone Number) = [5]> then\n    wait (0.05) seconds\n    go to x: (0) y: (0)\n    go to [front v] layer\n    set size to (100) %\n    switch costume to (costume5 v)\n    clear graphic effects\n    set [ghost v] effect to (100)\n    hide\n    wait until <(Intro) = [2]>\n    show\n    repeat (20)\n        change [ghost v] effect by (-5)\n    end\n    wait until <<<mouse down?> and <touching (mouse-pointer v)?>> or <key (any v) pressed?>>\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\nclear graphic effects\n\nwait (0.1) seconds\nset [intro v] to [1]\nclear graphic effects\n\n@22. Chat\n\nwhen I receive [tick v]\nforever\n    if <key (t v) pressed?> then\n        broadcast (AAA Open Chatbox v)\n    end\nend\n\nwait until <not <key (t v) pressed?>>\n\n@23. Chatbox\n\nif <(Shop) > [0]> then\nend\n\nwhen I receive [aaa open chatbox v]\n\nwhen I receive [aaa open chatbox v]\nforever\n    if <(Can Chat) = [1]> then\n        if <key (1 v) pressed?> then\n            set [_chat v] to (item (1) of [chat v])\n        end\n        if <key (2 v) pressed?> then\n            set [_chat v] to (item (2) of [chat v])\n        end\n        if <key (3 v) pressed?> then\n            set [_chat v] to (item (3) of [chat v])\n        end\n        if <key (4 v) pressed?> then\n            set [_chat v] to (item (4) of [chat v])\n        end\n        if <key (5 v) pressed?> then\n            set [_chat v] to (item (5) of [chat v])\n        end\n        if <key (6 v) pressed?> then\n            set [_chat v] to (item (6) of [chat v])\n        end\n        if <key (7 v) pressed?> then\n            set [_chat v] to (item (7) of [chat v])\n        end\n        if <key (8 v) pressed?> then\n            set [_chat v] to (item (8) of [chat v])\n        end\n    end\n    set [username v] to []\n    set [count v] to [0]\n    repeat (length of (username))\n        change [count v] by (1)\n        set [username v] to (join (Username) (item # of (letter (Count) of (username)) in [a thingy v]))\n    end\n    set [encoded v] to []\n    set [count v] to [0]\n    repeat (length of (_Chat))\n        change [count v] by (1)\n        set [encoded v] to (join (Username) (join [514651] (join (Encoded) (item # of (letter (Count) of (_Chat)) in [a thingy v]))))\n    end\n    set [☁ chat v] to (Encoded)\n    set [count v] to [0]\n    set [encoded v] to []\nend\n\nwhen I receive [aaa open chatbox v]\ngo to [front v] layer\nset size to (200) %\nshow\ngo to x: (0) y: (-385)\nset size to (100) %\nrepeat (7)\n    set size to (200) %\n    change y by (32)\n    set size to (100) %\nend\nrepeat (6)\n    set size to (200) %\n    change y by (12)\n    set size to (100) %\nend\nrepeat (5)\n    set size to (200) %\n    change y by (9)\n    set size to (100) %\nend\nrepeat (4)\n    set size to (200) %\n    change y by (7)\n    set size to (100) %\nend\nrepeat (3)\n    set size to (200) %\n    change y by (5)\n    set size to (100) %\nend\nchange y by (1)\nset [can chat v] to [1]\nwait until <<mouse down?> and <touching (mouse-pointer v)?>>\nset [can chat v] to [0]\nchange y by (-1)\nrepeat (3)\n    set size to (200) %\n    change y by (-5)\n    set size to (100) %\nend\nrepeat (4)\n    set size to (200) %\n    change y by (-7)\n    set size to (100) %\nend\nrepeat (5)\n    set size to (200) %\n    change y by (-9)\n    set size to (100) %\nend\nrepeat (6)\n    set size to (200) %\n    change y by (-12)\n    set size to (100) %\nend\nrepeat (7)\n    set size to (200) %\n    change y by (-32)\n    set size to (100) %\nend\n\nset [_chat v] to [4365345]\n\nset [username v] to []\nset [count v] to [0]\nrepeat (length of (username))\n    change [count v] by (1)\n    set [username v] to (join (Username) (item # of (letter (Count) of (username)) in [a thingy v]))\nend\nset [encoded v] to []\nset [count v] to [0]\nrepeat (length of (_Chat))\n    change [count v] by (1)\n    set [encoded v] to (join (Username) (join [514651] (join (Encoded) (item # of (letter (Count) of (_Chat)) in [a thingy v]))))\nend\n\n@24. Letters\n\nwhen I start as a clone\nshow\ngo to [front v] layer\nset size to (165) %\nclear graphic effects\nswitch costume to (item # of (letter (Clone Number) of (Decoded)) in [a thingy v])\nwait (4) seconds\ndelete this clone\n\nif <not <(☁ Chat) = []>> then\nend\n\nwhen I receive [tick v]\nforever\n    hide\n    set [decoded v] to []\n    set [_count v] to [0]\n    repeat ((length of (☁ Chat)) / (2))\n        change [_count v] by (2)\n        set [decoded v] to (join (Decoded) (item (join (letter ((_Count) - (1)) of (☁ Chat)) (letter (_Count) of (☁ Chat))) of [a thingy v]))\n    end\n    set [clone number v] to [0]\n    go to x: (-222) y: (161)\n    repeat (length of (Decoded))\n        change [clone number v] by (1)\n        create clone of (_myself_ v)\n    end\n    set [☁ chat v] to []\nend\n\ngo to x: ((-222) + ((Clone Number) * (20))) y: (161)\n\nrepeat ((length of (☁ Chat)) / (2))\nend\n\nchange [_count v] by (2)\nset [decoded v] to (join (Decoded) (item (join (letter ((_Count) - (1)) of (☁ Chat)) (letter (_Count) of (☁ Chat))) of [a thingy v]))\n\nwhen flag clicked\nset [☁ chat v] to []\nset [encoded v] to []\nset [decoded v] to []\n\n@25. Notice\n\nwhen I receive [aaa open chatbox v]\nclear graphic effects\ngo to [front v] layer\nshow\nrepeat (200)\n    change [ghost v] effect by (0.5)\nend\nhide\nclear graphic effects\n\nwhen I receive [aaa open chatbox v]\nclear graphic effects\ngo to [front v] layer\nshow\nrepeat (200)\n    change [ghost v] effect by (0.5)\nend\nhide\nclear graphic effects\n\n@26. Acceleration \n\ndefine Clone at x: (x) y: (y) Dir: (dir)\nset [x v] to (x)\nset [y v] to (y)\nset [_____dir v] to (dir)\ncreate clone of (_myself_ v)\n\nwhen I receive [begin v]\nwait (5) seconds\nClone at x: [716] y: [432] Dir: [90]\nClone at x: [1482] y: [306] Dir: [90]\n\nwhen flag clicked\nforever\n    go to [back v] layer\n    set [ghost v] effect to (100)\n    hide\nend\n\nwhen I start as a clone\ngo to [front v] layer\nforever\n    set rotation style [left-right v]\n    set size to (90) %\n    set [ghost v] effect to (20)\n    show\n    if <(_____dir) = [90]> then\n        point in direction (90)\n    else\n        point in direction (-90)\n    end\nend\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [tick v]\nPosition ((x) - (SCROLL X)) ((y) - (SCROLL Y))\n\nClone at x: [639] y: [500] Dir: []\n\n@27. Thingy\n\n@28. Shop\n\nwhen flag clicked\ngo to x: (0) y: (0)\n\nwhen I receive [tick v]\nif <(Shop) = [True]> then\n    switch costume to (costume2 v)\nelse\n    switch costume to (costume1 v)\nend\nif <touching (mouse-pointer v)?> then\n    set [brightness v] effect to (20)\nelse\n    clear graphic effects\nend\n\nwhen flag clicked\nforever\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        if <(Unmute ?) = [True]> then\n            set [unmute ? v] to [False]\n            switch costume to (costume2 v)\n        else\n            set [unmute ? v] to [True]\n            switch costume to (costume1 v)\n        end\n    end\n    wait until <not <mouse down?>>\nend\n\nwhen I receive [tick v]\ngo to [front v] layer\n\nif <key (q v) pressed?> then\nend\n\nwhen I receive [tick v]\n\nwait until <not <key (q v) pressed?>>\n\nwait (99999999999999) seconds\n\nwait (99999999999999) seconds\n\nwhen [q v] key pressed\nif <(Shop) = [False]> then\n    set [shop v] to [True]\nelse\n    set [shop v] to [False]\nend\nwait until <not <key (q v) pressed?>>\n\n@Sprite1\n\n