90% Pen Platformer
@Stage\n\n@T H U M B N A I L\n\nwhen flag clicked\nforever\n    go to x: (0) y: (0)\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\n\n@Pen\n\ndefine Draw Line From: (x1) (y1) to: (x2) (y2) Pen? (up/down) Speed: (speed) Size: (size)\nset pen size to (size)\nif <(up/down) = [Up]> then\n    pen up\nend\nif <(up/down) = [Down]> then\n    pen down\nend\nset [x1 v] to (x1)\nset [y1 v] to (y1)\ngo to x: (x1) y: (y1)\nset [x1 v] to (x2)\nset [y1 v] to (y2)\nglide (speed) secs to x: (x1) y: (y1)\n\nwhen I receive [next l e v e l v]\nerase all\nforever\n    if <(CurrLEVEL) = [1]> then\n        Draw Line From: [0] [0] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [190] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [190] [-124] to: [190] [-50] Pen? [Down] Speed: [0.4] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [2]> then\n        Draw Line From: [190] [-50] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-75] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ff0000)\n        Draw Line From: [-75] [-124] to: [-75] [-60] Pen? [Down] Speed: [0.5] Size: [25]\n        Draw Line From: [-75] [-60] to: [75] [-124] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [75] [-124] to: [75] [-60] Pen? [Down] Speed: [0.5] Size: [25]\n        Draw Line From: [75] [-60] to: [190] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [190] [-124] to: [190] [-50] Pen? [Down] Speed: [0.4] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [3]> then\n        Draw Line From: [190] [-50] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-110] [-124] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [-110] [-124] to: [-110] [-62] Pen? [Down] Speed: [0.25] Size: [25]\n        Draw Line From: [-110] [-62] to: [-10] [-62] Pen? [Down] Speed: [0.4] Size: [25]\n        Draw Line From: [-10] [-62] to: [-10] [0] Pen? [Down] Speed: [0.25] Size: [25]\n        Draw Line From: [-10] [0] to: [90] [0] Pen? [Down] Speed: [0.4] Size: [25]\n        Draw Line From: [90] [0] to: [90] [60] Pen? [Down] Speed: [0.25] Size: [25]\n        Draw Line From: [90] [60] to: [250] [60] Pen? [Down] Speed: [0.5] Size: [25]\n        Draw Line From: [250] [60] to: [-30] [-37] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ff0000)\n        Draw Line From: [-30] [-37] to: [-30] [0] Pen? [Down] Speed: [0.25] Size: [25]\n        Draw Line From: [-30] [0] to: [65] [25] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [65] [25] to: [65] [60] Pen? [Down] Speed: [0.25] Size: [25]\n        Draw Line From: [65] [60] to: [210] [60] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [210] [60] to: [210] [120] Pen? [Down] Speed: [0.25] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [4]> then\n        Draw Line From: [210] [120] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-50] [-143] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#c100e8)\n        Draw Line From: [-50] [-143] to: [50] [-143] Pen? [Down] Speed: [0.25] Size: [25]\n        Draw Line From: [50] [-143] to: [200] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [200] [-124] to: [200] [-60] Pen? [Down] Speed: [0.4] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [5]> then\n        Draw Line From: [200] [-60] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-60] [-118] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ff0000)\n        Draw Line From: [-60] [-118] to: [60] [-118] Pen? [Down] Speed: [0.4] Size: [25]\n        Draw Line From: [60] [-118] to: [-40] [-103] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [-40] [-103] to: [40] [-103] Pen? [Down] Speed: [0.3] Size: [25]\n        Draw Line From: [40] [-103] to: [-20] [-88] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [-20] [-88] to: [20] [-88] Pen? [Down] Speed: [0.2] Size: [25]\n        Draw Line From: [20] [-88] to: [200] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [200] [-124] to: [200] [-60] Pen? [Down] Speed: [0] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [6]> then\n        Draw Line From: [200] [-60] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-75] [-143] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#c100e8)\n        Draw Line From: [-75] [-143] to: [-40] [-143] Pen? [Down] Speed: [0.25] Size: [25]\n        Draw Line From: [-40] [-143] to: [50] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ff0000)\n        Draw Line From: [50] [-124] to: [50] [107] Pen? [Down] Speed: [0.5] Size: [50]\n        Draw Line From: [50] [107] to: [200] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [200] [-124] to: [200] [-50] Pen? [Down] Speed: [0] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [7]> then\n        Draw Line From: [200] [-50] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-115] [-140] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [-115] [-140] to: [75] [100] Pen? [Down] Speed: [0.75] Size: [50]\n        Draw Line From: [75] [100] to: [125] [100] Pen? [Down] Speed: [0.25] Size: [50]\n        Draw Line From: [125] [100] to: [125] [77] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ff0000)\n        Draw Line From: [125] [77] to: [125] [-124] Pen? [Down] Speed: [0.6] Size: [35]\n        Draw Line From: [125] [-124] to: [235] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [235] [-124] to: [235] [-50] Pen? [Down] Speed: [0.25] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [8]> then\n        Draw Line From: [235] [-50] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-125] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ff0000)\n        Draw Line From: [-125] [-124] to: [-100] [-74] Pen? [Down] Speed: [0.2] Size: [25]\n        Draw Line From: [-100] [-74] to: [-75] [-124] Pen? [Down] Speed: [0.2] Size: [25]\n        Draw Line From: [-75] [-124] to: [75] [-124] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [75] [-124] to: [100] [-74] Pen? [Down] Speed: [0.2] Size: [25]\n        Draw Line From: [100] [-74] to: [125] [-124] Pen? [Down] Speed: [0.2] Size: [25]\n        Draw Line From: [125] [-124] to: [210] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [210] [-124] to: [210] [-50] Pen? [Down] Speed: [0.3] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [9]> then\n        Draw Line From: [210] [50] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-250] [180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ff0000)\n        Draw Line From: [-250] [180] to: [250] [180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [180] to: [-125] [-143] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#c100e8)\n        Draw Line From: [-125] [-143] to: [-75] [-143] Pen? [Down] Speed: [0.3] Size: [25]\n        Draw Line From: [-75] [-143] to: [75] [-143] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [75] [-143] to: [125] [-143] Pen? [Down] Speed: [0.3] Size: [25]\n        Draw Line From: [125] [-143] to: [210] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [210] [-124] to: [210] [-50] Pen? [Down] Speed: [0.4] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [10]> then\n        Draw Line From: [210] [-50] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-15] [-180] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [-15] [-180] to: [-15] [90] Pen? [Down] Speed: [0.6] Size: [25]\n        Draw Line From: [-15] [90] to: [250] [90] Pen? [Down] Speed: [0.6] Size: [25]\n        Draw Line From: [250] [90] to: [-15] [-100] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ff0000)\n        Draw Line From: [-15] [-100] to: [-15] [-75] Pen? [Down] Speed: [0.2] Size: [25]\n        Draw Line From: [-15] [-75] to: [-15] [25] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [-15] [25] to: [-15] [50] Pen? [Down] Speed: [0.2] Size: [25]\n        Draw Line From: [-15] [50] to: [100] [90] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [100] [90] to: [125] [90] Pen? [Down] Speed: [0.2] Size: [25]\n        Draw Line From: [125] [90] to: [215] [90] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [215] [90] to: [215] [180] Pen? [Down] Speed: [0.25] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [11]> then\n        Draw Line From: [210] [180] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-250] [180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ff0000)\n        Draw Line From: [-250] [180] to: [250] [180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [180] to: [-30] [-124] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [-30] [-124] to: [0] [-60] Pen? [Down] Speed: [0.3] Size: [25]\n        Draw Line From: [0] [-60] to: [30] [-124] Pen? [Down] Speed: [0.3] Size: [25]\n        Draw Line From: [30] [-124] to: [-180] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#c100e8)\n        Draw Line From: [-180] [-124] to: [-150] [-60] Pen? [Down] Speed: [0.3] Size: [25]\n        Draw Line From: [-150] [-60] to: [-120] [-124] Pen? [Down] Speed: [0.3] Size: [25]\n        Draw Line From: [-120] [-124] to: [120] [-124] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [120] [-124] to: [150] [-60] Pen? [Down] Speed: [0.3] Size: [25]\n        Draw Line From: [150] [-60] to: [180] [-124] Pen? [Down] Speed: [0.3] Size: [25]\n        Draw Line From: [180] [-124] to: [215] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [215] [-124] to: [215] [-50] Pen? [Down] Speed: [0.3] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [12]> then\n        Draw Line From: [215] [-50] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        Draw Line From: [250] [-180] to: [-100] [-124] Pen? [Up] Speed: [0] Size: [0]\n        Draw Line From: [-100] [-124] to: [-100] [76] Pen? [Down] Speed: [0.7] Size: [30]\n        Draw Line From: [-100] [76] to: [75] [76] Pen? [Down] Speed: [0.4] Size: [30]\n        Draw Line From: [75] [76] to: [-85] [-24] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ff0000)\n        Draw Line From: [-85] [-24] to: [125] [-24] Pen? [Down] Speed: [0.5] Size: [30]\n        Draw Line From: [125] [-24] to: [210] [-124] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#ffae00)\n        Draw Line From: [210] [-124] to: [210] [-50] Pen? [Down] Speed: [0.3] Size: [25]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\n    if <(CurrLEVEL) = [13]> then\n        Draw Line From: [215] [180] to: [-250] [-180] Pen? [Up] Speed: [0] Size: [0]\n        set pen color to (#45e600)\n        Draw Line From: [-250] [-180] to: [250] [-180] Pen? [Down] Speed: [1] Size: [100]\n        broadcast (PLAY PLAY PLAYER v)\n        stop [this script v]\n    end\nend\n\n@P.Layer\n\nwhen flag clicked\nbroadcast (Next L E V E L v)\nhide variable [x v]\nhide variable [y v]\nset [x v] to [0]\nset [y v] to [0]\nset [currlevel v] to [1]\nset [deaths v] to [0]\nhide\nswitch backdrop to (backdrop1 v)\n\nwhen I receive [play play player v]\nshow\ngo to x: (-215) y: (-70)\nforever\n    if <key (right arrow v) pressed?> then\n        switch costume to (right v)\n        change [x v] by (1)\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (costume1 v)\n        change [x v] by (-1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching color (#45e600)?> then\n        change y by (1)\n        if <touching color (#45e600)?> then\n            change y by (1)\n            if <touching color (#45e600)?> then\n                change y by (1)\n                if <touching color (#45e600)?> then\n                    change y by (1)\n                end\n            end\n        end\n    end\n    if <touching color (#45e600)?> then\n        change x by ((x) * (-1))\n        change y by (-4)\n        if <key (up arrow v) pressed?> then\n            if <(x) > [0]> then\n                set [x v] to [-3]\n            else\n                set [x v] to [5]\n            end\n            set [y v] to [10]\n        else\n            set [y v] to [0]\n        end\n    end\n    change [y v] by (-1)\n    change y by (y)\n    if <touching color (#45e600)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    change [level v] by (1)\n    if <touching color (#45e600)?> then\n        if <key (up arrow v) pressed?> then\n            set [y v] to [15]\n        end\n    end\n    if <touching color (#c100e8)?> then\n        set [y v] to [25]\n    end\n    change y by (1)\n    if <touching color (#ffae00)?> then\n        switch backdrop to (next backdrop v)\n        go to x: (-215) y: (-70)\n        change [level v] by (1)\n        change [currlevel v] by (1)\n        broadcast (Next L E V E L v)\n        set [message recieved? v] to [2]\n    end\n    if <(y position) < [-147]> then\n        go to x: (-215) y: (-70)\n    end\n    if <touching color (#ff0000)?> then\n        go to x: (-215) y: (-70)\n        change [deaths v] by (1)\n        change [☁ worldwide deaths v] by (1)\n    end\nend\n\nwhen I receive [next l e v e l v]\nhide\n\n
*************************READ ALL****************************\n\n53 views to 6667 in 18 hours... :O\n\n#37,494th most favorited project on Scratch... why XD\n\n11.3k views? Sure, why not.\n12.3k views? I have mastered the art of getting views.\n13.1k views? Easter egg I guess\n13.2k views? I have done it.\n\nGetting curated by @-Sprout15- on 4/1/21... Thank you so much! \n\nThe Sequel: https://scratch.mit.edu/projects/446185346/\nThe Third (The Best in my opinion): https://scratch.mit.edu/projects/494241886/\n\nThis plaformer is 90% rendered in pen! Everything except for the player and the thumbnail (and the code, obviously). This includes the ground, lava, bounce pads, and the portal to the next level!\n\nThanks to @23ScratchMan for inspiring me in a way.\n\nComment how many deaths you got! Whoever gets 0 deaths joins the list of the immortal platformer players!\n\nImmortal platformer players:\n@-GraphicsGames-\n@chickennugsmanlucas\n@MediaOfficial\n@Amused_Moose\n@Esmedoggo\n@ChristianRadio\n@jkweoafsipd\n@Mercury_Phoenix\n@ElonHyperLoop\n\nI hope you enjoy! A love, favorite, or follow would be appreciated!\n\nYour friend, @-GraphicsGames-