☁️Nature's square 2 || A multiplayer pen platformer

Instructions: ==============Nature's square 2=============\n-------------------Multiplayer pen platformer-------------------\n\n                                   - Notice - \nThis is reshared for making some updates and not for fame! Please understand! Thanks!\n                                - Information - \nHey, everyone! Welcome to my Latest game! :D This is part 2 of my other game!\nMake sure you play part 1 before you play this! :D\nPART 1 - https://scratch.mit.edu/projects/422034218/ .\n\nCan we get trending/top loved/top remixed?\n\nPart 3 if this gets over 1500 loves, and if its gets, trending/top loved/top remixed! :D           \n                             - DISCLAMIER! -\n\nTHIS GAME MAY LAG, SO TO GET RID OF THE LAG PLEASE PLAY THIS GAME HERE - \nhttps://turbowarp.org/#430442354 .\n        \n                                    - Controls - \nArrow keys to move.. Mobile friendly.\nSpace to change the pen cloud type!\n"N" to toggle names.\nDon't touch red or you'll die/\nClick on the skip button to skip.\nClick on the reset button to reset.\nBlue is water.\nTouch yellow to bounce!\nThere are teleporters! Touch purple to teleport yourself! :D\nTouch blue to swim in Water! :D\n\n                               - Other servers - \nIf this game if full, don't worry! You can always use server 2 which is here - link - https://scratch.mit.edu/projects/431538481/\n\n                                    - News -\n(30 September 2020) - Project shared!\n\n                                    - Credits - \n1. Thanks to @Capt_Bonarges for the music!\n2. Thanks to @Griffpatch for the platformer engine\n3. Thanks to @stlcards422 for the cloud engine(I made it pen!)\n4. Thanks to @GonSanVi for tons of inspiration and for 30% Graphics!(the clouds, tree, grass and rock!)\n5. Thanks to @ColorOfCode for the contest!(hope I win!)\n6. Thanks to @StratfordJames for the background art.\n7. Thanks a ton to @GonSanVi and @Game-Cloud for sooooo much inspiration! :)\n8. Thanks to @the_bee_1234 and @GravityV for being my best friends! :DD\n9. Thanks to @tennisboy188 for the into.\n\nGo follow them now! :)\nOthers all by me! :D\nPlease love/fav and follow for part 3.

