A Platformer

Instructions: Read Notes & Credits. Arrow Keys to move. Please don't report me for being honest.

@Stage\n\nwhen flag clicked\nforever\n    if <([costume # v] of [ground v]) = [5]> then\n        switch backdrop to (snowy peaks v)\n    else\n        switch backdrop to (backdrop1 v)\n    end\nend\n\n@Guy\n\nwhen flag clicked\nhide\n\nwhen I receive [begin project + uncopiable djhkbhkdhvdkllh12093ighfdk38qur3u82ufoejj48932jfo289jff2u0f380u0 v]\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-210) y: (-70)\nset rotation style [left-right v]\nswitch costume to (1 v)\nshow\nforever\n    if <key (right arrow v) pressed?> then\n        change [x v] by (1)\n        point in direction (90)\n    end\n    if <key (left arrow v) pressed?> then\n        change [x v] by (-1)\n        point in direction (-90)\n    end\n    change [y v] by (-0.5)\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (ground v)?> then\n        change y by (1)\n        if <touching (ground v)?> then\n            change y by (1)\n            if <touching (ground v)?> then\n                change y by (1)\n                if <touching (ground v)?> then\n                    change y by (1)\n                    if <touching (ground v)?> then\n                        change y by (1)\n                        if <touching (ground v)?> then\n                            change y by (1)\n                            if <touching (ground v)?> then\n                                change y by (1)\n                                if <touching (ground v)?> then\n                                    change y by (-6)\n                                    change x by ((x) * (-1))\n                                    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(y position) < (mouse y)>>> then\n                                        set [y v] to [8]\n                                        if <(x) > [0]> then\n                                            set [x v] to [-8]\n                                        else\n                                            set [x v] to [8]\n                                        end\n                                    else\n                                        set [x v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (y)\n    if <touching (ground v)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-0.5)\n    if <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(y position) < (mouse y)>>> and <touching (ground v)?>> then\n        set [y v] to [8]\n    end\n    change y by (0.5)\n    if <(x position) > [237]> then\n        broadcast (nexttt v)\n        go to x: (-210) y: (-70)\n        if <([costume # v] of [ground v]) < [3]> then\n            next costume\n        end\n    end\n    if <touching (bad stuff v)?> then\n        go to x: (-210) y: (-70)\n    end\nend\n\n@Ground\n\nwhen flag clicked\nhide\nswitch costume to (1 v)\n\nwhen I receive [nexttt v]\nnext costume\n\nwhen I receive [begin project + uncopiable djhkbhkdhvdkllh12093ighfdk38qur3u82ufoejj48932jfo289jff2u0f380u0 v]\nshow\n\n@Text\n\nwhen flag clicked\nhide\n\nwhen I receive [nexttt v]\nnext costume\n\nwhen I receive [begin project + uncopiable djhkbhkdhvdkllh12093ighfdk38qur3u82ufoejj48932jfo289jff2u0f380u0 v]\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nshow\n\n@Bad stuff\n\nwhen flag clicked\nswitch costume to (1 v)\ngo to x: (0) y: (0)\nforever\n    go to x: (0) y: (0)\n    if <([costume # v] of [ground v]) = [8]> then\n        go to x: (pick random (3) to (-3)) y: (pick random (3) to (-3))\n    end\nend\n\nwhen I receive [nexttt v]\nnext costume\n\n@Clickbait\n\nwhen flag clicked\nforever\n    set [ghost v] effect to (100)\n    go to [front v] layer\nend\n\n@Intro\n\nwhen flag clicked\nhide\nstart sound [Clip1 v]\nset [#clone-id v] to [x4]\ncreate clone of (_myself_ v)\nset [#clone-id v] to [x5]\ncreate clone of (_myself_ v)\npoint in direction (90)\ngo to x: (0) y: (0)\nswitch costume to (logo v)\nset size to (0) %\nset [ghost v] effect to (0)\nset [a v] to [0]\nBurst\nshow\nrepeat (18)\n    change [a v] by (5)\n    set size to (([sin v] of (a) ) * (100)) %\nend\nBig burst\nBurst\nset [#clone-id v] to [x2]\ncreate clone of (_myself_ v)\nset size to (100) %\nset [a v] to [0]\nrepeat (18)\n    change [a v] by (5)\n    point in direction ((([sin v] of (a) ) * (360)) + (90))\n    set x to (([cos v] of ((a) + (270)) ) * (-120))\nend\npoint in direction (90)\nset size to (100) %\nbroadcast (Up n away v)\n\ndefine Burst\nset [#clone-id v] to [x1]\npoint in direction (90)\nrepeat (8)\n    turn left (45) degrees\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nif <(#Clone-Id) = [x1]> then\n    show\n    set size to (100) %\n    switch costume to (burst v)\n    move (0) steps\n    set [a v] to [90]\n    repeat (18)\n        change [a v] by (5)\n        move (([sin v] of (a) ) * (10)) steps\n        change [ghost v] effect by ((100) / (18))\n    end\n    delete this clone\nend\nif <(#Clone-Id) = [x2]> then\n    switch costume to (back v)\n    set size to (0) %\n    set [a v] to [0]\n    repeat (18)\n        change [a v] by (5)\n        set size to (([sin v] of (a) ) * (100)) %\n    end\nend\nif <(#Clone-Id) = [x3]> then\n    set size to (100) %\n    switch costume to (burst2 v)\n    move (0) steps\n    set [a v] to [90]\n    repeat (18)\n        change [a v] by (5)\n        move (([sin v] of (a) ) * (20)) steps\n        change [ghost v] effect by ((100) / (18))\n    end\n    delete this clone\nend\nif <(#Clone-Id) = [x4]> then\n    show\n    point in direction (90)\n    go to x: (0) y: (0)\n    switch costume to (poof v)\n    set size to (0) %\n    set [a v] to [0]\n    repeat (18)\n        change [a v] by (5)\n        set size to (([sin v] of (a) ) * (100)) %\n        change [ghost v] effect by ((100) / (18))\n    end\nend\nif <(#Clone-Id) = [x5]> then\n    show\n    point in direction (90)\n    go to x: (200) y: (0)\n    switch costume to (big v)\n    go to [back v] layer\n    set size to (100) %\n    set [a v] to [0]\n    wait (0) seconds\n    repeat (40)\n        change [a v] by (2)\n        switch costume to (midget v)\n        set x to ((([sin v] of (a) ) * (-480)) + (240))\n        switch costume to (big v)\n    end\n    repeat (5)\n        change [a v] by (2)\n        switch costume to (midget v)\n        set x to ((([sin v] of (a) ) * (-480)) + (240))\n        switch costume to (big v)\n        change [ghost v] effect by (20)\n    end\nend\n\nwhen I receive [up n away v]\nif <not <<(costume [name v]) = [Big]> or <(costume [name v]) = [Midget]>>> then\n    set [a v] to [45]\n    repeat (27)\n        change [a v] by (5)\n        set y to ((([sin v] of (a) ) * (180)) - (135))\n        change [ghost v] effect by (2)\n    end\n    repeat (5)\n        change [ghost v] effect by (10)\n    end\n    if <(costume [name v]) = [Logo]> then\n        broadcast (Begin Project + uncopiable DJHKbhkdhvdkllh12093ighfdk38qur3u82ufoejj48932jfo289jff2u0f380u0 v)\n    end\nend\n\ndefine Big burst\nset [#clone-id v] to [x3]\npoint in direction (90)\nrepeat (8)\n    turn left (45) degrees\n    create clone of (_myself_ v)\nend\n\n