Minecraft Platformer - Episode 1

Instructions: -------------------------------------------------------------------------\nKeyboard and Mouse Controls:\nWASD to move around\nDrag Cursor to look around\nSpace to jump\nM to mute music\n-------------------------------------------------------------------------Keyboard Only Controls:\nWASD to move around\nArrow Keys to look around\nSpace to jump\nM to mute music\n-------------------------------------------------------------------------\nTouchscreen Controls:\nUse the Joystick to move\nDrag from the right side of the screen to look around\nPress the jump button to jump\n-------------------------------------------------------------------------\nA better aspect ratio for phones:\nhttps://turbowarp.org/592772044/fullscreen?hqpen&size=480:960&fps=60\n-------------------------------------------------------------------------

@Stage\n\nwhen I receive [turn page v]\nshow variable [/p/ v]\nshow variable [collectable v]\nshow variable [/l/ v]\nforever\n    if <(-Music?) > [0]> then\n        play sound (-Music?) until done\n    end\nend\n\nwhen flag clicked\nwait (0.1) seconds\nset [,current version v] to [1]\nif <(.is Debugger?) = [1]> then\n    set [☁ online v] to (,Current Version)\nend\nforever\n    if <(.is Debugger?) = [0]> then\n        if <(☁ Online) < [0]> then\n            broadcast (Off v)\n        end\n        if <<not <(,Current Version) = (☁ Online)>> and <(☁ Online) > [0]>> then\n            broadcast (Please Reload v)\n        end\n    end\nend\n\nwhen [v v] key pressed\nif <(.is Debugger?) = [1]> then\n    set [,gf pressed? v] to [0]\n    set [,current version v] to [1]\n    set [.my max room v] to [1]\n    set [.to peaceful v] to [0]\n    set [.to hardcore v] to [0]\n    set [kicked v] to [0]\n    set [.levels v] to [7]\nend\n\nwhen I receive [do emote v]\nDo Emote\n\ndefine Emote 2\nset [-emote n° v] to [1]\nrepeat (8)\n    wait (0.05) seconds\n    change [-emote n° v] by (1)\nend\nwait (0.5) seconds\nrepeat (5)\n    change [-emote n° v] by (-1)\n    wait (0.05) seconds\nend\nset [-emote n° v] to [5]\nwait (0.05) seconds\nset [-emote n° v] to [10]\nrepeat (3)\n    wait (0.05) seconds\n    change [-emote n° v] by (1)\nend\nwait (0.5) seconds\nrepeat (3)\n    change [-emote n° v] by (-1)\n    wait (0.05) seconds\nend\nset [-emote n° v] to [4]\nwait (0.05) seconds\nset [-emote n° v] to [5]\nwait (0.05) seconds\nset [-emote n° v] to [14]\nrepeat (3)\n    wait (0.05) seconds\n    change [-emote n° v] by (1)\nend\nwait (0.5) seconds\nrepeat (3)\n    change [-emote n° v] by (-1)\n    wait (0.05) seconds\nend\nset [-emote n° v] to [4]\nwait (0.05) seconds\nset [-emote n° v] to [5]\nwait (0.05) seconds\nset [-emote n° v] to [18]\nrepeat (3)\n    wait (0.05) seconds\n    change [-emote n° v] by (1)\nend\nwait (0.5) seconds\nrepeat (3)\n    change [-emote n° v] by (-1)\n    wait (0.05) seconds\nend\nset [-emote n° v] to [4]\nwait (0.05) seconds\nset [-emote n° v] to [4]\nrepeat (3)\n    change [-emote n° v] by (-1)\n    wait (0.05) seconds\nend\nset [-doing emote v] to [0]\n\ndefine Do Emote\nif <(-Doing Emote) = [1]> then\n    set [-emote n° v] to [1]\nelse\n    if <(-Doing Emote) = [2]> then\n        Emote 2\n    else\n        if <(-Doing Emote) = [3]> then\n            set [-emote n° v] to [1]\n            repeat (13)\n                wait (0.05) seconds\n                change [-emote n° v] by (1)\n            end\n        else\n            if <(-Doing Emote) = [4]> then\n                set [-emote n° v] to [1]\n                repeat (4)\n                    wait (0.05) seconds\n                    change [-emote n° v] by (1)\n                end\n            else\n                if <(-Doing Emote) = [5]> then\n                    set [-emote n° v] to [1]\n                    repeat (5)\n                        wait (0.05) seconds\n                        change [-emote n° v] by (1)\n                    end\n                    repeat (3)\n                        wait (0.4) seconds\n                        change [-emote n° v] by (1)\n                    end\n                else\n                    if <(-Doing Emote) = [6]> then\n                        set [-emote n° v] to [1]\n                        repeat (3)\n                            wait (0.05) seconds\n                            change [-emote n° v] by (1)\n                        end\n                        forever\n                            wait (0.1) seconds\n                            set [-emote n° v] to [5]\n                            wait (0.1) seconds\n                            set [-emote n° v] to [4]\n                        end\n                    else\n                        if <(-Doing Emote) = [7]> then\n                            set [-emote n° v] to [1]\n                            repeat (11)\n                                wait (0.05) seconds\n                                change [-emote n° v] by (1)\n                            end\n                            wait (0.5) seconds\n                            repeat (5)\n                                wait (0.05) seconds\n                                change [-emote n° v] by (1)\n                            end\n                            wait (0.5) seconds\n                            repeat (5)\n                                wait (0.05) seconds\n                                change [-emote n° v] by (-1)\n                            end\n                            wait (0.5) seconds\n                            repeat (11)\n                                wait (0.05) seconds\n                                change [-emote n° v] by (-1)\n                            end\n                            set [-doing emote v] to [0]\n                        else\n                            if <(-Doing Emote) = [8]> then\n                                set [-emote n° v] to [1]\n                                repeat (8)\n                                    wait (0.08) seconds\n                                    change [-emote n° v] by (1)\n                                end\n                            else\n                                if <(-Doing Emote) = [9]> then\n                                    set [-emote n° v] to [1]\n                                    repeat (7)\n                                        wait (0.08) seconds\n                                        change [-emote n° v] by (1)\n                                    end\n                                    forever\n                                        repeat (2)\n                                            wait (0.08) seconds\n                                            change [-emote n° v] by (-1)\n                                        end\n                                        repeat (2)\n                                            wait (0.08) seconds\n                                            change [-emote n° v] by (1)\n                                        end\n                                    end\n                                else\n                                    if <(-Doing Emote) = [10]> then\n                                        set [-emote n° v] to [1]\n                                        repeat (6)\n                                            wait (0.08) seconds\n                                            change [-emote n° v] by (1)\n                                        end\n                                        forever\n                                            wait (0.15) seconds\n                                            repeat (3)\n                                                wait (0.08) seconds\n                                                change [-emote n° v] by (1)\n                                            end\n                                            wait (0.1) seconds\n                                            repeat (3)\n                                                wait (0.08) seconds\n                                                change [-emote n° v] by (-1)\n                                            end\n                                            set [-emote n° v] to [11]\n                                            wait (0.08) seconds\n                                            set [-emote n° v] to [12]\n                                            wait (0.08) seconds\n                                            set [-emote n° v] to [11]\n                                            wait (0.08) seconds\n                                            set [-emote n° v] to [7]\n                                        end\n                                    else\n                                        if <(-Doing Emote) = [11]> then\n                                            set [-emote n° v] to [1]\n                                            start sound [Fortnite_default_dance_sound v]\n                                            repeat (22)\n                                                wait (0.1) seconds\n                                                change [-emote n° v] by (1)\n                                            end\n                                            repeat (10)\n                                                wait (0.18) seconds\n                                                change [-emote n° v] by (1)\n                                            end\n                                            wait (0.5) seconds\n                                            repeat (3)\n                                                wait (0.099) seconds\n                                                change [-emote n° v] by (1)\n                                            end\n                                            set [-doing emote v] to [0]\n                                        else\n                                            if <(-Doing Emote) = [12]> then\n                                                set [-emote n° v] to [1]\n                                                wait (0.08) seconds\n                                                repeat (4)\n                                                    change [-emote n° v] by (1)\n                                                    wait (0.5) seconds\n                                                end\n                                                change [-emote n° v] by (pick random (1) to (3))\n                                                wait (1) seconds\n                                                set [-doing emote v] to [0]\n                                            else\n                                                if <(-Doing Emote) = [14]> then\n                                                    set [-emote n° v] to [1]\n                                                    repeat (8)\n                                                        wait (0.08) seconds\n                                                        change [-emote n° v] by (1)\n                                                    end\n                                                else\n                                                    if <(-Doing Emote) = [13]> then\n                                                        set [-emote n° v] to [1]\n                                                        repeat (5)\n                                                            wait (0.08) seconds\n                                                            change [-emote n° v] by (1)\n                                                        end\n                                                        wait (0.08) seconds\n                                                        change [-emote n° v] by (-1)\n                                                        wait (0.08) seconds\n                                                        change [-emote n° v] by (1)\n                                                    else\n                                                        if <(-Doing Emote) = [14]> then\n                                                            set [-emote n° v] to [1]\n                                                            repeat (8)\n                                                                wait (0.08) seconds\n                                                                change [-emote n° v] by (1)\n                                                            end\n                                                        else\n                                                            if <(-Doing Emote) = [15]> then\n                                                                set [-emote n° v] to [1]\n                                                                repeat (3)\n                                                                    wait (0.08) seconds\n                                                                    change [-emote n° v] by (1)\n                                                                end\n                                                                forever\n                                                                    repeat (3)\n                                                                        wait (0.08) seconds\n                                                                        change [-emote n° v] by (1)\n                                                                    end\n                                                                    wait (0.08) seconds\n                                                                    set [-emote n° v] to [4]\n                                                                end\n                                                            else\n                                                                if <(-Doing Emote) = [16]> then\n                                                                    set [-emote n° v] to [1]\n                                                                    repeat (5)\n                                                                        wait (0.08) seconds\n                                                                        change [-emote n° v] by (1)\n                                                                    end\n                                                                else\n                                                                    if <(-Doing Emote) = [17]> then\n                                                                        set [-emote n° v] to [1]\n                                                                        repeat (3)\n                                                                            wait (0.08) seconds\n                                                                            change [-emote n° v] by (1)\n                                                                        end\n                                                                    else\n                                                                        if <(-Doing Emote) = [18]> then\n                                                                            set [-emote n° v] to [1]\n                                                                            repeat (2)\n                                                                                wait (0.08) seconds\n                                                                                change [-emote n° v] by (1)\n                                                                            end\n                                                                            forever\n                                                                                wait (0.1) seconds\n                                                                                change [-emote n° v] by (1)\n                                                                                wait (0.1) seconds\n                                                                                change [-emote n° v] by (-1)\n                                                                            end\n                                                                        else\n                                                                            if <(-Doing Emote) = [19]> then\n                                                                                set [-emote n° v] to [1]\n                                                                                wait (0.08) seconds\n                                                                                change [-emote n° v] by (1)\n                                                                                forever\n                                                                                    repeat (2)\n                                                                                        wait (pick random (0.00) to (1.00)) seconds\n                                                                                        change [-emote n° v] by (1)\n                                                                                    end\n                                                                                    repeat (2)\n                                                                                        wait (pick random (0.00) to (1.00)) seconds\n                                                                                        change [-emote n° v] by (-1)\n                                                                                    end\n                                                                                end\n                                                                            else\n                                                                                if <(-Doing Emote) = [20]> then\n                                                                                    set [-emote n° v] to [1]\n                                                                                    repeat (2)\n                                                                                        wait (0.08) seconds\n                                                                                        change [-emote n° v] by (1)\n                                                                                    end\n                                                                                    forever\n                                                                                        set [-emote n° v] to [3]\n                                                                                        repeat (11)\n                                                                                            wait (0.08) seconds\n                                                                                            change [-emote n° v] by (1)\n                                                                                        end\n                                                                                    end\n                                                                                else\n                                                                                    if <(-Doing Emote) = [21]> then\n                                                                                        start sound [Zelda v]\n                                                                                        set [-emote n° v] to [1]\n                                                                                        wait (1.5) seconds\n                                                                                        set [-emote n° v] to [2]\n                                                                                        wait (0.12) seconds\n                                                                                        repeat (4)\n                                                                                            wait (0.08) seconds\n                                                                                            change [-emote n° v] by (1)\n                                                                                        end\n                                                                                        wait (0.34) seconds\n                                                                                        repeat (6)\n                                                                                            wait (0.08) seconds\n                                                                                            change [-emote n° v] by (1)\n                                                                                        end\n                                                                                        repeat (4)\n                                                                                            wait (0.13) seconds\n                                                                                            change [-emote n° v] by (1)\n                                                                                            wait (0.13) seconds\n                                                                                            change [-emote n° v] by (-1)\n                                                                                        end\n                                                                                        repeat (2)\n                                                                                            wait (0.08) seconds\n                                                                                            change [-emote n° v] by (1)\n                                                                                        end\n                                                                                        wait (0.16) seconds\n                                                                                        change [-emote n° v] by (1)\n                                                                                        wait (0.51) seconds\n                                                                                        set [-doing emote v] to [0]\n                                                                                    else\n                                                                                        if <(-Doing Emote) = [22]> then\n                                                                                            set [-emote n° v] to [1]\n                                                                                            repeat (14)\n                                                                                                wait (0.08) seconds\n                                                                                                change [-emote n° v] by (1)\n                                                                                            end\n                                                                                        else\n                                                                                            if <(-Doing Emote) = [23]> then\n                                                                                                set [-emote n° v] to [1]\n                                                                                                repeat (7)\n                                                                                                    wait (0.08) seconds\n                                                                                                    change [-emote n° v] by (1)\n                                                                                                end\n                                                                                            else\n                                                                                                if <(-Doing Emote) = [24]> then\n                                                                                                    set [-emote n° v] to [1]\n                                                                                                    repeat (18)\n                                                                                                        wait (0.08) seconds\n                                                                                                        change [-emote n° v] by (1)\n                                                                                                    end\n                                                                                                    repeat (4)\n                                                                                                        wait (0.08) seconds\n                                                                                                        change [-emote n° v] by (1)\n                                                                                                        wait (0.08) seconds\n                                                                                                        change [-emote n° v] by (-1)\n                                                                                                    end\n                                                                                                    repeat (18)\n                                                                                                        wait (0.08) seconds\n                                                                                                        change [-emote n° v] by (-1)\n                                                                                                    end\n                                                                                                    set [-doing emote v] to [0]\n                                                                                                else\n                                                                                                    if <(-Doing Emote) = [25]> then\n                                                                                                        set [-emote n° v] to [1]\n                                                                                                        repeat (5)\n                                                                                                            wait (0.08) seconds\n                                                                                                            change [-emote n° v] by (1)\n                                                                                                        end\n                                                                                                        forever\n                                                                                                            repeat (2)\n                                                                                                                wait (0.02) seconds\n                                                                                                                change [-emote n° v] by (1)\n                                                                                                            end\n                                                                                                            if <(-Doing Emote) = [25]> then\n                                                                                                                start sound [Clapping v]\n                                                                                                            end\n                                                                                                            repeat (2)\n                                                                                                                wait (0.02) seconds\n                                                                                                                change [-emote n° v] by (-1)\n                                                                                                            end\n                                                                                                        end\n                                                                                                    else\n                                                                                                        if <(-Doing Emote) = [26]> then\n                                                                                                            set [-emote n° v] to [1]\n                                                                                                            repeat (3)\n                                                                                                                wait (0.08) seconds\n                                                                                                                change [-emote n° v] by (1)\n                                                                                                            end\n                                                                                                        else\n                                                                                                            if <(-Doing Emote) = [27]> then\n                                                                                                                set [-emote n° v] to [1]\n                                                                                                                repeat (8)\n                                                                                                                    wait (0.08) seconds\n                                                                                                                    change [-emote n° v] by (1)\n                                                                                                                end\n                                                                                                            else\n                                                                                                                if <(-Doing Emote) = [28]> then\n                                                                                                                    set [-emote n° v] to [1]\n                                                                                                                    repeat (4)\n                                                                                                                        wait (0.1) seconds\n                                                                                                                        change [-emote n° v] by (1)\n                                                                                                                    end\n                                                                                                                else\n                                                                                                                    if <(-Doing Emote) = [29]> then\n                                                                                                                        set [-emote n° v] to [1]\n                                                                                                                        repeat (9)\n                                                                                                                            wait (0.1) seconds\n                                                                                                                            change [-emote n° v] by (1)\n                                                                                                                        end\n                                                                                                                        forever\n                                                                                                                            wait (pick random (3.00) to (10.00)) seconds\n                                                                                                                            repeat (2)\n                                                                                                                                wait (0.02) seconds\n                                                                                                                                change [-emote n° v] by (1)\n                                                                                                                            end\n                                                                                                                            wait (pick random (1.00) to (2.00)) seconds\n                                                                                                                            repeat (2)\n                                                                                                                                wait (0.02) seconds\n                                                                                                                                change [-emote n° v] by (-1)\n                                                                                                                            end\n                                                                                                                        end\n                                                                                                                    else\n                                                                                                                        if <(-Doing Emote) = [30]> then\n                                                                                                                            set [-emote n° v] to [1]\n                                                                                                                            repeat (14)\n                                                                                                                                wait (0.08) seconds\n                                                                                                                                change [-emote n° v] by (1)\n                                                                                                                            end\n                                                                                                                            forever\n                                                                                                                                set [-emote n° v] to [15]\n                                                                                                                                repeat (11)\n                                                                                                                                    wait (0.08) seconds\n                                                                                                                                    change [-emote n° v] by (1)\n                                                                                                                                end\n                                                                                                                            end\n                                                                                                                        else\n                                                                                                                            if <(-Doing Emote) = [31]> then\n                                                                                                                                set [-emote n° v] to [1]\n                                                                                                                                repeat (17)\n                                                                                                                                    wait (0.08) seconds\n                                                                                                                                    change [-emote n° v] by (1)\n                                                                                                                                end\n                                                                                                                            else\n                                                                                                                                if <(-Doing Emote) = [32]> then\n                                                                                                                                    set [-emote n° v] to [1]\n                                                                                                                                    repeat (4)\n                                                                                                                                        wait (0.15) seconds\n                                                                                                                                        change [-emote n° v] by (1)\n                                                                                                                                    end\n                                                                                                                                else\n                                                                                                                                    if <(-Doing Emote) = [33]> then\n                                                                                                                                        set [-emote n° v] to [1]\n                                                                                                                                        forever\n                                                                                                                                            repeat (4)\n                                                                                                                                                wait (0.08) seconds\n                                                                                                                                                change [-emote n° v] by (1)\n                                                                                                                                            end\n                                                                                                                                            repeat (4)\n                                                                                                                                                wait (0.08) seconds\n                                                                                                                                                change [-emote n° v] by (-1)\n                                                                                                                                            end\n                                                                                                                                        end\n                                                                                                                                    else\n                                                                                                                                        if <(-Doing Emote) = [34]> then\n                                                                                                                                            set [-emote n° v] to [1]\n                                                                                                                                        else\n                                                                                                                                            if <(-Doing Emote) = [35]> then\n                                                                                                                                                set [-emote n° v] to [1]\n                                                                                                                                                repeat (4)\n                                                                                                                                                    wait (0.08) seconds\n                                                                                                                                                    change [-emote n° v] by (1)\n                                                                                                                                                end\n                                                                                                                                            else\n                                                                                                                                                if <(-Doing Emote) = [36]> then\n                                                                                                                                                    set [-emote n° v] to [1]\n                                                                                                                                                    repeat (7)\n                                                                                                                                                        wait (0.08) seconds\n                                                                                                                                                        change [-emote n° v] by (1)\n                                                                                                                                                    end\n                                                                                                                                                    forever\n                                                                                                                                                        repeat (9)\n                                                                                                                                                            wait (0.08) seconds\n                                                                                                                                                            change [-emote n° v] by (1)\n                                                                                                                                                        end\n                                                                                                                                                        repeat (9)\n                                                                                                                                                            wait (0.08) seconds\n                                                                                                                                                            change [-emote n° v] by (-1)\n                                                                                                                                                        end\n                                                                                                                                                    end\n                                                                                                                                                else\n                                                                                                                                                    if <(-Doing Emote) = [37]> then\n                                                                                                                                                        set [-emote n° v] to [1]\n                                                                                                                                                        repeat (8)\n                                                                                                                                                            wait (0.08) seconds\n                                                                                                                                                            change [-emote n° v] by (1)\n                                                                                                                                                        end\n                                                                                                                                                        repeat (2)\n                                                                                                                                                            wait (0.54) seconds\n                                                                                                                                                            change [-emote n° v] by (1)\n                                                                                                                                                        end\n                                                                                                                                                        repeat (4)\n                                                                                                                                                            wait (0.08) seconds\n                                                                                                                                                            change [-emote n° v] by (1)\n                                                                                                                                                        end\n                                                                                                                                                        wait (0.25) seconds\n                                                                                                                                                        repeat (14)\n                                                                                                                                                            wait (0.08) seconds\n                                                                                                                                                            change [-emote n° v] by (1)\n                                                                                                                                                        end\n                                                                                                                                                        repeat (4)\n                                                                                                                                                            wait (0.13) seconds\n                                                                                                                                                            change [-emote n° v] by (1)\n                                                                                                                                                            wait (0.13) seconds\n                                                                                                                                                            change [-emote n° v] by (-1)\n                                                                                                                                                        end\n                                                                                                                                                        repeat (2)\n                                                                                                                                                            wait (0.08) seconds\n                                                                                                                                                            change [-emote n° v] by (1)\n                                                                                                                                                        end\n                                                                                                                                                        wait (0.16) seconds\n                                                                                                                                                        change [-emote n° v] by (1)\n                                                                                                                                                        wait (0.51) seconds\n                                                                                                                                                        set [-doing emote v] to [0]\n                                                                                                                                                    else\n                                                                                                                                                        if <(-Doing Emote) = [38]> then\n                                                                                                                                                            set [-emote n° v] to [1]\n                                                                                                                                                            repeat (7)\n                                                                                                                                                                wait (0.12) seconds\n                                                                                                                                                                change [-emote n° v] by (1)\n                                                                                                                                                            end\n                                                                                                                                                        else\n                                                                                                                                                            if <(-Doing Emote) = [39]> then\n                                                                                                                                                                set [-emote n° v] to [1]\n                                                                                                                                                                repeat (9)\n                                                                                                                                                                    wait (0.08) seconds\n                                                                                                                                                                    change [-emote n° v] by (1)\n                                                                                                                                                                end\n                                                                                                                                                            else\n                                                                                                                                                                if <(-Doing Emote) = [40]> then\n                                                                                                                                                                    set [-emote n° v] to [1]\n                                                                                                                                                                    repeat (4)\n                                                                                                                                                                        wait (0.08) seconds\n                                                                                                                                                                        change [-emote n° v] by (1)\n                                                                                                                                                                    end\n                                                                                                                                                                    forever\n                                                                                                                                                                        repeat (2)\n                                                                                                                                                                            wait (0.08) seconds\n                                                                                                                                                                            change [-emote n° v] by (-1)\n                                                                                                                                                                        end\n                                                                                                                                                                        repeat (2)\n                                                                                                                                                                            wait (0.08) seconds\n                                                                                                                                                                            change [-emote n° v] by (1)\n                                                                                                                                                                        end\n                                                                                                                                                                    end\n                                                                                                                                                                end\n                                                                                                                                                            end\n                                                                                                                                                        end\n                                                                                                                                                    end\n                                                                                                                                                end\n                                                                                                                                            end\n                                                                                                                                        end\n                                                                                                                                    end\n                                                                                                                                end\n                                                                                                                            end\n                                                                                                                        end\n                                                                                                                    end\n                                                                                                                end\n                                                                                                            end\n                                                                                                        end\n                                                                                                    end\n                                                                                                end\n                                                                                            end\n                                                                                        end\n                                                                                    end\n                                                                                end\n                                                                            end\n                                                                        end\n                                                                    end\n                                                                end\n                                                            end\n                                                        end\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen [e v] key pressed\nPress\nif <not <(-Open Chat?) = [3]>> then\n    if <key (e v) pressed?> then\n        if <not <(.Last Emote) = [0]>> then\n            set [-doing emote v] to (.Last Emote)\n            set [-emote n° v] to [1]\n            set [-open chat? v] to [0]\n            broadcast (Do Emote v)\n            start sound [Pew v]\n        end\n        wait until <not <key (e v) pressed?>>\n    else\n        if <(-Open Chat?) = [2]> then\n            set [-open chat? v] to [0]\n        else\n            set [-open chat? v] to [2]\n        end\n        show list [triple clic to select and ctrl + c to copy v]\n    end\nend\n\ndefine Press\nrepeat (10)\n    switch backdrop to (backdrop1 v)\n    if <not <key (e v) pressed?>> then\n        stop [this script v]\n    end\nend\n\nwhen I receive [load this v]\nset [stage: -k v] to [1]\nset [load? v] to [1]\nrepeat (length of [toload v])\n    What C (item (Stage: -k) of [toload v]) [1]\n    set [.create type v] to (Stage: -word)\n    What C (item (Stage: -k) of [toload v]) [2]\n    set [.create form v] to (Stage: -word)\n    What C (item (Stage: -k) of [toload v]) [3]\n    set [.create x v] to (Stage: -word)\n    What C (item (Stage: -k) of [toload v]) [4]\n    set [.create y v] to (Stage: -word)\n    if <(.Create TYPE) = [clean]> then\n        set [.create type v] to (.Create FORM)\n        if <(join (.Create FORM) (join (.Create X) (.Create Y))) = [all]> then\n            broadcast (Delete for New v) and wait\n            delete all of [build v]\n        else\n            broadcast (Clean This v) and wait\n        end\n    else\n        broadcast (Create v) and wait\n    end\n    add (item (Stage: -k) of [toload v]) to [build v]\n    change [stage: -k v] by (1)\nend\nset [load? v] to [0]\n\ndefine What C (text) (what)\nset [stage: -i v] to [1]\nset [stage: -word v] to []\nrepeat until <<(letter (Stage: -i) of (text)) = [⃝]> or <(Stage: -i) > (length of (text))>>\n    set [stage: -word v] to (join (Stage: -word) (letter (Stage: -i) of (text)))\n    change [stage: -i v] by (1)\nend\nif <(what) > [1]> then\n    repeat ((what) - (1))\n        change [stage: -i v] by (1)\n        set [stage: -word v] to []\n        repeat until <<(letter (Stage: -i) of (text)) = [⃝]> or <(Stage: -i) > (length of (text))>>\n            set [stage: -word v] to (join (Stage: -word) (letter (Stage: -i) of (text)))\n            change [stage: -i v] by (1)\n        end\n    end\nend\n\nwhen flag clicked\nhide variable [/p/ v]\nhide variable [collectable v]\nhide variable [/l/ v]\nhide variable [xy v]\nhide variable [fps v]\nset [brightness v] effect to (0)\nshow list [premium made by v]\n\nwhen I receive [turn page v]\nforever\n    switch backdrop to (backdrop1 v)\n    if <(-Show Names) = [1]> then\n        show variable [/p/ v]\n        show variable [collectable v]\n        show variable [/l/ v]\n        if <(show fps?) = [1]> then\n            show variable [fps v]\n            hide variable [xy v]\n        else\n            hide variable [fps v]\n            if <(show xy?) = [1]> then\n                show variable [xy v]\n            else\n                hide variable [xy v]\n            end\n        end\n    else\n        hide variable [/p/ v]\n        hide variable [collectable v]\n        hide variable [/l/ v]\n        hide variable [xy v]\n    end\n    if <<(.Current Room) = [7]> and <(Defeated?) = [0]>> then\n        if <(letter (length of (days since 2000)) of (days since 2000)) < [2]> then\n            set [/p/ v] to (join [Players: ] (join (join (.Players in Room) [/]) (.Players Online)))\n        else\n            if <(pick random (1) to (3)) = [1]> then\n                set [/p/ v] to (join [Players: ] [Battle])\n            else\n                set [/p/ v] to (join [Players: ] [Boss])\n            end\n        end\n    else\n        set [/p/ v] to (join [Players: ] (join (join (.Players in Room) [/]) (.Players Online)))\n    end\n    set [/l/ v] to (join [Level: ] (.Current Room))\n    set [xy v] to (join [x: ] (join ((round (([x v] of [player v]) * (10))) / (10)) (join [ y: ] ((round (([y v] of [player v]) * (10))) / (10)))))\nend\n\nset [☁ online v] to [0]\n\n@Logo\n\nwhen I receive [tick v]\n\ndelete (21502) of [_record 1 v]\n\nwhen flag clicked\nhide\n\nwhen I receive [turn page v]\ngo to x: (0) y: (0)\nset [iterations v] to [0]\nreset timer\nset [last v] to [1]\nset [fps v] to [FPS: ...]\nforever\n    show\n    set [ghost v] effect to (100)\n    go to [front v] layer\n    change [iterations v] by (1)\n    if <(timer) > (Last)> then\n        change [last v] by (1)\n        set [fps v] to (join [FPS: ] (iterations))\n        set [iterations v] to [0]\n    end\nend\n\nwhen I receive [kick v]\nstop [other scripts in sprite v]\nhide\n\nwhen I receive [please reload v]\nstop [other scripts in sprite v]\nhide\n\nwhen I receive [off v]\nstop [other scripts in sprite v]\nhide\n\nwhen I receive [occuped v]\nstop [other scripts in sprite v]\nhide\n\nwhen I receive [kicked v]\nstop [other scripts in sprite v]\nhide\n\nwhen [v v] key pressed\nif <(.is Debugger?) = [1]> then\n    show\n    go to [front v] layer\nend\n\nadd (join (join ([x v] of [player v]) [⃝]) (join (join ([y v] of [player v]) [⃝]) (join (join (.Current Room) [⃝]) (join (join ([costume # v] of [player v]) [⃝]) (join (join ([super jump v] of [player v]) [⃝]) (join ([direction v] of [player v]) [⃝])))))) to [_record 1 v]\n\nwhen [b v] key pressed\nset [.back? v] to ((1) - (.Back?))\n\n@Player\n\ndefine Game - Win\nstart sound [Tada v]\nrepeat (25)\n    switch costume to ((1) + ((19) * <(-Jet Pack?) = [1]>))\n    change [x v] by ((((item ((((.Current Room) - (1)) * (2)) + (1)) of [-xy final portal v]) + (5)) - (x)) / (5))\n    change [y v] by ((((item ((((.Current Room) - (1)) * (2)) + (2)) of [-xy final portal v]) - (4)) - (y)) / (5))\n    change [scroll x v] by (round (((x) - (SCROLL X)) / (5)))\n    change [scroll y v] by (round (((y) - (SCROLL Y)) / (5)))\n    Limit\n    Position\n    Save Data\n    broadcast (tick v)\nend\nset [x v] to ((item ((((.Current Room) - (1)) * (2)) + (1)) of [-xy final portal v]) + (5))\nset [y v] to ((item ((((.Current Room) - (1)) * (2)) + (2)) of [-xy final portal v]) - (4))\nrepeat (25)\n    switch costume to ((2) + ((19) * <(-Jet Pack?) = [1]>))\n    change [x v] by ((((item ((((.Current Room) - (1)) * (2)) + (1)) of [-xy final portal v]) + (5)) - (x)) / (5))\n    change [y v] by ((((item ((((.Current Room) - (1)) * (2)) + (2)) of [-xy final portal v]) + (20)) - (y)) / (5))\n    Limit\n    Position\n    Save Data\n    broadcast (tick v)\nend\nif <(.Current Room) > ((.Levels) - (1))> then\n    set [-final? v] to [1]\n    set [speed x v] to [0]\n    set [speed y v] to [0]\nelse\n    change [.current room v] by (1)\n    if <(.Current Room) > (.My Max Room)> then\n        set [.my max room v] to (.Current Room)\n    end\n    Reset Level\n    broadcast (Next Level v)\nend\n\ndefine Game - Die\nstart sound [Oops v]\nset [speed y v] to [15]\nrepeat until <(((y) - (SCROLL Y)) * (ZOOM)) < [-180]>\n    set [grabbed v] to [0]\n    if <(speed y) < [4]> then\n        change [speed y v] by (-1)\n    else\n        change [speed y v] by (-2)\n    end\n    change [y v] by (speed y)\n    Limit\n    switch costume to ((3) + ((19) * <(-Jet Pack?) = [1]>))\n    Save Data\n    Position\n    broadcast (tick v)\nend\nrepeat (20)\n    set [grabbed v] to [0]\n    if <(y) > [-181]> then\n        if <(speed y) < [4]> then\n            change [speed y v] by (-1)\n        else\n            change [speed y v] by (-2)\n        end\n        change [y v] by (speed y)\n    end\n    Limit\n    Position\n    Save Data\n    broadcast (tick v)\nend\nReset Level\nset [zoom v] to [1]\nif <(-Difficulty) = [4]> then\n    if <not <(.Current Room) = [1]>> then\n        set [.current room v] to [1]\n        set [-check point? v] to [0]\n        broadcast (Reset Game v) and wait\n        broadcast (Next Level v)\n        stop [this script v]\n    end\nend\nrepeat until <<(showing?) = [1]> or <<(SCROLL X) < [1]> and <(SCROLL Y) < [1]>>>\n    change [scroll x v] by (round (((x) - (SCROLL X)) / (5)))\n    change [scroll y v] by (round (((y) - (SCROLL Y)) / (5)))\n    Limit\n    Position\n    broadcast (tick v)\nend\nPosition\n\ndefine Tick\nif <(tping?) = [0]> then\n    if <(.stop for delete) = [0]> then\n        if <(-Moving Scroll) = [0]> then\n            set rotation style [don't rotate v]\n            if <<(Grabbed) = [0]> and <<(Last Grabbed) = [-1]> or <(Last Grabbed) = [-5]>>> then\n                if <(Last Grabbed) = [-5]> then\n                    if <(showing?) = [1]> then\n                        set [right crouch? v] to [1]\n                        switch costume to (hitbox2 v)\n                        if <touching (ground v)?> then\n                            set [x v] to (item ((((Who) - (1)) * (-Max Objects)) + (3)) of [.cloud list v])\n                            set [y v] to (item ((((Who) - (1)) * (-Max Objects)) + (4)) of [.cloud list v])\n                        end\n                    else\n                        change [scroll x v] by (round (((x) - (SCROLL X)) / (1)))\n                        change [scroll y v] by (round (((y) - (SCROLL Y)) / (5)))\n                        Limit\n                        Position\n                        stop [this script v]\n                    end\n                else\n                    set [last grabbed v] to [-5]\n                    change [scroll x v] by (round (((x) - (SCROLL X)) / (1)))\n                    change [scroll y v] by (round (((y) - (SCROLL Y)) / (5)))\n                    Limit\n                    Position\n                    stop [this script v]\n                end\n            end\n            if <(crouch?) = [0]> then\n                switch costume to (hitbox v)\n                if <<(right crouch?) = [1]> or <(Grabbed) = [-1]>> then\n                    if <touching (ground v)?> then\n                        switch costume to (hitbox2 v)\n                        if <(Grabbed) = [-1]> then\n                            set [right crouch? v] to [1]\n                        end\n                    else\n                        if <<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> then\n                            change [y v] by ((21.5) - ((right crouch?) * (5)))\n                            if <<(letter (3) of (item ((((Who) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [1]> or <(falling?) < [4]>> then\n                                switch costume to (hitbox2 v)\n                            else\n                                switch costume to (hitbox v)\n                            end\n                            Position\n                            if <touching (ground v)?> then\n                                switch costume to (hitbox2 v)\n                            else\n                                set [right crouch? v] to [0]\n                                switch costume to (hitbox v)\n                            end\n                            change [y v] by (() - ((21.5) - ((right crouch?) * (5))))\n                        else\n                            set [right crouch? v] to [0]\n                        end\n                    end\n                end\n                if <(super jump) > [0]> then\n                    change [super jump v] by (-1)\n                end\n            else\n                switch costume to (hitbox2 v)\n                if <(falling?) = [0]> then\n                    if <(super jump) < [100]> then\n                        change [super jump v] by (1)\n                    end\n                else\n                    if <(super jump) > [0]> then\n                        change [super jump v] by (-1)\n                    end\n                end\n            end\n        end\n        Other Achievments\n        Levels\n        if <(.Jet Pack Time) > [0]> then\n            change [.jet pack time v] by (-1)\n            if <<(.Jet Pack Time) < [100]> and <(letter (length of (.Jet Pack Time)) of (.Jet Pack Time)) = [5]>> then\n                start sound [Clock Ticking v]\n            end\n            if <(.Jet Pack Time) = [0]> then\n                set [-jet pack? v] to [0]\n                set [.already jet pack? v] to [0]\n                start sound [Disconnect v]\n            end\n        end\n        if <(_Hurt) > [0]> then\n            change [_hurt v] by (-1)\n        end\n        set [ghost v] effect to ((0) + (((30) + (([sin v] of ((timer) * (1500)) ) * (5))) * <(_Hurt) > [0]>))\n        if <(super jump) > [30]> then\n            set [brightness v] effect to ((45) + (([sin v] of ((timer) * (2000)) ) * (5)))\n        else\n            set [brightness v] effect to (0)\n        end\n        if <(time to portal) > [0]> then\n            change [time to portal v] by (-1)\n        end\n        if <(-Moving Scroll) = [0]> then\n            if <(Grabbed) = [-1]> then\n                if <(.Dash) > [0]> then\n                    change [.dash v] by (-1)\n                else\n                    if <(wall jump) > [0]> then\n                        change [wall jump v] by (-1)\n                    end\n                end\n                set [on wall v] to [0]\n                set [speed x v] to [0]\n                set [speed y v] to [0]\n                if <(.Current Room) = (item ((((Who) - (1)) * (-Max Objects)) + (5)) of [.cloud list v])> then\n                    set [falling? v] to [0]\n                    Controls - Jump, Crouch [1]\n                    Test Touch [1]\n                    if <(item ((((Who) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) < [0]> then\n                        point in direction (-90)\n                    else\n                        point in direction (90)\n                    end\n                    set [x v] to (item ((((Who) - (1)) * (-Max Objects)) + (3)) of [.cloud list v])\n                    set [y v] to (item ((((Who) - (1)) * (-Max Objects)) + (4)) of [.cloud list v])\n                    change [y v] by ((21.5) - (<<([abs v] of (item ((((Who) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [13]> or <([abs v] of (item ((((Who) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [32]>> * (5)))\n                else\n                    set [falling? v] to [6]\n                end\n                if <(item ((((Who) - (1)) * (-Max Objects)) + (9)) of [.cloud list v]) > [0]> then\n                    set [grabbed v] to [0]\n                    set [-moving scroll v] to [0]\n                    set [zoom v] to [1]\n                end\n            else\n                if <(.Dash) > [0]> then\n                    change [.dash v] by (-1)\n                else\n                    if <(wall jump) > [0]> then\n                        change [wall jump v] by (-1)\n                    else\n                        if <<<(crouch?) = [0]> and <(right crouch?) = [0]>> or <(falling?) > [0]>> then\n                            if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <(left key pressed) = [1]>> then\n                                change [speed x v] by (-1.5)\n                            end\n                            if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <(right key pressed) = [1]>> then\n                                change [speed x v] by (1.5)\n                            end\n                        end\n                    end\n                end\n                Change Player x by (speed x)\n                if <(.Dash) > [0]> then\n                    set [speed x v] to (((<not <(direction) < [0]>> * (2)) - (1)) * (10))\n                else\n                    if <(wall jump) > [0]> then\n                end\n                Controls - Jump, Crouch [0]\n                if <(speed y) > [-25]> then\n                    if <<(speed y) < [4]> or <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <(up key pressed) = [1]>>> then\n                        change [speed y v] by (-1)\n                    else\n                        change [speed y v] by (-2)\n                    end\n                end\n                Change Player y by (speed y)\n                Test Touch [1]\n            end\n            change [scroll x v] by (round (((x) - (SCROLL X)) / (1)))\n            change [scroll y v] by (round (((y) - (SCROLL Y)) / (5)))\n            Limit\n            Position\n            Test Touch [2]\n            Set Costume\n        else\n            set rotation style [left-right v]\n            switch costume to ((11) + ((19) * <(-Jet Pack?) = [1]>))\n            if <(Grabbed) = [-1]> then\n                set [on wall v] to [0]\n                set [speed x v] to [0]\n                set [speed y v] to [0]\n                if <(.Current Room) = (item ((((Who) - (1)) * (-Max Objects)) + (5)) of [.cloud list v])> then\n                    set [falling? v] to [0]\n                    if <(item ((((Who) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) < [0]> then\n                        point in direction (-90)\n                    else\n                        point in direction (90)\n                    end\n                    set [x v] to (item ((((Who) - (1)) * (-Max Objects)) + (3)) of [.cloud list v])\n                    set [y v] to (item ((((Who) - (1)) * (-Max Objects)) + (4)) of [.cloud list v])\n                    change [y v] by ((21.5) - (<<([abs v] of (item ((((Who) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [13]> or <([abs v] of (item ((((Who) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [32]>> * (5)))\n                else\n                    set [falling? v] to [6]\n                end\n                if <(item ((((Who) - (1)) * (-Max Objects)) + (9)) of [.cloud list v]) > [0]> then\n                    set [grabbed v] to [0]\n                    set [-moving scroll v] to [0]\n                    set [zoom v] to [1]\n                end\n            end\n            set [.touching one? v] to [0]\n            add [28] to [new achievments v]\n        end\n    end\n    Save Data\n    if <<<(Grabbed) = [-1]> and <(letter (2) of (item (7) of [player v])) > [0]>> and <<(letter (2) of (item ((((Who) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [2]> and <(costume [number v]) < [41]>>> then\n        switch costume to (fly v)\n    end\n    set [last grabbed v] to (Grabbed)\nend\n\ndefine Change Player x by (speed x)\nif <<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> then\n    change [y v] by ((21.5) - ((right crouch?) * (5)))\n    set [-last v] to (costume [number v])\n    if <<(letter (3) of (item ((((Who) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [1]> or <(falling?) < [6]>> then\n        switch costume to (hitbox2 v)\n        set [-last v] to (join [+] (-Last))\n    else\n        switch costume to (hitbox v)\n    end\n    Position\n    if <not <touching (ground v)?>> then\n        change [x v] by (speed x)\n        Position\n        repeat until <not <touching (ground v)?>>\n            set [.dash v] to [0]\n            if <(speed x) > [0]> then\n                set [speed x v] to [0]\n                change [x v] by (-1)\n            else\n                set [speed x v] to [0]\n                change [x v] by (1)\n            end\n            Position\n        end\n    else\n        change [x v] by (speed x)\n    end\n    switch costume to (round (-Last))\n    change [y v] by (() - ((21.5) - ((right crouch?) * (5))))\nelse\n    change [x v] by (speed x)\nend\nPosition\nLimit\nif <touching (ground v)?> then\n    repeat (12)\n        change [y v] by (1)\n        Position\n        if <<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> then\n            if <not <touching (ground v)?>> then\n                change [y v] by ((21.5) - ((right crouch?) * (5)))\n                if <(-Last) = (costume [number v])> then\n                else\n                    set [-last v] to (costume [number v])\n                end\n                if <<(letter (3) of (item ((((Who) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [1]> or <(falling?) < [6]>> then\n                    switch costume to (hitbox2 v)\n                    if <(letter (1) of (-Last)) = [+]> then\n                    else\n                        set [-last v] to (join [+] (-Last))\n                    end\n                else\n                    switch costume to (hitbox v)\n                end\n                Position\n                if <not <touching (ground v)?>> then\n                    switch costume to (round (-Last))\n                    change [y v] by (() - ((21.5) - ((right crouch?) * (5))))\n                    stop [this script v]\n                end\n                switch costume to (round (-Last))\n                change [y v] by (() - ((21.5) - ((right crouch?) * (5))))\n            end\n        else\n            if <not <touching (ground v)?>> then\n                stop [this script v]\n            end\n        end\n    end\n    change [y v] by (-12)\n    set [.dash v] to [0]\n    repeat until <not <touching (ground v)?>>\n        if <(speed x) > [0]> then\n            set [speed x v] to [0]\n            change [x v] by (-1)\n        else\n            set [speed x v] to [0]\n            change [x v] by (1)\n        end\n        if <<(falling?) > [0]> and <not <<(Grabbed) = [-3]> or <(Grabbed) = [-2]>>>> then\n            if <(speed y) < [0]> then\n                set [on wall v] to [1]\n                set [crouch? v] to [0]\n                if <(speed x) > [0]> then\n                    point in direction (90)\n                else\n                    point in direction (-90)\n                end\n                if <(speed y) < [-3]> then\n                    set [speed y v] to [-3]\n                end\n            end\n        else\n            set [on wall v] to [0]\n        end\n        Position\n    end\n    if <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <(up key pressed) = [1]>> and <<<(falling?) > [0]> and <not <<(Grabbed) = [-3]> or <(Grabbed) = [-2]>>>> and <<<(speed y) < [0]> or <(wall jump) > [0]>> or <(jump key) = [0]>>>> then\n        change y by (2)\n        set [speed x v] to (((speed x) / ([abs v] of (speed x) )) * (-5))\n        set [speed y v] to [11]\n        set [.dash v] to [0]\n        set [falling? v] to [6]\n        set [wall jump v] to [15]\n        set [jump key v] to [1]\n        start sound [Jump v]\n        replace item (2) of [stats v] with ((item (2) of [stats v]) + (1))\n        if <(item (2) of [stats v]) > [0]> then\n            add [4] to [new achievments v]\n            if <(item (2) of [stats v]) > [49]> then\n                add [5] to [new achievments v]\n            end\n        end\n    end\nelse\n    set [on wall v] to [0]\nend\n\ndefine Change Player y by (speed y)\nchange [falling? v] by (1)\nif <<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> then\n    change [y v] by ((21.5) - ((right crouch?) * (5)))\n    if <(-Last) = (costume [number v])> then\n    else\n        set [-last v] to (costume [number v])\n    end\n    if <<(letter (3) of (item ((((Who) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [1]> or <<(falling?) < [6]> or <(letter (1) of (-Last)) = [+]>>> then\n        switch costume to (hitbox2 v)\n    else\n        switch costume to (hitbox v)\n    end\n    Position\n    if <not <touching (ground v)?>> then\n        change [y v] by (speed y)\n        Position\n        repeat until <not <touching (ground v)?>>\n            if <(speed y) > [0]> then\n                change [y v] by (-1)\n            else\n                change [y v] by (1)\n                set [falling? v] to [0]\n                set [on wall v] to [0]\n                set [.fly time v] to [0]\n            end\n            Position\n            set [speed y v] to [0]\n        end\n    else\n        change [y v] by (speed y)\n    end\n    switch costume to (-Last)\n    change [y v] by (() - ((21.5) - ((right crouch?) * (5))))\nelse\n    change [y v] by (speed y)\nend\nPosition\nrepeat until <not <touching (ground v)?>>\n    if <(speed y) > [0]> then\n        change [y v] by (-1)\n    else\n        change [y v] by (1)\n        set [falling? v] to [0]\n        set [on wall v] to [0]\n        set [.fly time v] to [0]\n    end\n    Position\n    set [speed y v] to [0]\nend\n\ndefine Test Touch (1/2)\nif <(1/2) = [1]> then\n    if <touching (lava v)?> then\n        if <(.Current Room) > ((.Levels) + (1))> then\n    end\n    if <touching (items v)?> then\n        set [.touching one? v] to [1]\n    else\n        set [.touching one? v] to [0]\n    end\n    if <touching (boss v)?> then\n        set [_touchingboss v] to [1]\n    else\n        set [_touchingboss v] to [0]\n    end\n    if <touching (check point v)?> then\n        broadcast (.Touched v)\n        add [12] to [new achievments v]\n    end\n    if <<touching (completed v)?> and <<<(-Final?) = [0]> or <(.Current Room) < (.Levels)>> and <<<(.Current Room) > [2]> and <(HMC) > ((14) + (((.Current Room) - (3)) * (5)))>> or <(.Current Room) < [3]>>>> then\n        broadcast (Next Prepare v)\n        add [26] to [new achievments v]\n        if <(.My Max Room) = (.Levels)> then\n            add [27] to [new achievments v]\n        end\n    end\nelse\n    if <(y) < [-180]> then\n        if <<(.Current Room) > ((.Levels) + (1))> or <(-Difficulty) = [0]>> then\n            set [speed y v] to [20]\n        else\n            set [exit v] to [die]\n            replace item (5) of [stats v] with ((item (5) of [stats v]) + (1))\n            if <(item (5) of [stats v]) > [0]> then\n                add [10] to [new achievments v]\n                if <(item (5) of [stats v]) > [19]> then\n                    add [11] to [new achievments v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [dash! v]\nstart sound [Teleport2 v]\nset [.dash v] to [50]\nreplace item (7) of [stats v] with ((item (7) of [stats v]) + (1))\nif <(item (7) of [stats v]) > [0]> then\n    add [18] to [new achievments v]\n    if <(item (7) of [stats v]) > [14]> then\n        add [19] to [new achievments v]\n    end\nend\n\nwhen I receive [turn page v]\nset [zoom v] to [1]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nset [-check point? v] to [0]\nset [-vanish? v] to [0]\nset [.stop for delete v] to [0]\nset [last grabbed v] to [0]\nset [tping? v] to [0]\nforever\n    if <not <<(Exit) = [win]> and <(.Current Room) > ((.Levels) - (1))>>> then\n        Reset Level\n    else\n        set [exit v] to []\n    end\n    repeat until <(Exit) > [0]>\n        Tick\n        broadcast (tick v)\n    end\n    set [grabbed v] to [0]\n    if <(Exit) = [win]> then\n        if <(-Difficulty) > [2]> then\n            set [.to hardcore v] to [1]\n            add [45] to [new achievments v]\n        end\n        Game - Win\n    else\n        change [.to peaceful v] by (1)\n        if <(.To Peaceful) > [24]> then\n            add [44] to [new achievments v]\n        end\n        Game - Die\n    end\nend\n\ndefine Controls - Jump, Crouch (t)\nif <(t) = [0]> then\n    if <touching (bounce v)?> then\n        set [speed y v] to [21]\n        set [falling? v] to [6]\n        set [jump key v] to [1]\n        set [super jump v] to [0]\n        set [.fly time v] to [0]\n        start sound [Zoop v]\n        replace item (6) of [stats v] with ((item (6) of [stats v]) + (1))\n        if <(item (6) of [stats v]) > [0]> then\n            add [16] to [new achievments v]\n            if <(item (6) of [stats v]) > [49]> then\n                add [17] to [new achievments v]\n            end\n        end\n    else\n        if <<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> then\n            change [y v] by ((21.5) - ((right crouch?) * (5)))\n            set [-last v] to (costume [number v])\n            if <(letter (3) of (item ((((Who) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [1]> then\n                switch costume to (hitbox2 v)\n            else\n                switch costume to (hitbox v)\n            end\n            Position\n            if <touching (bounce v)?> then\n                set [speed y v] to [21]\n                set [falling? v] to [6]\n                set [jump key v] to [1]\n                set [super jump v] to [0]\n                set [.fly time v] to [0]\n                start sound [Zoop v]\n                replace item (6) of [stats v] with ((item (6) of [stats v]) + (1))\n                if <(item (6) of [stats v]) > [0]> then\n                    add [16] to [new achievments v]\n                    if <(item (6) of [stats v]) > [49]> then\n                        add [17] to [new achievments v]\n                    end\n                end\n            end\n            switch costume to (-Last)\n            change [y v] by (() - ((21.5) - ((right crouch?) * (5))))\n        end\n    end\nend\nif <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <(up key pressed) = [1]>> and <<(t) = [0]> or <<(t) = [1]> and <(super jump) > [30]>>>> then\n    if <<(jump key) = [0]> and <<(falling?) < [3]> or <(t) = [1]>>> then\n        if <(t) = [0]> then\n            set [speed y v] to ((14) + (<(super jump) > [30]> * (3)))\n        else\n            set [speed y v] to [10]\n            set [grabbed v] to [0]\n        end\n        set [falling? v] to [6]\n        set [jump key v] to [1]\n        replace item ((1) + (<(super jump) > [30]> * (3))) of [stats v] with ((item ((1) + (<(super jump) > [30]> * (3))) of [stats v]) + (1))\n        if <(super jump) > [30]> then\n            if <(item (4) of [stats v]) > [0]> then\n                add [8] to [new achievments v]\n                if <(item (4) of [stats v]) > [14]> then\n                    add [9] to [new achievments v]\n                end\n            end\n        else\n            if <(item (1) of [stats v]) > [0]> then\n                add [1] to [new achievments v]\n                if <(item (1) of [stats v]) > [24]> then\n                    add [2] to [new achievments v]\n                    if <(item (1) of [stats v]) > [99]> then\n                        add [3] to [new achievments v]\n                    end\n                end\n            end\n        end\n        set [super jump v] to [0]\n        start sound [Jump v]\n    end\n    if <<(t) = [0]> or <<(Grabbed) = [-3]> and <(letter (2) of (item ((((Who) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [1]>>> then\n        if <<<<(-Jet Pack?) = [1]> or <<(Grabbed) = [-3]> and <(letter (2) of (item ((((Who) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [1]>>> and <<(falling?) > [0]> and <(jump key) = [0]>>> and <(.Fly Time) < [50]>> then\n            set [speed y v] to ((5) + (<(.Current Room) > ((.Levels) + (1))> * (7)))\n            add [35] to [new achievments v]\n            if <(.Current Room) < ((.Levels) + (2))> then\n                change [.fly time v] by (1)\n            end\n        end\n    end\nelse\n    set [jump key v] to [0]\nend\nif <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <(down key pressed) = [1]>> then\n    set [in platforrm v] to [2]\n    if <(on wall) = [0]> then\n        if <<(.Dash) < [1]> or <(t) = [1]>> then\n            set [crouch? v] to [1]\n            set [right crouch? v] to [1]\n        else\n            set [crouch? v] to [0]\n        end\n    end\nelse\n    set [crouch? v] to [0]\nend\n\ndefine Reset Level\nset size to (100) %\nhide\nset rotation style [don't rotate v]\npoint in direction (90)\nif <(-Check Point?) = [0]> then\n    if <<(.Current Room) = [7]> and <(Defeated?) = [1]>> then\n        set [x v] to [380]\n    else\n        if <(.Current Room) = [6]> then\n            set [x v] to [1920]\n        else\n            set [x v] to [-100]\n        end\n    end\n    set [y v] to [-100]\nelse\n    if <(-Check Point?) > [3]> then\n        set [x v] to (item ((((-Check Point?) - (4)) * (2)) + (1)) of [-xy custom check point v])\n        set [y v] to ((item ((((-Check Point?) - (4)) * (2)) + (2)) of [-xy custom check point v]) + (15))\n    else\n        set [x v] to (item ((((.Current Room) - (1)) * (6)) + ((((-Check Point?) - (1)) * (2)) + (1))) of [-xy check point v])\n        set [y v] to ((item ((((.Current Room) - (1)) * (6)) + ((((-Check Point?) - (1)) * (2)) + (2))) of [-xy check point v]) + (15))\n    end\nend\nset [.touching one? v] to [0]\nset [-jet pack? v] to <(.Current Room) > ((.Levels) + (1))>\nset [.dash v] to [0]\nset [.fly time v] to [0]\nset [.jet pack time v] to [0]\nset [.already jet pack? v] to [0]\nset [super jump v] to [0]\nset [on wall v] to [0]\nset [right crouch? v] to [0]\nset [speed x v] to [0]\nset [speed y v] to [0]\nset [falling? v] to [10]\nset [in platforrm v] to [1]\nset [frame v] to [0]\nset [wall jump v] to [0]\nset [-moving scroll v] to [0]\nset [zoom v] to [1]\nset [.flag? v] to [0]\nset [_hurt v] to [0]\nset [grabbed v] to [0]\nset [who v] to [0]\nset [exit v] to []\nreplace item (10) of [stats v] with [0]\nreplace item (11) of [stats v] with [0]\nreplace item (12) of [stats v] with [0]\nreplace item (13) of [stats v] with [0]\nreplace item (14) of [stats v] with [0]\nreplace item (15) of [stats v] with [0]\nreplace item (16) of [stats v] with [0]\nbroadcast (rst portals v)\n\ndefine Set Costume\nset rotation style [left-right v]\nif <(speed x) < [-0.1]> then\n    point in direction (-90)\n    change [frame v] by (([abs v] of (speed x) ) / (8))\nelse\n    if <(speed x) > [0.1]> then\n        point in direction (90)\n        change [frame v] by (([abs v] of (speed x) ) / (8))\n    else\n        set [frame v] to [0]\n    end\nend\nif <<(-Doing Emote) > [0]> and <not <<<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> or <(Throw) > [0]>>>> then\n    switch costume to (join [emote ] (join (-Doing Emote) (join [ ] (-Emote N°))))\n    if <<(-Doing Emote) = [2]> or <(-Doing Emote) = [27]>> then\n        point in direction (90)\n    end\n    if <<<([abs v] of (speed x) ) > [0.5]> or <([abs v] of (speed y) ) > [0.5]>> and <<<<not <(-Doing Emote) = [15]>> and <not <(-Doing Emote) = [16]>>> and <not <(-Doing Emote) = [40]>>> and <<not <<(-Doing Emote) = [30]> and <(-Emote N°) > [11]>>> and <<not <<(-Doing Emote) = [22]> and <(-Emote N°) = [15]>>> and <<not <<(-Doing Emote) = [31]> and <(-Emote N°) = [18]>>> and <<not <<(-Doing Emote) = [38]> and <(-Emote N°) = [8]>>> and <<not <<(-Doing Emote) = [39]> and <(-Emote N°) = [10]>>> and <<not <<(-Doing Emote) = [23]> and <(-Emote N°) = [8]>>> and <not <<(-Doing Emote) = [32]> and <(-Emote N°) = [5]>>>>>>>>>>> then\n        set [-doing emote v] to [0]\n    end\n    if <<<(-Doing Emote) = [22]> and <(-Emote N°) = [15]>> or <<<(-Doing Emote) = [31]> and <(-Emote N°) = [18]>> or <<<(-Doing Emote) = [38]> and <(-Emote N°) = [8]>> or <<<(-Doing Emote) = [39]> and <(-Emote N°) = [10]>> or <<<(-Doing Emote) = [23]> and <(-Emote N°) = [8]>> or <<(-Doing Emote) = [32]> and <(-Emote N°) = [5]>>>>>>> then\n        if <(on wall) = [1]> then\n            switch costume to (join [emote ] (join (-Doing Emote) (join [ ] [wall])))\n        else\n            if <<(crouch?) = [1]> or <(right crouch?) = [1]>> then\n                switch costume to (join [emote ] (join (-Doing Emote) (join [ ] [crouch])))\n            else\n                if <(falling?) < [6]> then\n                    if <(frame) = [0]> then\n                        switch costume to (join [emote ] (join (-Doing Emote) (join [ ] [stand])))\n                    else\n                        switch costume to (join [emote ] (join (-Doing Emote) (join [ run] ([floor v] of ((1) + ((frame) mod (5))) ))))\n                    end\n                else\n                    if <(speed y) > [0]> then\n                        switch costume to (join [emote ] (join (-Doing Emote) (join [ ] [jump])))\n                    else\n                        switch costume to (join [emote ] (join (-Doing Emote) (join [ ] [fall])))\n                    end\n                end\n            end\n        end\n    end\nelse\n    if <<<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <(up key pressed) = [1]>> and <<(-Jet Pack?) = [1]> and <<(falling?) > [0]> and <(jump key) = [0]>>>> and <(.Fly Time) < [50]>> then\n        if <<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> then\n            switch costume to (grab fly v)\n        else\n            switch costume to (fly v)\n        end\n    else\n        if <<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> then\n            if <<(crouch?) = [1]> or <(right crouch?) = [1]>> then\n                switch costume to (grab crouch v)\n            else\n                if <(falling?) < [6]> then\n                    if <(frame) = [0]> then\n                        switch costume to (grab v)\n                    else\n                        switch costume to ([floor v] of ((14) + ((frame) mod (5))) )\n                    end\n                else\n                    if <(speed y) > [0]> then\n                        switch costume to (grab run2 v)\n                    else\n                        switch costume to (grab v)\n                    end\n                end\n            end\n        else\n            if <(on wall) = [1]> then\n                switch costume to (wall v)\n            else\n                if <(Throw) > [0]> then\n                    switch costume to (throw v)\n                    change [throw v] by (-1)\n                else\n                    if <<(crouch?) = [1]> or <(right crouch?) = [1]>> then\n                        switch costume to (crouch v)\n                    else\n                        if <(falling?) < [6]> then\n                            if <(frame) = [0]> then\n                                switch costume to (stand v)\n                            else\n                                switch costume to ([floor v] of ((6) + ((frame) mod (5))) )\n                            end\n                        else\n                            if <(speed y) > [0]> then\n                                switch costume to (jump v)\n                            else\n                                switch costume to (fall v)\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        switch costume to ((costume [number v]) + ((19) * <(-Jet Pack?) = [1]>))\n    end\nend\n\nwhen flag clicked\nset [level v] to [1]\nset [last grabbed v] to [0]\nhide\n\nwhen I receive [reset level v]\nset [exit v] to [die]\n\ndefine Position\ngo to x: (round (((x) - (SCROLL X)) * (ZOOM))) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to ((100) * (ZOOM)) %\nif <(y) < [-180]> then\n    hide\n    set [showing? v] to [0]\nelse\n    if <<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> then\n        show\n        set [showing? v] to [1]\n    else\n        if <(-Moving Scroll) = [0]> then\n            hide\n            set [showing? v] to [0]\n        else\n            show\n            set [showing? v] to [0]\n            if <(((x) - (SCROLL X)) * (ZOOM)) > [240]> then\n                switch costume to (out v)\n                set rotation style [all around v]\n                point in direction (90)\n                set x to (220)\n            end\n            if <(((x) - (SCROLL X)) * (ZOOM)) < [-240]> then\n                switch costume to (out v)\n                set rotation style [all around v]\n                point in direction (-90)\n                set x to (-220)\n            end\n            if <(((y) - (SCROLL Y)) * (ZOOM)) > [180]> then\n                switch costume to (out v)\n                set rotation style [all around v]\n                point in direction (0)\n                set y to (160)\n            end\n            if <(((y) - (SCROLL Y)) * (ZOOM)) < [-180]> then\n                switch costume to (out v)\n                set rotation style [all around v]\n                point in direction (180)\n                set y to (-160)\n            end\n            if <<(((x) - (SCROLL X)) * (ZOOM)) > [240]> and <(((y) - (SCROLL Y)) * (ZOOM)) > [180]>> then\n                switch costume to (out v)\n                set rotation style [all around v]\n                point in direction (45)\n                go to x: (220) y: (160)\n            end\n            if <<(((x) - (SCROLL X)) * (ZOOM)) < [-240]> and <(((y) - (SCROLL Y)) * (ZOOM)) > [180]>> then\n                switch costume to (out v)\n                set rotation style [all around v]\n                point in direction (-45)\n                go to x: (-220) y: (160)\n            end\n            if <<(((x) - (SCROLL X)) * (ZOOM)) > [240]> and <(((y) - (SCROLL Y)) * (ZOOM)) < [-180]>> then\n                switch costume to (out v)\n                set rotation style [all around v]\n                point in direction (135)\n                go to x: (220) y: (-160)\n            end\n            if <<(((x) - (SCROLL X)) * (ZOOM)) < [-240]> and <(((y) - (SCROLL Y)) * (ZOOM)) < [-180]>> then\n                switch costume to (out v)\n                set rotation style [all around v]\n                point in direction (-135)\n                go to x: (-220) y: (-160)\n            end\n        end\n    end\nend\n\ndefine Update\nchange [,counter v] by (1)\nif <(,Counter) > [999]> then\n    set [,counter v] to [0]\nend\nif <<not <(item ((((.Player Slot) - (1)) * (-Max Objects)) + (11)) of [.cloud list v]) = (ID)>> and <(.Player Slot) > [0]>> then\n    change [ocupped slot count v] by (1)\n    if <((timer) / (2)) > [500]> then\n        if <(Ocupped Slot Count) > [520]> then\n            broadcast (Occuped v)\n        end\n    else\n        if <(Ocupped Slot Count) > ((20) + ((timer) / (2)))> then\n            broadcast (Occuped v)\n        end\n    end\nend\nTimer\nif <(-Moving Scroll) = [0]> then\n    set [oldtime v] to (join (round (x)) (round (y)))\nelse\n    set [oldtime v] to (join (round (SCROLL X)) (round (SCROLL Y)))\nend\nif <(.Speak State) > [0]> then\n    change [.speak state v] by (() - (.Delta Time))\n    if <(.Translate?) = [0]> then\n        say (item (.Speak Nº) of [.chat v])\n    else\n        say (translate (item (.Speak Nº) of [.chat v]) to ((language::translate) v)::translate)\n    end\nelse\n    say []\nend\n\nwhen I receive [update v]\nUpdate\n\ndefine Save Data\ndelete all of [player v]\nadd (,Counter) to [player v]\nadd (username) to [player v]\nadd (round (x)) to [player v]\nadd (round (y)) to [player v]\nadd (.Current Room) to [player v]\nif <(.Speak State) > [0]> then\n    add (.Speak Nº) to [player v]\nelse\n    add [n] to [player v]\nend\nadd (join (<(super jump) > [30]> + ()) (join (<<(-Jet Pack?) = [1]> or <<(Grabbed) = [-3]> and <(letter (2) of (item ((((Who) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [1]>>> + <<<<<<(-Jet Pack?) = [1]> or <(letter (2) of (item ((((Who) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [1]>> and <(Grabbed) = [-3]>> and <<(falling?) > [0]> and <(jump key) = [0]>>> and <(.Fly Time) < [50]>> and <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <(up key pressed) = [1]>>>) (right crouch?))) to [player v]\nif <(direction) < [0]> then\n    add (() - (costume [number v])) to [player v]\nelse\n    add (costume [number v]) to [player v]\nend\nif <(Grabbed) = [-1]> then\n    add (Who) to [player v]\nelse\n    add (Grabbed) to [player v]\nend\nif <(Tagged) = (.Player Slot)> then\n    add (Tag Time) to [player v]\nelse\n    add [0] to [player v]\nend\nadd (ID) to [player v]\n\ndefine Separate (cs)\nset [.custom say v] to []\nset [-i v] to [2]\nrepeat (length of (cs))\n    if <(letter (-i) of (cs)) = [⃝]> then\n        set [.custom say v] to (join (.Custom Say) [ ])\n    else\n        set [.custom say v] to (join (.Custom Say) (letter (-i) of (cs)))\n    end\n    change [-i v] by (1)\nend\n\nwhen I receive [input v]\nPreUpdate\n\ndefine PreUpdate\nif <(Tagged) = (.Player Slot)> then\n    change [tag time v] by (1)\nend\nif <(.Current Room) > (.Max Room)> then\n    set [.max room v] to (.Current Room)\nend\n\ndefine Timer\nif <<<<not <(oldtime) = (join (round (x)) (round (y)))>> and <(-Moving Scroll) = [0]>> or <<not <(oldtime) = (join (round (SCROLL X)) (round (SCROLL Y)))>> and <(-Moving Scroll) = [1]>>> and <<<<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <(right key pressed) = [1]>> or <<<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <(left key pressed) = [1]>> or <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <(up key pressed) = [1]>> or <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <(down key pressed) = [1]>>>>> or <(Grabbed) > [0]>>> then\n    set [.timer v] to [60]\nend\nchange [.timer v] by (() - (.Delta Time))\nif <(item (8) of [can/cant v]) = [0]> then\n    if <(.Timer) < [0]> then\n        if <(.Players Online) > [7]> then\n            broadcast (Kick v)\n        end\n    end\n    if <(.Timer) < [-400]> then\n        broadcast (Kick v)\n    end\nend\n\nwhen I receive [open map v]\nif <(falling?) = [0]> then\n    set [-moving scroll v] to [1]\nend\n\nwhen I receive [close map v]\nset [zoom v] to [1]\nrepeat until <<(showing?) = [1]> or <<(SCROLL X) < [1]> and <(SCROLL Y) < [1]>>>\n    change [scroll x v] by (round (((x) - (SCROLL X)) / (5)))\n    change [scroll y v] by (round (((y) - (SCROLL Y)) / (5)))\n    Limit\n    Position\nend\nset [right crouch? v] to [1]\nset [-moving scroll v] to [0]\n\ndefine Limit\nif <(SCROLL X) < [0]> then\n    set [scroll x v] to [0]\nend\nif <(SCROLL Y) < [0]> then\n    set [scroll y v] to [0]\nend\nif <(.Current Room) = [1]> then\n    if <(SCROLL X) > [4320]> then\n        set [scroll x v] to [4320]\n    end\n    if <(x) > [4545]> then\n        set [x v] to [4545]\n        if <(.Dash) > [0]> then\n            set [.dash v] to [0]\n            point in direction (-90)\n        end\n    end\nelse\n    if <(.Current Room) = [2]> then\n        if <(SCROLL X) > [480]> then\n            set [scroll x v] to [480]\n        end\n        if <(x) > [705]> then\n            set [x v] to [705]\n            if <(.Dash) > [0]> then\n                set [.dash v] to [0]\n                point in direction (-90)\n            end\n        end\n    else\n        if <(.Current Room) = [3]> then\n            if <(SCROLL X) > [1920]> then\n                set [scroll x v] to [1920]\n            end\n            if <(x) > [2145]> then\n                set [x v] to [2145]\n                if <(.Dash) > [0]> then\n                    set [.dash v] to [0]\n                    point in direction (-90)\n                end\n            end\n        else\n            if <(.Current Room) = [4]> then\n                if <(SCROLL X) > [9120]> then\n                    set [scroll x v] to [9120]\n                end\n                if <(x) > [9345]> then\n                    set [x v] to [9345]\n                    if <(.Dash) > [0]> then\n                        set [.dash v] to [0]\n                        point in direction (-90)\n                    end\n                end\n            else\n                if <(.Current Room) = [5]> then\n                    if <(SCROLL X) > [0]> then\n                        set [scroll x v] to [0]\n                    end\n                    if <(x) > [225]> then\n                        set [x v] to [225]\n                        if <(.Dash) > [0]> then\n                            set [.dash v] to [0]\n                            point in direction (-90)\n                        end\n                    end\n                else\n                    if <(.Current Room) = [6]> then\n                        if <(SCROLL X) > [4320]> then\n                            set [scroll x v] to [4320]\n                        end\n                        if <(x) > [4545]> then\n                            set [x v] to [4545]\n                            if <(.Dash) > [0]> then\n                                set [.dash v] to [0]\n                                point in direction (-90)\n                            end\n                        end\n                    else\n                        if <(.Current Room) = [7]> then\n                            if <<(SCROLL X) < [480]> and <(Defeated?) = [1]>> then\n                                set [scroll x v] to [480]\n                            end\n                            if <(SCROLL X) > ((0) + ((480) * <(Defeated?) = [1]>))> then\n                                set [scroll x v] to ((0) + ((480) * <(Defeated?) = [1]>))\n                            end\n                            set [scroll y v] to [0]\n                            if <(x) > [735]> then\n                                set [x v] to [735]\n                                if <(.Dash) > [0]> then\n                                    set [.dash v] to [0]\n                                    point in direction (-90)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nif <(x) < [-225]> then\n    set [x v] to [-225]\n    if <(.Dash) > [0]> then\n        set [.dash v] to [0]\n        point in direction (90)\n    end\nend\n\nwhen I receive [next prepare v]\nset [exit v] to [win]\n\nwhen I receive [next level v]\nset [-check point? v] to [0]\nReset Level\n\ndefine Levels\nif <key (r v) pressed?> then\n    set [exit v] to [die]\nend\nset [lvl v] to [1]\nif <(.can talk) = [1]> then\n    repeat (.Levels)\n        if <key ((lvl) v) pressed?> then\n            if <not <(.Current Room) = (lvl)>> then\n                if <<<(.My Max Room) > ((lvl) - (1))> and <(-Difficulty) < [4]>> or <(.is Debugger?) = [1]>> then\n                    set [.current room v] to (lvl)\n                    set [-check point? v] to [0]\n                    set [grabbed v] to [0]\n                    broadcast (Reset Game v) and wait\n                    broadcast (Next Level v)\n                    stop [this script v]\n                end\n            end\n        end\n        change [lvl v] by (1)\n    end\nend\n\nwhen I receive [player teleport v]\nif <<[premuim+ v] contains (username)?> or <[premium+2 v] contains (username)?>> then\n    set [x v] to (((mouse x) / (ZOOM)) + (SCROLL X))\n    set [y v] to (((mouse y) / (ZOOM)) + (SCROLL Y))\nend\n\nwhen I receive [tick v]\nif <(-Moving Scroll) = [1]> then\n    Position\nend\n\ndefine What C (text) (what) (to end?)\nset [-i v] to [2]\nset [-word v] to []\nrepeat until <<(letter (-i) of (text)) = [⃝]> or <(-i) > (length of (text))>>\n    set [-word v] to (join (-word) (letter (-i) of (text)))\n    change [-i v] by (1)\nend\nif <(what) > [1]> then\n    repeat ((what) - (1))\n        change [-i v] by (1)\n        set [-word v] to []\n        repeat until <<(letter (-i) of (text)) = [⃝]> or <(-i) > (length of (text))>>\n            set [-word v] to (join (-word) (letter (-i) of (text)))\n            change [-i v] by (1)\n        end\n    end\nend\nif <(to end?) = [1]> then\n    repeat until <(-i) > (length of (text))>\n        set [-word v] to (join (-word) (letter (-i) of (text)))\n        change [-i v] by (1)\n    end\nend\n\ndefine Search (player)\nset [-i v] to [1]\nrepeat (8)\n    if <<<(item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) = (player)> and <(item (-i) of [.check active v]) = [1]>> and <<(letter (3) of (item ((((-i) - (1)) * (-Max Objects)) + (9)) of [.cloud list v])) = [0]> or <(.is Debugger?) = [1]>>> then\n        stop [this script v]\n    end\n    change [-i v] by (1)\nend\nset [-i v] to [0]\n\nwhen I receive [tp to v]\nSearch (-word to)\nif <(-i) > [0]> then\n    set [x v] to (item ((((-i) - (1)) * (-Max Objects)) + (3)) of [.cloud list v])\n    set [y v] to (item ((((-i) - (1)) * (-Max Objects)) + (4)) of [.cloud list v])\n    set [scroll x v] to (item ((((-i) - (1)) * (-Max Objects)) + (3)) of [.cloud list v])\n    set [scroll y v] to (item ((((-i) - (1)) * (-Max Objects)) + (4)) of [.cloud list v])\n    set [-moving scroll v] to [0]\n    set [zoom v] to [1]\n    Limit\n    Position\nend\n\nwhen I receive [do emote v]\nset [.timer v] to [60]\n\nwhen I receive [jet pack v]\nif <(-Jet Pack?) = [0]> then\n    set [-jet pack? v] to [1]\n    set [.jet pack time v] to [500]\n    set [.fly time v] to [0]\n    set [.already jet pack? v] to [1]\n    start sound [Connect v]\nelse\n    set [.already jet pack? v] to [1]\nend\n\nwhen I receive [jet pack to v]\nset [-jet pack? v] to (((-Jet Pack?) + (1)) mod (2))\n\nwhen I receive [bounce! v]\nset [speed y v] to [21]\nset [falling? v] to [6]\nset [jump key v] to [1]\nset [super jump v] to [0]\nset [.fly time v] to [0]\nstart sound [Zoop v]\n\nwhen I receive [vanish v]\nset [-vanish? v] to (((-Vanish?) + (1)) mod (2))\n\ndefine How Many (txt) (st)\nset [-i v] to (st)\nset [-j v] to [0]\nrepeat (length of (txt))\n    if <(letter (-i) of (txt)) = [⃝]> then\n        change [-j v] by (0.25)\n    end\n    change [-i v] by (1)\nend\nchange [-j v] by (-0.25)\n\ndefine Separate for 4 (txt) (nºst) (nºct)\nset [.custom say v] to []\nset [-i v] to (nºst)\nset [-j v] to [1]\nrepeat (length of (txt))\n    if <(letter (-i) of (txt)) = [⃝]> then\n        set [.custom say v] to (join (.Custom Say) [⃝])\n        change [-j v] by (1)\n        if <(-j) > (((nºct) * (4)) + (1))> then\n            stop [this script v]\n        end\n        if <(-j) < (((nºct) * (4)) - (1))> then\n            set [.custom say v] to []\n        end\n    else\n        set [.custom say v] to (join (.Custom Say) (letter (-i) of (txt)))\n    end\n    change [-i v] by (1)\nend\n\nwhen I receive [prepare to tp portal v]\nstart sound [Zoop v]\nset [tping? v] to [1]\nrepeat (15)\n    switch costume to ((1) + ((19) * <(-Jet Pack?) = [1]>))\n    set [grabbed v] to [0]\n    change [x v] by (((tp portal x) - (x)) / (3))\n    change [y v] by (((tp portal y) - (y)) / (3))\n    change [scroll x v] by (round (((x) - (SCROLL X)) / (5)))\n    change [scroll y v] by (round (((y) - (SCROLL Y)) / (5)))\n    Limit\n    Position\n    Save Data\n    broadcast (tick v)\nend\nset [x v] to (tp portal x)\nset [y v] to (tp portal y)\n\nwhen I receive [tp portal v]\nif <(find portal type) = [3]> then\n    Reset Level\nelse\n    set [x v] to (tp portal x)\n    set [y v] to (tp portal y)\nend\nset [speed x v] to ((speed x) * (0.5))\nset [speed y v] to ((speed y) * (0.5))\nset [falling? v] to [6]\nset [zoom v] to [1]\nPosition\nchange [scroll x v] by (round (((x) - (SCROLL X)) / (5)))\nchange [scroll y v] by (round (((y) - (SCROLL Y)) / (5)))\nrepeat until <<(showing?) = [1]> or <<(SCROLL X) < [1]> and <(SCROLL Y) < [1]>>>\n    change [scroll x v] by (round (((x) - (SCROLL X)) / (5)))\n    change [scroll y v] by (round (((y) - (SCROLL Y)) / (5)))\n    Limit\n    Position\n    Save Data\n    broadcast (tick v)\nend\nPosition\nset [tping? v] to [0]\nstart sound [Magic Spell v]\nreplace item (8) of [stats v] with ((item (8) of [stats v]) + (1))\nif <(item (8) of [stats v]) > [0]> then\n    add [20] to [new achievments v]\n    if <(item (8) of [stats v]) > [24]> then\n        add [21] to [new achievments v]\n    end\nend\n\ndefine Other Achievments\nif <(.Current Room) = [1]> then\n    if <<([abs v] of ((x) - (2230)) ) < [10]> and <([abs v] of ((y) - (-97)) ) < [10]>> then\n        add [29] to [new achievments v]\n    end\n    if <<([abs v] of ((x) - (2125)) ) < [60]> and <([abs v] of ((y) - (-97)) ) < [20]>> then\n        replace item (10) of [stats v] with [1]\n    end\n    if <<([abs v] of ((x) - (2285)) ) < [60]> and <([abs v] of ((y) - (44)) ) < [10]>> then\n        replace item (10) of [stats v] with [0]\n    end\n    if <<([abs v] of ((x) - (2190)) ) < [18]> and <([abs v] of ((y) - (44)) ) < [10]>> then\n        if <(item (10) of [stats v]) = [1]> then\n            add [30] to [new achievments v]\n        end\n    end\n    if <<([abs v] of ((x) - (3935)) ) < [18]> and <([abs v] of ((y) - (91)) ) < [15]>> then\n        replace item (11) of [stats v] with [1]\n    end\n    if <<([abs v] of ((x) - (4115)) ) < [160]> and <([abs v] of ((y) - (-97)) ) < [130]>> then\n        replace item (11) of [stats v] with [0]\n    end\n    if <<([abs v] of ((x) - (3935)) ) < [18]> and <([abs v] of ((y) - (195)) ) < [15]>> then\n        if <(item (11) of [stats v]) = [1]> then\n            add [31] to [new achievments v]\n        end\n    end\nend\nif <(.Current Room) = [2]> then\n    if <<([abs v] of ((x) - (300)) ) < [120]> and <([abs v] of ((y) - (1222)) ) < [100]>> then\n        replace item (12) of [stats v] with [1]\n    end\n    if <<([abs v] of ((x) - (-205)) ) < [50]> and <([abs v] of ((y) - (1430)) ) < [250]>> then\n        replace item (12) of [stats v] with [0]\n    end\n    if <<([abs v] of ((x) - (325)) ) < [38]> and <([abs v] of ((y) - (1715)) ) < [75]>> then\n        if <(item (12) of [stats v]) = [1]> then\n            add [32] to [new achievments v]\n        end\n    end\nend\nif <(.Current Room) = [3]> then\n    if <<([abs v] of ((x) - (1705)) ) < [35]> and <([abs v] of ((y) - (537)) ) < [20]>> then\n        if <(-Jet Pack?) = [1]> then\n            replace item (13) of [stats v] with [1]\n        else\n            replace item (13) of [stats v] with [0]\n        end\n    end\n    if <<([abs v] of ((x) - (1905)) ) < [100]> and <([abs v] of ((y) - (365)) ) < [100]>> then\n        if <(item (13) of [stats v]) = [0]> then\n            replace item (13) of [stats v] with [2]\n        end\n    end\n    if <<<([abs v] of ((x) - (2130)) ) < [35]> and <([abs v] of ((y) - (172)) ) < [20]>> or <<([abs v] of ((x) - (1812)) ) < [40]> and <([abs v] of ((y) - (1175)) ) < [20]>>> then\n        if <(item (13) of [stats v]) = [2]> then\n            add [33] to [new achievments v]\n        else\n            add [34] to [new achievments v]\n        end\n    end\nend\nif <(.Current Room) = [4]> then\n    if <<([abs v] of ((x) - (2000)) ) < [500]> and <([abs v] of ((y) - (-97)) ) < [150]>> then\n        replace item (14) of [stats v] with [1]\n    end\n    if <<([abs v] of ((x) - (2655)) ) < [15]> and <([abs v] of ((y) - (196)) ) < [50]>> then\n        if <(item (14) of [stats v]) = [1]> then\n            add [36] to [new achievments v]\n        end\n    end\n    if <<([abs v] of ((x) - (2655)) ) < [15]> and <([abs v] of ((y) - (-60)) ) < [80]>> then\n        replace item (14) of [stats v] with [0]\n    end\n    if <<([abs v] of ((x) - (5640)) ) < [50]> and <([abs v] of ((y) - (127)) ) < [50]>> then\n        if <(-Jet Pack?) = [1]> then\n            replace item (15) of [stats v] with [1]\n        else\n            replace item (15) of [stats v] with [0]\n        end\n    end\n    if <<([abs v] of ((x) - (5955)) ) < [10]> and <([abs v] of ((y) - (35)) ) < [500]>> then\n        if <(item (15) of [stats v]) = [1]> then\n            add [37] to [new achievments v]\n        end\n    end\nend\nif <(.Current Room) = [5]> then\n    if <<([abs v] of ((x) - (40)) ) < [200]> and <([abs v] of ((y) - (2700)) ) < [230]>> then\n        if <<(-Jet Pack?) = [1]> and <(.Dash) = [0]>> then\n            replace item (16) of [stats v] with [1]\n        else\n            replace item (16) of [stats v] with [0]\n        end\n    end\n    if <<([abs v] of ((x) - (-140)) ) < [25]> and <([abs v] of ((y) - (3000)) ) < [50]>> then\n        if <(item (16) of [stats v]) = [1]> then\n            add [38] to [new achievments v]\n        end\n    end\nend\nif <(.Current Room) = [6]> then\n    if <<([abs v] of ((x) - (277)) ) < [50]> and <([abs v] of ((y) - (475)) ) < [50]>> then\n        if <(-Jet Pack?) = [1]> then\n            add [39] to [new achievments v]\n        end\n    end\n    if <<([abs v] of ((x) - (3365)) ) < [50]> and <([abs v] of ((y) - (140)) ) < [50]>> then\n        if <(-Jet Pack?) = [1]> then\n            add [40] to [new achievments v]\n        end\n    end\nend\n\nwhen I receive [teleport v]\nset [x v] to (to tp x)\nset [y v] to (to tp y)\nset [scroll x v] to (x)\nset [scroll y v] to (y)\nLimit\n\nwhen I receive [change v]\nchange [x v] by (to tp x)\nchange [y v] by (to tp y)\nset [scroll x v] to (x)\nset [scroll y v] to (y)\nLimit\n\nwhen I receive [bounce v]\nset [speed y v] to [11]\nset [falling? v] to [6]\nset [jump key v] to [1]\nset [super jump v] to [0]\nset [.fly time v] to [0]\n\nwhen I receive [defeated v]\nReset Level\n\nwhen I receive [throw v]\nif <(item ((((Who) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) < [0]> then\n    set [speed x v] to [-5]\nelse\n    set [speed x v] to [5]\nend\nset [speed y v] to [12]\nset [wall jump v] to [10]\nset [falling? v] to [6]\nset [jump key v] to [1]\nset [super jump v] to [0]\nset [.fly time v] to [0]\nif <(-Moving Scroll) = [1]> then\n    set [-moving scroll v] to [0]\n    set [scroll x v] to (x)\n    set [scroll y v] to (y)\n    set [zoom v] to [1]\n    Limit\nend\n\n@Others Player\n\ndefine Get Distance between Player (px) (py) and This (tx) (ty)\nset [distance v] to ([sqrt v] of ((([abs v] of ((px) - (tx)) ) * ([abs v] of ((px) - (tx)) )) + (([abs v] of ((py) - (ty)) ) * ([abs v] of ((py) - (ty)) ))) )\n\nwhen flag clicked\nset [level v] to [1]\nhide\n\ndefine Position\ngo to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to ((100) * (ZOOM)) %\nif <(y) < [-180]> then\n    hide\n    set [showing? v] to [0]\nelse\n    if <<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> then\n        show\n        set [showing? v] to [1]\n    else\n        show\n        set [showing? v] to [0]\n        if <(((x) - (SCROLL X)) * (ZOOM)) > [240]> then\n            switch costume to (out v)\n            set rotation style [all around v]\n            point in direction (90)\n            set x to (220)\n        end\n        if <(((x) - (SCROLL X)) * (ZOOM)) < [-240]> then\n            switch costume to (out v)\n            set rotation style [all around v]\n            point in direction (-90)\n            set x to (-220)\n        end\n        if <(((y) - (SCROLL Y)) * (ZOOM)) > [180]> then\n            switch costume to (out v)\n            set rotation style [all around v]\n            point in direction (0)\n            set y to (160)\n        end\n        if <(((y) - (SCROLL Y)) * (ZOOM)) < [-180]> then\n            switch costume to (out v)\n            set rotation style [all around v]\n            point in direction (180)\n            set y to (-160)\n        end\n        if <<(((x) - (SCROLL X)) * (ZOOM)) > [240]> and <(((y) - (SCROLL Y)) * (ZOOM)) > [180]>> then\n            switch costume to (out v)\n            set rotation style [all around v]\n            point in direction (45)\n            go to x: (220) y: (160)\n        end\n        if <<(((x) - (SCROLL X)) * (ZOOM)) < [-240]> and <(((y) - (SCROLL Y)) * (ZOOM)) > [180]>> then\n            switch costume to (out v)\n            set rotation style [all around v]\n            point in direction (-45)\n            go to x: (-220) y: (160)\n        end\n        if <<(((x) - (SCROLL X)) * (ZOOM)) > [240]> and <(((y) - (SCROLL Y)) * (ZOOM)) < [-180]>> then\n            switch costume to (out v)\n            set rotation style [all around v]\n            point in direction (135)\n            go to x: (220) y: (-160)\n        end\n        if <<(((x) - (SCROLL X)) * (ZOOM)) < [-240]> and <(((y) - (SCROLL Y)) * (ZOOM)) < [-180]>> then\n            switch costume to (out v)\n            set rotation style [all around v]\n            point in direction (-135)\n            go to x: (-220) y: (-160)\n        end\n    end\nend\n\nwhen I receive [init v]\nInit []\n\ndefine Update\nif <(item ((((-CloneID) - (1)) * (-Max Objects)) + (10)) of [.cloud list v]) > [0]> then\n    if <<(item ((((-CloneID) - (1)) * (-Max Objects)) + (10)) of [.cloud list v]) < (Tag Time)> or <(Tagged) = (-CloneID)>> then\n        set [tagged v] to (-CloneID)\n        set [tag time v] to (item ((((-CloneID) - (1)) * (-Max Objects)) + (10)) of [.cloud list v])\n    end\nelse\n    if <(Tagged) = (-CloneID)> then\n        set [tagged v] to [0]\n    end\nend\nif <<(Tagged) = (-CloneID)> and <(Tag Time) > [10]>> then\n    if <<([abs v] of ((x) - (item (3) of [player v])) ) < [20]> and <([abs v] of ((y) - (item (4) of [player v])) ) < [20]>> then\n        set [tagged v] to (.Player Slot)\n        set [tag time v] to [1]\n    end\nend\n\ndefine Init (spm)\ngo to x: (0) y: (0)\nset [,counter v] to [0]\nhide\nif <(spm) = [1]> then\n    set [-e v] to [1]\n    set [-cloneid v] to [8]\n    repeat (5)\n        change [-cloneid v] by (1)\n        create clone of (_myself_ v)\n    end\nelse\n    set [-cloneid v] to [0]\n    repeat (8)\n        change [-cloneid v] by (1)\n        create clone of (_myself_ v)\n    end\nend\nset [-cloneid v] to [0]\n\ndefine Other Player (id)\nif <(item (id) of [.check active v]) = [0]> then\n    hide\n    if <<<(Grabbed) > [-4]> and <(Grabbed) < [0]>> and <(Who) = (id)>> then\n        set [grabbed v] to [0]\n        set [-moving scroll v] to [0]\n        set [zoom v] to [1]\n    end\nelse\n    if <(item ((((id) - (1)) * (-Max Objects)) + (5)) of [.cloud list v]) = (.Current Room)> then\n        show\n        switch costume to ([abs v] of (item ((((id) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) )\n        set [color v] effect to (135)\n        set rotation style [left-right v]\n        if <<<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> and <(Who) = (id)>> then\n            set [x v] to ([x v] of [player v])\n            set [y v] to ([y v] of [player v])\n            change [y v] by ((21.5) - (<<([costume # v] of [player v]) = [13]> or <([costume # v] of [player v]) = [32]>> * (5)))\n            if <<<(costume [number v]) > [42]> and <(costume [number v]) < [64]>> or <<(costume [number v]) > [311]> and <(costume [number v]) < [321]>>> then\n                point in direction (90)\n            else\n                point in direction ([direction v] of [player v])\n            end\n            set [-j v] to (item # of (join (letter (7) of (costume [name v])) (letter (8) of (costume [name v]))) in [em v])\n            if <<<(costume [number v]) < [41]> and <not <<(costume [number v]) = [11]> or <(costume [number v]) = [30]>>>> or <(-j) > [0]>> then\n                switch costume to (hitbox v)\n                if <touching (ground v)?> then\n                    if <(-j) > [0]> then\n                        switch costume to (join (join [emote ] (item (-j) of [em v])) [ crouch])\n                    else\n                        switch costume to ([abs v] of (item ((((id) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) )\n                        if <(costume [number v]) < [20]> then\n                            switch costume to (crouch v)\n                        else\n                            switch costume to (crouch2 v)\n                        end\n                    end\n                else\n                    switch costume to ([abs v] of (item ((((id) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) )\n                end\n            end\n            if <<(letter (2) of (item ((((id) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) > [0]> and <<(letter (2) of (item (7) of [player v])) = [2]> and <(costume [number v]) < [41]>>> then\n                switch costume to (fly v)\n            end\n            if <<(Grabbed) = [-2]> and <not <(item ((((id) - (1)) * (-Max Objects)) + (9)) of [.cloud list v]) = (.Player Slot)>>> then\n                set [grabbed v] to [0]\n                set [throw v] to [5]\n            end\n            if <<(Grabbed) = [-3]> and <(item ((((id) - (1)) * (-Max Objects)) + (9)) of [.cloud list v]) = [-3]>> then\n                set [grabbed v] to [0]\n                set [-moving scroll v] to [0]\n                set [zoom v] to [1]\n            end\n        else\n            set [-i v] to (item ((((id) - (1)) * (-Max Objects)) + (9)) of [.cloud list v])\n            if <(-i) > [0]> then\n                set [x v] to (item ((((-i) - (1)) * (-Max Objects)) + (3)) of [.cloud list v])\n                set [y v] to (item ((((-i) - (1)) * (-Max Objects)) + (4)) of [.cloud list v])\n                change [y v] by ((21.5) - (<<([abs v] of (item ((((-i) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [13]> or <([abs v] of (item ((((-i) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [32]>> * (5)))\n                if <<<(costume [number v]) > [42]> and <(costume [number v]) < [64]>> or <<(costume [number v]) > [311]> and <(costume [number v]) < [321]>>> then\n                    point in direction (90)\n                else\n                    if <(item ((((-i) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) < [0]> then\n                        point in direction (-90)\n                    else\n                        point in direction (90)\n                    end\n                end\n                set [-j v] to (item # of (join (letter (7) of (costume [name v])) (letter (8) of (costume [name v]))) in [em v])\n                if <<<(costume [number v]) < [41]> and <not <<(costume [number v]) = [11]> or <(costume [number v]) = [30]>>>> or <(-j) > [0]>> then\n                    switch costume to (hitbox v)\n                    if <touching (ground v)?> then\n                        if <(-j) > [0]> then\n                            switch costume to (join (join [emote ] (item (-j) of [em v])) [ crouch])\n                        else\n                            switch costume to ([abs v] of (item ((((id) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) )\n                            if <(costume [number v]) < [20]> then\n                                switch costume to (crouch v)\n                            else\n                                switch costume to (crouch2 v)\n                            end\n                        end\n                    else\n                        switch costume to ([abs v] of (item ((((id) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) )\n                    end\n                end\n                if <<(letter (2) of (item ((((id) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) > [0]> and <<(letter (2) of (item ((((-i) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [2]> and <(costume [number v]) < [41]>>> then\n                    switch costume to (fly v)\n                end\n                if <<(Grabbed) = [-1]> and <(Who) = (-i)>> then\n                    set [grabbed v] to [0]\n                    set [-moving scroll v] to [0]\n                    set [zoom v] to [1]\n                end\n            else\n                set [x v] to (item ((((id) - (1)) * (-Max Objects)) + (3)) of [.cloud list v])\n                set [y v] to (item ((((id) - (1)) * (-Max Objects)) + (4)) of [.cloud list v])\n                if <(item ((((id) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) < [0]> then\n                    point in direction (-90)\n                else\n                    point in direction (90)\n                end\n            end\n        end\n        if <<(x) < [240]> and <(item ((((-CloneID) - (1)) * (-Max Objects)) + (5)) of [.cloud list v]) = [7]>> then\n            set [ghost v] effect to (50)\n            if <<<(Grabbed) > [-4]> and <(Grabbed) < [0]>> and <(Who) = (id)>> then\n                set [grabbed v] to [0]\n                set [-moving scroll v] to [0]\n                set [zoom v] to [1]\n            end\n        else\n            set [ghost v] effect to (0)\n            if <<(Grabbed) = [-4]> and <(item ((((id) - (1)) * (-Max Objects)) + (9)) of [.cloud list v]) = (.Player Slot)>> then\n                set [grabbed v] to [-3]\n                set [who v] to (id)\n            end\n            if <(item ((((id) - (1)) * (-Max Objects)) + (9)) of [.cloud list v]) = [-4]> then\n                if <<(Grabbed) = [-1]> and <(Who) = (id)>> then\n                    if <not <<(costume [number v]) > [11]> and <(costume [number v]) < [20]>>> then\n                        switch costume to (grab v)\n                    end\n                else\n                    if <<((Grabbed) mod (2)) = [0]> and <(Grabbed) < [1]>> then\n                        if <<([abs v] of ((x) - (item (3) of [player v])) ) < [11]> and <([abs v] of ((y) - (item (4) of [player v])) ) < [21.5]>> then\n                            set [-last v] to (costume [number v])\n                            change [y v] by ((21.5) - (<<([abs v] of (item ((((-i) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [13]> or <([abs v] of (item ((((-i) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [32]>> * (5)))\n                            switch costume to (hitbox2 v)\n                            Position\n                            if <not <touching (ground v)?>> then\n                                set [grabbed v] to [-1]\n                                set [who v] to (id)\n                            end\n                            change [y v] by (() - ((21.5) - (<<([abs v] of (item ((((-i) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [13]> or <([abs v] of (item ((((-i) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [32]>> * (5))))\n                            switch costume to (-Last)\n                            Position\n                        end\n                    end\n                end\n            end\n            if <(Who) = (id)> then\n                if <<<(Grabbed) > [-4]> and <(Grabbed) < [0]>> and <<(item ((((id) - (1)) * (-Max Objects)) + (9)) of [.cloud list v]) > [-3]> and <(item ((((id) - (1)) * (-Max Objects)) + (9)) of [.cloud list v]) < [1]>>> then\n                    set [grabbed v] to [0]\n                    if <(item ((((id) - (1)) * (-Max Objects)) + (9)) of [.cloud list v]) = [-2]> then\n                        broadcast (throw v)\n                    else\n                        set [-moving scroll v] to [0]\n                        set [zoom v] to [1]\n                    end\n                else\n                    if <(item ((((id) - (1)) * (-Max Objects)) + (9)) of [.cloud list v]) = [-2]> then\n                        if <(costume [number v]) < [20]> then\n                            switch costume to (throw v)\n                        else\n                            switch costume to (throw2 v)\n                        end\n                    end\n                end\n            end\n        end\n        Get Distance between Player (item (3) of [player v]) (item (4) of [player v]) and This (item ((((id) - (1)) * (-Max Objects)) + (3)) of [.cloud list v]) (item ((((id) - (1)) * (-Max Objects)) + (4)) of [.cloud list v])\n        if <(letter (1) of (item ((((id) - (1)) * (-Max Objects)) + (7)) of [.cloud list v])) = [1]> then\n            set [brightness v] effect to ((45) + (([sin v] of ((timer) * (2000)) ) * (5)))\n        else\n            set [brightness v] effect to (0)\n        end\n        if <(item ((((id) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) = [n]> then\n            if <(-Show Names) = [1]> then\n                if <(showing?) = [1]> then\n                    say (item ((((id) - (1)) * (-Max Objects)) + (2)) of [.cloud list v])\n                else\n                    say (join (join (item ((((id) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [ \(]) (join ((round ((Distance) * (10))) / (100)) [m\)]))\n                end\n            else\n                say []\n            end\n            set [-last v] to []\n        else\n            if <(-Show Names) = [1]> then\n                if <(.Translate?) = [0]> then\n                    if <(showing?) = [1]> then\n                        say (join (item ((((id) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) (join [: ] (item (item ((((id) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) of [.chat v])))\n                    else\n                        say (join (join (join (item ((((id) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [ \(]) (join ((round ((Distance) * (10))) / (100)) [m\)])) (join [: ] (item (item ((((id) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) of [.chat v])))\n                    end\n                else\n                    if <(showing?) = [1]> then\n                        say (join (item ((((id) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) (join [: ] (translate (item (item ((((id) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) of [.chat v]) to ((language::translate) v)::translate)))\n                    else\n                        say (join (join (join (item ((((id) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [ \(]) (join ((round ((Distance) * (10))) / (100)) [m\)])) (join [: ] (translate (item (item ((((id) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) of [.chat v]) to ((language::translate) v)::translate)))\n                    end\n                end\n            else\n                if <(.Chats) = [0]> then\n                    if <(.Translate?) = [0]> then\n                        say (item (item ((((id) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) of [.chat v])\n                    else\n                        say (translate (item (item ((((id) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) of [.chat v]) to ((language::translate) v)::translate)\n                    end\n                else\n                    say []\n                end\n            end\n            set [-last v] to []\n        end\n    else\n        hide\n        if <<<(Grabbed) > [-4]> and <(Grabbed) < [0]>> and <(Who) = (id)>> then\n            set [grabbed v] to [0]\n            set [-moving scroll v] to [0]\n            set [zoom v] to [1]\n        end\n    end\nend\n\ndefine Separate (cs)\nset [.custom say v] to []\nset [-i v] to [2]\nrepeat (length of (cs))\n    if <(letter (-i) of (cs)) = [⃝]> then\n        set [.custom say v] to (join (.Custom Say) [ ])\n    else\n        set [.custom say v] to (join (.Custom Say) (letter (-i) of (cs)))\n    end\n    change [-i v] by (1)\nend\n\nwhen I receive [input v]\nPreUpdate\n\ndefine PreUpdate\nif <(-CloneID) = (.Player Slot)> then\n\ndefine Timer\nif <<<<not <(oldtime) = (join (round (x)) (round (y)))>> and <(-Moving Scroll) = [0]>> or <<not <(oldtime) = (join (round (SCROLL X)) (round (SCROLL Y)))>> and <(-Moving Scroll) = [1]>>> and <<<<key (right arrow v) pressed?> or <(right key pressed) = [1]>> or <<<key (left arrow v) pressed?> or <(left key pressed) = [1]>> or <<<key (up arrow v) pressed?> or <(up key pressed) = [1]>> or <<key (down arrow v) pressed?> or <(down key pressed) = [1]>>>>> or <(.is Debugger?) = [1]>>> then\n    set [.timer v] to [60]\nend\nchange [.timer v] by (() - (.Delta Time))\nif <(.Timer) < [0]> then\n    if <(.Players Online) > [7]> then\n        broadcast (Kick v)\n    end\nend\nif <(.Timer) < [-400]> then\n    broadcast (Kick v)\nend\n\nwhen I receive [tick v]\nif <(-CloneID) = [0]> then\n    hide\nelse\n    if <(-CloneID) > [8]> then\n        Play ((-CloneID) - (8)) (-e)\n        if <<<(-e) < (length of [_record 1 v])> and <(-CloneID) = [9]>> or <<<(-e) < (length of [_record 2 v])> and <(-CloneID) = [10]>> or <<<(-e) < (length of [_record 3 v])> and <(-CloneID) = [11]>> or <<<(-e) < (length of [_record 4 v])> and <(-CloneID) = [12]>> or <<(-e) < (length of [_record 5 v])> and <(-CloneID) = [13]>>>>>> then\n            change [-e v] by (1)\n        end\n    else\n        if <(-CloneID) = (.Player Slot)> then\n            hide\n        else\n            if <<(item (-CloneID) of [.check active v]) = [1]> and <(item ((((-CloneID) - (1)) * (-Max Objects)) + (5)) of [.cloud list v]) = (.Current Room)>> then\n                Position\n                Update\n            end\n        end\n    end\nend\n\ndefine What C (text) (what) (to end?)\nset [-i v] to [2]\nset [-word v] to []\nrepeat until <<(letter (-i) of (text)) = [⃝]> or <(-i) > (length of (text))>>\n    set [-word v] to (join (-word) (letter (-i) of (text)))\n    change [-i v] by (1)\nend\nif <(what) > [1]> then\n    repeat ((what) - (1))\n        change [-i v] by (1)\n        set [-word v] to []\n        repeat until <<(letter (-i) of (text)) = [⃝]> or <(-i) > (length of (text))>>\n            set [-word v] to (join (-word) (letter (-i) of (text)))\n            change [-i v] by (1)\n        end\n    end\nend\nif <(to end?) = [1]> then\n    repeat until <(-i) > (length of (text))>\n        set [-word v] to (join (-word) (letter (-i) of (text)))\n        change [-i v] by (1)\n    end\nend\n\ndefine Search (player)\nset [-i v] to [1]\nrepeat (8)\n    if <<<(item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) = (player)> and <(item (-i) of [.check active v]) = [1]>> and <<(letter (3) of (item ((((-i) - (1)) * (-Max Objects)) + (9)) of [.cloud list v])) = [0]> or <(.is Debugger?) = [1]>>> then\n        stop [this script v]\n    end\n    change [-i v] by (1)\nend\nset [-i v] to [0]\n\ndefine How Many (txt) (st)\nset [-i v] to (st)\nset [-j v] to [0]\nrepeat (length of (txt))\n    if <(letter (-i) of (txt)) = [⃝]> then\n        change [-j v] by (0.25)\n    end\n    change [-i v] by (1)\nend\nchange [-j v] by (-0.25)\n\ndefine Separate for 4 (txt) (nºst) (nºct)\nset [.custom say v] to []\nset [-i v] to (nºst)\nset [-j v] to [1]\nrepeat (length of (txt))\n    if <(letter (-i) of (txt)) = [⃝]> then\n        set [.custom say v] to (join (.Custom Say) [⃝])\n        change [-j v] by (1)\n        if <(-j) > (((nºct) * (4)) + (1))> then\n            stop [this script v]\n        end\n        if <(-j) < (((nºct) * (4)) - (1))> then\n            set [.custom say v] to []\n        end\n    else\n        set [.custom say v] to (join (.Custom Say) (letter (-i) of (txt)))\n    end\n    change [-i v] by (1)\nend\n\nwhen I receive [turn page v]\nif <<(-Game Mode) = [1]> and <(-CloneID) = [0]>> then\n    Init [1]\nend\nforever\n    if <(-CloneID) = (.Player Slot)> then\nend\n\ndefine Play (record) (nº)\nshow\nset [color v] effect to (-50)\nset [ghost v] effect to (25)\nset rotation style [left-right v]\nif <(record) = [1]> then\n    What C (join [0] (item (nº) of [_record 1 v])) [3] []\n    if <(-word) = (.Current Room)> then\n        What C (join [0] (item (nº) of [_record 1 v])) [1] []\n        set [x v] to (-word)\n        What C (join [0] (item (nº) of [_record 1 v])) [2] []\n        set [y v] to (-word)\n        What C (join [0] (item (nº) of [_record 1 v])) [4] []\n        switch costume to (-word)\n        What C (join [0] (item (nº) of [_record 1 v])) [5] []\n        if <(-word) > [30]> then\n            set [brightness v] effect to ((45) + (([sin v] of ((timer) * (2000)) ) * (5)))\n        else\n            set [brightness v] effect to (0)\n        end\n        What C (join [0] (item (nº) of [_record 1 v])) [6] []\n        point in direction (-word)\n        Position\n    else\n        hide\n    end\nelse\n    if <(record) = [2]> then\n        What C (join [0] (item (nº) of [_record 2 v])) [3] []\n        if <(-word) = (.Current Room)> then\n            What C (join [0] (item (nº) of [_record 2 v])) [1] []\n            set [x v] to (-word)\n            What C (join [0] (item (nº) of [_record 2 v])) [2] []\n            set [y v] to (-word)\n            What C (join [0] (item (nº) of [_record 2 v])) [4] []\n            switch costume to (-word)\n            What C (join [0] (item (nº) of [_record 2 v])) [5] []\n            if <(-word) > [30]> then\n                set [brightness v] effect to ((45) + (([sin v] of ((timer) * (2000)) ) * (5)))\n            else\n                set [brightness v] effect to (0)\n            end\n            What C (join [0] (item (nº) of [_record 2 v])) [6] []\n            point in direction (-word)\n            Position\n        else\n            hide\n        end\n    else\n        if <(record) = [3]> then\n            What C (join [0] (item (nº) of [_record 3 v])) [3] []\n            if <(-word) = (.Current Room)> then\n                What C (join [0] (item (nº) of [_record 3 v])) [1] []\n                set [x v] to (-word)\n                What C (join [0] (item (nº) of [_record 3 v])) [2] []\n                set [y v] to (-word)\n                What C (join [0] (item (nº) of [_record 3 v])) [4] []\n                switch costume to (-word)\n                What C (join [0] (item (nº) of [_record 3 v])) [5] []\n                if <(-word) > [30]> then\n                    set [brightness v] effect to ((45) + (([sin v] of ((timer) * (2000)) ) * (5)))\n                else\n                    set [brightness v] effect to (0)\n                end\n                What C (join [0] (item (nº) of [_record 3 v])) [6] []\n                point in direction (-word)\n                Position\n            else\n                hide\n            end\n        else\n            if <(record) = [4]> then\n                What C (join [0] (item (nº) of [_record 4 v])) [3] []\n                if <(-word) = (.Current Room)> then\n                    What C (join [0] (item (nº) of [_record 4 v])) [1] []\n                    set [x v] to (-word)\n                    What C (join [0] (item (nº) of [_record 4 v])) [2] []\n                    set [y v] to (-word)\n                    What C (join [0] (item (nº) of [_record 4 v])) [4] []\n                    switch costume to (-word)\n                    What C (join [0] (item (nº) of [_record 4 v])) [5] []\n                    if <(-word) > [30]> then\n                        set [brightness v] effect to ((45) + (([sin v] of ((timer) * (2000)) ) * (5)))\n                    else\n                        set [brightness v] effect to (0)\n                    end\n                    What C (join [0] (item (nº) of [_record 4 v])) [6] []\n                    point in direction (-word)\n                    Position\n                else\n                    hide\n                end\n            else\n                What C (join [0] (item (nº) of [_record 5 v])) [3] []\n                if <(-word) = (.Current Room)> then\n                    What C (join [0] (item (nº) of [_record 5 v])) [1] []\n                    set [x v] to (-word)\n                    What C (join [0] (item (nº) of [_record 5 v])) [2] []\n                    set [y v] to (-word)\n                    What C (join [0] (item (nº) of [_record 5 v])) [4] []\n                    switch costume to (-word)\n                    What C (join [0] (item (nº) of [_record 5 v])) [5] []\n                    if <(-word) > [30]> then\n                        set [brightness v] effect to ((45) + (([sin v] of ((timer) * (2000)) ) * (5)))\n                    else\n                        set [brightness v] effect to (0)\n                    end\n                    What C (join [0] (item (nº) of [_record 5 v])) [6] []\n                    point in direction (-word)\n                    Position\n                else\n                    hide\n                end\n            end\n        end\n    end\nend\n\n@Ground\n\nwhen flag clicked\nset [.clone? v] to [0]\nhide\n\ndefine Position\ngo to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to ((100) * (ZOOM)) %\nif <<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> then\n    show\nelse\n    hide\nend\n\ndefine Create Clone (x) (y) (for)\nset [x v] to (x)\nset [y v] to (y)\nset [for v] to (for)\nif <(for) = [1]> then\n    next costume\nend\ncreate clone of (_myself_ v)\n\nwhen I receive [tick v]\nPosition\n\ndefine Quick (level)\nclear graphic effects\nif <(level) = [1]> then\n    switch costume to ((0) - ())\n    repeat (10)\n        change [i v] by (1)\n        Create Clone ((480) * (i)) [0] [1]\n    end\n    change [i v] by (1)\n    repeat (10)\n        change [i v] by (-1)\n        Create Clone ((480) * (i)) [360] [1]\n    end\nelse\n    if <(level) = [2]> then\n        switch costume to (level 20 v)\n        repeat (10)\n            change [i v] by (1)\n            Create Clone [0] ((360) * (i)) [1]\n            Create Clone [480] ((360) * (i)) [1]\n        end\n    else\n        if <(level) = [3]> then\n            switch costume to (2 level 20 v)\n            repeat (5)\n                change [i v] by (1)\n                Create Clone ((480) * (i)) [0] [1]\n            end\n            change [i v] by (1)\n            repeat (5)\n                change [i v] by (-1)\n                Create Clone ((480) * (i)) [360] [1]\n            end\n            change [i v] by (-1)\n            repeat (5)\n                change [i v] by (1)\n                Create Clone ((480) * (i)) [720] [1]\n            end\n            change [i v] by (1)\n            repeat (5)\n                change [i v] by (-1)\n                Create Clone ((480) * (i)) [1080] [1]\n            end\n        else\n            if <(level) = [4]> then\n                switch costume to (3 level 20 v)\n                repeat (20)\n                    change [i v] by (1)\n                    Create Clone ((480) * (i)) [0] [1]\n                end\n            else\n                if <(level) = [5]> then\n                    switch costume to (4 level 20 v)\n                    repeat (20)\n                        change [i v] by (1)\n                        Create Clone [0] ((360) * (i)) [1]\n                    end\n                else\n                    if <(level) = [6]> then\n                        switch costume to (5 level 20 v)\n                        repeat (10)\n                            change [i v] by (1)\n                            Create Clone ((480) * (i)) [0] [1]\n                        end\n                        change [i v] by (1)\n                        repeat (10)\n                            change [i v] by (-1)\n                            Create Clone ((480) * (i)) [360] [1]\n                        end\n                    else\n                        if <(level) = [7]> then\n                            switch costume to (6 level 20 v)\n                            repeat (2)\n                                change [i v] by (1)\n                                Create Clone ((480) * (i)) [0] [1]\n                            end\n                        else\n                            switch costume to (7 level 2 v)\n                            change [i v] by (1)\n                            Create Clone [0] [0] [1]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nset [x v] to [-9999999]\nset [y v] to [-9999999]\nset [for v] to [1]\n\nwhen I receive [next level v]\nif  then\n    delete this clone\nend\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [i v] to [-1]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nQuick (.Current Room)\n\nwhen I receive [turn page v]\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [i v] to [-1]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nQuick [1]\n\nwhen I receive [create v]\nif <(.clone?) = [0]> then\n    clear graphic effects\n    set size to (100) %\n    if <<(.Create TYPE) = [ground]> or <(.Create TYPE) = [g]>> then\n        switch costume to (join (join [ground] ((.Levels) + (1))) (join [_] (.Create FORM)))\n        switch costume to (join (join [ground] (.Current Room)) (join [_] (.Create FORM)))\n        Create Clone (.Create X) (.Create Y) [0]\n    else\n        if <(.Create TYPE) = [z]> then\n            Separate (.Create FORM) [3]\n            if <(.Custom Say) = [0]> then\n                Separate (.Create FORM) [1]\n                if <(.Custom Say) = ((1) / (0))> then\n                    set size to (101) %\n                end\n                set [color v] effect to (.Custom Say)\n                Separate (.Create FORM) [2]\n                set [brightness v] effect to (.Custom Say)\n                Separate (.Create FORM) [4]\n                switch costume to (join [z] (.Custom Say))\n                Create Clone (.Create X) (.Create Y) [0]\n            end\n        end\n    end\n    set [x v] to [-999999]\n    set [y v] to [-999999]\nend\n\nwhen I start as a clone\nset [.clone? v] to [1]\nif <(size) = [101]> then\n    set [color v] effect to ((1) / (0))\n    set size to (100) %\nend\n\nwhen I receive [delete v]\nif <touching (delete v)?> then\n    if <(costume [number v]) > ((((.Levels) - (1)) * (20)) + (3))> then\n        delete this clone\n    end\nend\n\nwhen I receive [delete for new v]\nif <(costume [number v]) > ((((.Levels) - (1)) * (20)) + (3))> then\n    delete this clone\nend\n\nwhen I receive [reset game v]\ndelete this clone\n\ndefine Separate (cs) (wp)\nset [-j v] to [0]\nrepeat (wp)\n    set [.custom say v] to []\n    change [-j v] by (1)\n    repeat until <(letter (-j) of (cs)) = [¬]>\n        set [.custom say v] to (join (.Custom Say) (letter (-j) of (cs)))\n        change [-j v] by (1)\n    end\nend\n\nwhen I receive [clean this v]\nif <<(costume [number v]) > ((((.Levels) - (1)) * (20)) + (3))> and <<(.Create TYPE) = [ground]> or <<(.Create TYPE) = [g]> or <(.Create TYPE) = [z]>>>> then\n    delete this clone\nend\n\n@Lava\n\nwhen flag clicked\nset [.clone? v] to [0]\nhide\n\ndefine Position\ngo to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to ((100) * (ZOOM)) %\nif <<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> then\n    show\nelse\n    hide\nend\n\ndefine Create Clone (x) (y) (for)\nset [x v] to (x)\nset [y v] to (y)\nset [for v] to (for)\nif <(for) = [1]> then\n    next costume\nend\ncreate clone of (_myself_ v)\n\nwhen I receive [tick v]\nPosition\n\ndefine Quick (level)\nif <(-Difficulty) > [0]> then\n    if <(level) = [1]> then\n        switch costume to ((0) - ())\n        repeat (10)\n            change [j v] by (1)\n            Create Clone ((480) * (j)) [0] [1]\n        end\n        change [j v] by (1)\n        repeat (10)\n            change [j v] by (-1)\n            Create Clone ((480) * (j)) [360] [1]\n        end\n    else\n        if <(level) = [2]> then\n            switch costume to (level 20 v)\n            repeat (10)\n                change [j v] by (1)\n                Create Clone [0] ((360) * (j)) [1]\n                Create Clone [480] ((360) * (j)) [1]\n            end\n        else\n            if <(level) = [3]> then\n                switch costume to (2 level 20 v)\n                repeat (5)\n                    change [j v] by (1)\n                    Create Clone ((480) * (j)) [0] [1]\n                end\n                change [j v] by (1)\n                repeat (5)\n                    change [j v] by (-1)\n                    Create Clone ((480) * (j)) [360] [1]\n                end\n                change [j v] by (-1)\n                repeat (5)\n                    change [j v] by (1)\n                    Create Clone ((480) * (j)) [720] [1]\n                end\n                change [j v] by (1)\n                repeat (5)\n                    change [j v] by (-1)\n                    Create Clone ((480) * (j)) [1080] [1]\n                end\n            else\n                if <(level) = [4]> then\n                    switch costume to (3 level 20 v)\n                    repeat (20)\n                        change [j v] by (1)\n                        Create Clone ((480) * (j)) [0] [1]\n                    end\n                else\n                    if <(level) = [5]> then\n                        switch costume to (4 level 20 v)\n                        repeat (20)\n                            change [j v] by (1)\n                            Create Clone [0] ((360) * (j)) [1]\n                        end\n                    else\n                        if <(level) = [6]> then\n                            switch costume to (5 level 20 v)\n                            repeat (10)\n                                change [j v] by (1)\n                                Create Clone ((480) * (j)) [0] [1]\n                            end\n                            change [j v] by (1)\n                            repeat (10)\n                                change [j v] by (-1)\n                                Create Clone ((480) * (j)) [360] [1]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nset [x v] to [-999999]\nset [y v] to [-999999]\nset [for v] to [1]\n\nwhen I receive [turn page v]\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [j v] to [-1]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nQuick [1]\n\nwhen I receive [next level v]\nif  then\n    delete this clone\nend\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [j v] to [-1]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nQuick (.Current Room)\n\nwhen I start as a clone\nset [.clone? v] to [1]\n\nwhen I receive [create v]\nif <(.clone?) = [0]> then\n    if <<(.Create TYPE) = [lava]> or <(.Create TYPE) = [l]>> then\n        switch costume to (join [lava] (.Create FORM))\n        Create Clone (.Create X) (.Create Y) [0]\n    end\n    set [x v] to [-999999]\n    set [y v] to [-999999]\nend\n\nwhen I receive [delete v]\nif <touching (delete v)?> then\n    if <(costume [number v]) > ((((.Levels) - (1)) * (20)) + (0))> then\n        delete this clone\n    end\nend\n\nwhen I receive [delete for new v]\nif <(costume [number v]) > ((((.Levels) - (1)) * (20)) + (0))> then\n    delete this clone\nend\n\nwhen I receive [reset game v]\ndelete this clone\n\nwhen I receive [clean this v]\nif <<(costume [number v]) > ((((.Levels) - (1)) * (20)) + (0))> and <<(.Create TYPE) = [lava]> or <(.Create TYPE) = [l]>>> then\n    delete this clone\nend\n\n@Bounce\n\ndefine Quick (level)\nif <(level) = [1]> then\nset [x v] to [-999999]\nset [y v] to [-999999]\nset [for v] to [1]\n\nwhen I receive [tick v]\nPosition\n\nwhen I receive [next level v]\nif  then\n    delete this clone\nend\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [k v] to [-1]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nQuick (.Current Room)\n\nwhen flag clicked\nhide\nset [.clone? v] to [0]\nset [x v] to [-999999]\nset [y v] to [-999999]\nset [for v] to [1]\n\ndefine Position\ngo to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to ((100) * (ZOOM)) %\nif <<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> then\n    show\nelse\n    hide\nend\n\ndefine Create Clone (x) (y) (for)\nset [x v] to (x)\nset [y v] to (y)\nset [for v] to (for)\nif <(for) = [1]> then\n    next costume\nend\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nset [.clone? v] to [1]\n\nwhen I receive [create v]\nif <(.clone?) = [0]> then\n    if <<(.Create TYPE) = [bounce]> or <(.Create TYPE) = [b]>> then\n        switch costume to (join [bounce] (.Create FORM))\n        Create Clone (.Create X) (.Create Y) [0]\n    end\n    set [x v] to [-999999]\n    set [y v] to [-999999]\nend\n\nwhen I receive [delete v]\nif <touching (delete v)?> then\n    if <(costume [number v]) > ((((.Levels) - (1)) * (20)) - (20))> then\n        delete this clone\n    end\nend\n\nwhen I receive [delete for new v]\nif <(costume [number v]) > ((((.Levels) - (1)) * (20)) - (20))> then\n    delete this clone\nend\n\nwhen I receive [reset game v]\ndelete this clone\n\nwhen I receive [clean this v]\nif <<(costume [number v]) > ((((.Levels) - (1)) * (20)) - (20))> and <<(.Create TYPE) = [bounce]> or <(.Create TYPE) = [b]>>> then\n    delete this clone\nend\n\n@Mobile\n\nwhen I receive [turn page v]\nset [left key pressed v] to [0]\nset [right key pressed v] to [0]\nset [up key pressed v] to [0]\nset [down key pressed v] to [0]\nset [-mobile type v] to [0]\nset [first v] to [0]\nset [x v] to []\nset [where start? v] to []\nset size to (100) %\nforever\n    if <(-Mobile Type) = [0]> then\n        XShrunk\n    else\n        griffpatch\n    end\nend\n\ndefine griffpatch\nhide\nset [joy timer v] to [1]\nset [joy orig x v] to []\ngo to [front v] layer\nset size to (130) %\ngo to x: (-174) y: (-116)\nswitch costume to (background v)\ncreate clone of (_myself_ v)\nswitch costume to (joystick v)\nforever\n    if <(-Open Chat?) = [0]> then\n        set [analog power v] to [1]\n        set [left key pressed v] to [0]\n        set [right key pressed v] to [0]\n        set [up key pressed v] to [0]\n        set [down key pressed v] to [0]\n        if <<mouse down?> and <(.can drag?) = [1]>> then\n            if <not <<(mouse x) > [116]> and <(mouse y) > [136]>>> then\n                set [ghost v] effect to (50)\n                show\n                set [joy timer v] to [-20]\n            end\n            if <(Joy Orig X) = []> then\n                set [joy orig x v] to (mouse x)\n                set [joy orig y v] to (mouse y)\n                go to (mouse-pointer v)\n            end\n        else\n            change [joy timer v] by (1)\n            if <(Joy Timer) < [0]> then\n                change [ghost v] effect by (20)\n            else\n                if <(Joy Timer) = [0]> then\n                    hide\n                end\n            end\n            if <not <(Joy Orig X) = []>> then\n                go to x: (Joy Orig X) y: (Joy Orig Y)\n                set [joy orig x v] to []\n            end\n        end\n        if <(costume [number v]) = [1]> then\n            set [joy x v] to [0]\n            set [joy y v] to [0]\n            if <<mouse down?> and <(.can drag?) = [1]>> then\n                if <not <<(Joy Orig X) > [116]> and <(Joy Orig Y) > [136]>>> then\n                    go to x: (Joy Orig X) y: (Joy Orig Y)\n                    point towards (mouse-pointer v)\n                    set [power v] to (distance to [mouse-pointer v])\n                    if <(power) > ((size) / (4))> then\n                        set [power v] to ((size) / (4))\n                    end\n                    set [analog power v] to ((power) / ((size) / (4)))\n                    move (power) steps\n                    if <(power) > [3]> then\n                        if <<(direction) > [-60]> and <(direction) < [60]>> then\n                            set [up key pressed v] to [1]\n                        else\n                            if <<(direction) < [-120]> or <(direction) > [120]>> then\n                                set [down key pressed v] to [1]\n                            end\n                        end\n                        if <<(direction) > [30]> and <(direction) < [150]>> then\n                            set [right key pressed v] to [1]\n                        else\n                            if <<(direction) > [-150]> and <(direction) < [-30]>> then\n                                set [left key pressed v] to [1]\n                            end\n                        end\n                    end\n                end\n            else\n                set [power v] to [0]\n            end\n        end\n    else\n        set [analog power v] to [1]\n        set [left key pressed v] to [0]\n        set [right key pressed v] to [0]\n        set [up key pressed v] to [0]\n        set [down key pressed v] to [0]\n        hide\n    end\n    if <(-Mobile Type) = [0]> then\n        hide\n        stop [this script v]\n    end\nend\n\nwhen I start as a clone\nforever\n    if <(-Open Chat?) = [0]> then\n        set [analog power v] to [1]\n        if <<mouse down?> and <(.can drag?) = [1]>> then\n            if <not <<(mouse x) > [116]> and <(mouse y) > [136]>>> then\n                set [ghost v] effect to (50)\n                show\n                set [joy timer v] to [-20]\n            end\n            if <(Joy Orig X) = []> then\n                set [joy orig x v] to (mouse x)\n                set [joy orig y v] to (mouse y)\n                go to (mouse-pointer v)\n            end\n        else\n            change [joy timer v] by (1)\n            if <(Joy Timer) < [0]> then\n                change [ghost v] effect by (20)\n            else\n                if <(Joy Timer) = [0]> then\n                    hide\n                end\n            end\n            if <not <(Joy Orig X) = []>> then\n                go to x: (Joy Orig X) y: (Joy Orig Y)\n                set [joy orig x v] to []\n            end\n        end\n    else\n        set [analog power v] to [1]\n        set [left key pressed v] to [0]\n        set [right key pressed v] to [0]\n        set [up key pressed v] to [0]\n        set [down key pressed v] to [0]\n        hide\n    end\n    if <(-Mobile Type) = [0]> then\n        hide\n        delete this clone\n    end\nend\n\ndefine XShrunk\nhide\nif <(-Open Chat?) = [0]> then\n    if <<not <mouse down?>> or <<(mouse y) < [0]> and <(mouse x) > [50]>>> then\n        set [left key pressed v] to [0]\n    end\n    if <<not <mouse down?>> or <<(mouse y) < [0]> and <(mouse x) < [-50]>>> then\n        set [right key pressed v] to [0]\n    end\n    set [up key pressed v] to [0]\n    set [down key pressed v] to [0]\n    if <not <mouse down?>> then\n        set [x v] to []\n        set [first v] to [0]\n    end\n    if <mouse down?> then\n        if <(where start?) = []> then\n            set [where start? v] to <not <<(mouse x) > [116]> and <(mouse y) > [136]>>>\n        end\n    else\n        set [where start? v] to []\n    end\n    if <<mouse down?> and <(.can drag?) = [1]>> then\n        if <<(mouse y) > [0]> and <<not <<(mouse x) > [116]> and <(mouse y) > [136]>>> or <(where start?) = >>> then\n            set [up key pressed v] to [1]\n            if <(first) = [0]> then\n                if <(x) = []> then\n                    set [x v] to (mouse x)\n                end\n            else\n                if <(x) = []> then\n                    if <(right key pressed) = [1]> then\n                        set [x v] to ((mouse x) - (60))\n                    else\n                        if <(left key pressed) = [1]> then\n                            set [x v] to ((mouse x) + (60))\n                        else\n                            set [x v] to (mouse x)\n                        end\n                    end\n                end\n            end\n            if <(mouse x) > ((x) + (70))> then\n                set [x v] to ((mouse x) - (65))\n            end\n            if <(mouse x) < ((x) - (70))> then\n                set [x v] to ((mouse x) + (65))\n            end\n            if <(mouse x) > ((x) + (35))> then\n                set [right key pressed v] to [1]\n            else\n                if <(mouse x) < ((x) - (35))> then\n                    set [left key pressed v] to [1]\n                else\n                    set [right key pressed v] to [0]\n                    set [left key pressed v] to [0]\n                end\n            end\n        else\n            if <<(mouse y) < [0]> and <<(mouse x) > [-50]> and <(mouse x) < [50]>>> then\n                set [down key pressed v] to [1]\n            end\n        end\n        if <<(mouse y) < [0]> and <(mouse x) < [-50]>> then\n            set [left key pressed v] to [1]\n            set [first v] to [1]\n        else\n            if <<<(mouse y) < [0]> and <(mouse x) > [50]>> and <not <<(mouse x) > [200]> and <(mouse y) < [-145]>>>> then\n                set [right key pressed v] to [1]\n                set [first v] to [1]\n            end\n        end\n    end\nelse\n    set [left key pressed v] to [0]\n    set [right key pressed v] to [0]\n    set [up key pressed v] to [0]\n    set [down key pressed v] to [0]\n    set [first v] to [0]\n    set [x v] to []\nend\n\n@Background\n\nwhen flag clicked\nset [x v] to [0]\nset [y v] to [0]\nset [l v] to [0]\nset [.back? v] to [1]\nhide\nQuick\nset [x v] to [-9999999]\nset [y v] to [-9999999]\n\ndefine Position\nrepeat until <((Offest X) - (SCROLL X)) > [-2111]>\n    change [offest x v] by (4220)\nend\nrepeat until <((Offest X) - (SCROLL X)) < [2111]>\n    change [offest x v] by (-4220)\nend\nrepeat until <((Offest Y) - (SCROLL Y)) > [-1486]>\n    change [offest y v] by (2970)\nend\nrepeat until <((Offest Y) - (SCROLL Y)) < [1486]>\n    change [offest y v] by (-2970)\nend\ngo to x: (([floor v] of ((Offest X) - (SCROLL X)) ) / (3)) y: (([floor v] of ((Offest Y) - (SCROLL Y)) ) / (3))\nset size to (150) %\nif <<(round (([floor v] of ((Offest X) - (SCROLL X)) ) / (3))) = (round (x position))> and <(round (([floor v] of ((Offest Y) - (SCROLL Y)) ) / (3))) = (round (y position))>> then\n    show\nelse\n    hide\nend\nif <(.Back?) = [0]> then\n    hide\nend\n\nwhen I receive [tick v]\nset [color v] effect to ((days since 2000) - (7250))\nset [brightness v] effect to ((60) + (((SCROLL Y) / (1000)) * (-1)))\ngo to [back v] layer\nPosition\n\ndefine Quick\nset [offest x v] to [0]\nset [offest y v] to [0]\ncreate clone of (_myself_ v)\nset [offest x v] to [2110]\nset [offest y v] to [0]\ncreate clone of (_myself_ v)\nset [offest x v] to [0]\nset [offest y v] to [1485]\ncreate clone of (_myself_ v)\nset [offest x v] to [2110]\nset [offest y v] to [1485]\n\nwhen I receive [turn page v]\nshow\n\n@Messege\n\nwhen flag clicked\nbroadcast (init v) and wait\nif <(KICKED) > [2]> then\n    switch costume to (kicked3 v)\n    show\n    stop [all v]\nend\nbroadcast (Play v)\n\nwhen I receive [init v]\nInit\n\ndefine Init\nset [-difficulty v] to [2]\nset [-game mode v] to [0]\nshow\nswitch costume to (peaceful v)\nrepeat (5)\n    create clone of (_myself_ v)\n    next costume\nend\nswitch costume to (connecting... v)\nreset timer\ngo to x: (0) y: (0)\nset [.current room v] to [1]\nset [.player was in room v] to [8]\nset [.speak state v] to [-1]\nset [.timer v] to [60]\nset [.player indicate v] to [0]\nset [,1st t c player v] to [1]\nset [re? v] to [0]\nset [.the debugger v] to [XShrunk]\nif <<(username) = (.The Debugger)> and <not <is compiled?>>> then\n    set [.is debugger? v] to [1]\nelse\n    set [.is debugger? v] to [0]\nend\nset [id v] to (([floor v] of ((days since 2000) * (100000000)) ) mod (1000))\nset [ocupped slot count v] to [0]\n\ndefine Found Player Slot\nset [.player slot v] to [0]\nset [.maybe in v] to [0]\nbroadcast (Get Cloud Data v) and wait\ndelete all of [.check value v]\nset [-i v] to [0]\nrepeat (8)\n    add (item (((-i) * (-Max Objects)) + (1)) of [.cloud list v]) to [.check value v]\n    change [-i v] by (1)\nend\nrepeat (10)\n    Loop\nend\nset [.player slot v] to (.Maybe in)\nhide\n\ndefine Loop\nwait (0.4) seconds\nbroadcast (Get Cloud Data v) and wait\nset [-i v] to [0]\nrepeat (8)\n    if <(item ((-i) + (1)) of [.check value v]) = (item (((-i) * (-Max Objects)) + (1)) of [.cloud list v])> then\n        set [.maybe in v] to ((-i) + (1))\n        stop [this script v]\n    else\n        if <<(item (((-i) * (-Max Objects)) + (2)) of [.cloud list v]) = (username)> and <<not <(username) = []>> and <(.is Debugger?) = [0]>>> then\n            broadcast (inUse v)\n        end\n        if <(item (((-i) * (-Max Objects)) + (10)) of [.cloud list v]) > [0]> then\n            set [tagged v] to ((-i) + (1))\n        end\n    end\n    change [-i v] by (1)\nend\n\ndefine Reset\nCount Players in Room\nset [.max room v] to [1]\n\ndefine Count Players in Room\nset [someone loading? v] to [0]\nset [someone anti create? v] to [0]\nset [someone anti commands? v] to [0]\nset [.players in room v] to [1]\nset [-i v] to [1]\nrepeat (8)\n    if <<(item (-i) of [.check active v]) = [1]> and <(item ((((-i) - (1)) * (-Max Objects)) + (5)) of [.cloud list v]) = (.Current Room)>> then\n        change [.players in room v] by (1)\n    end\n    change [-i v] by (1)\nend\nif <<<(.Players in Room) > (.Player was in Room)> and <<(length of [build v]) > [1]> and <not <(item (length of [build v]) of [build v]) = [clean⃝a⃝l⃝l⃝]>>>> and <<[premuim+ v] contains (username)?> or <[premium+2 v] contains (username)?>>> then\n    add [71] to [new achievments v]\nend\nset [.player was in room v] to (.Players in Room)\n\nif <<<(letter (1) of (item ((((-i) - (1)) * (-Max Objects)) + (6)) of [.cloud list v])) = [/]> and <(letter (2) of (item ((((-i) - (1)) * (-Max Objects)) + (6)) of [.cloud list v])) = [^]>> and <<[premuim+ v] contains (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v])?> or <[premium+2 v] contains (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v])?>>> then\n    set [someone loading? v] to (-i)\nend\nif <<(letter (4) of (item ((((-i) - (1)) * (-Max Objects)) + (9)) of [.cloud list v])) = [1]> and <<[premuim+ v] contains (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v])?> or <[premium+2 v] contains (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v])?>>> then\n    set [someone anti create? v] to (-i)\nend\nif <<(letter (5) of (item ((((-i) - (1)) * (-Max Objects)) + (9)) of [.cloud list v])) = [1]> and <<[premuim+ v] contains (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v])?> or <[premium+2 v] contains (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v])?>>> then\n    set [someone anti commands? v] to (-i)\nend\n\nwhen I receive [kick v]\nswitch costume to (kick v)\ngo to [front v] layer\nshow\nreset timer\nstop [all v]\n\nwhen I receive [player join v]\nif <(costume [number v]) < [4]> then\n    add [51] to [new achievments v]\n    start sound [Join v]\nend\n\nwhen I receive [player left v]\nif <(costume [number v]) < [4]> then\n    add [52] to [new achievments v]\n    start sound [Left v]\nend\n\nwhen I start as a clone\nif <<<(costume [number v]) < [10]> or <(costume [number v]) = [18]>> or <(costume [number v]) = [19]>> then\n    go to [front v] layer\n    go to x: (0) y: (0)\n    show\n    start sound (costume [name v])\n    wait (3) seconds\n    delete this clone\nelse\n    if <(costume [number v]) = [11]> then\n        go to [front v] layer\n        go to x: (0) y: (0)\n        show\n        wait (4) seconds\n        delete this clone\n    else\n        if <(costume [number v]) > [24]> then\n            if <(costume [number v]) = [27]> then\n                forever\n                    go to x: (0) y: (0)\n                    go to [front v] layer\n                    show\n                    if <touching (mouse-pointer v)?> then\n                        if <mouse down?> then\n                            repeat until <<not <mouse down?>> or <not <touching (mouse-pointer v)?>>>\n                                set [size v] to (((size) * (0.7)) + (((180) - (size)) / (6)))\n                                change size by (size)\n                            end\n                            if <touching (mouse-pointer v)?> then\n                                broadcast (Play v)\n                                start sound [Pop v]\n                                delete this clone\n                            end\n                        else\n                            set [size v] to (((size) * (0.7)) + (((220) - (size)) / (6)))\n                            change size by (size)\n                        end\n                    else\n                        set [size v] to (((size) * (0.7)) + (((200) - (size)) / (6)))\n                        change size by (size)\n                    end\n                end\n            else\n                forever\n                    go to x: (((costume [number v]) - (25.5)) * (75)) y: (120)\n                    go to [front v] layer\n                    show\n                    if <touching (mouse-pointer v)?> then\n                        if <mouse down?> then\n                            repeat until <<not <mouse down?>> or <not <touching (mouse-pointer v)?>>>\n                                set [size v] to (((size) * (0.7)) + ((((90) + (<((costume [number v]) - (25)) = (-Game Mode)> * (20))) - (size)) / (6)))\n                                change size by (size)\n                            end\n                            if <touching (mouse-pointer v)?> then\n                                set [-game mode v] to ((costume [number v]) - (25))\n                            end\n                        else\n                            set [size v] to (((size) * (0.7)) + ((((110) + (<((costume [number v]) - (25)) = (-Game Mode)> * (20))) - (size)) / (6)))\n                            change size by (size)\n                        end\n                    else\n                        set [size v] to (((size) * (0.7)) + ((((100) + (<((costume [number v]) - (25)) = (-Game Mode)> * (20))) - (size)) / (6)))\n                        change size by (size)\n                    end\n                end\n            end\n        else\n            if <(costume [number v]) > [19]> then\n                forever\n                    go to x: (((costume [number v]) - (22)) * (75)) y: (-120)\n                    go to [front v] layer\n                    show\n                    if <<(costume [name v]) = [Peaceful]> and <(.is Debugger?) = [0]>> then\n                        if <(.To Peaceful) > [24]> then\n                    end\n                    if <<(costume [name v]) = [Hardcore]> and <(.is Debugger?) = [0]>> then\n                        if <(.To Hardcore) > [0]> then\n                    end\n                    if <touching (mouse-pointer v)?> then\n                        if <mouse down?> then\n                            repeat until <<not <mouse down?>> or <not <touching (mouse-pointer v)?>>>\n                                set [size v] to (((size) * (0.7)) + ((((90) + (<((costume [number v]) - (20)) = (-Difficulty)> * (20))) - (size)) / (6)))\n                                change size by (size)\n                            end\n                            if <touching (mouse-pointer v)?> then\n                                set [-difficulty v] to ((costume [number v]) - (20))\n                            end\n                        else\n                            set [size v] to (((size) * (0.7)) + ((((110) + (<((costume [number v]) - (20)) = (-Difficulty)> * (20))) - (size)) / (6)))\n                            change size by (size)\n                        end\n                    else\n                        set [size v] to (((size) * (0.7)) + ((((100) + (<((costume [number v]) - (20)) = (-Difficulty)> * (20))) - (size)) / (6)))\n                        change size by (size)\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [error v]\nif <(costume [number v]) < [4]> then\n    add [54] to [new achievments v]\n    start sound [Error v]\nend\n\nwhen I receive [player mod v]\nif <(costume [number v]) < [4]> then\n    add [46] to [new achievments v]\n    start sound [Join v]\nend\n\nwhen I receive [player nomod v]\nif <(costume [number v]) < [4]> then\n    add [47] to [new achievments v]\n    start sound [Left v]\nend\n\nwhen I receive [player new petition v]\nif <(costume [number v]) < [4]> then\n    add [50] to [new achievments v]\n    start sound [Petition v]\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [10]> then\n    forever\n        if <(-Moving Scroll) = [1]> then\n            go to [front v] layer\n            go to x: (0) y: (0)\n            set [ghost v] effect to (([sin v] of ((timer) * (500)) ) * (50))\n            show\n        else\n            hide\n        end\n    end\nend\n\nwhen I receive [please reload v]\nswitch costume to (reload v)\ngo to [front v] layer\nshow\nreset timer\nstop [all v]\n\nwhen I receive [off v]\nswitch costume to (off v)\ngo to [front v] layer\nshow\nreset timer\nstop [all v]\n\nwhen I receive [occuped v]\nif <<(.Player Slot) > [0]> and <(re?) = [0]>> then\n    set [re? v] to [1]\nend\n\nwhen I receive [player + v]\nif <(costume [number v]) < [4]> then\n    add [48] to [new achievments v]\n    start sound [Join v]\nend\n\nwhen I receive [player - v]\nif <(costume [number v]) < [4]> then\n    add [49] to [new achievments v]\n    start sound [Left v]\nend\n\nwhen I receive [kicked v]\nchange [kicked v] by (1)\nif <(KICKED) > [2]> then\n    switch costume to (kicked3 v)\nelse\n    switch costume to (kicked v)\nend\ngo to [front v] layer\nshow\nreset timer\nstop [all v]\n\nwhen I receive [inuse v]\nswitch costume to (use v)\ngo to [front v] layer\nshow\nreset timer\nstop [all v]\n\nwhen I receive [play v]\nif <(costume [number v]) < [4]> then\n    show\n    Found Player Slot\n    if <(.Player Slot) = [0]> then\n        switch costume to (isfull! v)\n        show\n        wait (2) seconds\n        add [53] to [new achievments v]\n    end\n    broadcast (turn page v)\n    switch costume to (map v)\n    create clone of (_myself_ v)\n    switch costume to (connecting... v)\n    hide\n    reset timer\n    forever\n        if <<<(.Player Slot) = [0]> and <(.Players Online) < [8]>> or <(re?) = [1]>> then\n            add [55] to [new achievments v]\n            Found Player Slot\n            set [re? v] to [-5]\n            if <(.Player Slot) = [0]> then\n                add [53] to [new achievments v]\n            else\n                add [56] to [new achievments v]\n            end\n        end\n        set [-old time v] to (timer)\n        Reset\n        broadcast (Input v) and wait\n        broadcast (update v) and wait\n        set [.delta time v] to ((timer) - (-old time))\n        if <(.Delta Time) > [0.5]> then\n            set [.delta time v] to [0.5]\n        end\n        if <(re?) < [0]> then\n            change [re? v] by (1)\n        end\n    end\nend\n\nwhen I receive [turn page v]\nif <(costume [number v]) > [19]> then\n    delete this clone\nend\n\n@Cloud\n\ndefine Empty Cloud\nset [☁ player 1 v] to [0]\nset [☁ player 2 v] to [0]\nset [☁ player 3 v] to [0]\nset [☁ player 4 v] to [0]\nset [☁ player 5 v] to [0]\nset [☁ player 6 v] to [0]\nset [☁ player 7 v] to [0]\nset [☁ player 8 v] to [0]\n\nwhen I receive [init v]\ndelete all of [.check active v]\ndelete all of [set others? v]\nadd [0] to [set others? v]\nadd [0] to [set others? v]\nset [,last p count v] to [1]\nset [-first on v] to [0]\nrepeat (8)\n    add [0] to [.check active v]\nend\nUpdate Player [1]\n\nwhen I receive [get cloud data v]\nCloud to Player (join (join (join (join (☁ Player 1) (☁ Player 2)) (join (☁ Player 3) (☁ Player 4))) (join (☁ Player 5) (☁ Player 6))) (join (☁ Player 7) (☁ Player 8)))\n\nwhen I receive [update v]\nCloud to Player (join (join (join (join (☁ Player 1) (☁ Player 2)) (join (☁ Player 3) (☁ Player 4))) (join (☁ Player 5) (☁ Player 6))) (join (☁ Player 7) (☁ Player 8)))\nSave to Cloud (.Player Slot)\nCount Players\n\ndefine Cloud to Player (clouddata)\ndelete all of [.cloud list v]\nset [-temp v] to []\nset [-i v] to [1]\nrepeat ((length of (clouddata)) / (2))\n    switch costume to (join (letter (-i) of (clouddata)) (letter ((-i) + (1)) of (clouddata)))\n    if <(costume [number v]) = [1]> then\n        add (-temp) to [.cloud list v]\n        set [-temp v] to []\n    else\n        set [-temp v] to (join (-temp) (costume [name v]))\n    end\n    change [-i v] by (2)\nend\n\ndefine Save to Cloud (playerid)\nPlayer to Cloud\nif <(playerid) = [1]> then\n    set [☁ player 1 v] to (-temp)\nelse\n    if <(playerid) = [2]> then\n        set [☁ player 2 v] to (-temp)\n    else\n        if <(playerid) = [3]> then\n            set [☁ player 3 v] to (-temp)\n        else\n            if <(playerid) = [4]> then\n                set [☁ player 4 v] to (-temp)\n            else\n                if <(playerid) = [5]> then\n                    set [☁ player 5 v] to (-temp)\n                else\n                    if <(playerid) = [6]> then\n                        set [☁ player 6 v] to (-temp)\n                    else\n                        if <(playerid) = [7]> then\n                            set [☁ player 7 v] to (-temp)\n                        else\n                            if <(playerid) = [8]> then\n                                set [☁ player 8 v] to (-temp)\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine Player to Cloud\nset [-temp v] to []\nset [-i v] to [1]\nrepeat (length of [player v])\n    set [-j v] to [1]\n    repeat (length of (item (-i) of [player v]))\n        switch costume to (letter (-j) of (item (-i) of [player v]))\n        if <(costume [number v]) < [10]> then\n            set [-temp v] to (join (-temp) (join [0] (costume [number v])))\n        else\n            set [-temp v] to (join (-temp) (costume [number v]))\n        end\n        change [-j v] by (1)\n    end\n    set [-temp v] to (join (-temp) [01])\n    change [-i v] by (1)\nend\n\ndefine Count Players\nset [.players online v] to [1]\nset [-i v] to [1]\nrepeat (8)\n    if <(item (-i) of [.check active v]) = [1]> then\n        change [.players online v] by (1)\n    end\n    change [-i v] by (1)\nend\nif <not <(,Last p count) = (.Players Online)>> then\n    if <(.Players Online) > (,Last p count)> then\n        broadcast (Player Join v)\n    else\n        broadcast (Player Left v)\n    end\n    set [,last p count v] to (.Players Online)\nend\n\nwhen I receive [turn page v]\nUpdate Player [0]\nforever\n    Update Player [1]\n    wait (4.1) seconds\n    Update Player [0]\nend\n\ndefine Update Player (first)\nif <(first) = [1]> then\n    set [-c v] to [0]\n    delete all of [.check value v]\n    repeat (8)\n        add (item (((-c) * (-Max Objects)) + (1)) of [.cloud list v]) to [.check value v]\n        change [-c v] by (1)\n    end\nelse\n    set [-c v] to [0]\n    repeat (8)\n        if <not <(.Player Slot) = ((-c) + (1))>> then\n            if <(item ((-c) + (1)) of [.check value v]) = (item (((-c) * (-Max Objects)) + (1)) of [.cloud list v])> then\n                replace item ((-c) + (1)) of [.check active v] with [0]\n                if <(Tagged) = ((-c) + (1))> then\n                    set [tagged v] to [0]\n                end\n            else\n                replace item ((-c) + (1)) of [.check active v] with [1]\n                if <<(item (((-c) * (-Max Objects)) + (2)) of [.cloud list v]) = (username)> and <<not <(username) = []>> and <(.is Debugger?) = [0]>>> then\n                    broadcast (inUse v)\n                end\n            end\n        end\n        change [-c v] by (1)\n    end\nend\n\n@Buttons\n\nwhen flag clicked\ngo to x: (220) y: (160)\nswitch costume to (button v)\nhide\nshow list [-premuim v]\nshow list [premuim+ v]\nshow list [-petitions v]\nshow list [chat v]\nshow list [triple clic to select and ctrl + c to copy v]\n\nwhen I receive [turn page v]\nset size to (100) %\nDo Suffs\nforever\n    go to x: (220) y: (160)\n    if <<(length of [-petitions v]) > [1]> and <<[premuim+ v] contains (username)?> or <[premium+2 v] contains (username)?>>> then\n        switch costume to (button2 v)\n    else\n        switch costume to (button v)\n    end\n    go to [front v] layer\n    set [ghost v] effect to (30)\n    show\n    if <<<touching (mouse-pointer v)?> or <key (t v) pressed?>> and <<(can press?) = [1]> and <not <(-Open Chat?) = [3]>>>> then\n        if <<<mouse down?> or <key (t v) pressed?>> and <<(can press?) = [1]> and <not <(-Open Chat?) = [3]>>>> then\n            repeat until <<<not <mouse down?>> or <not <touching (mouse-pointer v)?>>> and <<(can press?) = [1]> and <not <(-Open Chat?) = [3]>>>>\n                set [size v] to (((size) * (0.7)) + (((90) - (size)) / (6)))\n                change size by (size)\n            end\n            if <<<touching (mouse-pointer v)?> or <key (t v) pressed?>> and <<(can press?) = [1]> and <not <(-Open Chat?) = [3]>>>> then\n                set [.creator type v] to [0]\n                set [-open chat? v] to (((-Open Chat?) + (1)) mod (2))\n                set [.page v] to [0]\n                start sound ((((-Open Chat?) + (1)) mod (2)) + (3))\n                show list [triple clic to select and ctrl + c to copy v]\n            end\n            wait until <not <key (t v) pressed?>>\n        else\n            set [size v] to (((size) * (0.7)) + (((110) - (size)) / (6)))\n            change size by (size)\n        end\n    else\n        set [size v] to (((size) * (0.7)) + (((100) - (size)) / (6)))\n        change size by (size)\n    end\nend\n\nwhen I start as a clone\nhide\nset size to (100) %\nif <<<(id) < [15]> or <(id) > [15]>> and <<not <(id) = [22]>> and <(id) < [24]>>> then\n    forever\n        point in direction (90)\n        if <(id) = [10]> then\n            go to x: (-30) y: (-160)\n            switch costume to (chat10 v)\n        else\n            if <(id) = [11]> then\n                go to x: (180) y: (-140)\n            else\n                if <<(id) > [15]> and <(id) < [18]>> then\n                    go to x: ((265) - ((20) * (id))) y: (-130)\n                else\n                    if <(id) = [18]> then\n                        go to x: (220) y: (120)\n                    else\n                        if <(id) = [19]> then\n                            go to x: (180) y: (120)\n                        else\n                            if <(id) = [20]> then\n                                go to x: (-45) y: (-160)\n                            else\n                                if <(id) = [21]> then\n                                    go to x: (60) y: (-160)\n                                else\n                                    if <(id) = [23]> then\n                                        go to x: (140) y: (120)\n                                    else\n                                        if <(id) > [11]> then\n                                            go to x: (-180) y: ((-520) + ((30) * (id)))\n                                        else\n                                            go to x: (-230) y: ((110) - ((30) * (id)))\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n            if <<(id) > [15]> and <(id) < [18]>> then\n                switch costume to ((id) + (4))\n            else\n                if <(id) = [18]> then\n                    switch costume to ((-Mobile Type) + (22))\n                else\n                    if <(id) = [19]> then\n                        switch costume to ((.Chats) + (24))\n                    else\n                        if <(id) = [20]> then\n                            switch costume to ((.Page) + (63))\n                        else\n                            if <(id) = [21]> then\n                                switch costume to (update v)\n                            else\n                                if <(id) = [23]> then\n                                    switch costume to ((.Translate?) + (115))\n                                else\n                                    if <<<(id) < [10]> and <(.Page) = [0]>> or <(id) > [9]>> then\n                                        switch costume to ((id) + (2))\n                                    else\n                                        switch costume to ((id) + ((27) + (((.Page) - (1)) * (9))))\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        set [ghost v] effect to (30)\n        go to [front v] layer\n        if <<<(-Open Chat?) = [1]> and <not <<(id) > [11]> and <(id) < [15]>>>> or <<(-Open Chat?) = [2]> and <<<(id) > [11]> and <(id) < [15]>> and <<<(id) = [14]> and <(Tagged) = [0]>> or <not <(id) = [14]>>>>>> then\n            show\n            show list [-premuim v]\n            show list [premuim+ v]\n            show list [-petitions v]\n            if <<<<touching (mouse-pointer v)?> or <key (t v) pressed?>> and <(can press?) = [1]>> and <not <(id) = [20]>>> then\n                if <<<mouse down?> or <key (t v) pressed?>> and <(can press?) = [1]>> then\n                    repeat until <<<not <mouse down?>> or <not <touching (mouse-pointer v)?>>> and <(can press?) = [1]>>\n                        set [size v] to (((size) * (0.7)) + (((90) - (size)) / (6)))\n                        change size by (size)\n                    end\n                    if <<<touching (mouse-pointer v)?> or <key (t v) pressed?>> and <(can press?) = [1]>> then\n                        if <<(id) = [10]> and <<[-premuim v] contains (username)?> or <[premium 2 v] contains (username)?>>> then\n                    end\n                else\n                    set [size v] to (((size) * (0.7)) + (((110) - (size)) / (6)))\n                    change size by (size)\n                end\n            else\n                set [size v] to (((size) * (0.7)) + (((100) - (size)) / (6)))\n                change size by (size)\n            end\n        else\n            hide\n            show list [-premuim v]\n            show list [premuim+ v]\n            show list [-petitions v]\n            set [size v] to (((size) * (0.7)) + (((100) - (size)) / (6)))\n            change size by (size)\n        end\n        show list [chat v]\n    end\nend\n\nwhen I receive [turn page v]\nbroadcast (Get Chat Data v) and wait\nAdd in\n\ndefine Add in\ndelete all of [premium made by v]\ndelete all of [premium v]\nset [-j v] to [1]\nrepeat (length of [-premuim v])\n    if <not <[premuim+ v] contains (item (-j) of [-premuim v])?>> then\n        add (join [-] (join (item (-j) of [-premuim v]) (join [⃝] (join (item (-j) of [wmt v]) (item (-j) of [who made v]))))) to [premium v]\n        if <(item (-j) of [wmt v]) = [2]> then\n            add (join [-] (join (item (-j) of [-premuim v]) (join [ by ] (item (item (-j) of [who made v]) of [premium+2 v])))) to [premium made by v]\n        else\n            add (join [-] (join (item (-j) of [-premuim v]) (join [ by ] (item (item (-j) of [who made v]) of [premuim+ v])))) to [premium made by v]\n        end\n    end\n    change [-j v] by (1)\nend\ndelete all of [premium + v]\nset [-j v] to [1]\nrepeat (length of [premuim+ v])\n    add (join [+] (join (item (-j) of [premuim+ v]) (join [⃝] (join (item ((-j) + (length of [premium v])) of [wmt v]) (item ((-j) + (length of [premium v])) of [who made v]))))) to [premium + v]\n    if <(item ((-j) + (length of [premium v])) of [wmt v]) = [2]> then\n        add (join [+] (join (item (-j) of [-premuim v]) (join [ by ] (item (item ((-j) + (length of [premium v])) of [who made v]) of [premium+2 v])))) to [premium made by v]\n    else\n        add (join [+] (join (item (-j) of [-premuim v]) (join [ by ] (item (item ((-j) + (length of [premium v])) of [who made v]) of [premuim+ v])))) to [premium made by v]\n    end\n    change [-j v] by (1)\nend\ndelete all of [cant make this v]\nset [-j v] to [1]\nrepeat (length of [-cant make this v])\n    add (join [/] (join (item (-j) of [-cant make this v]) (join [⃝] (join (item ((-j) + ((length of [premium v]) + (length of [premium + v]))) of [wmt v]) (item ((-j) + ((length of [premium v]) + (length of [premium + v]))) of [who made v]))))) to [cant make this v]\n    if <(item ((-j) + ((length of [premium v]) + (length of [premium + v]))) of [wmt v]) = [2]> then\n        add (join [/] (join (item (-j) of [-cant make this v]) (join [ by ] (item (item ((-j) + ((length of [premium v]) + (length of [premium + v]))) of [who made v]) of [premium+2 v])))) to [premium made by v]\n    else\n        add (join [/] (join (item (-j) of [-cant make this v]) (join [ by ] (item (item ((-j) + ((length of [premium v]) + (length of [premium + v]))) of [who made v]) of [premuim+ v])))) to [premium made by v]\n    end\n    change [-j v] by (1)\nend\ndelete all of [petitions v]\nset [-j v] to [1]\nrepeat (length of [-petitions v])\n    add (item (-j) of [-petitions v]) to [petitions v]\n    change [-j v] by (1)\nend\n\ndefine Search (player) (list)\nset [-i v] to [1]\nif <(list) = [+]> then\n    repeat (length of [premuim+ v])\n        if <(item (-i) of [premuim+ v]) = (player)> then\n            stop [this script v]\n        end\n        change [-i v] by (1)\n    end\nelse\n    repeat (length of [-premuim v])\n        if <(item (-i) of [-premuim v]) = (player)> then\n            stop [this script v]\n        end\n        change [-i v] by (1)\n    end\nend\n\ndefine Fix (text)\nset [-i v] to [1]\nset [-fixed v] to []\nrepeat (length of (text))\n    if <(letter (-i) of (text)) = [ ]> then\n        set [-fixed v] to (join (-fixed) [⃝])\n    else\n        set [-fixed v] to (join (-fixed) (letter (-i) of (text)))\n    end\n    change [-i v] by (1)\nend\nset [-fixed v] to (join (-fixed) [⃝])\n\nwhen I start as a clone\nif <(id) = [15]> then\n    set [.hold v] to [0]\n    forever\n        go to x: (180) y: (160)\n        point in direction (90)\n        switch costume to (map v)\n        say []\n        go to [front v] layer\n        set [ghost v] effect to (30)\n        set [.can drag? v] to [1]\n        show\n        if <<<touching (mouse-pointer v)?> or <key (q v) pressed?>> and <<(can press?) = [1]> and <<not <(.Current Room) = [7]>> or <(Defeated?) = [1]>>>> then\n            if <<<mouse down?> or <key (q v) pressed?>> and <(can press?) = [1]>> then\n                set [.hold v] to [0]\n                repeat until <<<<not <mouse down?>> or <not <touching (mouse-pointer v)?>>> or <<(.hold) > [25]> and <(.is Debugger?) = [1]>>> and <(can press?) = [1]>>\n                    set [size v] to (((size) * (0.7)) + (((90) - (size)) / (6)))\n                    change size by (size)\n                    if <(.is Debugger?) = [1]> then\n                        change [.hold v] by (1)\n                    end\n                end\n                if <<(.hold) > [25]> and <<(.is Debugger?) = [1]> and <<not <(.Current Room) = [7]>> or <(Defeated?) = [1]>>>> then\n                    if <(someone anti commands?) = [0]> then\n                        repeat until <not <mouse down?>>\n                            switch costume to (map2 v)\n                            go to (mouse-pointer v)\n                            set [size v] to (((size) * (0.7)) + (((100) - (size)) / (6)))\n                            change size by (size)\n                            set [.can drag? v] to [0]\n                        end\n                        broadcast (Player Teleport v) and wait\n                        start sound [Pew v]\n                        broadcast (Close Map v) and wait\n                    else\n                        say (join [You cant teleport here. "] (join (item ((((someone anti commands?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" Block commands on this level.])) for (3) seconds\n                    end\n                else\n                    if <<<touching (mouse-pointer v)?> or <key (q v) pressed?>> and <<(can press?) = [1]> and <not <(.Current Room) = [7]>>>> then\n                        if <<(-Moving Scroll) = [0]> and <<(Grabbed) = [0]> or <<(Grabbed) = [-1]> or <(Grabbed) = [-4]>>>> then\n                            broadcast (Open Map v) and wait\n                        else\n                            broadcast (Close Map v) and wait\n                        end\n                        start sound ((((-Moving Scroll) + (1)) mod (2)) + (3))\n                        show list [triple clic to select and ctrl + c to copy v]\n                        wait until <not <key (q v) pressed?>>\n                    end\n                end\n            else\n                set [size v] to (((size) * (0.7)) + (((110) - (size)) / (6)))\n                change size by (size)\n            end\n        else\n            set [size v] to (((size) * (0.7)) + (((100) - (size)) / (6)))\n            change size by (size)\n        end\n        if <(-Moving Scroll) = [1]> then\n            if <(Grabbed) = [-3]> then\n                broadcast (Close Map v) and wait\n            end\n            if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <(right key pressed) = [1]>> then\n                change [scroll x v] by ((5) + ((.hold) / (5)))\n                change [.hold v] by (1)\n            end\n            if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <(left key pressed) = [1]>> then\n                change [scroll x v] by ((-5) - ((.hold) / (5)))\n                change [.hold v] by (1)\n            end\n            if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <(up key pressed) = [1]>> then\n                change [scroll y v] by ((5) + ((.hold) / (5)))\n                change [.hold v] by (1)\n            end\n            if <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <(down key pressed) = [1]>> then\n                change [scroll y v] by ((-5) - ((.hold) / (5)))\n                change [.hold v] by (1)\n            end\n            if <key ((join [+] []) v) pressed?> then\n                change [zoom v] by (0.02)\n            end\n            if <key ((join [-] []) v) pressed?> then\n                change [zoom v] by (-0.02)\n            end\n            Limit\n            if <not <<<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <(right key pressed) = [1]>> or <<<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <(left key pressed) = [1]>> or <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <(up key pressed) = [1]>> or <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <(down key pressed) = [1]>>>>>> then\n                set [.hold v] to [0]\n            end\n        else\n            set [.hold v] to [0]\n        end\n    end\nelse\n    if <(id) = [22]> then\n        forever\n            go to x: (140) y: (160)\n            switch costume to (emotes v)\n            go to [front v] layer\n            set [ghost v] effect to (30)\n            show\n            if <<touching (mouse-pointer v)?> and <<(can press?) = [1]> and <not <(-Open Chat?) = [3]>>>> then\n                if <<mouse down?> and <<(can press?) = [1]> and <not <(-Open Chat?) = [3]>>>> then\n                    repeat until <<<not <mouse down?>> or <not <touching (mouse-pointer v)?>>> and <<(can press?) = [1]> and <not <(-Open Chat?) = [3]>>>>\n                        set [size v] to (((size) * (0.7)) + (((90) - (size)) / (6)))\n                        change size by (size)\n                    end\n                    if <<touching (mouse-pointer v)?> and <<(can press?) = [1]> and <not <(-Open Chat?) = [3]>>>> then\n                        if <(-Open Chat?) = [2]> then\n                            set [-open chat? v] to [0]\n                            start sound [Disconnect v]\n                        else\n                            set [-open chat? v] to [2]\n                            start sound [Connect v]\n                        end\n                        show list [triple clic to select and ctrl + c to copy v]\n                    end\n                else\n                    set [size v] to (((size) * (0.7)) + (((110) - (size)) / (6)))\n                    change size by (size)\n                end\n            else\n                set [size v] to (((size) * (0.7)) + (((100) - (size)) / (6)))\n                change size by (size)\n            end\n        end\n    end\nend\n\ndefine Limit\nif <(ZOOM) > [1]> then\n    set [zoom v] to [1]\nend\nif <(ZOOM) < [0.5]> then\n    set [zoom v] to [0.5]\nend\nif <(SCROLL X) < ((0) + (((240) / (ZOOM)) - (240)))> then\n    set [scroll x v] to ((0) + (((240) / (ZOOM)) - (240)))\nend\nif <(SCROLL Y) < ((0) + (((180) / (ZOOM)) - (180)))> then\n    set [scroll y v] to ((0) + (((180) / (ZOOM)) - (180)))\nend\nif <(.Current Room) = [1]> then\n    if <(SCROLL X) > ((4320) - (((240) / (ZOOM)) - (240)))> then\n        set [scroll x v] to ((4320) - (((240) / (ZOOM)) - (240)))\n    end\n    if <(SCROLL Y) > ((620) - (((180) / (ZOOM)) - (180)))> then\n        set [scroll y v] to ((620) - (((180) / (ZOOM)) - (180)))\n    end\nelse\n    if <(.Current Room) = [2]> then\n        if <(SCROLL X) > ((480) - (((240) / (ZOOM)) - (240)))> then\n            set [scroll x v] to ((480) - (((240) / (ZOOM)) - (240)))\n        end\n        if <(SCROLL Y) > ((3400) - (((180) / (ZOOM)) - (180)))> then\n            set [scroll y v] to ((3400) - (((180) / (ZOOM)) - (180)))\n        end\n    else\n        if <(.Current Room) = [3]> then\n            if <(SCROLL X) > ((1920) - (((240) / (ZOOM)) - (240)))> then\n                set [scroll x v] to ((1920) - (((240) / (ZOOM)) - (240)))\n            end\n            if <(SCROLL Y) > ((1280) - (((180) / (ZOOM)) - (180)))> then\n                set [scroll y v] to ((1280) - (((180) / (ZOOM)) - (180)))\n            end\n        else\n            if <(.Current Room) = [4]> then\n                if <(SCROLL X) > ((9120) - (((240) / (ZOOM)) - (240)))> then\n                    set [scroll x v] to ((9120) - (((240) / (ZOOM)) - (240)))\n                end\n                if <(SCROLL Y) > [180]> then\n                    set [scroll y v] to [180]\n                end\n            else\n                if <(.Current Room) = [5]> then\n                    if <(SCROLL X) > [0]> then\n                        set [scroll x v] to [0]\n                    end\n                    if <(SCROLL Y) > ((7040) - (((180) / (ZOOM)) - (180)))> then\n                        set [scroll y v] to ((7040) - (((180) / (ZOOM)) - (180)))\n                    end\n                else\n                    if <(.Current Room) = [6]> then\n                        if <(SCROLL X) > ((4320) - (((240) / (ZOOM)) - (240)))> then\n                            set [scroll x v] to ((4320) - (((240) / (ZOOM)) - (240)))\n                        end\n                        if <(SCROLL Y) > ((620) - (((180) / (ZOOM)) - (180)))> then\n                            set [scroll y v] to ((620) - (((180) / (ZOOM)) - (180)))\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nif <<(.hold) > [300]> and <(.Current Room) < ((.Levels) + (1))>> then\n    set [.hold v] to [300]\nend\n\ndefine Filter (text)\nSeparate to List (text)\nTest\n\ndefine Separate to List (text)\nset [-i v] to [1]\nset [-word v] to []\ndelete all of [words v]\nrepeat (length of (text))\n    if <(letter (-i) of (text)) = [⃝]> then\n        add (-word) to [words v]\n        set [-word v] to []\n    else\n        set [-word v] to (join (-word) (letter (-i) of (text)))\n    end\n    change [-i v] by (1)\nend\n\ndefine Test\nset [-i v] to [1]\nset [-filter v] to []\nrepeat (length of [words v])\n    if <(translate (item (-i) of [words v]) to ((language::translate) v)::translate) = []> then\n        Censure (item (-i) of [words v])\n        set [-filter v] to (join (-filter) (join (-word) [⃝]))\n    else\n        set [-filter v] to (join (-filter) (join (item (-i) of [words v]) [⃝]))\n    end\n    change [-i v] by (1)\nend\n\ndefine Censure (word)\nset [-word v] to []\nrepeat (length of (word))\n    set [-word v] to (join (-word) [*])\nend\n\nwhen I start as a clone\nif <(id) > [23]> then\n    forever\n        if <(id) = [38]> then\n            go to x: (0) y: (0)\n            point in direction (90)\n            switch costume to (helpc v)\n        else\n            if <(id) > [29]> then\n                go to x: (0) y: (0)\n                point in direction ((90) + (((id) - (30)) * (45)))\n                switch costume to (((id) + (105)) + (((.PageE) - (1)) * (8)))\n            else\n                if <(id) = [24]> then\n                    go to x: (220) y: (120)\n                    switch costume to ((-Show Names) + (117))\n                else\n                    if <(id) = [25]> then\n                        go to x: (180) y: (120)\n                        switch costume to ((-Help?) + (119))\n                    else\n                        if <(id) = [26]> then\n                            go to x: (140) y: (120)\n                            switch costume to ((-Music?) + (121))\n                        else\n                            if <(id) = [27]> then\n                                go to x: (175) y: (0)\n                                switch costume to (next v)\n                            else\n                                if <(id) = [28]> then\n                                    go to x: (-175) y: (0)\n                                    switch costume to (previus v)\n                                else\n                                    go to x: (0) y: (-160)\n                                    switch costume to ((.PageE) + (128))\n                                end\n                            end\n                        end\n                    end\n                end\n                point in direction (90)\n            end\n        end\n        go to [front v] layer\n        set [ghost v] effect to ((30) - (<(id) = [38]> * (20)))\n        if <(id) = [38]> then\n            set size to (100) %\n            if <<(-Open Chat?) = [1]> and <(.HelpC) = [1]>> then\n                show\n            else\n                hide\n            end\n        else\n            if <(-Open Chat?) = [2]> then\n                show\n                set [brightness v] effect to (0)\n                if <<<touching (mouse-pointer v)?> and <(can press?) = [1]>> and <not <(id) = [29]>>> then\n                    if <<mouse down?> and <(can press?) = [1]>> then\n                        repeat until <<<not <mouse down?>> or <not <touching (mouse-pointer v)?>>> and <(can press?) = [1]>>\n                            set [size v] to (((size) * (0.7)) + ((((90) + (<<(id) = [27]> or <(id) = [28]>> * (90))) - (size)) / (6)))\n                            change size by (size)\n                        end\n                        if <<touching (mouse-pointer v)?> and <(can press?) = [1]>> then\n                            if <(id) = [24]> then\n                                set [-show names v] to (((-Show Names) + (1)) mod (2))\n                                start sound ((((-Show Names) + (1)) mod (2)) + (3))\n                            else\n                                if <(id) = [25]> then\n                                    set [-help? v] to (((-Help?) + (1)) mod (2))\n                                    start sound ((((-Help?) + (1)) mod (2)) + (3))\n                                else\n                                    if <(id) = [26]> then\n                                        change [-music? v] by (1)\n                                        if <(-Music?) > [5]> then\n                                            set [-music? v] to [0]\n                                        end\n                                        stop all sounds\n                                        if <(-Music?) > [0]> then\n                                            start sound [Connect v]\n                                        else\n                                            start sound [Disconnect v]\n                                        end\n                                    else\n                                        if <(id) = [27]> then\n                                            change [.pagee v] by (1)\n                                            if <(.PageE) > [5]> then\n                                                set [.pagee v] to [1]\n                                            end\n                                            start sound [pop v]\n                                        else\n                                            if <(id) = [28]> then\n                                                change [.pagee v] by (-1)\n                                                if <(.PageE) < [1]> then\n                                                    set [.pagee v] to [5]\n                                                end\n                                                start sound [pop v]\n                                            else\n                                                set [-doing emote v] to (((id) - (29)) + (((.PageE) - (1)) * (8)))\n                                                set [.last emote v] to (-Doing Emote)\n                                                set [-emote n° v] to [1]\n                                                set [-open chat? v] to [0]\n                                                broadcast (Do Emote v)\n                                                start sound [Pew v]\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    else\n                        set [size v] to (((size) * (0.7)) + ((((110) + (<<(id) = [27]> or <(id) = [28]>> * (110))) - (size)) / (6)))\n                        change size by (size)\n                    end\n                else\n                    set [size v] to (((size) * (0.7)) + ((((100) + (<<(id) = [27]> or <(id) = [28]>> * (100))) - (size)) / (6)))\n                    change size by (size)\n                end\n            else\n                hide\n                set [size v] to (((size) * (0.7)) + ((((100) + (<<(id) = [27]> or <(id) = [28]>> * (100))) - (size)) / (6)))\n                change size by (size)\n            end\n        end\n    end\nend\n\ndefine What C1 (text) (1/2)\nset [-i v] to [1]\nset [-word v] to []\nrepeat until <<(letter (-i) of (text)) = [⃝]> or <(-i) > (length of (text))>>\n    set [-word v] to (join (-word) (letter (-i) of (text)))\n    change [-i v] by (1)\nend\nif <(1/2) = [2]> then\n    change [-i v] by (1)\n    set [-word v] to []\n    repeat until <<(letter (-i) of (text)) = [⃝]> or <(-i) > (length of (text))>>\n        set [-word v] to (join (-word) (letter (-i) of (text)))\n        change [-i v] by (1)\n    end\nend\n\ndefine Do Suffs\nset [-open chat? v] to [0]\nset [can press? v] to [1]\nset [.can talk v] to [1]\nset [.mode v] to [1]\nset [.page v] to [0]\nset [.pagee v] to [1]\nset [.translate? v] to [0]\nset [-doing emote v] to [0]\nset [-show names v] to [1]\nset [-help? v] to [1]\nset [-music? v] to [1]\nset [.last emote v] to [0]\nset [-last c v] to [0]\nset [.helpc v] to [0]\nset [show xy? v] to [0]\nset [show fps? v] to [0]\nset [n o t h i n g v] to [0]\ndelete all of [build v]\nadd [clean⃝a⃝l⃝l⃝] to [build v]\nset [id v] to [0]\nrepeat (38)\n    change [id v] by (1)\n    if <not <<<<(id) > [9]> and <(id) < [12]>> or <<(id) > [15]> and <(id) < [18]>>> or <<(id) = [20]> or <(id) = [21]>>>> then\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I receive [next level v]\nif <(costume [number v]) < [3]> then\n    delete all of [build v]\n    add [clean⃝a⃝l⃝l⃝] to [build v]\nend\n\nwhen I receive [send v]\nif <(costume [number v]) < [3]> then\n    Divide\n    set [.can talk v] to [0]\n    set [-i v] to [1]\n    repeat (length of [divide v])\n        set [.speak nº v] to (join [0/^⃝] (item (-i) of [divide v]))\n        set [.speak state v] to ((.Delta Time) + (0.9))\n        wait until <(.Speak State) < [0.1]>\n        change [-i v] by (1)\n    end\n    set [.can talk v] to [1]\nend\n\ndefine Divide\ndelete all of [divide v]\nset [-i v] to [1]\nset [-word v] to []\nrepeat (length of [build v])\n    if <(length of (join (-word) (item ((-i) + (1)) of [build v]))) < [70]> then\n        set [-word v] to (join (-word) (item (-i) of [build v]))\n    else\n        add (-word) to [divide v]\n        set [-word v] to (item (-i) of [build v])\n    end\n    change [-i v] by (1)\nend\nadd (-word) to [divide v]\n\nwhen I receive [save v]\nif <(costume [number v]) < [3]> then\n    Put All Together\n    hide list [triple clic to select and ctrl + c to copy v]\nend\n\ndefine Put All Together\ndelete all of [triple clic to select and ctrl + c to copy v]\nset [-i v] to [1]\nset [-word v] to []\nrepeat (length of [build v])\n    set [-word v] to (join (-word) (item (-i) of [build v]))\n    change [-i v] by (1)\nend\nadd (-word) to [triple clic to select and ctrl + c to copy v]\n\ndefine How Many (txt) (st)\nset [-i v] to (st)\nset [-j v] to [0]\nrepeat (length of (txt))\n    if <(letter (-i) of (txt)) = [⃝]> then\n        change [-j v] by (0.25)\n    end\n    change [-i v] by (1)\nend\nchange [-j v] by (-0.25)\n\ndefine Separate for 4 (txt) (nºst) (nºct)\nset [.custom say v] to []\nset [-i v] to (nºst)\nset [-j v] to [1]\nrepeat (length of (txt))\n    if <(letter (-i) of (txt)) = [⃝]> then\n        set [.custom say v] to (join (.Custom Say) [⃝])\n        change [-j v] by (1)\n        if <(-j) > (((nºct) * (4)) + (1))> then\n            stop [this script v]\n        end\n        if <(-j) < (((nºct) * (4)) - (1))> then\n            set [.custom say v] to []\n        end\n    else\n        set [.custom say v] to (join (.Custom Say) (letter (-i) of (txt)))\n    end\n    change [-i v] by (1)\nend\n\ndefine What C2 (text) (what)\nset [-i v] to [2]\nset [-word v] to []\nrepeat until <<(letter (-i) of (text)) = [⃝]> or <(-i) > (length of (text))>>\n    set [-word v] to (join (-word) (letter (-i) of (text)))\n    change [-i v] by (1)\nend\nif <(what) > [1]> then\n    repeat ((what) - (1))\n        change [-i v] by (1)\n        set [-word v] to []\n        repeat until <<(letter (-i) of (text)) = [⃝]> or <(-i) > (length of (text))>>\n            set [-word v] to (join (-word) (letter (-i) of (text)))\n            change [-i v] by (1)\n        end\n    end\nend\n\ndefine Load (text)\nHow Many (text) [8]\nset [-k v] to [0]\nrepeat (-j)\n    What C2 (text) ((2) + ((-k) * (4)))\n    set [.create type v] to (-word)\n    What C2 (text) ((3) + ((-k) * (4)))\n    set [.create form v] to (-word)\n    What C2 (text) ((4) + ((-k) * (4)))\n    set [.create x v] to (-word)\n    What C2 (text) ((5) + ((-k) * (4)))\n    set [.create y v] to (-word)\n    if <(.Create TYPE) = [clean]> then\n        set [.create type v] to (.Create FORM)\n        if <(join (.Create FORM) (join (.Create X) (.Create Y))) = [all]> then\n            broadcast (Delete for New v) and wait\n            delete all of [build v]\n        else\n            broadcast (Clean This v) and wait\n        end\n    else\n        broadcast (Create v) and wait\n    end\n    Separate for 4 (text) [3] ((-k) + (1))\n    add (.Custom Say) to [build v]\n    change [-k v] by (1)\nend\n\ndefine Chat\nif <(length of (answer)) < [75]> then\n    set [-open chat? v] to [0]\n    hide\n    if <<<(answer) = [/]> and <(-Last C) > [ 0]>> and <<[premuim+ v] contains (username)?> or <[premium+2 v] contains (username)?>>> then\n        Fix (-Last C)\n    else\n        Fix (answer)\n    end\n    if <<(letter (1) of (answer)) = [/]> and <<[premuim+ v] contains (username)?> or <[premium+2 v] contains (username)?>>> then\n        What C1 (-fixed) [1]\n        if <<(-word) = [/new]> and <(.is Debugger?) = [1]>> then\n            broadcast (Get Chat Data v)\n            What C1 (-fixed) [2]\n            Add in\n            replace item (1) of [petitions v] with (-word)\n            broadcast (Save Petition Data v) and wait\n        else\n            if <(-word) = [/anti]> then\n                What C1 (-fixed) [2]\n                if <[can/cant commands v] contains (-word)?> then\n                    replace item (item # of (-word) in [can/cant commands v]) of [can/cant v] with (((item (item # of (-word) in [can/cant commands v]) of [can/cant v]) + (1)) mod (2))\n                else\n                    Add to Can do things\n                    hide list [can do v]\n                    wait (5) seconds\n                    show list [can do v]\n                end\n                if <not <(answer) = [/]>> then\n                    set [-last c v] to (answer)\n                end\n            else\n                if <(-word) = [/tag]> then\n                    if <(someone anti commands?) = [0]> then\n                        set [tagged v] to (.Player Slot)\n                        set [tag time v] to [1]\n                        if <not <(answer) = [/]>> then\n                            set [-last c v] to (answer)\n                        end\n                    else\n                        set [.speak state v] to [-1]\n                        set [-open chat? v] to [1]\n                        show\n                        say (join [You can't do commands here. "] (join (item ((((someone anti commands?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" Block commands on this level.])) for (3) seconds\n                    end\n                else\n                    if <(-word) = [/fps]> then\n                        set [show fps? v] to (((show fps?) + (1)) mod (2))\n                        if <not <(answer) = [/]>> then\n                            set [-last c v] to (answer)\n                        end\n                    else\n                        if <(-word) = [/position]> then\n                            set [show xy? v] to (((show xy?) + (1)) mod (2))\n                            if <not <(answer) = [/]>> then\n                                set [-last c v] to (answer)\n                            end\n                        else\n                            if <(-word) = [/players]> then\n                                Players\n                                set [.speak state v] to [-1]\n                                set [-open chat? v] to [1]\n                                show\n                                if <not <(answer) = [/]>> then\n                                    set [-last c v] to (answer)\n                                end\n                                say (Players Online) for (3) seconds\n                            else\n                                if <(-word) = [/help]> then\n                                    set [.helpc v] to (((.HelpC) + (1)) mod (2))\n                                    set [.mode v] to [0]\n                                    set [-open chat? v] to [1]\n                                    if <not <(answer) = [/]>> then\n                                        set [-last c v] to (answer)\n                                    end\n                                else\n                                    if <(-word) = [/create]> then\n                                        if <(someone anti commands?) = [0]> then\n                                            if <(someone anti create?) = [0]> then\n                                                if <(someone loading?) = [0]> then\n                                                    set [.creator type v] to [g]\n                                                    set [.creator form v] to [1]\n                                                    if <not <(answer) = [/]>> then\n                                                        set [-last c v] to (answer)\n                                                    end\n                                                    set [can press? v] to [1]\n                                                    broadcast (Create Section v) and wait\n                                                    repeat until <(.Creator TYPE) = [0]>\n                                                        set [.speak nº v] to (join [0/create⃝] (join (join (join (.Creator TYPE) [⃝]) (.Creator FORM)) (join (join (join [⃝] (.Creator X)) (join [⃝] (.Creator Y))) [⃝])))\n                                                        set [.speak state v] to [1.5]\n                                                        broadcast (Create Section v) and wait\n                                                    end\n                                                else\n                                                    set [.speak state v] to [-1]\n                                                    set [-open chat? v] to [1]\n                                                    show\n                                                    say (join [You can't create right now. "] (join (item ((((someone loading?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" is Loading. Please Wait...])) for (3) seconds\n                                                end\n                                            else\n                                                set [.speak state v] to [-1]\n                                                set [-open chat? v] to [1]\n                                                show\n                                                say (join [You can't create here. "] (join (item ((((someone anti create?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" Block the creation on this level.])) for (3) seconds\n                                            end\n                                        else\n                                            set [.speak state v] to [-1]\n                                            set [-open chat? v] to [1]\n                                            show\n                                            say (join [You can't do commands here. "] (join (item ((((someone anti commands?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" Block commands on this level.])) for (3) seconds\n                                        end\n                                    else\n                                        if <(someone anti commands?) = [0]> then\n                                            if <(-word) = [/clean]> then\n                                                if <(someone anti create?) = [0]> then\n                                                    set [.speak nº v] to (join [0] (-fixed))\n                                                    set [.speak state v] to [1.5]\n                                                    if <not <(answer) = [/]>> then\n                                                        set [-last c v] to (answer)\n                                                    end\n                                                else\n                                                    set [.speak state v] to [-1]\n                                                    set [-open chat? v] to [1]\n                                                    show\n                                                    say (join [You can't create here. "] (join (item ((((someone anti create?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" Block the creation on this level.])) for (3) seconds\n                                                end\n                                            else\n                                                set [.speak nº v] to (join [0] (-fixed))\n                                                set [.speak state v] to [1.5]\n                                                if <<not <(answer) = [/]>> and <not <(-word) = [/load]>>> then\n                                                    set [-last c v] to (answer)\n                                                end\n                                            end\n                                        else\n                                            set [.speak state v] to [-1]\n                                            set [-open chat? v] to [1]\n                                            show\n                                            say (join [You can't do commands here. "] (join (item ((((someone anti commands?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" Block commands on this level.])) for (3) seconds\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    else\n        if <<(.Speak State) < [0.1]> or <<(.Speak State) = ((1) / (0))> or <(.Speak Nº) = [0\(writing...\)]>>> then\n            set [.speak nº v] to (join [0] [\(processing...\)])\n            set [.speak state v] to ((1) / (0))\n        end\n        Filter (-fixed)\n        set [.speak nº v] to (join [0] (-filter))\n        set [.speak state v] to (((length of (-fixed)) / (10)) + (3))\n        replace item (9) of [stats v] with ((item (9) of [stats v]) + (1))\n        if <(item (9) of [stats v]) > [0]> then\n            add [24] to [new achievments v]\n            if <(item (9) of [stats v]) > [19]> then\n                add [25] to [new achievments v]\n            end\n        end\n    end\n    start sound [pop v]\nelse\n    set [.speak state v] to [-1]\n    say [I'm sorry but the maximum of letters is 75] for (3) seconds\nend\n\ndefine Players\ndelete all of [players online v]\nset [-i v] to [1]\nrepeat (8)\n    if <<(item (-i) of [.check active v]) = [1]> or <(-i) = (.Player Slot)>> then\n        if <(.is Debugger?) = [1]> then\n            add (join (join (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [ \(]) (join (item ((((-i) - (1)) * (-Max Objects)) + (5)) of [.cloud list v]) [\)])) to [players online v]\n        else\n            add (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) to [players online v]\n        end\n        add [&] to [players online v]\n    end\n    change [-i v] by (1)\nend\ndelete (length of [players online v]) of [players online v]\n\ndefine Add to Can do things\nshow list [can do v]\ndelete all of [can do v]\nset [-i v] to [1]\nrepeat (length of [can/cant things v])\n    add (join (item (-i) of [can/cant things v]) [: ]) to [can do v]\n    if <(item (-i) of [can/cant v]) = [0]> then\n        replace item (length of [can do v]) of [can do v] with (join (item (length of [can do v]) of [can do v]) [Yes])\n    else\n        replace item (length of [can do v]) of [can do v] with (join (item (length of [can do v]) of [can do v]) [No])\n    end\n    change [-i v] by (1)\nend\n\nif <<(-word) = [/by]> and <(.is Debugger?) = [1]>> then\n    Add in\n    hide list [premium made by v]\n    wait (5) seconds\n    show list [premium made by v]\nelse\n    if <(-word) = [/chats]> then\n        set [.chats v] to (((.Chats) + (1)) mod (2))\n        broadcast (Chats o/f v)\n        if <not <(answer) = [/]>> then\n            set [-last c v] to (answer)\n        end\n    else\n        if <(-word) = [/tell]> then\n            set [.speak nº v] to (join [0] (-fixed))\n            set [.speak state v] to (((length of (-fixed)) / (10)) + (3))\n            replace item (9) of [stats v] with ((item (9) of [stats v]) + (1))\n            if <(item (9) of [stats v]) > [0]> then\n                add [24] to [new achievments v]\n                if <(item (9) of [stats v]) > [19]> then\n                    add [25] to [new achievments v]\n                end\n            end\n            if <<not <(answer) = [/]>> and <not <(-word) = [/load]>>> then\n                set [-last c v] to (answer)\n            end\n        else\n            if <(-word) = [/^]> then\n        end\n    end\nend\n\nif <(.can talk) = [1]> then\n    set [can press? v] to [0]\n    if <(.Speak State) < [0]> then\n        set [.speak nº v] to (join [0] [\(writing...\)])\n        set [.speak state v] to ((1) / (0))\n    end\n    ask [] and wait\n    set [.speak state v] to [0]\n    if <not <(length of (answer)) = [0]>> then\n        Fix (answer)\n        What C1 (-fixed) [1]\n        if <<(-word) = [/load]> and <<[premuim+ v] contains (username)?> or <[premium+2 v] contains (username)?>>> then\n            if <(someone anti commands?) = [0]> then\n                if <(someone anti create?) = [0]> then\n                    if <(someone loading?) = [0]> then\n                        What C1 (-fixed) [2]\n                        if <<<(-word) = (username)> or <(-word) = []>> or <<(-word) = [@p]> or <[.cloud list v] contains (-word)?>>> then\n                            Chat\n                        else\n                            set [-open chat? v] to [0]\n                            hide\n                            Load (join [0] (-fixed))\n                        end\n                    else\n                        say (join [You can't load now. "] (join (item ((((someone loading?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" is Loading. Please Wait...])) for (3) seconds\n                    end\n                else\n                    say (join [You can't load here. "] (join (item ((((someone anti create?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" Block the creation on this level.])) for (3) seconds\n                end\n            else\n                say (join [You can't do commands here. "] (join (item ((((someone anti commands?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" Block commands on this level.])) for (3) seconds\n            end\n        else\n            Chat\n        end\n    else\n        set [.speak state v] to [-1]\n    end\n    set [can press? v] to [1]\nend\n\nset [can press? v] to [0]\nask [] and wait\nset [can press? v] to [1]\nif <not <(length of (answer)) = [0]>> then\n    if <(length of (answer)) < [21]> then\n        if <<[.cloud list v] contains (answer)?> and <not < (answer) contains [ ]?>>> then\n            if <<not <[-premuim v] contains (answer)?>> and <not <[premium 2 v] contains (answer)?>>> then\n                if <not <[petition who v] contains (answer)?>> then\n                    if <<<not <[-cant make this v] contains (answer)?>> and <not <[cant make this 2 v] contains (answer)?>>> or <(.is Debugger?) = [1]>> then\n                        broadcast (Get Chat Data v) and wait\n                        Add in\n                        Fix (join (join (join ["] (answer)) [" by ]) (username))\n                        add (-fixed) to [petitions v]\n                        broadcast (Save Petition Data v) and wait\n                        start sound [Connect v]\n                    else\n                        say [Sorry, you are not allowed to Premium this player] for (3) seconds\n                    end\n                else\n                    say [Player Already Suggested!] for (3) seconds\n                end\n            else\n                say [Player Already Premium!] for (3) seconds\n            end\n        else\n            say [Player not found!] for (3) seconds\n        end\n    else\n        say [Very Long Name!] for (3) seconds\n    end\nend\n\nhide\nset [can press? v] to [0]\nask [NOTE: PUT THE NAME TO PREMIUM, IF THE PLAYER IS ALREADY PREMIUM, THEN IT BECOMES PREMIUM + IF YOU PUT THE NAME AGAIN. You no longer need to put + or - at the beggining. ALSO, THE PLAYER MUST BE FOLLOWING THE RULES \(in the instrucions\) IF NOT, I WILL REMOVE YOU PREMIUM!] and wait\nset [can press? v] to [1]\nshow\nif <(length of (answer)) > [0]> then\n    if <(length of (answer)) < [21]> then\n        if <<<[.cloud list v] contains (answer)?> or <(.is Debugger?) = [1]>> and <not < (answer) contains [ ]?>>> then\n            if <<<not <[-cant make this v] contains (answer)?>> and <not <[cant make this 2 v] contains (answer)?>>> or <(.is Debugger?) = [1]>> then\n                if <(letter (1) of (answer)) = [/]> then\n                    if <(.is Debugger?) = [1]> then\n                        if <[-cant make this v] contains (answer)?> then\n                            say [Player Already Blocked!] for (3) seconds\n                        else\n                            broadcast (Get Chat Data v) and wait\n                            Add in\n                            if <[premium+2 v] contains (username)?> then\n                                add (join (answer) (join [⃝2] (item # of (username) in [premium+2 v]))) to [cant make this v]\n                            else\n                                add (join (answer) (join [⃝1] (item # of (username) in [premuim+ v]))) to [cant make this v]\n                            end\n                            broadcast (Save Premium Data v) and wait\n                            start sound [Connect v]\n                        end\n                    else\n                        say [You are not allowed to do that] for (3) seconds\n                    end\n                else\n                    if <<[-premuim v] contains (answer)?> or <[premium 2 v] contains (answer)?>> then\n                        if <<[premuim+ v] contains (answer)?> or <[premium+2 v] contains (answer)?>> then\n                            say [Player Already Premium!] for (3) seconds\n                        else\n                            broadcast (Get Chat Data v) and wait\n                            Add in\n                            delete (item # of (answer) in [-premuim v]) of [premium v]\n                            if <[premium+2 v] contains (username)?> then\n                                add (join [+] (join (answer) (join [⃝2] (item # of (username) in [premium+2 v])))) to [premium + v]\n                            else\n                                add (join [+] (join (answer) (join [⃝1] (item # of (username) in [premuim+ v])))) to [premium + v]\n                            end\n                            broadcast (Save Premium Data v) and wait\n                            start sound [Connect v]\n                        end\n                    else\n                        broadcast (Get Chat Data v) and wait\n                        Add in\n                        if <[premium+2 v] contains (username)?> then\n                            add (join [-] (join (answer) (join [⃝2] (item # of (username) in [premium+2 v])))) to [premium v]\n                        else\n                            add (join [-] (join (answer) (join [⃝1] (item # of (username) in [premuim+ v])))) to [premium v]\n                        end\n                        broadcast (Save Premium Data v) and wait\n                        start sound [Connect v]\n                    end\n                end\n            else\n                say [Sorry, you are not allowed to Premium this player] for (3) seconds\n            end\n        else\n            say [Player not found!] for (3) seconds\n        end\n    else\n        say [Very Long Name!] for (3) seconds\n    end\nend\n\nhide\nset [can press? v] to [0]\nif <(.is Debugger?) = [1]> then\n    ask [NOTE: if the player is in the 2 lists, it will be removed first from Premium+ and then if you put the name again, from the Normal.] and wait\nelse\n    ask [Put the player name that you want player to be no longer Premium and you send it like a Petition] and wait\nend\nset [can press? v] to [1]\nshow\nif <<not <(length of (answer)) = [0]>> or <<[-premuim v] contains []?> or <[premuim+ v] contains []?>>> then\n    if <(length of (answer)) < [21]> then\n        broadcast (Get Chat Data v) and wait\n        if <<(letter (1) of (answer)) = [/]> and <(.is Debugger?) = [1]>> then\n            if <[-cant make this v] contains (answer)?> then\n                Add in\n                delete (item # of (answer) in [-cant make this v]) of [cant make this v]\n                broadcast (Save Premium Data v) and wait\n                start sound [Disconnect v]\n            else\n                say [Player not found!] for (3) seconds\n            end\n        else\n            if <<[premuim+ v] contains (answer)?> or <<[premium+2 v] contains (answer)?> and <(.is Debugger?) = [0]>>> then\n                if <(.is Debugger?) = [1]> then\n                    Add in\n                    delete (item # of (answer) in [premuim+ v]) of [premium + v]\n                    broadcast (Save Premium Data v) and wait\n                    start sound [Disconnect v]\n                else\n                    if <not <[petition who v] contains (answer)?>> then\n                        set [-temp v] to (answer)\n                        hide\n                        set [can press? v] to [0]\n                        ask (join [Tell now the reason of why you want that "] (join (-temp) [" to be no longer Premium+])) and wait\n                        set [can press? v] to [1]\n                        show\n                        if <not <(length of (answer)) = [0]>> then\n                            if <(length of (answer)) < [10]> then\n                                say [Very Short Reason!] for (3) seconds\n                            else\n                                if <(length of (answer)) > [75]> then\n                                    say [Very Long Reason!] for (3) seconds\n                                else\n                                    broadcast (Get Chat Data v) and wait\n                                    Add in\n                                    Fix (join (join (join [Remove "] (-temp)) (join (join [" because "] (answer)) [" by ])) (username))\n                                    add (-fixed) to [petitions v]\n                                    broadcast (Save Petition Data v) and wait\n                                    start sound [Connect v]\n                                end\n                            end\n                        end\n                    else\n                        say [Player Already Suggested!] for (3) seconds\n                    end\n                end\n            else\n                if <<[-premuim v] contains (answer)?> or <<[premium 2 v] contains (answer)?> and <(.is Debugger?) = [0]>>> then\n                    if <(.is Debugger?) = [1]> then\n                        Add in\n                        delete (item # of (answer) in [-premuim v]) of [premium v]\n                        broadcast (Save Premium Data v) and wait\n                        start sound [Disconnect v]\n                    else\n                        if <not <[petition who v] contains (answer)?>> then\n                            set [-temp v] to (answer)\n                            hide\n                            set [can press? v] to [0]\n                            ask (join [Tell now the reason of why you want that "] (join (-temp) [" to be no longer Premium])) and wait\n                            set [can press? v] to [1]\n                            show\n                            if <not <(length of (answer)) = [0]>> then\n                                if <(length of (answer)) < [10]> then\n                                    say [Very Short Reason!] for (3) seconds\n                                else\n                                    if <(length of (answer)) > [75]> then\n                                        say [Very Long Reason!] for (3) seconds\n                                    else\n                                        broadcast (Get Chat Data v) and wait\n                                        Add in\n                                        Fix (join (join (join [Remove "] (-temp)) (join (join [" because "] (answer)) [" by ])) (username))\n                                        add (-fixed) to [petitions v]\n                                        broadcast (Save Petition Data v) and wait\n                                        start sound [Connect v]\n                                    end\n                                end\n                            end\n                        else\n                            say [Player Already Suggested!] for (3) seconds\n                        end\n                    end\n                else\n                    say [Player Not Found!] for (3) seconds\n                end\n            end\n        end\n    else\n        say [Very Long Name!] for (3) seconds\n    end\nend\n\nAdd in\nbroadcast (Save Premium Data v) and wait\nstart sound [Connect v]\n\nbroadcast (Get Chat Data v)\nAdd in\nrepeat ((length of [petitions v]) - (1))\n    delete (2) of [petitions v]\nend\nbroadcast (Save Petition Data v)\nstart sound [Pew v]\n\nchange [.page v] by (-1)\nif <(.Page) < [1]> then\n    set [.page v] to [5]\nend\nstart sound [pop v]\n\nchange [.page v] by (1)\nif <(.Page) > [5]> then\n    set [.page v] to [1]\nend\nstart sound [pop v]\n\nif <<(.Mode) = [1]> and <(-Open Chat?) = [1]>> then\n    hide list [chat v]\nend\n\n@Completed\n\nwhen flag clicked\nhide\ngo to [back v] layer\ncreate clone of (_myself_ v)\nset [x v] to [-999999]\nset [x v] to [-999999]\nset [-final? v] to [0]\n\ndefine Position\ngo to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to ((100) * (ZOOM)) %\nif <<<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> and <(.Current Room) < (.Levels)>> then\n    show\nelse\n    hide\nend\nset [fisheye v] effect to ((30) + (([sin v] of ((timer) * (500)) ) * (50)))\nif <(.Current Room) = [6]> then\n    set [color v] effect to (260)\nelse\n    if <(.Current Room) = [5]> then\n        set [color v] effect to (216)\n    else\n        set [color v] effect to (((.Current Room) - (1)) * (40))\n    end\nend\n\nwhen I receive [tick v]\nPosition\n\nwhen I start as a clone\nforever\n    set [x v] to (item ((((.Current Room) - (1)) * (2)) + (1)) of [-xy final portal v])\n    set [y v] to (item ((((.Current Room) - (1)) * (2)) + (2)) of [-xy final portal v])\n    if <<<(.Current Room) > [2]> and <(HMC) > ((14) + (((.Current Room) - (3)) * (5)))>> or <(.Current Room) < [3]>> then\n        if <<touching (player v)?> and <<(.Current Room) > ((.Levels) - (1))> and <(-Final?) = [1]>>> then\n            say [Well Done! Good Job!     Be aware!                         The Boss is Near...]\n        else\n            say []\n        end\n    else\n        if <touching (player v)?> then\n            say (join [To unlock this level you need ] (join ((15) + (((.Current Room) - (3)) * (5))) (join [ Collectables, you need others ] (join (((15) + (((.Current Room) - (3)) * (5))) - (HMC)) [ more...]))))\n        else\n            say []\n        end\n    end\nend\n\nwhen I receive [next level v]\nif  then\n    delete this clone\nend\ncreate clone of (_myself_ v)\nset [x v] to [-999999]\nset [x v] to [-999999]\n\n@Check Point\n\nwhen flag clicked\nset [.clone? v] to [0]\nhide\ngo to [back v] layer\n\nwhen I receive [tick v]\nPosition\n\ndefine Position\ngo to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to ((70) * (ZOOM)) %\nif <<<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> and <<(.Current Room) < ((.Levels) - (1))> or <(for) > [3]>>> then\n    show\nelse\n    hide\nend\n\nwhen I start as a clone\nset [.clone? v] to [1]\nforever\n    if <(for) > [3]> then\n        set [x v] to (item ((((for) - (4)) * (2)) + (1)) of [-xy custom check point v])\n        set [y v] to (item ((((for) - (4)) * (2)) + (2)) of [-xy custom check point v])\n    else\n        set [x v] to (item ((((.Current Room) - (1)) * (6)) + ((((for) - (1)) * (2)) + (1))) of [-xy check point v])\n        set [y v] to (item ((((.Current Room) - (1)) * (6)) + ((((for) - (1)) * (2)) + (2))) of [-xy check point v])\n    end\n    if <(-Check Point?) = (for)> then\n        switch costume to (check point2 v)\n    else\n        switch costume to (check point v)\n    end\n    turn right (((90) - (direction)) / (4)) degrees\nend\n\nwhen I receive [turn page v]\nset [-check point? v] to [0]\n\nwhen I receive [next prepare v]\nset [-check point? v] to [0]\n\nwhen I receive [.touched v]\nif <(x) > [-99999]> then\n    if <touching (player v)?> then\n        if <not <(-Check Point?) = (for)>> then\n            set [-check point? v] to (for)\n            start sound [Teleport2 v]\n            point in direction (120)\n        end\n    end\nend\n\nwhen I receive [next level v]\nif  then\n    delete this clone\nend\nif <(-Difficulty) < [2]> then\n    set [for v] to [1]\n    repeat (3)\n        create clone of (_myself_ v)\n        change [for v] by (1)\n    end\nelse\n    if <(-Difficulty) = [2]> then\n        set [for v] to [2]\n        create clone of (_myself_ v)\n    end\nend\nset [x v] to [-999999]\nset [y v] to [-999999]\nset [for v] to [3]\ndelete all of [-xy custom check point v]\n\nwhen I receive [turn page v]\nif <(-Difficulty) < [2]> then\n    set [for v] to [1]\n    repeat (3)\n        create clone of (_myself_ v)\n        change [for v] by (1)\n    end\nelse\n    if <(-Difficulty) = [2]> then\n        set [for v] to [2]\n        create clone of (_myself_ v)\n    end\nend\nset [x v] to [-999999]\nset [y v] to [-999999]\nset [for v] to [3]\ndelete all of [-xy custom check point v]\n\nwhen I receive [create v]\nif <(.clone?) = [0]> then\n    if <<(.Create TYPE) = [checkpoint]> or <(.Create TYPE) = [h]>> then\n        change [for v] by (1)\n        add (.Create X) to [-xy custom check point v]\n        add (.Create Y) to [-xy custom check point v]\n        create clone of (_myself_ v)\n    else\n        if <(.Create TYPE) = [clean]> then\n            set [for v] to [3]\n            delete all of [-xy custom check point v]\n        end\n    end\n    set [x v] to [-999999]\n    set [y v] to [-999999]\nend\n\nwhen I receive [delete v]\nif <touching (delete v)?> then\n    if <(for) > [3]> then\n        if <(-Check Point?) = (for)> then\n            set [-check point? v] to [0]\n        end\n        delete this clone\n    end\nend\n\nwhen I receive [delete for new v]\nif <(for) > [3]> then\n    if <(-Check Point?) = (for)> then\n        set [-check point? v] to [0]\n    end\n    delete all of [-xy custom check point v]\n    delete this clone\nend\n\nwhen I receive [reset game v]\nset [-check point? v] to [0]\ndelete all of [-xy custom check point v]\ndelete this clone\n\nwhen I receive [clean this v]\nif <<(for) > [3]> and <<(.Create TYPE) = [checkpoint]> or <(.Create TYPE) = [h]>>> then\n    if <(-Check Point?) = (for)> then\n        set [-check point? v] to [0]\n    end\n    delete all of [-xy custom check point v]\n    delete this clone\nend\n\n@Back\n\nwhen flag clicked\nset [.clone? v] to [0]\nhide\n\ndefine Position\ngo to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to ((100) * (ZOOM)) %\nif <<<<(-Help?) = [1]> or <(costume [number v]) > ((.Levels) * (20))>> or <<<<(costume [number v]) = [4]> or <(costume [number v]) = [7]>> and <(.Current Room) = [1]>> or <<<<(costume [number v]) = [22]> or <(costume [number v]) = [25]>> and <(.Current Room) = [2]>> or <<<(costume [number v]) = [78]> or <(costume [number v]) = [79]>> and <(.Current Room) = [4]>>>>> and <<not <<<(x) = [2880]> and <(y) = [0]>> and <(.Current Room) = [1]>>> and <<not <<<(x) = [0]> and <(y) = [720]>> and <(.Current Room) = [2]>>> and <not <<<(x) = [8640]> and <(y) = [0]>> and <(.Current Room) = [4]>>>>>> then\n    if <(.Current Room) = [1]> then\n        if <<(-Help?) = [0]> and <(costume [number v]) = [4]>> then\n            switch costume to (level 7 v)\n        else\n            if <<<(-Help?) = [1]> and <(costume [number v]) = [7]>> and <not <<(x) = [2880]> and <(y) = [0]>>>> then\n                switch costume to (level 4 v)\n            end\n        end\n    else\n        if <(.Current Room) = [2]> then\n            if <<(-Help?) = [0]> and <(costume [number v]) = [22]>> then\n                switch costume to (2 level 5 v)\n            else\n                if <<<(-Help?) = [1]> and <(costume [number v]) = [25]>> and <not <<(x) = [0]> and <(y) = [720]>>>> then\n                    switch costume to (2 level 2 v)\n                end\n            end\n        else\n            if <(.Current Room) = [4]> then\n                if <<(-Help?) = [0]> and <(costume [number v]) = [78]>> then\n                    switch costume to (4 level 19 v)\n                else\n                    if <<<(-Help?) = [1]> and <(costume [number v]) = [79]>> and <not <<(x) = [8640]> and <(y) = [0]>>>> then\n                        switch costume to (4 level 18 v)\n                    end\n                end\n            end\n        end\n    end\n    if <<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> then\n        show\n    else\n        hide\n    end\nelse\n    hide\nend\n\ndefine Create Clone (x) (y) (for)\nset [x v] to (x)\nset [y v] to (y)\nset [for v] to (for)\nif <(for) = [1]> then\n    next costume\nend\ncreate clone of (_myself_ v)\n\nwhen I receive [tick v]\nPosition\n\ndefine Quick (level)\nclear graphic effects\nif <(level) = [1]> then\n    switch costume to ((0) - ())\n    repeat (10)\n        change [h v] by (1)\n        Create Clone ((480) * (h)) [0] [1]\n    end\n    change [h v] by (1)\n    repeat (10)\n        change [h v] by (-1)\n        Create Clone ((480) * (h)) [360] [1]\n    end\nelse\n    if <(level) = [2]> then\n        switch costume to (level 20 v)\n        repeat (10)\n            change [h v] by (1)\n            Create Clone [0] ((360) * (h)) [1]\n            Create Clone [480] ((360) * (h)) [1]\n        end\n    else\n        if <(level) = [3]> then\n            switch costume to (2 level 20 v)\n            repeat (5)\n                change [h v] by (1)\n                Create Clone ((480) * (h)) [0] [1]\n            end\n            change [h v] by (1)\n            repeat (5)\n                change [h v] by (-1)\n                Create Clone ((480) * (h)) [360] [1]\n            end\n            change [h v] by (-1)\n            repeat (5)\n                change [h v] by (1)\n                Create Clone ((480) * (h)) [720] [1]\n            end\n            change [h v] by (1)\n            repeat (5)\n                change [h v] by (-1)\n                Create Clone ((480) * (h)) [1080] [1]\n            end\n        else\n            if <(level) = [4]> then\n                switch costume to (3 level 20 v)\n                repeat (20)\n                    change [h v] by (1)\n                    Create Clone ((480) * (h)) [0] [1]\n                end\n            else\n                if <(level) = [5]> then\n                    switch costume to (4 level 20 v)\n                    repeat (20)\n                        change [h v] by (1)\n                        Create Clone [0] ((360) * (h)) [1]\n                    end\n                else\n                    if <(level) = [6]> then\n                        switch costume to (5 level 20 v)\n                        repeat (10)\n                            change [h v] by (1)\n                            Create Clone ((480) * (h)) [0] [1]\n                        end\n                        change [h v] by (1)\n                        repeat (10)\n                            change [h v] by (-1)\n                            Create Clone ((480) * (h)) [360] [1]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nset [x v] to [-999999]\nset [y v] to [-999999]\nset [for v] to [1]\n\nwhen I receive [turn page v]\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [h v] to [-1]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nQuick [1]\n\nwhen I receive [next level v]\nif  then\n    delete this clone\nend\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [h v] to [-1]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nQuick (.Current Room)\n\nwhen I receive [create v]\nif <(.clone?) = [0]> then\n    clear graphic effects\n    if <<(.Create TYPE) = [false]> or <(.Create TYPE) = [f]>> then\n        switch costume to (join (join [ground] ((.Levels) + (1))) (join [_] (.Create FORM)))\n        switch costume to (join (join [ground] (.Current Room)) (join [_] (.Create FORM)))\n        Create Clone (.Create X) (.Create Y) [0]\n    else\n        if <(.Create TYPE) = [z]> then\n            Separate (.Create FORM) [3]\n            if <(.Custom Say) = [1]> then\n                Separate (.Create FORM) [1]\n                set [color v] effect to (.Custom Say)\n                Separate (.Create FORM) [2]\n                set [brightness v] effect to (.Custom Say)\n                Separate (.Create FORM) [4]\n                switch costume to (join [z] (.Custom Say))\n                Create Clone (.Create X) (.Create Y) [0]\n            end\n        end\n    end\n    set [x v] to [-999999]\n    set [y v] to [-999999]\nend\n\nwhen I start as a clone\nset [.clone? v] to [1]\n\nwhen I receive [delete for new v]\nif <(costume [number v]) > (((.Levels) - (1)) * (20))> then\n    delete this clone\nend\n\nwhen I receive [delete v]\nif <touching (delete v)?> then\n    if <(costume [number v]) > (((.Levels) - (1)) * (20))> then\n        delete this clone\n    end\nend\n\nwhen I receive [reset game v]\ndelete this clone\n\ndefine Separate (cs) (wp)\nset [-j v] to [0]\nrepeat (wp)\n    set [.custom say v] to []\n    change [-j v] by (1)\n    repeat until <(letter (-j) of (cs)) = [¬]>\n        set [.custom say v] to (join (.Custom Say) (letter (-j) of (cs)))\n        change [-j v] by (1)\n    end\nend\n\nwhen I receive [clean this v]\nif <<(costume [number v]) > (((.Levels) - (1)) * (20))> and <<(.Create TYPE) = [false]> or <<(.Create TYPE) = [f]> or <(.Create TYPE) = [z]>>>> then\n    delete this clone\nend\n\n@Items\n\nwhen I receive [turn page v]\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nset [collectable v] to [Collectables: 0]\nset [hmc v] to [0]\nCount []\nQuick [1]\n\nwhen I receive [tick v]\nif <(.clone?) = [1]> then\n    if <(costume [number v]) > [22]> then\n        if <(die?) = [1]> then\n            change [speed y v] by (-1)\n            Change NPC y by (speed y) [1]\n            Costume\n            if <(y) < [-180]> then\n                change [die? v] by (1)\n            end\n        else\n            if <(die?) = [0]> then\n                if <<([abs v] of (x position) ) < [230]> and <([abs v] of (y position) ) < [160]>> then\n                    switch costume to (hitbox v)\n                    change [speed y v] by (-1)\n                    Change NPC y by (speed y) [0]\n                    Costume\n                end\n                if <(y) < [-160]> then\n                    set [die? v] to [1]\n                end\n            else\n                change [die? v] by (1)\n                if <(die?) > [25]> then\n                    set [die? v] to [0]\n                    set [speed y v] to [0]\n                    set [x v] to (start x)\n                    set [y v] to (start y)\n                end\n            end\n        end\n    end\n    Position\nelse\n    hide\nend\n\ndefine Create Clone (x) (y) (type) (created) _ (command)\nset [x v] to (x)\nset [y v] to (y)\nset [created v] to (created)\nset [load ? v] to (load?)\nif <(type) > [8]> then\n    set [command v] to (command)\n    switch costume to ((type) + (11))\n    create clone of (_myself_ v)\nelse\n    if <(type) = [8]> then\n        change [key v] by (1)\n        add [0] to [key v]\n        switch costume to (key edge v)\n        create clone of (_myself_ v)\n        switch costume to (key v)\n        create clone of (_myself_ v)\n    else\n        if <(type) = [7]> then\n            change [portal v] by (1)\n            add [0] to [portal v]\n            switch costume to (portal3 v)\n            create clone of (_myself_ v)\n            switch costume to (portal3 edge v)\n            create clone of (_myself_ v)\n        else\n            if <(type) = [6]> then\n                if <(wait1) = [0]> then\n                    change [portal1 v] by (1)\n                    set [wait1 v] to [1]\n                else\n                    set [wait1 v] to [0]\n                end\n                change [portal v] by (1)\n                add [0] to [portal v]\n                switch costume to (locked portal v)\n                create clone of (_myself_ v)\n                switch costume to (locked portal edge v)\n                create clone of (_myself_ v)\n            else\n                if <(type) = [5]> then\n                    if <(wait2) = [0]> then\n                        change [portal2 v] by (1)\n                        set [wait2 v] to [1]\n                    else\n                        set [wait2 v] to [0]\n                    end\n                    change [portal v] by (1)\n                    add [0] to [portal v]\n                    switch costume to (portal2 v)\n                    create clone of (_myself_ v)\n                    switch costume to (portal2 edge v)\n                    create clone of (_myself_ v)\n                else\n                    if <(type) = [4]> then\n                        if <(wait1) = [0]> then\n                            change [portal1 v] by (1)\n                            set [wait1 v] to [1]\n                        else\n                            set [wait1 v] to [0]\n                        end\n                        change [portal v] by (1)\n                        add [0] to [portal v]\n                        switch costume to (portal v)\n                        create clone of (_myself_ v)\n                        switch costume to (portal edge v)\n                        create clone of (_myself_ v)\n                    else\n                        if <(type) = [3]> then\n                            change [dash v] by (1)\n                            add [0] to [dash v]\n                            switch costume to (dash edge v)\n                            create clone of (_myself_ v)\n                            switch costume to (dash v)\n                            create clone of (_myself_ v)\n                        else\n                            if <(type) = [2]> then\n                                change [jet v] by (1)\n                                add [0] to [jet packs v]\n                                switch costume to (jet pack edge v)\n                                create clone of (_myself_ v)\n                                switch costume to (jet pack v)\n                                create clone of (_myself_ v)\n                            else\n                                change [for v] by (1)\n                                change [coin v] by (1)\n                                add [0] to [coins v]\n                                if <<(item (for) of [collectable v]) = [0]> or <(item (for) of [collectable v]) = []>> then\n                                    if <(item (for) of [collectable v]) = []> then\n                                        add [0] to [collectable v]\n                                    end\n                                    switch costume to (collectable edge v)\n                                    create clone of (_myself_ v)\n                                    switch costume to (collectable v)\n                                    create clone of (_myself_ v)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    if <<(costume [number v]) < [5]> or <<(costume [number v]) = [6]> or <<(costume [number v]) = [8]> or <<<(costume [number v]) > [9]> and <(costume [number v]) < [19]>> or <<(costume [number v]) = [19]> or <(costume [number v]) > [20]>>>>>> then\n        set [ghost v] effect to (0)\n    else\n        if <(costume [number v]) = [21]> then\n            if <(-Open Chat?) = [3]> then\n                set [ghost v] effect to (20)\n            else\n                set [ghost v] effect to (100)\n            end\n        else\n            set [ghost v] effect to (50)\n        end\n    end\n    if <(costume [number v]) < [6]> then\n        if <(item (for) of [collectable v]) = [1]> then\n            delete this clone\n        end\n    else\n        if <<(costume [number v]) = [12]> or <(costume [number v]) = [14]>> then\n            if <(for this?) = [0]> then\n                set [brightness v] effect to ((-50) + (<(costume [number v]) = [14]> * (10)))\n            else\n                set [brightness v] effect to (0)\n            end\n        else\n            if <<(.Already Jet Pack?) = [1]> and <(costume [number v]) = [6]>> then\n                set [brightness v] effect to (-75)\n            else\n                if <(costume [number v]) = [8]> then\n                    change [dash effect v] by (((0) - (dash effect)) / (5))\n                    set [brightness v] effect to (dash effect)\n                else\n                    set [brightness v] effect to (0)\n                end\n            end\n        end\n        if <<(costume [number v]) = [6]> or <(costume [number v]) = [7]>> then\n            if <(item (jet) of [jet packs v]) = [D]> then\n                delete this clone\n            end\n        else\n            if <<(costume [number v]) = [8]> or <(costume [number v]) = [9]>> then\n                if <(item (dash) of [dash v]) = [D]> then\n                    delete this clone\n                end\n            else\n                if <<(costume [number v]) > [9]> and <(costume [number v]) < [19]>> then\n                    if <(item (portal) of [portal v]) = [D]> then\n                        delete this clone\n                    end\n                else\n                    if <<(costume [number v]) = [19]> or <(costume [number v]) = [20]>> then\n                        if <(item (key) of [key v]) = [D]> then\n                            delete this clone\n                        end\n                        if <(item (key) of [key v]) = [C]> then\n                            if <(costume [number v]) = [19]> then\n                                change [x v] by ((([x v] of [player v]) - (x)) / ((5) * (key id)))\n                                change [y v] by ((([y v] of [player v]) - (y)) / ((5) * (key id)))\n                                if <(keyed? :VVV) = [0]> then\n                                    set [key id v] to (key?)\n                                    set [keyed? :vvv v] to [1]\n                                end\n                            else\n                                delete this clone\n                            end\n                        end\n                    else\n                        if <(costume [number v]) > [20]> then\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\nset [.clone? v] to [0]\nset [load? v] to [0]\nhide\n\nwhen I receive [next level v]\nif  then\n    If in\n    delete this clone\nend\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nQuick (.Current Room)\n\ndefine Position\ngo to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to (((100) + ((<(costume [number v]) = [8]> * (([sin v] of (speed y) ) * (5))) + ((20) * <<(costume [number v]) > [9]> and <(costume [number v]) < [19]>>))) * (ZOOM)) %\nif <<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> then\n    show\n    set [showing? v] to [1]\n    if <(costume [number v]) = [5]> then\n        if <(.Current Room) < ((.Levels) + (2))> then\n            if <<(.Touching One?) = [1]> and <touching (player v)?>> then\n                start sound [Coin v]\n                replace item (for) of [collectable v] with [1]\n                Count []\n            end\n        end\n    end\n    if <(costume [number v]) = [7]> then\n        if <<(.Touching One?) = [1]> and <touching (player v)?>> then\n            broadcast (Jet Pack v)\n        end\n    end\n    if <(costume [number v]) = [9]> then\n        if <<(.Touching One?) = [1]> and <touching (player v)?>> then\n            if <(touching?) = [0]> then\n                set [touching? v] to [1]\n                replace item (dash) of [dash v] with [1]\n                broadcast (Dash! v)\n            end\n        else\n            set [touching? v] to [0]\n        end\n    end\n    if <<(costume [number v]) = [10]> or <<(costume [number v]) = [12]> or <<(costume [number v]) = [14]> or <<(costume [number v]) = [16]> or <(costume [number v]) = [17]>>>>> then\n        if <<(.Touching One?) = [1]> and <touching (player v)?>> then\n            if <(touching?) = [0]> then\n                if <(for this?) = [1]> then\n                    set [touching? v] to [1]\n                    if <(tping?) = [0]> then\n                        if <(time to portal) < [1]> then\n                            if <(costume [number v]) = [14]> then\n                                if <(key?) > [0]> then\n                                    change [key? v] by (-1)\n                                    broadcast (use key v)\n                                else\n                                    stop [this script v]\n                                end\n                            end\n                            if <(costume [number v]) = [17]> then\n                                set [find portal v] to (portal)\n                                set [find portal type v] to [3]\n                            else\n                                if <<<(costume [number v]) = [10]> or <(costume [number v]) = [14]>> or <(costume [number v]) = [16]>> then\n                                    set [find portal v] to (portal1)\n                                    set [find portal type v] to [1]\n                                else\n                                    set [find portal v] to (portal2)\n                                    set [find portal type v] to [2]\n                                end\n                            end\n                            set [find but not this v] to (portal)\n                            set [tp portal x v] to (x)\n                            set [tp portal y v] to (y)\n                            broadcast (Go Find Portal v)\n                        end\n                    end\n                end\n            end\n        else\n            set [touching? v] to [0]\n        end\n    end\n    if <(costume [number v]) = [20]> then\n        if <<(.Touching One?) = [1]> and <touching (player v)?>> then\n            start sound [Collect v]\n            replace item (key) of [key v] with [C]\n            change [key? v] by (1)\n            add [22] to [new achievments v]\n            Count [1]\n            if <(-j) > [3]> then\n                add [23] to [new achievments v]\n            end\n            delete this clone\n        end\n    end\n    if <(costume [number v]) > [20]> then\n        if <<<<(.Touching One?) = [1]> and <touching (player v)?>> and <(costume [number v]) < [23]>> or <<<([abs v] of ((x) - (item (3) of [player v])) ) < [40]> and <([abs v] of ((y) - (item (4) of [player v])) ) < [40]>> and <(costume [number v]) > [22]>>> then\n            change [frame v] by (0.075)\n            if <(touching?) = [0]> then\n                Separate (command) [1]\n                If NPC delete <> from (.Custom Say)\n                say (.Custom Say)\n                set [touching? v] to [1]\n            end\n        else\n            set [touching? v] to [0]\n            set [frame v] to [0]\n            if <<touching (mouse-pointer v)?> and <(-Open Chat?) = [3]>> then\n                Separate (command) [1]\n                think (.Custom Say)\n            else\n                think []\n            end\n        end\n    end\nelse\n    hide\n    set [showing? v] to [0]\nend\n\ndefine Quick (level)\nif <(level) = [<>]> then\n    delete all of [collectable v]\n    repeat ((.Levels) * (10))\n        add [0] to [collectable v]\n    end\nelse\n    if <(.Current Room) > (.Levels)> then\n        set [for v] to (length of [collectable v])\n    else\n        set [for v] to (((level) - (1)) * (10))\n    end\n    set [time to portal v] to [0]\n    set [coin v] to [0]\n    set [jet v] to [0]\n    set [dash v] to [0]\n    set [portal v] to [0]\n    set [portal1 v] to [0]\n    set [portal2 v] to [0]\n    set [wait1 v] to [0]\n    set [wait2 v] to [0]\n    set [key v] to [0]\n    set [key? v] to [0]\n    delete all of [coins v]\n    delete all of [jet packs v]\n    delete all of [dash v]\n    delete all of [portal v]\n    delete all of [key v]\n    if <(level) = [1]> then\n        Create Clone [-200] [70] [] [] _ []\n        Create Clone [565] [-50] [] [] _ []\n        Create Clone [940] [200] [] [] _ []\n        Create Clone [1620] [-50] [] [] _ []\n        Create Clone [2230] [270] [] [] _ []\n        Create Clone [2997] [-135] [] [] _ []\n        Create Clone [4545] [450] [] [] _ []\n        Create Clone [3660] [725] [] [] _ []\n        Create Clone [1680] [410] [] [] _ []\n        Create Clone [280] [470] [] [] _ []\n    else\n        if <(level) = [2]> then\n            Create Clone [465] [40] [] [] _ []\n            Create Clone [-167] [270] [] [] _ []\n            Create Clone [72] [1230] [] [] _ []\n            Create Clone [215] [830] [] [] _ []\n            Create Clone [677] [1500] [] [] _ []\n            Create Clone [185] [1930] [] [] _ []\n            Create Clone [705] [1985] [] [] _ []\n            Create Clone [-230] [2480] [] [] _ []\n            Create Clone [520] [2850] [] [] _ []\n            Create Clone [-225] [3300] [] [] _ []\n        else\n            if <(level) = [3]> then\n                Create Clone [-100] [520] [] [] _ []\n                Create Clone [105] [1040] [] [] _ []\n                Create Clone [615] [375] [] [] _ []\n                Create Clone [1165] [-50] [] [] _ []\n                Create Clone [1350] [350] [] [] _ []\n                Create Clone [1430] [725] [] [] _ []\n                Create Clone [1702] [-95] [] [] _ []\n                Create Clone [1850] [880] [] [] _ []\n                Create Clone [435] [1175] [] [] _ []\n                Create Clone [-225] [1100] [] [] _ []\n                Create Clone [375] [-40] [2] [] _ []\n                Create Clone [2020] [1075] [2] [] _ []\n                Create Clone [45] [1150] [2] [] _ []\n            else\n                if <(level) = [4]> then\n                    Create Clone [485] [235] [] [] _ []\n                    Create Clone [1165] [60] [] [] _ []\n                    Create Clone [2520] [-70] [] [] _ []\n                    Create Clone [2220] [310] [] [] _ []\n                    Create Clone [3210] [350] [] [] _ []\n                    Create Clone [4100] [170] [] [] _ []\n                    Create Clone [4302] [-55] [] [] _ []\n                    Create Clone [4772] [-100] [] [] _ []\n                    Create Clone [6610] [45] [] [] _ []\n                    Create Clone [8340] [-50] [] [] _ []\n                    Create Clone [920] [125] [3] [] _ []\n                    Create Clone [1650] [-50] [3] [] _ []\n                    Create Clone [2070] [50] [3] [] _ []\n                    Create Clone [2740] [-95] [3] [] _ []\n                    Create Clone [3090] [20] [3] [] _ []\n                    Create Clone [2780] [140] [3] [] _ []\n                    Create Clone [3470] [-20] [2] [] _ []\n                    Create Clone [3780] [-30] [3] [] _ []\n                    Create Clone [4780] [100] [3] [] _ []\n                    Create Clone [6150] [70] [3] [] _ []\n                    Create Clone [6950] [140] [3] [] _ []\n                    Create Clone [8888] [170] [3] [] _ []\n                else\n                    if <(level) = [5]> then\n                        Create Clone [150] [7155] [] [] _ []\n                        Create Clone [120] [6225] [] [] _ []\n                        Create Clone [50] [5290] [] [] _ []\n                        Create Clone [85] [5220] [] [] _ []\n                        Create Clone [100] [4350] [] [] _ []\n                        Create Clone [-220] [4343] [] [] _ []\n                        Create Clone [85] [3830] [] [] _ []\n                        Create Clone [-150] [7165] [] [] _ []\n                        Create Clone [20] [1055] [] [] _ []\n                        Create Clone [-150] [2450] [] [] _ []\n                        Create Clone [0] [6740] [3] [] _ []\n                        Create Clone [-120] [5940] [3] [] _ []\n                        Create Clone [-200] [5800] [4] [] _ []\n                        Create Clone [135] [5510] [4] [] _ []\n                        Create Clone [135] [5055] [5] [] _ []\n                        Create Clone [-35] [4920] [5] [] _ []\n                        Create Clone [-150] [4450] [2] [] _ []\n                        Create Clone [-35] [4825] [5] [] _ []\n                        Create Clone [-125] [4300] [5] [] _ []\n                        Create Clone [75] [4040] [3] [] _ []\n                        Create Clone [90] [3580] [3] [] _ []\n                        Create Clone [135] [3340] [4] [] _ []\n                        Create Clone [30] [-70] [4] [] _ []\n                        Create Clone [185] [400] [4] [] _ []\n                        Create Clone [-195] [7180] [4] [] _ []\n                        Create Clone [-135] [1405] [5] [] _ []\n                        Create Clone [180] [970] [5] [] _ []\n                        Create Clone [140] [1375] [2] [] _ []\n                        Create Clone [200] [2905] [3] [] _ []\n                        Create Clone [210] [3145] [4] [] _ []\n                        Create Clone [185] [100] [4] [] _ []\n                    else\n                        if <(level) = [6]> then\n                            Create Clone [170] [62] [] [] _ []\n                            Create Clone [765] [80] [] [] _ []\n                            Create Clone [945] [370] [] [] _ []\n                            Create Clone [-210] [490] [] [] _ []\n                            Create Clone [3255] [160] [] [] _ []\n                            Create Clone [4337] [60] [] [] _ []\n                            Create Clone [4325] [350] [] [] _ []\n                            Create Clone [3050] [245] [] [] _ []\n                            Create Clone [3507] [485] [] [] _ []\n                            Create Clone [-200] [625] [] [] _ []\n                            Create Clone [1752] [-50] [4] [] _ []\n                            Create Clone [-200] [-70] [4] [] _ []\n                            Create Clone [1015] [125] [3] [] _ []\n                            Create Clone [1570] [110] [8] [] _ []\n                            Create Clone [1500] [130] [7] [] _ []\n                            Create Clone [1752] [95] [4] [] _ []\n                            Create Clone [1630] [250] [4] [] _ []\n                            Create Clone [1540] [300] [2] [] _ []\n                            Create Clone [-210] [230] [8] [] _ []\n                            Create Clone [-210] [300] [7] [] _ []\n                            Create Clone [2090] [-50] [4] [] _ []\n                            Create Clone [2230] [-70] [4] [] _ []\n                            Create Clone [2365] [-85] [3] [] _ []\n                            Create Clone [3585] [35] [3] [] _ []\n                            Create Clone [4525] [130] [8] [] _ []\n                            Create Clone [4475] [130] [7] [] _ []\n                            Create Clone [2090] [95] [4] [] _ []\n                            Create Clone [4520] [250] [4] [] _ []\n                            Create Clone [2670] [315] [5] [] _ []\n                            Create Clone [2200] [245] [5] [] _ []\n                            Create Clone [2575] [420] [8] [] _ []\n                            Create Clone [2485] [417] [7] [] _ []\n                            Create Clone [1920] [145] [6] [] _ []\n                            Create Clone [1740] [245] [6] [] _ []\n                            Create Clone [1800] [245] [6] [] _ []\n                            Create Clone [1890] [245] [6] [] _ []\n                            Create Clone [1950] [245] [6] [] _ []\n                            Create Clone [2040] [245] [6] [] _ []\n                            Create Clone [2100] [245] [6] [] _ []\n                            Create Clone [1740] [385] [6] [] _ []\n                        end\n                    end\n                end\n            end\n        end\n    end\n    set [x v] to [-999999]\n    set [y v] to [-999999]\n    set [for v] to (length of [collectable v])\nend\n\nwhen I start as a clone\nset [speed y v] to [0]\nset [dash effect v] to [0]\nset [touching? v] to [0]\nset [for this? v] to [1]\nset [.clone? v] to [1]\nset [keyed? :vvv v] to [0]\nset [turn v] to [-100]\nset [frame v] to [0]\nset [start x v] to (x)\nset [start y v] to (y)\nset [die? v] to [0]\npoint in direction (90)\nforever\n    if <(costume [number v]) < [5]> then\n        repeat (3)\n            wait (0.1) seconds\n            next costume\n        end\n        repeat (3)\n            wait (0.1) seconds\n            switch costume to ((costume [number v]) - (1))\n        end\n    else\n        if <(costume [number v]) = [6]> then\n            change [speed y v] by (20)\n            change [y v] by (([sin v] of (speed y) ) * (0.3))\n        else\n            if <(costume [number v]) = [8]> then\n                change [speed y v] by (20)\n            else\n                if <<(costume [number v]) = [10]> or <<(costume [number v]) = [12]> or <<(costume [number v]) = [14]> or <<(costume [number v]) = [16]> or <(costume [number v]) = [17]>>>>> then\n                    set [fisheye v] effect to (([sin v] of ((timer) * (200)) ) * (20))\n                    if <<(-Open Chat?) = [3]> and <touching (mouse-pointer v)?>> then\n                        if <<(costume [number v]) = [10]> or <<(costume [number v]) = [14]> or <(costume [number v]) = [16]>>> then\n                            think (portal1)\n                        else\n                            think (portal2)\n                        end\n                    else\n                        think []\n                    end\n                else\n                    if <(costume [number v]) = [19]> then\n                        change [turn v] by (4)\n                        turn right (([sin v] of (turn) ) / (2)) degrees\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine Count (key?)\nif <(key?) = [1]> then\n    set [-i v] to [1]\n    set [-j v] to [0]\n    repeat (length of [key v])\n        if <(item (-i) of [key v]) = [C]> then\n            change [-j v] by (1)\n        end\n        change [-i v] by (1)\n    end\nelse\n    set [-i v] to [1]\n    set [collectable v] to [0]\n    set [hmc v] to [0]\n    repeat (length of [collectable v])\n        if <(item (-i) of [collectable v]) = [1]> then\n            change [collectable v] by (1)\n            change [hmc v] by (1)\n        end\n        change [-i v] by (1)\n    end\n    set [collectable v] to (join [Collectables: ] (Collectable))\n    if <(HMC) > [0]> then\n        add [13] to [new achievments v]\n        if <(HMC) > [9]> then\n            add [14] to [new achievments v]\n            if <(HMC) > ((((.Levels) - (1)) * (10)) - (1))> then\n                add [15] to [new achievments v]\n            end\n        end\n    end\nend\n\nwhen I receive [dash! v]\nif <<(costume [number v]) = [8]> or <(costume [number v]) = [9]>> then\n    if <(item (dash) of [dash v]) = [1]> then\n        if <(costume [number v]) = [8]> then\n            set [dash effect v] to [200]\n        else\n            replace item (dash) of [dash v] with [0]\n        end\n    end\nend\n\nwhen I receive [create v]\nif <(.clone?) = [0]> then\n    if <<(.Create TYPE) = [coin]> or <(.Create TYPE) = [c]>> then\n        Create Clone (.Create X) (.Create Y) [] [1] _ []\n    else\n        if <<(.Create TYPE) = [jet]> or <(.Create TYPE) = [j]>> then\n            Create Clone (.Create X) (.Create Y) [2] [1] _ []\n        else\n            if <<(.Create TYPE) = [dash]> or <(.Create TYPE) = [d]>> then\n                Create Clone (.Create X) (.Create Y) [3] [1] _ []\n            else\n                if <<(.Create TYPE) = [portal]> or <(.Create TYPE) = [p]>> then\n                    if <(.Create FORM) = [1]> then\n                        Create Clone (.Create X) (.Create Y) [4] [1] _ []\n                    else\n                        if <(.Create FORM) = [2]> then\n                            Create Clone (.Create X) (.Create Y) [5] [1] _ []\n                        else\n                            if <(.Create FORM) = [3]> then\n                                Create Clone (.Create X) (.Create Y) [6] [1] _ []\n                            else\n                                Create Clone (.Create X) (.Create Y) [7] [1] _ []\n                            end\n                        end\n                    end\n                else\n                    if <<(.Create TYPE) = [key]> or <(.Create TYPE) = [k]>> then\n                        Create Clone (.Create X) (.Create Y) [8] [1] _ []\n                    else\n                        if <<(.Create TYPE) = [command_block]> or <(letter (1) of (.Create TYPE)) = [y]>> then\n                            Create Clone (.Create X) (.Create Y) ((9) + (letter (2) of (.Create TYPE))) [1] _ (.Create FORM)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    set [x v] to [-999999]\n    set [y v] to [-999999]\nend\n\nwhen I receive [coins v]\nif <(.clone?) = [0]> then\n    Count []\nend\n\nwhen I receive [delete v]\nif <touching (delete v)?> then\n    if <(Created) = [1]> then\n        if <<(costume [number v]) = [6]> or <(costume [number v]) = [7]>> then\n            replace item (jet) of [jet packs v] with [D]\n        else\n            if <<(costume [number v]) = [8]> or <(costume [number v]) = [9]>> then\n                replace item (dash) of [dash v] with [D]\n            else\n                if <<(costume [number v]) > [9]> and <(costume [number v]) < [19]>> then\n                    replace item (portal) of [portal v] with [D]\n                    If in\n                else\n                    if <<(costume [number v]) = [19]> or <(costume [number v]) = [20]>> then\n                        replace item (key) of [key v] with [D]\n                    else\n                        if <(costume [number v]) > [20]> then\n                    end\n                end\n            end\n        end\n        delete this clone\n    end\nend\n\nwhen I receive [delete for new v]\nif <(Created) = [1]> then\n    if <<(costume [number v]) = [6]> or <(costume [number v]) = [7]>> then\n        replace item (jet) of [jet packs v] with [D]\n    else\n        if <<(costume [number v]) = [8]> or <(costume [number v]) = [9]>> then\n            replace item (dash) of [dash v] with [D]\n        else\n            if <<(costume [number v]) > [9]> and <(costume [number v]) < [19]>> then\n                replace item (portal) of [portal v] with [D]\n                If in\n            else\n                if <<(costume [number v]) = [19]> or <(costume [number v]) = [20]>> then\n                    replace item (key) of [key v] with [D]\n                else\n                    if <(costume [number v]) > [20]> then\n                end\n            end\n        end\n    end\n    delete this clone\nend\nif <(.clone?) = [0]> then\n    if <(.Current Room) = [5]> then\n        set [portal1 v] to [4]\n        set [portal2 v] to [3]\n    else\n        if <(.Current Room) = [6]> then\n            set [portal1 v] to [8]\n            set [portal2 v] to [1]\n        else\n            set [portal1 v] to [0]\n            set [portal2 v] to [0]\n        end\n    end\n    set [wait1 v] to [0]\n    set [wait2 v] to [0]\nend\n\nwhen I receive [reset game v]\nIf in\ndelete this clone\n\nwhen I receive [go find portal v]\nif <(.clone?) = [1]> then\n    if <<(costume [number v]) > [9]> and <(costume [number v]) < [19]>> then\n        if <<not <(costume [number v]) = [11]>> and <<not <(costume [number v]) = [13]>> and <<not <(costume [number v]) = [15]>> and <not <(costume [number v]) = [18]>>>>> then\n            if <(costume [number v]) = [17]> then\n                if <<(portal) = (find portal)> and <(find portal type) = [3]>> then\n                    broadcast (Prepare to tp portal v) and wait\n                    set [time to portal v] to [10]\n                    broadcast (tp portal v) and wait\n                end\n            else\n                if <not <(portal) = (find but not this)>> then\n                    if <<<(costume [number v]) = [10]> or <(costume [number v]) = [14]>> or <(costume [number v]) = [16]>> then\n                        if <<(portal1) = (find portal)> and <(find portal type) = [1]>> then\n                            if <(costume [number v]) = [14]> then\n                                switch costume to (unlocked portal v)\n                            end\n                            broadcast (Prepare to tp portal v) and wait\n                            set [tp portal x v] to (x)\n                            set [tp portal y v] to (y)\n                            set [time to portal v] to [10]\n                            broadcast (tp portal v) and wait\n                        end\n                    else\n                        if <<(portal2) = (find portal)> and <(find portal type) = [2]>> then\n                            broadcast (Prepare to tp portal v) and wait\n                            set [tp portal x v] to (x)\n                            set [tp portal y v] to (y)\n                            set [time to portal v] to [10]\n                            broadcast (tp portal v) and wait\n                        end\n                    end\n                else\n                    if <<(portal1) = (find portal)> and <(find portal type) = [1]>> then\n                        if <(costume [number v]) = [14]> then\n                            switch costume to (unlocked portal v)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [tp portal v]\nif <(.clone?) = [1]> then\n    if <<(costume [number v]) > [11]> and <(costume [number v]) < [14]>> then\n        if <<(portal2) = (find portal)> and <(find portal type) = [2]>> then\n            set [for this? v] to [0]\n        end\n    end\nend\n\nwhen I receive [rst portals v]\nset [for this? v] to [1]\n\ndefine If in\nif <(tping?) = [1]> then\n    if <<(costume [number v]) > [9]> and <(costume [number v]) < [19]>> then\n        if <<not <(costume [number v]) = [11]>> and <<not <(costume [number v]) = [13]>> and <<not <(costume [number v]) = [15]>> and <not <(costume [number v]) = [16]>>>>> then\n            if <<(costume [number v]) = [17]> and <(find portal type) = [3]>> then\n                if <(portal) = (find portal)> then\n                    set [time to portal v] to [10]\n                    broadcast (tp portal v) and wait\n                end\n            else\n                if <not <(portal) = (find but not this)>> then\n                    if <<<(costume [number v]) = [10]> or <(costume [number v]) = [14]>> or <(costume [number v]) = [16]>> then\n                        if <<(portal1) = (find portal)> and <(find portal type) = [1]>> then\n                            if <(costume [number v]) = [14]> then\n                                switch costume to (unlocked portal v)\n                            end\n                            set [tp portal x v] to (x)\n                            set [tp portal y v] to (y)\n                            set [time to portal v] to [10]\n                            broadcast (tp portal v) and wait\n                        end\n                    else\n                        if <<(portal2) = (find portal)> and <(find portal type) = [2]>> then\n                            set [tp portal x v] to (x)\n                            set [tp portal y v] to (y)\n                            set [time to portal v] to [10]\n                            broadcast (tp portal v) and wait\n                        end\n                    end\n                else\n                    if <<(portal1) = (find portal)> and <(find portal type) = [1]>> then\n                        if <(costume [number v]) = [14]> then\n                            switch costume to (unlocked portal v)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [use key v]\nif <(.clone?) = [1]> then\n    if <<(costume [number v]) = [19]> or <(costume [number v]) = [20]>> then\n        if <(key id) = [1]> then\n            start sound [Collect v]\n            replace item (key) of [key v] with [D]\n            delete this clone\n        end\n        set [key id v] to ((key id) - (1))\n    end\nend\n\ndefine What C (text) (1/2)\nset [-i v] to [1]\nset [-word v] to []\nrepeat until <<(letter (-i) of (text)) = [¬]> or <(-i) > (length of (text))>>\n    set [-word v] to (join (-word) (letter (-i) of (text)))\n    change [-i v] by (1)\nend\nif <(1/2) > [1]> then\n    repeat ((1/2) - (1))\n        change [-i v] by (1)\n        set [-word v] to []\n        repeat until <<(letter (-i) of (text)) = [¬]> or <(-i) > (length of (text))>>\n            if <<(letter (-i) of (text)) = [_]> and <(1/2) = [3]>> then\n                set [-word v] to (join (-word) [¬])\n            else\n                set [-word v] to (join (-word) (letter (-i) of (text)))\n            end\n            change [-i v] by (1)\n        end\n    end\nend\n\ndefine Separate (cs) (s)\nset [.custom say v] to []\nset [-j v] to (s)\nrepeat (length of (cs))\n    if <(letter (-j) of (cs)) = [¬]> then\n        set [.custom say v] to (join (.Custom Say) [ ])\n    else\n        set [.custom say v] to (join (.Custom Say) (letter (-j) of (cs)))\n    end\n    change [-j v] by (1)\nend\n\ndefine Fix (text)\nset [-i v] to [1]\nset [-fixed v] to []\nrepeat (length of (text))\n    if <(letter (-i) of (text)) = [ ]> then\n        set [-fixed v] to (join (-fixed) [⃝])\n    else\n        set [-fixed v] to (join (-fixed) (letter (-i) of (text)))\n    end\n    change [-i v] by (1)\nend\nset [-fixed v] to (join (-fixed) [⃝])\n\ndefine Players\ndelete all of [players online v]\nset [-i v] to [1]\nrepeat (8)\n    if <<(item (-i) of [.check active v]) = [1]> or <(-i) = (.Player Slot)>> then\n        if <(.is Debugger?) = [1]> then\n            add (join (join (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [ \(]) (join (item ((((-i) - (1)) * (-Max Objects)) + (5)) of [.cloud list v]) [\)])) to [players online v]\n        else\n            add (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) to [players online v]\n        end\n        add [&] to [players online v]\n    end\n    change [-i v] by (1)\nend\ndelete (length of [players online v]) of [players online v]\n\ndefine Change NPC y by (speed y) (die?)\nchange [y v] by (speed y)\nchange [falling? v] by (1)\nPosition\nif <(die?) = [0]> then\n    repeat until <not <touching (ground v)?>>\n        if <(speed y) > [0]> then\n            change [y v] by (-1)\n        else\n            change [y v] by (1)\n            set [falling? v] to [0]\n        end\n        Position\n        set [speed y v] to [0]\n    end\nend\n\ndefine Costume\nif <(die?) = [1]> then\n    switch costume to (npcf v)\nelse\n    if <touching (bounce v)?> then\n        set [speed y v] to [12]\n    end\n    if <touching (lava v)?> then\n        set [speed y v] to [8]\n        set [die? v] to [1]\n    end\n    if <(falling?) > [0]> then\n        if <(speed y) < [0]> then\n            switch costume to (npcf v)\n        else\n            switch costume to (npcj v)\n        end\n    else\n        if <(frame) > [0]> then\n            switch costume to (join [NPCt] (((round (frame)) mod (3)) + (1)))\n            set [brightness v] effect to (0)\n            if <(falling?) = [0]> then\n                if < (command) contains [super]?> then\n                    if <((round (frame)) mod (25)) > [7]> then\n                        if <(falling?) = [0]> then\n                            switch costume to (npcc v)\n                            if <((round (frame)) mod (25)) = [18]> then\n                                set [speed y v] to [10]\n                            else\n                                if <((round (frame)) mod (25)) > [14]> then\n                                    set [brightness v] effect to ((45) + (([sin v] of ((timer) * (2000)) ) * (5)))\n                                end\n                            end\n                        end\n                    end\n                else\n                    if < (command) contains [jump]?> then\n                        if <((round (frame)) mod (15)) = [0]> then\n                            set [speed y v] to [7]\n                        end\n                    end\n                    if < (command) contains [crouch]?> then\n                        if <((round (frame)) mod (12)) > [7]> then\n                            switch costume to (npcc v)\n                        end\n                    end\n                end\n            end\n        else\n            switch costume to (npc v)\n        end\n    end\nend\n\nwhen I receive [clean this v]\nif <(Created) = [1]> then\n    if <<<(costume [number v]) = [6]> or <(costume [number v]) = [7]>> and <<(.Create TYPE) = [jet]> or <(.Create TYPE) = [j]>>> then\n        replace item (jet) of [jet packs v] with [D]\n        delete this clone\n    else\n        if <<<(costume [number v]) = [8]> or <(costume [number v]) = [9]>> and <<(.Create TYPE) = [dash]> or <(.Create TYPE) = [d]>>> then\n            replace item (dash) of [dash v] with [D]\n            delete this clone\n        else\n            if <<<(costume [number v]) > [9]> and <(costume [number v]) < [19]>> and <<(.Create TYPE) = [portal]> or <(.Create TYPE) = [p]>>> then\n                replace item (portal) of [portal v] with [D]\n                If in\n                delete this clone\n            else\n                if <<<(costume [number v]) = [19]> or <(costume [number v]) = [20]>> and <<(.Create TYPE) = [key]> or <(.Create TYPE) = [k]>>> then\n                    replace item (key) of [key v] with [D]\n                    delete this clone\n                else\n                    if <<(costume [number v]) = [21]> and <<(.Create TYPE) = [command_block]> or <(.Create TYPE) = [y]>>> then\n                        delete this clone\n                    else\n                        if <<(costume [number v]) = [22]> and <<(.Create TYPE) = [sign]> or <(.Create TYPE) = [s]>>> then\n                            delete this clone\n                        else\n                            if <<(costume [number v]) > [22]> and <<(.Create TYPE) = [npc]> or <(.Create TYPE) = [n]>>> then\n                                delete this clone\n                            else\n                                if <<(costume [number v]) < [6]> and <<(.Create TYPE) = [coin]> or <(.Create TYPE) = [c]>>> then\n                                    replace item (coin) of [coins v] with [D]\n                                    delete this clone\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nif <(.clone?) = [0]> then\n    if <(.Current Room) = [5]> then\n        set [portal1 v] to [4]\n        set [portal2 v] to [3]\n    else\n        if <(.Current Room) = [6]> then\n            set [portal1 v] to [8]\n            set [portal2 v] to [1]\n        else\n            set [portal1 v] to [0]\n            set [portal2 v] to [0]\n        end\n    end\n    set [wait1 v] to [0]\n    set [wait2 v] to [0]\nend\n\nwhen I receive [reset coins v]\nif <(Created) = [0]> then\n    delete this clone\nend\nif <(.clone?) = [0]> then\n    Quick [<>]\n    Count []\n    wait (0.1) seconds\n    Quick (.Current Room)\nend\n\nwhen [v v] key pressed\nif <(.is Debugger?) = [1]> then\n    Quick [<>]\n    Count []\nend\n\ndefine If NPC delete <> from (text)\nif <(costume [number v]) > [22]> then\n    set [.custom say v] to []\n    set [-word v] to []\n    set [-j v] to [1]\n    repeat (length of (text))\n        if <(letter (-j) of (text)) = [ ]> then\n            if <not <<(letter (1) of (-word)) = [<]> and <(letter (length of (-word)) of (-word)) = [>]>>> then\n                set [.custom say v] to (join (.Custom Say) (join (-word) [ ]))\n            end\n            set [-word v] to []\n        else\n            set [-word v] to (join (-word) (letter (-j) of (text)))\n        end\n        change [-j v] by (1)\n    end\nend\n\nwhen I receive [rg v]\nif <(.clone?) = [0]> then\n    broadcast (Reset Game v) and wait\n    broadcast (Next Level v)\nend\n\n@Create\n\nwhen flag clicked\nhide\n\nwhen I receive [create section v]\nif <(costume [number v]) > [17]> then\n    set [-open chat? v] to [3]\n    wait until <(-Open Chat?) < [3]>\n    if <(-Open Chat?) > [0]> then\n        set [.creator type v] to [0]\n    end\nend\n\ndefine Create Clones\nset [.creator form v] to [1]\nset [.creator type v] to [0]\nset [-open chat? v] to [0]\nset [.grid? v] to [0]\nswitch costume to (form1 v)\ngo to [front v] layer\nrepeat (20)\n    if <(costume [number v]) < [5]> then\n        set y to ((90) - ((costume [number v]) * (50)))\n    end\n    create clone of (_myself_ v)\n    next costume\nend\n\nwhen I start as a clone\nif <(costume [number v]) > [19]> then\n    go [backward v] (19) layers\nend\nforever\n    if <(-Open Chat?) = [3]> then\n        if <<(costume [number v]) > [19]> and <(costume [number v]) < [56]>> then\n            if <(.Grid?) = [0]> then\n                go to x: ((round ((mouse x) * (10))) / (10)) y: ((round ((mouse y) * (10))) / (10))\n            else\n                go to x: ((round (((((round ((((mouse x) / (ZOOM)) + (SCROLL X)) * (0.05))) * (20)) - (SCROLL X)) * (ZOOM)) * (10))) / (10)) y: ((round (((((round ((((mouse y) / (ZOOM)) + (SCROLL Y)) * (0.05))) * (20)) - (SCROLL Y)) * (ZOOM)) * (10))) / (10))\n            end\n            set [ghost v] effect to (30)\n            show\n            if <<<<(.Creator TYPE) = [x]> or <<(.Creator TYPE) = [j]> or <(.Creator TYPE) = [d]>>> or <(.Creator TYPE) = [c]>> or <<(.Creator TYPE) = [h]> or <<(.Creator TYPE) = [k]> or <(letter (1) of (.Creator TYPE)) = [y]>>>> then\n                switch costume to (.Creator TYPE)\n                set [color v] effect to (0)\n                set [brightness v] effect to (0)\n            else\n                if <(.Creator TYPE) = [z]> then\n                    switch costume to (join (.Creator TYPE) (.Creator Form2))\n                    set [color v] effect to (.Creator Color)\n                    set [brightness v] effect to (.Creator B)\n                else\n                    switch costume to (join (.Creator TYPE) (.Creator FORM))\n                    set [color v] effect to (0)\n                    set [brightness v] effect to (0)\n                end\n            end\n            if <(.Creator TYPE) = [h]> then\n                set size to ((70) * (ZOOM)) %\n            else\n                if <(.Creator TYPE) = [p]> then\n                    set size to ((120) * (ZOOM)) %\n                else\n                    set size to ((100) * (ZOOM)) %\n                end\n            end\n            if <mouse down?> then\n                repeat until <not <mouse down?>>\n                    if <(.Grid?) = [0]> then\n                        go to x: ((round ((mouse x) * (10))) / (10)) y: ((round ((mouse y) * (10))) / (10))\n                    else\n                        go to x: ((round (((((round ((((mouse x) / (ZOOM)) + (SCROLL X)) * (0.05))) * (20)) - (SCROLL X)) * (ZOOM)) * (10))) / (10)) y: ((round (((((round ((((mouse y) / (ZOOM)) + (SCROLL Y)) * (0.05))) * (20)) - (SCROLL Y)) * (ZOOM)) * (10))) / (10))\n                    end\n                    set [ghost v] effect to (30)\n                    show\n                    if <<<<(.Creator TYPE) = [x]> or <<(.Creator TYPE) = [j]> or <(.Creator TYPE) = [d]>>> or <(.Creator TYPE) = [c]>> or <<(.Creator TYPE) = [h]> or <<(.Creator TYPE) = [k]> or <(letter (1) of (.Creator TYPE)) = [y]>>>> then\n                        switch costume to (.Creator TYPE)\n                    else\n                        if <(.Creator TYPE) = [z]> then\n                            switch costume to (join (.Creator TYPE) (.Creator Form2))\n                        else\n                            switch costume to (join (.Creator TYPE) (.Creator FORM))\n                        end\n                    end\n                    if <(.Creator TYPE) = [h]> then\n                        set size to ((70) * (ZOOM)) %\n                    else\n                        if <(.Creator TYPE) = [p]> then\n                            set size to ((120) * (ZOOM)) %\n                        else\n                            set size to ((100) * (ZOOM)) %\n                        end\n                    end\n                end\n                if <<<not <<(mouse x) > [116]> and <(mouse y) > [136]>>> and <(mouse y) > [-135]>> and <<<<not <<<<<(.Creator TYPE) = [x]> or <<(.Creator TYPE) = [j]> or <(.Creator TYPE) = [d]>>> or <(.Creator TYPE) = [c]>> or <<(.Creator TYPE) = [h]> or <(.Creator TYPE) = [k]>>> and <<(mouse x) < [-160]> and <(mouse y) < [-95]>>>> and <<not <<not <<<<(.Creator TYPE) = [x]> or <<(.Creator TYPE) = [j]> or <(.Creator TYPE) = [d]>>> or <(.Creator TYPE) = [c]>> or <<(.Creator TYPE) = [h]> or <<(.Creator TYPE) = [p]> or <(.Creator TYPE) = [k]>>>>> and <<(mouse x) < [-160]> and <(mouse y) < [105]>>>> and <not <<(.Creator TYPE) = [p]> and <<(mouse x) < [-160]> and <(mouse y) < [55]>>>>>> and <not <(SCROLL X) < [25]>>> or <<<not <<<<<(.Creator TYPE) = [x]> or <<(.Creator TYPE) = [j]> or <(.Creator TYPE) = [d]>>> or <(.Creator TYPE) = [c]>> or <<(.Creator TYPE) = [h]> or <(.Creator TYPE) = [k]>>> and <<(mouse x) > [160]> and <(mouse y) < [-95]>>>> and <<not <<not <<<<(.Creator TYPE) = [x]> or <<(.Creator TYPE) = [j]> or <(.Creator TYPE) = [d]>>> or <(.Creator TYPE) = [c]>> or <<(.Creator TYPE) = [h]> or <<(.Creator TYPE) = [p]> or <(.Creator TYPE) = [k]>>>>> and <<(mouse x) > [160]> and <(mouse y) < [105]>>>> and <not <<(.Creator TYPE) = [p]> and <<(mouse x) > [160]> and <(mouse y) < [55]>>>>>> and <(SCROLL X) < [25]>>>> then\n                    if <<(.Current Room) = [7]> and <(Defeated?) = [0]>> then\n                        say [You can't build here.] for (3) seconds\n                    else\n                        if <(someone anti commands?) = [0]> then\n                            if <(someone anti create?) = [0]> then\n                                if <(someone loading?) = [0]> then\n                                    set [.creator x v] to ((round ((((x position) / (ZOOM)) + (SCROLL X)) * (10))) / (10))\n                                    set [.creator y v] to ((round ((((y position) / (ZOOM)) + (SCROLL Y)) * (10))) / (10))\n                                    set [-open chat? v] to [0]\n                                    start sound [pop v]\n                                else\n                                    say (join [You can't create right now. "] (join (item ((((someone loading?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" is Loading. Please Wait...])) for (3) seconds\n                                end\n                            else\n                                say (join [You can't build here. "] (join (item ((((someone anti create?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" Block the creation on this level.])) for (3) seconds\n                            end\n                        else\n                            say (join [You can't do commands here. "] (join (item ((((someone anti commands?) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) [" Block commands on this level.])) for (3) seconds\n                        end\n                    end\n                end\n            end\n        else\n            if <<(costume [number v]) > [6]> and <(costume [number v]) < [20]>> then\n                go to x: (((-147) - (<(SCROLL X) < [25]> * (76))) + (((costume [number v]) - (7)) * (30.75))) y: (-155)\n                set [ghost v] effect to ((40) - (<(letter (1) of (.Creator TYPE)) = (letter (1) of (costume [name v]))> * (30)))\n                show\n                if <<touching (mouse-pointer v)?> and <(can press?) = [1]>> then\n                    if <<mouse down?> and <(can press?) = [1]>> then\n                        repeat until <<<not <mouse down?>> or <not <touching (mouse-pointer v)?>>> and <(can press?) = [1]>>\n                            set [size v] to (((size) * (0.7)) + (((55) - (size)) / (6)))\n                            change size by (size)\n                        end\n                        if <<touching (mouse-pointer v)?> and <(can press?) = [1]>> then\n                            start sound [pop v]\n                            if <<(letter (1) of (.Creator TYPE)) = [y]> or <(.Creator TYPE) = [z]>> then\n                                set [.creator form v] to [1]\n                            end\n                            set [.creator type v] to (letter (1) of (costume [name v]))\n                            if <(letter (1) of (.Creator TYPE)) = [y]> then\n                                set [.creator type v] to [y0]\n                            end\n                            if <(costume [number v]) = [17]> then\n                                set [.creator color v] to [0]\n                                set [.creator b v] to [0]\n                                set [.creator f/b v] to [0]\n                                set [.creator form2 v] to [1]\n                                set [.creator form v] to [0¬0¬0¬1¬]\n                            end\n                            if <(costume [number v]) = [18]> then\n                                set [.creator form v] to []\n                            end\n                        end\n                    else\n                        set [size v] to (((size) * (0.7)) + (((75) - (size)) / (6)))\n                        change size by (size)\n                    end\n                else\n                    set [size v] to (((size) * (0.7)) + (((65) - (size)) / (6)))\n                    change size by (size)\n                end\n            else\n                if <<<<<(.Creator TYPE) = [x]> or <<(.Creator TYPE) = [j]> or <(.Creator TYPE) = [d]>>> or <(.Creator TYPE) = [c]>> or <<(.Creator TYPE) = [h]> or <(.Creator TYPE) = [k]>>> and <(costume [number v]) < [5]>> then\n                    hide\n                else\n                    if <(costume [number v]) = [5]> then\n                        if <(SCROLL X) < [25]> then\n                            go to x: (200) y: (-157)\n                        else\n                            go to x: (-203) y: (-157)\n                        end\n                        set [ghost v] effect to (40)\n                    else\n                        if <(SCROLL X) < [25]> then\n                            set x to (200)\n                        else\n                            set x to (-203)\n                        end\n                        if <(costume [number v]) = [6]> then\n                            set y to (((80) - ((200) * <<<<(.Creator TYPE) = [x]> or <<(.Creator TYPE) = [j]> or <(.Creator TYPE) = [d]>>> or <(.Creator TYPE) = [c]>> or <<(.Creator TYPE) = [h]> or <(.Creator TYPE) = [k]>>>)) - ((50) * <(.Creator TYPE) = [p]>))\n                            set [ghost v] effect to (40)\n                        else\n                            if <(costume [number v]) > [59]> then\n                                set [ghost v] effect to ((40) - (<(letter (2) of (.Creator TYPE)) = (letter (length of (costume [name v])) of (costume [name v]))> * (30)))\n                            else\n                                set [ghost v] effect to ((40) - (<(.Creator FORM) = (letter (length of (costume [name v])) of (costume [name v]))> * (30)))\n                            end\n                        end\n                    end\n                    if <<(costume [number v]) = [1]> or <<(costume [number v]) = [59]> or <(costume [number v]) = [63]>>> then\n                        show\n                        if <(.Creator TYPE) = [p]> then\n                            hide\n                        else\n                            if <(letter (1) of (.Creator TYPE)) = [y]> then\n                                switch costume to (form5 v)\n                            else\n                                if <(.Creator TYPE) = [z]> then\n                                    switch costume to (form6 v)\n                                    set [.creator form v] to (join (.Creator Color) (join [¬] (join (.Creator B) (join [¬] (join (.Creator F/B) (join [¬] (join (.Creator Form2) [¬])))))))\n                                else\n                                    switch costume to (form1 v)\n                                end\n                            end\n                        end\n                    else\n                        if <<(costume [number v]) = [2]> or <<(costume [number v]) = [56]> or <<(costume [number v]) = [60]> or <(costume [number v]) = [64]>>>> then\n                            show\n                            if <(.Creator TYPE) = [p]> then\n                                switch costume to (form11 v)\n                            else\n                                if <(letter (1) of (.Creator TYPE)) = [y]> then\n                                    switch costume to (formy0 v)\n                                else\n                                    if <(.Creator TYPE) = [z]> then\n                                        switch costume to (form7 v)\n                                    else\n                                        switch costume to (form2 v)\n                                    end\n                                end\n                            end\n                        else\n                            if <<(costume [number v]) = [3]> or <<(costume [number v]) = [57]> or <<<(costume [number v]) = [61]> or <(costume [number v]) = [65]>> or <(costume [number v]) = [66]>>>> then\n                                show\n                                if <(.Creator TYPE) = [p]> then\n                                    switch costume to (form22 v)\n                                else\n                                    if <(letter (1) of (.Creator TYPE)) = [y]> then\n                                        switch costume to (formy1 v)\n                                    else\n                                        if <(.Creator TYPE) = [z]> then\n                                            switch costume to (join [Form] ((8) + (.Creator F/B)))\n                                        else\n                                            switch costume to (form3 v)\n                                        end\n                                    end\n                                end\n                            else\n                                if <<(costume [number v]) = [4]> or <<(costume [number v]) = [58]> or <<(costume [number v]) = [62]> or <(costume [number v]) > [66]>>>> then\n                                    show\n                                    if <(.Creator TYPE) = [p]> then\n                                        switch costume to (form33 v)\n                                    else\n                                        if <(letter (1) of (.Creator TYPE)) = [y]> then\n                                            switch costume to (formy2 v)\n                                        else\n                                            if <(.Creator TYPE) = [z]> then\n                                                switch costume to (join [Formz] (.Creator Form2))\n                                            else\n                                                switch costume to (form4 v)\n                                            end\n                                        end\n                                    end\n                                else\n                                    show\n                                end\n                            end\n                        end\n                    end\n                    if <(.Creator TYPE) = [p]> then\n                        if <(.Creator FORM) > [3]> then\n                            set [.creator form v] to [1]\n                        end\n                    end\n                    if <(letter (1) of (.Creator TYPE)) = [y]> then\n                    if <<not <<(.Creator TYPE) = [p]> and <(costume [number v]) < [5]>>> and <not <<(.Creator TYPE) = [y]> and <(costume [number v]) < [5]>>>> then\n                        if <<touching (mouse-pointer v)?> and <(can press?) = [1]>> then\n                            if <(costume [number v]) = [59]> then\n                                Separate (.Creator FORM)\n                                think (.Custom Say)\n                            else\n                                if <(costume [number v]) = [63]> then\n                                    if <(.Creator Color) = ((1) / (0))> then\n                                        think [Black]\n                                    else\n                                        think (.Creator Color)\n                                    end\n                                else\n                                    if <(costume [number v]) = [64]> then\n                                        think (.Creator B)\n                                    else\n                                        think []\n                                    end\n                                end\n                            end\n                            if <<mouse down?> and <(can press?) = [1]>> then\n                                repeat until <<<not <mouse down?>> or <not <touching (mouse-pointer v)?>>> and <(can press?) = [1]>>\n                                    set [size v] to (((size) * (0.7)) + (((90) - (size)) / (6)))\n                                    change size by (size)\n                                end\n                                if <<touching (mouse-pointer v)?> and <(can press?) = [1]>> then\n                                    if <(costume [number v]) = [59]> then\n                                        ask [] and wait\n                                        if <not <(answer) = []>> then\n                                            if <(length of (answer)) < [50]> then\n                                                Fix (answer)\n                                                start sound [pop v]\n                                                set [.creator form v] to (-fixed)\n                                            else\n                                                say [I'm sorry but the maximum of letters is 50] for (3) seconds\n                                            end\n                                        end\n                                    else\n                                        if <(costume [number v]) = [5]> then\n                                            set [.creator type v] to [0]\n                                            set [-open chat? v] to [0]\n                                        else\n                                            if <(costume [number v]) = [6]> then\n                                                set [.grid? v] to (((.Grid?) + (1)) mod (2))\n                                                start sound ((((.Grid?) + (1)) mod (2)) + (2))\n                                            else\n                                                start sound [pop v]\n                                                if <(costume [number v]) > [59]> then\n                                                    if <(costume [number v]) = [63]> then\n                                                        ask [Put a number between 0 and 200. Also put "Black" to set to black color.] and wait\n                                                        if <not <(answer) = []>> then\n                                                            if <<(length of (answer)) < [5]> or <(answer) = [Black]>> then\n                                                                if <<<(answer) > [-1]> and <(answer) < [201]>> or <(answer) = [Black]>> then\n                                                                    start sound [pop v]\n                                                                    if <(answer) = [Black]> then\n                                                                        set [.creator color v] to ((1) / (0))\n                                                                    else\n                                                                        set [.creator color v] to (answer)\n                                                                    end\n                                                                else\n                                                                    say [I'm sorry but just need to be numbers] for (3) seconds\n                                                                end\n                                                            else\n                                                                say [I'm sorry but the maximum of letters is 5] for (3) seconds\n                                                            end\n                                                        end\n                                                    else\n                                                        if <(costume [number v]) = [64]> then\n                                                            ask [Put a number between -100 and 100.] and wait\n                                                            if <not <(answer) = []>> then\n                                                                if <(length of (answer)) < [5]> then\n                                                                    if <<(answer) > [-101]> and <(answer) < [101]>> then\n                                                                        start sound [pop v]\n                                                                        set [.creator b v] to (answer)\n                                                                    else\n                                                                        say [I'm sorry but just need to be numbers] for (3) seconds\n                                                                    end\n                                                                else\n                                                                    say [I'm sorry but the maximum of letters is 5] for (3) seconds\n                                                                end\n                                                            end\n                                                        else\n                                                            if <<(costume [number v]) = [65]> or <(costume [number v]) = [66]>> then\n                                                                set [.creator f/b v] to (((.Creator F/B) + (1)) mod (2))\n                                                            else\n                                                                if <(costume [number v]) > [66]> then\n                                                                    change [.creator form2 v] by (1)\n                                                                    if <(.Creator Form2) > [8]> then\n                                                                        set [.creator form2 v] to [1]\n                                                                    end\n                                                                else\n                                                                    set [.creator type v] to (join [y] (letter (length of (costume [name v])) of (costume [name v])))\n                                                                end\n                                                            end\n                                                        end\n                                                    end\n                                                else\n                                                    set [.creator form v] to (letter (length of (costume [name v])) of (costume [name v]))\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            else\n                                set [size v] to (((size) * (0.7)) + (((110) - (size)) / (6)))\n                                change size by (size)\n                            end\n                        else\n                            think []\n                            set [size v] to (((size) * (0.7)) + (((100) - (size)) / (6)))\n                            change size by (size)\n                        end\n                    end\n                end\n            end\n        end\n    else\n        hide\n        if <(costume [number v]) > [16]> then\n            set [size v] to (((size) * (0.7)) + (((100) - (size)) / (6)))\n            change size by (size)\n        else\n            if <(costume [number v]) > [5]> then\n                set [size v] to (((size) * (0.7)) + (((80) - (size)) / (6)))\n                change size by (size)\n            else\n                set [size v] to (((size) * (0.7)) + (((100) - (size)) / (6)))\n                change size by (size)\n            end\n        end\n    end\nend\n\nwhen I receive [turn page v]\nCreate Clones\n\ndefine Fix (text)\nset [-i v] to [1]\nset [-fixed v] to []\nrepeat (length of (text))\n    if <(letter (-i) of (text)) = [ ]> then\n        set [-fixed v] to (join (-fixed) [¬])\n    else\n        set [-fixed v] to (join (-fixed) (letter (-i) of (text)))\n    end\n    change [-i v] by (1)\nend\nset [-fixed v] to (join (-fixed) [¬])\n\ndefine Separate (cs)\nset [.custom say v] to []\nset [-j v] to [1]\nrepeat (length of (cs))\n    if <(letter (-j) of (cs)) = [¬]> then\n        set [.custom say v] to (join (.Custom Say) [ ])\n    else\n        set [.custom say v] to (join (.Custom Say) (letter (-j) of (cs)))\n    end\n    change [-j v] by (1)\nend\n\n@Delete\n\nwhen flag clicked\nset [.clone? v] to [0]\nset [x v] to [-99999]\nset [y v] to [-99999]\nset [showing? v] to [0]\nhide\n\nwhen I receive [create v]\nif <(.clone?) = [0]> then\n    if <<(.Create TYPE) = [delete]> or <(.Create TYPE) = [x]>> then\n        hide\n        set [x v] to (.Create X)\n        set [y v] to (.Create Y)\n        set [showing? v] to [-1]\n        wait until <(showing?) = [1]>\n        set [ghost v] effect to (99)\n        show\n        set [.stop for delete v] to [1]\n        set [old scroll x v] to (SCROLL X)\n        set [old scroll y v] to (SCROLL Y)\n        set [scroll x v] to (x)\n        set [scroll y v] to (y)\n        Limit\n        broadcast (Delete v) and wait\n        set [scroll x v] to (Old Scroll X)\n        set [scroll y v] to (Old Scroll Y)\n        set [.stop for delete v] to [0]\n        hide\n    else\n        if <(.Create TYPE) = [clean]> then\n            broadcast (Delete for New v)\n            delete all of [build v]\n        end\n    end\nend\n\ndefine Position\ngo to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to ((100) * (ZOOM)) %\nif <(showing?) = [-1]> then\n    set [showing? v] to [1]\nend\n\nwhen I receive [next level v]\ndelete this clone\n\nwhen I receive [delete for new v]\ndelete this clone\n\nwhen I receive [tick v]\nPosition\n\ndefine Limit\nif <(SCROLL X) < [0]> then\n    set [scroll x v] to [0]\nend\nif <(SCROLL Y) < [0]> then\n    set [scroll y v] to [0]\nend\nif <(.Current Room) = [1]> then\n    if <(SCROLL X) > [4320]> then\n        set [scroll x v] to [4320]\n    end\nelse\n    if <(.Current Room) = [2]> then\n        if <(SCROLL X) > [480]> then\n            set [scroll x v] to [480]\n        end\n    else\n        if <(.Current Room) = [3]> then\n            if <(SCROLL X) > [1920]> then\n                set [scroll x v] to [1920]\n            end\n        else\n            if <(.Current Room) = [4]> then\n                if <(SCROLL X) > [9120]> then\n                    set [scroll x v] to [9120]\n                end\n            end\n        end\n    end\nend\n\n@Things\n\nwhen flag clicked\nhide\ngo to [front v] layer\nset [tagged v] to [0]\nset [tag time v] to ((1) / (0))\nset [clone? v] to [0]\n\nwhen I receive [tick v]\nif <(.Current Room) = [7]> then\nPosition\n\ndefine Position\nif <(clone?) > [0]> then\n    if <(Defeated?) = [1]> then\n        delete this clone\n    end\n    if <(clone?) > [2]> then\n        go to [front v] layer\n        turn right (speed x) degrees\n        change x by (speed x)\n        change y by (speed y)\n        set [speed x v] to ((speed x) * (0.9))\n        change [speed y v] by (-0.5)\n        if <(y position) < [-175]> then\n            delete this clone\n        end\n    else\n        if <(clone?) = [1]> then\n            if <<(_YouLive) < (last)> and <(_YouLive) < [3]>> then\n                switch costume to (ylive v)\n                create clone of (_myself_ v)\n            end\n            set [last v] to (_YouLive)\n            switch costume to (join [YouLives] (_YouLive))\n            go to x: (-200) y: (-165)\n        else\n            if <<(_BossLive) < (last)> and <(_BossLive) < [3]>> then\n                switch costume to (blive v)\n                create clone of (_myself_ v)\n            end\n            set [last v] to (_BossLive)\n            switch costume to (join [BossLives] (_BossLive))\n            go to x: (160) y: (-165)\n        end\n    end\n    set size to (100) %\n    show\nelse\n    switch costume to (tagged v)\n    if <<(Tagged) = [0]> or <<(Tag Time) < [10]> and <((Tag Time) mod (2)) = [0]>>> then\n        hide\n    else\n        if <<<(item (Tagged) of [.check active v]) = [1]> or <(Tagged) = (.Player Slot)>> and <(item ((((Tagged) - (1)) * (-Max Objects)) + (5)) of [.cloud list v]) = (.Current Room)>> then\n            if <(Tagged) = (.Player Slot)> then\n                set [x v] to (item (3) of [player v])\n                set [y v] to (item (4) of [player v])\n            else\n                if <<<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> and <(Who) = (Tagged)>> then\n                    set [x v] to ([x v] of [player v])\n                    set [y v] to ([y v] of [player v])\n                    change [y v] by ((21.5) - (<<([costume # v] of [player v]) = [13]> or <([costume # v] of [player v]) = [32]>> * (5)))\n                else\n                    set [-i v] to (item ((((Tagged) - (1)) * (-Max Objects)) + (9)) of [.cloud list v])\n                    if <(-i) > [0]> then\n                        set [x v] to (item ((((-i) - (1)) * (-Max Objects)) + (3)) of [.cloud list v])\n                        set [y v] to (item ((((-i) - (1)) * (-Max Objects)) + (4)) of [.cloud list v])\n                        change [y v] by ((21.5) - (<<([abs v] of (item ((((-i) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [13]> or <([abs v] of (item ((((-i) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) ) = [32]>> * (5)))\n                    else\n                        set [x v] to (item ((((Tagged) - (1)) * (-Max Objects)) + (3)) of [.cloud list v])\n                        set [y v] to (item ((((Tagged) - (1)) * (-Max Objects)) + (4)) of [.cloud list v])\n                    end\n                end\n            end\n            set [y v] to ((y) + ((4) * ([sin v] of ((timer) * (360)) )))\n            go to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\n            set size to ((85) * (ZOOM)) %\n            if <<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> then\n                show\n            else\n                hide\n            end\n            if <(y) < [-180]> then\n                hide\n            end\n        else\n            hide\n        end\n    end\nend\n\nwhen I receive [next level v]\nif <(.Current Room) = [7]> then\n    if  then\n        delete this clone\n    end\n    switch costume to (youlives3 v)\n    create clone of (_myself_ v)\n    switch costume to (bosslives3 v)\n    create clone of (_myself_ v)\nelse\n    delete this clone\nend\n\nwhen I receive [rst portals v]\nif <(.Current Room) = [7]> then\n    if <(Defeated?) = [0]> then\nelse\n    delete this clone\nend\n\nwhen I start as a clone\nif < (costume [name v]) contains [You]?> then\n    set [clone? v] to [1]\nelse\n    if < (costume [name v]) contains [Boss]?> then\n        set [clone? v] to [2]\n    else\n        if <(letter (1) of (costume [name v])) = [Y]> then\n            set [clone? v] to [3]\n            set [speed x v] to (pick random (-3.0) to (3.0))\n            set [speed y v] to (pick random (3.0) to (5.0))\n            if <(_YouLive) = [2]> then\n                go to x: (-180) y: (-165)\n            else\n                if <(_YouLive) = [1]> then\n                    go to x: (-200) y: (-165)\n                else\n                    if <(_YouLive) = [0]> then\n                        go to x: (-220) y: (-165)\n                    else\n                        delete this clone\n                    end\n                end\n            end\n        else\n            if <(letter (1) of (costume [name v])) = [B]> then\n                set [clone? v] to [3]\n                set [speed x v] to (pick random (-3.0) to (3.0))\n                set [speed y v] to (pick random (3.0) to (5.0))\n                if <(_BossLive) = [2]> then\n                    go to x: (180) y: (-165)\n                else\n                    if <(_BossLive) = [1]> then\n                        go to x: (160) y: (-165)\n                    else\n                        if <(_BossLive) = [0]> then\n                            go to x: (140) y: (-165)\n                        else\n                            delete this clone\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@Achievments\n\nwhen flag clicked\nhide\n\ndefine Acheivment id: (id)\nif <not <(item (id) of [completed achievments v]) = [1]>> then\n    replace item (id) of [completed achievments v] with [1]\n    set [id v] to (id)\n    create clone of (_myself_ v)\n    if <[message type v] contains (id)?> then\n        broadcast (Message v)\n    else\n        broadcast (Achievement v)\n    end\nend\ndelete (1) of [new achievments v]\nrepeat until <<not <(item (item (1) of [new achievments v]) of [completed achievments v]) = [1]>> or <(length of [new achievments v]) = [0]>>\n    delete (1) of [new achievments v]\nend\n\ndefine Reset achievements\nset [-complete all? v] to [0]\ndelete all of [completed achievments v]\ndelete all of [stats v]\ndelete all of [can/cant v]\nrepeat (45)\n    add [0] to [completed achievments v]\nend\nrepeat (16)\n    add [0] to [stats v]\nend\nrepeat (length of [can/cant things v])\n    add [0] to [can/cant v]\nend\n\nwhen I start as a clone\nset [clone? v] to ((1) + <(id) = [Player]>)\nset [t v] to [0]\nset [last v] to [0]\nset size to (100000) %\nif <(id) = [Player]> then\nshow\nclear graphic effects\nset size to ((85) + ((15) * <(id) = [Player]>)) %\ngo to [front v] layer\nswitch costume to (id)\nset [ghost v] effect to (100)\nif <(id) = [Player]> then\n    forever\n        if <(.Chats) = [1]> then\n            if <(item (-Clone ID) of [.check active v]) = [0]> then\n                Show / Hide / Half [Hide]\n            else\n                Do This\n            end\n        else\n            Show / Hide / Half [Hide]\n        end\n    end\nelse\n    repeat (4)\n        change [ghost v] effect by (-20)\n        go to [front v] layer\n    end\n    repeat until <(t) > [8]>\n        change [t v] by (.Delta Time)\n        go to [front v] layer\n    end\n    repeat (15)\n        change [ghost v] effect by (5)\n        go to [front v] layer\n    end\n    delete this clone\nend\n\nwhen I receive [achievement v]\nif <(clone?) = [1]> then\n    if <not <[message type v] contains (id)?>> then\n        if <(doing?) = [1]> then\n            set y to (to y)\n        end\n        set [doing? v] to [1]\n        set [to y v] to ((y position) + (75))\n        repeat (25)\n            change y by (((to y) - (y position)) / (4))\n        end\n        set [doing? v] to [0]\n    end\nend\n\nwhen [v v] key pressed\nif <(.is Debugger?) = [1]> then\n    Reset achievements\n    if <(clone?) < [2]> then\n        delete this clone\n    end\nend\n\nwhen I receive [reset achievments v]\nReset achievements\nif <(clone?) < [2]> then\n    delete this clone\nend\n\nwhen I receive [message v]\nif <(clone?) = [1]> then\n    if <[message type v] contains (id)?> then\n        if <(doing?) = [1]> then\n            set y to (to y)\n        end\n        set [doing? v] to [1]\n        set [to y v] to ((y position) - (45))\n        repeat (25)\n            change y by (((to y) - (y position)) / (4))\n        end\n        set [doing? v] to [0]\n    end\nend\n\ndefine Other Players (id)\ngo to [front v] layer\nif <(item ((((id) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) = [n]> then\n    set [frame v] to [0]\n    if <touching (mouse-pointer v)?> then\n        if <(.is Debugger?) = [1]> then\n            say (join (item ((((id) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) (join [ \(Level: ] (join (item ((((id) - (1)) * (-Max Objects)) + (5)) of [.cloud list v]) [\)])))\n        else\n            say (item ((((id) - (1)) * (-Max Objects)) + (2)) of [.cloud list v])\n        end\n    else\n        say []\n    end\nelse\n    change [frame v] by (0.225)\n    if <(.Translate?) = [0]> then\n        say (join (item ((((id) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) (join [: ] (item (item ((((id) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) of [.chat v])))\n    else\n        say (join (item ((((id) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) (join [: ] (translate (item (item ((((id) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) of [.chat v]) to ((language::translate) v)::translate)))\n    end\nend\n\ndefine Show / Hide / Half (to)\nif <(to) = [Show]> then\n    if <(last) = [0]> then\n        set [frame v] to [0]\n        Player Status (-Clone ID)\n        set [ghost v] effect to (100)\n        repeat (5)\n            change [ghost v] effect by (-20)\n            go to [front v] layer\n        end\n        set [last v] to [1]\n    else\n        if <(last) = [2]> then\n            set [frame v] to [0]\n            Player Status (-Clone ID)\n            set [ghost v] effect to (50)\n            repeat (5)\n                change [ghost v] effect by (-10)\n                go to [front v] layer\n            end\n            set [last v] to [1]\n        end\n    end\nelse\n    if <(to) = [Hide]> then\n        if <(last) = [1]> then\n            set [frame v] to [0]\n            Player Status (-Clone ID)\n            say []\n            set [ghost v] effect to (0)\n            repeat (20)\n                change [ghost v] effect by (5)\n                go to [front v] layer\n            end\n            set [last v] to [0]\n        else\n            if <(last) = [2]> then\n                set [frame v] to [0]\n                Player Status (-Clone ID)\n                say []\n                set [ghost v] effect to (50)\n                repeat (10)\n                    change [ghost v] effect by (5)\n                    go to [front v] layer\n                end\n                set [last v] to [0]\n            end\n        end\n    else\n        if <(to) = [Half]> then\n            if <(last) = [0]> then\n                set [frame v] to [0]\n                Player Status (-Clone ID)\n                set [ghost v] effect to (100)\n                repeat (5)\n                    change [ghost v] effect by (-10)\n                    go to [front v] layer\n                end\n                set [last v] to [2]\n            else\n                if <(last) = [1]> then\n                    set [frame v] to [0]\n                    Player Status (-Clone ID)\n                    set [ghost v] effect to (0)\n                    repeat (10)\n                        change [ghost v] effect by (5)\n                        go to [front v] layer\n                    end\n                    set [last v] to [2]\n                end\n            end\n        end\n    end\nend\n\ndefine Set Space (with space?)\ndelete all of [players space v]\nif <(.Chats) = [1]> then\n    set [-i v] to [1]\n    repeat (8)\n        if <(item (-i) of [.check active v]) = [1]> then\n            if <(with space?) = [-1]> then\n                add [35] to [players space v]\n                Closer to (length of [players space v])\n                replace item (length of [players space v]) of [players space v] with ((item (length of [players space v]) of [players space v]) + (item (-c) of [players space v]))\n            else\n                if <(item ((((-i) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) = [n]> then\n                    add [40] to [players space v]\n                    Closer to (length of [players space v])\n                    replace item (length of [players space v]) of [players space v] with ((item (length of [players space v]) of [players space v]) + (item (-c) of [players space v]))\n                else\n                    if <(with space?) = [1]> then\n                        add ((40) + ((16) * (round ((length of (join (item ((((-i) - (1)) * (-Max Objects)) + (2)) of [.cloud list v]) (item (item ((((-i) - (1)) * (-Max Objects)) + (6)) of [.cloud list v]) of [.chat v]))) / (45))))) to [players space v]\n                    else\n                        add [40] to [players space v]\n                    end\n                    Closer to (length of [players space v])\n                    replace item (length of [players space v]) of [players space v] with ((item (length of [players space v]) of [players space v]) + (item (-c) of [players space v]))\n                end\n            end\n        else\n            add [0] to [players space v]\n        end\n        change [-i v] by (1)\n    end\n    Closer to [9]\n    if <(item (-c) of [players space v]) > [300]> then\n        if <(with space?) = [0]> then\n            Set Space [0]\n        else\n            Set Space [-1]\n        end\n    end\nelse\n    repeat (8)\n        add [0] to [players space v]\n    end\nend\n\ndefine Separate (cs)\nset [.custom say v] to []\nset [-i v] to [2]\nrepeat (length of (cs))\n    if <(letter (-i) of (cs)) = [⃝]> then\n        set [.custom say v] to (join (.Custom Say) [ ])\n    else\n        set [.custom say v] to (join (.Custom Say) (letter (-i) of (cs)))\n    end\n    change [-i v] by (1)\nend\n\ndefine What C (text) (what) (to end?)\nset [-k v] to [2]\nset [-word v] to []\nrepeat until <<(letter (-k) of (text)) = [⃝]> or <(-k) > (length of (text))>>\n    set [-word v] to (join (-word) (letter (-k) of (text)))\n    change [-k v] by (1)\nend\nif <(what) > [1]> then\n    repeat ((what) - (1))\n        change [-k v] by (1)\n        set [-word v] to []\n        repeat until <<(letter (-k) of (text)) = [⃝]> or <(-k) > (length of (text))>>\n            set [-word v] to (join (-word) (letter (-k) of (text)))\n            change [-k v] by (1)\n        end\n    end\nend\nif <(to end?) = [1]> then\n    repeat until <(-k) > (length of (text))>\n        set [-word v] to (join (-word) (letter (-k) of (text)))\n        change [-k v] by (1)\n    end\nend\n\ndefine Create Chat Clones\nset [id v] to [Player]\nset [-clone id v] to [1]\nrepeat (8)\n    create clone of (_myself_ v)\n    change [-clone id v] by (1)\nend\n\nwhen I receive [chats o/f v]\nif <(.Chats) = [1]> then\n    if <(clone?) = [0]> then\n        Set Space [1]\n    end\nelse\n    if <(clone?) = [2]> then\n        Movement (-Clone ID) [1]\n    end\nend\n\ndefine Movement (id) (.)\nif <<(item (id) of [players space v]) > [0]> and <not <(.) = [1]>>> then\n    Closer to (id)\n    if <<not <(y position) = ((-120) + (item (-c) of [players space v]))>> or <(.) = [1]>> then\n        repeat (25)\n            Closer to (id)\n            change y by ((((-120) + (item (-c) of [players space v])) - (y position)) / (4))\n        end\n    end\nelse\n    if <<not <(y position) = [-160]>> or <(.) = [1]>> then\n        repeat (25)\n            change y by (((-160) - (y position)) / (4))\n        end\n    end\nend\n\nwhen I start as a clone\nif <(id) = [Player]> then\n    set [clone? v] to [2]\n    set [frame v] to [0]\n    set size to (100) %\n    if <(id) = [Player]> then\n        go to x: (220) y: (-160)\n    end\n    forever\n        if <(.Chats) = [1]> then\n            Movement (-Clone ID) []\n        end\n    end\nend\n\ndefine Closer to (id)\nset [-c v] to (id)\nchange [-c v] by (-1)\nif <(id) > [1]> then\n    repeat until <<(item (-c) of [players space v]) > [0]> or <(-c) < [1]>>\n        change [-c v] by (-1)\n    end\nend\n\ndefine Do This\nPlayer Status (-Clone ID)\nif <<(letter (3) of (item ((((-Clone ID) - (1)) * (-Max Objects)) + (9)) of [.cloud list v])) = [1]> and <(.is Debugger?) = [1]>> then\n    Show / Hide / Half [Half]\nelse\n    Show / Hide / Half [Show]\nend\nOther Players (-Clone ID)\n\ndefine Player Status (id)\nif <not <(id) = (.Player Slot)>> then\n    set [color v] effect to (135)\n    set [-i v] to ([abs v] of (item ((((id) - (1)) * (-Max Objects)) + (8)) of [.cloud list v]) )\n    if <<(-i) > [19]> and <(-i) < [41]>> then\n        if <(-i) = [30]> then\n            switch costume to (jetm v)\n        else\n            if <(frame) > [0]> then\n                switch costume to (join [JetT] (((round (frame)) mod (3)) + (1)))\n            else\n                switch costume to (jet v)\n            end\n        end\n    else\n        if <<<(-i) > [386]> and <(-i) < [397]>> or <(-i) = [271]>> then\n            if <(frame) > [0]> then\n                switch costume to (join [WarriorT] (((round (frame)) mod (3)) + (1)))\n            else\n                switch costume to (warrior v)\n            end\n        else\n            if <<(-i) > [201]> and <(-i) < [210]>> then\n                if <(frame) > [0]> then\n                    switch costume to (join [WingsT] (((round (frame)) mod (3)) + (1)))\n                else\n                    switch costume to (wings v)\n                end\n            else\n                if <<(-i) > [509]> and <(-i) < [520]>> then\n                    if <(frame) > [0]> then\n                        switch costume to (join [InvertT] (((round (frame)) mod (3)) + (1)))\n                    else\n                        switch costume to (invert v)\n                    end\n                else\n                    if <<(-i) > [330]> and <(-i) < [338]>> then\n                        if <(frame) > [0]> then\n                            switch costume to (join [WaitingT] (((round (frame)) mod (3)) + (1)))\n                        else\n                            switch costume to (waiting v)\n                        end\n                    else\n                        if <<(-i) > [396]> and <(-i) < [407]>> then\n                            if <(frame) > [0]> then\n                                switch costume to (join [VoidXCT] (((round (frame)) mod (3)) + (1)))\n                            else\n                                switch costume to (void_xc v)\n                            end\n                        else\n                            if <<(-i) > [345]> and <(-i) < [364]>> then\n                                if <(frame) > [0]> then\n                                    switch costume to (join [WhirlybirdT] (((round (frame)) mod (3)) + (1)))\n                                else\n                                    switch costume to (whirlybird v)\n                                end\n                            else\n                                if <<(-i) > [489]> and <(-i) < [500]>> then\n                                    if <(frame) > [0]> then\n                                        switch costume to (join [RobotT] (((round (frame)) mod (3)) + (1)))\n                                    else\n                                        switch costume to (robot v)\n                                    end\n                                else\n                                    if <<(-i) > [499]> and <(-i) < [510]>> then\n                                        if <(frame) > [0]> then\n                                            switch costume to (join [CatT] (((round (frame)) mod (3)) + (1)))\n                                        else\n                                            switch costume to (cat v)\n                                        end\n                                    else\n                                        if <<(-i) > [486]> and <(-i) < [490]>> then\n                                            if <(frame) > [0]> then\n                                                switch costume to (join [CapeT] (((round (frame)) mod (3)) + (1)))\n                                            else\n                                                switch costume to (cape v)\n                                            end\n                                        else\n                                            if <(-i) = [11]> then\n                                                switch costume to (playerm v)\n                                            else\n                                                if <(frame) > [0]> then\n                                                    switch costume to (join [PlayerT] (((round (frame)) mod (3)) + (1)))\n                                                else\n                                                    switch costume to (player v)\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [turn page v]\ndelete all of [new achievments v]\nset [.chats v] to [0]\nset [last v] to [0]\nCreate Chat Clones\nforever\n    set [clone? v] to [0]\n    set [doing? v] to [0]\n    set [frame v] to [0]\n    set [-clone id v] to (.Player Slot)\n    if <<not <[completed achievments v] contains [0]?>> and <(-Complete All?) = [0]>> then\n        add [58] to [new achievments v]\n        set [-complete all? v] to [1]\n    end\n    if <(length of [new achievments v]) > [0]> then\n        Acheivment id: (item (1) of [new achievments v])\n    end\n    Set Space [1]\n    go to [front v] layer\n    set size to (100) %\n    go to x: (220) y: (-160)\n    show\n    if <(Grabbed) = [0]> then\n        switch costume to (player v)\n        Show / Hide / Half [Half]\n    else\n        if <(Grabbed) < [-2]> then\n            switch costume to (playerg v)\n        else\n            if <<(Grabbed) = [-2]> or <(Throw) > [0]>> then\n                switch costume to (playert v)\n            else\n                switch costume to (player v)\n            end\n        end\n        Show / Hide / Half [Show]\n    end\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        if <(Grabbed) < [1]> then\n            if <(Grabbed) = [-3]> then\n                set [grabbed v] to [-2]\n            else\n                if <(Grabbed) = [0]> then\n                    set [grabbed v] to [-4]\n                else\n                    if <(Grabbed) = [-4]> then\n                        set [grabbed v] to [0]\n                    end\n                end\n            end\n        end\n        Set Space [1]\n    end\nend\n\n@Boss\n\nwhen flag clicked\nset [defeated? v] to [0]\nset [clone? v] to [0]\nhide\n\nwhen I receive [tick v]\nif <(.Current Room) = [7]> then\n    if <(Defeated?) = [0]> then\n        Tick\n    else\n        hide\n    end\nelse\n    set [defeated? v] to [0]\n    hide\n    if <<<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> and <(Who) = [10]>> then\n        set [grabbed v] to [0]\n    end\nend\n\ndefine Tick\nif <(clone?) = [0]> then\n    if <(_To) = [Die]> then\n        set rotation style [left-right v]\n        switch costume to (hurt v)\n        if <(_Times) = [40]> then\n            if <(x) < [0]> then\n                set [speed x v] to (pick random (5.0) to (7.0))\n            else\n                set [speed x v] to (pick random (-5.0) to (-7.0))\n            end\n            set [speed y v] to (pick random (10.0) to (17.0))\n            start sound [Crunch v]\n            add [42] to [new achievments v]\n        end\n        if <(_Times) > [40]> then\n            if <(y) < [-180]> then\n                if <(_Times) > [135]> then\n                    set [defeated? v] to [1]\n                    if <(_Times) = [136]> then\n                        broadcast (Defeated v)\n                        add [27] to [new achievments v]\n                    end\n                end\n            else\n                set [_times v] to [100]\n                change [x v] by (speed x)\n                change [y v] by (speed y)\n                change [falling? v] by (1)\n                change [speed y v] by (-1)\n                if <(speed x) < [-0.1]> then\n                    point in direction (-90)\n                else\n                    if <(speed x) > [0.1]> then\n                        point in direction (90)\n                    end\n                end\n            end\n        end\n        change [_times v] by (1)\n        Position\n    else\n        set rotation style [don't rotate v]\n        switch costume to (hitboxboss v)\n        if <(crouch?) = [0]> then\n            if <(super jump) > [0]> then\n                change [super jump v] by (-1)\n            end\n        else\n            if <(falling?) = [0]> then\n                if <(super jump) < [100]> then\n                    change [super jump v] by (1)\n                end\n            else\n                if <(super jump) > [0]> then\n                    change [super jump v] by (-1)\n                end\n            end\n        end\n        Boss Movement\n        if <(super jump) > [30]> then\n            set [brightness v] effect to (((45) + (([sin v] of ((timer) * (2000)) ) * (5))) - (((40) + (([sin v] of ((timer) * (200)) ) * (10))) * <(item (6) of [controls v]) > [1]>))\n        else\n            set [brightness v] effect to ((0) - (((25) + (([sin v] of ((timer) * (200)) ) * (10))) * <(item (6) of [controls v]) > [1]>))\n        end\n        if <(wall jump) > [0]> then\n            if <(falling?) < [1]> then\n                change [wall jump v] by (-1)\n            end\n        else\n            if <<(crouch?) = [0]> or <(falling?) > [0]>> then\n                if <(item (1) of [controls v]) = [1]> then\n                    if <<<(_Doing) = [2]> or <(_Doing) = [3]>> or <(n o t h i n g) = [1]>> then\n                        change [speed x v] by (-1.5)\n                    else\n                        change [speed x v] by (-0.5)\n                    end\n                end\n                if <(item (2) of [controls v]) = [1]> then\n                    if <<<(_Doing) = [2]> or <(_Doing) = [3]>> or <(n o t h i n g) = [1]>> then\n                        change [speed x v] by (1.5)\n                    else\n                        change [speed x v] by (0.5)\n                    end\n                end\n            end\n        end\n        if <not <(speed x) = [0]>> then\n            Change Player x by (speed x)\n        else\n            set [on wall v] to [0]\n        end\n        if <(wall jump) = [0]> then\n            if <<<(_Doing) = [2]> or <(_Doing) = [3]>> or <(n o t h i n g) = [1]>> then\n                if <(_BossLive) < [2]> then\n                    set [speed x v] to ((speed x) * (0.8))\n                else\n                    set [speed x v] to ((speed x) * (0.7))\n                end\n            else\n                if <(_BossLive) < [2]> then\n                    set [speed x v] to ((speed x) * (0.93))\n                else\n                    set [speed x v] to ((speed x) * (0.9))\n                end\n            end\n        end\n        Controls - Jump, Crouch\n        if <(speed y) > [-25]> then\n            if <<(speed y) < [4]> or <(item (3) of [controls v]) = [1]>> then\n                change [speed y v] by (-1)\n            else\n                change [speed y v] by (-2)\n            end\n        end\n        Change Player y by (speed y)\n        if <<<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> and <(Who) = [10]>> then\n            set [x v] to ([x v] of [player v])\n            set [y v] to ([y v] of [player v])\n            change [y v] by ((21.5) - (<<([costume # v] of [player v]) = [13]> or <([costume # v] of [player v]) = [32]>> * (5)))\n            set [falling? v] to [0]\n            point in direction ([direction v] of [player v])\n            if <(Grabbed) = [-2]> then\n                set [grabbed v] to [0]\n                set [throw v] to [5]\n                if <(direction) < [0]> then\n                    set [speed x v] to [-5]\n                else\n                    set [speed x v] to [5]\n                end\n                set [speed y v] to [12]\n                set [falling? v] to [6]\n                set [wall jump v] to [10]\n                replace item (6) of [controls v] with [-1]\n            end\n            if <(item (6) of [controls v]) = [0]> then\n                set [grabbed v] to [0]\n                set [speed x v] to [0]\n                set [speed y v] to [10]\n                set [falling? v] to [6]\n                set [wall jump v] to [10]\n                start sound [Jump v]\n            end\n        else\n            if <<(item (6) of [controls v]) = [-1]> and <(falling?) < [1]>> then\n                replace item (6) of [controls v] with [1]\n                if <(x) < [0]> then\n                    set [speed x v] to (pick random (4.0) to (6.0))\n                else\n                    set [speed x v] to (pick random (-4.0) to (-6.0))\n                end\n                set [speed y v] to [22]\n                set [falling? v] to [6]\n                set [wall jump v] to [7]\n                change [_bosslive v] by (-1)\n                set [last v] to [0]\n                set [_times v] to [0]\n                start sound [Crunch v]\n                start sound [Pew v]\n                if <(_BossLive) < [1]> then\n                    set [_to v] to [Die]\n                else\n                    set [_to v] to [0]\n                end\n            end\n        end\n        if <<<touching (player v)?> and <(_TouchingBoss) = [1]>> and <(item (6) of [controls v]) > [1]>> then\n            if <<(item (4) of [player v]) > ((y) + (15))> and <not <([speed y v] of [player v]) > [0]>>> then\n                replace item (6) of [controls v] with [1]\n                if <(x) < [0]> then\n                    set [speed x v] to (pick random (4.0) to (6.0))\n                else\n                    set [speed x v] to (pick random (-4.0) to (-6.0))\n                end\n                set [speed y v] to [22]\n                set [falling? v] to [6]\n                set [wall jump v] to [7]\n                change [_bosslive v] by (-1)\n                set [last v] to [0]\n                set [_times v] to [0]\n                start sound [Crunch v]\n                start sound [Pew v]\n                broadcast (bounce v)\n                if <(_BossLive) < [1]> then\n                    set [_to v] to [Die]\n                else\n                    set [_to v] to [0]\n                end\n            end\n            if <<(Grabbed) = [-4]> and <(item (6) of [controls v]) > [1]>> then\n                set [grabbed v] to [-3]\n                set [who v] to [10]\n                replace item (6) of [controls v] with ((75) + ((25) * (_BossLive)))\n            end\n        end\n        if <(-Difficulty) > [0]> then\n            if <<<<touching (player v)?> and <(_Hurt) = [0]>> and <(_TouchingBoss) = [1]>> and <(_YouLive) > [0]>> then\n                if <(item (6) of [controls v]) = [0]> then\n                    change [_youlive v] by (-1)\n                    add [43] to [new achievments v]\n                    if <(_YouLive) < [1]> then\n                        set [_hurt v] to [0]\n                        broadcast (reset level v)\n                    else\n                        start sound [Pew v]\n                        set [_hurt v] to [75]\n                    end\n                end\n            end\n        end\n        Position\n        Set Costume\n    end\nelse\n    if <<(costume [name v]) = [Now]> or <(costume [name v]) = [Throw]>> then\n        if <<<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> and <(Who) = [10]>> then\n            switch costume to (throw v)\n        else\n            switch costume to (now v)\n        end\n        set [x v] to ([x v] of [boss v])\n        set [y v] to ([y v] of [boss v])\n        set [y v] to ((y) + ((4) * ([sin v] of ((timer) * (360)) )))\n        point in direction ([direction v] of [boss v])\n        if <(item (6) of [controls v]) < [2]> then\n            delete this clone\n        end\n        clear graphic effects\n        Position\n    else\n        if <(letter (length of (costume [name v])) of (costume [name v])) > [2]> then\n            change [frame v] by (([abs v] of (speed x) ) / (20))\n            Position\n            if <(([floor v] of (((frame) mod (5)) + (1)) ) + (2)) > [6]> then\n                delete this clone\n            end\n            switch costume to (join [Shoot] (([floor v] of (((frame) mod (4)) + (1)) ) + (2)))\n        else\n            switch costume to (hitboxshoot v)\n            change [x v] by (speed x)\n            change [frame v] by (([abs v] of (speed x) ) / (20))\n            if <<touching (ground v)?> or <<(item (6) of [controls v]) = [1]> or <(_BossLive) < [1]>>> then\n                start sound [Bite v]\n                switch costume to (shoot3 v)\n                set [frame v] to [0]\n                stop [this script v]\n            end\n            if <<touching (player v)?> and <(_TouchingBoss) = [1]>> then\n                switch costume to (shoot3 v)\n                set [frame v] to [0]\n                start sound [Bite v]\n                if <<<(_Hurt) = [0]> and <(-Difficulty) > [0]>> and <(_YouLive) > [0]>> then\n                    set [_hurt v] to [75]\n                    change [_youlive v] by (-1)\n                    add [43] to [new achievments v]\n                    if <(_YouLive) < [1]> then\n                        broadcast (reset level v)\n                    end\n                end\n                stop [this script v]\n            end\n            Position\n            switch costume to (join [Shoot] ([floor v] of (((frame) mod (2)) + (1)) ))\n        end\n    end\nend\n\ndefine Position\ngo to x: (((x) - (SCROLL X)) * (ZOOM)) y: (((y) - (SCROLL Y)) * (ZOOM))\nset size to ((100) * (ZOOM)) %\nif <(y) < [-180]> then\n    hide\n    set [showing? v] to [0]\n    delete this clone\nelse\n    if <<(round (((x) - (SCROLL X)) * (ZOOM))) = (round (x position))> and <(round (((y) - (SCROLL Y)) * (ZOOM))) = (round (y position))>> then\n        show\n        set [showing? v] to [1]\n    else\n        hide\n        set [showing? v] to [0]\n        delete this clone\n    end\nend\n\ndefine Change Player x by (speed x)\nchange [x v] by (speed x)\nPosition\nif <touching (ground v)?> then\n    repeat (12)\n        change [y v] by (1)\n        Position\n        if <not <touching (ground v)?>> then\n            stop [this script v]\n        end\n    end\n    change [y v] by (-12)\n    repeat until <not <touching (ground v)?>>\n        if <(speed x) > [0]> then\n            set [speed x v] to [0]\n            change [x v] by (-1)\n        else\n            set [speed x v] to [0]\n            change [x v] by (1)\n        end\n        if <<(falling?) > [0]> and <not <<<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> and <(Who) = [10]>>>> then\n            if <(speed y) < [0]> then\n                set [on wall v] to [1]\n                set [crouch? v] to [0]\n                if <(speed x) > [0]> then\n                    point in direction (90)\n                else\n                    point in direction (-90)\n                end\n                if <(speed y) < [-2]> then\n                    set [speed y v] to [-2]\n                end\n            end\n        else\n            set [on wall v] to [0]\n        end\n        Position\n    end\n    if <<(item (3) of [controls v]) = [1]> and <<(falling?) > [0]> and <<<(speed y) < [0]> or <(wall jump) > [0]>> or <(jump key) = [0]>>>> then\n        change y by (2)\n        set [speed x v] to (((speed x) / ([abs v] of (speed x) )) * ((-8) - (<(_BossLive) < [2]> * (1))))\n        set [speed y v] to ((12) + (<(_BossLive) < [2]> * (2)))\n        set [falling? v] to [6]\n        set [wall jump v] to [1]\n        set [jump key v] to [1]\n        start sound [Jump v]\n    end\nelse\n    set [on wall v] to [0]\nend\n\ndefine Controls - Jump, Crouch\nif <touching (bounce v)?> then\n    set [speed y v] to [22]\n    set [falling? v] to [6]\n    set [jump key v] to [1]\n    set [super jump v] to [0]\n    start sound [Zoop v]\nend\nif <(item (3) of [controls v]) = [1]> then\n    if <<(jump key) = [0]> and <(falling?) < [3]>> then\n        set [speed y v] to ((15) + (<(super jump) > [30]> * (4)))\n        set [falling? v] to [6]\n        set [jump key v] to [1]\n        set [super jump v] to [0]\n        start sound [Jump v]\n    end\nelse\n    set [jump key v] to [0]\nend\nif <(item (4) of [controls v]) = [1]> then\n    set [in platforrm v] to [2]\n    set [crouch? v] to [1]\nelse\n    set [crouch? v] to [0]\nend\n\nwhen I receive [next level v]\nif <(.Current Room) = [7]> then\n    Reset Boss\nelse\n    set [defeated? v] to [0]\n    hide\nend\n\ndefine Reset Boss\nset rotation style [left-right v]\npoint in direction (-90)\nset [x v] to [120]\nset [y v] to [250]\nset [falling? v] to [6]\nset [speed x v] to [0]\nset [speed y v] to [0]\nset [_youlive v] to [3]\nset [_bosslive v] to [3]\nset [_doing v] to [0]\nset [defeated? v] to [0]\nset [_to v] to [0]\nset [last v] to [0]\nReplace of Movement List [0] [0] [0] [0] [0] [0]\n\nwhen I receive [rst portals v]\nif <(.Current Room) = [7]> then\n    if <(Defeated?) = [0]> then\n        Reset Boss\n    end\nend\n\ndefine Change Player y by (speed y)\nchange [y v] by (speed y)\nchange [falling? v] by (1)\nPosition\nrepeat until <not <touching (ground v)?>>\n    if <(speed y) > [0]> then\n        change [y v] by (-1)\n    else\n        change [y v] by (1)\n        set [falling? v] to [0]\n        set [on wall v] to [0]\n    end\n    Position\n    set [speed y v] to [0]\nend\n\ndefine Set Costume\nset rotation style [left-right v]\nif <(speed x) < [-0.1]> then\n    point in direction (-90)\n    if <(frame) < [0]> then\n        set [frame v] to [0]\n    end\n    change [frame v] by (([abs v] of (speed x) ) / (5))\nelse\n    if <(speed x) > [0.1]> then\n        point in direction (90)\n        if <(frame) < [0]> then\n            set [frame v] to [0]\n        end\n        change [frame v] by (([abs v] of (speed x) ) / (5))\n    else\n        if <<(item (5) of [controls v]) = [1]> and <(frame) < [1]>> then\n            change [frame v] by (-0.2)\n        else\n            set [frame v] to [0]\n        end\n    end\nend\nif <(_Doing) = [5]> then\n    change [_times v] by (1)\nend\nif <<(item (6) of [controls v]) > [0]> or <(item (6) of [controls v]) = [-1]>> then\n    if <(falling?) < [6]> then\n        if <(item (6) of [controls v]) < [25]> then\n            if <<<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> and <(Who) = [10]>> then\n                switch costume to (join [Grabbed] ((((round ((timer) * (8))) - (1)) mod (2)) + (3)))\n            else\n                switch costume to (recovering v)\n            end\n        else\n            if <<<(Grabbed) = [-3]> or <(Grabbed) = [-2]>> and <(Who) = [10]>> then\n                switch costume to (join [Grabbed] ((((round ((timer) * (10))) - (1)) mod (2)) + (1)))\n            else\n                switch costume to (weakened v)\n            end\n        end\n    else\n        switch costume to (hurt v)\n    end\nelse\n    if <<(_Times) > [60]> and <(_Doing) = [5]>> then\n        if <<(_Times) > [60]> and <(_Times) < [70]>> then\n            switch costume to (prepare v)\n        else\n            if <(_Times) = [72]> then\n                switch costume to (fire v)\n                create clone of (_myself_ v)\n                start sound [Bite v]\n            else\n                switch costume to (fire v)\n                if <(_Times) > [74]> then\n                    set [_times v] to [0]\n                end\n            end\n        end\n    else\n        if <(on wall) = [1]> then\n            switch costume to (wall v)\n        else\n            if <(crouch?) = [1]> then\n                switch costume to (crouch v)\n            else\n                if <(falling?) < [6]> then\n                    if <(frame) > [0]> then\n                        switch costume to (join [Run] ([floor v] of (((frame) mod (10)) + (1)) ))\n                    else\n                        if <(round (frame)) < [0]> then\n                            if <(round (frame)) = [-1]> then\n                                switch costume to (side v)\n                                if <(n o t h i n g) = [0]> then\n                                    if <(item (3) of [player v]) < (x)> then\n                                        point in direction (-90)\n                                    else\n                                        point in direction (90)\n                                    end\n                                end\n                            else\n                                if <(round (frame)) = [-2]> then\n                                    switch costume to (back v)\n                                else\n                                    if <(round (frame)) = [-3]> then\n                                        switch costume to (otherside v)\n                                    else\n                                        if <(round (frame)) = [-4]> then\n                                            switch costume to (reverse v)\n                                        else\n                                            if <(round (frame)) = [-5]> then\n                                                switch costume to (front v)\n                                            else\n                                                if <(round (frame)) = [-6]> then\n                                                    switch costume to (stand v)\n                                                else\n                                                    if <<<(round (frame)) > [-10]> and <(round (frame)) < [-6]>> or <<<(round (frame)) > [-14]> and <(round (frame)) < [-11]>> or <<(round (frame)) > [-18]> and <(round (frame)) < [-15]>>>> then\n                                                        switch costume to (prepare v)\n                                                    else\n                                                        if <<<(round (frame)) = [-10]> or <(round (frame)) = [-11]>> or <<<(round (frame)) = [-14]> or <(round (frame)) = [-15]>> or <<(round (frame)) = [-18]> or <(round (frame)) = [-19]>>>> then\n                                                            switch costume to (fire v)\n                                                            if <<<(frame) > [-10.3]> and <(frame) < [-10.1]>> or <<<(frame) > [-14.3]> and <(frame) < [-14.1]>> or <<(frame) > [-18.3]> and <(frame) < [-18.1]>>>> then\n                                                                create clone of (_myself_ v)\n                                                                start sound [Bite v]\n                                                            end\n                                                        else\n                                                            switch costume to (stand v)\n                                                            if <(round (frame)) < [-19]> then\n                                                                set [_doing v] to [0]\n                                                                change [_to v] by (1)\n                                                                set [frame v] to [0]\n                                                                replace item (5) of [controls v] with [0]\n                                                                if <(_To) > ((1) + <(_BossLive) < [2]>)> then\n                                                                    replace item (6) of [controls v] with ((75) + ((25) * (_BossLive)))\n                                                                    create clone of (_myself_ v)\n                                                                end\n                                                            end\n                                                        end\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        else\n                            switch costume to (stand v)\n                        end\n                    end\n                else\n                    if <(speed y) < [0]> then\n                        switch costume to (fall v)\n                    else\n                        switch costume to (jump v)\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nset [clone? v] to [1]\nset rotation style [left-right v]\nif <(item (6) of [controls v]) = [0]> then\n    go to [front v] layer\n    switch costume to (shoot1 v)\n    set [speed x v] to (((-5) - (<(_BossLive) < [2]> * (2))) + (<(direction) > [0]> * ((10) + (<(_BossLive) < [2]> * (4)))))\n    change [x v] by ((speed x) * ((7) - (<(_BossLive) < [2]> * (2))))\nelse\n    go to [back v] layer\n    switch costume to (now v)\nend\nPosition\n\ndefine Boss Movement\nif <(item (6) of [controls v]) > [0]> then\n    Replace of Movement List [0] [0] [0] [0] [0] []\n    if <(falling?) = [0]> then\n        Replace of Movement List [] [] [] [] [] ((item (6) of [controls v]) - (1))\n    end\n    set [_doing v] to [0]\nelse\n    if <(item (6) of [controls v]) > [-1]> then\n        if <(n o t h i n g) = [1]> then\n            Replace of Movement List (<key (j v) pressed?> + (0)) (<key (l v) pressed?> + (0)) (<key (i v) pressed?> + (0)) (<key (k v) pressed?> + (0)) (<key (space v) pressed?> + (0)) []\n        else\n            if <(_Doing) = [0]> then\n                Replace of Movement List [0] [0] [0] [0] [0] []\n                if <(falling?) = [0]> then\n                    add [41] to [new achievments v]\n                    if <(_BossLive) = [3]> then\n                        if <(last) = [0]> then\n                            Set to [1]\n                        end\n                        if <(last) = [1]> then\n                            Set to [2]\n                        end\n                        if <(last) = [2]> then\n                            Set to [3]\n                        end\n                        if <(last) = [3]> then\n                            Set to [Random]\n                        end\n                    else\n                        if <(_BossLive) = [2]> then\n                            if <(last) = [0]> then\n                                Set to [2]\n                            end\n                            if <(last) = [2]> then\n                                Set to [1]\n                            end\n                            if <(last) = [1]> then\n                                Set to [4]\n                            end\n                            if <(last) = [4]> then\n                                Set to [3]\n                            end\n                            if <(last) = [3]> then\n                                Set to [Random]\n                            end\n                        else\n                            if <(last) = [0]> then\n                                Set to [1]\n                            end\n                            if <(last) = [1]> then\n                                Set to [4]\n                            end\n                            if <(last) = [4]> then\n                                Set to [2]\n                            end\n                            if <(last) = [2]> then\n                                Set to [3]\n                            end\n                            if <(last) = [3]> then\n                                Set to [5]\n                            end\n                            if <(last) = [5]> then\n                                Set to [Random]\n                            end\n                        end\n                    end\n                    set [last v] to (_Doing)\n                end\n            end\n            if <(_Doing) = [1]> then\n                if <(item (3) of [player v]) < (x)> then\n                    Replace of Movement List [1] [0] [] [] [] []\n                else\n                    Replace of Movement List [0] [1] [] [] [] []\n                end\n                Replace of Movement List [] [] (<<<<(item (4) of [player v]) > ((y) + (15))> and <(pick random (1) to (25)) = [1]>> or <(pick random (1) to (35)) = [1]>> or <<(item (4) of [player v]) > ((y) + (50))> and <(falling?) > [0]>>> + (0)) [0] [0] []\n                change [_time v] by (-1)\n                if <(_Time) < [1]> then\n                    set [_doing v] to [0]\n                end\n            end\n            if <(_Doing) = [2]> then\n                if <(x) < [0]> then\n                    Replace of Movement List [1] [0] [] [] [] []\n                else\n                    Replace of Movement List [0] [1] [] [] [] []\n                end\n                if <<(x) < [-120]> or <(x) > [120]>> then\n                    if <<(_Times) < [15]> or <(_Times) > [20]>> then\n                        Replace of Movement List [] [] [1] [0] [0] []\n                    else\n                        Replace of Movement List [] [] [0] [0] [0] []\n                    end\n                    change [_times v] by (1)\n                else\n                    Replace of Movement List [] [] [0] [0] [0] []\n                    set [_times v] to [0]\n                end\n                change [_time v] by (-1)\n                if <(_Time) < [1]> then\n                    set [_doing v] to [0]\n                end\n            end\n            if <(_Doing) = [3]> then\n                Replace of Movement List [0] [0] [0] [0] [1] []\n            end\n            if <(_Doing) = [4]> then\n                if <(item (3) of [player v]) < (x)> then\n                    Replace of Movement List [1] [0] [] [] [] []\n                else\n                    Replace of Movement List [0] [1] [] [] [] []\n                end\n                if <(falling?) < [4]> then\n                    change [_times v] by (1)\n                else\n                    set [_times v] to [0]\n                end\n                if <<(super jump) > [40]> or <(_Times) = [0]>> then\n                    Replace of Movement List [] [] [1] [0] [0] []\n                    set [_times v] to [0]\n                else\n                    Replace of Movement List [] [] [0] (<(_Times) > [15]> + (0)) [0] []\n                end\n                change [_time v] by (-1)\n                if <(_Time) < [1]> then\n                    set [_doing v] to [0]\n                end\n            end\n            if <(_Doing) = [5]> then\n                if <(item (3) of [player v]) < (x)> then\n                    Replace of Movement List [1] [0] [] [] [] []\n                else\n                    Replace of Movement List [0] [1] [] [] [] []\n                end\n                Replace of Movement List [] [] (<<<<(item (4) of [player v]) > ((y) + (15))> and <(pick random (1) to (20)) = [1]>> or <(pick random (1) to (30)) = [1]>> or <<(item (4) of [player v]) > ((y) + (50))> and <(falling?) > [0]>>> + (0)) [0] [0] []\n                change [_time v] by (-1)\n                if <(_Time) < [1]> then\n                    set [_doing v] to [0]\n                end\n            end\n        end\n    end\nend\n\ndefine Set to (status)\nif <<(status) = []> or <(status) = [Random]>> then\n    set [_doing v] to (pick random (1) to ((3) + <(_BossLive) < [3]>))\nelse\n    set [_doing v] to (status)\nend\nif <(_Doing) = [1]> then\n    set [_time v] to (pick random (180) to (220))\nend\nif <(_Doing) = [2]> then\n    set [_time v] to (pick random (100) to (150))\n    set [_times v] to [0]\nend\nif <(_Doing) = [4]> then\n    set [_time v] to (pick random (250) to (320))\n    set [_times v] to [0]\nend\nif <(_Doing) = [5]> then\n    set [_time v] to (pick random (200) to (275))\n    set [_times v] to [0]\nend\n\ndefine Replace of Movement List (1) (2) (3) (4) (5) (6)\nif <not <(1) = []>> then\n    replace item (1) of [controls v] with (1)\nend\nif <not <(2) = []>> then\n    replace item (2) of [controls v] with (2)\nend\nif <not <(3) = []>> then\n    replace item (3) of [controls v] with (3)\nend\nif <not <(4) = []>> then\n    replace item (4) of [controls v] with (4)\nend\nif <not <(5) = []>> then\n    replace item (5) of [controls v] with (5)\nend\nif <not <(6) = []>> then\n    replace item (6) of [controls v] with (6)\nend\n\n