Apple Platformer

Instructions: Use the arrow keys to move.\nGet to the light blue.\nAvoid the dark blue.\nRed is bouncy.\nYou can swim in light green.

@Stage\n\n@Apple\n\nwhen flag clicked\nhide\nset pen size to (5)\nerase all\npen up\nset pen color to (#666666)\nswitch backdrop to (backdrop1 v)\ngo to x: (-201) y: (-146)\npoint in direction (90)\nwait (2) seconds\nshow\nforever\n    if <(game) = [1]> then\n        change [yv v] by (-0.5)\n        if <key (right arrow v) pressed?> then\n            change [xv v] by (0.7)\n            point in direction (90)\n        end\n        if <key (left arrow v) pressed?> then\n            change [xv v] by (-0.7)\n            point in direction (90)\n        end\n        set [xv v] to ((Xv) * (0.9))\n        change x by (Xv)\n        if <touching color (#000008)?> then\n            change y by (1)\n            if <touching color (#000008)?> then\n                change y by (1)\n                if <touching color (#000008)?> then\n                    change y by (1)\n                    if <touching color (#000008)?> then\n                        change y by (1)\n                        if <touching color (#000008)?> then\n                            change y by (1)\n                            if <touching color (#000008)?> then\n                                change x by ((Xv) * (-1))\n                                change x by (-1)\n                                change y by (-5)\n                                change x by (1)\n                                if <key (up arrow v) pressed?> then\n                                    if <(Xv) > [0]> then\n                                        set [xv v] to [-8]\n                                    else\n                                        set [xv v] to [8]\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 (Yv)\n        if <touching color (#000008)?> then\n            change y by ((Yv) * (-1))\n            set [yv v] to [0]\n        end\n        change y by (-1)\n        if <touching color (#000008)?> then\n            if <key (up arrow v) pressed?> then\n                set [yv v] to [10]\n            end\n        end\n        change y by (1)\n        if <touching color (#00ffff)?> then\n            erase all\n            set [yv v] to [0]\n            go to x: (-201) y: (-146)\n            switch backdrop to (next backdrop v)\n            change [level v] by (1)\n        end\n        if <touching color (#ff0000)?> then\n            set [yv v] to [15]\n        end\n        if <touching color (#00ff55)?> then\n            if <key (up arrow v) pressed?> then\n                set [yv v] to [5]\n            else\n                set [yv v] to [-5]\n            end\n        end\n        if <touching color (#003fff)?> then\n            repeat (10)\n                change [ghost v] effect by (10)\n            end\n            set [yv v] to [0]\n            set [xv v] to [0]\n            go to x: (-201) y: (-146)\n            set [ghost v] effect to (0)\n            change [deaths v] by (1)\n            erase all\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <key (r v) pressed?> then\n        go to x: (-201) y: (-146)\n    end\nend\n\nwhen flag clicked\nforever\n    wait (0.1) seconds\n    switch costume to (pick random (1) to (2))\nend\n\nwhen backdrop switches to [backdrop4 v]\npen down\nwait (10) seconds\npen up\nerase all\nswitch backdrop to (backdrop5 v)\n\nwhen flag clicked\nforever\n    play sound [dance around v] until done\nend\n\nwhen backdrop switches to [backdrop20 v]\nwait (10) seconds\nswitch backdrop to (backdrop21 v)\nerase all\n\n@Thumbnail\n\nwhen flag clicked\nshow\nwait (2) seconds\nhide\n\n@Moving Item\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [backdrop11 v]\nshow\nforever\n    go to x: (-35) y: (-42)\n    glide (1) secs to x: (126) y: (-42)\n    go to x: (126) y: (-42)\n    glide (1) secs to x: (-35) y: (-42)\nend\n\nwhen backdrop switches to [backdrop12 v]\nhide\n\n@Pen\n\nwhen backdrop switches to [backdrop17 v]\nset [pen v] to [100]\nshow variable [pen v]\nbroadcast (ucanpaintnow v)\n\nwhen I receive [ucanpaintnow v]\nset [color v] to [Black]\nset pen color to (#000000)\nset pen size to (10)\nforever\n    if <<mouse down?> and <not <<(backdrop [name v]) = [backdrop37]> or <<(backdrop [name v]) = [backdrop44]> or <(backdrop [name v]) = [backdrop39]>>>>> then\n        repeat until <<(Pen) < [1]> or <not <mouse down?>>>\n            change [pen v] by (-1)\n            pen down\n        end\n    end\nend\n\nwhen I receive [colorchange v]\nshow variable [color v]\nforever\n    if <key (z v) pressed?> then\n        if <(color) = [Paint]> then\n            set [color v] to [Erase]\n            wait (0.5) seconds\n        else\n            set [color v] to [Paint]\n            wait (0.5) seconds\n        end\n    end\nend\n\nwhen flag clicked\nset [game v] to [start]\nset [timer v] to [0]\nhide variable [color v]\npen up\nhide variable [pen v]\nerase all\nforever\n    go to (mouse-pointer v)\nend\n\nwhen flag clicked\nforever\n    if <(color) = [Erase]> then\n        set pen size to (25)\n        set pen color to (#ffffff)\n    else\n        set pen size to (10)\n        set pen color to (#000000)\n    end\nend\n\nwhen flag clicked\nforever\n    if <key (r v) pressed?> then\n        set [pen v] to [100]\n        erase all\n    end\nend\n\nwhen I receive [ucanpaintnow v]\nforever\n    if <(Pen) < [1]> then\n        pen up\n    end\nend\n\nwhen I receive [ucanpaintnow v]\nforever\n    if <not <mouse down?>> then\n        pen up\n    end\nend\n\nwhen backdrop switches to [backdrop20 v]\nset [pen v] to [100]\nshow variable [pen v]\nbroadcast (ucanpaintnow v)\n\n