Lemonhead's Adventure-a basic platformer

Instructions: ARROW KEYS\nThis is a platformer I worked on with my friend. I'm putting it on my page so it can get some more views and yeah that stuff. If you like it, love this one AND the original one. I pretty much did all the work! ;P

@Stage\n\n@lemonhead\n\nbroadcast (hide v)\n\nbroadcast (message1 v)\n\nwhen flag clicked\nforever\n    if <<key (left arrow v) pressed?> or <key (right arrow v) pressed?>> then\n        wait (0.1) seconds\n        next costume\n    else\n        switch costume to (costume1 v)\n    end\nend\n\nwhen flag clicked\nshow\nswitch backdrop to (backdrop1 v)\ngo to x: (-198) y: (100)\npoint in direction (90)\nforever\n    go to [front v] layer\n    if <key (left arrow v) pressed?> then\n        point in direction (-90)\n        change [xvel v] by (-0.7)\n    end\n    if <key (right arrow v) pressed?> then\n        point in direction (90)\n        change [xvel v] by (0.7)\n    end\n    set [xvel v] to ((Xvel) * (0.9))\n    change x by (Xvel)\n    if <touching color (#999900)?> then\n        change y by (1)\n        if <touching color (#999900)?> then\n            change y by (1)\n            if <touching color (#999900)?> then\n                change y by (1)\n                if <touching color (#999900)?> then\n                    change y by (1)\n                    if <touching color (#999900)?> then\n                        change y by (1)\n                        if <touching color (#999900)?> then\n                            change y by (1)\n                            if <touching color (#999900)?> then\n                                change y by (1)\n                                if <touching color (#999900)?> then\n                                    change x by ((Xvel) * (-1))\n                                    change y by (-7)\n                                    if <key (up arrow v) pressed?> then\n                                        if <(Xvel) > [0]> then\n                                            set [xvel v] to [-5]\n                                        else\n                                            set [xvel v] to [5]\n                                        end\n                                        set [yvel v] to [10]\n                                    else\n                                        set [xvel v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [yvel v] by (-1)\n    change y by (Yvel)\n    if <touching color (#999900)?> then\n        change y by ((Yvel) * (-1))\n        set [yvel v] to [0]\n    end\n    change y by (-1)\n    if <touching color (#999900)?> then\n        if <key (up arrow v) pressed?> then\n            set [yvel v] to [12]\n        end\n    end\n    change y by (1)\n    if <<(x position) = [235]> or <(x position) > [235]>> then\n        broadcast (message1 v)\n        go to x: (-198) y: (100)\n    end\n    if <touching color (#000000)?> then\n        go to x: (-198) y: (100)\n    end\nend\n\n@tiles\n\ndefine render\ndelete (all) of [zlx v]\ndelete (all) of [zly v]\nset [zombie lemons v] to [0]\nbroadcast (show v) and wait\nerase all\nshow\ngo to x: (-232) y: (-166)\nrepeat (14)\n    repeat (19)\n        switch costume to (costume2 v)\n        if <touching (ground v)?> then\n            if <touching color (#b2b2b2)?> then\n                switch costume to (costume1 v)\n                stamp\n            else\n                if <touching color (#ff0000)?> then\n                    switch costume to (costume3 v)\n                    stamp\n                else\n                    if <touching color (#cc0000)?> then\n                        change [zombie lemons v] by (1)\n                        add (x position) to [zlx v]\n                        add (y position) to [zly v]\n                    else\n                    end\n                end\n            end\n        end\n        change x by (26)\n    end\n    change y by (26)\n    set x to (-232)\nend\nhide\nbroadcast (hide v)\nbroadcast (start v)\n\nwhen I receive [message1 v]\nrender\n\nwhen flag clicked\nrender\n\nrender\n\nswitch costume to (costume3 v)\nstamp\n\n@Ground\n\nset size to (2600) %\n\nwhen I receive [hide v]\nset [ghost v] effect to (100)\n\nwhen flag clicked\ngo to x: (-6) y: (0)\nswitch costume to (costume1 v)\n\nwhen I receive [show v]\nset [ghost v] effect to (0)\n\nwhen I receive [message1 v]\nnext costume\n\n@ZL\n\nbroadcast (message1 v)\n\nwhen I receive [hide v]\nrepeat (zombie lemons)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (costume1 v)\nshow\ngo to x: (item (1) of [zlx v]) y: (item (1) of [zly v])\ndelete (1) of [zlx v]\ndelete (1) of [zly v]\nchange y by (7)\nforever\n    wait (0.2) seconds\n    next costume\nend\n\nwhen I start as a clone\nforever\n    move (2) steps\n    if <<touching color (#999900)?> or <<touching color (#000000)?> or <touching (_edge_ v)?>>> then\n        turn right (180) degrees\n    end\nend\n\nwhen I receive [message1 v]\ndelete this clone\n\npoint in direction (-90)\n\nwhen flag clicked\nhide\n\n@Sprite2\n\nwhen flag clicked\nforever\n    hide\nend\n\n@Sprite1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\nswitch costume to (costume1 v)\n\nwhen I receive [message1 v]\nnext costume\n\nwhen I receive [hide v]\nshow\n\nwhen I receive [show v]\nhide\n\n