A Unique Platformer

Instructions: Use the arrow keys to move.\nMy second-pixel art\n\n\nJust an average "red is bad" platformer... but you can push a box.\nKinda inspired by Red Ball.

@Stage\n\n@Sprite1\n\nwhen flag clicked\nforever\n    if <key (right arrow v) pressed?> then\n        change [xv v] by (1)\n        switch costume to (1 v)\n    end\n    if <key (left arrow v) pressed?> then\n        change [xv v] by (-1)\n        switch costume to (2 v)\n    end\n    set [xv v] to ((Xv) * (0.9))\n    change x by (Xv)\n    if <touching color (#000000)?> then\n        change y by (1)\n        if <touching color (#000000)?> then\n            change y by (1)\n            if <touching color (#000000)?> then\n                change y by (1)\n                if <touching color (#000000)?> then\n                    change y by (1)\n                    if <touching color (#000000)?> then\n                        change y by (1)\n                        if <touching color (#000000)?> then\n                            change x by ((Xv) * (-1))\n                            change y by (-5)\n                            if <key (up arrow v) pressed?> then\n                                if <(Xv) > [0]> then\n                                    set [xv v] to [-5]\n                                else\n                                    set [xv v] to [5]\n                                end\n                                set [yv v] to [10]\n                            else\n                                set [xv v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <touching color (#000000)?> then\n        if <key (up arrow v) pressed?> then\n            set [yv v] to [15]\n        end\n    end\n    change y by (1)\n    change [yv v] by (-1)\n    change y by (Yv)\n    if <touching color (#000000)?> then\n        change y by ((Yv) * (-1))\n        set [yv v] to [0]\n    end\n    hide variable [xv v]\nend\n\nwhen flag clicked\ngo to x: (-201) y: (-122)\n\nwhen flag clicked\nforever\n    if <<touching color (#660000)?> or <touching color (#ff0000)?>> then\n        go to x: (-201) y: (-122)\n    end\nend\n\nwhen flag clicked\n\nwhen flag clicked\nswitch backdrop to (home v)\n\nwhen flag clicked\nforever\n    if <key (right arrow v) pressed?> then\n        set [right v] to [1]\n        set [left v] to [0]\n    else\n        set [right v] to [0]\n    end\nend\n\nif <not <key (right arrow v) pressed?>> then\n    set [right v] to [0]\nend\nif <not <key (left arrow v) pressed?>> then\n    set [left v] to [0]\nend\n\nwhen flag clicked\nforever\n    if <key (left arrow v) pressed?> then\n        set [left v] to [1]\n        set [right v] to [0]\n    else\n        set [left v] to [0]\n    end\nend\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nset [ghost v] effect to (90)\nwait (0.15) seconds\ndelete this clone\n\nwhen I start as a clone\nset [pixelate v] effect to (pick random (10) to (9))\nset [brightness v] effect to (pick random (10) to (9))\n\nwhen flag clicked\nforever\n    if <touching (time v)?> then\n        switch backdrop to (next backdrop v)\n        go to x: (-201) y: (-134)\n        broadcast (message1 v)\n    end\nend\n\n@Box\n\nwhen flag clicked\ngo to x: (42) y: (-133)\nforever\n    if <<touching (sprite1 v)?> and <(Right) = [1]>> then\n        change x by (3)\n    end\nend\n\nwhen flag clicked\nforever\n    if <<touching (sprite1 v)?> and <(Left) = [1]>> then\n        change x by (-3)\n    end\nend\n\nwhen backdrop switches to [home v]\ngo to x: (42) y: (-133)\n\nwhen backdrop switches to [backdrop2 v]\ngo to x: (42) y: (-133)\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [4 v]\nshow\n\nwhen backdrop switches to [3 v]\ngo to x: (42) y: (-133)\n\n@Time\n\nwhen flag clicked\ngo to x: (196) y: (-144)\n\nwhen backdrop switches to [3 v]\ngo to x: (205) y: (54)\n\nwhen backdrop switches to [2 v]\ngo to x: (196) y: (-144)\n\nwhen backdrop switches to [home v]\ngo to x: (196) y: (-144)\n\nwhen backdrop switches to [4 v]\ngo to x: (196) y: (-144)\n\nwhen backdrop switches to [9 v]\ngo to x: (221) y: (42)\n\nwhen backdrop switches to [10 v]\ngo to x: (207) y: (14)\n\n@Boom\n\nwhen flag clicked\nhide\nset size to (105) %\nclear graphic effects\nforever\n    go to (sprite1 v)\nend\n\nwhen flag clicked\nforever\n    set size to (105) %\n    if <key (up arrow v) pressed?> then\n        wait (1) seconds\n        show\n        set [ghost v] effect to (10)\n        repeat (20)\n            change [ghost v] effect by (5)\n            change size by (10)\n        end\n        clear graphic effects\n        hide\n    end\nend\n\n@Effect\n\nwhen flag clicked\nforever\n    if <<key (right arrow v) pressed?> or <key (left arrow v) pressed?>> then\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nwait (0.3) seconds\ngo to x: ([x position v] of [sprite1 v]) y: (([y position v] of [sprite1 v]) + (pick random (-10) to (10)))\nrepeat (100)\n    change [ghost v] effect by (pick random (1) to (2))\n    change [brightness v] effect by (pick random (0.01) to (2))\nend\ndelete this clone\n\n@Thumbnails\n\nwhen flag clicked\ngo to [front v] layer\nset [ghost v] effect to (100)\n\n@Editr\n\nwhen flag clicked\nhide\n\n