Dr Stickman | A SHORT Platformer  

Instructions: Hello strangers.\nWas 3rd PAGE TRENDING! \nUse arrow keys, wasd or tap (mobile) to move.\nS to skip\nDON'T TOUCH THE VIRUS!!!\nGet to the flag to go to the next level\nI know this is kinda generic but can you not hate on it \n\nplease...

@Stage\n\n@blank\n\n@Ground\n\nwhen I receive [level pass v]\nnext costume\n\nwhen flag clicked\nswitch costume to (level 1 v)\ngo to x: (-3) y: (-70)\n\nwhen flag clicked\nset [level v] to [1]\n\nwhen [s v] key pressed\nnext costume\nbroadcast (LEVEL SKIPPED v)\n\n@flag\n\nwhen flag clicked\nset [level v] to [1]\nhide\n\nwhen I receive [begin game v]\ngo to [back v] layer\ngo to x: (194) y: (-89)\nforever\n    if <touching (player v)?> then\n        change [level v] by (1)\n    end\n    if <(level) = [6]> then\n        stop [this script v]\n    end\nend\n\nwhen I receive [begin game v]\nshow\nswitch costume to (1 v)\nset size to (100) %\n\n@Sprite1\n\nwhen flag clicked\nshow\ngo [forward v] (50) layers\nwait (1) seconds\nhide\nbroadcast (tn over v)\n\n@dangers\n\nwhen I receive [level pass v]\nnext costume\n\nwhen flag clicked\nswitch costume to (level 1 v)\ngo to x: (-3) y: (-70)\n\nwhen flag clicked\nforever\n    if <touching (player v)?> then\n        broadcast (DEAD v)\n    end\nend\n\nwhen [s v] key pressed\nnext costume\nbroadcast (LEVEL SKIPPED v)\n\n@player\n\ndefine platform (jump hight) (gravity) (friction) (running speed) (bounce hight)\nset size to (100) %\nif <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n    point in direction (90)\n    change [xvel v] by (running speed)\nend\nif <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(x position) < (mouse x)>>> then\n    point in direction (-90)\n    change [xvel v] by ((running speed) * (-1))\nend\nset [xvel v] to ((xvel) * (friction))\nchange x by (xvel)\nif <touching (ground v)?> then\n    set [slope v] to [0]\n    repeat until <<(slope) = [8]> or <not <touching (ground v)?>>>\n        change [slope v] by (1)\n        change y by (1)\n    end\n    if <touching (ground v)?> then\n        change y by ((slope) * (-1))\n        repeat ([ceiling v] of ([abs v] of (xvel) ) )\n            if <touching (ground v)?> then\n                change x by ((([abs v] of (xvel) ) / (xvel)) * (-1))\n            end\n        end\n        set [xvel v] to [0]\n    end\nend\nchange y by (yvel)\nif <touching (ground v)?> then\n    repeat ([ceiling v] of ([abs v] of (yvel) ) )\n        if <touching (ground v)?> then\n            change y by ((([abs v] of (yvel) ) / (yvel)) * (-1))\n        end\n    end\n    if <<<(([abs v] of (yvel) ) / (yvel)) = [-1]> and <<key (up arrow v) pressed?> or <key (w v) pressed?>>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n        set [yvel v] to (jump hight)\n    else\n        set [yvel v] to [0]\n    end\nelse\n    change [yvel v] by (-1)\nend\nif <touching (bounce pad v)?> then\n    set [yvel v] to (bounce hight)\nend\nif <<<touching (ground v)?> and <(yvel) < [-8]>> and <<key (left arrow v) pressed?> or <key (right arrow v) pressed?>>> then\n    change y by (1)\nend\nif <<<touching (ground v)?> and <(yvel) > [2]>> and <<key (left arrow v) pressed?> or <key (right arrow v) pressed?>>> then\n    change y by (-1)\nend\nswitch costume to (player stand v)\nif <<<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> or <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>>> then\n    switch costume to (walk)\nend\nif <(yvel) > [2]> then\n    switch costume to (player jumping v)\nend\nif <(yvel) < [-8]> then\n    switch costume to (player falling v)\nend\n\nwhen flag clicked\ngo to x: (-198) y: (-16)\nbroadcast (BEGIN GAME v)\n\nwhen flag clicked\nset [level v] to [1]\nshow\nset size to (100) %\nset rotation style [left-right v]\nset [xvel v] to [0]\nset [yvel v] to [0]\nforever\n    platform [12] [-1] [0.7] [2] [9]\n    if <touching (flag v)?> then\n        go to x: (-198) y: (-16)\n        set [xvel v] to [0]\n        set [yvel v] to [0]\n        change [level v] by (1)\n        broadcast (level pass v) and wait\n    end\nend\n\nwhen flag clicked\nset [walk v] to [5]\nforever\n    change [walk v] by (1)\n    if <(walk) > [8]> then\n        set [walk v] to [5]\n    end\n    wait (0.05) seconds\n    if <touching (enemies v)?> then\n        DIE\n    end\nend\n\ndefine DIE\ngo to x: (-198) y: (-16)\n\nwhen I receive [dead v]\nDIE\n\nwhen I receive [tn over v]\nforever\n    play sound [dramatic moosic v] until done\nend\n\nwhen I receive [level skipped v]\ngo to x: (-198) y: (-16)\n\n