80% pen platformer! (mobile friendly!)
@Stage\n\nwhen flag clicked\nforever\n    play sound [Hyper Potions & Nokae - Expedition \[Monstercat Release\] v] until done\nend\n\n@Pen\n\nwhen I receive [next level v]\nerase all\nrender\n\nchange [level v] by (1)\n\ndefine line (x) (y) (x2) (y2) (platformer color)\npen up\ngo to x: (x) y: (y)\nif <(platformer color) = [green]> then\n    set pen color to (#00f828)\nend\nif <(platformer color) = [Light Blue]> then\n    set pen color to (#3deaff)\nend\nif <(platformer color) = [Red]> then\n    set pen color to (#ec1c2c)\nend\nif <(platformer color) = [W]> then\n    set pen color to (#00f828)\nend\nif <(platformer color) = [dirt]> then\n    set pen color to (#f88400)\nend\nif <(platformer color) = [white]> then\n    set pen color to (#f8f8f8)\nend\nif <(platformer color) = [blue]> then\n    set pen color to (#008cf8)\nend\nif <(platformer color) = [yellow]> then\n    set pen color to (#f8d600)\nend\nif <(platformer color) = [Purple]> then\n    set pen color to (#a100f8)\nend\npen down\ngo to x: (x2) y: (y2)\n\ndefine render\nset pen size to (10)\nif <(level) = [1]> then\n    set pen size to (10000)\n    line (-240) (-200) (240) (-200) [light blue]\n    set pen size to (10)\n    line (-240) (-150) (240) (-150) [green]\n    set pen size to (60)\n    line (-240) (-200) (240) (-200) [dirt]\n    set pen size to (10)\n    set pen size to (30)\n    line (60) (100) (190) (100) [white]\n    set pen size to (30)\n    line (80) (120) (200) (120) [white]\n    set pen size to (30)\n    line (-90) (100) (0) (100) [white]\n    set pen size to (30)\n    line (-75) (120) (10) (120) [white]\n    set pen size to (30)\n    line (-230) (100) (-150) (100) [white]\n    set pen size to (30)\n    line (-220) (120) (-140) (120) [white]\n    set pen size to (30)\nend\nif <(level) = [2]> then\n    set pen size to (10000)\n    line (-240) (-200) (240) (-200) [light blue]\n    set pen size to (10)\n    line (-240) (-150) (240) (-150) [green]\n    set pen size to (60)\n    line (-240) (-200) (240) (-200) [dirt]\n    set pen size to (10)\n    line (0) (-150) (0) (0) [W]\n    set pen size to (30)\n    line (60) (100) (190) (100) [white]\n    set pen size to (30)\n    line (80) (120) (200) (120) [white]\n    set pen size to (30)\n    line (-90) (100) (0) (100) [white]\n    set pen size to (30)\n    line (-75) (120) (10) (120) [white]\n    set pen size to (30)\n    line (-230) (100) (-150) (100) [white]\n    set pen size to (30)\n    line (-220) (120) (-140) (120) [white]\nend\nif <(level) = [3]> then\n    set pen size to (10000)\n    line (-240) (-200) (240) (-200) [light blue]\n    set pen size to (10)\n    line (-240) (-150) (240) (-150) [green]\n    set pen size to (60)\n    line (-240) (-200) (240) (-200) [dirt]\n    set pen size to (10)\n    line (100) (-150) (100) (0) [W]\n    set pen size to (10)\n    line (-100) (-150) (-100) (0) [W]\n    set pen size to (30)\n    line (60) (100) (190) (100) [white]\n    set pen size to (30)\n    line (80) (120) (200) (120) [white]\n    set pen size to (30)\n    line (-90) (100) (0) (100) [white]\n    set pen size to (30)\n    line (-75) (120) (10) (120) [white]\n    set pen size to (30)\n    line (-230) (100) (-150) (100) [white]\n    set pen size to (30)\n    line (-220) (120) (-140) (120) [white]\nend\nif <(level) = [4]> then\n    set pen size to (10000)\n    line (-240) (-200) (240) (-200) [light blue]\n    set pen size to (10)\n    line (-240) (-150) (240) (-150) [green]\n    set pen size to (60)\n    line (-240) (-200) (240) (-200) [dirt]\n    set pen size to (30)\n    line (60) (100) (190) (100) [white]\n    set pen size to (30)\n    line (80) (120) (200) (120) [white]\n    set pen size to (30)\n    line (-90) (100) (0) (100) [white]\n    set pen size to (30)\n    line (-75) (120) (10) (120) [white]\n    set pen size to (30)\n    line (-230) (100) (-150) (100) [white]\n    set pen size to (30)\n    line (-220) (120) (-140) (120) [white]\n    set pen size to (10)\n    line (30) (-145) (-30) (-145) [Red]\nend\nif <(level) = [5]> then\n    basic things in platformer\n    set pen size to (10)\n    line (90) (-145) (-90) (-145) [Red]\nend\nif <(level) = [6]> then\n    erase all\n    basic things in platformer\n    set pen size to (10)\n    line (90) (-145) (-90) (-145) [Red]\n    line (-300) (-20) (150) (-20) [green]\n    line (250) (110) (235) (-145) [green]\n    line (90) (-15) (-90) (-15) [Red]\n    line (300) (120) (-150) (120) [green]\n    line (-250) (200) (-250) (-145) [green]\nend\nif <(level) = [7]> then\n    erase all\n    basic things in platformer\n    set pen size to (10)\n    line (30) (-145) (-30) (-145) [blue]\nend\nif <(level) = [7]> then\n    erase all\n    basic things in platformer\n    set pen size to (10)\n    line (30) (-145) (-30) (-145) [blue]\nend\nif <(level) = [8]> then\n    erase all\n    basic things in platformer\n    set pen size to (10)\n    line (-10) (-145) (40) (-145) [blue]\n    line (50) (-145) (50) (90) [green]\n    line (50) (90) (300) (90) [green]\nend\nif <(level) = [9]> then\n    erase all\n    basic things in platformer\n    set pen size to (10)\n    line (-10) (-145) (40) (-145) [blue]\n    line (-140) (-145) (-90) (-145) [blue]\n    line (120) (-145) (170) (-145) [blue]\n    set pen size to (300)\n    line (-300) (300) (300) (300) [red]\nend\nif <(level) = [10]> then\n    erase all\n    basic things in platformer\n    set pen size to (10)\n    line (90) (-145) (140) (-145) [blue]\n    line (-140) (-145) (-90) (-145) [red]\n    line (150) (-145) (150) (100) [green]\n    line (150) (100) (300) (100) [green]\nend\nif <(level) = [11]> then\n    erase all\n    basic things in platformer\n    set pen size to (10)\n    line (300) (-145) (300) (100) [green]\n    line (180) (-145) (230) (-145) [blue]\n    line (140) (0) (-300) (0) [green]\n    line (-40) (5) (40) (5) [red]\n    line (300) (100) (-145) (100) [green]\n    line (-40) (-145) (40) (-145) [red]\nend\nif <(level) = [12]> then\n    erase all\n    basic things in platformer\n    set pen size to (60)\n    line (-40) (-115) (40) (-115) [yellow]\nend\nif <(level) = [13]> then\n    erase all\n    basic things in platformer\n    set pen size to (60)\n    line (-120) (-115) (-40) (-115) [yellow]\n    set pen size to (20)\n    line (20) (-145) (100) (-145) [red]\nend\nif <(level) = [14]> then\n    erase all\n    basic things in platformer\n    set pen size to (60)\n    line (-120) (-115) (-40) (-115) [yellow]\n    set pen size to (20)\n    line (20) (-145) (100) (-145) [red]\n    set pen size to (10)\n    line (180) (-145) (230) (-145) [blue]\n    line (300) (-145) (300) (100) [green]\n    line (140) (0) (-300) (0) [green]\n    line (300) (100) (-145) (100) [green]\n    line (-40) (5) (40) (5) [red]\nend\nif <(level) = [15]> then\n    erase all\n    basic things in platformer\n    set pen size to (60)\n    line (0) (-120) (0) (300) [Purple]\n    set pen size to (10)\n    line (300) (300) (-300) (300) [red]\nend\nif <(level) = [16]> then\n    erase all\n    basic things in platformer\n    set pen size to (60)\n    line (0) (-120) (0) (300) [Purple]\n    line (-120) (-120) (-120) (300) [Purple]\n    line (120) (-120) (120) (300) [Purple]\n    set pen size to (10)\n    line (300) (300) (-300) (300) [red]\nend\nif <(level) = [17]> then\n    erase all\n    basic things in platformer\n    set pen size to (450)\n    line (-300) (300) (300) (300) [purple]\n    set pen size to (10)\n    line (300) (300) (-300) (300) [red]\nend\nif <(level) = [17]> then\n    erase all\n    basic things in platformer\n    set pen size to (450)\n    line (-300) (300) (300) (300) [purple]\n    set pen size to (10)\n    line (300) (300) (-300) (300) [red]\nend\nif <(level) = [18]> then\n    erase all\n    basic things in platformer\n    set pen size to (60)\n    line (-120) (-115) (-40) (-115) [yellow]\n    line (40) (-120) (40) (300) [Purple]\n    set pen size to (10)\n    line (300) (300) (-300) (300) [red]\n    line (300) (-300) (300) (50) [red]\n    line (150) (-145) (230) (-145) [blue]\nend\nif <(level) = [19]> then\n    erase all\n    basic things in platformer\n    set pen size to (60)\n    line (-120) (-115) (-40) (-115) [yellow]\n    line (120) (-120) (120) (300) [Purple]\n    set pen size to (10)\n    line (300) (-300) (300) (50) [red]\n    line (-130) (-145) (230) (-145) [red]\n    set pen size to (10)\n    line (300) (300) (-300) (300) [red]\nend\nif <(level) = [20]> then\n    erase all\n    basic things in platformer\n    set pen size to (10)\n    line (300) (-300) (300) (300) [green]\n    line (-130) (-145) (230) (-145) [blue]\nend\n\n\n\nwhen flag clicked\nset [level v] to [1]\nerase all\nrender\n\nbroadcast (next level v)\n\nset pen size to (30)\n\nset pen size to (10)\nline (100) (-150) (100) (0) [W]\nset pen size to (10)\nline (-100) (-150) (-100) (0) [W]\n\ndefine pen type: (bright) (saturation ) (transparency  )\nset pen (brightness v) to (bright)\nset pen (saturation v) to (transparency  )\nset pen (transparency v) to (saturation )\n\nforever\nend\n\ndefine basic things in platformer\nset pen size to (10000)\nline (-240) (-200) (240) (-200) [light blue]\nset pen size to (10)\nline (-240) (-150) (240) (-150) [green]\nset pen size to (60)\nline (-240) (-200) (240) (-200) [dirt]\nset pen size to (30)\nline (60) (100) (190) (100) [white]\nset pen size to (30)\nline (80) (120) (200) (120) [white]\nset pen size to (30)\nline (-90) (100) (0) (100) [white]\nset pen size to (30)\nline (-75) (120) (10) (120) [white]\nset pen size to (30)\nline (-230) (100) (-150) (100) [white]\nset pen size to (30)\nline (-220) (120) (-140) (120) [white]\n\nline (90) (-145) (-90) (-145) [blue]\n\nline (0) (-145) (300) (145) [green]\n\nerase all\n\nline (50) (-145) (50) (90) [green]\nline (50) (90) (300) (90) [green]\n\nline (-140) (-145) (-90) (-145) [blue]\nline (120) (-145) (170) (-145) [blue]\nset pen size to (300)\n\nset [level v] to [8]\nrender\n\nline (-10) (-145) (40) (-145) [blue]\n\nline (150) (-145) (150) (100) [green]\nline (150) (100) (300) (100) [green]\n\nset [level v] to [14]\n\nline (180) (-145) (230) (-145) [blue]\n\nline (300) (100) (-145) (100) [green]\nline (-40) (-145) (40) (-145) [red]\n\nline (140) (0) (-300) (0) [green]\n\nline (300) (-300) (300) (300) [green]\nline (-130) (-145) (230) (-145) [blue]\n\nset pen size to (10)\n\nline (300) (300) (-300) (300) [red]\nset pen size to (60)\n\nset pen size to (450)\nline (-300) (300) (300) (300) [purple]\n\nline (120) (-120) (120) (300) [Purple]\n\nset pen size to (10)\nline (300) (-300) (300) (100) [red]\nline (-130) (-145) (230) (-145) [red]\n\nline (-130) (-145) (230) (-145) [red]\n\n@Sprite1\n\nwhen I start as a clone\nswitch costume to (hitbox2 v)\nchange [brightness v] effect by (25)\nset [ghost v] effect to (50)\nrepeat (10)\n    change [ghost v] effect by (4.9)\n    change size by (-1)\nend\ndelete this clone\n\nwhen I receive [level 1 v]\n\nwhen flag clicked\npoint in direction (90)\n\nwhen flag clicked\nswitch costume to (hitbox4 v)\ngo to x: (-204) y: (-90)\nset [y v] to [0]\nshow\nforever\n    change [y v] by (-0.5)\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(x position) > (mouse x)>>>> then\n        create clone of (_myself_ v)\n        switch costume to (costume3 v)\n        change [x v] by (-0.87)\n    end\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>>> then\n        create clone of (_myself_ v)\n        switch costume to (costume2 v)\n        change [x v] by (0.87)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching color (#00f928)?> then\n        change y by (1)\n        if <touching color (#00f928)?> then\n            change y by (1)\n            if <touching color (#00f928)?> then\n                change y by (1)\n                if <touching color (#00f928)?> then\n                    change y by (1)\n                    if <touching color (#00f928)?> then\n                        change y by (1)\n                        if <touching color (#00f928)?> then\n                            change y by (1)\n                            if <touching color (#00f928)?> then\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)>>> then\n                                    create clone of (_myself_ v)\n                                    set [y v] to [10]\n                                    if <(x) > [0]> then\n                                        set [x v] to [-10]\n                                    else\n                                        set [x v] to [10]\n                                    end\n                                else\n                                    change x by ((x) * (-1))\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (y)\n    if <touching color (#00f928)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-0.5)\n    if <<touching color (#00f928)?> and <<key (w v) pressed?> or <<key (space v) pressed?> or <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>>>> then\n        create clone of (_myself_ v)\n        set [y v] to [10]\n    end\n    change y by (0.5)\n    if <(x position) > [240]> then\n        broadcast (next level v)\n        go to x: (-204) y: (-90)\n        change [level v] by (1)\n        set [x v] to [0]\n        erase all\n    end\n    if <touching color (#eb1c2b)?> then\n        go to x: (-204) y: (-90)\n        set [x v] to [0]\n        set [y v] to [0]\n    end\n    if <touching color (#008cf8)?> then\n        start sound [Boing v]\n        set [y v] to [15]\n    end\n    if <<touching color (#008cf8)?> and <<key (w v) pressed?> or <<key (space v) pressed?> or <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>>>> then\n        start sound [Boing v]\n        set [y v] to [18]\n    end\n    if <key (r v) pressed?> then\n        go to x: (-204) y: (-90)\n    end\n    if <touching color (#f8d600)?> then\n        change [x v] by (6)\n    end\n    if <touching color (#a100f8)?> then\n        change [y v] by (1)\n    end\n    create clone of (_myself_ v)\nend\n\nif <touching (spikes v)?> then\n    stop [this script v]\nend\n\nif <not <touching (sprite3 v)?>> then\n\nchange x by (10)\nif <not <touching (sprite2 v)?>> then\n    change y by (-1)\nend\n\nhide\n\nrepeat (10)\n\nset volume to (100) %\n\ncreate clone of (_myself_ v)\n\ngo to x: (-204) y: (-90)\n\n@Sprite2\n\nwhen flag clicked\ngo to [front v] layer\nset [ghost v] effect to (100)\n\nturn right (15) degrees\n\n
*************Welcome to 80% pen platformer*************\n-Make sure to love and favorite and a follow for more AMAZING projects\n                               -Instructions-\nUse arrows keys or w,a,s,d or click if you are using  mobile to move\nColors meaning:\nRed=lava=death\nblue=jump\ngreen=ground\nYellow= fast speed\nTip:\nIf you did touch the blue color and press up arrow or W or click (In mobile mode) you will be able to jump higher!\n4/1/2020 TOP LOVED!