100% Pen Platformer!! (V.Final)
@Stage\n\n@pen\n\ndefine Render\nLevel\nPlayer\n\ndefine Player\npen up\nset pen color to (#ffa930)\nset pen size to (21)\ngo to x: (0) y: (0)\npen down\n\ndefine Level\nif <(Level) = [1]> then\n    draw [700] [650] [-50] [60] [5]\n    draw [650] [700] [-15] [-60] [5]\n    draw [720] [700] [-15] [-60] [5]\n    draw [720] [1000] [-500] [-500] [1]\n    draw [1000] [1000] [-400] [-500] [2]\n    draw [-100] [-100] [-100] [50] [1]\n    draw [-100] [200] [-100] [-100] [1]\n    draw [200] [100] [-50] [-50] [1]\n    draw [100] [100] [-100] [-50] [1]\n    draw [200] [200] [-100] [-50] [1]\n    draw [400] [300] [3] [3] [1]\n    draw [550] [450] [43] [43] [1]\nelse\n    if <(Level) = [2]> then\n        draw [1412] [1412] [-700] [-800] [2]\n        draw [1100] [1212] [-100] [-100] [4]\n        draw [-100] [12] [-100] [-100] [1]\n        draw [100] [212] [-100] [-100] [1]\n        draw [300] [412] [-100] [-100] [1]\n        draw [500] [612] [-100] [-100] [1]\n        draw [700] [812] [-100] [-100] [1]\n        draw [900] [1012] [-100] [-100] [1]\n        draw [1100] [1212] [-200] [-200] [1]\n        draw [1100] [1212] [-350] [-350] [1]\n        draw [1100] [1212] [-500] [-500] [1]\n        draw [1100] [1212] [-650] [-650] [1]\n        draw [1100] [1412] [-800] [-800] [1]\n    else\n        if <(Level) = [3]> then\n            draw [650] [650] [150] [50] [5]\n            draw [630] [650] [100] [50] [5]\n            draw [670] [650] [100] [50] [5]\n            draw [650] [800] [-100] [-100] [1]\n            draw [800] [800] [0] [-100] [2]\n            draw [-80] [32] [-100] [-100] [1]\n            draw [80] [150] [-280] [-280] [3]\n            draw [200] [232] [-50] [-50] [1]\n            draw [280] [332] [0] [0] [1]\n            draw [380] [432] [50] [50] [1]\n            draw [500] [550] [100] [100] [1]\n        else\n            if <(Level) = [4]> then\n                draw [412] [800] [-100] [-100] [6]\n                draw [412] [800] [-110] [-110] [1]\n                draw [800] [860] [-110] [-80] [3]\n                draw [1400] [1600] [-80] [-80] [1]\n                draw [1600] [1600] [10] [-80] [2]\n                draw [-80] [32] [-100] [-100] [1]\n                draw [80] [140] [-100] [-100] [1]\n                draw [140] [140] [200] [-100] [1]\n                draw [300] [140] [200] [200] [1]\n                draw [300] [300] [200] [-100] [1]\n                draw [300] [412] [-100] [-100] [1]\n            else\n                if <(Level) = [5]> then\n                    draw [-80] [32] [-100] [-100] [1]\n                    draw [80] [500] [-100] [50] [1]\n                    draw [500] [500] [-350] [50] [1]\n                    draw [600] [600] [-300] [100000000000000000000000000000000000] [1]\n                    draw [600] [650] [-350] [-350] [1]\n                    draw [700] [750] [-350] [-350] [1]\n                    draw [800] [850] [-350] [-350] [1]\n                    draw [900] [950] [-350] [-350] [1]\n                    draw [1000] [1050] [-350] [-350] [1]\n                    draw [1150] [1300] [-350] [-350] [1]\n                    draw [1300] [1300] [-250] [-350] [2]\n                else\n                    if <(Level) = [6]> then\n                        draw [-80] [300] [-100] [-100] [1]\n                        draw [300] [300] [80] [-100] [1]\n                        draw [-80] [-80] [120] [-100] [1]\n                        draw [-80] [300] [120] [120] [1]\n                        draw [340] [500] [-100] [-100] [1]\n                        draw [500] [500] [10] [-100] [2]\n                        draw [50] [70] [10] [10] [1]\n                        draw [250] [280] [80] [80] [1]\n                        draw [120] [190] [40] [40] [1]\n                    else\n                        if <(Level) = [7]> then\n                            draw [-80] [30] [-100] [-100] [1]\n                            draw [30] [250] [-100] [-500] [1]\n                            draw [250] [270] [-500] [-500] [3]\n                            draw [400] [500] [-300] [-300] [1]\n                            draw [600] [600] [-400] [-400] [3]\n                            draw [700] [900] [-300] [-300] [6]\n                            draw [900] [910] [-300] [-280] [4]\n                            draw [1100] [1500] [-280] [-280] [1]\n                            draw [1400] [1500] [-280] [-280] [3]\n                            draw [1400] [1300] [0] [0] [3]\n                            draw [1200] [1300] [280] [280] [3]\n                            draw [1200] [1100] [560] [560] [3]\n                            draw [1180] [1100] [560] [560] [4]\n                            draw [1200] [1300] [740] [740] [3]\n                            draw [1400] [1600] [1020] [1020] [1]\n                            draw [1600] [1600] [1020] [1120] [2]\n                        else\n                            if <(Level) = [8]> then\n                                draw [-80] [30] [-100] [-100] [1]\n                                draw [-80] [-80] [-100] [-30] [1]\n                                draw [30] [50] [-100] [-100] [7]\n                                draw [30] [1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000] [-30] [-30] [4]\n                                draw [90] [110] [-100] [-100] [1]\n                                draw [110] [115] [-100] [-100] [7]\n                                draw [150] [170] [-100] [-100] [1]\n                                draw [170] [160] [-100] [-100] [7]\n                                draw [170] [180] [-100] [-100] [3]\n                                draw [200] [250] [-100] [-100] [7]\n                                draw [290] [350] [-100] [-100] [7]\n                                draw [370] [500] [-100] [-100] [1]\n                                draw [700] [550] [-200] [-200] [1]\n                                draw [700] [700] [-200] [-100] [2]\n                            else\n                                if <(Level) = [9]> then\n                                    draw [-80] [-80] [-100] [100] [4]\n                                    draw [-80] [30] [-100] [-100] [1]\n                                    draw [30] [80] [-100] [-100] [4]\n                                    draw [80] [140] [-100] [-100] [1]\n                                    draw [190] [140] [-100] [-100] [4]\n                                    draw [190] [300] [-100] [-100] [1]\n                                    draw [350] [300] [-200] [-200] [1]\n                                    draw [-80] [400] [-300] [-300] [1]\n                                    draw [140] [0] [-300] [-300] [4]\n                                    draw [-140] [-80] [-400] [-400] [1]\n                                    draw [300] [-80] [-500] [-500] [1]\n                                    draw [120] [120] [-500] [-450] [4]\n                                    draw [50] [50] [-500] [-470] [4]\n                                    draw [300] [300] [-500] [-400] [2]\n                                else\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine Go to x (x) y (y)\nset size to (10000) %\ngo to x: ((xshift) + (x)) y: ((yshift) + (y))\nset size to (100) %\n\ndefine draw (x1) (x2) (y1) (y2) (type)\npen up\nif <(type) = [1]> then\n    set pen color to (#2020de)\nelse\n    if <(type) = [2]> then\n        set pen color to (#1ae803)\n    else\n        if <(type) = [3]> then\n            set pen color to (#434386)\n        else\n            if <(type) = [4]> then\n                set pen color to (#ff0000)\n            else\n                if <(type) = [5]> then\n                    set pen color to (#ff00d0)\n                else\n                    if <(type) = [6]> then\n                        set pen color to (#ffe900)\n                    else\n                        if <(type) = [7]> then\n                            set pen color to (#9800ff)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nset pen size to (8)\nGo to x (x1) y (y1)\npen down\nif <(type) = [1]> then\n    set pen color to (#2020de)\nelse\n    if <(type) = [2]> then\n        set pen color to (#1ae803)\n    else\n        if <(type) = [3]> then\n            set pen color to (#00ffff)\n        else\n            if <(type) = [4]> then\n                set pen color to (#ff0000)\n            else\n                if <(type) = [5]> then\n                    set pen color to (#ff00d0)\n                else\n                    if <(type) = [6]> then\n                        set pen color to (#ffe900)\n                    else\n                        if <(type) = [7]> then\n                            set pen color to (#9800ff)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nGo to x (x2) y (y2)\n\nwhen I receive [start v]\nset [ghost v] effect to (100)\nset [yvel v] to [0]\nset [xshift v] to [0]\nset [yshift v] to [0]\nset [xvel v] to [0]\nforever\n    erase all\n    Render\n    if <<<key (f v) pressed?> or <<mouse down?> and <<(mouse y) < [-120]> and <(mouse x) > [120]>>>> and <(Level) < [10]>> then\n        change [level v] by (1)\n        set [yvel v] to [0]\n        set [xshift v] to [0]\n        set [yshift v] to [0]\n        set [xvel v] to [0]\n        wait until <not <<key (f v) pressed?> or <<mouse down?> and <<(mouse y) < [-120]> and <(mouse x) > [120]>>>>>\n    end\nend\n\nwhen I receive [start v]\nset [level v] to [1]\nforever\n    pen up\n    go to x: (0) y: (0)\n    set [ghost v] effect to (0)\n    change [yvel v] by (-1)\n    set [xvel v] to (((xvel) + (<<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > [0]>>> + (<<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>> * (-1)))) * (0.9))\n    change x by (xvel)\n    if <<touching color (#1f20de)?> or <touching color (#ffe900)?>> then\n        change y by (1)\n        if <<touching color (#1f20de)?> or <touching color (#ffe900)?>> then\n            change y by (1)\n            if <<touching color (#1f20de)?> or <touching color (#ffe900)?>> then\n                change y by (1)\n                if <<touching color (#1f20de)?> or <touching color (#ffe900)?>> then\n                    change y by (1)\n                    if <<touching color (#1f20de)?> or <touching color (#ffe900)?>> then\n                        change y by (1)\n                        if <<touching color (#1f20de)?> or <touching color (#ffe900)?>> then\n                            change y by (-5)\n                            change x by ((xvel) * (-1))\n                            if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [30]>>> then\n                                start sound [BeepBox-Song \(3\) v]\n                                set [xvel v] to ((([abs v] of (xvel) ) / (xvel)) * (-10))\n                                set [yvel v] to [10]\n                            else\n                                set [xvel v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (yvel)\n    if <<touching color (#1f20de)?> or <touching color (#ffe900)?>> then\n        change y by ((0) - (yvel))\n        set [yvel v] to [0]\n    end\n    change y by (-1)\n    if <<<touching color (#1f20de)?> or <touching color (#ffe900)?>> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > [30]>>>>> then\n        start sound [BeepBox-Song \(3\) v]\n        set [yvel v] to [12]\n    end\n    if <touching color (#1ae802)?> then\n        start sound [BeepBox-Song \(4\) v]\n        set [ghost v] effect to (100)\n        change [level v] by (1)\n        set [xshift v] to [0]\n        set [yshift v] to [0]\n        set [xvel v] to [0]\n        set [yvel v] to [0]\n    end\n    if <touching color (#ff0000)?> then\n        start sound [Crunch v]\n        set [xshift v] to [0]\n        set [yshift v] to [0]\n        set [xvel v] to [0]\n        set [yvel v] to [0]\n    end\n    if <([abs v] of (yvel) ) > [45]> then\n        set [xshift v] to [0]\n        set [yshift v] to [0]\n        set [xvel v] to [0]\n        set [yvel v] to [0]\n    end\n    if <touching color (#00ffff)?> then\n        start sound [BeepBox-Song \(5\) v]\n        set [yvel v] to [25]\n    end\n    if <touching color (#ffe900)?> then\n        set [xvel v] to [30]\n    end\n    if <touching color (#9700ff)?> then\n        start sound [BeepBox-Song \(3\) v]\n        set [yvel v] to [8]\n    end\n    change y by (1)\n    change [xshift v] by ((x position) * (-1))\n    change [yshift v] by ((y position) * (-1))\n    go to x: (0) y: (0)\n    set [ghost v] effect to (100)\nend\n\nwhen flag clicked\nforever\n    play sound [徐梦圆 - color-X 3D~ v] until done\nend\n\ndefine end\ndraw [-80] [300] [-100] [-100] [1]\ndraw [300] [300] [120] [-100] [1]\ndraw [-80] [-80] [120] [-100] [1]\ndraw [-80] [300] [120] [120] [1]\ndraw [40] [70] [80] [80] [5]\ndraw [55] [55] [80] [50] [5]\ndraw [85] [85] [80] [50] [5]\ndraw [85] [110] [65] [65] [5]\ndraw [110] [110] [80] [50] [5]\ndraw [125] [125] [80] [50] [5]\ndraw [125] [145] [80] [80] [5]\ndraw [125] [145] [50] [50] [5]\ndraw [125] [145] [65] [65] [5]\ndraw [40] [70] [30] [30] [5]\ndraw [40] [40] [30] [0] [5]\ndraw [40] [70] [0] [0] [5]\ndraw [40] [70] [15] [15] [5]\ndraw [85] [85] [0] [30] [5]\ndraw [85] [110] [30] [0] [5]\ndraw [110] [110] [0] [30] [5]\ndraw [125] [125] [0] [30] [5]\ndraw [125] [145] [0] [15] [5]\ndraw [125] [145] [30] [15] [5]\ndraw [125] [145] [-90] [-90] [3]\ndraw [30] [50] [-90] [-90] [6]\n\nend\n\n@Nlogo2\n\nwhen flag clicked\nhide\nset size to (185) %\nif <(a) = [1]> then\n    pen down\n    反馈\n    set [a v] to [0]\nelse\n    broadcast (start v)\nend\n\ndefine 背景\nerase all\npen up\nset pen color to (#8a55d7)\nset pen size to (250)\nset pen shade to (30)\ngo to x: (0) y: (10000)\npen down\nstart sound [BeepBox-Song v]\nrepeat (15)\n    change y by (((-180) - (y position)) / (6))\nend\npen up\nset pen shade to (50)\ngo to x: (240) y: (10000)\npen down\nstart sound [BeepBox-Song v]\nrepeat (15)\n    change y by (((-180) - (y position)) / (6))\nend\npen up\nset pen shade to (20)\ngo to x: (-240) y: (10000)\npen down\nstart sound [BeepBox-Song v]\nrepeat (20)\n    change y by (((-180) - (y position)) / (6))\nend\npen up\n\ndefine 角色\nset [id v] to [1]\ncreate clone of (_myself_ v)\nwait (0.2) seconds\nset [id v] to [2]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\npen up\nset size to (185) %\ngo to [front v] layer\nshow\nset [ghost v] effect to (100)\npoint in direction (39)\nif <(id) = [1]> then\n    go to x: (-4) y: (18)\n    switch costume to (nlogo4 v)\nelse\n    if <(id) = [2]> then\n        go to x: (-6) y: (-85)\n        switch costume to (nlogo3 v)\n    end\nend\nif <(id) = [1]> then\n    start sound [BeepBox-Song \(1\) v]\nend\nrepeat (20)\n    change [ghost v] effect by (-5)\n    turn right (((91) - (direction)) / (6)) degrees\nend\nwait (2) seconds\nif <(id) = [1]> then\n    start sound [BeepBox-Song \(2\) v]\nend\nrepeat (20)\n    change [ghost v] effect by (10)\n    turn right (((135) - (direction)) / (6)) degrees\nend\ndelete this clone\n\ngo to x: (0) y: (0)\n\ndefine 反馈\n背景\n角色\nwait (3.5) seconds\n清除\nerase all\n\ndefine 清除\npen up\nset pen color to (#ffffff)\nset pen size to (250)\ngo to x: (-240) y: (180)\npen down\nstart sound [BeepBox-Song2 v]\nrepeat (15)\n    change x by (((240) - (x position)) / (6))\nend\npen up\ngo to x: (240) y: (0)\npen down\nstart sound [BeepBox-Song2 v]\nrepeat (15)\n    change x by (((-240) - (x position)) / (6))\nend\npen up\ngo to x: (-240) y: (-189)\npen down\nstart sound [BeepBox-Song2 v]\nrepeat (15)\n    change x by (((240) - (x position)) / (6))\nend\npen up\nbroadcast (start v)\n\nset [a v] to [1]\n\n@角色1\n\nwhen flag clicked\ngo to x: (0) y: (-4)\nshow\nset [ghost v] effect to (100)\ngo to [front v] layer\n\n
------------------- 100% PEN PLATFORMER-----------------\nif you think the lvls are too hard you can use F/Top lower right corner to skip!!\nuse ↓ ← →/ ASD /top(left or right) to move.\nuse ↑/ W /top(the up of screen)  to jump.\nDON'T FALL!!!!!\nDON'T touch RED!!!\nLight blue can make you jump high!\nYellow will Flip you off or accelerate.(WHAT!?)\nPink is only the tips...\nPurple will make you small jump!\nYOU SHOULD GET TO GREEN WALL!!!\n------------------------------------------------------------------------\nThanks for @MathMathMath 's tutorial and @Fabdino 's help!!!!!!\n------------------------------------------------------------------------\n------------------------------------------------------------------------\nPlease LEAVE A ❤️ ⭐️ AND ➕!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\nThanks for @THE_MOST 's ❤️！\n------------------------------------------------------------------------\n         ____    ______\n         |____|  |     ____|\n            |    |  ___\n            |    | |__  |\n            |    |  __| |\n            |__| |___|\n          -T_PLAN GAMES-\n------------------------------------------------------------------------\n2019/4/9 V.0.1 First Edition,has 7 lvls. OMG 10+ view \n                        a day!\n2019/4/21 V.0.2 fix some bugs,add a new lvl! 95+ \n                         views\n2019/4/27 V.0.3 add a Function can skip lvls! TOP \n                         LOVED!!!!!!! and 2000+ views!\n2019/4/30 V.0.4 You can skip it on your mobile phone \n                         now!!!!! wow,300+loves and 230+ \n                         favorites! 4400+ views!!!\n2019/5/2 V.Final The FINAL Version,add two new \n                            lvls!!! Also add a new color----purple!\n------------------------------------------------------------------------#game # Art # 100% PEN #ALL #T_PLAN #PLATFORMER #music #I can't writ more!\n#刘知恒\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nn\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\no\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nt\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nh\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\ni\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nn\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\ng\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n.\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nfollow\n\n\n\n\n\n\n\n\n\n@T_PLAN\n\n\n\n\n 