@Stage\n\nwhen flag clicked\nset [@level v] to [1]\n\nforever\n    play sound [TheFatRat - Time Lapse v] until done\nend\n\nwhen [space v] key pressed\nhide variable [mouse v]\nif <(username) = [suhalo_351]> then\n    show variable [mouse v]\n    set [mouse v] to (join (mouse x) (join [, ] (mouse y)))\nelse\n    hide variable [mouse v]\nend\n\nwhen I receive [begin v]\n\nwhen I receive [begin v]\nset [@level v] to [1]\n\nwhen flag clicked\nclear sound effects\nstop all sounds\n\nwhen I receive [begin v]\nforever\n    play sound [Saving Nature v] until done\nend\n\nwhen I receive [begin v]\nforever\n    play sound [Nature Ambiance-SoundBible v] until done\nend\n\n@Blank\n\n@Opponents\n\nbroadcast (begin v)\n\ndefine begin decode of (encode)\nset [encodied v] to (encode)\nset [letter # v] to [1]\n\ndefine value=read from encode\nset [value v] to []\nforever\n    set [idx v] to (join (letter (letter #) of (encodied)) (letter ((letter #) + (1)) of (encodied)))\n    change [letter # v] by (2)\n    if <(idx) < [1]> then\n        stop [this script v]\n    end\n    set [value v] to (join (value) (item (idx) of [code v]))\nend\n\ndefine setup players\nset [color v] effect to (0)\nset [offline v] to [100]\nhide\nset [player # v] to [1]\nrepeat ((MAX PLAYERS) - (1))\n    create clone of (_myself_ v)\n    change [player # v] by (1)\nend\n\nwhen I receive [begin v]\nforever\n    if <(My Player #) = (player #)> then\n        hide\n        set [offline v] to [100]\n    else\n        tick\n    end\nend\n\nchange [ghost v] effect by (1)\n\ndefine value=Cloud # (player)\nif <(player) = [1]> then\n    set [value v] to (☁ P1)\nelse\n    if <(player) = [2]> then\n        set [value v] to (☁ P2)\n    else\n        if <(player) = [3]> then\n            set [value v] to (☁ P3)\n        else\n            if <(player) = [4]> then\n                set [value v] to (☁ P4)\n            else\n                if <(player) = [5]> then\n                    set [value v] to (☁ p5)\n                else\n                    if <(player) = [6]> then\n                        set [value v] to (☁ p6)\n                    else\n                        if <(player) = [7]> then\n                            set [value v] to (☁ p7)\n                        else\n                            if <(player) = [8]> then\n                                set [value v] to (☁ p8)\n                            else\n                                if <(player) = [9]> then\n                                    set [value v] to (☁ P9)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [setups v]\nsetup players\n\ndefine tick\nset rotation style [left-right v]\nvalue=Cloud # (player #)\nif <(join [A] (value)) = (last value)> then\n    change [offline v] by (1)\n    if <(offline) = [100]> then\n        hide\n    end\nelse\n    set [last value v] to (join [A] (value))\n    if <(offline) > [99]> then\n        show\n    end\n    set [offline v] to [0]\nend\nbegin decode of (value)\nvalue=read from encode\nif <(Names...) = [1]> then\n    say (join (player #) (join [:] (value)))\nelse\n    say []\nend\nvalue=read from encode\nvalue=read from encode\nset x to (value)\nvalue=read from encode\nset y to (value)\nvalue=read from encode\nif <(value) = (@LEVEL)> then\n    set [ghost v] effect to (0)\nelse\n    say []\n    set [ghost v] effect to (100)\nend\nvalue=read from encode\npoint in direction (value)\n\nwhen I receive [join game v]\nvalue=Cloud # (player #)\nset [last value v] to (join [A] (value))\nwait (3) seconds\nvalue=Cloud # (player #)\nif <(join [A] (value)) = (last value)> then\n    set [my player # v] to (player #)\nend\n\n@ALL PEN\n\nwhen flag clicked\nhide\n\nset [@level v] to [17]\n\nchange [@level v] by (1)\n\nwhen I receive [begin v]\nshow\n\nwhen I receive [transition v]\n\ndefine Draw line from x: (from x) y: (from y) to x: (to x) y: (to y) with pen thickness : (thickness) Type : (type)\nset pen size to (thickness)\nif <(type) = [l]> then\n    set pen color to (#ff0000)\nelse\n    if <(type) = [g]> then\n        set pen color to (#3fff00)\n    else\n        if <(type) = [b]> then\n            set pen color to (#ffe900)\n        else\n            if <(type) = [g1]> then\n                set pen color to (#00d006)\n            else\n                if <(type) = [g2]> then\n                    set pen color to (#987400)\n                else\n                    if <(type) = [W]> then\n                        set pen color to (#2bc2ff)\n                    end\n                end\n            end\n        end\n    end\nend\ngo to x: (from x) y: (from y)\npen down\ngo to x: (to x) y: (to y)\npen up\n\ndefine Draw Ground\nDraw line from x: [-250] y: [-95] to x: [250] y: [-95] with pen thickness : [20] Type : [g]\nDraw line from x: [-250] y: [-115] to x: [250] y: [-115] with pen thickness : [25] Type : [g1]\nDraw line from x: [-250] y: [-150] to x: [250] y: [-150] with pen thickness : [70] Type : [g2]\nrock at [-127] [-145]\nrock at [13] [-174]\nrock at [81] [-139]\n\ndefine cloud mode 2 (x) (y)\npen up\nset pen color to (#ffffff)\ngo to x: ((x) - (55)) y: ((y) - (10))\nset pen size to (30)\npen down\ngo to x: ((x) - (-35)) y: ((y) - (10))\npen up\ngo to x: ((x) - (35)) y: ((y) - (-15))\nset pen size to (30)\npen down\ngo to x: ((x) - (-55)) y: ((y) - (-15))\npen up\n\ndefine add moving cloud y (y) speed (speed)\nif <not <(speed) = [0]>> then\n    add (y) to [cloud y v]\n    add (speed) to [cloud speed v]\n    if <(speed) > [0]> then\n        add [-250] to [cloud x v]\n    else\n        add [250] to [cloud x v]\n    end\nend\n\ndefine render and move clouds\nset [counter v] to [0]\nrepeat (length of [cloud x v])\n    change [counter v] by (1)\n    replace item (counter) of [cloud x v] with ((item (counter) of [cloud x v]) + (item (counter) of [cloud speed v]))\n    if <([abs v] of (item (counter) of [cloud x v]) ) > [250]> then\n        delete (counter) of [cloud speed v]\n        delete (counter) of [cloud x v]\n        delete (counter) of [cloud y v]\n    end\nend\nset [counter v] to [0]\nrepeat (length of [cloud x v])\n    change [counter v] by (1)\n    if <(Cloud type!) = [2]> then\n        cloud mode 2 (item (counter) of [cloud x v]) (item (counter) of [cloud y v])\n    else\n        if <(Cloud type!) = [1]> then\n            cloud mode 1 (item (counter) of [cloud x v]) (item (counter) of [cloud y v])\n        else\n            cloud mode 3 (item (counter) of [cloud x v]) (item (counter) of [cloud y v])\n        end\n    end\nend\n\ndefine tree at(type 1) (x) (y)\npen up\nset pen size to (20)\nset pen color to (#c57316)\ngo to x: (x) y: (y)\npen down\nchange y by (75)\nset pen color to (#4fbf4c)\nset pen size to (100)\nchange y by (50)\npen up\n\ndefine rock at (x) (y)\npen up\nset pen size to (20)\nset pen color to (#8e8e8e)\ngo to x: (x) y: (y)\npen down\nset pen size to (15)\nset pen color to (#8e8e8e)\nchange y by (-2.5)\nchange x by (-10)\npen up\n\ndefine grass at (x) (y)\npen up\nset pen size to (10)\nset pen color to (#56d253)\ngo to x: (x) y: (y)\npen down\ngo to x: ((x) + (12)) y: ((y) + (18))\ngo to x: (x) y: (y)\ngo to x: ((x) + (-12)) y: ((y) + (18))\ngo to x: (x) y: (y)\ngo to x: (x) y: ((y) + (23))\npen up\n\nwhen I receive [begin v]\nforever\n    add moving cloud y (pick random (50) to (150)) speed (pick random (-5) to (5))\n    wait (pick random (3.5) to (5)) seconds\nend\n\nwhen I receive [begin v]\nforever\n    if <(@LEVEL) = [1]> then\n        erase all\n        render and move clouds\n        Draw line from x: [0] y: [0] to x: [-108] y: [-114] with pen thickness : [30] Type : [g]\n        grass at [-12] [-86]\n        Flower at x: [148] y: [-100]\n        Flower at x: [-130] y: [-120]\n        Type 4 tree at x: [191] y: [-100]\n        grass at [173] [-85]\n        tree at(type 1) [-181] [-80]\n        Draw line from x: [129] y: [-82] to x: [220] y: [-82] with pen thickness : [30] Type : [b]\n        Draw end point at x: [159] y: [94]\n        Draw line from x: [-4] y: [0] to x: [103] y: [-92] with pen thickness : [30] Type : [g]\n        Draw Ground\n    end\n    if <(@LEVEL) = [2]> then\n        erase all\n        render and move clouds\n        Draw line from x: [0] y: [-87] to x: [0] y: [90] with pen thickness : [30] Type : [b]\n        Draw line from x: [19] y: [-87] to x: [19] y: [90] with pen thickness : [20] Type : [g]\n        Draw line from x: [33] y: [145] to x: [150] y: [145] with pen thickness : [30] Type : [b]\n        Draw line from x: [-59] y: [166] to x: [200] y: [166] with pen thickness : [30] Type : [g]\n        Type 3 tree at x: [155] y: [-100]\n        Draw end point at x: [193] y: [29]\n        rock at [-78] [-75]\n        Tree type 2! At x: [-207] y: [-100]\n        rock at [121] [-75]\n        Draw Ground\n    end\n    if <(@LEVEL) = [3]> then\n        erase all\n        render and move clouds\n        Draw line from x: [35] y: [-202] to x: [35] y: [140] with pen thickness : [30] Type : [b]\n        Draw line from x: [27] y: [-202] to x: [27] y: [140] with pen thickness : [30] Type : [g]\n        Flower at x: [-86] y: [-100]\n        Tree type 2! At x: [180] y: [-90]\n        rock at [-12] [-75]\n        rock at [200] [-75]\n        rock at [-181] [-75]\n        grass at [-35] [-80]\n        grass at [150] [-80]\n        Flower at x: [100] y: [-110]\n        stretching platforms(moving) at x: [167] y: [70]\n        Type 3 tree at x: [-200] y: [-100]\n        Draw end point at x: [202] y: [119]\n        Draw Ground\n    end\n    if <(@LEVEL) = [4]> then\n        erase all\n        render and move clouds\n        Flower at x: [-192] y: [-110]\n        tree at(type 1) [-100] [-80]\n        rock at [-195] [-75]\n        Type 4 tree at x: [210] y: [-92]\n        Draw line from x: [-100] y: [-75] to x: [0] y: [-75] with pen thickness : [30] Type : [b]\n        Draw line from x: [0] y: [-100] to x: [0] y: [50] with pen thickness : [30] Type : [g]\n        Draw end point at x: [182] y: [137]\n        Draw line from x: [32] y: [-75] to x: [185] y: [-75] with pen thickness : [30] Type : [b]\n        Draw line from x: [-210] y: [110] to x: [-50] y: [110] with pen thickness : [30] Type : [l]\n        Draw line from x: [-229] y: [118] to x: [-50] y: [118] with pen thickness : [30] Type : [g]\n        Draw Ground\n    end\n    if <(@LEVEL) = [5]> then\n        erase all\n        grass at [161] [16]\n        render and move clouds\n        Draw line from x: [-120] y: [-93] to x: [0] y: [0] with pen thickness : [30] Type : [g]\n        Draw line from x: [0] y: [0] to x: [210] y: [0] with pen thickness : [30] Type : [g]\n        Draw end point at x: [9] y: [-54]\n        Flower at x: [100] y: [-110]\n        grass at [124] [-80]\n        Tree type 2! At x: [-207] y: [-84]\n        rock at [206] [-75]\n        rock at [-160] [-79]\n        grass at [-227] [-80]\n        rock at [44] [23]\n        Draw Ground\n    end\nend\n\ntree at(type 1) [140] [-75]\nrock at [45] [-80]\nrock at [-170] [-80]\ngrass at [-85] [-80]\ngrass at [215] [-80]\ngrass at [-200] [-80]\nrock at [0] [-150]\nrock at [169] [-133]\n\nrock at [-40] [-150]\nrock at [50] [-160]\nrock at [-1220] [-800]\nrock at [-155] [-77]\nDraw line from x: [-68] y: [-13] to x: [-60] y: [-13] with pen thickness : [10] Type : [g]\n\ndefine Draw end point at x: (x) y: (y)\npen up\nset pen color to (#7f00ff)\nset pen size to (30)\ngo to x: (x) y: ((y) + ((10) * ([sin v] of ((tick) * (10)) )))\npen down\npen up\n\npen up\nset pen size to (30)\ngo to x: (x) y: (y)\npen down\npen up\n\nwhen I receive [begin v]\nset [cloud type! v] to [3]\nforever\n    if <key (space v) pressed?> then\n        if <(Cloud type!) = [2]> then\n            set [cloud type! v] to [1]\n        else\n            if <(Cloud type!) = [3]> then\n                set [cloud type! v] to [2]\n            else\n                set [cloud type! v] to [3]\n            end\n        end\n        wait until <not <key (space v) pressed?>>\n    end\nend\n\nwhen I receive [begin v]\nforever\n    change [tick v] by (1)\nend\n\nwhen flag clicked\nset [tick v] to [0]\n\ndefine Draw moving platforms at (x:) y: (y)\npen up\nset pen color to (#3fff00)\nset pen size to (14)\ngo to x: ((x:) + (0)) y: ((y) + ((0.25) * (Moving platforms)))\npen down\ngo to x: ((x:) + (0)) y: ((y) + (((0.25) * (Moving platforms)) - (100)))\npen up\n\ndefine cloud mode 1 (x) (y)\nset pen color to (#ffffff)\npen up\ngo to x: ((x) - (35)) y: (y)\nset pen size to (25)\npen down\ngo to x: ((x) - (-35)) y: (y)\npen up\ngo to x: ((x) - (35)) y: ((y) - (-15))\nset pen size to (55)\npen down\npen up\ngo to x: ((x) - (-5)) y: ((y) - (-15))\nset pen size to (40)\npen down\npen up\n\nwhen I receive [begin v]\nset [moving platforms v] to [0]\nforever\n    repeat (10)\n        change [moving platforms v] by (10)\n    end\n    repeat (20)\n        change [moving platforms v] by (-10)\n    end\n    repeat (10)\n        change [moving platforms v] by (10)\n    end\nend\n\ndefine Tree type 2! At x: (x) y: (y)\npen up\nset pen size to (20)\nset pen color to (#c57215)\ngo to x: (x) y: (y)\npen down\ngo to x: (x) y: ((y) + (55))\nset pen size to (49)\nset pen color to (#4fbf4c)\npen up\npen down\ngo to x: ((x) - (35)) y: ((y) + (55))\ngo to x: (x) y: ((y) + (160))\ngo to x: ((x) + (35)) y: ((y) - (-55))\ngo to x: (x) y: ((-45) - (y))\npen up\npen up\nset pen size to (29)\nset pen color to (#4fbf4c)\npen up\npen down\ngo to x: ((x) + (35)) y: ((y) + (45))\ngo to x: (x) y: ((y) + (45))\npen up\n\nwhen I receive [begin v]\nset [hori var v] to [0]\nforever\n    repeat (40)\n        change [hori var v] by (5)\n    end\n    wait (.7) seconds\n    repeat (40)\n        change [hori var v] by (-5)\n    end\n    wait (.7) seconds\nend\n\nwhen I receive [begin v]\nset [ver var v] to [0]\nforever\n    repeat (40)\n        change [ver var v] by (4)\n    end\n    wait (.7) seconds\n    repeat (40)\n        change [ver var v] by (-4)\n    end\n    wait (.7) seconds\nend\n\ndefine stretching platforms(moving) at x: (x) y: (y)\npen up\nset pen color to (#3fff00)\nset pen size to (14)\ngo to x: ((x) + (0.5)) y: ((y) + ((0.8) * (Moving platforms)))\npen down\ngo to x: ((x) + (0.1)) y: ((y) + (((.001) * (Moving platforms)) - (0.01)))\npen up\n\nforever\n    pen up\n    set pen color to (#3fff00)\n    set pen size to (14)\n    go to x: ((x) + (0.5)) y: ((y) + ((0.5) * (Moving platforms)))\n    pen down\n    go to x: ((x) + (0.1)) y: ((y) + (((70) * (Moving platforms)) - (0.01)))\n    pen up\nend\n\nif <not <(@LEVEL) = [15]>> then\n\nDraw Ground\n\nwhen I receive [begin v]\n\nset [________@@@@skip button v] to [no]\nforever\n    if <not <(@LEVEL) = [21]>> then\n        pen up\n        set pen color to (#ff0000)\n        if <(________@@@@Skip button) = [no]> then\n            set pen size to (20)\n        else\n            set pen size to (30)\n        end\n        go to x: (-210) y: (-140)\n        pen down\n        change x by (40)\n        change y by (-20)\n        change x by (-40)\n        change y by (20)\n        pen up\n    end\nend\n\nbroadcast (Print skip v)\n\nbroadcast (Print skip v)\n\nwhen I receive [begin v]\n\nchange y by (-10)\npen down\nchange x by (-10)\npen up\ngo to x: (198) y: (-165)\npen down\n\nrender and move clouds\n\nTree type 2! At x: [-202] y: [-117]\n\nrock at [] []\n\nwhen I receive [begin v]\n\nforever\n    if <(@LEVEL) = [21]> then\n        broadcast (8 v)\n    end\nend\n\ndefine Flower at x: (x) y: (y)\npen up\ngo to x: (x) y: (y)\npen down\nset pen color to (#ca8b9a)\nset pen size to (10)\nchange y by (70)\nset pen color to (#ff3200)\npen down\nset pen size to (40)\npen down\nset pen color to (#ffd000)\nset pen size to (20)\ngo to x: (x) y: ((y) + (70))\npen up\n\ndefine Type 3 tree at x: (x) y: (y)\npen up\ngo to x: (x) y: (y)\nset pen color to (#987400)\nset pen size to (25)\npen down\nchange y by (110)\nset pen color to (#00ff2e)\nset pen size to (70)\npen down\npen up\nset pen color to (#00ff2d)\nset pen size to (70)\npen down\nchange x by (-20)\nchange y by (85)\nchange x by (40)\nchange y by (-85)\npen up\n\nType 3 tree at x: [0] y: [-100]\n\ndefine Type 4 tree at x: (x) y: (y)\npen up\ngo to x: ((x) + (0)) y: (y)\npen down\nset pen color to (#987400)\nset pen size to (25)\npen down\nchange y by (110)\npen up\nchange x by (20)\nchange y by (20)\nset pen color to (#1dff00)\nset pen size to (80)\npen down\npen up\nset pen color to (#36d800)\nchange x by (0)\nchange y by (30)\npen down\npen up\nset pen color to (#a5ff00)\nchange x by (-20)\nchange y by (20)\npen down\npen up\nset pen color to (#d4ff00)\nchange x by (-25)\nchange y by (-10)\npen down\npen up\nset pen color to (#fffa7f)\nchange x by (0)\nchange y by (-25)\npen down\npen up\nset pen color to (#7fff00)\nchange x by (15)\nchange y by (-25)\npen down\npen up\ngo to x: ((x) + (0)) y: (y)\nset pen color to (#c57215)\nset pen size to (25)\npen down\nchange y by (80)\npen up\n\nLevel 1\n\nDraw Ground\n\nwhen I receive [begin v]\nforever\n    if <(@LEVEL) = [6]> then\n        erase all\n        render and move clouds\n        Draw line from x: [94] y: [-105] to x: [-50] y: [0] with pen thickness : [30] Type : [g]\n        Draw line from x: [-50] y: [0] to x: [210] y: [125] with pen thickness : [30] Type : [g]\n        Draw end point at x: [87] y: [-25]\n        grass at [196] [-80]\n        Flower at x: [132] y: [-99]\n        rock at [224] [-75]\n        rock at [-19] [-75]\n        grass at [-107] [-80]\n        Type 3 tree at x: [-194] y: [-97]\n        stretching platforms(moving) at x: [150] y: [-27]\n        Draw line from x: (Hori var) y: [100] to x: ((Hori var) + (20)) y: [100] with pen thickness : [30] Type : [g]\n        Flower at x: [-171] y: [-110]\n        Draw Ground\n    end\n    if <(@LEVEL) = [7]> then\n        erase all\n        Draw line from x: [95] y: [-85] to x: [220] y: [-85] with pen thickness : [30] Type : [b]\n        render and move clouds\n        Draw line from x: [-111] y: [-109] to x: [0] y: [0] with pen thickness : [30] Type : [g]\n        Draw line from x: [111] y: [-109] to x: [0] y: [0] with pen thickness : [30] Type : [g]\n        Draw line from x: [0] y: [180] to x: [0] y: [70] with pen thickness : [30] Type : [g]\n        Draw end point at x: [166] y: [67]\n        grass at [-129] [-80]\n        tree at(type 1) [-164] [-83]\n        rock at [-164] [-87]\n        Flower at x: [207] y: [-110]\n        Flower at x: [-211] y: [-100]\n        rock at [27] [-75]\n        grass at [-11] [-80]\n        Draw Ground\n    end\n    if <(@LEVEL) = [8]> then\n        erase all\n        Type 3 tree at x: [211] y: [-104]\n        render and move clouds\n        Tree type 2! At x: [-123] y: [-102]\n        Draw line from x: [-63] y: [-41] to x: [6] y: [-43] with pen thickness : [20] Type : [g]\n        Draw line from x: [95] y: [13] to x: [120] y: [13] with pen thickness : [20] Type : [g]\n        Draw line from x: [221] y: [113] to x: [230] y: [113] with pen thickness : [20] Type : [g]\n        rock at [103] [32]\n        Draw line from x: [-75] y: [122] to x: [0] y: [122] with pen thickness : [20] Type : [g]\n        grass at [-4] [-93]\n        rock at [163] [-75]\n        rock at [-46] [-75]\n        Flower at x: [-220] y: [-110]\n        Draw end point at x: [-203] y: [101]\n        Flower at x: [200] y: [-100]\n        grass at [93] [-82]\n        Draw Ground\n    end\n    if <(@LEVEL) = [9]> then\n        erase all\n        render and move clouds\n        grass at [-20] [89]\n        Flower at x: [44] y: [-104]\n        rock at [-88] [95]\n        Draw line from x: [85] y: [60] to x: [-210] y: [60] with pen thickness : [30] Type : [l]\n        Draw line from x: [85] y: [-109] to x: [85] y: [65] with pen thickness : [30] Type : [g]\n        Draw line from x: [-240] y: [-30] to x: [20] y: [-30] with pen thickness : [30] Type : [g]\n        Draw line from x: [85] y: [75] to x: [-210] y: [75] with pen thickness : [30] Type : [g]\n        Flower at x: [129] y: [-101]\n        tree at(type 1) [164] [-85]\n        rock at [-137] [-75]\n        rock at [211] [-80]\n        Draw end point at x: [164] y: [53]\n        Draw Ground\n    end\n    if <(@LEVEL) = [10]> then\n        erase all\n        render and move clouds\n        Draw line from x: [-129] y: [-85] to x: [0] y: [-85] with pen thickness : [30] Type : [l]\n        Draw line from x: [81] y: [-85] to x: [220] y: [-85] with pen thickness : [30] Type : [l]\n        Draw end point at x: [193] y: [12]\n        Flower at x: [-225] y: [-108]\n        grass at [35] [-91]\n        Draw Ground\n    end\nend\n\nwhen I receive [begin v]\nhide\nforever\n    if <(@LEVEL) = [11]> then\n        erase all\n        render and move clouds\n        Tree type 2! At x: [-179] y: [-98]\n        Draw line from x: [-80] y: [-50] to x: [220] y: [-50] with pen thickness : [140] Type : [w]\n        Draw line from x: [-153] y: [12] to x: [222] y: [12] with pen thickness : [20] Type : [w]\n        Draw line from x: [-147] y: [50] to x: [-147] y: [-140] with pen thickness : [35] Type : [g]\n        Draw end point at x: [180] y: [121]\n        grass at [182] [-80]\n        rock at [-106] [-75]\n        Flower at x: [-222] y: [-110]\n        Draw Ground\n    end\n    if <(@LEVEL) = [12]> then\n        erase all\n        render and move clouds\n        Draw line from x: [-168] y: [-101] to x: [-168] y: [-50] with pen thickness : [30] Type : [g]\n        Draw line from x: [-90] y: [-86] to x: [90] y: [-86] with pen thickness : [30] Type : [l]\n        Draw end point at x: [189] y: [49]\n        rock at [-194] [-75]\n        Draw Ground\n    end\n    if <(@LEVEL) = [13]> then\n        erase all\n        render and move clouds\n        Tree type 2! At x: [124] y: [-80]\n        Draw line from x: [-161] y: [-11] to x: [0] y: [-11] with pen thickness : [30] Type : [w]\n        Draw line from x: [-120] y: [-50] to x: [-50] y: [-50] with pen thickness : [100] Type : [w]\n        Draw line from x: [-168] y: [-101] to x: [-168] y: [20] with pen thickness : [30] Type : [g]\n        Draw line from x: [0] y: [-101] to x: [0] y: [20] with pen thickness : [30] Type : [g]\n        Draw line from x: [65] y: [-11] to x: [150] y: [-11] with pen thickness : [30] Type : [g]\n        Draw line from x: [65] y: [-20] to x: [150] y: [-20] with pen thickness : [30] Type : [l]\n        Draw end point at x: [207] y: [-17]\n        grass at [60] [-80]\n        rock at [133] [-75]\n        Flower at x: [-215] y: [-100]\n        Draw Ground\n    end\n    if <(@LEVEL) = [14]> then\n        erase all\n        render and move clouds\n        tree at(type 1) [-2] [-97]\n        Draw line from x: [0] y: [0] to x: [180] y: [0] with pen thickness : [30] Type : [w]\n        Draw line from x: [50] y: [-50] to x: [160] y: [-50] with pen thickness : [100] Type : [w]\n        Draw line from x: [-161] y: [-11] to x: [0] y: [-11] with pen thickness : [30] Type : [l]\n        Draw line from x: [-120] y: [-50] to x: [-50] y: [-50] with pen thickness : [100] Type : [l]\n        Draw line from x: [-168] y: [-101] to x: [-168] y: [20] with pen thickness : [30] Type : [g]\n        Draw line from x: [0] y: [-101] to x: [0] y: [20] with pen thickness : [30] Type : [g]\n        Draw line from x: [200] y: [-101] to x: [200] y: [20] with pen thickness : [30] Type : [g]\n        Draw end point at x: [208] y: [106]\n        Flower at x: [228] y: [-100]\n        grass at [-220] [-80]\n        rock at [-219] [-75]\n        Draw Ground\n    end\n    if <(@LEVEL) = [15]> then\n        erase all\n        render and move clouds\n        Flower at x: [-7] y: [-105]\n        Type 3 tree at x: [-190] y: [-100]\n        tree at(type 1) [-74] [-90]\n        Tree type 2! At x: [218] y: [-101]\n        Type 3 tree at x: [64] y: [-111]\n        Draw end point at x: [177] y: [31]\n        grass at [-135] [-80]\n        Draw Ground\n    end\n    if <(@LEVEL) = [16]> then\n        erase all\n        render and move clouds\n        tree at(type 1) [185] [-85]\n        Type 3 tree at x: [-205] y: [-116]\n        Draw line from x: [0] y: (Ver var) to x: [0] y: (Ver var) with pen thickness : [30] Type : [l]\n        Draw line from x: [-130] y: [100] to x: [0] y: [0] with pen thickness : [30] Type : [g]\n        Draw line from x: [130] y: [100] to x: [0] y: [0] with pen thickness : [30] Type : [g]\n        Draw line from x: [180] y: [0] to x: [200] y: [0] with pen thickness : [30] Type : [g]\n        Draw end point at x: [-63] y: [131]\n        rock at [-50] [-75]\n        grass at [0] [-80]\n        Flower at x: [-199] y: [-110]\n        Draw Ground\n    end\n    if <(@LEVEL) = [17]> then\n        erase all\n        render and move clouds\n        Teleporter at x: [-100] [0] [s]\n        Draw line from x: [0] y: [-118] to x: [0] y: [180] with pen thickness : [30] Type : [g]\n        Teleporter at x: [50] [0] [f]\n        Tree type 2! At x: [-211] y: [-80]\n        Draw end point at x: [201] y: [41]\n        rock at [-119] [-75]\n        grass at [-48] [-80]\n        Flower at x: [-167] y: [-105]\n        Flower at x: [95] y: [-105]\n        grass at [220] [-80]\n        rock at [121] [-75]\n        Draw Ground\n    end\n    if <(@LEVEL) = [18]> then\n        erase all\n        render and move clouds\n        tree at(type 1) [0] [-80]\n        pen up\n        go to x: (-239) y: (50)\n        set pen size to (30)\n        set pen color to (#3fff00)\n        pen down\n        go to x: (240) y: (50)\n        pen up\n        Teleporter at x: [165] [-60] [s]\n        Teleporter at x: [-204] [90] [f]\n        Draw end point at x: [137] y: [132]\n        grass at [55] [-89]\n        rock at [-131] [-80]\n        rock at [169] [-80]\n        Flower at x: [-199] y: [-100]\n        rock at [120] [70]\n        Draw Ground\n    end\n    if <(@LEVEL) = [19]> then\n        erase all\n        render and move clouds\n        Draw line from x: [70] y: [-117] to x: [70] y: [50] with pen thickness : [30] Type : [l]\n        Draw line from x: [145] y: [179] to x: [145] y: [0] with pen thickness : [30] Type : [l]\n        Draw line from x: [55] y: [-117] to x: [55] y: [50] with pen thickness : [30] Type : [g]\n        Draw line from x: [160] y: [179] to x: [160] y: [0] with pen thickness : [30] Type : [g]\n        stretching platforms(moving) at x: [0] y: [0]\n        Draw end point at x: [208] y: [59]\n        grass at [10] [-80]\n        rock at [-210] [-75]\n        Flower at x: [-133] y: [-100]\n        Type 3 tree at x: [-199] y: [-105]\n        Flower at x: [197] y: [-109]\n        Draw Ground\n    end\n    if <(@LEVEL) = [20]> then\n        erase all\n        render and move clouds\n        Draw Ground\n    end\nend\n\ngrass at [] []\n\ndefine Teleporter at x: (x) (y) (type)\npen up\ngo to x: (x) y: ((y) + ((10) * ([sin v] of ((tick) * (10)) )))\nif <(type) = [s]> then\n    set pen color to (#ff00f6)\nend\nif <(type) = [f]> then\n    set pen color to (#ff0cf6)\nend\nset pen size to (30)\npen down\nchange x by (50)\nchange y by (60)\nchange x by (-50)\nchange y by (-60)\npen up\n\ndefine Level 1\n\nDraw line from x: [-239] y: [50] to x: [240] y: [50] with pen thickness : [30] Type : [g]\n\nset [@level v] to [18]\n\nset [________@@@@skip button v] to [Not Clicked]\nforever\n    if <(distance to [mouse-pointer v]) < [40]> then\n        set [________@@@@skip button v] to [Clicked! Change level!]\n    else\n        set [________@@@@skip button v] to [Not Clicked]\n    end\n    if <<(distance to [mouse-pointer v]) < [40]> and <mouse down?>> then\n        set [________@@@@skip button v] to [Not Clicked]\n        wait (0.5) seconds\n        broadcast (Reset v)\n        change [@level v] by (1)\n    end\nend\n\nset pen size to (30)\n\nwhen I receive [begin v]\nset [________@@@@skip button v] to [no]\nforever\n    if <not <(@LEVEL) = [21]>> then\n        if <<<(mouse x) > [-220]> and <[-140] > (mouse x)>> and <<(mouse y) > [-170]> and <[-125] > (mouse y)>>> then\n            set [________@@@@skip button v] to [yes]\n            if <mouse down?> then\n                wait until <not <mouse down?>>\n                change [@level v] by (1)\n                broadcast (Reset v)\n            end\n        else\n            set [________@@@@skip button v] to [no]\n        end\n    end\nend\n\nwhen I receive [begin v]\nhide\ndelete all of [cloud speed v]\ndelete all of [cloud x v]\ndelete all of [cloud y v]\n\nwhen I receive [begin v]\nforever\n    if <<(@LEVEL) > [0]> and <not <(@LEVEL) = [21]>>> then\n        pen up\n        set pen color to (#ff0000)\n        if <(________@@@@Skip button) = [no]> then\n            set pen size to (20)\n        else\n            set pen size to (30)\n        end\n        go to x: (-210) y: (-140)\n        pen down\n        change x by (40)\n        change y by (-20)\n        change x by (-40)\n        change y by (20)\n        pen up\n    end\nend\n\nwhen I receive [begin v]\nforever\n    if <(@LEVEL) = [20]> then\n        erase all\n        render and move clouds\n        tree at(type 1) [207] [-104]\n        grass at [19] [14]\n        Tree type 2! At x: [-92] y: [-90]\n        rock at [-66] [20]\n        Draw line from x: [-240] y: [0] to x: [2230] y: [0] with pen thickness : [25] Type : [g]\n        Draw line from x: [-190] y: [70] to x: [2230] y: [140] with pen thickness : [25] Type : [g]\n        Teleporter at x: [150] [-80] [s]\n        Teleporter at x: [130] [40] [f]\n        Draw end point at x: [-166] y: [148]\n        Flower at x: [45] y: [-101]\n        grass at [-199] [-80]\n        rock at [-137] [-75]\n        Draw Ground\n    end\n    if <(@LEVEL) = [21]> then\n        erase all\n        render and move clouds\n        Draw Ground\n    end\nend\n\nwhen I receive [begin v]\nset [_______________________________reset button v] to [no]\nforever\n    if <not <(@LEVEL) = [21]>> then\n        if <<<(mouse x) > [-120]> and <[-70] > (mouse x)>> and <<(mouse y) > [-170]> and <[-125] > (mouse y)>>> then\n            set [_______________________________reset button v] to [yes]\n            if <mouse down?> then\n                wait until <not <mouse down?>>\n                broadcast (Reset v)\n            end\n        else\n            set [_______________________________reset button v] to [no]\n        end\n    end\nend\n\nwhen I receive [begin v]\nforever\n    if <<[0] < (@LEVEL)> and <not <(@LEVEL) = [21]>>> then\n        pen up\n        set pen color to (#ff0000)\n        if <(_______________________________Reset button) = [no]> then\n            set pen size to (20)\n        else\n            set pen size to (30)\n        end\n        go to x: (-130) y: (-140)\n        pen down\n        change x by (50)\n        change y by (-20)\n        change x by (-50)\n        change y by (20)\n        pen up\n    end\nend\n\nwhen I receive [begin v]\nbroadcast (Print skip v)\nbroadcast (Print reset v)\nbroadcast (8 v)\n\nwhen flag clicked\nset [hori var v] to [0]\n\nset [@level v] to [19]\n\nwhen I receive [begin v]\nforever\n    if <<(@LEVEL) = [20]> and <not <(@LEVEL) = [21]>>> then\n        pen up\n        set pen color to (#ff0000)\n        if <(________@@@@Skip button) = [no]> then\n            set pen size to (20)\n        else\n            set pen size to (30)\n        end\n        go to x: (-210) y: (-140)\n        pen down\n        change x by (40)\n        change y by (-20)\n        change x by (-40)\n        change y by (20)\n        pen up\n    end\nend\n\ndefine cloud mode 3 (x) (y)\npen up\nset pen color to (#ffffff)\ngo to x: ((x) - (45)) y: ((y) - (10))\nset pen size to (30)\npen down\ngo to x: ((x) - (-1)) y: ((y) - (10))\npen up\n\n@Player\n\ndefine Touch Ground <up?>\nchange [falling? v] by (1)\nrepeat until <not <touching color (#3fff00)?>>\n    if <up?> then\n        change y by (-1)\n    else\n        change y by (1)\n        set [falling? v] to [0]\n    end\n    set [sy v] to [0]\nend\n\ndefine Respawn\nset [sx v] to [0]\nset [sy v] to [0]\nset [falling? v] to [10]\nswitch costume to (1 \(7\) v)\nset [ghost v] effect to (0)\nset size to (100) %\npoint in direction (90)\ngo to x: (-220) y: (-65)\nshow\n\ndefine Walk (speed) Wall Jump (x) (y)\nchange x by (speed)\nset [slope v] to [0]\nrepeat until <<(Slope) = [8]> or <not <touching color (#3fff00)?>>>\n    change y by (1)\n    change [slope v] by (1)\nend\nif <(Slope) = [8]> then\n    change y by ((0) - (Slope))\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<(mouse y) > [50]> and <mouse down?>>> then\n        if <<<<<(x position) > (mouse x)> and <mouse down?>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> or <<<(mouse x) > (x position)> and <mouse down?>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>>> and <not <touching color (#2bc2ff)?>>> then\n            if <(speed) < [0]> then\n                set [sx v] to (x)\n            else\n                set [sx v] to ((0) - (x))\n            end\n            set [sy v] to (y)\n        end\n    end\n    repeat until <not <touching color (#3fff00)?>>\n        if <(speed) > [0]> then\n            change x by (-1)\n        else\n            change x by (1)\n        end\n    end\nend\n\ndefine write (val) to encoded\nset [letter # v] to [1]\nrepeat (length of (val))\n    set [encodied v] to (join (encodied) (item # of (letter (letter #) of (val)) in [code v]))\n    change [letter # v] by (1)\nend\nset [encodied v] to (join (encodied) [00])\n\nwhen I receive [begin v]\nforever\n    if <(My Player #) > [0]> then\n        send cloud data\n    end\nend\n\ngo to (mouse-pointer v)\n\ndefine set cloud # (player) to (value)\nif <(player) = [1]> then\n    set [☁ p1 v] to (value)\nelse\n    if <(player) = [2]> then\n        set [☁ p2 v] to (value)\n    else\n        if <(player) = [3]> then\n            set [☁ p3 v] to (value)\n        else\n            if <(player) = [4]> then\n                set [☁ p4 v] to (value)\n            else\n                if <(player) = [5]> then\n                    set [☁ p5 v] to (value)\n                else\n                    if <(player) = [6]> then\n                        set [☁ p6 v] to (value)\n                    else\n                        if <(player) = [7]> then\n                            set [☁ p7 v] to (value)\n                        else\n                            if <(player) = [8]> then\n                                set [☁ p8 v] to (value)\n                            else\n                                if <(player) = [9]> then\n                                    set [☁ p9 v] to (value)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine send cloud data\nset [encodied v] to []\nwrite (username) to encoded\nwrite (round ((timer) * (10))) to encoded\nwrite (x position) to encoded\nwrite (y position) to encoded\nwrite (@LEVEL) to encoded\nwrite (direction) to encoded\nset cloud # (My Player #) to (encodied)\n\nwhen flag clicked\nhide\n\nstart sound [Collect v]\nbroadcast (transition v)\n\nbroadcast (transition v) and wait\n\nwhen I receive [go to v]\ngo to x: (-200) y: (0)\n\ngo to (mouse-pointer v)\n\nchange y by (-0.1)\n\nwhen I receive [transition v]\n\nplay sound [Collect v] until done\n\nbroadcast (Next Level v) and wait\n\nwhen I receive [begin v]\npoint in direction (-90)\nset rotation style [left-right v]\nshow\nset [@level v] to [6]\nRespawn\nwait (0.4) seconds\nforever\n    change [sy v] by (-1)\n    change y by (SY)\n    Touch Ground <(SY) > [0]>\n    set [sx v] to ((SX) * (0.9))\n    if <<key (a v) pressed?> or <<key (left arrow v) pressed?> or <<(x position) > (mouse x)> and <mouse down?>>>> then\n        point in direction (-90)\n        change [sx v] by (-1)\n    end\n    if <<key (d v) pressed?> or <<key (right arrow v) pressed?> or <<(mouse x) > (x position)> and <mouse down?>>>> then\n        point in direction (90)\n        change [sx v] by (1)\n    end\n    if <not <(SX) = [0]>> then\n        Walk (SX) Wall Jump (10) (10)\n    end\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<(mouse y) > (y position)> and <mouse down?>>> then\n        if <<(Jump Key) = [0]> and <(Falling?) < [3]>> then\n            set [sy v] to [14]\n            set [falling? v] to [6]\n        end\n    else\n        set [jump key v] to [0]\n    end\n    if <<(y position) < [-180]> or <touching color (#ff0000)?>> then\n        clear graphic effects\n        set rotation style [all around v]\n        repeat (20)\n            turn right (15) degrees\n            change y by (10)\n            change [ghost v] effect by (5)\n        end\n        Respawn\n    end\n    if <touching color (#7f00ff)?> then\n        wait (0.01) seconds\n        Respawn\n        broadcast (transition v)\n    end\n    if <touching color (#ffe900)?> then\n        set [sy v] to [20]\n    end\nend\n\nwhen I receive [transition v]\nchange [@level v] by (1)\n\nbroadcast (Print text for level 1 v) and wait\n\nwhen I receive [begin v]\nforever\n    if <(@LEVEL) = [10]> then\n        broadcast (10 v)\n        if <not <(@LEVEL) = [10]>> then\n            stop [this script v]\n        end\n    end\nend\n\nwhen I receive [begin v]\nforever\n    if <(@LEVEL) = [16]> then\n        broadcast (16 v)\n        if <not <(@LEVEL) = [16]>> then\n            stop [this script v]\n        end\n    end\nend\n\nwhen I receive [reset v]\nRespawn\n\nwhen I receive [begin v]\nset [names... v] to [1]\nforever\n    if <key (n v) pressed?> then\n        if <(Names...) = [1]> then\n            set [names... v] to [2]\n        else\n            set [names... v] to [1]\n        end\n        wait until <not <key (n v) pressed?>>\n    end\nend\n\nwhen I receive [begin v]\nforever\n    if <touching color (#2bc2ff)?> then\n        change [sy v] by (1.2)\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            change [sy v] by (0.5)\n        end\n        if <<key (down arrow v) pressed?> or <<mouse down?> and <(y position) > (mouse y)>>> then\n            change [sy v] by (-0.5)\n        end\n    end\nend\n\nwhen I receive [begin v]\nforever\n    if <touching color (#ff00f6)?> then\n        if <(@LEVEL) = [17]> then\n            go to x: (150) y: (24)\n        end\n        if <(@LEVEL) = [18]> then\n            go to x: (-79) y: (126)\n        end\n        if <(@LEVEL) = [20]> then\n            go to x: (44) y: (55)\n        end\n    end\nend\n\nwhen I receive [begin v]\nforever\n    if <touching color (#ff0cf5)?> then\n        if <(@LEVEL) = [17]> then\n            go to x: (-150) y: (24)\n        end\n        if <(@LEVEL) = [18]> then\n            go to x: (34) y: (-29)\n        end\n        if <(@LEVEL) = [20]> then\n            go to x: (64) y: (-51)\n        end\n    end\nend\n\nwait until <not <touching color (#ff0cf5)?>>\n\nwhen I receive [intro end v]\nset [max players v] to [9]\nset [my player # v] to [0]\nbroadcast (setups v) and wait\nswitch backdrop to (joining v)\nbroadcast (join game v) and wait\nif <(My Player #) > [0]> then\n    start sound [Connect v]\n    switch backdrop to (joining3 v)\nelse\n    switch backdrop to (joining2 v)\nend\nbroadcast (begin v)\n\n@Connecting portal\n\nwhen backdrop switches to [joining2 v]\nbroadcast (9 v) and wait\n\nwhen backdrop switches to [joining3 v]\nbroadcast (print connected! v) and wait\n\n@TextEngine\n\ndefine _calcWW (text) (width) (firstwidth) (cspace) (spacewidth)\ndelete all of [_ww0 v]\ndelete all of [_ww1 v]\ndelete all of [_ww2 v]\nset [_i3 v] to [1]\nset [_i4 v] to [0]\nset [_i5 v] to [0]\nset [_i6 v] to [0]\nset [_i7 v] to (firstwidth)\nrepeat (length of (text))\n    if <(letter (_i3) of (text)) = [ ]> then\n        if <(_i4) = [0]> then\n            if <((_i7) + ((_i5) - (cspace))) > (width)> then\n                insert [1] at (1) of [_ww0 v] \n                add [0] to [_ww1 v]\n                add [0] to [_ww2 v]\n                set [_i6 v] to [1]\n            end\n            change [_i7 v] by ((_i5) - (cspace))\n        else\n            if <((_i7) + ((spacewidth) + (_i5))) > (width)> then\n                if <(_i4) > (_i6)> then\n                    add (_i7) to [_ww1 v]\n                    add (((_i4) - (_i6)) - (1)) to [_ww2 v]\n                end\n                set [_i6 v] to (_i4)\n                set [_i7 v] to ((_i5) - (cspace))\n            else\n                change [_i7 v] by ((spacewidth) + (_i5))\n            end\n        end\n        add [1] to [_ww0 v]\n        set [_i4 v] to (length of [_ww0 v])\n        set [_i5 v] to [0]\n    else\n        switch costume to (blank v)\n        switch costume to (join (letter (_i3) of (text)) [_])\n        set [_i9 v] to ((costume [number v]) - (1))\n        if <(_i9) > [0]> then\n            set [_i8 v] to (item (_i9) of [_chwidth v])\n            if <((_i5) + (_i8)) > (width)> then\n                if <(_i4) > (_i6)> then\n                    add (_i7) to [_ww1 v]\n                    add (((_i4) - (_i6)) - (1)) to [_ww2 v]\n                end\n                add ((_i5) - (cspace)) to [_ww1 v]\n                add ((length of [_ww0 v]) - (_i4)) to [_ww2 v]\n                add [1] to [_ww0 v]\n                set [_i4 v] to (length of [_ww0 v])\n                set [_i5 v] to ((_i8) + (cspace))\n                set [_i6 v] to (_i4)\n                set [_i7 v] to ((-1) * ((cspace) + (spacewidth)))\n            else\n                change [_i5 v] by ((_i8) + (cspace))\n            end\n            add (_i9) to [_ww0 v]\n        end\n    end\n    change [_i3 v] by (1)\nend\nif <(length of [_ww0 v]) > (_i6)> then\n    if <(_i4) = [0]> then\n        if <((_i7) + ((_i5) - (cspace))) > (width)> then\n            insert [1] at (1) of [_ww0 v] \n            add [0] to [_ww1 v]\n            add [0] to [_ww2 v]\n            set [_i6 v] to [1]\n        end\n        change [_i7 v] by ((_i5) - (cspace))\n    else\n        if <((_i7) + ((spacewidth) + (_i5))) > (width)> then\n            if <(_i4) > (_i6)> then\n                add (_i7) to [_ww1 v]\n                add (((_i4) - (_i6)) - (1)) to [_ww2 v]\n            end\n            set [_i6 v] to (_i4)\n            set [_i7 v] to ((_i5) - (cspace))\n        else\n            change [_i7 v] by ((spacewidth) + (_i5))\n        end\n    end\n    add (_i7) to [_ww1 v]\n    add ((length of [_ww0 v]) - (_i6)) to [_ww2 v]\nend\n\nwhen flag clicked\npen up\nhide\nswitch costume to (blank v)\nset size to (100000) %\nswitch costume to ( _ v)\ngo to x: (0) y: (0)\npoint in direction (90)\nset rotation style [don't rotate v]\n\ndefine Clear | Character Data\nswitch costume to (blank v)\nswitch costume to ((costume [number v]) - (1))\nif <((costume [number v]) - (1)) > (length of [_chindex v])> then\n    set [_i0 v] to ((costume [number v]) - (1))\nelse\n    set [_i0 v] to (length of [_chindex v])\nend\ndelete all of [_chindex v]\ndelete all of [_chwidth v]\ndelete all of [_chdata0 v]\ndelete all of [_chdata1 v]\ndelete all of [_chdata2 v]\ndelete all of [_chdata3 v]\nrepeat (_i0)\n    add [__] to [_chdata0 v]\n    add [none] to [_chdata1 v]\n    add [] to [_chdata2 v]\n    add [] to [_chdata3 v]\n    add ((length of [_chdata0 v]) + (1)) to [_chindex v]\n    add ((1) * (0)) to [_chwidth v]\n    repeat (25)\n        add [] to [_chdata0 v]\n        add [] to [_chdata1 v]\n        add [] to [_chdata2 v]\n        add [] to [_chdata3 v]\n    end\nend\nadd [__] to [_chdata0 v]\nadd [none] to [_chdata1 v]\nadd [] to [_chdata2 v]\nadd [] to [_chdata3 v]\n\ndefine Load | Font (fontname)\nset [_i0 v] to (item # of (fontname) in [_fontname v])\nif <(_i0) < [1]> then\n    stop [this script v]\nend\nset [_i0 v] to (item (_i0) of [_fontindex v])\nset [_i1 v] to (item (_i0) of [_fontdata v])\nchange [_i0 v] by (2)\nrepeat (item ((_i0) - (1)) of [_fontdata v])\n    set [_i2 v] to (item (_i0) of [_fontdata v])\n    replace item (_i2) of [_chwidth v] with (item ((_i0) + (1)) of [_fontdata v])\n    set [_i3 v] to (item (_i2) of [_chindex v])\n    if <not <(item ((_i3) - (1)) of [_chdata1 v]) = (_i1)>> then\n        replace item ((_i3) - (1)) of [_chdata1 v] with (_i1)\n        replace item ((_i3) - (1)) of [_chdata2 v] with []\n        replace item ((_i3) - (1)) of [_chdata3 v] with []\n        _unpackDef (_i2) (_i3) (item ((_i0) + (2)) of [_fontdata v])\n    end\n    change [_i0 v] by (3)\nend\n\ndefine Set Pen Color | RGBA (r) (g) (b) (a)\nset pen color to ((round (b)) + ((256) * ((round (g)) + ((256) * ((round (r)) + ((256) * (round (a))))))))\n\ndefine _unpackDef (id) (idx) (d)\nset [_i5 v] to (length of (d))\nset [_i6 v] to (idx)\nset [_i7 v] to [1]\nset [_i8 v] to [0]\nrepeat until <(_i7) > (_i5)>\n    if <(item (_i6) of [_chdata0 v]) = [__]> then\n        insert [] at (_i6) of [_chdata0 v] \n        insert [] at (_i6) of [_chdata1 v] \n        insert [] at (_i6) of [_chdata2 v] \n        insert [] at (_i6) of [_chdata3 v] \n        change [_i8 v] by (1)\n    end\n    set [_i9 v] to []\n    repeat until < [;] contains (letter (_i7) of (d))?>\n        set [_i9 v] to (join (_i9) (letter (_i7) of (d)))\n        change [_i7 v] by (1)\n    end\n    change [_i7 v] by (1)\n    if <(_i9) = ((1) * (_i9))> then\n        replace item (_i6) of [_chdata0 v] with ((1) * (_i9))\n    else\n        replace item (_i6) of [_chdata0 v] with (_i9)\n    end\n    set [_i9 v] to []\n    repeat until < [;] contains (letter (_i7) of (d))?>\n        set [_i9 v] to (join (_i9) (letter (_i7) of (d)))\n        change [_i7 v] by (1)\n    end\n    change [_i7 v] by (1)\n    if <(_i9) = ((1) * (_i9))> then\n        replace item (_i6) of [_chdata1 v] with ((1) * (_i9))\n    else\n        replace item (_i6) of [_chdata1 v] with (_i9)\n    end\n    set [_i9 v] to []\n    repeat until < [;] contains (letter (_i7) of (d))?>\n        set [_i9 v] to (join (_i9) (letter (_i7) of (d)))\n        change [_i7 v] by (1)\n    end\n    change [_i7 v] by (1)\n    if <(_i9) = ((1) * (_i9))> then\n        replace item (_i6) of [_chdata2 v] with ((1) * (_i9))\n    else\n        replace item (_i6) of [_chdata2 v] with (_i9)\n    end\n    set [_i9 v] to []\n    repeat until < [;] contains (letter (_i7) of (d))?>\n        set [_i9 v] to (join (_i9) (letter (_i7) of (d)))\n        change [_i7 v] by (1)\n    end\n    change [_i7 v] by (1)\n    if <(_i9) = ((1) * (_i9))> then\n        replace item (_i6) of [_chdata3 v] with ((1) * (_i9))\n    else\n        replace item (_i6) of [_chdata3 v] with (_i9)\n    end\n    change [_i6 v] by (1)\nend\nif <(_i8) > [0]> then\n    set [_i5 v] to (id)\n    repeat ((length of [_chindex v]) - (_i5))\n        change [_i5 v] by (1)\n        replace item (_i5) of [_chindex v] with ((item (_i5) of [_chindex v]) + (_i8))\n    end\nend\n\ndefine _getWidth (text) (size) (cspace)\nset [_width v] to [0]\nset [_i0 v] to [1]\nset [_i1 v] to [0]\nrepeat (length of (text))\n    switch costume to (blank v)\n    switch costume to (join (letter (_i0) of (text)) [_])\n    set [_i2 v] to ((costume [number v]) - (1))\n    if <(_i2) > [0]> then\n        change [_width v] by (((size) * (item (_i2) of [_chwidth v])) + (cspace))\n        change [_i1 v] by (1)\n    end\n    change [_i0 v] by (1)\nend\nif <(_i1) > [0]> then\n    change [_width v] by ((-1) * (cspace))\nend\n\ndefine New Lines | Number (lines) Size (size) Space (lspace)\nchange [_y v] by (((lines) + <(lines) = []>) * (((size) + ((12) * <(size) = []>)) * ((-1) - ((0.7) * ((lspace) + <(lspace) = []>)))))\n\ndefine Print | Pos (x) (y) Size (size) (width) Bounds (xmin) (xmax) Space (cspace) Style (weight) (slant) Underline (ul.height) (ul.weight) Align (al.x) (al.y) Text (text)\npen up\nset [_i8 v] to ((size) + ((12) * <(size) = []>))\nif <not <(_i8) > [0]>> then\n    set [_x v] to ((1) * (x))\n    set [_y v] to ((1) * (y))\n    switch costume to ( _ v)\n    stop [this script v]\nend\nset [_i7 v] to (((width) + <(width) = []>) * (_i8))\nset [_i9 v] to (([tan v] of (slant) ) * (_i8))\nset [_i2 v] to ((al.x) + (((0.5) * <(al.x) = [c]>) + <(al.x) = [r]>))\nset [_i3 v] to ((al.y) + (((0.5) * <(al.y) = [c]>) + <(al.y) = [t]>))\nset [_i4 v] to (((cspace) + <(cspace) = []>) * ((0.27) * (_i8)))\nset pen size to ((0.125) * (((weight) + <(weight) = []>) * (_i8)))\n_printText (text) ((1) * (x)) ((y) - ((_i3) * (_i8))) ((xmin) + (<(xmin) = []> * ((-1) / (0)))) ((xmax) + (<(xmax) = []> * ((1) / (0)))) (_i4) (ul.height) (((weight) + <(weight) = []>) * ((ul.weight) + <(ul.weight) = []>)) ((-1) * (_i2))\n\ndefine Get Width | Size (size) (width) Space (cspace) Text (text)\n_getWidth (text) (((size) + ((12) * <(size) = []>)) * ((width) + <(width) = []>)) (((cspace) + <(cspace) = []>) * ((0.27) * ((size) + ((12) * <(size) = []>))))\n\ndefine Print WW | Pos (x) (y) Size (size) (width) Bounds (xmin) (xmax) (ymax) (ymin) Space (cspace) (lspace) Style (weight) (slant) Underline (ul.height) (ul.weight) Align (al.x) (al.y) Text (text)\npen up\nset [_i0 v] to ((size) + ((12) * <(size) = []>))\nif <not <(_i0) > [0]>> then\n    set [_x v] to ((1) * (x))\n    set [_y v] to ((1) * (y))\n    switch costume to ( _ v)\n    stop [this script v]\nend\nset [_i0 v] to (((width) + <(width) = []>) * (_i0))\nset [_i1 v] to ((xmin) + ((-230) * <(xmin) = []>))\nset [_i2 v] to ((xmax) + ((230) * <(xmax) = []>))\nset [_i3 v] to (item (1) of [_chwidth v])\nset [_i4 v] to (((0.27) * ((cspace) + <(cspace) = []>)) / ((width) + <(width) = []>))\n_calcWW (text) (((_i2) - (_i1)) / (_i0)) (<not <(x) = []>> * (((x) - (_i1)) / (_i0))) (_i4) ((_i4) + (_i3))\nset [_i7 v] to (_i0)\nset [_i8 v] to ((size) + ((12) * <(size) = []>))\nset [_i3 v] to ((al.x) + (((0.5) * <(al.x) = [c]>) + <(al.x) = [r]>))\nset [_i0 v] to ((lspace) + <(lspace) = []>)\nif <(al.y) = []> then\n    set [_i4 v] to [1]\nelse\n    if <(al.y) = ((1) * (al.y))> then\n        set [_i4 v] to (al.y)\n    else\n        if <(al.y) = [b]> then\n            set [_i4 v] to ((length of [_ww1 v]) - <<(item (1) of [_ww2 v]) = [0]> and <(x) = []>>)\n        else\n            if <(al.y) = [c]> then\n                set [_i4 v] to ((0.5) * ((((0.7) * (_i0)) / (((0.7) * (_i0)) + (1))) + ((length of [_ww1 v]) - <<(item (1) of [_ww2 v]) = [0]> and <(x) = []>>)))\n            else\n                set [_i4 v] to (((0.7) * (_i0)) / (((0.7) * (_i0)) + (1)))\n            end\n        end\n    end\nend\nset [_i5 v] to ((0.1) * ((((ul.weight) + <(ul.weight) = []>) * ((weight) + <(weight) = []>)) * (_i8)))\nif <(ymax) = []> then\n    set [_i6 v] to ((1) / (0))\nelse\n    set [_i6 v] to ((ymax) - (_i0))\nend\nset [_i9 v] to (([tan v] of (slant) ) * (_i8))\n_printWW ((((1) - (_i3)) * (_i1)) + ((_i3) * (_i2))) (x) ((1) - <(x) = []>) ((1) * (y)) (_i6) ((ymin) + (<(ymin) = []> * ((-1) / (0)))) (((cspace) + <(cspace) = []>) * ((0.27) * (_i8))) ((_i8) * ((-1) - ((0.7) * (_i0)))) ((0.125) * (((weight) + <(weight) = []>) * (_i8))) ((ul.height) * (_i8)) (_i5) ((ul.height) * (_i9)) <not <(ul.height) = []>> ((-1) * ((_i3) * (_i7))) (_i4)\n\ndefine _printText (text) (x) (y) (xmin) (xmax) (cspace) (ul.height) (ul.weight) (al.x)\nset [_x v] to (x)\nset [_y v] to (y)\nif <not <(al.x) = [0]>> then\n    set [_width v] to [0]\n    _getWidth (text) (_i7) (cspace)\n    change [_x v] by ((al.x) * (_width))\nend\nset [_bq v] to ([ceiling v] of (((0.075) * ([sqrt v] of ((_i7) * (_i8)) )) + (0.5)) )\nset [_bq2 v] to ((4) * ((_bq) * (_bq)))\nset [_i0 v] to [1]\nif <<(xmin) = ((-1) / (0))> and <(xmax) = ((1) / (0))>> then\n    if <(_i9) = [0]> then\n        repeat (length of (text))\n            switch costume to (blank v)\n            switch costume to (join (letter (_i0) of (text)) [_])\n            if <(costume [number v]) > [1]> then\n                _printCh ((costume [number v]) - (1))\n                change [_x v] by (cspace)\n            end\n            change [_i0 v] by (1)\n        end\n    else\n        repeat (length of (text))\n            switch costume to (blank v)\n            switch costume to (join (letter (_i0) of (text)) [_])\n            if <(costume [number v]) > [1]> then\n                _printChSl ((costume [number v]) - (1))\n                change [_x v] by (cspace)\n            end\n            change [_i0 v] by (1)\n        end\n    end\nelse\n    repeat (length of (text))\n        switch costume to (blank v)\n        switch costume to (join (letter (_i0) of (text)) [_])\n        if <(costume [number v]) > [1]> then\n            if <not <<(_x) < (xmin)> or <((_x) + ((_i7) * (item ((costume [number v]) - (1)) of [_chwidth v]))) > (xmax)>>> then\n                _printChSl ((costume [number v]) - (1))\n            else\n                change [_x v] by ((_i7) * (item ((costume [number v]) - (1)) of [_chwidth v]))\n            end\n            change [_x v] by (cspace)\n        end\n        change [_i0 v] by (1)\n    end\nend\nswitch costume to ( _ v)\nif <not <(ul.height) = []>> then\n    set pen size to ((0.1) * (((ul.weight) + <(ul.weight) = []>) * (_i8)))\n    set [_i1 v] to ((x) + ((al.x) * (_width)))\n    if <(_i1) < (xmin)> then\n        set [_i1 v] to (xmin)\n    end\n    go to x: (((_i1) + ((_i9) * (ul.height))) - ((0.13) * (_i7))) y: ((y) + ((ul.height) * (_i8)))\n    pen down\n    set [_i2 v] to ((_x) - (cspace))\n    if <(_i2) > (xmax)> then\n        set [_i2 v] to (xmax)\n    end\n    set x to (((_i2) + ((_i9) * (ul.height))) + ((0.13) * (_i7)))\n    pen up\nend\n\ndefine _printWW (x) (firstx) (firstline) (y) (ymax) (ymin) (cspace) (lspace) (wt) (ul.height) (ul.weight) (ul.offset) <undl> (al.x) (al.y)\nswitch costume to ( _ v)\nset [_x v] to (x)\nset [_y v] to ((y) - (((al.y) - (1)) * (lspace)))\nset [_i0 v] to [1]\nset [_i1 v] to [1]\nif <(item (1) of [_ww2 v]) = [0]> then\n    change [_i0 v] by (1)\n    change [_i1 v] by (1)\n    if <(firstline) = [1]> then\n        change [_y v] by (lspace)\n    end\nend\nrepeat until <<not <(_y) > (ymax)>> or <(_i0) > (length of [_ww1 v])>>\n    change [_i1 v] by ((item (_i0) of [_ww2 v]) + (1))\n    change [_i0 v] by (1)\n    change [_y v] by (lspace)\nend\nset [_bq v] to ([ceiling v] of (((0.075) * ([sqrt v] of ((_i7) * (_i8)) )) + (0.5)) )\nset [_bq2 v] to ((4) * ((_bq) * (_bq)))\nrepeat until <<(_y) < (ymin)> or <(_i0) > (length of [_ww1 v])>>\n    if <(_i0) = (firstline)> then\n        set [_x v] to (firstx)\n    else\n        set [_x v] to ((x) + ((al.x) * (item (_i0) of [_ww1 v])))\n    end\n    set pen size to (wt)\n    if <(_i9) = [0]> then\n        repeat (item (_i0) of [_ww2 v])\n            _printCh (item (_i1) of [_ww0 v])\n            change [_x v] by (cspace)\n            change [_i1 v] by (1)\n        end\n    else\n        repeat (item (_i0) of [_ww2 v])\n            _printChSl (item (_i1) of [_ww0 v])\n            change [_x v] by (cspace)\n            change [_i1 v] by (1)\n        end\n    end\n    if <undl> then\n        set pen size to (ul.weight)\n        if <(_i0) = (firstline)> then\n            go to x: (((firstx) + (ul.offset)) - ((0.13) * (_i7))) y: ((_y) + (ul.height))\n        else\n            go to x: ((((x) + ((al.x) * (item (_i0) of [_ww1 v]))) + (ul.offset)) - ((0.13) * (_i7))) y: ((_y) + (ul.height))\n        end\n        pen down\n        set x to ((((_x) - (cspace)) + (ul.offset)) + ((0.13) * (_i7)))\n        pen up\n    end\n    change [_i0 v] by (1)\n    change [_i1 v] by (1)\n    change [_y v] by (lspace)\nend\nif <((length of [_ww1 v]) - <(item (1) of [_ww2 v]) = [0]>) > [0]> then\n    change [_y v] by ((-1) * (lspace))\nend\ndelete all of [_ww0 v]\ndelete all of [_ww1 v]\ndelete all of [_ww2 v]\n\ndefine _printCh (id)\nset [_i2 v] to (item (id) of [_chindex v])\nif <(item (_i2) of [_chdata1 v]) = [Q]> then\n    repeat (item (_i2) of [_chdata0 v])\n        change [_i2 v] by (1)\n        go to x: ((_x) + ((_i7) * (item (_i2) of [_chdata0 v]))) y: ((_y) + ((_i8) * (item (_i2) of [_chdata1 v])))\n        pen down\n        repeat (item (_i2) of [_chdata2 v])\n            change [_i2 v] by (1)\n            if <(item (_i2) of [_chdata0 v]) = [L]> then\n                go to x: ((x position) + ((_i7) * (item (_i2) of [_chdata1 v]))) y: ((y position) + ((_i8) * (item (_i2) of [_chdata2 v])))\n            else\n                set [_i3 v] to (((_i7) * (item (_i2) of [_chdata0 v])) / (_bq2))\n                set [_i4 v] to ((((_i7) * (item (_i2) of [_chdata1 v])) / (_bq)) + ((_i3) / (2)))\n                set [_i5 v] to (((_i8) * (item (_i2) of [_chdata2 v])) / (_bq2))\n                set [_i6 v] to ((((_i8) * (item (_i2) of [_chdata3 v])) / (_bq)) + ((_i5) / (2)))\n                repeat (_bq)\n                    go to x: ((x position) + (_i4)) y: ((y position) + (_i6))\n                    change [_i4 v] by (_i3)\n                    change [_i6 v] by (_i5)\n                    go to x: ((x position) + (_i4)) y: ((y position) + (_i6))\n                    change [_i4 v] by (_i3)\n                    change [_i6 v] by (_i5)\n                end\n            end\n        end\n        pen up\n    end\nelse\n    repeat (item (_i2) of [_chdata0 v])\n        change [_i2 v] by (1)\n        go to x: ((_x) + ((_i7) * (item (_i2) of [_chdata0 v]))) y: ((_y) + ((_i8) * (item (_i2) of [_chdata1 v])))\n        pen down\n        repeat (item (_i2) of [_chdata2 v])\n            change [_i2 v] by (1)\n            go to x: ((x position) + ((_i7) * (item (_i2) of [_chdata0 v]))) y: ((y position) + ((_i8) * (item (_i2) of [_chdata1 v])))\n        end\n        pen up\n    end\nend\nchange [_i2 v] by (1)\nchange pen size by (1)\nrepeat (item (_i2) of [_chdata0 v])\n    change [_i2 v] by (1)\n    go to x: ((_x) + ((_i7) * (item (_i2) of [_chdata0 v]))) y: ((_y) + ((_i8) * (item (_i2) of [_chdata1 v])))\n    pen down\n    pen up\nend\nchange pen size by (-1)\nchange [_x v] by ((_i7) * (item (id) of [_chwidth v]))\n\ndefine _printChSl (id)\nset [_i2 v] to (item (id) of [_chindex v])\nif <(item (_i2) of [_chdata1 v]) = [Q]> then\n    repeat (item (_i2) of [_chdata0 v])\n        change [_i2 v] by (1)\n        go to x: ((_x) + (((_i7) * (item (_i2) of [_chdata0 v])) + ((_i9) * (item (_i2) of [_chdata1 v])))) y: ((_y) + ((_i8) * (item (_i2) of [_chdata1 v])))\n        pen down\n        repeat (item (_i2) of [_chdata2 v])\n            change [_i2 v] by (1)\n            if <(item (_i2) of [_chdata0 v]) = [L]> then\n                go to x: ((x position) + (((_i7) * (item (_i2) of [_chdata1 v])) + ((_i9) * (item (_i2) of [_chdata2 v])))) y: ((y position) + ((_i8) * (item (_i2) of [_chdata2 v])))\n            else\n                set [_i3 v] to ((((_i7) * (item (_i2) of [_chdata0 v])) + ((_i9) * (item (_i2) of [_chdata2 v]))) / (_bq2))\n                set [_i4 v] to (((((_i7) * (item (_i2) of [_chdata1 v])) + ((_i9) * (item (_i2) of [_chdata3 v]))) / (_bq)) + ((_i3) / (2)))\n                set [_i5 v] to (((_i8) * (item (_i2) of [_chdata2 v])) / (_bq2))\n                set [_i6 v] to ((((_i8) * (item (_i2) of [_chdata3 v])) / (_bq)) + ((_i5) / (2)))\n                repeat (_bq)\n                    go to x: ((x position) + (_i4)) y: ((y position) + (_i6))\n                    change [_i4 v] by (_i3)\n                    change [_i6 v] by (_i5)\n                    go to x: ((x position) + (_i4)) y: ((y position) + (_i6))\n                    change [_i4 v] by (_i3)\n                    change [_i6 v] by (_i5)\n                end\n            end\n        end\n        pen up\n    end\nelse\n    repeat (item (_i2) of [_chdata0 v])\n        change [_i2 v] by (1)\n        go to x: ((_x) + (((_i7) * (item (_i2) of [_chdata0 v])) + ((_i9) * (item (_i2) of [_chdata1 v])))) y: ((_y) + ((_i8) * (item (_i2) of [_chdata1 v])))\n        pen down\n        repeat (item (_i2) of [_chdata2 v])\n            change [_i2 v] by (1)\n            go to x: ((x position) + (((_i7) * (item (_i2) of [_chdata0 v])) + ((_i9) * (item (_i2) of [_chdata1 v])))) y: ((y position) + ((_i8) * (item (_i2) of [_chdata1 v])))\n        end\n        pen up\n    end\nend\nchange [_i2 v] by (1)\nchange pen size by (1)\nrepeat (item (_i2) of [_chdata0 v])\n    change [_i2 v] by (1)\n    go to x: ((_x) + (((_i7) * (item (_i2) of [_chdata0 v])) + ((_i9) * (item (_i2) of [_chdata1 v])))) y: ((_y) + ((_i8) * (item (_i2) of [_chdata1 v])))\n    pen down\n    pen up\nend\nchange pen size by (-1)\nchange [_x v] by ((_i7) * (item (id) of [_chwidth v]))\n\nwhen flag clicked\nset [@level v] to [1]\n\nwhen backdrop switches to [joining v]\nerase all\nLoad | Font [Parabolic]\nSet Pen Color | RGBA [0] [0] [0] [0]\nPrint | Pos [-200] [70] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text (join (join [Hey ] [there!]) [ This may take a while... Please wait...])\nSet Pen Color | RGBA [0] [0] [0] [0]\nPrint | Pos [-190] [0] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Thank you for your patience and co-operation!]\nSet Pen Color | RGBA [255] [80] [0] [255]\nPrint | Pos [-50] [-70] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Connecting...]\n\nwhen backdrop switches to [joining2 v]\nerase all\n\nLoad | Font [Parabolic]\nSet Pen Color | RGBA [0] [0] [0] [0]\nPrint | Pos [-175] [50] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text (join (join [Sorry, ] (username)) [. But, this game is full...])\nPrint | Pos [-200] [-50] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Don't worry.. You can always join on server two!]\nwait (3) seconds\nClear | Character Data\n\nPrint | Pos [-200] [-50] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Don't worry.. You can always join on server two!]\n\nwhen I receive [print connected! v]\nerase all\n\nLoad | Font [Parabolic]\nSet Pen Color | RGBA [0] [0] [0] [0]\nPrint | Pos [-170] [50] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [YAY!!! You are connected to the cloud!!!]\nPrint | Pos [-135] [-40] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [You can play now! Game - on!!!]\nwait (2) seconds\nClear | Character Data\n\nwhen I receive [begin v]\n\nPrint | Pos [-200] [-50] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Don't worry.. You can always join on server two!]\n\nwhen I receive [begin v]\nforever\n    if <(@LEVEL) = [2]> then\n        Print | Pos [-215] [123] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [WOW! You can wall jump... Hmm... Its so peaceful here!]\n        Print | Pos [-175] [100] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [\(Touch the purple color to continue playing!\)]\n        if <not <(@LEVEL) = [2]>> then\n            stop [this script v]\n        end\n    end\nend\n\nbroadcast (Print text for level 1 v)\n\nwhen I receive [8 v]\n\nwhen I receive [begin v]\n\nchange [@level v] by (1)\n\nif <(@LEVEL) = [1]> then\n\nset [@level v] to [17]\n\nwhen I receive [8 v]\nforever\n    if <(@LEVEL) = [21]> then\n        Set Pen Color | RGBA [0] [0] [0] [0]\n        Print | Pos [-230] [70] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [I took many days to build this so please love, like,follow]\n        Print | Pos [-190] [113] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Congratulations, you beat this game!!!! :P]\n        Print | Pos [-65] [30] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [@suhalo_351 ~!!!!~]\n        Set Pen Color | RGBA [100] [100] [0] [500]\n        Print | Pos [-220] [-20] Size [15] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Comment "Nature's square is the best!" xD ]\n        Set Pen Color | RGBA [0] [0] [0] [0]\n        Print | Pos [-170] [-60] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [I will make part 3 if this gets over 1500 loves! ]\n    end\nend\n\nwhen I receive [print connected! v]\nforever\n    Set Pen Color | RGBA [0] [0] [0] [0]\n    Print | Pos [1] [143] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Connected!! Game - on!! :D 👌 ]\n    if <not <(@LEVEL) = [1]>> then\n        stop [this script v]\n    end\nend\n\nif  then\n\nwhen backdrop switches to [joining2 v]\nforever\n    Set Pen Color | RGBA [0] [0] [0] [0]\n    Print | Pos [1] [143] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Sorry, game full! :\(]\n    Print | Pos [1] [120] Size [12] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Try server 2! :D]\n    if <not <(@LEVEL) = [1]>> then\n        stop [this script v]\n    end\nend\n\nwhen I receive [print skip v]\nforever\n    if <not <(@LEVEL) = [21]>> then\n        Set Pen Color | RGBA [0] [0] [0] [0]\n        Print | Pos [-210] [-155] Size [15] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Skip]\n    end\nend\n\nwhen I receive [print reset v]\nforever\n    if <not <(@LEVEL) = [21]>> then\n        Set Pen Color | RGBA [0] [0] [0] [0]\n        Print | Pos [-132] [-155] Size [15] [1] Bounds [-Infinity] [Infinity] Space [1] Style [1] [0] Underline [] [] Align [L] [B] Text [Reset]\n    end\nend\n\n@TB\n\nwhen flag clicked\ngo to [front v] layer\ngo to x: (0) y: (0)\nhide\n\n@Intro\n\ndefine Intro\nhide\nstart sound [NIVIRO - Flashes \[NCS Release\] v]\nset [i v] to [0]\nset [i2 v] to [0]\nset [sequence v] to [1]\ngo to x: (0) y: (0)\npoint in direction (90)\nset size to (100) %\nclear graphic effects\nswitch costume to (white v)\ncreate clone of (_myself_ v)\nswitch costume to (letter1 v)\ncreate clone of (_myself_ v)\ngo to x: (-200) y: (0)\nrepeat (8)\n    create clone of (_myself_ v)\n    change x by (50)\n    next costume\n    wait (.05) seconds\nend\ngo to x: (0) y: (0)\nwait until <(Sequence) = [2]>\nswitch costume to (bar v)\ngo to x: (0) y: (0)\ncreate clone of (_myself_ v)\nswitch costume to (name v)\ncreate clone of (_myself_ v)\nwait (.82) seconds\nset [sequence v] to [3]\nwait until <(Sequence) = [4]>\ngo to x: (0) y: (-150)\nswitch costume to (another bar v)\nrepeat (5)\n    create clone of (_myself_ v)\n    change y by (75)\n    wait (.01) seconds\nend\nwait (0.5) seconds\ngo to x: (0) y: (0)\nset [sequence v] to [5]\nwait until <(Sequence) = [6]>\nswitch costume to (flash v)\ncreate clone of (_myself_ v)\nswitch costume to (logo white v)\ncreate clone of (_myself_ v)\nwait until <(Sequence) = [8]>\nswitch costume to (logo v)\ncreate clone of (_myself_ v)\nParticles\nwait (.9) seconds\nset [sequence v] to [9]\nwait until <(Sequence) = [10]>\nrepeat (3)\n    switch costume to (filler v)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    switch costume to (filler2 v)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\nend\nwait (1.3) seconds\nset [sequence v] to [11]\nswitch costume to (fade v)\ncreate clone of (_myself_ v)\nwait until <(Sequence) = [12]>\nset [sequence v] to [13]\nbroadcast (Intro End v)\nstop [other scripts in sprite v]\nstop [this script v]\n\nwhen flag clicked\nIntro\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    show\n    go to x: (0) y: (0)\n    wait until <(Sequence) = [13]>\n    delete this clone\nend\nif <<(costume [number v]) > [1]> and <[9] > (costume [number v])>> then\n    show\n    set [ghost v] effect to (100)\n    set size to (0) %\n    set y to (500)\n    point in direction (45)\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (5))\n        change [ghost v] effect by (-10)\n        change size by (((100) - (size)) / (5))\n        turn right (((90) - (direction)) / (5)) degrees\n    end\n    wait (.2) seconds\n    set [i v] to [15]\n    repeat (40)\n        turn right ((x position) / (20)) degrees\n        change x by (-1)\n        change [ghost v] effect by (3)\n        change y by (i)\n        change [i v] by (-1.5)\n        change size by (-2)\n    end\n    set [sequence v] to [2]\n    delete this clone\nend\nif <(costume [number v]) = [9]> then\n    show\n    go to x: (0) y: (360)\n    set size to (0) %\n    point in direction (0)\n    set [ghost v] effect to (100)\n    repeat until <(Sequence) = [3]>\n        change [ghost v] effect by (-10)\n        change size by (((100) - (size)) / (5))\n        turn right (((90) - (direction)) / (5)) degrees\n        change y by (((0) - (y position)) / (5))\n    end\n    set [i v] to [10]\n    set [i2 v] to [15]\n    repeat (30)\n        turn right ((x position) / (40)) degrees\n        change x by (i2)\n        set [i2 v] to ((i2) * (.9))\n        change [ghost v] effect by (4)\n        change y by (i)\n        change [i v] by (-1.5)\n        change size by (-2)\n    end\n    set [sequence v] to [4]\n    delete this clone\nend\nif <(costume [number v]) = [10]> then\n    show\n    go to x: (0) y: (-360)\n    set size to (0) %\n    point in direction (180)\n    set [ghost v] effect to (100)\n    repeat until <(Sequence) = [3]>\n        change [ghost v] effect by (-7)\n        change size by (((100) - (size)) / (5))\n        turn right (((90) - (direction)) / (5)) degrees\n        change y by (((0) - (y position)) / (5))\n    end\n    set [i v] to [15]\n    set [i2 v] to [-15]\n    repeat (40)\n        turn right ((x position) / (40)) degrees\n        set [i2 v] to ((i2) * (.9))\n        change x by (i2)\n        change [ghost v] effect by (4)\n        change y by (i)\n        change [i v] by (-1.5)\n        change size by (-2)\n    end\n    delete this clone\nend\nif <(costume [number v]) = [11]> then\n    show\n    go to x: (0) y: (y position)\n    point in direction (0)\n    set size to (0) %\n    set [ghost v] effect to (100)\n    repeat until <(Sequence) = [5]>\n        turn right (((90) - (direction)) / (5)) degrees\n        change size by (((95) - (size)) / (5))\n        change [ghost v] effect by (-10)\n    end\n    point in direction (90)\n    repeat (15)\n        change size by (((30) - (size)) / (5))\n        change [ghost v] effect by (10)\n    end\n    wait (.02) seconds\n    set [sequence v] to [6]\n    delete this clone\nend\nif <(costume [number v]) = [12]> then\n    show\n    clear graphic effects\n    go to x: (0) y: (0)\n    point in direction (90)\n    wait until <(Sequence) = [7]>\n    wait (.01) seconds\n    set [sequence v] to [8]\n    delete this clone\nend\nif <(costume [number v]) = [13]> then\n    show\n    go to x: (0) y: (0)\n    point in direction (90)\n    set size to (120) %\n    repeat (15)\n        change [ghost v] effect by (7.5)\n        change size by (-2)\n    end\n    set [sequence v] to [7]\n    delete this clone\nend\nif <(costume [number v]) = [14]> then\n    show\n    set size to (0) %\n    set [ghost v] effect to (100)\n    repeat until <(Sequence) = [9]>\n        change [ghost v] effect by (-10)\n        set [i v] to (((i) * (.8)) + (((120) - (size)) / (5)))\n        change size by (i)\n        point in direction ((90) + ((4) * ([sin v] of ((timer) * (190)) )))\n        set y to ((10) * ([sin v] of (((timer) - (2)) * (220)) ))\n    end\n    set [i v] to [10]\n    set [i2 v] to [-15]\n    repeat (35)\n        turn right ((x position) / (40)) degrees\n        change size by (((1) - (size)) / (3))\n        change y by ((0) - (i))\n    end\n    set [sequence v] to [10]\n    delete this clone\nend\nif <(costume [number v]) = [15]> then\n    show\n    set size to (pick random (80) to (120)) %\n    set [i v] to (pick random (-30) to (30))\n    set [i2 v] to (pick random (10) to (20))\n    set [ghost v] effect to (pick random (10) to (30))\n    set [brightness v] effect to (pick random (-20) to (20))\n    repeat until <touching (_edge_ v)?>\n        change [ghost v] effect by (1)\n        change x by (i)\n        change y by (i2)\n        change [i2 v] by (-3)\n    end\n    delete this clone\nend\nif <<(costume [number v]) = [16]> or <(costume [number v]) = [17]>> then\n    show\n    go to x: (-500) y: (500)\n    repeat (20)\n        go to x: ((x position) / (1.2)) y: ((y position) / (1.2))\n    end\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\nif <(costume [number v]) = [18]> then\n    show\n    go to x: (0) y: (360)\n    set [ghost v] effect to (35)\n    go to x: (-500) y: (500)\n    repeat (20)\n        go to x: ((x position) / (1.2)) y: ((y position) / (1.2))\n    end\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    wait (3) seconds\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    wait (0.2) seconds\n    set [sequence v] to [12]\n    delete this clone\nend\n\ndefine Particles\ngo [backward v] (1) layers\nswitch costume to (particles v)\nrepeat (25)\n    create clone of (_myself_ v)\nend\n\n