Misty Islands || A Scrolling Platformer || Contest Entry
@Stage\n\n@Player\n\nwhen I receive [begin v]\nset [chat v] to [0]\nshow list [chat v]\nforever\n    Chat\nend\n\nif <<key (t v) pressed?> or <<touching (mouse-pointer v)?> and <mouse down?>>> then\n    if <(Chat) = [1]> then\n        show list [chat v]\n        set [chat v] to [0]\n        wait until <<not <<touching (mouse-pointer v)?> and <mouse down?>>> and <not <key (t v) pressed?>>>\n        if <(Chat) = [0]> then\n            set [chat v] to [1]\n            wait until <<not <<touching (mouse-pointer v)?> and <mouse down?>>> and <not <key (t v) pressed?>>>\n        end\n    end\nend\n\nwhen I receive [play game v]\nset [connected? v] to [0]\n\ndefine Position\ngo to x: ((x) - (SCROLL X)) y: ((y) - (SCROLL Y))\n\nwhen I receive [green flag v]\nhide\ngo to [front v] layer\n\ndefine Change Player x by (sx)\npoint in direction (90)\nchange [x v] by (sx)\nPosition\nif <touching (platforms v)?> then\n    repeat (12)\n        change [y v] by (1)\n        Position\n        if <not <touching (platforms v)?>> then\n            stop [this script v]\n        end\n    end\n    change [y v] by (-12)\n    if <<<(y position) < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n        if <(sx) > [0]> then\n            set [sx v] to [-16]\n        else\n            set [sx v] to [16]\n        end\n        set [in air v] to [0]\n    else\n        set [sx v] to [0]\n    end\n    repeat until <not <touching (platforms v)?>>\n        if <(sx) > [0]> then\n            change [x v] by (-1)\n        else\n            change [x v] by (1)\n        end\n        Position\n    end\nend\n\nwhen flag clicked\npoint in direction (90)\nbroadcast (Green Flag v) and wait\nbroadcast (Play Game v) and wait\n\ndefine Change Player y by (sy)\nchange [y v] by (sy)\nchange [in air v] by (1)\nPosition\nrepeat until <not <touching (platforms v)?>>\n    if <(sy) > [0]> then\n        change [y v] by (-1)\n    else\n        change [y v] by (1)\n        set [in air v] to [0]\n    end\n    Position\n    set [sy v] to [0]\nend\n\ndefine Game On\nset [scroll x v] to (sp-x)\nset [scroll y v] to (sp-y)\nset [x v] to (sp-x)\nset [y v] to (sp-y)\nset [sx v] to [0]\nset [sy v] to [0]\nset [in air v] to [0]\nset [exit v] to []\nset [ghost v] effect to (0)\nset size to (100) %\n\ndefine Test - Die\nif <touching (danger v)?> then\n    start sound [Hurt v]\n    set [exit v] to [die]\nend\nif <touching (saws v)?> then\n    start sound [Hurt v]\n    set [exit v] to [die]\nend\n\ndefine Game - Die\nset [exit v] to []\nstart sound [Hurt v]\n\ndefine Game - Win\nrepeat (50)\n    point towards (exit v)\n    turn right (65) degrees\n    move ((distance to [exit v]) / (2)) steps\n    change size by (-1)\n    change [ghost v] effect by (2)\nend\nhide\nchange [level v] by (1)\nwait (1) seconds\n\ndefine Tick\nif <not <<key (any v) pressed?> and <mouse down?>>> then\n    switch costume to (normal v)\nend\nif <<<(mouse x) < (x position)> and <mouse down?>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n    switch costume to (left v)\n    change [sx v] by (-2)\nend\nif <<<(x position) < (mouse x)> and <mouse down?>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n    switch costume to (right v)\n    change [sx v] by (2)\nend\nif <<<<(y position) < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> and <<<(mouse x) < (x position)> and <mouse down?>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>>> then\n    switch costume to (left up v)\nend\nif <<<<(y position) < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> and <<<(x position) < (mouse x)> and <mouse down?>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>>> then\n    switch costume to (right up v)\nend\nset [sx v] to ((sx) * (0.8))\nif <([abs v] of (sx) ) > [0.9]> then\n    Change Player x by (round (sx))\nend\nif <<<(y position) < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n    if <(in air) < [4]> then\n        set [sy v] to [16]\n    end\nend\nif <(sy) > [-20]> then\n    change [sy v] by (-2)\nend\nChange Player y by (sy)\nTest - Die\nset [scroll x v] to (x)\nif <(SCROLL X) < [0]> then\n    set [scroll x v] to [0]\nend\nchange [scroll y v] by (round (((y) - (SCROLL Y)) / (10)))\nif <(SCROLL Y) < [0]> then\n    set [scroll y v] to [0]\nend\nPosition\nif <(y) < [-180]> then\n    set [exit v] to [die]\nend\nif <(x) < [-220]> then\n    set [x v] to [-220]\nend\n\nif <not <key (any v) pressed?>> then\n    switch costume to (normal v)\nend\n\nwhen flag clicked\nhide\nset [max players v] to [8]\nset [my player # v] to [0]\nbroadcast (Connecting v)\nbroadcast (Setup Others v) and wait\nbroadcast (Join Game v) and wait\nif <(MY PLAYER #) > [0]> then\n    broadcast (Connected v)\n    start sound [Connect v]\nelse\n    broadcast (Full v)\n    start sound [Disconnect v]\nend\nbroadcast (Begin 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                                else\n                                    if <(player) = [10]> then\n                                        set [☁ p10 v] to (value)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine write (val) to encoded\nset [letter # v] to [1]\nrepeat (length of (val))\n    set [encoded v] to (join (encoded) (item # of (letter (letter #) of (val)) in [code v]))\n    change [letter # v] by (1)\nend\nset [encoded v] to (join (encoded) [00])\n\nwhen I receive [begin v]\nforever\n    if <(MY PLAYER #) > [0]> then\n        send cloud data\n    end\nend\n\ndefine send cloud data\nset [encoded v] to []\nwrite (username) to encoded\nwrite (round ((timer) * (10))) to encoded\nwrite (x) to encoded\nwrite (y) to encoded\nwrite (Chat Words) to encoded\nset cloud # (MY PLAYER #) to (encoded)\n\ndefine Chat\nif <(Chat) = [1]> then\n    if <key (1 v) pressed?> then\n        set [chat v] to [1]\n        say (item (1) of [chat v])\n        wait (2) seconds\n        say []\n        set [chat words v] to [0]\n    else\n        if <key (2 v) pressed?> then\n            set [chat words v] to [2]\n            say (item (2) of [chat v])\n            wait (2) seconds\n            say []\n            set [chat words v] to [0]\n        else\n            if <key (3 v) pressed?> then\n                set [chat words v] to [3]\n                say (item () of [chat v])\n                wait (2) seconds\n                say []\n                set [chat v] to [0]\n            else\n                if <key (4 v) pressed?> then\n                    set [chat words v] to [4]\n                    say (item (4) of [chat v])\n                    wait (2) seconds\n                    say []\n                    set [chat words v] to [0]\n                else\n                    if <key (5 v) pressed?> then\n                        set [chat words v] to [5]\n                        say (item (5) of [chat v])\n                        wait (2) seconds\n                        say []\n                        set [chat words v] to [0]\n                    else\n                        if <key (6 v) pressed?> then\n                            set [chat words v] to [6]\n                            say (item (6) of [chat v])\n                            wait (2) seconds\n                            say []\n                            set [chat words v] to [0]\n                        else\n                            if <key (7 v) pressed?> then\n                                set [chat words v] to [7]\n                                say (item (7) of [chat v])\n                                wait (2) seconds\n                                say []\n                                set [chat words v] to [0]\n                            else\n                                if <key (8 v) pressed?> then\n                                    set [chat words v] to [8]\n                                    say (item (8) of [chat v])\n                                    wait (2) seconds\n                                    say []\n                                    set [chat words v] to [0]\n                                else\n                                    if <key (9 v) pressed?> then\n                                        set [chat words v] to [9]\n                                        say (item (9) of [chat v])\n                                        wait (2) seconds\n                                        say []\n                                        set [chat words v] to [0]\n                                    else\n                                        set [chat words v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\ngo to [back v] layer\n\nwhen I receive [connected v]\nset [connected? v] to [1]\nshow\n\nwhen I receive [connecting v]\nhide\n\nwhen I receive [play game v]\nforever\n    if <(Connected?) = [1]> then\n        broadcast (Reset v) and wait\n        broadcast (Setup v) and wait\n        Game On\n        repeat until <(EXIT) > []>\n            Tick\n            broadcast (Tick v)\n        end\n        if <(EXIT) = [win]> then\n            Game - Win\n        else\n            Game - Die\n        end\n    end\nend\n\nwhen I receive [connected v]\nset [level v] to [1]\n\nwhen flag clicked\nforever\n    play sound [fly-away-feat-anjulie v] until done\nend\n\n@Others\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            wait until <not <key (n v) pressed?>>\n            set [names v] to [0]\n        else\n            wait until <not <key (n v) pressed?>>\n            set [names v] to [1]\n        end\n    end\nend\n\nwhen I receive [setup others v]\nsetup players\n\ndefine setup players\nhide\nset [offline v] to [100]\nset [player # v] to [1]\nrepeat ((MAX PLAYERS) - (1))\n    create clone of (_myself_ v)\n    change [player # v] by (1)\nend\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                                else\n                                    if <(player) = [10]> then\n                                        set [value v] to (☁ P10)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [begin v]\nforever\n    if <(MY PLAYER #) = (player #)> then\n        set [offline v] to [100]\n        hide\n    else\n        Tick\n    end\nend\n\ndefine Tick\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 encoded\nif <(names) = [1]> then\n    say (join (player #) (join [:] (value)))\nelse\n    say []\nend\nvalue = read from encoded\nvalue = read from encoded\nset x to ((value) - (SCROLL X))\nvalue = read from encoded\nset y to (((value) - (SCROLL Y)) + (8))\nvalue = read from encoded\nbroadcast (Decode Chat v)\n\ndefine begin decode of (encoded)\nset [encoded v] to (encoded)\nset [letter # v] to [1]\n\ndefine value = read from encoded\nset [value v] to []\nforever\n    set [idx v] to (join (letter (letter #) of (encoded)) (letter ((letter #) + (1)) of (encoded)))\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\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\ndefine Decode Chat (chat)\nif <(chat) = [1]> then\n    say (item (1) of [chat v]) for (2) seconds\nelse\n    if <(chat) = [2]> then\n        say (item (2) of [chat v]) for (2) seconds\n    else\n        if <(chat) = [3]> then\n            say (item (3) of [chat v]) for (2) seconds\n        else\n            if <(chat) = [4]> then\n                say (item (4) of [chat v]) for (2) seconds\n            else\n                if <(chat) = [5]> then\n                    say (item (5) of [chat v]) for (2) seconds\n                else\n                    if <(chat) = [6]> then\n                        say (item (6) of [chat v]) for (2) seconds\n                    else\n                        if <(chat) = [7]> then\n                            say (item (7) of [chat v]) for (2) seconds\n                        else\n                            if <(chat) = [8]> then\n                                say (item (8) of [chat v]) for (2) seconds\n                            else\n                                if <(chat) = [9]> then\n                                    say (item (9) of [chat v]) for (2) seconds\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [decode chat v]\nDecode Chat (value)\n\n@Platforms\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nPosition ((Platforms: x) - (SCROLL X)) ((Platforms: y) - (SCROLL Y))\n\nwhen I receive [setup v]\nhide\nset [platforms: x v] to [0]\nset [platforms: y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (level 1 1 v)\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [100]\n    Clone at x: [480] y: [200]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [100]\n    Clone at x: [480] y: [100]\n    Clone at x: [480] y: [100]\n    Clone at x: [480] y: [100]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [-100]\n    Clone at x: [250] y: [-150]\n    Clone at x: [250] y: [-150]\n    Clone at x: [250] y: [-150]\n    Clone at x: [360] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [300] y: [0]\n    Clone at x: [300] y: [150]\n    Clone at x: [300] y: [150]\n    Clone at x: [300] y: [150]\n    Clone at x: [300] y: [150]\n    Clone at x: [0] y: [360]\n    Clone at x: [0] y: [360]\n    Clone at x: [0] y: [360]\n    Clone at x: [-480] y: [0]\n    Clone at x: [-480] y: [0]\n    Clone at x: [-7495] y: [-1350]\n    Clone at x: [0] y: [325]\n    Clone at x: [0] y: [325]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [-200]\n    Clone at x: [480] y: [-200]\nend\n\ndefine Position (x) (y)\nset size to (100) %\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x: (x) y: (y)\ncreate clone of (_myself_ v)\nchange [platforms: x v] by (x)\nchange [platforms: y v] by (y)\nnext costume\n\nnext costume\nnext costume\n\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\n@DANGER\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nPosition ((DANGER: x) - (SCROLL X)) ((DANGER: y) - (SCROLL Y))\n\nwhen I receive [setup v]\nhide\nset [danger: x v] to [0]\nset [danger: y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (level 1 1 v)\n    Clone at x: [360] y: [0]\n    Clone at x: [720] y: [0]\n    Clone at x: [2170] y: [93]\n    Clone at x: [1250] y: [-15]\n    Clone at x: [9248] y: [130]\n    Clone at x: [3396] y: [1166]\n    Clone at x: [6291] y: [690]\nend\n\ndefine Position (x) (y)\ngo to [back v] layer\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x: (x) y: (y)\ncreate clone of (_myself_ v)\nset [danger: x v] to (x)\nset [danger: y v] to (y)\nnext costume\n\nchange [danger: x v] by (360)\nchange [danger: y v] by (360)\n\nClone at x: [2179] y: [93]\n\n@Saws\n\nwhen I receive [green flag v]\nhide variable [mouse v]\nhide\n\nwhen I receive [tick v]\nturn right (5) degrees\nPosition ((Saws: x) - (SCROLL X)) ((Saws: y) - (SCROLL Y))\ngo to [back v] layer\n\nwhen I receive [setup v]\nhide\nset [collected v] to [0]\nset [saws: x v] to [0]\nset [saws: y v] to [0]\nif <(LEVEL) = [1]> then\n    Clone at x: [150] y: [-50]\n    Clone at x: [7262] y: [680]\n    Clone at x: [9784] y: [130]\nend\nset [saws: x v] to [-999999]\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x: (x) y: (y)\nset [saws: x v] to (x)\nset [saws: y v] to (y)\ncreate clone of (_myself_ v)\n\nClone at x: [340] y: [27]\nClone at x: [530] y: [27]\nClone at x: [786] y: [27]\nClone at x: [1124] y: [27]\nClone at x: [1331] y: [245]\nClone at x: [1065] y: [345]\nClone at x: [825] y: [272]\nClone at x: [392] y: [245]\nClone at x: [197] y: [335]\n\nClone at x: [631] y: [11]\n\n@Collectables\n\nwhen I receive [green flag v]\nhide\nhide variable [collected idk why but there was a glitch so i have to change it now tot v]\n\nwhen I receive [tick v]\nshow variable [collected idk why but there was a glitch so i have to change it now tot v]\nnext costume\nPosition ((Collectables: x) - (SCROLL X)) ((Collectables: y) - (SCROLL Y))\nif <touching (player v)?> then\n    start sound [Coin v]\n    broadcast (plus v)\n    change [collected idk why but there was a glitch so i have to change it now tot v] by (1)\n    delete this clone\nend\n\nwhen I receive [connected v]\nhide\nset [collectables: x v] to [0]\nset [collectables: y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (coin1 v)\n    Clone at x: [-100] y: [63]\n    Clone at x: [-27] y: [63]\n    Clone at x: [37] y: [63]\n    Clone at x: [480] y: [180]\n    Clone at x: [935] y: [180]\n    Clone at x: [5451] y: [700]\n    Clone at x: [5115] y: [700]\n    Clone at x: [4482] y: [679]\n    Clone at x: [3909] y: [385]\n    Clone at x: [3523] y: [475]\n    Clone at x: [2866] y: [295]\n    Clone at x: [2900] y: [295]\n    Clone at x: [2934] y: [295]\n    Clone at x: [1606] y: [0]\n    Clone at x: [2137] y: [115]\n    Clone at x: [5725] y: [700]\n    Clone at x: [5775] y: [700]\n    Clone at x: [5825] y: [700]\n    Clone at x: [5875] y: [700]\n    Clone at x: [5925] y: [700]\n    Clone at x: [7262] y: [700]\n    Clone at x: [9468] y: [150]\n    Clone at x: [9515] y: [150]\n    Clone at x: [6553] y: [700]\n    Clone at x: [7545] y: [600]\n    Clone at x: [7870] y: [365]\n    Clone at x: [8455] y: [15]\n    Clone at x: [8803] y: [286]\n    Clone at x: [9235] y: [325]\n    Clone at x: [11144] y: [760]\n    Clone at x: [11138] y: [1050]\n    Clone at x: [11175] y: [1575]\n    Clone at x: [11246] y: [2000]\n    Clone at x: [10300] y: [1888]\n    Clone at x: [4123] y: [865]\n    Clone at x: [3630] y: [1065]\n    Clone at x: [3290] y: [1190]\n    Clone at x: [2675] y: [1060]\n    Clone at x: [2880] y: [645]\nend\nset [collectables: x v] to [-9999999999]\n\ncreate clone of (_myself_ v)\n\nnext costume\nnext costume\n\ndefine Position (x) (y)\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\n\ndelete this clone\n\ndefine Clone at x: (x) y: (y)\nset [collectables: x v] to (x)\nset [collectables: y v] to (y)\ncreate clone of (_myself_ v)\n\nClone at x: [2675] y: [1000]\nClone at x: [2880] y: [645]\n\nwhen flag clicked\nset [collected idk why but there was a glitch so i have to change it now tot v] to [0]\n\nwhen flag clicked\nhide variable [collected idk why but there was a glitch so i have to change it now tot v]\n\n@Love fave\n\nwhen flag clicked\nset [costume v] to [0]\nhide\nforever\n    if <not <<(LOVED__) = [1]> and <(FAVED___) = [1]>>> then\n        wait (pick random (30) to (40)) seconds\n        switch costume to (costume1 v)\n        go to x: (0) y: (50)\n        show\n        go to [front v] layer\n        start sound [pop v]\n        repeat (9)\n            change y by (-6)\n        end\n        repeat (5)\n            change y by (3)\n        end\n        repeat (5)\n            change y by (-1)\n        end\n        wait (2) seconds\n        repeat (15)\n            change y by (7)\n        end\n        hide\n    end\n    if <(Costume) > [0]> then\n        hide\n        stop [this script v]\n    end\nend\n\n@Joining\n\nwhen flag clicked\nhide\n\nwhen I receive [begin v]\nhide\n\nwhen I receive [connecting v]\nswitch costume to (lo v)\nshow\n\nwhen I receive [connected v]\ngo [forward v] (1322) layers\nstart sound [Connect v]\nswitch costume to (ld v)\nshow\nwait (1) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen I receive [full v]\nswitch costume to (full  v)\nshow\n\n@Loading\n\nwhen flag clicked\ngo [forward v] (213) layers\nset size to (100) %\nhide\npoint in direction (90)\nclear graphic effects\ngo to x: (0) y: (-80)\n\nwhen I receive [connecting v]\nrepeat (11)\n    create clone of (_myself_ v)\n    turn right (40) degrees\nend\n\nwhen I receive [connected v]\nrepeat (5)\n    change [ghost v] effect by (20)\nend\ndelete this clone\n\nwhen I start as a clone\nshow\nset [ghost v] effect to (100)\nforever\n    repeat (20)\n        turn right (7.5) degrees\n        change [ghost v] effect by (-6)\n        change size by (1)\n    end\n    repeat (20)\n        turn right (7.5) degrees\n        change [ghost v] effect by (6)\n        change size by (-1)\n    end\nend\n\n@TB\n\nwhen flag clicked\ngo to x: (0) y: (0)\ngo to [front v] layer\nset [ghost v] effect to (100)\n\nwhen I receive [tick v]\ngo to x: (0) y: (0)\ngo to [front v] layer\nset [ghost v] effect to (100)\n\nwhen [timer v] > (0)\ngo to x: (0) y: (0)\ngo to [front v] layer\nset [ghost v] effect to (100)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen flag clicked\nforever\n    reset timer\nend\n\n@FD\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\ngo to [front v] layer\nbroadcast (chat can go frontt v)\nPosition ((Platforms: x) - (SCROLL X)) ((Platforms: y) - (SCROLL Y))\n\nwhen I receive [setup v]\nhide\nset [platforms: x v] to [0]\nset [platforms: y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (level 1 1 v)\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [100]\n    Clone at x: [480] y: [200]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [100]\n    Clone at x: [480] y: [100]\n    Clone at x: [480] y: [100]\n    Clone at x: [480] y: [100]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [-100]\n    Clone at x: [250] y: [-150]\n    Clone at x: [250] y: [-150]\n    Clone at x: [250] y: [-150]\n    Clone at x: [360] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [0]\n    Clone at x: [300] y: [0]\n    Clone at x: [300] y: [150]\n    Clone at x: [300] y: [150]\n    Clone at x: [300] y: [150]\n    Clone at x: [300] y: [150]\n    Clone at x: [0] y: [360]\n    Clone at x: [0] y: [360]\n    Clone at x: [0] y: [360]\n    Clone at x: [-480] y: [0]\n    Clone at x: [-480] y: [0]\n    Clone at x: [-7495] y: [-1350]\n    Clone at x: [0] y: [325]\n    Clone at x: [0] y: [325]\n    Clone at x: [480] y: [0]\n    Clone at x: [480] y: [-200]\n    Clone at x: [480] y: [-200]\nend\n\ndefine Position (x) (y)\nset size to (100) %\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x: (x) y: (y)\ncreate clone of (_myself_ v)\nchange [platforms: x v] by (x)\nchange [platforms: y v] by (y)\nnext costume\n\nnext costume\nnext costume\n\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\ngo to [front v] layer\n\n@checkpoints\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [tick v]\nif <touching (player v)?> then\n    set [sp-x v] to (Platforms: x)\n    set [sp-y v] to (Platforms: y)\nend\ngo to [back v] layer\nbroadcast (chat can go frontt v)\nPosition ((Platforms: x) - (SCROLL X)) ((Platforms: y) - (SCROLL Y))\n\nwhen I receive [setup v]\nhide\nset [platforms: x v] to [0]\nset [platforms: y v] to [0]\nif <(LEVEL) = [1]> then\n    switch costume to (level 1 1 v)\n    Clone at x: [0] y: [0]\n    Clone at x: [1125] y: [0]\n    Clone at x: [3023] y: [280]\n    Clone at x: [3109] y: [1200]\n    Clone at x: [6432] y: [700]\n    Clone at x: [9020] y: [165]\nend\n\ndefine Position (x) (y)\nset size to (100) %\ngo to x: (x) y: (y)\nif <<(x) = (x position)> and <(y) = (y position)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [reset v]\ndelete this clone\n\ndefine Clone at x: (x) y: (y)\ncreate clone of (_myself_ v)\nset [platforms: x v] to (x)\nset [platforms: y v] to (y)\nnext costume\n\nnext costume\nnext costume\n\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\ngo to [back v] layer\n\nwhen flag clicked\nset [sp-x v] to [0]\nset [sp-y v] to [0]\n\nClone at x: [9020] y: [165]\n\n@Snow2\n\nwhen flag clicked\nforever\n    hide\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nswitch costume to (costume1 v)\nset [ghost v] effect to (0)\ngo to x: (pick random (-240) to (240)) y: (180)\nrepeat (100)\n    change y by (-5)\n    change x by (pick random (-1) to (1))\n    change [ghost v] effect by (1)\nend\ndelete this clone\n\n@Snow\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\ngo to [front v] layer\nshow\ngo to x: (230) y: (pick random (-200) to (200))\npoint in direction (pick random (-105) to (-75))\nset [ghost v] effect to (100)\nrepeat (4)\n    change [ghost v] effect by (-10)\nend\nrepeat until <(x position) < [-230]>\n    move (10) steps\nend\nrepeat (4)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen I receive [begin v]\nforever\n    create clone of (_myself_ v)\n    wait (.001) seconds\nend\n\n@Particles\n\nwhen flag clicked\nhide\ngo to [back v] layer\nforever\n    wait (0.05) seconds\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nset [ghost v] effect to (pick random (30) to (80))\nset size to (pick random (10) to (20)) %\nswitch costume to (costume1 v)\ngo to x: (250) y: (pick random (-180) to (180))\nglide (pick random (2) to (6)) secs to x: (-220) y: (pick random (-180) to (180))\nhide\ndelete this clone\n\n@moving clouds\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\nforever\n    create clone of (_myself_ v)\n    wait (pick random (5) to (6)) seconds\nend\n\nwhen I start as a clone\ngo [backward v] (pick random (-5) to (5)) layers\nset size to (pick random (400) to (500)) %\nswitch costume to (pick random (1) to (3))\nset [ghost v] effect to (80)\ngo to x: (306) y: (pick random (175) to (-130))\nshow\nglide (pick random (2) to (5)) secs to x: (-500) y: ((y position) - (pick random (30) to (100)))\ndelete this clone\n\n
ʜɪ ᴇᴠᴇʀʏᴏɴᴇ! ᴡᴇʟᴄᴏᴍᴇ ᴛᴏ ᴀɴᴏᴛʜᴇʀ ꜱᴄʀᴏʟʟɪɴɢ ᴘʟᴀᴛꜰᴏʀᴍᴇʀ! \nᴛʜɪꜱ ᴘʟᴀᴛꜰᴏʀᴍᴇʀ ɪꜱ ɴᴏᴛ ᴠᴇʀʏ ʟᴏɴɢ... ꜱɪɴᴄᴇ ɪ'ᴠᴇ ᴍᴀᴅᴇ ᴀ ʟᴏᴛ ᴏꜰ ꜱᴄʀᴏʟʟɪɴɢ ᴘʟᴀᴛꜰᴏʀᴍᴇʀꜱ. ɪ ᴡɪʟʟ ʙᴇ ᴍᴀᴋɪɴɢ ᴀ ꜰᴜɴ ɴᴏɴ-ꜱᴄʀᴏʟʟɪɴɢ ᴘʟᴀᴛꜰᴏʀᴍᴇʀ ꜱᴏᴏɴ! ꜰᴏʟʟᴏᴡ ᴍᴇ ᴛᴏ ꜱᴛᴀʏ ᴜᴘᴅᴀᴛᴇᴅ. ꜱᴛᴀʏ ᴛᴜɴᴇᴅ! \n\nʟᴇᴛꜱ ɢᴇᴛ ɪɴᴛᴏ ᴛʜᴇ ɪɴꜱᴛʀᴜᴄᴛɪᴏɴꜱ! \n\nᴡᴀꜱᴅ ᴏʀ ᴀʀʀᴏᴡ ᴋᴇʏꜱ ᴛᴏ ᴍᴏᴠᴇ\nɴᴏ ᴅᴏᴜʙʟᴇ ᴊᴜᴍᴘ!\nᴀᴠᴏɪᴅ ꜱᴘɪᴋᴇꜱ ᴀɴᴅ ꜰᴀʟʟɪɴɢ ᴅᴏᴡɴ\n\nɢᴇᴛ ᴛᴏ ᴛʜᴇ ʜɪɢʜᴇꜱᴛ ᴄʟᴏᴜᴅ ᴛᴏ ᴡɪɴ!\n\nᴛʜᴀᴛ'ꜱ ᴀʟʟ ꜰᴏʀ ᴛʜᴇ ɪɴꜱᴛʀᴜᴄᴛɪᴏɴꜱ.. ꜱᴏᴍᴇᴛʜɪɴɢ ꜱᴘᴇᴄɪᴀʟ ɪꜱ ᴛʜᴇʀᴇ ᴜɴᴅᴇʀ ɴᴏᴇꜱ ᴀɴᴅ ᴄʀᴇᴅɪᴛꜱ ꜱᴇᴄᴛɪᴏɴ! :ᴅ