Epic Platformer

Instructions: Get to the right of the screen, avoid red\n\nArrow keys to move

@Stage\n\nwhen flag clicked\nswitch backdrop to (background1 v)\nforever\n    play sound [Gangnam Style v] until done\nend\n\nwhen I receive [next! v]\nif <(backdrop [number v]) = [10]> then\n    broadcast (Gangnam v)\nend\nrepeat (25)\n    change [ghost v] effect by (4)\nend\nnext backdrop\nrepeat (25)\n    change [ghost v] effect by (-4)\nend\n\n@Sprite1\n\nwhen flag clicked\nshow\ngo to x: (-219) y: (-138)\nset [yvel v] to [0]\nset [xvel v] to [0]\nforever\n    change y by (-1)\n    if <touching color (#000008)?> then\n        set [yvel v] to [1]\n        if <key (up arrow v) pressed?> then\n            set [yvel v] to [15]\n        end\n    end\n    change y by (1)\n    change [yvel v] by (-1)\n    if <key (right arrow v) pressed?> then\n        next costume\n        change [xvel v] by (1)\n    end\n    if <key (left arrow v) pressed?> then\n        next costume\n        change [xvel v] by (-1)\n    end\n    set [xvel v] to ((xvel) * (0.9))\n    if <[-16] > (yvel)> then\n        set [yvel v] to [-16]\n    end\n    if <touching color (#ffff00)?> then\n        broadcast (next! v)\n        hide\n        wait (1.5) seconds\n        show\n        go to x: (-219) y: (-138)\n    end\n    change x by (xvel)\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (-5)\n        change x by ((xvel) * (-1))\n        set [xvel v] to [0]\n    end\n    change y by (yvel)\n    if <<touching color (#000008)?> and <[0] < (yvel)>> then\n        if <touching color (#000008)?> then\n            change y by (-1)\n        end\n        if <touching color (#000008)?> then\n            change y by (-1)\n        end\n        if <touching color (#000008)?> then\n            change y by (-1)\n        end\n        if <touching color (#000008)?> then\n            change y by (-1)\n        end\n        if <touching color (#000008)?> then\n            change y by (-1)\n        end\n        if <touching color (#000008)?> then\n            change y by (5)\n            change y by ((yvel) * (-1))\n        end\n        set [yvel v] to [0]\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#000008)?> then\n        change y by (1)\n    end\n    if <touching color (#ff0000)?> then\n        go to x: (-93) y: (-104)\n    end\n    if <touching color (#ff00bf)?> then\n        change [yvel v] by (25)\n        change y by (yvel)\n    end\nend\n\n@Sprite2\n\nwhen I receive [gangnam v]\nshow\nforever\n    turn right (180) degrees\n    repeat (3)\n        change y by (10)\n        wait (0.02) seconds\n    end\n    wait (0.05) seconds\n    turn left (180) degrees\n    repeat (3)\n        change y by (-10)\n        wait (0.02) seconds\n    end\n    wait (0.05) seconds\n    turn left (180) degrees\n    repeat (3)\n        change y by (10)\n        wait (0.02) seconds\n    end\n    wait (0.05) seconds\n    turn left (180) degrees\n    repeat (3)\n        change y by (-10)\n        wait (0.02) seconds\n    end\n    wait (0.05) seconds\nend\n\nwhen flag clicked\ngo to x: (0) y: (-55)\nhide\n\nwhen flag clicked\nforever\n    repeat (3)\n        change x by (3)\n    end\n    wait (0.1) seconds\n    repeat (3)\n        change x by (-3)\n    end\n    wait (0.1) seconds\nend\n\n@Sprite3\n\nwhen flag clicked\ngo to x: (0) y: (0)\ngo to [front v] layer\nset [ghost v] effect to (100)\n\n