Pen Platformer! | 100% Pen Mobile Friendly Penformer | #All #Games #Trending #Pen # Platformer
@Stage\n\nwhen flag clicked\nswitch backdrop to (my fav art i have ever done! :d v)\nforever\n    set volume to (50) %\n    play sound [Flying High - By GrannyCookies v] until done\nend\n\n@Levels\n\ndefine Instant Write String: (string) at x: (x) y: (y) Thickness: (pensize) Size: (size) r: (r) g: (g) b: (b) Underline? <underline?> Outline? <outline?> r: (r2) g (g2) b (b2)\nif <outline?> then\n    Slow Write String: (string) at x: (x) y: (y) Thickness ((pensize) + (4)) Size: (size) Underline? <underline?>\nend\nSlow Write String: (string) at x: (x) y: (y) Thickness (pensize) Size: (size) Underline? <underline?>\n\ndefine Slow Write String: (string1) at x: (x) y: (y) Thickness (pensize) Size: (size) Underline? <underline?>\nset [letter spacing x v] to [0]\nset [letter spacing y v] to [0]\nset [liststringlen v] to [0]\nset [list_item_counter v] to [2]\nset [string_counter v] to [1]\nset [letterx v] to [3]\nset [lettery v] to [9]\npen up\nset pen color to (#3719d0)\nset [list_counter v] to [0]\nset [stringlen v] to (length of (string1))\nrepeat until <(String_Counter) > (length of (string1))>\n    repeat until <(letter (1) of (item (List_Counter) of [letters v])) = (letter (String_Counter) of (string1))>\n        change [list_counter v] by (1)\n        if <(List_Counter) > (length of [letters v])> then\n            set [list_counter v] to [1]\n        end\n    end\n    change [string_counter v] by (1)\n    set [liststringlen v] to [0]\n    set [list_item_counter v] to [2]\n    set [letterx v] to [3]\n    set [lettery v] to [9]\n    pen up\n    if <(((x) + ((letter spacing X) * (1.5))) + (30)) > [239]> then\n        change [letter spacing y v] by ((size) * (15))\n        set [letter spacing x v] to [0]\n    end\n    go to x: ((x) + ((letter spacing X) * (1.5))) y: ((y) - ((Letter Spacing Y) * (1.5)))\n    set pen size to (pensize)\n    set [liststringlen v] to (length of (item (List_Counter) of [letters v]))\n    repeat until <(List_Item_Counter) = (length of (item (List_Counter) of [letters v]))>\n        set [xchange v] to (join (join (join (join (letter (LetterX) of (item (List_Counter) of [letters v])) (letter ((LetterX) + (1)) of (item (List_Counter) of [letters v]))) (letter ((LetterX) + (2)) of (item (List_Counter) of [letters v]))) (letter ((LetterX) + (3)) of (item (List_Counter) of [letters v]))) (letter ((LetterX) + (4)) of (item (List_Counter) of [letters v])))\n        set [ychange v] to (join (join (join (join (letter (LetterY) of (item (List_Counter) of [letters v])) (letter ((LetterY) + (1)) of (item (List_Counter) of [letters v]))) (letter ((LetterY) + (2)) of (item (List_Counter) of [letters v]))) (letter ((LetterY) + (3)) of (item (List_Counter) of [letters v]))) (letter ((LetterY) + (4)) of (item (List_Counter) of [letters v])))\n        if <(XChange) = [Penup]> then\n            pen up\n            change [letterx v] by (12)\n            change [lettery v] by (12)\n            set [xchange v] to (join (join (join (join (letter (LetterX) of (item (List_Counter) of [letters v])) (letter ((LetterX) + (1)) of (item (List_Counter) of [letters v]))) (letter ((LetterX) + (2)) of (item (List_Counter) of [letters v]))) (letter ((LetterX) + (3)) of (item (List_Counter) of [letters v]))) (letter ((LetterX) + (4)) of (item (List_Counter) of [letters v])))\n            set [ychange v] to (join (join (join (join (letter (LetterY) of (item (List_Counter) of [letters v])) (letter ((LetterY) + (1)) of (item (List_Counter) of [letters v]))) (letter ((LetterY) + (2)) of (item (List_Counter) of [letters v]))) (letter ((LetterY) + (3)) of (item (List_Counter) of [letters v]))) (letter ((LetterY) + (4)) of (item (List_Counter) of [letters v])))\n            set [xchange v] to ((XChange) * (size))\n            set [ychange v] to ((YChange) * (size))\n            go to x: ((x position) + (XChange)) y: ((y position) + (YChange))\n        else\n            pen down\n            set [xchange v] to ((XChange) * (size))\n            set [ychange v] to ((YChange) * (size))\n            go to x: ((x position) + (XChange)) y: ((y position) + (YChange))\n        end\n        change [list_item_counter v] by (12)\n        change [letterx v] by (12)\n        change [lettery v] by (12)\n    end\n    if <underline?> then\n        pen up\n        set pen size to (size)\n        go to x: (((x) + ((letter spacing X) * (1.5))) - (size)) y: (((y) - ((Letter Spacing Y) * (1.5))) - ((size) * (4)))\n        pen down\n        change x by ((10) * (size))\n    end\n    change [letter spacing x v] by ((7) * (size))\nend\n\ndefine Initialize Letters\ndelete (all) of [letters v]\ndelete (all) of [symbols v]\nset [letter spacing x v] to [0]\nset [letter spacing y v] to [0]\nset [liststringlen v] to [0]\nset [list_item_counter v] to [2]\nset [string_counter v] to [1]\nset [letterx v] to [3]\nset [lettery v] to [9]\nadd [A +02.5 +0010 +02.5 -0010 -1.05 +0004 -0003 +0000 ] to [letters v]\nadd [B +0000 +0010 +0004 +0000 +0001 -0001 +0000 -0003 -0001 -0001 -0004 +0000 +0004 +0000 +0001 -0001 +0000 -0003 -0001 -0001 -0004 +0000 ] to [letters v]\nadd [C Penup +0000 +0005 +0000 -0004 +0000 -0001 +0001 +0000 +0008 +0001 +0001 +0004 +0000 ] to [letters v]\nadd [D +0000 +0010 +0004 +0000 +0001 -0001 +0000 -0008 -0001 -0001 -0004 +0000 ] to [letters v]\nadd [E +0005 +0000 -0005 +0000 +0000 +0005 +0005 +0000 -0005 +0000 +0000 +0005 +0005 +0000 ] to [letters v]\nadd [F +0000 +0005 +0004 +0000 -0004 +0000 +0000 +0005 +0005 +0000 ] to [letters v]\nadd [G Penup +0000 +0005 +0009 +0000 +0001 -0004 +0000 -0001 -0001 +0000 -0008 +0001 -0001 +0004 +0000 +0000 +0004 -01.5 +0000 ] to [letters v]\nadd [H +0000 +0010 +0000 -0005 +0005 +0000 +0000 +0005 +0000 -0010 ] to [letters v]\nadd [I +0005 +0000 -02.5 +0000 +0000 +0010 -02.5 +0000 +0005 +0000 ] to [letters v]\nadd [J Penup +0000 +0000 +0003 +0000 -0002 +0001 -0001 +0002 +0000 +0001 +0001 +0000 +0009 +0001 +0000 -0002 +0000 ] to [letters v]\nadd [K +0000 +0005 +0005 -0005 -0005 +0005 +0005 +0005 -0005 -0005 +0000 +0005 ] to [letters v]\nadd [L +0005 +0000 -0005 +0000 +0000 +0010 ] to [letters v]\nadd [M +0000 +0010 +02.5 -0008 +02.5 +0008 +0000 -0010 ] to [letters v]\nadd [N +0000 +0010 +0005 -0010 +0000 +0010 ] to [letters v]\nadd [O Penup +0000 +0000 +0001 +0000 +0008 +0001 +0001 +0003 +0000 +0001 -0001 +0000 -0008 -0001 -0001 -0003 +0000 -0001 +0001 ] to [letters v]\nadd [P +0000 +0010 +0004 +0000 +0001 -0001 +0000 -0002 -0001 -0001 -0004 +0000 ] to [letters v]\nadd [Q Penup +0000 +0000 +0001 +0000 +0008 +0001 +0001 +0003 +0000 +0001 -0001 +0000 -0006 -0003 -0003 -0001 +0000 -0001 +0001 Penup +0000 +0003 +0002 +0002 -0003 ] to [letters v]\nadd [R +0000 +0010 +0004 +0000 +0001 -0001 +0000 -0002 -0001 -0001 -0004 +0000 +0001 +0000 +0004 -0006 ] to [letters v]\nadd [S Penup +0000 +0000 +0001 +0001 -0001 +0003 +0000 +0001 +0001 +0000 +0003 -0001 +0001 -0003 +0000 -0001 +0001 +0000 +0003 +0001 +0001 +0003 +0000 +0001 -0001 ] to [letters v]\nadd [T Penup +0000 +02.5 +0000 +0000 +0010 -02.5 +000  +0005 +0000 ] to [letters v]\nadd [U Penup +0000 +0000 +0010 +0000 -0009 +0001 -0001 +0003 +0000 +0001 +0001 +0000 +0009 ] to [letters v]\nadd [V Penup +0000 +0000 +0010 +02.5 -0010 +02.5 +0010 ] to [letters v]\nadd [W Penup +0000 +0000 +0010 +0001 -0010 +01.5 +0005 +01.5 -0005 +01.5 +0010 ] to [letters v]\nadd [X +0005 +0010 -02.5 -0005 -02.5 +0005 +0005 -0010 ] to [letters v]\nadd [Y Penup +0000 +0000 +0010 +02.5 -0005 +02.5 +0005 -02.5 -0005 +0000 -0005 ] to [letters v]\nadd [Z +0005 +0000 -0005 +0000 +0005 +0010 -0005 +0000 ] to [letters v]\nadd [  Penup +0000 ] to [letters v]\nadd [0 Penup +0000 +0000 +0002 +0000 +0006 +0002 +0002 +0001 +0000 +0002 -0002 +0000 -0006 -0002 -0002 -0001 +0000 -0002 +0002 ] to [letters v]\nadd [1 +0005 +0000 -02.5 +0000 +0000 +0010 -02.5 -02.5 ] to [letters v]\nadd [2 +0005 +0000 -0005 +0000 +0005 +0005 +0000 +0004 -0001 +0001 -0004 +0000 -0001 -0001 +0000 -0001 ] to [letters v]\nadd [3 Penup +0000 +0000 +0001 +0001 -0001 +0003 +0000 +0001 +0001 +0000 +0003 -0001 +0001 -0002 +0000 +0002 +0000 +0001 +0001 +0000 +0003 -0001 +0001 -0003 +0000 -0001 -0001 ] to [letters v]\nadd [4 Penup +0000 +0000 +0010 +0000 -0004 +0005 +0000 -0001 +0000 +0000 -0006 +0000 +0010 ] to [letters v]\nadd [5 Penup +0000 +0000 +0001 +0001 -0001 +0003 +0000 +0001 +0001 +0000 +0004 -0001 +0001 -0003 +0000 -0001 +0001 +0000 +0003 +0005 +0000 ] to [letters v]\nadd [6 Penup +0000 +0005 +0009 -0001 +0001 -0003 +0000 -0001 -0001 +0000 -0008 +0001 -0001 +0003 +0000 +0001 +0001 +0000 +0003 -0001 +0001 -0003 +0000 ] to [letters v]\nadd [7 +0005 +0010 -0005 +0000 ] to [letters v]\nadd [8 Penup +0000 +0000 +0001 +0001 -0001 +0003 +0000 +0001 +0001 +0000 +0003 -0001 +0001 -0003 +0000 -0001 -0001 +0000 -0003 Penup +0000 +0000 +0005 +0001 -0001 +0003 +0000 +0001 +0001 +0000 +0003 -0001 +0001 -0003 +0000 -0001 -0001 +0000 -0003 ] to [letters v]\nadd [9 Penup +0000 +0000 +0001 +0001 -0001 +0003 +0000 +0001 +0001 +0000 +0008 -0001 +0001 -0003 +0000 -0001 -0001 +0000 -0003 +0001 -0001 +03.9 +0000 ] to [letters v]\nadd [+ Penup +0000 +0000 +0005 +0005 +0000 -02.5 +0000 +0000 +02.5 +0000 -0005 ] to [letters v]\nadd [- Penup +0000 +0000 +0005 +0005 +0000 ] to [letters v]\nadd [/ +0005 +0010 ] to [letters v]\nadd [* Penup +0000 +0000 +0009 +0005 -0004 Penup +0000 +0000 +0004 -0005 -0004 Penup +0000 +02.5 +04.5 +0000 -0005 ] to [letters v]\nadd [! Penup +0000 +02.5 +0010 +0000 -0006 Penup +0000 +0000 -0004 +0000 +0000 ] to [letters v]\nadd [@ Penup +0000 +0004 +0000 -0004 +0000 -0001 +0001 +0000 +0008 +0001 +0001 +0003 +0000 +0001 -0001 +0000 -0006 -0003 +0000 +0000 +0004 +0002 +0000 ] to [letters v]\nadd [# Penup +0000 +0000 +0003 +0004 +0000 Penup +0000 +0001 +0004 -0004 +0000 Penup +0000 -0001 -0007 +0002 +0010 Penup +0000 +0003 +0000 -0002 -0010 ] to [letters v]\nadd [$ Penup +0000 +0000 +0002 +0001 -0001 +0003 +0000 +0001 +0001 +0000 +0002 -0001 +0001 -0003 +0000 -0001 +0001 +0000 +0002 +0001 +0001 +0003 +0000 +0001 -0001 Penup +0000 -02.5 +0002 +0000 -0010 ] to [letters v]\nadd [% +0005 +0010 Penup +0000 -0005 -0002 +0000 +0000 Penup +0000 +0005 -0006 ] to [letters v]\nadd [^ Penup +0000 +0000 +0008 +02.5 +0002 +02.5 -0002 ] to [letters v]\nadd [& Penup +0000 +0005 +0003 -0003 -0003 -0001 +0000 -0001 +0001 +0000 +0002 +0005 +0005 +0000 +0001 -0001 +0001 -0003 +0000 -0001 -0001 +0000 -0003 +0005 -0006 ] to [letters v]\nadd [\( Penup +0000 +0003 +0000 -0001 +0001 +0000 +0008 +0001 +0001 ] to [letters v]\nadd [\) Penup +0000 +0002 +0000 +0001 +0001 +0000 +0008 -0001 +0001 ] to [letters v]\nadd [_ +0005 +0000 ] to [letters v]\nadd [= Penup +0000 +0000 +0003 +0005 +0000 Penup +0000 +0000 +0003 -0005 +0000 ] to [letters v]\nadd [. +0000 +0000 ] to [letters v]\nadd [\[ Penup +0000 +0003 +0000 -0001 +0000 +0000 +0010 +0001 +0000 ] to [letters v]\nadd [\] Penup +0000 +0002 +0000 +0001 +0000 +0000 +0010 -0001 +0000 ] to [letters v]\nadd [{ Penup +0000 +0003 +0000 -0001 +0000 +0000 +0004 -0001 +0001 +0001 +0001 +0000 +0004 +0001 +0000 ] to [letters v]\nadd [} Penup +0000 +0002 +0000 +0001 +0000 +0000 +0004 +0001 +0001 -0001 +0001 +0000 +0004 -0001 +0000 ] to [letters v]\nadd [: Penup +0000 +02.5 +0002 +0000 +0000 Penup +0000 +0000 +0005 +0000 +0000 ] to [letters v]\nadd [; Penup +0000 +0002 +0000 +0001 +0002 Penup +0000 +0000 +0005 +0000 +0000 ] to [letters v]\nadd [' Penup +0000 +02.5 +0010 +0000 -0002 ] to [letters v]\nadd [" Penup +0000 +0001 +0010 +0000 -0002 Penup +0000 +0003 +0002 +0000 -0002 ] to [letters v]\nadd [\ Penup +0000 +0005 +0000 -0005 +0010 ] to [letters v]\nadd [| Penup +0000 +02.5 +0000 +0000 +0010 ] to [letters v]\nadd [< Penup +0000 +0005 +0002 -0005 +0003 +0005 +0003 ] to [letters v]\nadd [> Penup +0000 +0000 +0002 +0005 +0003 -0005 +0003 ] to [letters v]\nadd [, Penup +0000 +0002 +0001 -0001 -0002 ] to [letters v]\nadd [? Penup +0000 +0000 +0007 +0000 +0002 +0001 +0001 +0003 +0000 +0001 -0001 +0000 -0002 -0002 -0002 +0000 -0002 Penup +0000 +0000 -0003 +0000 +0000 ] to [letters v]\nadd [~ Penup +0000 +0000 +0004 +0001 +0001 +0001 +0000 +0001 -0001 +0001 +0000 +0001 +0001 ] to [letters v]\n\ndefine Draw triangle at X: (x) Y: (y) Rotation: (rot)\nset pen size to (5)\nset pen color to (#ff0000)\npoint in direction (rot)\npen up\ngo to x: (x) y: (y)\npen down\nmove (20) steps\nturn right (120) degrees\nmove (20) steps\nturn right (120) degrees\nmove (20) steps\npen up\n\nwhen flag clicked\nset [level v] to [1]\nhide\nInitialize Letters\n\nwhen I receive [playerrenderdone v]\nRender (Level)\n\ndefine Render (#level)\npoint in direction (90)\nif <(#level) = [1]> then\n    Draw ground\nend\nif <(#level) = [2]> then\n    Draw ground\n    set pen color to (#ff0000)\n    Draw line from [-149] [-105] to [-20.5] [-105] with size [9]\n    set pen color to (#70d019)\n    Draw line from [-150] [-24] to [-150] [-110] with size [13]\n    go to x: (0) y: (0)\n    Draw line from [-20] [-24] to [-20] [-110] with size [13]\n    go to x: (0) y: (0)\n    Draw triangle at X: (80) Y: (-105) Rotation: (30)\nend\nif <(#level) = [3]> then\n    Draw ground\n    set pen color to (#ff0000)\n    Draw line from [-110] [-105] to [240] [-105] with size [9]\n    set pen color to (#6fd019)\n    Draw line from [-110] [-60] to [-20] [-60] with size [13]\n    Draw line from [70] [] to [165] [] with size [13]\n    Draw triangle at X: (109) Y: (9.3) Rotation: (30)\nend\nif <(#level) = [4]> then\n    Draw ground\n    set pen color to (#6fd019)\n    Draw line from [-94] [-113] to [-94] [12] with size [13]\n    Draw line from [-15] [-29] to [-15] [83] with size [13]\n    set pen size to (9)\n    set pen color to (#ff0000)\n    change x by (-11)\n    change y by (-8)\n    pen down\n    change y by (-100)\n    Draw line from [18] [-103] to [118] [-103] with size [9]\nend\nif <(#level) = [5]> then\n    Draw ground\n    Draw Bouncer At X: [-90] Y: [-102]\n    Draw Bouncer At X: [20] Y: [-102]\n    Draw Bouncer At X: [130] Y: [-102]\n    set pen color to (#6fd019)\n    set pen color to (#b35a2e)\n    Draw line from [-232] [140] to [232] [140] with size [100]\n    set pen color to (#6fd019)\n    Draw line from [-237] [90] to [237] [90] with size [13]\n    Draw line from [-190] [-105] to [-190] [-40] with size [13]\n    Draw triangle at X: [] Y: [82] Rotation: [90]\n    Draw triangle at X: [-24] Y: [82] Rotation: [90]\n    Draw triangle at X: [-48] Y: [82] Rotation: [90]\n    Draw triangle at X: [-72] Y: [82] Rotation: [90]\n    Draw triangle at X: [-96] Y: [82] Rotation: [90]\n    Draw triangle at X: [-120] Y: [82] Rotation: [90]\n    Draw triangle at X: [-144] Y: [82] Rotation: [90]\n    Draw triangle at X: [-164] Y: [82] Rotation: [90]\n    Draw triangle at X: [-188] Y: [82] Rotation: [90]\n    Draw triangle at X: [-212] Y: [82] Rotation: [90]\n    Draw triangle at X: [-236] Y: [82] Rotation: [90]\n    Draw triangle at X: [24] Y: [82] Rotation: [90]\n    Draw triangle at X: [48] Y: [82] Rotation: [90]\n    Draw triangle at X: [72] Y: [82] Rotation: [90]\n    Draw triangle at X: [96] Y: [82] Rotation: [90]\n    Draw triangle at X: [120] Y: [82] Rotation: [90]\n    Draw triangle at X: [144] Y: [82] Rotation: [90]\n    Draw triangle at X: [164] Y: [82] Rotation: [90]\n    Draw triangle at X: [188] Y: [82] Rotation: [90]\n    Draw triangle at X: [212] Y: [82] Rotation: [90]\nend\nif <(#level) = [6]> then\n    Draw ground\n    set pen color to (#b35a2e)\n    Draw line from [-240] [40] to [-150] [270] with size [100]\n    Draw line from [-240349] [40] to [-240] [240] with size [100]\n    Draw line from [-120] [0] to [-120] [50] with size [30]\n    Draw line from [-240] [80] to [-240] [130] with size [100]\n    set pen color to (#6fd019)\n    Draw line from [-100] [240] to [-100] [0] with size [13]\n    Draw line from [-240] [-10] to [-100] [0] with size [13]\n    set pen color to (#ff0000)\n    Draw line from [16] [-40] to [16] [40] with size [13]\n    set pen color to (#b35a2e)\n    Draw line from [240] [-80] to [60] [-270] with size [100]\n    Draw line from [120] [-40] to [30] [-50] with size [30]\n    Draw line from [240] [-270] to [180] [-130] with size [100]\n    set pen color to (#6fd019)\n    Draw line from [] [-113.5] to [15] [-30] with size [13]\n    Draw line from [240] [-30] to [15] [-30] with size [13]\n    Draw triangle at X: [125] Y: [-20] Rotation: [30]\nend\nif <(#level) = [7]> then\n    Draw ground\n    set pen color to (#ff0000)\n    Draw line from [-150] [-101] to [-40] [-101] with size [13]\n    Draw line from [150] [-101] to [40] [-101] with size [13]\n    Draw Bouncer At X: [-20] Y: [-100]\nend\nif <(#level) = [8]> then\n    Draw ground\n    Draw triangle at X: [-150] Y: [-105] Rotation: [30]\n    Draw triangle at X: [-120] Y: [-105] Rotation: [30]\n    Draw triangle at X: [-90] Y: [-105] Rotation: [30]\n    Draw triangle at X: [-30] Y: [-105] Rotation: [30]\n    Draw triangle at X: [0] Y: [-105] Rotation: [30]\n    Draw triangle at X: [30] Y: [-105] Rotation: [30]\n    Draw triangle at X: [90] Y: [-105] Rotation: [30]\n    Draw triangle at X: [120] Y: [-105] Rotation: [30]\n    Draw triangle at X: [150] Y: [-105] Rotation: [30]\nend\nif <(#level) = [9]> then\n    Draw ground\n    Draw Bouncer At X: [-160] Y: [-100]\n    set pen color to (#6fd019)\n    Draw line from [-100] [50] to [] [50] with size [13]\n    Draw triangle at X: [-60] Y: [59] Rotation: [30]\n    set pen color to (#ff0000)\n    Draw line from [-100] [-101] to [150] [-101] with size [13]\nend\nif <(#level) = [10]> then\n    Draw ground\n    Instant Write String: [Congrats! You Finished!] at x: (-200) y: (100) Thickness: (5) Size: (1.7) r: (1) g: (1) b: (1) Underline? <> Outline? <> r: (1) g (1) b (1)\n    Instant Write String: [Like and Favorite For More!] at x: (-170) y: (30) Thickness: (4) Size: (1.2) r: (1) g: (1) b: (1) Underline? <> Outline? <> r: (1) g (1) b (1)\nend\n\ndefine Draw ground\nset pen color to (#b35a2e)\nDraw line from [-232] [-167] to [232] [-167] with size [100]\nset pen color to (#6fd019)\nDraw line from [-237] [-114] to [237] [-114] with size [13]\n\ndefine Draw line from (x1) (y1) to (x2) (y2) with size (pen size)\nset pen size to (pen size)\npen up\nset x to (x1)\nset y to (y1)\npen down\nset x to (x2)\nset y to (y2)\npen up\n\nforever\n\ndefine Draw Bouncer At X: (x) Y: (y)\nset pen color to (#f5e000)\nset x to (x)\nset y to (y)\npen down\nmove (40) steps\npen up\n\nset [☁ has timmccool played? v] to [False]\n\n@Player\n\nwhen flag clicked\nset size to (100) %\nswitch costume to (costume1 v)\nset [xvel v] to [0]\nset [yvel v] to [0]\nforever\n    clear graphic effects\n    set [xvel v] to ((xvel) * (0.85))\n    change x by (xvel)\n    if <touching color (#6fd019)?> then\n        change y by (-2)\n        if <touching color (#6fd019)?> then\n            change y by (1)\n            if <touching color (#6fd019)?> then\n                change y by (1)\n                if <touching color (#6fd019)?> then\n                    change y by (1)\n                    if <touching color (#6fd019)?> then\n                        change y by (1)\n                        if <touching color (#6fd019)?> then\n                            change y by (1)\n                            if <touching color (#6fd019)?> then\n                                change y by (-5)\n                                change x by ((-1) * (xvel))\n                                if <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<<mouse down?> and <(mouse x) > (x position)>> or <<mouse down?> and <(mouse x) < (x position)>>>> and <not <(xvel) = [0]>>> then\n                                    set [yvel v] to [8]\n                                    set [xvel v] to (((xvel) / ([abs v] of (xvel) )) * (-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 (2)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        change [xvel v] by (-1)\n    end\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n        change [xvel v] by (1)\n    end\n    change y by (-3)\n    if <touching color (#6fd019)?> then\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [yvel v] to [7.5]\n        end\n    end\n    change y by (3)\n    if <(yvel) > [-15]> then\n        change [yvel v] by (-0.5)\n    end\n    change y by (-2)\n    if <not <touching color (#6fd019)?>> then\n        change y by (-1)\n        if <not <touching color (#6fd019)?>> then\n            change y by (-1)\n            if <not <touching color (#6fd019)?>> then\n                change y by (-1)\n                if <not <touching color (#6fd019)?>> then\n                    change y by (-1)\n                    if <not <touching color (#6fd019)?>> then\n                        change y by (-1)\n                        if <not <touching color (#6fd019)?>> 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 (yvel)\n    if <touching color (#6fd019)?> then\n        change y by (-2)\n        if <touching color (#6fd019)?> then\n            change y by ((-1) * (yvel))\n            set [yvel v] to [-3]\n        end\n        change y by (2)\n    end\nend\n\nwhen flag clicked\nhide\ngo to x: (-216) y: (-98)\nforever\n    PlayerRender\nend\n\nwhen flag clicked\nforever\n    if <not <(Level) = [10]>> then\n        wait until <(x position) > [228]>\n        broadcast (Next v) and wait\n        wait until <not <(x position) > [228]>>\n    end\nend\n\ndefine PlayerRender\nif <touching color (#ff0000)?> then\n    go to x: (-216) y: (-98)\n    set [xvel v] to [0]\n    set [yvel v] to [0]\nend\nif <touching color (#f5e000)?> then\n    set [yvel v] to [13]\nend\nerase all\nbroadcast (PlayerRenderDone v)\nset pen color to (#000000)\nset pen size to (16)\npen down\npen up\n\nwhen I receive [next v]\nchange [level v] by (1)\n\nwhen I receive [next v]\ngo to x: (-216) y: (-98)\n\nwhen flag clicked\nforever\n    if <(username) = [TimMcCool]> then\n        set [☁ has timmccool played? v] to [True]\n    end\nend\n\n@Joystick sprite\n\ndefine Joystick Max distance: (m)\ngo to x: (Center X) y: (Center Y)\npoint towards (mouse-pointer v)\nif <(distance to [mouse-pointer v]) > (m)> then\n    set [distance v] to (m)\nelse\n    set [distance v] to (distance to [mouse-pointer v])\nend\nmove (Distance) steps\nset [move input x v] to ((x position) - (Center X))\nset [move input y v] to ((y position) - (Center Y))\n\nwhen I receive [delete joystick clone v]\ndelete this clone\n\nwhen I start as a clone\nif <(ID) = [2]> then\n    forever\n        go to x: (((Center X) + ([x position v] of [joystick sprite v])) / (2)) y: (((Center Y) + ([y position v] of [joystick sprite v])) / (2))\n        go to [front v] layer\n    end\nend\n\nif <(mouse x) < [0]> then\n\nwhen flag clicked\nset [ghost v] effect to (50)\nset [id v] to [0]\nforever\n    switch costume to (2 v)\n    if <mouse down?> then\n        show\n        go to (mouse-pointer v)\n        set [center x v] to (mouse x)\n        set [center y v] to (mouse y)\n        set [id v] to [1]\n        create clone of (_myself_ v)\n        set [id v] to [2]\n        create clone of (_myself_ v)\n        set [id v] to [2]\n        create clone of (_myself_ v)\n        set [id v] to [0]\n        repeat until <not <mouse down?>>\n            switch costume to (1 v)\n            Joystick Max distance: [200]\n            go to [front v] layer\n        end\n        broadcast (Delete joystick clone v)\n    else\n        hide\n        set [move input x v] to [0]\n        set [move input y v] to [0]\n    end\nend\n\n@Thumbnail\n\nwhen flag clicked\nhide\n\n@Blank\n\n@Blank2\n\n@Blank3\n\n@Blank4\n\n@Blank5\n\n@Blank6\n\n
@Blations Liked :D\n100 likes lol. ( 100th was @PinkBrick123 )\nAfter A Long Wait...\nFINALLY PEN PLATFORMER!\n[MOBILE FRIENDLY]\nSong by @GrannyCookies\nEngine By @RishRage\nWatch The Trailer Here: https://scratch.mit.edu/projects/560613187/\nRemember To Like and Favorite!\nFollow Me For More!\nThis Wasn't Originally, But Since @TimMcCool Did A Game Contest With The Theme of Pen! \nThe Game Contest Was Celebrating 20,000 Followers!\nGo Follow Him He Is Awesome!\nReport Any Bugs To Me!\nThanks!\nAnd Keep Scratching!