Writing Platformer

Instructions: Draw to get past the lava and help the cute artist to get his painting tools.Draw with you mouse pointer.Don't touch the lava.Use WAD or arrow keys to move.THE LOVES ARE COMING QUICK!!!\n9th on trending in platformer :O

@Stage\n\nwhen flag clicked\nforever\n    if <(username) = [Marvel0678]> then\n        set volume to (0) %\n    else\n        play sound [Elektronomia - Energy NCS Release.mp3 v] until done\n        set volume to (35) %\n    end\nend\n\n@Pen\n\nwhen flag clicked\nshow\ncreate clone of (_myself_ v)\nset pen color to (#000000)\nset pen size to (10)\nerase all\nforever\n    if <not <mouse down?>> then\n        go to (mouse-pointer v)\n        pen up\n    else\n        if <mouse down?> then\n            go to (mouse-pointer v)\n            pen down\n        else\n            pen up\n        end\n    end\n    if <key (space v) pressed?> then\n        erase all\n    end\nend\n\nwhen I receive [next level v]\nerase all\n\n@Pen Background\n\nwhen flag clicked\nhide\nforever\n    Pen from x: [-235] y: [158] to x: [238] y: [158] Pensize: [3]\n    Pen from x: [-235] y: [139] to x: [238] y: [139] Pensize: [3]\n    Pen from x: [-235] y: [110] to x: [238] y: [110] Pensize: [3]\n    Pen from x: [-235] y: [81] to x: [238] y: [81] Pensize: [3]\n    Pen from x: [-235] y: [52] to x: [238] y: [52] Pensize: [3]\n    Pen from x: [-235] y: [23] to x: [238] y: [23] Pensize: [3]\n    Pen from x: [-235] y: [-6] to x: [238] y: [-6] Pensize: [3]\n    Pen from x: [-235] y: [-35] to x: [238] y: [-35] Pensize: [3]\n    Pen from x: [-235] y: [-64] to x: [238] y: [-64] Pensize: [3]\n    Pen from x: [-235] y: [-93] to x: [238] y: [-93] Pensize: [2]\nend\n\ndefine Pen from x: (x) y: (y) to x: (x) y: (y) Pensize: (size of pen)\nset pen size to (size of pen)\nset pen color to (#3425ff)\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x) y: (y)\n\n@Pointer\n\nwhen flag clicked\nforever\n    show\n    go to (mouse-pointer v)\nend\n\n@Player\n\ndefine Player Walk\nforever\n    if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n        change [x v v] by (.9)\n        point in direction (-90)\n    end\n    if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n        change [x v v] by (-.9)\n        point in direction (90)\n    end\n    set [x v v] to ((X v) * (0.9))\n    change x by (X v)\n    if <<touching (level v)?> or <touching color (#000000)?>> then\n        change y by (1)\n        if <<touching (level v)?> or <touching color (#000000)?>> then\n            change y by (1)\n            if <<touching (level v)?> or <touching color (#000000)?>> then\n                change y by (1)\n                if <<touching (level v)?> or <touching color (#000000)?>> then\n                    change y by (1)\n                    if <<touching color (#000000)?> or <touching (level v)?>> then\n                        change y by (1)\n                        if <<touching color (#000000)?> or <touching (level v)?>> then\n                            change x by ((X v) * (-1))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n                                if <(X v) > [0]> then\n                                    set [x v v] to [-5]\n                                else\n                                    set [x v v] to [5]\n                                end\n                                set [y v v] to [15]\n                            else\n                                set [x v v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v v] by (-1)\n    change y by (Y v)\n    if <<touching (level v)?> or <touching color (#000000)?>> then\n        change y by ((Y v) * (-1))\n        set [y v v] to [0]\n    end\n    change y by (-1)\n    if <<touching (level v)?> or <touching color (#000000)?>> then\n        if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n            set [y v v] to [15]\n        end\n    end\n    change y by (1)\nend\n\ndefine Detection\nforever\n    if <touching (lava v)?> then\n        change [deaths v] by (1)\n        go to x: (-205) y: (-69)\n    end\n    if <touching (finsih line v)?> then\n        change [level v] by (1)\n        go to x: (-205) y: (-69)\n        broadcast (Next level v)\n    end\nend\n\nwhen flag clicked\ngo to x: (-195) y: (-)\nforever\n    Detection\nend\n\nwhen flag clicked\nshow\nset [level v] to [1]\nswitch costume to (costume1 v)\nforever\n    Player Walk\nend\n\n@Level\n\nwhen flag clicked\nforever\n    switch costume to (Level)\nend\n\ndefine Pen from x: (x) y: (y) to x: (x) y: (y) Pensize: (size of pen)\nset pen size to (size of pen)\nset pen color to (#000000)\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x) y: (y)\n\nswitch costume to (1 v)\n\n@Lava\n\nwhen flag clicked\nforever\n    go to [back v] layer\n    switch costume to (Level)\nend\n\n@Finsih line\n\nwhen flag clicked\nforever\n    go to [back v] layer\nend\n\n@TN\n\nwhen flag clicked\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\n