Potato draw - a platformer v1.1

Instructions: They are 15 fun levels!\n\n- Click on arrows or WASD keys to move. \n- Avoid spikes and draw to win. \n- Click on R ro reset. \n- If a level is too hard, click on T to skip. \n- Yours drawings are unstable. If you don't stand well, you may fall. \n- Press E to change your potato.\n\n20 levels : 50 loves\n25 levels : 250 loves\n30 levels : 1250 loves

@Stage\n\nwhen backdrop switches to [level v]\nwait until <not <mouse down?>>\nerase all\nset [ink v] to [100]\n\nwhen flag clicked\nforever\n    play sound [02 Title Screen \(NSMBWii\) v] until done\n    wait (1) seconds\n    play sound [bensound-endlessmotion v] until done\n    wait (1) seconds\nend\n\n@hitbox player\n\nwhen [t v] key pressed\ngo to x: (-192) y: (-147)\nnext backdrop\nerase all\nset [ink v] to [100]\nchange [skips v] by (1)\n\nwhen backdrop switches to [level v]\nswitch costume to (hitbox v)\nset size to (30) %\ngo to x: (-192) y: (-147)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    set [can jump? v] to [0]\n    set [y v] to (y)\n    if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n        change [x v] by (0.5)\n    end\n    if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n        change [x v] by (-0.5)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <<touching (plateforms v)?> or <touching color (color)?>> then\n        change y by (1)\n        if <<touching (plateforms v)?> or <touching color (color)?>> then\n            change y by (1)\n            if <<touching (plateforms v)?> or <touching color (color)?>> then\n                change y by (1)\n                if <<touching (plateforms v)?> or <touching color (color)?>> then\n                    change y by (1)\n                    if <<touching (plateforms v)?> or <touching color (color)?>> then\n                        change y by (-4)\n                        change x by ((x) * (-2))\n                        set [x v] to [0]\n                        set [can jump? v] to [-1]\n                    end\n                end\n            end\n        end\n    end\n    change [y v] by (-1)\n    change y by (y)\n    if <<touching (plateforms v)?> or <touching color (color)?>> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n        change [can jump? v] by (1)\n    end\n    if <touching (exit v)?> then\n        go to x: (-188) y: (-145)\n        next backdrop\n        set [ink v] to [100]\n        erase all\n    end\n    if <<key (up arrow v) pressed?> and <(can jump?) = [1]>> then\n        set [y v] to [12]\n    end\n    if <(x) > [0]> then\n        turn right ([abs v] of (((y) + (x)) * (5)) ) degrees\n    else\n        turn right (([abs v] of (((y) + (x)) * (5)) ) / (-1)) degrees\n    end\n    if <<key (r v) pressed?> or <<touching (obstacles v)?> or <(y position) < [-175]>>> then\n        set [ink v] to [100]\n        erase all\n        go to x: (-192) y: (-148)\n    end\nend\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\n\n@play\n\nwhen flag clicked\ngo to x: (0) y: (-35)\nswitch backdrop to (menu v)\nshow\nforever\n    if <touching (mouse-pointer v)?> then\n        set size to (100) %\n    else\n        set size to (90) %\n    end\nend\n\nwhen this sprite clicked\nswitch backdrop to (level v)\n\nwhen backdrop switches to [level v]\nhide\n\n@obstacles\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [level v]\nshow\nforever\n    go to x: (0) y: (0)\n    go [backward v] (2) layers\n    if <(backdrop [number v]) > [6]> then\n        switch costume to ((backdrop [number v]) - (6))\n        show\n    else\n        hide\n    end\nend\n\n@thumbnail\n\nwhen flag clicked\nset [ghost v] effect to (100)\ngo to [front v] layer\ngo to x: (0) y: (0)\nshow\n\n@pen cursor\n\nwhen flag clicked\nerase all\nset [ink v] to [100]\nshow\nset pen size to (6)\n\nwhen flag clicked\nwait (0.01) seconds\nforever\n    set [color v] to (((64) * (65336)) + (((114) * (256)) + (64)))\n    set pen color to (color)\n    go to (mouse-pointer v)\n    if <<mouse down?> and <not <touching (no drawing v)?>>> then\n        pen down\n        change [ink v] by (-1)\n    else\n        pen up\n    end\n    if <<(Ink) = [0]> or <(Ink) < [0]>> then\n        set [ink v] to [0]\n        repeat until <(Ink) > [0]>\n            go to (mouse-pointer v)\n            pen up\n        end\n    end\nend\n\n@exit\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [level15 v]\nhide\n\nwhen backdrop switches to [level v]\nshow\n\n@plateforms\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [level v]\nshow\nforever\n    go to x: (0) y: (0)\n    switch costume to ((backdrop [number v]) - (1))\n    go [backward v] (1) layers\nend\n\n@player\n\nwhen backdrop switches to [level v]\nswitch costume to (potato v)\nshow\nforever\n    go to [front v] layer\n    go to (hitbox player v)\n    point in direction ([direction v] of [hitbox player v])\nend\n\nwhen flag clicked\nhide\n\nwhen [e v] key pressed\nnext costume\nif <<<(costume [number v]) > [5]> and <(costume [number v]) < [9]>> and <not <(current [month v]) = [10]>>> then\n    repeat until <not <<(costume [number v]) > [5]> and <(costume [number v]) < [9]>>>\n        next costume\n    end\nend\nif <<<(costume [number v]) > [8]> and <(costume [number v]) < [12]>> and <not <(current [month v]) = [12]>>> then\n    repeat until <not <<(costume [number v]) > [8]> and <(costume [number v]) < [12]>>>\n        next costume\n    end\nend\n\n@no drawing\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [level v]\nshow\nforever\n    go to x: (0) y: (0)\n    go [backward v] (3) layers\n    if <(backdrop [number v]) > [11]> then\n        switch costume to ((backdrop [number v]) - (11))\n        show\n    else\n        hide\n    end\nend\n\n@Intro\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\nset [ghost v] effect to (100)\nset [intro v] to [0]\nswitch costume to (b v)\ncreate clone of (_myself_ v)\nerase all\nwait (0.5) seconds\nrepeat (2)\n    change [intro v] by (1)\n    create clone of (_myself_ v)\nend\nwait (1.5) seconds\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\nwait (1) seconds\nbroadcast (Start v)\n\nwhen I start as a clone\nshow\nset [ghost v] effect to (0)\nif <(Intro) = [0]> then\n    go to x: (0) y: (0)\n    switch costume to (yellow background v)\nend\nif <(Intro) = [1]> then\n    switch costume to (half v)\n    go to x: (240) y: (0)\n    glide (0.75) secs to x: (0) y: (0)\n    wait (2.5) seconds\n    glide (0.75) secs to x: (240) y: (0)\nend\nif <(Intro) = [2]> then\n    switch costume to (half2 v)\n    go to x: (-240) y: (0)\n    glide (0.75) secs to x: (0) y: (0)\n    wait (2.5) seconds\n    glide (0.75) secs to x: (-240) y: (0)\nend\n\nwhen I receive [start v]\nrepeat (20)\n    change [ghost v] effect by (5)\nend\nhide\ndelete this clone\n\n