Hardest Platformer ~ Pen Platformer!

Instructions:     ~Upside Down - a platformer~ by @Deb-bestcoder \n                 Entry for @ComplicatedCodes’ contest\n                           Yes! Top loved! 10/10/20\n                               #1 on explore tab!\n                           #1 on trending on games!\n                   #3 on trending on platformers! lol\n————————————————————————\n                                INSTRUCTIONS \n                  • Up arrow to jump (Upside Down)\n                          • Right arrow to go left\n                          • Left arrow to go right\n• Same old platformer but upside down so avoid spikes lava, etc...\n                   • Note: This is mobile friendly!

@Stage\n\nwhen flag clicked\nset volume to (100) %\nforever\n    play sound [小さな行進曲.mp3 v] until done\nend\n\n@Player\n\ndefine reset  X (x) Y (y)\nreset timer\ngo to x: (x) y: (y)\nset [y v] to [0]\nset [x v] to [0]\nset rotation style [left-right v]\npoint in direction (90)\nclear graphic effects\n\ndefine Program\nchange [y v] by (-1)\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n    change [x v] by (1)\n    point in direction (90)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> then\n    change [x v] by (-1)\n    point in direction (-90)\nend\nset [x v] to ((X) * (0.88))\nchange x by (X)\nrepeat (8)\n    change y by <touching (steage v)?>\nend\nif <touching (steage v)?> then\n    change x by (() - (X))\n    change y by (-8)\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>>> then\n        set [y v] to [11]\n        set [x v] to ((5) - ((14) * <[0] < (X)>))\n    end\nend\nchange y by (Y)\nif <touching (steage v)?> then\n    change y by ((Y) * (-1))\n    set [y v] to [0]\nend\nchange y by (-1)\nif <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>>> then\n    if <touching (steage v)?> then\n        set [y v] to [14]\n    end\nend\nchange y by (1)\nif <<key (down arrow v) pressed?> or <<key (s v) pressed?> or <<mouse down?> and <(mouse y) < (y position)>>>> then\n    switch costume to (player2 v)\nelse\n    switch costume to (player v)\nend\n\nwhen I start as a clone\nrepeat (8)\n    change [ghost v] effect by (12.)\n    change [brightness v] effect by (3)\nend\ndelete this clone\n\nwhen I receive [reset v]\nreset  X [-200] Y [0]\n\nwhen flag clicked\nshow\nreset  X [-200] Y [0]\nset [ok v] to [0]\nset [level v] to [1]\nset [have v] to [0]\nforever\n    if <(ok) = [0]> then\n        Program\n        reset timer\n        create clone of (_myself_ v)\n        if <<<touching (spike v)?> or <touching (stik v)?>> or <<touching (lava v)?> or <touching (lava2 v)?>>> then\n            start sound [Crunch v]\n            set [ok v] to [1]\n            set rotation style [all around v]\n            set [y v] to [10]\n            repeat (20)\n                change [y v] by (-1)\n                change [ghost v] effect by (5)\n                turn right (8) degrees\n                change y by (Y)\n            end\n            set [ok v] to [0]\n            reset  X [-200] Y [0]\n        end\n    end\n    if <[240] < (x position)> then\n        broadcast (Prepare. v)\n        change [level v] by (1)\n        reset  X [-200] Y [0]\n    end\n    if <touching (key v)?> then\n        set [have v] to [1]\n    end\nend\n\n@grass\n\nwhen flag clicked\ngo to [back v] layer\nforever\n    switch costume to (level)\nend\n\nwhen flag clicked\ngo to [back v] layer\nswitch costume to (level1 v)\ngo [forward v] (1) layers\nshow\n\nwhen I receive [prepare. v]\nnext costume\n\n@steage\n\nwhen flag clicked\ngo to x: (0) y: (-5)\nswitch costume to (コスチューム1 v)\ngo to [front v] layer\nshow\n\nwhen I receive [prepare. v]\nnext costume\n\n@steage2\n\nwhen flag clicked\ngo to x: (0) y: (50)\ngo to [back v] layer\nshow\n\n@spike\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (コスチューム2 v)\nshow\n\nwhen I receive [prepare. v]\nnext costume\n\n@Lava\n\nwhen flag clicked\nforever\n    if <([costume # v] of [steage v]) = [3]> then\n        show\n    else\n        hide\n    end\nend\n\n@Lava2\n\nwhen flag clicked\nforever\n    if <([costume # v] of [steage v]) = [5]> then\n        show\n    else\n        hide\n    end\nend\n\n@サムネ\n\nwhen flag clicked\ngo to x: (0) y: (50)\nshow\nforever\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\n\n@スプライト3\n\nwhen flag clicked\nhide\n\n