Quick a 100% pen platformer #pen #platformer #game #all
@Stage\n\nwhen flag clicked\nplay sound [Super World v] until done\n\n@Levels\n\nwhen I receive [start v]\npoint in direction (90)\nRender ground\n\ndefine Render ground\nif <(Level) = [1]> then\n    pen up\n    set pen color to (#b35a2e)\n    Draw line from [-232] [-167] to [232] [-167] size [100]\n    set pen color to (#71d019)\n    Draw line from [-237] [-114] to [237] [-114] size [13]\n    set pen color to (#82f11c)\n    Draw line from [-237] [-105] to [237] [-105] size [13]\nelse\n    if <(Level) = [2]> then\n        pen up\n        set pen color to (#b35a2e)\n        Draw line from [-232] [-167] to [232] [-167] size [100]\n        set pen color to (#71d019)\n        Draw line from [-237] [-114] to [237] [-114] size [13]\n        set pen color to (#82f11c)\n        Draw line from [-237] [-105] to [237] [-105] size [13]\n        set pen color to (#ff0000)\n        Draw line from [-30] [-93] to [30] [-93] size [10]\n    else\n        if <(Level) = [3]> then\n            pen up\n            set pen color to (#b35a2e)\n            Draw line from [-232] [-167] to [232] [-167] size [100]\n            set pen color to (#71d019)\n            Draw line from [-237] [-114] to [237] [-114] size [13]\n            set pen color to (#82f11c)\n            Draw line from [-237] [-105] to [237] [-105] size [13]\n            set pen color to (#ff0000)\n            Draw line from [-20] [-93] to [120] [-93] size [10]\n            set pen color to (#b3b3b3)\n            Draw line from [-55] [-93] to [-55] [-75] size [10]\n            set pen color to (#ffd000)\n            Draw line from [-70] [-60] to [-40] [-83] size [12]\n        else\n            if <(Level) = [4]> then\n                pen up\n                set pen color to (#ff0000)\n                Draw line from [102] [-97] to [102] [54] size [10]\n                set pen color to (#b35a2e)\n                Draw line from [120] [-93] to [120] [50] size [14]\n                set pen color to (#71d019)\n                Draw line from [130] [-97] to [130] [54] size [8]\n                set pen color to (#82f11c)\n                Draw line from [135] [-97] to [135] [54] size [8]\n                set pen color to (#71d019)\n                Draw line from [116] [-97] to [116] [54] size [8]\n                set pen color to (#82f11c)\n                Draw line from [110] [-97] to [110] [54] size [8]\n                set pen color to (#b35a2e)\n                Draw line from [-232] [-167] to [232] [-167] size [100]\n                set pen color to (#71d019)\n                Draw line from [-237] [-114] to [237] [-114] size [13]\n                set pen color to (#82f11c)\n                Draw line from [-237] [-105] to [237] [-105] size [13]\n                set pen color to (#ff0000)\n                Draw line from [-100] [-94] to [100] [-94] size [10]\n                set pen color to (#b3b3b3)\n                Draw line from [-130] [-93] to [-130] [-75] size [10]\n                set pen color to (#ffd000)\n                Draw line from [-145] [-60] to [-115] [-83] size [12]\n            else\n                if <(Level) = [4]> then\n                    pen up\n                    set pen color to (#ff0000)\n                    Draw line from [102] [-97] to [102] [54] size [10]\n                    set pen color to (#b35a2e)\n                    Draw line from [120] [-93] to [120] [50] size [14]\n                    set pen color to (#71d019)\n                    Draw line from [130] [-97] to [130] [54] size [8]\n                    set pen color to (#82f11c)\n                    Draw line from [135] [-97] to [135] [54] size [8]\n                    set pen color to (#71d019)\n                    Draw line from [116] [-97] to [116] [54] size [8]\n                    set pen color to (#82f11c)\n                    Draw line from [110] [-97] to [110] [54] size [8]\n                    set pen color to (#b35a2e)\n                    Draw line from [-232] [-167] to [232] [-167] size [100]\n                    set pen color to (#71d019)\n                    Draw line from [-237] [-114] to [237] [-114] size [13]\n                    set pen color to (#82f11c)\n                    Draw line from [-237] [-105] to [237] [-105] size [13]\n                    set pen color to (#ff0000)\n                    Draw line from [-100] [-94] to [100] [-94] size [10]\n                    set pen color to (#b3b3b3)\n                    Draw line from [-130] [-93] to [-130] [-75] size [10]\n                    set pen color to (#ffd000)\n                    Draw line from [-145] [-60] to [-115] [-83] size [12]\n                else\n                    if <(Level) = [5]> then\n                        pen up\n                        set pen color to (#b3b3b3)\n                        Draw line from [65] [25] to [65] [50] size [10]\n                        set pen color to (#ffd000)\n                        Draw line from [50] [50] to [80] [50] size [12]\n                        set pen color to (#ff0000)\n                        Draw line from [-100] [-94] to [1000] [-94] size [10]\n                        Draw line from [-1000] [200] to [1000] [200] size [10]\n                        Draw line from [135] [-40] to [1000] [-40] size [10]\n                        set pen color to (#82f11c)\n                        Draw line from [] [-20] to [-70] [-20] size [15]\n                        Draw line from [-107] [-80] to [-107] [-100] size [7]\n                        Draw line from [50] [15] to [100] [30] size [15]\n                        set pen color to (#b35a2e)\n                        Draw line from [-232] [-167] to [232] [-167] size [100]\n                        set pen color to (#71d019)\n                        Draw line from [-237] [-114] to [237] [-114] size [13]\n                        set pen color to (#82f11c)\n                        Draw line from [-237] [-105] to [237] [-105] size [13]\n                        set pen color to (#82f11c)\n                        Draw line from [50] [-50] to [1000] [-50] size [15]\n                    else\n                        if <(Level) = [6]> then\n                            pen up\n                            set pen color to (#ff0000)\n                            Draw line from [-100] [-94] to [1000] [-94] size [10]\n                            set pen color to (#82f11c)\n                            Draw line from [-110] [-97] to [-110] [54] size [15]\n                            set pen color to (#82f11c)\n                            Draw line from [0] [-97] to [0] [54] size [15]\n                            Draw line from [50] [-97] to [50] [130] size [15]\n                            set pen color to (#b35a2e)\n                            Draw line from [-232] [-167] to [232] [-167] size [100]\n                            set pen color to (#71d019)\n                            Draw line from [-237] [-114] to [237] [-114] size [13]\n                            set pen color to (#82f11c)\n                            Draw line from [-237] [-105] to [237] [-105] size [13]\n                        else\n                            if <(Level) = [7]> then\n                                pen up\n                                set pen color to (#ff0000)\n                                Draw line from [-1000] [10] to [-140] [010] size [13]\n                                set pen color to (#b3b3b3)\n                                Draw line from [10] [-65] to [10] [-98] size [10]\n                                set pen color to (#ffd000)\n                                Draw line from [-10] [-65] to [30] [-65] size [12]\n                                set pen color to (#b35a2e)\n                                Draw line from [-232] [-167] to [232] [-167] size [100]\n                                set pen color to (#71d019)\n                                Draw line from [-237] [-114] to [237] [-114] size [13]\n                                set pen color to (#82f11c)\n                                Draw line from [-237] [-105] to [237] [-105] size [13]\n                                set pen color to (#ff0000)\n                                Draw line from [135] [-93] to [1000] [-93] size [10]\n                                set pen color to (#82f11c)\n                                Draw line from [-135] [100] to [-135] [-45] size [13]\n                                set pen color to (#ff0000)\n                                Draw line from [-60] [0] to [40] [0] size [10]\n                                set pen color to (#82f11c)\n                                Draw line from [-1000] [0] to [-135] [0] size [13]\n                            else\n                                pen up\n                                set pen color to (#b35a2e)\n                                Draw line from [-232] [-167] to [232] [-167] size [100]\n                                set pen color to (#71d019)\n                                Draw line from [-237] [-114] to [237] [-114] size [13]\n                                set pen color to (#82f11c)\n                                Draw line from [-237] [-105] to [237] [-105] size [13]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine Draw line from (x) (y) to (x) (y) size (s)\nset pen size to (s)\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x) y: (y)\n\nif  then\nend\nif  then\nend\n\nset pen color to (#b3b3b3)\n\nset pen color to (#b35a2e)\n\nif <(Level) = [3]> then\n    pen up\n    set pen color to (#b35a2e)\n    Draw line from [-232] [-167] to [232] [-167] size [100]\n    set pen color to (#71d019)\n    Draw line from [-237] [-114] to [237] [-114] size [13]\n    set pen color to (#82f11c)\n    Draw line from [-237] [-105] to [237] [-105] size [13]\n    set pen color to (#ff0000)\n    Draw line from [-30] [-93] to [30] [-93] size [10]\n    Draw line from [-1000] [10] to [1000] [10] size [10]\n    set pen color to (#4e4e4e)\n    Draw line from [-1000] [115] to [1000] [115] size [200]\nelse\nend\n\n@Player\n\nwhen flag clicked\nset size to (100) %\nswitch costume to (costume1 v)\nset [xval v] to [0]\nset [yval v] to [0]\nforever\n    clear graphic effects\n    set [xval v] to ((xval) * (0.85))\n    change x by (xval)\n    if <touching color (#81f01c)?> then\n        change y by (-2)\n        if <touching color (#81f01c)?> then\n            change y by (1)\n            if <touching color (#81f01c)?> then\n                change y by (1)\n                if <touching color (#81f01c)?> then\n                    change y by (1)\n                    if <touching color (#81f01c)?> then\n                        change y by (1)\n                        if <touching color (#81f01c)?> then\n                            change y by (1)\n                            if <touching color (#81f01c)?> then\n                                change y by (-5)\n                                change x by ((-1) * (xval))\n                                if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> and <not <(xval) = [0]>>> then\n                                    set [yval v] to [8]\n                                    set [xval v] to (((xval) / ([abs v] of (xval) )) * (-10))\n                                else\n                                    set [xval v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change y by (2)\n    end\n    if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n        change [xval v] by (-1)\n    end\n    if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n        change [xval v] by (1)\n    end\n    change y by (-3)\n    if <touching color (#81f01c)?> then\n        if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n            set [yval v] to [7.1]\n        end\n    end\n    change y by (3)\n    if <(yval) > [-15]> then\n        change [yval v] by (-0.5)\n    end\n    change y by (-2)\n    if <not <touching color (#81f01c)?>> then\n        change y by (-1)\n        if <not <touching color (#81f01c)?>> then\n            change y by (-1)\n            if <not <touching color (#81f01c)?>> then\n                change y by (-1)\n                if <not <touching color (#81f01c)?>> then\n                    change y by (-1)\n                    if <not <touching color (#81f01c)?>> then\n                        change y by (-1)\n                        if <not <touching color (#81f01c)?>> then\n                            change y by (5)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (2)\n    change y by (yval)\n    if <touching color (#81f01c)?> then\n        change y by (-2)\n        if <touching color (#81f01c)?> then\n            change y by ((-1) * (yval))\n            set [yval v] to [-3]\n        end\n        change y by (2)\n    end\nend\n\nwhen flag clicked\nset [animation size v] to [5]\ngo to x: (-216) y: (-20)\nshow\nforever\n    go to [front v] layer\n    Render Player\nend\n\ndefine Render Player\nif <touching color (#ff0000)?> then\n    go to x: (-216) y: (-20)\n    set [xval v] to [0]\n    set [yval v] to [0]\n    broadcast (Reset v)\nend\nif <touching color (#ffd000)?> then\n    set [yval v] to [13]\n    set [xval v] to [11]\nend\nhide\nerase all\nset pen color to (#000000)\nset pen size to (31)\npen down\npen up\nif <not <(Animation size) < [1.1]>> then\n    change [animation size v] by (-0.1)\nelse\n    set [animation size v] to [5]\nend\nset pen size to (Animation size)\nset pen color to (#ffffff)\npen down\npen up\nbroadcast (Start v)\n\nwhen I receive [start v]\nif <<(x position) > [230]> or <(x position) = [240]>> then\n    change [level v] by (1)\n    go to x: (-216) y: (-20)\n    if <(Level) = [7]> then\n        broadcast (Jump v)\n    end\nend\n\nwhen flag clicked\nset [level v] to [1]\n\n@PTE\n\ndefine Render letter (letter) Position? (x) (y) Size (s)\ngo to x: (x) y: (y)\nset pen size to ((4) * (s))\nif <[a] = (letter)> then\n    pen down\n    go to x: (((5) * (s)) + (x position)) y: (((20) * (s)) + (y position))\n    go to x: (((5) * (s)) + (x position)) y: ((y position) - ((20) * (s)))\n    go to x: (((-2) * (s)) + (x position)) y: (((7) * (s)) + (y position))\n    change x by ((-5) * (s))\n    pen up\nend\nif <[b] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    change y by ((-20) * (s))\n    change x by ((10) * (s))\n    change y by ((9) * (s))\n    change x by ((-10) * (s))\n    change y by ((2) * (s))\n    change x by ((7) * (s))\n    change y by ((9) * (s))\n    change x by ((-7) * (s))\n    pen up\nend\nif <[c] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    change y by ((-20) * (s))\n    change x by ((10) * (s))\n    change x by ((-10) * (s))\n    change y by ((20) * (s))\n    change x by ((10) * (s))\n    pen up\nend\nif <[d] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    change x by ((8) * (s))\n    go to x: (((2) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    change y by ((-10) * (s))\n    go to x: (((-2) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    change x by ((-8) * (s))\n    pen up\nend\nif <[e] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    change y by ((-20) * (s))\n    change x by ((10) * (s))\n    change x by ((-10) * (s))\n    change y by ((10) * (s))\n    change x by ((10) * (s))\n    change x by ((-10) * (s))\n    change y by ((10) * (s))\n    change x by ((10) * (s))\n    change x by ((-10) * (s))\n    pen up\nend\nif <[f] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    change y by ((-20) * (s))\n    change y by ((10) * (s))\n    change x by ((10) * (s))\n    change x by ((-10) * (s))\n    change y by ((10) * (s))\n    change x by ((10) * (s))\n    change x by ((-10) * (s))\n    pen up\nend\nif <[g] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    change y by ((-20) * (s))\n    change x by ((7) * (s))\n    change y by ((5) * (s))\n    change x by ((-2) * (s))\n    change x by ((4) * (s))\n    change x by ((-2) * (s))\n    change y by ((-5) * (s))\n    change x by ((-7) * (s))\n    change y by ((20) * (s))\n    change x by ((7) * (s))\n    pen up\nend\nif <[h] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    change y by ((-10) * (s))\n    change x by ((10) * (s))\n    change y by ((10) * (s))\n    change y by ((-20) * (s))\n    pen up\nend\nif <[i] = (letter)> then\n    change x by ((5) * (s))\n    pen down\n    change y by ((20) * (s))\n    change x by ((5) * (s))\n    change x by ((-10) * (s))\n    change x by ((5) * (s))\n    change y by ((-20) * (s))\n    change x by ((5) * (s))\n    change x by ((-10) * (s))\n    change x by ((5) * (s))\n    pen up\nend\nif <[j] = (letter)> then\n    pen down\n    change y by ((10) * (s))\n    change y by ((-10) * (s))\n    change x by ((5) * (s))\n    change y by ((20) * (s))\n    change x by ((-5) * (s))\n    change x by ((10) * (s))\n    pen up\nend\nif <[k] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    change y by ((-10) * (s))\n    go to x: (((10) * (s)) + (x position)) y: (((-10) * (s)) + (y position))\n    go to x: (((-10) * (s)) + (x position)) y: (((10) * (s)) + (y position))\n    go to x: (((10) * (s)) + (x position)) y: (((10) * (s)) + (y position))\n    pen up\nend\nif <[l] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    change y by ((-20) * (s))\n    change x by ((10) * (s))\n    pen up\nend\nif <[m] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    go to x: (((5) * (s)) + (x position)) y: (((-10) * (s)) + (y position))\n    go to x: (((5) * (s)) + (x position)) y: (((10) * (s)) + (y position))\n    change y by ((-20) * (s))\n    pen up\nend\nif <[n] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    go to x: (((10) * (s)) + (x position)) y: (((-20) * (s)) + (y position))\n    change y by ((20) * (s))\n    pen up\nend\nif <[o] = (letter)> then\n    change y by ((5) * (s))\n    pen down\n    change y by ((10) * (s))\n    go to x: (((2) * (s)) + (x position)) y: (((5) * (s)) + (y position))\n    change x by ((6) * (s))\n    go to x: (((2) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    change y by ((-10) * (s))\n    go to x: (((-2) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    change x by ((-6) * (s))\n    go to x: (((-2) * (s)) + (x position)) y: (((5) * (s)) + (y position))\n    pen up\nend\nif <[p] = (letter)> then\n    pen down\n    change y by ((15) * (s))\n    go to x: (((2) * (s)) + (x position)) y: (((5) * (s)) + (y position))\n    change x by ((6) * (s))\n    go to x: (((2) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    change y by ((-1) * (s))\n    go to x: (((-2) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    change x by ((-6) * (s))\n    go to x: (((-2) * (s)) + (x position)) y: (((5) * (s)) + (y position))\n    pen up\nend\nif <[q] = (letter)> then\n    change y by ((5) * (s))\n    pen down\n    change y by ((10) * (s))\n    go to x: ((2) + (x position)) y: (((5) * (s)) + (y position))\n    change x by ((6) * (s))\n    go to x: ((2) + (x position)) y: (((-5) * (s)) + (y position))\n    change y by ((-10) * (s))\n    go to x: ((-2) + (x position)) y: ((-5) + (y position))\n    change x by ((-6) * (s))\n    go to x: ((-2) + (x position)) y: (((5) * (s)) + (y position))\n    pen up\n    change x by ((6) * (s))\n    pen down\n    go to x: (((5) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    pen up\nend\nif <[r] = (letter)> then\n    pen down\n    change y by ((15) * (s))\n    go to x: (((2) * (s)) + (x position)) y: (((5) * (s)) + (y position))\n    change x by ((6) * (s))\n    go to x: (((2) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    change y by ((-1) * (s))\n    go to x: (((-2) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    change x by ((-6) * (s))\n    go to x: (((-2) * (s)) + (x position)) y: (((5) * (s)) + (y position))\n    change y by ((-3) * (s))\n    go to x: (((10) * (s)) + (x position)) y: (((-11) * (s)) + (y position))\n    pen up\nend\nif <[s] = (letter)> then\n    pen down\n    change y by ((2) * (s))\n    change y by ((-2) * (s))\n    change x by ((10) * (s))\n    change y by ((10) * (s))\n    change x by ((-10) * (s))\n    change y by ((10) * (s))\n    change x by ((10) * (s))\n    change y by ((-2) * (s))\n    change y by ((2) * (s))\n    pen up\nend\nif <[t] = (letter)> then\n    change x by ((5) * (s))\n    pen down\n    change y by ((20) * (s))\n    change x by ((5) * (s))\n    change x by ((-10) * (s))\n    pen up\nend\nif <[u] = (letter)> then\n    change y by ((5) * (s))\n    pen down\n    change y by ((15) * (s))\n    pen up\n    change x by ((10) * (s))\n    pen down\n    change y by ((-15) * (s))\n    go to x: (((-2) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    change x by ((-6) * (s))\n    go to x: (((-2) * (s)) + (x position)) y: (((5) * (s)) + (y position))\n    pen up\n    change x by ((10) * (s))\n    pen down\n    change y by ((-5) * (s))\n    pen up\nend\nif <[v] = (letter)> then\n    change y by ((20) * (s))\n    pen down\n    go to x: (((5) * (s)) + (x position)) y: (((-20) * (s)) + (y position))\n    go to x: (((5) * (s)) + (x position)) y: (((20) * (s)) + (y position))\n    pen up\nend\nif <[w] = (letter)> then\n    change y by ((20) * (s))\n    pen down\n    go to x: (((2.5) * (s)) + (x position)) y: (((-20) * (s)) + (y position))\n    go to x: (((2.5) * (s)) + (x position)) y: (((20) * (s)) + (y position))\n    go to x: (((2.5) * (s)) + (x position)) y: (((-20) * (s)) + (y position))\n    go to x: (((2.5) * (s)) + (x position)) y: (((20) * (s)) + (y position))\n    pen up\nend\nif <[x] = (letter)> then\n    change y by ((20) * (s))\n    pen down\n    go to x: (((10) * (s)) + (x position)) y: (((-20) * (s)) + (y position))\n    pen up\n    change x by ((-10) * (s))\n    pen down\n    go to x: (((10) * (s)) + (x position)) y: (((20) * (s)) + (y position))\n    pen up\nend\nif <[y] = (letter)> then\n    change x by ((5) * (s))\n    pen down\n    change y by ((10) * (s))\n    go to x: (((5) * (s)) + (x position)) y: (((10) * (s)) + (y position))\n    go to x: (((-5) * (s)) + (x position)) y: (((-10) * (s)) + (y position))\n    go to x: (((-5) * (s)) + (x position)) y: (((10) * (s)) + (y position))\n    pen up\nend\nif <[z] = (letter)> then\n    pen down\n    change x by ((10) * (s))\n    go to x: (((-10) * (s)) + (x position)) y: (((20) * (s)) + (y position))\n    change x by ((10) * (s))\n    pen up\nend\nif <[0] = (letter)> then\n    pen down\n    change y by ((20) * (s))\n    change x by ((10) * (s))\n    change y by ((-20) * (s))\n    change x by ((-10) * (s))\n    pen up\nend\nif <[1] = (letter)> then\n    change x by ((5) * (s))\n    pen down\n    change y by ((20) * (s))\n    go to x: (((-5) * (s)) + (x position)) y: (((-5) * (s)) + (y position))\n    pen up\nend\nif <[2] = (letter)> then\n    pen down\n    change x by ((10) * (s))\n    change x by ((-10) * (s))\n    change y by ((10) * (s))\n    change x by ((10) * (s))\n    change y by ((10) * (s))\n    change x by ((-10) * (s))\n    pen up\nend\nif <[3] = (letter)> then\n    pen down\n    change x by ((10) * (s))\n    change y by ((10) * (s))\n    change x by ((-10) * (s))\n    change x by ((10) * (s))\n    change y by ((10) * (s))\n    change x by ((-10) * (s))\n    pen up\nend\nif <[4] = (letter)> then\n    change x by ((10) * (s))\n    pen down\n    change y by ((10) * (s))\n    change x by ((-10) * (s))\n    change y by ((10) * (s))\n    change y by ((-10) * (s))\n    change x by ((10) * (s))\n    change y by ((10) * (s))\n    pen up\nend\nif <[5] = (letter)> then\n    pen down\n    change x by ((10) * (s))\n    change y by ((10) * (s))\n    change x by ((-10) * (s))\n    change y by ((10) * (s))\n    change x by ((10) * (s))\n    pen up\nend\nif <[6] = (letter)> then\n    pen down\n    change x by ((10) * (s))\n    change y by ((10) * (s))\n    change x by ((-10) * (s))\n    change y by ((-10) * (s))\n    change y by ((20) * (s))\n    pen up\nend\nif <[7] = (letter)> then\n    change y by ((20) * (s))\n    pen down\n    change x by ((10) * (s))\n    change y by ((-20) * (s))\n    pen up\nend\nif <[8] = (letter)> then\n    pen down\n    change x by ((10) * (s))\n    change y by ((10) * (s))\n    change x by ((-10) * (s))\n    change y by ((-10) * (s))\n    change y by ((20) * (s))\n    change x by ((10) * (s))\n    change y by ((-10) * (s))\n    pen up\nend\nif <[9] = (letter)> then\n    change x by ((10) * (s))\n    pen down\n    change y by ((20) * (s))\n    change x by ((-10) * (s))\n    change y by ((-10) * (s))\n    change x by ((10) * (s))\n    pen up\nend\n\ndefine Word (word) Position? (x) (y) size: (s)\nset [start x v] to (x)\nset [start y v] to (y)\nset [letter v] to [0]\nrepeat (length of (word))\n    change [letter v] by (1)\n    Render letter (letter (Letter) of (word)) Position? (Start x) (Start y) Size (s)\n    change [start x v] by ((15) * (s))\nend\n\nwhen flag clicked\nreset timer\nforever\n    set [time v] to (round (timer))\n    if <(Level) = [1]> then\n        set pen color to (#70d019)\n        Word [welcome to qiuck a 100 pen ] Position? [-195] [145] size: [1]\n        Word [platformer] Position? [-75] [111] size: [1]\n    else\n        if <(Level) = [2]> then\n            set pen color to (#ff0000)\n            Word [Stay away from red] Position? [-135] [145] size: [1]\n        else\n            if <(Level) = [3]> then\n                set pen color to (#ffd000)\n                Word [Yellow makes you bounce] Position? [-170] [145] size: [1]\n            else\n                if <(Level) = [4]> then\n                    set pen color to (#616161)\n                    Word [Comen quick the time is running] Position? [-226] [145] size: [1]\n                else\n                    if <(Level) = [5]> then\n                        set pen color to (#b35a2e)\n                        Word [This is very easy] Position? [-140] [145] size: [1]\n                    else\n                        if <(Level) = [6]> then\n                            set pen color to (#ff4141)\n                            Word [Some easy parkour] Position? [-140] [147] size: [1]\n                        else\n                            if <(Level) = [7]> then\n                                set pen color to (#ff1212)\n                                Word [Stay away from the lava bot] Position? [-200] [140] size: [1]\n                            else\n                                set pen color to (#ffd000)\n                                Word [Yay you did it] Position? [-115] [140] size: [1]\n                                Word (join (join [Your time ] (Time)) [ Seconds]) Position? [-145] [100] size: [1]\n                                Word [Fav] Position? [-40] [0] size: [1]\n                                set pen color to (#ff0000)\n                                Word [Love] Position? [-120] [0] size: [1]\n                                set pen color to (#167ddd)\n                                Word [Follow] Position? [18] [0] size: [1]\n                                if <(Time) < (☁ HIGH SCORE)> then\n                                    set [☁ high score v] to (Time)\n                                end\n                                reset timer\n                                stop [all v]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@Ai\n\nwhen flag clicked\nset [enemyx v] to [216]\nset [enemyy v] to [0]\ngo to x: (216) y: (-88)\n\ndefine Render Ai\nset pen color to (#ff0000)\nset pen size to (20)\npen down\npen up\nset pen size to (Size)\nset pen color to (#ffffff)\npen down\npen up\nif <not <(Size) < [1.1]>> then\n    change [size v] by (-0.1)\nelse\n    set [size v] to [5]\nend\n\nif <touching color (#ffd000)?> then\n    change [enemyx v] by (13)\n    set y to (13)\nend\n\nwhen I receive [reset v]\nset [enemyx v] to [216]\nset [enemyy v] to [0]\ngo to x: (216) y: (-88)\n\nwhen I receive [jump v]\nif <(Level) = [7]> then\n    repeat until <not <(Level) = [7]>>\n        Render Ai\n        follow\n    end\nend\n\nchange y by (-3)\nchange y by (3)\n\ndefine follow\nif <touching color (#ffd000)?> then\n    set [enemyy v] to [14]\nend\nif <([x position v] of [player v]) < (x position)> then\n    change [enemyx v] by (-0.2)\nend\nif <([x position v] of [player v]) > ((x position) - (10))> then\n    change [enemyx v] by (0.2)\nend\nset [enemyx v] to ((Enemyx) * (0.9))\nchange x by (Enemyx)\nif <touching color (#81f01c)?> then\n    change y by (1)\nend\nif <touching color (#81f01c)?> then\n    change y by (1)\nend\nif <touching color (#81f01c)?> then\n    change y by (1)\nend\nif <touching color (#81f01c)?> then\n    change y by (1)\nend\nif <touching color (#81f01c)?> then\n    change y by (5)\n    change x by ((Enemyx) * (-1))\n    if <(y position) < ([y position v] of [player v])> then\n        set [enemyy v] to [10]\n        if <([abs v] of (x) ) = (x)> then\n            set [enemyx v] to [-10]\n        else\n            set [enemyx v] to [10]\n        end\n    else\n        set [enemyx v] to [0]\n    end\nend\nchange y by (-1)\nif <touching color (#81f01c)?> then\n    change y by ((Enemyy) - ((Enemyy) * (2)))\nend\nif <<(y position) < ([y position v] of [player v])> and <touching color (#81f01c)?>> then\n    change y by (14)\n    set [enemyy v] to [14]\nend\nchange y by (1)\nchange x by (Enemyx)\nchange y by (Enemyy)\n\n@TN\n\nwhen flag clicked\nhide\n\n
Welcome to Quick a 100% pen platformer!\n\nThank you so much for 500 views!\n\nIt's not very big as this is my first pen game :D\n\nINSTRUCTIONS - \n1) Arrow keys to move!\n2) Stay away from lava!\n3) Yellow makes you bounce!\n4) Stay away from the lava bot!\n5) Do it as fast as possible! :D \n\nCan you beat the high score?\n\nLove Fav and follow for more!\n