99% Pen Platformer #Games

Instructions: Use Arrow / WASD / Mobile to move\n\nLove, Fave, and maybe even follow?\nIt Can lag :l

@Stage\n\nwhen I receive [intro finished v]\nforever\n    play sound [Vexento - Masked Heroes v] until done\nend\n\n@Physics\n\ndefine Physics\nchange [yv v] by (-1)\nif <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n    change [xv v] by (-1)\nend\nif <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n    change [xv v] by (1)\nend\nset [xv v] to ((Xv) * (0.9))\nchange x by (Xv)\nif <touching color (#186f1f)?> then\n    change y by (1)\nend\nif <touching color (#186f1f)?> then\n    change y by (1)\nend\nif <touching color (#186f1f)?> then\n    change y by (1)\nend\nif <touching color (#186f1f)?> then\n    change y by (1)\nend\nif <touching color (#186f1f)?> then\n    change y by (-4)\n    change x by ((Xv) * (-1))\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [0]>>> then\n        set [yv v] to [14]\n        if <(Xv) > [0]> then\n            set [xv v] to [-10]\n        else\n            set [xv v] to [10]\n        end\n    else\n        set [xv v] to [0]\n    end\nend\nchange y by (Yv)\nif <touching color (#186f1f)?> then\n    change y by ((Yv) * (-1))\n    set [yv v] to [0]\nend\nchange y by (-1)\nif <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [0]>>> and <touching color (#186f1f)?>> then\n    set [yv v] to [14]\nend\nchange y by (1)\nif <touching color (#2367e0)?> then\n    set [yv v] to [17]\nend\nif <touching color (#ffa100)?> then\n    broadcast (Game Over My guys v) and wait\nend\n\ndefine Draw Line From: (x1) (y1) to (x2) (y2)\ngo to x: (x1) y: (y1)\npen down\ngo to x: (x2) y: (y2)\npen up\n\ndefine Draw Ground\nif <(LEVEL) = [1]> then\n    set pen color to (#186f1f)\n    set pen size to (80)\n    Draw Line From: [-240] [-150] to [240] [-150]\n    set pen color to (#543921)\n    set pen size to (80)\n    Draw Line From: [-240] [-170] to [240] [-170]\n    set pen color to (#ff3131)\n    set pen size to (8)\n    Draw Line From: [-70] [-110] to [90] [-110]\nend\nif <(LEVEL) = [2]> then\n    set pen color to (#186f1f)\n    set pen size to (80)\n    Draw Line From: [-240] [-150] to [240] [-110]\n    set pen color to (#543921)\n    set pen size to (80)\n    Draw Line From: [-240] [-200] to [240] [-140]\n    set pen color to (#ff3131)\n    set pen size to (8)\n    Draw Line From: [-80] [-95] to [150] [-75]\n    set pen color to (#186f1f)\n    set pen size to (16)\n    Draw Line From: [-2] [-5] to [45] [-1]\nend\nif <(LEVEL) = [3]> then\n    set pen color to (#186f1f)\n    set pen size to (80)\n    Draw Line From: [-240] [-110] to [240] [-110]\n    set pen color to (#543921)\n    set pen size to (80)\n    Draw Line From: [-240] [-140] to [240] [-140]\n    set pen color to (#ff3131)\n    set pen size to (8)\n    Draw Line From: [-100] [-69] to [180] [-69]\n    set pen color to (#186f1f)\n    set pen size to (16)\n    Draw Line From: [-2] [-1] to [45] [-1]\n    set pen color to (#186f1f)\n    set pen size to (16)\n    Draw Line From: [120] [15] to [150] [1]\nend\nif <(LEVEL) = [4]> then\n    set pen color to (#186f1f)\n    set pen size to (80)\n    Draw Line From: [-240] [-70] to [240] [-110]\n    set pen color to (#543921)\n    set pen size to (130)\n    Draw Line From: [-240] [-130] to [240] [-170]\n    set pen color to (#ff3131)\n    set pen size to (8)\n    Draw Line From: [-100] [-40] to [180] [-64]\n    set pen color to (#186f1f)\n    set pen size to (10)\n    Draw Line From: [70] [-33] to [100] [-35]\n    set pen color to (#2468e0)\n    set pen size to (8)\n    Draw Line From: [-150] [-35] to [-120] [-37]\nend\nif <(LEVEL) = [5]> then\n    set pen color to (#186f1f)\n    set pen size to (80)\n    Draw Line From: [-240] [-150] to [240] [-150]\n    set pen color to (#543921)\n    set pen size to (80)\n    Draw Line From: [-240] [-170] to [240] [-170]\n    set pen color to (#ff3131)\n    set pen size to (8)\n    Draw Line From: [-70] [-110] to [20] [-110]\n    set pen color to (#ff3131)\n    set pen size to (8)\n    Draw Line From: [75] [-110] to [175] [-110]\nend\nif <(LEVEL) = [6]> then\n    set pen color to (#186f1f)\n    set pen size to (80)\n    Draw Line From: [-240] [-150] to [240] [-110]\n    set pen color to (#543921)\n    set pen size to (80)\n    Draw Line From: [-240] [-200] to [240] [-140]\n    set pen color to (#ff3131)\n    set pen size to (8)\n    Draw Line From: [-80] [-95] to [200] [-70]\n    set pen color to (#186f1f)\n    set pen size to (16)\n    Draw Line From: [80] [-3] to [100] [-1]\n    set pen color to (#2468e0)\n    set pen size to (8)\n    Draw Line From: [-140] [-100] to [-90] [-97]\nend\nif <(LEVEL) = [7]> then\n    set pen color to (#186f1f)\n    set pen size to (80)\n    Draw Line From: [-240] [-110] to [240] [-110]\n    set pen color to (#543921)\n    set pen size to (80)\n    Draw Line From: [-240] [-140] to [240] [-140]\n    set pen color to (#ff3131)\n    set pen size to (8)\n    Draw Line From: [-100] [-69] to [180] [-69]\n    set pen color to (#186f1f)\n    set pen size to (16)\n    Draw Line From: [130] [-1] to [150] [-1]\n    set pen color to (#186f1f)\n    set pen size to (16)\n    Draw Line From: [50] [-1] to [50] [-1]\n    set pen color to (#2468e0)\n    set pen size to (8)\n    Draw Line From: [-150] [-68] to [-120] [-68]\nend\nif <(LEVEL) = [8]> then\n    set pen color to (#186f1f)\n    set pen size to (80)\n    Draw Line From: [-240] [-70] to [240] [-110]\n    set pen color to (#543921)\n    set pen size to (130)\n    Draw Line From: [-240] [-130] to [240] [-170]\n    set pen color to (#ffa100)\n    set pen size to (10)\n    Draw Square at: [200] [-50] size [16]\nend\n\ndefine Draw Square at: (centerx) (centery) size (side length)\ngo to x: ((centerx) + ((side length) / (2))) y: ((centery) + ((side length) / (2)))\npen down\ngo to x: ((centerx) + ((side length) / (-2))) y: ((centery) + ((side length) / (2)))\ngo to x: ((centerx) + ((side length) / (-2))) y: ((centery) + ((side length) / (-2)))\ngo to x: ((centerx) + ((side length) / (2))) y: ((centery) + ((side length) / (-2)))\ngo to x: ((centerx) + ((side length) / (2))) y: ((centery) + ((side length) / (2)))\npen up\n\ndefine Draw Player\nset pen color to (#000000)\nset pen size to (3)\nDraw Square at: (Player X) (Player Y) size [16]\nDraw Square at: (Player X) (Player Y) size [14]\nDraw Square at: (Player X) (Player Y) size [10]\nDraw Square at: (Player X) (Player Y) size [5]\nDraw Square at: (Player X) (Player Y) size [2]\n\ndefine Reset Player\nset pen (transparency v) to (0)\nset [player x v] to [-185]\nset [player y v] to [50]\nset [xv v] to [0]\nset [yv v] to [0]\n\ndefine Special Collision\nif <touching color (#ff3030)?> then\n    start sound [steve-old-hurt-sound_XKZxUk4 v]\n    repeat (5)\n        change pen (transparency v) by (20)\n    end\n    Reset Player\nend\nif <(x position) > [220]> then\n    change [level v] by (1)\n    Reset Player\nend\n\nwhen I receive [intro finished v]\nshow\nset [level v] to [1]\ngo to x: (-185) y: (50)\nset [xv v] to [0]\nset [yv v] to [0]\nforever\n    erase all\n    set [player x v] to (x position)\n    set [player y v] to (y position)\n    Draw Ground\n    go to x: (Player X) y: (Player Y)\n    Physics\n    set [player x v] to (x position)\n    set [player y v] to (y position)\n    Special Collision\n    Draw Player\n    go to x: (Player X) y: (Player Y)\nend\n\nwhen flag clicked\nhide\n\n@Thumbnail\n\nwhen flag clicked\nhide\nforever\n    set [timer2 v] to (timer)\nend\n\nwhen [timer v] > (timer2)\nshow\ngo to [front v] layer\n\n@Intro by @poliakoff \n\nwhen flag clicked\ngo to [front v] layer\nreset timer\nhide\nset volume to (100) %\nstart sound [TheFatRat+-+Time+Lapse.mp3 v]\nswitch costume to (tonyshark_ts v)\npoint in direction (90)\ngo to x: (0) y: (0)\nset size to (500) %\nset [intro: ghost v] to [100]\nset [ghost v] effect to (intro: ghost)\nshow\nwait (0.25) seconds\nrepeat (35)\n    change size by (((100) - (size)) / (5))\n    change [intro: ghost v] by (((0) - (intro: ghost)) / (5))\n    set [ghost v] effect to (intro: ghost)\nend\nset size to (200) %\nrepeat (10)\n    change size by (((250) - (size)) / (5))\nend\nrepeat (30)\n    change size by (((150) - (size)) / (5))\nend\nset size to (150) %\nrepeat (10)\n    change y by (-27)\n    create clone of (_myself_ v)\n    turn right (18) degrees\nend\nset y to ((0) - (y position))\nrepeat (10)\n    change y by (-25)\n    create clone of (_myself_ v)\n    turn right (18) degrees\nend\nwait (0.25) seconds\nswitch costume to (black v)\ncreate clone of (_myself_ v)\nswitch costume to (tonyshark_ts v)\nrepeat (20)\n    change volume by (-5)\nend\nbroadcast (intro finished v)\n\nwhen I start as a clone\nif <(costume [name v]) = [tonyshark_ts]> then\n    clear graphic effects\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nelse\n    hide\n    set size to (10) %\n    repeat (25)\n        turn right (1) degrees\n        switch costume to (black2 v)\n        go to [front v] layer\n        show\n        change size by (300)\n        switch costume to (black v)\n    end\n    broadcast (message1 v)\nend\n\nwhen I receive [intro finished v]\nif  then\n    delete this clone\nend\nhide\nset volume to (0) %\n\n@Intro BG\n\nwhen flag clicked\nswitch costume to (costume1 v)\nshow\n\nwhen I receive [intro finished v]\nhide\n\nwhen I receive [game over my guys v]\nswitch costume to (costume2 v)\nshow\nset [ghost v] effect to (0)\ngo to [front v] layer\n\n