Easy-Going:  A Mobile Friendly Pen Platformer #games#all

Instructions: If you want to comment something nice go to my profile\nDONT COMMENT HARD OR ANYTHING ABOUT THE NAME PLZ\nArrow Keys, WAD, or mouse to move.\nPress v to skip, you can skip 1 level\nGreen is ground, red is bad, blue is bouncy, orange is a through platform (jump under it to get to its top), purple portals teleports you to the pink portal, yellow is the exit portal.\n

@Stage\n\nwhen flag clicked\nforever\n    play sound [TheFatRat - Time Lapse v] until done\nend\n\n@blank\n\n@Pen\n\nwhen flag clicked\nset [level v] to [1]\nset [x v] to [-220]\nset [y v] to [-160]\nerase all\nforever\n    erase all\n    DrawLevels\nend\n\ndefine Draw Line (x) (y) to (x2) (y2) (ground?) (red?) (bouncy?) (through block?)\nset pen size to (15)\npen up\nif <(ground?) = [1]> then\n    set pen color to (#3de836)\nend\nif <(red?) = [1]> then\n    set pen color to (#ff0000)\nend\nif <(bouncy?) = [1]> then\n    set pen color to (#3300ff)\nend\nif <(through block?) = [1]> then\n    set pen color to (#d27f00)\nend\ngo to x: (x) y: (y)\npen down\ngo to x: (x2) y: (y2)\npen up\n\ndefine Draw Portal (x) (y)\nset pen size to (35)\npen up\nset [target x v] to (x)\nset [target y v] to (((6) * ([sin v] of ((timer) * (50)) )) + (y))\nset pen color to (#ffe52c)\ngo to x: (Target X) y: (Target Y)\npen down\n\ndefine DrawLevels\nif <(Level) = [1]> then\n    Lvl 1\nelse\n    if <(Level) = [2]> then\n        Lvl 2\n    else\n        if <(Level) = [3]> then\n            Lvl 3\n        else\n            if <(Level) = [4]> then\n                Lvl 4\n            else\n                if <(Level) = [5]> then\n                    Lvl 5\n                else\n                    if <(Level) = [6]> then\n                        Lvl 6\n                    else\n                        if <(Level) = [7]> then\n                            Lvl 7\n                        else\n                            broadcast (end v)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nset [x v] to [-220]\nset [y v] to [-160]\nset pen size to (56)\nset pen color to (#61320f)\npen up\ngo to x: (-240) y: (-152)\npen down\ngo to x: (240) y: (-152)\npen up\nset pen size to (25)\nDraw Dot [-220] [-150] [30]\nDraw Dot [-170] [-170] [20]\nDraw Dot [-120] [-140] [25]\nDraw Dot [-60] [-160] [15]\nDraw Dot [-10] [-155] [35]\nDraw Dot [40] [-148] [27]\nDraw Dot [100] [-161] [30]\nDraw Dot [170] [-150] [20]\nDraw Dot [215] [-165] [35]\nset pen color to (#77b300)\nset pen size to (15)\ngo to x: (-240) y: (-135)\npen down\ngo to x: (240) y: (-135)\npen up\npen up\nset pen size to (15)\nset pen color to (#3de836)\ngo to x: (-240) y: (-125)\npen down\ngo to x: (240) y: (-125)\npen up\nbroadcast (player draw v)\n\ndefine Lvl 1\nDraw Line [30] [125] to [2] [125] [] [1] [] []\nDraw Line [-90] [-117] to [160] [-117] [] [1] [] []\nDraw Line [-100] [-60] to [-80] [-60] [1] [] [] []\nDraw Line [40] [-20] to [60] [-20] [1] [] [] []\nDraw Line [140] [70] to [140] [-50] [1] [] [] []\nDraw Line [60] [120] to [0] [120] [1] [] [] []\nDraw Line [-140] [100] to [-160] [100] [1] [] [] []\nDraw Portal [-215] [150]\n\ndefine Lvl 2\nDraw Line [82] [5] to [110] [5] [] [1] [] []\nDraw Line [-210] [-13] to [40] [-13] [] [1] [] []\nDraw Line [-200] [-120] to [-160] [-120] [] [] [1] []\nDraw Line [-110] [-120] to [-70] [-120] [] [] [1] []\nDraw Line [-20] [-120] to [30] [-120] [] [] [1] []\nDraw Line [-210] [0] to [40] [0] [1] [] [] []\nDraw Line [80] [-40] to [130] [-40] [] [] [] [1]\nDraw Line [80] [0] to [130] [0] [] [] [] [1]\nDraw Line [-60] [70] to [-60] [70] [1] [] [] []\nDraw Line [-150] [130] to [-150] [130] [1] [] [] []\nDraw Portal [-200] [155]\n\ndefine Draw Dot (x) (y) (size)\npen up\nset pen color to (#a75307)\nset pen size to (size)\ngo to x: (x) y: (y)\npen down\npen up\n\ndefine Lvl 3\nDraw Line [-190] [125] to [-190] [125] [] [1] [] []\nDraw Line [83] [155] to [99] [155] [] [1] [] []\nDraw Line [131] [-5] to [150] [-5] [] [1] [] []\nDraw Line [-165] [-117] to [-15] [-117] [] [1] [] []\nDraw Line [-210] [-117] to [-170] [-117] [] [] [1] []\nDraw Line [160] [-60] to [200] [-60] [] [] [] [1]\nDraw Line [130] [-10] to [170] [-10] [1] [] [] []\nDraw Line [60] [50] to [100] [50] [] [] [1] []\nDraw Line [60] [150] to [100] [150] [] [] [] [1]\nDraw Line [-50] [110] to [-20] [110] [1] [] [] []\nDraw Line [-220] [120] to [-160] [120] [1] [] [] []\nDraw Portal [-220] [160]\n\ndefine Lvl 4\nDraw Line [15] [52] to [15] [110] [] [1] [] []\nDraw Line [120] [10] to [130] [10] [] [] [1] []\nDraw Line [160] [10] to [180] [10] [] [] [1] []\nDraw Line [-230] [0] to [10] [0] [] [1] [] []\nDraw Line [100] [0] to [230] [0] [] [] [] []\nDraw Line [-230] [150] to [-100] [150] [1] [] [] []\nDraw Line [-20] [100] to [-10] [100] [] [] [1] []\nDraw Line [160] [50] to [10] [50] [1] [] [] []\nDraw Line [220] [130] to [160] [130] [1] [] [] []\nDraw Line [10] [0] to [10] [-120] [1] [] [] []\nDraw Line [100] [0] to [100] [-70] [1] [] [] []\nDraw Line [100] [-70] to [210] [-70] [1] [] [] []\nDraw Line [125] [-120] to [140] [-120] [] [1] [] []\nDraw Line [190] [-120] to [205] [-120] [] [] [] []\nDraw Portal [200] [-38]\n\ndefine Draw Teleport Portals (x) (y) and (x2) (y2)\nset pen size to (35)\npen up\nset pen color to (#c900f2)\nset [portalx1 v] to (x)\nset [portaly1 v] to (y)\ngo to x: (PortalX1) y: (PortalY1)\npen down\npen up\nset pen color to (#f200c5)\nset [portalx2 v] to (x2)\nset [portaly2 v] to (y2)\ngo to x: (PortalX2) y: (PortalY2)\npen down\npen up\n\ndefine Lvl 5\nDraw Line [-140] [95] to [-100] [95] [] [1] [] []\nDraw Line [5] [10] to [5] [95] [] [1] [] []\nDraw Line [65] [180] to [65] [85] [] [1] [] []\nDraw Line [135] [5] to [135] [100] [] [1] [] []\nDraw Line [205] [180] to [205] [85] [] [1] [] []\nDraw Line [-220] [25] to [-165] [25] [] [1] [] []\nDraw Line [-165] [25] to [-100] [25] [] [] [1] []\nDraw Line [-160] [-45] to [-100] [-45] [] [1] [] []\nDraw Line [-30] [-113] to [80] [-113] [] [1] [] []\nDraw Line [-220] [160] to [-220] [-100] [] [1] [] []\nDraw Line [-100] [-50] to [-100] [130] [] [1] [] []\nDraw Line [80] [-120] to [80] [-70] [1] [] [] []\nDraw Line [80] [-70] to [230] [-70] [1] [] [] []\nDraw Line [-50] [0] to [230] [0] [1] [] [] []\nDraw Line [-100] [-50] to [-220] [-50] [] [] [] [1]\nDraw Line [-100] [20] to [-220] [20] [] [] [] [1]\nDraw Line [-100] [90] to [-220] [90] [] [] [] [1]\nDraw Line [0] [0] to [0] [100] [1] [] [] []\nDraw Line [70] [180] to [70] [80] [1] [] [] []\nDraw Line [140] [0] to [140] [100] [1] [] [] []\nDraw Line [210] [180] to [210] [80] [1] [] [] []\nDraw Teleport Portals [200] [-100] and [200] [-30]\nDraw Portal [190] [35]\n\ndefine Lvl 6\nDraw Line [10] [-120] to [230] [-120] [] [1] [] []\nDraw Line [-160] [115] to [-120] [115] [] [1] [] []\nDraw Line [-130] [5] to [-70] [5] [] [1] [] []\nDraw Line [-135] [77] to [-135] [33] [] [1] [] []\nDraw Line [-228] [27] to [-228] [-50] [] [1] [] []\nDraw Line [-228] [125] to [-228] [145] [] [1] [] []\nDraw Line [240] [180] to [240] [-30] [] [1] [] []\nDraw Line [220] [75] to [240] [75] [] [1] [] []\nDraw Line [-50] [145] to [-50] [-60] [] [1] [] []\nDraw Line [-165] [-120] to [-140] [-120] [] [1] [] []\nDraw Line [120] [-30] to [140] [-30] [1] [] [] []\nDraw Line [-85] [-120] to [-60] [-120] [] [1] [] []\nDraw Line [60] [130] to [90] [130] [] [] [1] []\nDraw Line [185] [-70] to [210] [-70] [] [] [1] []\nDraw Line [-230] [-65] to [10] [-65] [1] [] [] []\nDraw Line [10] [-65] to [10] [-120] [1] [] [] []\nDraw Line [120] [-30] to [120] [-30] [] [1] [] []\nDraw Line [-235] [180] to [-235] [-60] [1] [] [] []\nDraw Line [160] [180] to [160] [30] [1] [] [] []\nDraw Line [-210] [0] to [-70] [0] [] [] [] [1]\nDraw Line [-130] [80] to [-130] [30] [1] [] [] []\nDraw Line [-130] [80] to [-110] [80] [1] [] [] []\nDraw Line [-210] [110] to [-70] [110] [] [] [] [1]\nDraw Teleport Portals [-13] [-97] and [-195] [-35]\nDraw Portal [200] [150]\n\ndefine Lvl 7\nDraw Line [-130] [-120] to [-110] [-120] [] [1] [] []\nDraw Line [130] [-120] to [110] [-120] [] [1] [] []\nDraw Line [0] [-120] to [20] [-120] [] [1] [] []\nDraw Line [140] [125] to [165] [125] [] [1] [] []\nDraw Line [-75] [125] to [-75] [100] [] [1] [] []\nDraw Line [-5] [70] to [-5] [63] [] [1] [] []\nDraw Line [-75] [-60] to [-75] [10] [] [1] [] []\nDraw Line [-85] [125] to [-85] [-60] [] [1] [] []\nDraw Line [30] [-60] to [80] [-60] [] [] [1] []\nDraw Line [0] [-60] to [30] [-60] [] [1] [] []\nDraw Line [5] [105] to [5] [-60] [] [1] [] []\nDraw Line [85] [-60] to [85] [105] [] [1] [] []\nDraw Line [-220] [5] to [-155] [5] [] [1] [] []\nDraw Line [-160] [-60] to [-80] [-60] [] [] [1] []\nDraw Line [-230] [-65] to [230] [-65] [1] [] [] []\nDraw Line [-80] [-60] to [-80] [130] [1] [] [] []\nDraw Line [80] [-60] to [80] [110] [1] [] [] []\nDraw Line [-170] [90] to [-130] [90] [1] [] [] []\nDraw Line [-170] [90] to [-170] [90] [] [1] [] []\nDraw Line [-130] [90] to [-130] [90] [] [1] [] []\nDraw Line [-230] [0] to [-90] [0] [] [] [] [1]\nDraw Line [-200] [50] to [-200] [50] [1] [] [] []\nDraw Line [0] [-65] to [0] [110] [1] [] [] []\nDraw Line [200] [120] to [110] [120] [1] [] [] []\nDraw Teleport Portals [-80] [160] and [-40] [-50]\nDraw New Portals [220] [-20] and [220] [-100]\nDraw Portal [-200] [-95]\n\ndefine Draw New Portals (x1) (y1) and (x2) (y2)\nset pen size to (35)\npen up\nset pen color to (#d200ff)\nset [portalx3 v] to (x1)\nset [portaly3 v] to (y1)\ngo to x: (PortalX3) y: (PortalY3)\npen down\npen up\nset pen color to (#ff00ce)\nset [portalx4 v] to (x2)\nset [portaly4 v] to (y2)\ngo to x: (PortalX4) y: (PortalY4)\npen down\npen up\n\nwhen I receive [end v]\nstop [other scripts in sprite v]\n\n@Player\n\nwhen flag clicked\nset [timer v] to [0]\nset [level v] to [1]\nReset\nforever\n    set [ghost v] effect to (100)\n    if <(physics?) = [0]> then\n        Physics\n    end\n    if <not <<key (v v) pressed?> and <(v presses) < [2]>>> then\n        create clone of (_myself_ v)\n    end\nend\n\ndefine Physics\nif <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n    change [x v] by (1)\nend\nif <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n    change [x v] by (-1)\nend\nset [x v] to ((x) * (0.9))\nchange x by (x)\nif <<touching color (#3ce836)?> or <touching color (#d27f00)?>> then\n    change y by (1)\n    if <<touching color (#3ce836)?> or <touching color (#d27f00)?>> then\n        change y by (1)\n        if <<touching color (#3ce836)?> or <touching color (#d27f00)?>> then\n            change y by (1)\n            if <<touching color (#3ce836)?> or <touching color (#d27f00)?>> then\n                change y by (1)\n                if <<touching color (#3ce836)?> or <touching color (#d27f00)?>> then\n                    change y by (1)\n                    if <<touching color (#3ce836)?> or <touching color (#d27f00)?>> then\n                        change y by (1)\n                        if <touching color (#3ce836)?> then\n                            change x by ((x) * (-1))\n                            change y by (-6)\n                            if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > ((y position) + (30))>>>> then\n                                if <(x) > [0]> then\n                                    change [x v] by (-10)\n                                else\n                                    change [x v] by (10)\n                                end\n                                set [y v] to [11]\n                            else\n                                set [x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange [y v] by (-1)\nchange y by (y)\nif <<touching color (#3ce836)?> or <touching color (#d27f00)?>> then\n    if <(y) > [0]> then\n        if <touching color (#3ce836)?> then\n            change y by ((y) * (-1))\n            set [y v] to [0]\n        else\n            set [y v] to [0]\n        end\n    else\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\nend\nchange y by (-1)\nif <<<touching color (#3ce836)?> or <touching color (#d27f00)?>> and <not <touching color (#ff0000)?>>> then\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > ((y position) + (30))>>>> then\n        set [y v] to [13]\n    end\nend\nchange y by (1)\nTest collide\n\ndefine Reset\nshow\nset size to (200) %\ngo to x: (item (Level) of [spawn-x v]) y: (item (Level) of [spawn-y v])\nset rotation style [left-right v]\nset pen color to (#000000)\nset pen size to (13)\nset pen (transparency v) to (0)\nset [x v] to [0]\nset [y v] to [0]\nset [physics? v] to [0]\ngo to [front v] layer\n\nwhen I receive [die v]\nstart sound [Bite v]\nset [physics? v] to [1]\nrepeat (10)\n    change pen (transparency v) by (10)\nend\nReset\n\nwhen I receive [win v]\nset [physics? v] to [1]\nglide (0.3) secs to x: (Target X) y: (Target Y)\nstart sound [Collect v]\nrepeat (10)\n    change pen (transparency v) by (10)\n    go to x: (Target X) y: (Target Y)\nend\nchange [level v] by (1)\nwait (0.1) seconds\nReset\n\nwhen I receive [player draw v]\nif <not <<key (v v) pressed?> and <(v presses) < [2]>>> then\n    pen down\nend\n\nwhen I receive [portal v]\nset [physics? v] to [1]\nglide (0.3) secs to x: (PortalX1) y: (PortalY1)\nstart sound [Teleport2 v]\nrepeat (10)\n    change pen (transparency v) by (10)\nend\nwait (0.3) seconds\ngo to x: (PortalX2) y: (PortalY2)\nrepeat (10)\n    change pen (transparency v) by (-10)\nend\nset [x v] to [0]\nset [y v] to [0]\nset [physics? v] to [0]\n\nwhen I receive [portal2 v]\nset [physics? v] to [1]\nglide (0.3) secs to x: (PortalX3) y: (PortalY3)\nstart sound [Teleport2 v]\nrepeat (10)\n    change pen (transparency v) by (10)\nend\nwait (0.3) seconds\ngo to x: (PortalX4) y: (PortalY4)\nrepeat (10)\n    change pen (transparency v) by (-10)\nend\nset [x v] to [0]\nset [y v] to [0]\nset [physics? v] to [0]\n\nwhen I receive [end v]\nstop [other scripts in sprite v]\nplay sound [Win v] until done\n\nwhen flag clicked\nset volume to (120) %\nset [v presses v] to [0]\nforever\n    set [framet v] to (timer)\n    change [timer v] by (timer)\n    reset timer\n    set [fps v] to ((1) / (framet))\nend\n\nwhen I start as a clone\nrepeat (5)\n    change pen size by (-1)\n    change pen (transparency v) by (10)\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    if <key (v v) pressed?> then\n        change [v presses v] by (1)\n        if <(v presses) < [2]> then\n            Reset\n            change [level v] by (1)\n            pen up\n            set pen (transparency v) to (100)\n            Reset\n        end\n    end\nend\n\ndefine Test collide\nif <touching color (#ff0000)?> then\n    set [physics? v] to [1]\n    broadcast (die v)\nend\nif <touching color (#ffe42c)?> then\n    broadcast (win v)\n    stop [this script v]\nend\nif <touching color (#3300ff)?> then\n    start sound [Drum Boing v]\n    set [y v] to [20]\nend\nif <touching color (#c800f1)?> then\n    broadcast (portal v)\n    stop [this script v]\nend\nif <touching color (#d100ff)?> then\n    broadcast (portal2 v)\n    stop [this script v]\nend\nif <touching color (#ff0000)?> then\n    set [physics? v] to [1]\n    broadcast (die v)\nend\nif <touching color (#ffe42c)?> then\n    broadcast (win v)\n    stop [this script v]\nend\nif <touching color (#3300ff)?> then\n    start sound [Drum Boing v]\n    set [y v] to [20]\nend\nif <touching color (#c800f1)?> then\n    broadcast (portal v)\n    stop [this script v]\nend\nif <touching color (#d100ff)?> then\n    broadcast (portal2 v)\n    stop [this script v]\nend\n\n@Thumbnail\n\nwhen flag clicked\nshow\nforever\n    go to x: (36) y: (28)\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\n\n@Text\n\ndefine write (txt) at (x) (y) RGB (r) (g) (b)\nset pen color to ((((round (r)) * (65536)) + ((round (g)) * (256))) + (round (b)))\nset pen size to (2)\nset [super lite: ax v] to ([floor v] of ((x) - ((12) / (2))) )\nset [super lite: ci v] to [1]\nrepeat (length of (txt))\n    if <not <(letter (super lite: ci) of (txt)) = (letter ((super lite: ci) - (1)) of (txt))>> then\n        get char (letter (super lite: ci) of (txt))\n    end\n    if <(super lite: c) > [-1]> then\n        set [super lite: vx v] to ((super lite: ax) + (((super lite: ci) - (1)) * (12)))\n        set [super lite: vy v] to ((y) + ((12) / (2)))\n        set [super lite: i v] to [1]\n        repeat (7)\n            repeat (5)\n                if <<([abs v] of (super lite: vx) ) < [240]> and <([abs v] of (super lite: vy) ) < [180]>> then\n                    if <(letter (super lite: i) of (item ((super lite: c) + (1)) of [super lite: data v])) = [1]> then\n                        go to x: (super lite: vx) y: (super lite: vy)\n                        pen down\n                        pen up\n                    end\n                end\n                change [super lite: i v] by (1)\n                change [super lite: vx v] by (2)\n            end\n            set [super lite: vx v] to ((super lite: ax) + (((super lite: ci) - (1)) * (12)))\n            set [super lite: vy v] to ((super lite: vy) - (2))\n        end\n    end\n    change [super lite: ci v] by (1)\nend\n\ndefine get char (c)\nif <(c) = [ ]> then\n    set [super lite: c v] to [-1]\nelse\n    if <[super lite: data v] contains (c)?> then\n        set [super lite: c v] to [1]\n        repeat until <<(item (super lite: c) of [super lite: data v]) = (c)> or <(super lite: c) > ((length of [super lite: data v]) - (1))>>\n            change [super lite: c v] by (1)\n        end\n        if <(super lite: c) > ((length of [super lite: data v]) - (1))> then\n            set [super lite: c v] to [1]\n        end\n    else\n        set [super lite: c v] to [1]\n    end\nend\n\nwhen I receive [end v]\nwrite [congratulations!] at (-75) (150) RGB (0) (255) (0)\nwrite [remember to] at (-35) (120) RGB (0) (255) (0)\nwrite [love] at (-100) (90) RGB (255) (0) (0)\nwrite [fave] at (0) (90) RGB (255) (255) (0)\nwrite [follow] at (100) (90) RGB (25) (198) (255)\n\n