Tower Explorer A Multiplayer Platformer
@Stage\n\nwhen I receive [join  v]\nset volume to (100) %\nforever\n    if <(Kick) = []> then\n        play sound [Tobu - Candyland v] until done\n    end\nend\n\nwhen I receive [win v]\nset volume to (0) %\n\n@Player\n\nwhen flag clicked\nbroadcast (Green Flag v) and wait\nbroadcast (Join  v)\n\nwhen I receive [green flag v]\nhide\ngo to [front v] layer\ngo [backward v] (1) layers\n\ndefine Game On\nshow\npoint in direction (90)\nset rotation style [left-right v]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nset [exit v] to []\nclear graphic effects\nset size to (100) %\nset [x v] to [-100]\nset [y v] to [-100]\nset [sx v] to [0]\nset [sy v] to [0]\nset [f v] to [0]\n\ndefine Tick\nset [pxc v] to [0]\nset [pyc v] to [0]\nif <<key (left arrow v) pressed?> or > then\n    change [sx v] by (-1)\n    change [pxc v] by (-1)\nend\nif <<key (right arrow v) pressed?> or > then\n    change [sx v] by (1)\n    change [pxc v] by (1)\nend\nif <<key (up arrow v) pressed?> or > then\n    if <(in air) < [5]> then\n        set [sy v] to [16]\n    end\n    set [pyc v] to [1]\nend\nif <[-16] < (sy)> then\n    change [sy v] by (-2)\nend\nif <touching (trampoline v)?> then\n    set [sy v] to [26]\nend\nChange player y by (sy)\nTest Die\nset [sx v] to ((sx) * (0.85))\nChange player x by (round (sx))\nchange [scroll y v] by (((y) - (SCROLL Y)) / (10))\nif <(SCROLL X) < [0]> then\n    set [scroll x v] to [0]\nend\nif <(SCROLL Y) < [0]> then\n    set [scroll y v] to [0]\nend\nif <(x) < [-220]> then\n    set [x v] to [-220]\nend\nif <[220] < (x)> then\n    set [x v] to [220]\nend\nPosition\nif <(y) < [-180]> then\n    set [exit v] to [die]\nend\nTest Die\n\ndefine Change player y by (sy)\nchange [y v] by (sy)\nchange [in air v] by (1)\nPosition\nrepeat until <not >\n    if <(sy) > [0]> then\n        change [y v] by (-1)\n    else\n        if <[0] > (sy)> then\n            change [y v] by (1)\n        end\n        set [in air v] to [0]\n    end\n    Position\n    set [sy v] to [0]\nend\n\ndefine Position\ngo to x: (round ((x) - (SCROLL X))) y: (round ((y) - (SCROLL Y)))\nif <<(x position) = (round ((x) - (SCROLL X)))> and <(y position) = (round ((y) - (SCROLL Y)))>> then\n    show\nelse\n    hide\nend\n\ndefine Change player x by (sx)\nchange [x v] by (sx)\nPosition\nif  then\n    broadcast (Bend v)\n    repeat (12)\n        change [y v] by (1)\n    end\n    change [y v] by (-12)\n    repeat until <not >\n        if <(sx) > [0]> then\n            change [x v] by (-1)\n        else\n            if <[0] > (sx)> then\n                change [x v] by (1)\n            end\n        end\n        Position\n    end\n    if <<key (up arrow v) pressed?> or > then\n        if <(sx) > [0]> then\n            set [sx v] to [-8]\n        else\n            set [sx v] to [8]\n        end\n        set [in air v] to [0]\n    else\n        set [sx v] to [0]\n    end\nend\n\ndefine Test Die\nif <touching (danger v)?> then\n    set [exit v] to [die]\nend\n\ndefine die\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nwait (0.2) seconds\n\nwhen I receive [play game v]\nset [level v] to [1]\nforever\n    broadcast (Reset v) and wait\n    broadcast (Set Up v) and wait\n    Game On\n    repeat until <(EXIT) > []>\n        set rotation style [don't rotate v]\n        Tick\n        change [f v] by (1)\n        set [f v] to ((f) mod (25))\n        if <(f) = [0]> then\n            broadcast (Tick v) and wait\n        else\n            broadcast (Tick v)\n        end\n    end\n    die\nend\n\nwhen [timer v] > (tc)\nhide\n\n@Platforms\n\nwhen I receive [tick v]\nshow\nPosition x (round ((x) - (SCROLL X))) y (round ((y) - (SCROLL Y)))\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [set up v]\nswitch costume to (level 1 1 v)\nhide\nClone at x [0] y [0] # [1]\nClone at x [0] y [550] # [2]\nClone at x [0] y [1000] # [3]\n\ndefine Position x (x) y (y)\ngo to x: (x) y: (y)\nif <<(x position) = (x)> and <(y position) = (y)>> then\n    show\nelse\n    hide\nend\n\ndefine Clone at x (x) y (y) # (#)\nset [x v] to (x)\nset [y v] to (y)\nset [cos v] to (#)\nswitch costume to (#)\ncreate clone of (_myself_ v)\nset [x v] to [-9999]\n\nwhen I receive [reset v]\ndelete this clone\n\n@Mountains\n\nwhen I receive [tick v]\ngo to [back v] layer\nPos ((bx) - ((SCROLL X) / (5))) ((by) - ((SCROLL Y) / (5)))\n\ndefine Pos (x) (y)\ngo to x: (round (x)) y: (round (y))\nif <<(round (y)) = (y position)> and <(round (x)) = (x position)>> then\n    show\nelse\n    hide\nend\n\ndefine clone mountains (m)\nset [bx v] to [0]\nset [by v] to [0]\nrepeat (m)\n    switch costume to (pick random (1) to (2))\n    create clone of (_myself_ v)\n    change [bx v] by (550)\nend\n\nwhen flag clicked\nclone mountains [1]\n\n@Cloud\n\ndefine Rec (num)\nswitch costume to (num)\nif <(length of (costume [number v])) = [1]> then\n    set [ccode v] to (join [0] (costume [number v]))\nelse\n    set [ccode v] to (costume [number v])\nend\n\ndefine Encode (string)\nset [# v] to [0]\nrepeat (length of (string))\n    change [# v] by (1)\n    Rec (letter (#) of (string))\n    set [encoded v] to (join (Encoded) (CCode))\nend\nset [encoded v] to (join (Encoded) [00])\n\ndefine Send Cloud Data\nset [encoded v] to []\nEncode (username)\nEncode (f)\nEncode ([x v] of [player v])\nEncode ([y v] of [player v])\nif <(Player Id) = [1]> then\n    set [☁ c1 v] to (Encoded)\nelse\n    if <(Player Id) = [2]> then\n        set [☁ c2 v] to (Encoded)\n    else\n        if <(Player Id) = [3]> then\n            set [☁ c3 v] to (Encoded)\n        else\n            if <(Player Id) = [4]> then\n                set [☁ c4 v] to (Encoded)\n            else\n                if <(Player Id) = [5]> then\n                    set [☁ c5 v] to (Encoded)\n                else\n                    if <(Player Id) = [6]> then\n                        set [☁ c6 v] to (Encoded)\n                    else\n                        if <(Player Id) = [7]> then\n                            set [☁ c7 v] to (Encoded)\n                        else\n                            if <(Player Id) = [8]> then\n                                set [☁ c8 v] to (Encoded)\n                            else\n                                if <(Player Id) = [9]> then\n                                    set [☁ c9 v] to (Encoded)\n                                else\n                                    if <(Player Id) = [10]> then\n                                        set [☁ c10 v] to (Encoded)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine Download Cloud Variables\ndelete all of [cloud variables v]\nadd (☁ C1) to [cloud variables v]\nadd (☁ C2) to [cloud variables v]\nadd (☁ C3) to [cloud variables v]\nadd (☁ C4) to [cloud variables v]\nadd (☁ C5) to [cloud variables v]\nadd (☁ C6) to [cloud variables v]\nadd (☁ C7) to [cloud variables v]\nadd (☁ C8) to [cloud variables v]\nadd (☁ C9) to [cloud variables v]\nadd (☁ C10) to [cloud variables v]\n\ndefine Active Check\ndelete all of [active check v]\nif <(join [apple ] (☁ C1)) = (join [apple ] (item (1) of [cloud variables v]))> then\n    add [0] to [active check v]\nelse\n    add [1] to [active check v]\nend\nif <(join [apple ] (☁ C2)) = (join [apple ] (item (2) of [cloud variables v]))> then\n    add [0] to [active check v]\nelse\n    add [1] to [active check v]\nend\nif <(join [apple ] (☁ C3)) = (join [apple ] (item (3) of [cloud variables v]))> then\n    add [0] to [active check v]\nelse\n    add [1] to [active check v]\nend\nif <(join [apple ] (☁ C4)) = (join [apple ] (item (4) of [cloud variables v]))> then\n    add [0] to [active check v]\nelse\n    add [1] to [active check v]\nend\nif <(join [apple ] (☁ C5)) = (join [apple ] (item (5) of [cloud variables v]))> then\n    add [0] to [active check v]\nelse\n    add [1] to [active check v]\nend\nif <(join [apple ] (☁ C6)) = (join [apple ] (item (6) of [cloud variables v]))> then\n    add [0] to [active check v]\nelse\n    add [1] to [active check v]\nend\nif <(join [apple ] (☁ C7)) = (join [apple ] (item (7) of [cloud variables v]))> then\n    add [0] to [active check v]\nelse\n    add [1] to [active check v]\nend\nif <(join [apple ] (☁ C8)) = (join [apple ] (item (8) of [cloud variables v]))> then\n    add [0] to [active check v]\nelse\n    add [1] to [active check v]\nend\nif <(join [apple ] (☁ C9)) = (join [apple ] (item (9) of [cloud variables v]))> then\n    add [0] to [active check v]\nelse\n    add [1] to [active check v]\nend\nif <(join [apple ] (☁ C10)) = (join [apple ] (item (10) of [cloud variables v]))> then\n    add [0] to [active check v]\nelse\n    add [1] to [active check v]\nend\n\ndefine Decode (encoded)\nset [i v] to []\nset [output v] to []\nforever\n    change [# v] by (2)\n    set [i v] to (join (letter ((#) - (1)) of (encoded)) (letter (#) of (encoded)))\n    if <(i) < [1]> then\n        stop [this script v]\n    end\n    switch costume to (i)\n    set [output v] to (join (Output) (costume [name v]))\nend\n\ndefine Major Decode\ndelete all of [cloud list v]\nset [# v] to [0]\nDecode (☁ C1)\nadd (Output) to [cloud list v]\nDecode (☁ C1)\nDecode (☁ C1)\nadd (Output) to [cloud list v]\nDecode (☁ C1)\nadd (Output) to [cloud list v]\nset [# v] to [0]\nDecode (☁ C2)\nadd (Output) to [cloud list v]\nDecode (☁ C2)\nDecode (☁ C2)\nadd (Output) to [cloud list v]\nDecode (☁ C2)\nadd (Output) to [cloud list v]\nset [# v] to [0]\nDecode (☁ C3)\nadd (Output) to [cloud list v]\nDecode (☁ C3)\nDecode (☁ C3)\nadd (Output) to [cloud list v]\nDecode (☁ C3)\nadd (Output) to [cloud list v]\nset [# v] to [0]\nDecode (☁ C4)\nadd (Output) to [cloud list v]\nDecode (☁ C4)\nDecode (☁ C4)\nadd (Output) to [cloud list v]\nDecode (☁ C4)\nadd (Output) to [cloud list v]\nset [# v] to [0]\nDecode (☁ C5)\nadd (Output) to [cloud list v]\nDecode (☁ C5)\nDecode (☁ C5)\nadd (Output) to [cloud list v]\nDecode (☁ C5)\nadd (Output) to [cloud list v]\nset [# v] to [0]\nDecode (☁ C6)\nadd (Output) to [cloud list v]\nDecode (☁ C6)\nDecode (☁ C6)\nadd (Output) to [cloud list v]\nDecode (☁ C6)\nadd (Output) to [cloud list v]\nset [# v] to [0]\nDecode (☁ C7)\nadd (Output) to [cloud list v]\nDecode (☁ C7)\nDecode (☁ C7)\nadd (Output) to [cloud list v]\nDecode (☁ C7)\nadd (Output) to [cloud list v]\nset [# v] to [0]\nDecode (☁ C8)\nadd (Output) to [cloud list v]\nDecode (☁ C8)\nDecode (☁ C8)\nadd (Output) to [cloud list v]\nDecode (☁ C8)\nadd (Output) to [cloud list v]\nset [# v] to [0]\nDecode (☁ C9)\nadd (Output) to [cloud list v]\nDecode (☁ C9)\nDecode (☁ C9)\nadd (Output) to [cloud list v]\nDecode (☁ C9)\nadd (Output) to [cloud list v]\nset [# v] to [0]\nDecode (☁ C10)\nadd (Output) to [cloud list v]\nDecode (☁ C10)\nDecode (☁ C10)\nadd (Output) to [cloud list v]\nDecode (☁ C10)\nadd (Output) to [cloud list v]\n\nwhen I receive [tick v]\nMajor Decode\n\nwhen I receive [play game v]\nforever\n    Download Cloud Variables\n    wait (1) seconds\n    Active Check\nend\n\nwhen I receive [tick v]\nSend Cloud Data\n\nwhen I receive [join  v]\nset [player id v] to [0]\nset [join status v] to [Joining]\nDownload Cloud Variables\nwait (3) seconds\nif <(join [apple ] (☁ C1)) = (join [apple ] (item (1) of [cloud variables v]))> then\n    set [player id v] to [1]\n    set [join status v] to [Joined]\nelse\n    if <(join [apple ] (☁ C2)) = (join [apple ] (item (2) of [cloud variables v]))> then\n        set [player id v] to [2]\n        set [join status v] to [Joined]\n    else\n        if <(join [apple ] (☁ C3)) = (join [apple ] (item (3) of [cloud variables v]))> then\n            set [player id v] to [3]\n            set [join status v] to [Joined]\n        else\n            if <(join [apple ] (☁ C4)) = (join [apple ] (item (4) of [cloud variables v]))> then\n                set [player id v] to [4]\n                set [join status v] to [Joined]\n            else\n                if <(join [apple ] (☁ C5)) = (join [apple ] (item (5) of [cloud variables v]))> then\n                    set [player id v] to [5]\n                    set [join status v] to [Joined]\n                else\n                    if <(join [apple ] (☁ C6)) = (join [apple ] (item (6) of [cloud variables v]))> then\n                        set [player id v] to [6]\n                        set [join status v] to [Joined]\n                    else\n                        if <(join [apple ] (☁ C7)) = (join [apple ] (item (7) of [cloud variables v]))> then\n                            set [player id v] to [7]\n                            set [join status v] to [Joined]\n                        else\n                            if <(join [apple ] (☁ C8)) = (join [apple ] (item (8) of [cloud variables v]))> then\n                                set [player id v] to [8]\n                                set [join status v] to [Joined]\n                            else\n                                if <(join [apple ] (☁ C9)) = (join [apple ] (item (9) of [cloud variables v]))> then\n                                    set [player id v] to [9]\n                                    set [join status v] to [Joined]\n                                else\n                                    if <(join [apple ] (☁ C10)) = (join [apple ] (item (10) of [cloud variables v]))> then\n                                        set [player id v] to [10]\n                                        set [join status v] to [Joined]\n                                    else\n                                        set [join status v] to [Full]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nif <(Join Status) = [Joined]> then\n    broadcast (Joined v)\nelse\n    broadcast (full v)\nend\n\n@Multiplayer\n\nwhen flag clicked\nClone [10]\n\ndefine Clone (clones)\nhide\nset [clone id v] to [0]\nrepeat (clones)\n    change [clone id v] by (1)\n    create clone of (_myself_ v)\nend\nset [clone id v] to [Not Clone]\n\nwhen I receive [tick v]\nif <not <<<(clone id) = [Not Clone]> or <(clone id) = (Player Id)>> or <(item (clone id) of [active check v]) = [0]>>> then\n    show\n    say (join (clone id) (join [:] (item ((((clone id) - (1)) * (3)) + (1)) of [cloud list v])))\n    p (round ((item ((((clone id) - (1)) * (3)) + (2)) of [cloud list v]) - (SCROLL X))) (round ((item ((((clone id) - (1)) * (3)) + (3)) of [cloud list v]) - (SCROLL Y)))\nelse\n    hide\nend\n\ndefine p (x) (y)\ngo to x: (x) y: (y)\nif <<(x position) = (x)> and <(y position) = (y)>> then\n    set [ghost v] effect to (0)\nelse\n    set [ghost v] effect to (100)\nend\n\n@Joining  Art\n\nwhen I start as a clone\nif <(CloneID#) = [1]> then\n    show\n    switch costume to (joining v)\n    set y to (-200)\n    repeat (30)\n        change y by ((y position) / (-7))\n    end\nend\n\nwhen I start as a clone\nif <(CloneID#) = [3]> then\n    show\n    set [ghost v] effect to (100)\n    repeat (10)\n        change [ghost v] effect by (-8)\n    end\nend\n\nwhen I receive [joined v]\nif <(costume [number v]) = [1]> then\n    switch costume to (joined v)\nend\nwait (2) seconds\nreset timer\nbroadcast (Play Game v)\n\nwhen I receive [play game v]\nhide\nerase all\ndelete this clone\n\nwhen [timer v] > (tc)\nhide\ndelete this clone\n\nwhen I receive [full v]\nif <(costume [number v]) = [1]> then\n    switch costume to (full v)\nend\nstop [all v]\n\nwhen I receive [join  v]\nset [cloneid# v] to [1]\ncreate clone of (_myself_ v)\n\n@Thumbnail\n\nwhen [timer v] > (tc)\nif <(Kick) = []> then\n    show\n    switch costume to (day v)\n    go to [front v] layer\n    set [ghost v] effect to (100)\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\nend\nif <(Kick) = [Turbo]> then\n    switch costume to (turbo v)\n    go to [front v] layer\n    stop all sounds\n    show\nend\n\nwhen flag clicked\nhide\npoint in direction (90)\nset [kick v] to []\nset [turbotest v] to [0]\nrepeat until <(timer) > [1]>\n    wait () seconds\n    change [turbotest v] by (1)\nend\nif <(TurboTest) > [100]> then\n    set [kick v] to [Turbo]\n    stop [all v]\nend\n\nwhen flag clicked\nforever\n    set [tc v] to (timer)\nend\n\n@Intro\n\ndefine Intro\nReset\nset [clone id v] to [0]\ncreate clone of (_myself_ v)\nset [clone id v] to [1]\ncreate clone of (_myself_ v)\nwait (.2) seconds\nset [clone id v] to [2]\ncreate clone of (_myself_ v)\nwait (.2) seconds\nset [clone id v] to [3]\ncreate clone of (_myself_ v)\nwait (.3) seconds\nset [introsequence v] to [2]\nset [clone id v] to [5]\ncreate clone of (_myself_ v)\nParticles [40]\nset [clone id v] to [4]\nLogo\nset [clone id v] to [7]\ncreate clone of (_myself_ v)\nwait until <(IntroSequence) = [3]>\nset [clone id v] to [8]\ncreate clone of (_myself_ v)\nwait until <(IntroSequence) = [4]>\nset [clone id v] to [9]\ncreate clone of (_myself_ v)\nset [clone id v] to [11]\ncreate clone of (_myself_ v)\nBar Function\nwait until <(IntroSequence) = [6]>\nset [clone id v] to [13]\ncreate clone of (_myself_ v)\nset [clone id v] to [12]\nwait (.1) seconds\nset [clone id v] to [14]\ncreate clone of (_myself_ v)\nwait (.1) seconds\nset [clone id v] to [15]\ncreate clone of (_myself_ v)\nwait (.1) seconds\nset [clone id v] to [14]\ncreate clone of (_myself_ v)\nwait (.05) seconds\nset [clone id v] to [16]\ncreate clone of (_myself_ v)\nwait (.15) seconds\nset [clone id v] to [17]\ncreate clone of (_myself_ v)\nwait (.45) seconds\nset [introsequence v] to [7]\nset [clone id v] to [18]\ncreate clone of (_myself_ v)\nParticles [40]\nwait until <(IntroSequence) = [8]>\nLogo2\nwait (.3) seconds\nset [clone id v] to [20]\ncreate clone of (_myself_ v)\nwait until <(IntroSequence) = [10]>\n\ndefine Reset\nhide\ngo to x: (0) y: (0)\npoint in direction (90)\nset size to (100) %\nclear graphic effects\nswitch costume to (costume2 v)\nset [i v] to [0]\nset [i2 v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nset [direction v] to [0]\nset [introsequence v] to [1]\nstart sound [Chime & Adam Tell - Whole \(Rob Gasser Remix\) \[NCS Release\] v]\n\nwhen I start as a clone\nif <(Clone ID) = [0]> then\n    show\n    switch costume to (costume1 v)\nend\nif <<(Clone ID) = [1]> or <(Clone ID) = [3]>> then\n    show\n    go to x: (-2400000) y: (0)\n    switch costume to (square v)\n    point in direction (-45)\n    set size to (2) %\n    repeat until <(IntroSequence) = [4]>\n        turn right (((90) - (direction)) / (5)) degrees\n        change x by ((() - (x position)) / (5))\n        change size by ((size) / (3.25))\n    end\n    delete this clone\nelse\n    if <(Clone ID) = [2]> then\n        show\n        go to x: (240000000) y: (0)\n        switch costume to (square2 v)\n        point in direction (45)\n        set size to (2) %\n        repeat until <(IntroSequence) = [4]>\n            turn right (((-90) - (direction)) / (5)) degrees\n            change x by ((() - (x position)) / (5))\n            change size by ((size) / (3.25))\n        end\n        delete this clone\n    else\n        if <(Clone ID) = [4]> then\n            show\n            set size to (pick random (50) to (85)) %\n            switch costume to (pick random (4) to (7))\n            set [brightness v] effect to (100)\n            set [ghost v] effect to (25)\n            point in direction (pick random (1) to (359))\n            set [i v] to (pick random (200) to (-200))\n            set [i2 v] to (pick random (200) to (-200))\n            repeat (18)\n                change x by (((i) - (x position)) / (6))\n                change y by (((i2) - (y position)) / (6))\n            end\n            repeat (20)\n                change [ghost v] effect by (5)\n                change x by ((() - (x position)) / (5))\n                change y by ((() - (y position)) / (5))\n            end\n            delete this clone\n        else\n            if <(Clone ID) = [5]> then\n                show\n                switch costume to (logo v)\n                set size to (0) %\n                repeat (18)\n                    set [i v] to (((i) * (.75)) + (((125) - (size)) * (.3)))\n                    change size by (i)\n                    set y to (i)\n                end\n                set [i v] to [0]\n                repeat (20)\n                    change [ghost v] effect by (5)\n                    set [i v] to (((i) * (.75)) + (((50) - (size)) * (.3)))\n                    change size by (i)\n                    set y to (i)\n                end\n                delete this clone\n            else\n                if <(Clone ID) = [6]> then\n                    show\n                    if <(IntroSequence) = [7]> then\n                        go to [front v] layer\n                    end\n                    switch costume to (particles v)\n                    clear graphic effects\n                    set [brightness v] effect to (pick random (5) to (10))\n                    set size to (pick random (60) to (140)) %\n                    go to x: (0) y: (0)\n                    set [i v] to (pick random (-18) to (18))\n                    point in direction (pick random (180) to (-180))\n                    repeat (5)\n                        set [i v] to ((i) * (.99))\n                        move (i) steps\n                        change [ghost v] effect by (pick random (1) to (3))\n                    end\n                    repeat until <touching (_edge_ v)?>\n                        move (i) steps\n                        set [i v] to ((i) * (.99))\n                        change size by (-2)\n                        change [ghost v] effect by (pick random (1) to (3))\n                    end\n                    delete this clone\n                else\n                    if <(Clone ID) = [7]> then\n                        show\n                        switch costume to (square3 v)\n                        set size to (0) %\n                        set [i v] to [1]\n                        set [ghost v] effect to (100)\n                        repeat (10)\n                            change [ghost v] effect by (-5)\n                            switch costume to (blank template v)\n                            change [i v] by ((i) / (3))\n                            change size by (i)\n                            switch costume to (square3 v)\n                        end\n                        set [introsequence v] to [3]\n                        repeat (10)\n                            change [ghost v] effect by (-5)\n                            switch costume to (blank template v)\n                            change [i v] by ((i) / (3))\n                            change size by (i)\n                            switch costume to (square3 v)\n                        end\n                    else\n                        if <(Clone ID) = [8]> then\n                            show\n                            switch costume to (circle v)\n                            set size to (0) %\n                            set [i v] to [1]\n                            set [ghost v] effect to (100)\n                            repeat (13)\n                                change [ghost v] effect by (-10)\n                                switch costume to (blank template v)\n                                change [i v] by ((i) / (3))\n                                change size by (i)\n                                switch costume to (circle v)\n                            end\n                            set [introsequence v] to [4]\n                            repeat (10)\n                                change [ghost v] effect by (-5)\n                                switch costume to (blank template v)\n                                change [i v] by ((i) / (3))\n                                change size by (i)\n                                switch costume to (circle v)\n                            end\n                        else\n                            if <(Clone ID) = [9]> then\n                                wait (.075) seconds\n                                show\n                                switch costume to (circle pattern 1 v)\n                                set size to (0) %\n                                go to [front v] layer\n                                repeat (5)\n                                    change size by (((100) - (size)) / (5))\n                                end\n                                repeat (10)\n                                    change [ghost v] effect by (5)\n                                    next costume\n                                    change size by (((100) - (size)) / (5))\n                                end\n                            else\n                                if <(Clone ID) = [10]> then\n                                    show\n                                    switch costume to (bar v)\n                                    set size to (0) %\n                                    point in direction (180)\n                                    go to x: (0) y: (y position)\n                                    repeat (10)\n                                        change size by (i)\n                                        set [i v] to (((i) * (.65)) + (((100) - (size)) / (3)))\n                                    end\n                                    set [introsequence v] to [5]\n                                    repeat (1)\n                                        change size by (i)\n                                        set [i v] to (((i) * (.65)) + (((125) - (size)) / (3)))\n                                    end\n                                    set [introsequence v] to [6]\n                                    repeat (10)\n                                        change size by (i)\n                                        set [i v] to (((i) * (.65)) + (((125) - (size)) / (3)))\n                                    end\n                                    set size to (125) %\n                                else\n                                    if <(Clone ID) = [11]> then\n                                        show\n                                        switch costume to (logo2 v)\n                                        go to [front v] layer\n                                        set [i v] to [1]\n                                        set size to (0) %\n                                        point in direction (0)\n                                        go to x: (0) y: (0)\n                                        repeat (15)\n                                            change size by (i2)\n                                            set [i2 v] to (((i2) * (.8)) + (((100) - (size)) * (.3)))\n                                            set y to ((i2) * (1))\n                                        end\n                                        set [i v] to [2]\n                                        repeat (13)\n                                            set [x v] to (x position)\n                                            set [y v] to (y position)\n                                            set [direction v] to (direction)\n                                            move (i) steps\n                                            change [i v] by ((i) / (5))\n                                            turn right (((-90) - (direction)) / (15)) degrees\n                                            set [i2 v] to (((i2) * (.8)) + (((75) - (size)) * (.3)))\n                                            change size by (i2)\n                                        end\n                                        set [introsequence v] to [6]\n                                        repeat (12)\n                                            set [x v] to (x position)\n                                            set [y v] to (y position)\n                                            set [direction v] to (direction)\n                                            move (i) steps\n                                            change [i v] by ((i) / (5))\n                                            turn right (((-90) - (direction)) / (20)) degrees\n                                            set [i2 v] to (((i2) * (.8)) + (((75) - (size)) * (.3)))\n                                            change size by (i2)\n                                        end\n                                        set [x v] to [0]\n                                        set [y v] to [0]\n                                        set [direction v] to [0]\n                                        delete this clone\n                                    else\n                                        if <(Clone ID) = [12]> then\n                                            show\n                                            if <(IntroSequence) = [10]> then\n                                                set [brightness v] effect to (100)\n                                            end\n                                            switch costume to (particles2 v)\n                                            set size to (pick random (50) to (100)) %\n                                            go to x: (X) y: (Y)\n                                            point in direction (Direction)\n                                            set [i v] to [-10]\n                                            repeat (20)\n                                                move (i) steps\n                                                set [i v] to ((i) * (.9))\n                                                change [ghost v] effect by (5)\n                                            end\n                                            delete this clone\n                                        else\n                                            if <(Clone ID) = [13]> then\n                                                show\n                                                go to [front v] layer\n                                                switch costume to (blank template v)\n                                                set size to (100) %\n                                                switch costume to (arrow v)\n                                                go to x: (-2400000) y: (0)\n                                                set [ghost v] effect to (100)\n                                                repeat (15)\n                                                    change [ghost v] effect by (-10)\n                                                    change x by (((0) - (x position)) / (4.5))\n                                                end\n                                            else\n                                                if <(Clone ID) = [14]> then\n                                                    show\n                                                    switch costume to (another square 1 v)\n                                                    go to [front v] layer\n                                                    go to x: (-400000000) y: (0)\n                                                    set [i v] to [1]\n                                                    point in direction (90)\n                                                    set size to (1) %\n                                                    set [ghost v] effect to (0)\n                                                    repeat (40)\n                                                        change [ghost v] effect by (-10)\n                                                        switch costume to (blank template v)\n                                                        turn right (5) degrees\n                                                        change size by ((size) / (3))\n                                                        switch costume to (another square 1 v)\n                                                        change x by (((0) - (x position)) / (6))\n                                                    end\n                                                else\n                                                    if <(Clone ID) = [15]> then\n                                                        show\n                                                        switch costume to (another square 2 v)\n                                                        go to [front v] layer\n                                                        go to x: (-400000000000) y: (0)\n                                                        set [i v] to [1]\n                                                        point in direction (90)\n                                                        set size to (1) %\n                                                        repeat (40)\n                                                            switch costume to (blank template v)\n                                                            turn right (5) degrees\n                                                            change size by ((size) / (3))\n                                                            switch costume to (another square 2 v)\n                                                            change x by (((0) - (x position)) / (6))\n                                                        end\n                                                    else\n                                                        if <<(Clone ID) = [16]> or <(Clone ID) = [17]>> then\n                                                            show\n                                                            switch costume to ((Clone ID) + (13))\n                                                            go to [front v] layer\n                                                            set size to (50) %\n                                                            set [i v] to [1]\n                                                            go to x: (0) y: (36000)\n                                                            set [ghost v] effect to (100)\n                                                            set size to (50) %\n                                                            repeat (18)\n                                                                switch costume to (blank template v)\n                                                                change [i v] by ((i) / (3))\n                                                                change [ghost v] effect by (-6)\n                                                                change size by (i)\n                                                                change x by (((0) - (x position)) / (6))\n                                                                change y by (((0) - (y position)) / (6))\n                                                                switch costume to ((Clone ID) + (13))\n                                                            end\n                                                        else\n                                                            if <(Clone ID) = [18]> then\n                                                                show\n                                                                go to [front v] layer\n                                                                set size to (0) %\n                                                                point in direction (0)\n                                                                switch costume to (finally the climax xd v)\n                                                                repeat (18)\n                                                                    change [i v] by (10)\n                                                                    point in direction ([cos v] of (i) )\n                                                                    set [i2 v] to (((i2) * (.825)) + (((100) - (size)) / (3)))\n                                                                    change size by (i2)\n                                                                    set y to (i2)\n                                                                end\n                                                                set [introsequence v] to [8]\n                                                                repeat (2)\n                                                                    change [i v] by (10)\n                                                                    point in direction ([cos v] of (i) )\n                                                                    set [i2 v] to (((i2) * (.825)) + (((100) - (size)) / (3)))\n                                                                    change size by (i2)\n                                                                    set y to (i2)\n                                                                end\n                                                                repeat (20)\n                                                                    change [i v] by (10)\n                                                                    point in direction ([cos v] of (i) )\n                                                                    change [ghost v] effect by (5)\n                                                                    set [i2 v] to (((i2) * (.825)) + (((50) - (size)) / (7)))\n                                                                    change size by (i2)\n                                                                end\n                                                                delete this clone\n                                                            else\n                                                                if <(Clone ID) = [19]> then\n                                                                    show\n                                                                    go to [front v] layer\n                                                                    set size to (pick random (75) to (90)) %\n                                                                    switch costume to (pick random (4) to (7))\n                                                                    set [brightness v] effect to (100)\n                                                                    set [ghost v] effect to (25)\n                                                                    point in direction (pick random (1) to (359))\n                                                                    set [i v] to (pick random (200) to (-200))\n                                                                    set [i2 v] to (pick random (200) to (-200))\n                                                                    repeat (18)\n                                                                        change x by (((i) - (x position)) / (6))\n                                                                        change y by (((i2) - (y position)) / (6))\n                                                                    end\n                                                                    repeat (20)\n                                                                        change [ghost v] effect by (5)\n                                                                        change x by ((() - (x position)) / (5))\n                                                                        change y by ((() - (y position)) / (5))\n                                                                    end\n                                                                    delete this clone\n                                                                else\n                                                                    if <(Clone ID) = [20]> then\n                                                                        show\n                                                                        go to [front v] layer\n                                                                        switch costume to (circle v)\n                                                                        set size to (0) %\n                                                                        set [i v] to [1]\n                                                                        set [brightness v] effect to (100)\n                                                                        set [ghost v] effect to (100)\n                                                                        repeat (10)\n                                                                            change [ghost v] effect by (-5)\n                                                                            switch costume to (blank template v)\n                                                                            change [i v] by ((i) / (3))\n                                                                            change size by (i)\n                                                                            switch costume to (circle v)\n                                                                        end\n                                                                        set [introsequence v] to [9]\n                                                                        repeat (9)\n                                                                            change [ghost v] effect by (-6)\n                                                                            switch costume to (blank template v)\n                                                                            change [i v] by ((i) / (3))\n                                                                            change size by (i)\n                                                                            switch costume to (circle v)\n                                                                        end\n                                                                        wait (.2) seconds\n                                                                        broadcast (Delete All them clones v)\n                                                                        switch costume to (finally the climax xd v)\n                                                                        point in direction (0)\n                                                                        set [i v] to [1]\n                                                                        set [introsequence v] to [10]\n                                                                        repeat (26)\n                                                                            change size by (((65) - (size)) / (3))\n                                                                            set [x v] to (x position)\n                                                                            set [y v] to (y position)\n                                                                            set [direction v] to (direction)\n                                                                            move (i) steps\n                                                                            change [i v] by ((i) / (5))\n                                                                            turn right (((90) - (direction)) / (20)) degrees\n                                                                        end\n                                                                        set [x v] to [0]\n                                                                        set [y v] to [0]\n                                                                        set [direction v] to [0]\n                                                                        delete this clone\n                                                                    end\n                                                                end\n                                                            end\n                                                        end\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine Logo\nrepeat (20)\n    create clone of (_myself_ v)\nend\n\ndefine Particles (amount)\nset [clone id v] to [6]\nrepeat (amount)\n    create clone of (_myself_ v)\nend\n\ndefine Bar Function\nset [clone id v] to [10]\ngo to x: (0) y: (240)\nrepeat (10)\n    create clone of (_myself_ v)\n    change y by (-60)\nend\ngo to x: (0) y: (0)\n\nwhen flag clicked\nwait until <(IntroSequence) = [5]>\nwait (.2) seconds\nset [clone id v] to [12]\nrepeat (8)\n    create clone of (_myself_ v)\nend\nwait until <(IntroSequence) = [10]>\nset [clone id v] to [12]\nrepeat (23)\n    create clone of (_myself_ v)\nend\n\ndefine Logo2\nset [clone id v] to [19]\nrepeat (10)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [delete all them clones v]\nif <not <(Clone ID) = [20]>> then\n    delete this clone\nend\n\nwhen I receive [green flag v]\nIntro\n\n@Danger\n\nwhen I receive [tick v]\nshow\nPosition x (round ((x) - (SCROLL X))) y (round ((y) - (SCROLL Y)))\n\nwhen I receive [green flag v]\nhide\n\nwhen I receive [set up v]\nswitch costume to (level 1 1 v)\nhide\nClone at x [0] y [0] # [1]\nClone at x [0] y [550] # [2]\nClone at x [0] y [1000] # [3]\n\ndefine Position x (x) y (y)\ngo to x: (x) y: (y)\nif <<(x position) = (x)> and <(y position) = (y)>> then\n    show\nelse\n    hide\nend\n\ndefine Clone at x (x) y (y) # (#)\nset [x v] to (x)\nset [y v] to (y)\nset [cos v] to (#)\nswitch costume to (#)\ncreate clone of (_myself_ v)\nset [x v] to [-9999]\n\nwhen I receive [reset v]\ndelete this clone\n\n@Flag\n\nwhen I receive [tick v]\nshow\nPosition x (round ((x) - (SCROLL X))) y (round ((y) - (SCROLL Y)))\nif <touching (player v)?> then\n    broadcast (win v)\nend\n\nwhen I receive [green flag v]\nClone at x [-200] y [1130] # [1]\nhide\n\ndefine Position x (x) y (y)\ngo to x: (x) y: (y)\nif <<(x position) = (x)> and <(y position) = (y)>> then\n    show\nelse\n    hide\nend\n\ndefine Clone at x (x) y (y) # (#)\nset [x v] to (x)\nset [y v] to (y)\nswitch costume to (#)\ncreate clone of (_myself_ v)\nset [x v] to [-9999]\n\n@Sprite1\n\nwhen flag clicked\nhide variable [tc v]\nhide\n\nwhen I receive [win v]\nshow\nset [kick v] to [win]\nshow variable [tc v]\nstop [all v]\n\n
WASD or Arrow keys to move.\n\nLove, Favourite, and Follow me.\n\nComment your time below!\n\n\nThis is my first time making a y scroller platformer,\nI am quite happy when I finished it =D\n\n