-Cyan's adventure-  a platformer

Instructions: Cyan's Adventure begins! Use arrow keys to navigate the obstacles, and jump in the portal for a new challenge! Face your fears and conquer the unknown in the epic journey! And, well, have fun!

@Stage\n\nwhen flag clicked\nwait (9) seconds\nforever\n    play sound [Rock It v] until done\nend\n\nwhen flag clicked\nforever\n    switch backdrop to (level)\nend\n\n@Player\n\nwhen backdrop switches to [backdrop1 v]\n\nwhen flag clicked\nhide\nwait (9) seconds\nswitch costume to (costume1 v)\nshow\npoint in direction (90)\nforever\n    go to [front v] layer\n    change [y vel v] by (-0.5)\n    if <key (right arrow v) pressed?> then\n        switch costume to (costume1 v)\n        change [x vel v] by (0.7)\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (costume2 v)\n        change [x vel v] by (-0.7)\n    end\n    set [x vel v] to ((X vel) * (0.9))\n    change x by (X vel)\n    if <touching color (#00fffd)?> then\n        change y by (1)\n        if <touching color (#00fffd)?> then\n            change y by (1)\n            if <touching color (#00fffd)?> then\n                change y by (1)\n                if <touching color (#00fffd)?> then\n                    change y by (1)\n                    if <touching color (#00fffd)?> then\n                        change y by (1)\n                        if <touching color (#00fffd)?> then\n                            change x by ((X vel) * (-1))\n                            change x by (-1)\n                            change y by (-5)\n                            change x by (1)\n                            change y by (3)\n                            if <key (up arrow v) pressed?> then\n                                start sound [Drum Boing v]\n                                if <(X vel) > [0]> then\n                                    set [x vel v] to [-8]\n                                else\n                                    set [x vel v] to [8]\n                                end\n                                set [y vel v] to [8]\n                            else\n                                set [x vel v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (Y vel)\n    if <touching color (#00fffd)?> then\n        change y by ((Y vel) * (-1))\n        set [y vel v] to [0]\n    end\n    change y by (-1)\n    if <touching color (#000000)?> then\n        set [y vel v] to [-14]\n        start sound [Big Boing2 v]\n    end\n    if <touching color (#00fffd)?> then\n        if <key (up arrow v) pressed?> then\n            start sound [Suction Cup v]\n            set [y vel v] to [10]\n        end\n    end\n    if <touching color (#002bff)?> then\n        set [y vel v] to [15]\n        start sound [Big Boing v]\n    end\n    if <key (r v) pressed?> then\n        if <(level) = [13]> then\n            go to x: (-183) y: (117)\n        else\n            go to x: (-183) y: (-80)\n        end\n        set [x vel v] to [0]\n        set [y vel v] to [0]\n    end\n    if <touching (exit portal v)?> then\n        start sound [Teleport2 v]\n        change [level v] by (1)\n        if <(level) = [13]> then\n            go to x: (-183) y: (117)\n        else\n            go to x: (-183) y: (-80)\n        end\n        set [x vel v] to [0]\n        set [y vel v] to [0]\n    end\n    if <key (s v) pressed?> then\n        change [level v] by (1)\n        if <(level) = [13]> then\n            go to x: (-183) y: (117)\n        else\n            go to x: (-183) y: (-80)\n        end\n        set [x vel v] to [0]\n        set [y vel v] to [0]\n        wait until <not <key (s v) pressed?>>\n    end\n    if <(y position) < [-178]> then\n        start sound [Whiz v]\n        if <(level) = [13]> then\n            go to x: (-183) y: (117)\n        else\n            go to x: (-183) y: (-80)\n        end\n        set [x vel v] to [0]\n        set [y vel v] to [0]\n    end\n    if <touching color (#00ff6e)?> then\n        start sound [Whiz v]\n        if <(level) = [13]> then\n            go to x: (-183) y: (117)\n        else\n            go to x: (-183) y: (-80)\n        end\n        set [x vel v] to [0]\n        set [y vel v] to [0]\n    end\nend\n\ngo to x: (-183) y: (-80)\n\ngo to x: (-183) y: (-80)\n\nset [ghost v] effect to (100)\n\nif <touching color (#4a4a4a)?> then\n    go to x: (-200) y: (-40)\n    set [x vel v] to [0]\n    set [y vel v] to [0]\nend\n\nif <touching color (#4a4a4a)?> then\n    go to x: (-200) y: (-40)\n    set [x vel v] to [0]\n    set [y vel v] to [0]\nend\n\nwhen flag clicked\ngo to x: (-183) y: (-40)\n\n\n    go to x: (-200) y: (-40)\n    set [x vel v] to [0]\n    set [y vel v] to [0]\nend\n\nif <touching color (#4a4a4a)?> then\n\ngo to x: (-200) y: (-40)\n\nset [x vel v] to [0]\nset [y vel v] to [0]\n\nif <touching color (#4a4a4a)?> then\n    go to x: (-200) y: (-40)\n    set [x vel v] to [0]\n    set [y vel v] to [0]\nend\n\nwhen I receive [cmon v]\n\nif <touching color (#4a4a4a)?> then\n    go to x: (-200) y: (-40)\n    set [x vel v] to [0]\n    set [y vel v] to [0]\nend\n\nset [x vel v] to [0]\nset [y vel v] to [0]\n\nset [x vel v] to [0]\nset [y vel v] to [0]\n\nchange y by (40)\n\nwait (1) seconds\n\nbroadcast (next level v)\n\nif <(x position) > [235]> then\n    go to x: (-183) y: (-80)\n    broadcast (next level v)\n    set [x vel v] to [0]\n    set [y vel v] to [0]\nend\n\nglide (0.2) secs to x: (-183) y: (-80)\n\ngo to x: (-183) y: (-80)\n\n@Ground\n\nwhen flag clicked\nhide\nwait (9) seconds\nswitch costume to (costume1 v)\nshow\nforever\n    switch costume to (level)\n    if <(level) = [17]> then\n        broadcast (stop v)\n    end\nend\n\n@Exit Portal\n\nwhen flag clicked\nset [level v] to [1]\nset size to (60) %\nhide\nwait (9) seconds\nshow\nforever\n    switch costume to (level)\nend\n\nif <touching (player v)?> then\n    play sound [Teleport2 v] until done\nend\n\ngo to x: (94) y: (-32)\n\n@Sprite1\n\nwhen flag clicked\n\nwhen flag clicked\npoint in direction (90)\ngo to x: (0) y: (0)\ncreate clone of (_myself_ v)\npoint in direction (90)\nswitch costume to (cyan v)\nclear graphic effects\npoint in direction (90)\nstart sound [smb_stage_clear v]\nset size to (150) %\ngo to x: (-32) y: (-236)\nrepeat (10)\n    change y by (10)\nend\nwait (1) seconds\npoint in direction (-90)\ngo to x: (32) y: (236)\nrepeat (10)\n    change y by (-10)\nend\nwait (0.5) seconds\npoint in direction (90)\ngo to x: (0) y: (0)\nset size to (10) %\nset [num v] to [0]\ngo to x: (-240) y: (-100)\nset [new v] to [-4]\nset [x v] to [10]\nrepeat (80)\n    change [num v] by (new)\n    change y by (num)\n    if <(y position) < [-120]> then\n        set [num v] to [40]\n        start sound [Jump v]\n    end\n    change x by (x)\n    change [new v] by (-0.1)\n    if <(size) < [100]> then\n        change size by (2)\n    end\n    if <(x position) > [240]> then\n        set [x v] to [-10]\n        set [new v] to [-4]\n    end\nend\nrepeat (8)\n    change x by (x)\n    change [x v] by (0.5)\n    change [num v] by (new)\n    change y by (num)\n    if <(y position) < [-120]> then\n        start sound [Jump v]\n    end\n    change [new v] by (-0.3)\nend\nrepeat (20)\n    change x by (x)\n    change [x v] by (0.5)\nend\nwait (0.5) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ngo to x: (0) y: (0)\nnext costume\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nstart sound [Coin v]\nwait (2) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nstart sound [Jump v]\n\nwhen I start as a clone\npoint in direction (90)\ngo to x: (0) y: (0)\ngo to [back v] layer\nswitch costume to (cyan3 v)\nwait (9) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nrepeat (10)\n\nchange [ghost v] effect by (10)\n\n@ThumbSprite2\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [stop v]\nshow\ngo to [front v] layer\nstop [all v]\n\n