Nature (FUNNY) // Pen Platformer // xD
@Stage\n\n@Penformer\n\nwhen flag clicked\nerase all\nset [lvl v] to [1]\ngo to x: (-200) y: (0)\nset [speedx v] to [0]\nset [speedy v] to [0]\nforever\n    erase all\n    set [x-position v] to (x position)\n    set [y-position v] to (y position)\n    Draw lvl\n    go to x: (x-position) y: (y-position)\n    Platformer Physics\n    set [x-position v] to (x position)\n    set [y-position v] to (y position)\n    draw player\n    go to x: (x-position) y: (y-position)\nend\n\ndefine draw player at x: (x) y: (y) size: (size)\ngo to x: ((x) + ((size) / (2))) y: ((y) + ((size) / (2)))\npen down\ngo to x: ((x) + ((size) / (-2))) y: ((y) + ((size) / (2)))\ngo to x: ((x) + ((size) / (-2))) y: ((y) + ((size) / (-2)))\ngo to x: ((x) + ((size) / (2))) y: ((y) + ((size) / (-2)))\ngo to x: ((x) + ((size) / (2))) y: ((y) + ((size) / (2)))\npen up\n\ndefine reset player\nset [x-position v] to [0]\nset [y-position v] to [0]\nset [speedx v] to [0]\nset [speedy v] to [0]\n\ndefine sky\nset pen color to (#3400ff)\nset pen size to (700)\nline from [-240] [0] to [240] [0]\n\ndefine line from (startx) (starty) to (endx) (endy)\npen up\ngo to x: (startx) y: (starty)\npen down\ngo to x: (endx) y: (endy)\npen up\n\ndefine draw down lines\nset pen size to (20)\nset pen color to (#58ff00)\nline from [-200] [-130] to [-200] [-160]\nline from [-160] [-130] to [-160] [-170]\nline from [-110] [-130] to [-110] [-165]\nline from [-70] [-130] to [-70] [-160]\nline from [-30] [-130] to [-30] [-170]\nline from [10] [-130] to [10] [-165]\nline from [50] [-130] to [50] [-160]\nline from [90] [-130] to [90] [-170]\nline from [130] [-130] to [130] [-165]\nline from [180] [-130] to [180] [-155]\n\ndefine Platformer Physics\nchange [speedy v] by (-1)\nchange y by (speedy)\nif <touching color (#58ff00)?> then\n    repeat until <not <touching color (#58ff00)?>>\n        change y by ((([abs v] of (speedy) ) / (speedy)) * (-1))\n    end\n    if <<key (up arrow v) pressed?> and <(speedy) < [0]>> then\n        set [speedy v] to [15]\n    else\n        set [speedy v] to [0]\n    end\nend\nset [speedx v] to (((speedx) + ((<key (right arrow v) pressed?> * (.9)) + (<key (left arrow v) pressed?> * ((0.9) * (-1))))) * (0.9))\nchange x by (speedx)\nset [slope v] to [0]\nrepeat until <<(Slope) = [-8]> or <not <touching color (#58ff00)?>>>\n    change y by (1)\n    change [slope v] by (-1)\nend\nif <touching color (#58ff00)?> then\n    change y by (Slope)\n    repeat until <not <touching color (#59ff00)?>>\n        change x by ((([abs v] of (speedx) ) / (speedy)) * (-1))\n    end\n    if <key (up arrow v) pressed?> then\n        set [speedy v] to [14]\n        if <(speedx) > [0]> then\n            set [speedx v] to [-8]\n        else\n            set [speedy v] to [8]\n        end\n    end\nend\nif <[240] < (x position)> then\n    go to x: (-180) y: (0)\n    change [lvl v] by (1)\n    reset player\nend\nif <(y position) < [-180]> then\n    go to x: (-180) y: (0)\n    reset player\nend\nif <touching color (#ff0000)?> then\n    go to x: (-180) y: (0)\n    reset player\nend\n\ndefine island at: (x) (y)\nset pen size to (50)\nset pen color to (#59ff00)\ngo to x: (x) y: (y)\ngo to x: ((x) + (20)) y: ((y) + (20))\npen up\npen down\ngo to x: ((x) - (20)) y: ((y) + (20))\npen up\n\ndefine draw down lines lvl 4\nset pen size to (20)\nset pen color to (#58ff00)\nline from [-200] [-130] to [-200] [-160]\nline from [-160] [-130] to [-160] [-170]\nline from [-120] [-130] to [-120] [-165]\n\nset pen size to (20)\n\nwhen flag clicked\nforever\n    play sound [it's different - Shadows \(feat v] until done\nend\n\ndefine draw down lines lvl 5\nset pen size to (20)\nset pen color to (#58ff00)\nline from [200] [-130] to [200] [-160]\nline from [160] [-130] to [160] [-170]\nline from [120] [-130] to [120] [-165]\n\ndraw down lines\n\nline from [] [] to [] []\n\nwhen [s v] key pressed\nchange [lvl v] by (1)\ngo to x: (-180) y: (0)\nreset player\n\nwhen [r v] key pressed\ngo to x: (-180) y: (0)\nreset player\n\ndefine Draw lvl\nsky\nif <(lvl) = [1]> then\n    Tree [-100] [-50] [50]\n    Tree [50] [-20] [60]\n    pen up\n    set pen size to (50)\n    set pen color to (#aaff7d)\n    line from [-240] [-160] to [240] [-160]\n    pen up\n    set pen size to (20)\n    set pen color to (#58ff00)\n    line from [-240] [-130] to [240] [-130]\n    pen up\n    draw down lines\nelse\n    if <(lvl) = [2]> then\n        Tree [-100] [-50] [50]\n        Tree [50] [-20] [60]\n        pen up\n        set pen size to (50)\n        set pen color to (#aaff7d)\n        line from [-240] [-160] to [240] [-160]\n        pen up\n        set pen size to (20)\n        set pen color to (#58ff00)\n        line from [-240] [-130] to [240] [-130]\n        draw down lines\n        pen up\n        set pen color to (#ff0000)\n        line from [0] [-129] to [100] [-129]\n        line from [-150] [-129] to [-110] [-129]\n    else\n        if <(lvl) = [3]> then\n            Tree [-100] [-50] [50]\n            Tree [0] [100] [60]\n            pen up\n            set pen size to (50)\n            set pen color to (#aaff7d)\n            line from [-240] [-160] to [240] [-160]\n            pen up\n            set pen size to (20)\n            set pen color to (#58ff00)\n            line from [-240] [-130] to [240] [-130]\n            pen up\n            draw down lines\n            line from [-150] [-130] to [-100] [-90]\n            line from [-100] [-90] to [-50] [-130]\n            set pen color to (#ff0000)\n            line from [-50] [-130] to [240] [-130]\n            island at: [0] [-10]\n        else\n            if <(lvl) = [4]> then\n                Tree [-50] [80] [50]\n                Tree [100] [180] [60]\n                pen up\n                set pen size to (50)\n                set pen color to (#aaff7d)\n                line from [-240] [-160] to [-130] [-160]\n                pen up\n                set pen size to (20)\n                set pen color to (#59ff00)\n                line from [-240] [-130] to [-100] [-130]\n                pen up\n                set pen color to (#ff0000)\n                set pen size to (20)\n                line from [-240] [180] to [240] [180]\n                line from [-5] [-25] to [240] [-25]\n                draw down lines lvl 4\n                island at: [-50] [-50]\n                island at: [100] [50]\n            else\n                if <(lvl) = [5]> then\n                    Tree [-200] [-50] [50]\n                    Tree [200] [-50] [60]\n                    pen up\n                    set pen size to (50)\n                    set pen color to (#aaff7d)\n                    line from [-240] [-160] to [-110] [-160]\n                    line from [ 110] [-160] to [240] [-160]\n                    pen up\n                    set pen size to (20)\n                    set pen color to (#58ff00)\n                    line from [-240] [-130] to [-100] [-130]\n                    line from [100] [-130] to [240] [-130]\n                    draw down lines lvl 4\n                    draw down lines lvl 5\n                    pen up\n                    set pen color to (#ff0000)\n                    line from [100] [-130] to [130] [-130]\n                else\n                    if <(lvl) = [6]> then\n                        Tree [-200] [-50] [50]\n                        Tree [200] [-50] [60]\n                        pen up\n                        set pen size to (50)\n                        set pen color to (#aaff7d)\n                        line from [-240] [-160] to [240] [-160]\n                        pen up\n                        set pen size to (20)\n                        set pen color to (#59ff00)\n                        line from [-240] [-130] to [240] [-130]\n                        pen up\n                        draw down lines\n                        set pen size to (20)\n                        set pen color to (#ff0000)\n                        line from [-150] [-130] to [30] [-130]\n                        line from [240] [-130] to [170] [-130]\n                        line from [180] [-40] to [240] [-40]\n                        island at: [210] [-30]\n                    else\n                        if <(lvl) = [7]> then\n                            island at: [-200] [0]\n                            island at: [-100] [-100]\n                            island at: [150] [-100]\n                        else\n                            if <(lvl) = [8]> then\n                                island at: [-200] [0]\n                                island at: [-100] [-100]\n                                island at: [180] [-100]\n                            else\n                                pen up\n                                set pen size to (50)\n                                set pen color to (#aaff7d)\n                                line from [-240] [-160] to [240] [-160]\n                                pen up\n                                set pen size to (20)\n                                set pen color to (#59ff00)\n                                line from [-240] [-130] to [240] [-130]\n                                pen up\n                                draw down lines\n                                set pen color to (#ff0000)\n                                line from [240] [180] to [240] [-180]\n                                set pen size to (5)\n                                line from [-200] [150] to [-190] [130]\n                                line from [-190] [130] to [-180] [150]\n                                line from [-190] [130] to [-190] [110]\n                                line from [-155] [150] to [-140] [150]\n                                line from [-155] [110] to [-140] [110]\n                                line from [-155] [110] to [-155] [150]\n                                line from [-140] [110] to [-140] [150]\n                                line from [-120] [110] to [-120] [150]\n                                line from [-100] [110] to [-100] [150]\n                                line from [-100] [110] to [-120] [110]\n                                line from [-50] [110] to [-50] [150]\n                                line from [-50] [110] to [-30] [110]\n                                line from [-30] [110] to [-30] [150]\n                                line from [-30] [110] to [-10] [110]\n                                line from [-10] [110] to [-10] [150]\n                                line from [20] [150] to [35] [150]\n                                line from [20] [110] to [20] [150]\n                                line from [35] [110] to [20] [110]\n                                line from [35] [110] to [35] [150]\n                                line from [70] [150] to [70] [110]\n                                line from [70] [150] to [90] [110]\n                                line from [90] [110] to [90] [150]\n                                set pen size to (20)\n                                line from [140] [100] to [140] [100]\n                                line from [140] [130] to [140] [150]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine Tree (x) (y) (s)\nset pen size to (30)\nset pen color to (#710d08)\nline from (x) ((y) + (-)) to ((x) - ()) ((y) + (-100))\nset pen color to (#45a00d)\nline from ((x) - ((s) / (1.3))) (y) to ((x) - ((s) / (-1.3))) (y)\nset pen color to (#57cc10)\nline from ((x) - ((s) / (2))) ((y) + (30)) to ((x) - ((s) / (-2))) ((y) + (30))\nset pen color to (#62e812)\nline from ((x) - ((s) / (5))) ((y) + (60)) to ((x) - ((s) / (-5))) ((y) + (60))\n\ndefine draw player\nset pen size to (19)\nset pen color to (#ffffff)\ndraw player at x: (x-position) y: (y-position) size: [19]\n\n@Sprite1\n\nwhen flag clicked\nforever\n    show\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\n\n
★★★ CONTROLS ★★★\n• Arrow Keys to move\n• If u touch red u then... dunno. just dont touch red\n•Can be glitchy bc its pretty old...\n\n★★★ STORY LOL★★★\nThis game is 30 years old. :) no no jk hehe\n\n★★★ Credits ★★★\nMy pet made everything\nmusic maker lol \n\n★★★ What you have to do ★★★\nPress the flag and smash the love and fave button so they are not grey anymore. then remix and make the instructions and the thumbnail more funny. Go to my profile and click the blue button :) XDDD\n\n\n★★★ What will happen XD ★★★\nwhen this project reaches a good trending place or get top loved etc. i will make another Part lol\nJust have fun and enjoy this hehe