Pen Platformer Maker | 99% Pen | v1.1
@Stage\n\n@game\n\ndefine ask for lvl code\nerase all\ngo to x: (-135) y: (25)\nword [give level code]\ngo to x: (0) y: (-40)\npen down\nchange y by (-90)\ngo to x: ((x position) - (40)) y: ((y position) - (-40))\npen up\ngo to x: ((x position) - (-40)) y: ((y position) - (40))\npen down\ngo to x: ((x position) - (-40)) y: ((y position) - (-40))\npen up\nask [] and wait\nload code\nset [play v] to [0]\nrepeat until <(play) = [1]>\n    em\nend\nset [play v] to [0]\nset [playing? v] to [1]\nset [in menu? v] to [0]\n\ndefine Draw letter (letter)\nif <<(letter) = [I]> or <<(letter) = [1]> or <(letter) = [i]>>> then\n    pen down\n    change y by (-30)\n    pen up\n    change y by (30)\nelse\n    if <(letter) = [2]> then\n        pen down\n        change x by (-10)\n        change x by (10)\n        change y by (-15)\n        change x by (-10)\n        change y by (-15)\n        change x by (10)\n        pen up\n        change y by (30)\n    else\n        if <(letter) = [3]> then\n            pen down\n            change x by (-10)\n            change x by (10)\n            change y by (-15)\n            change x by (-10)\n            change x by (10)\n            change y by (-15)\n            change x by (-10)\n            change x by (10)\n            pen up\n            change y by (30)\n        else\n            if <(letter) = [4]> then\n                pen up\n                change x by (-5)\n                pen down\n                change y by (-30)\n                change y by (15)\n                change x by (5)\n                change x by (-10)\n                change y by (15)\n                pen up\n                change x by (10)\n            else\n                if <(letter) = [5]> then\n                    pen down\n                    change x by (-10)\n                    change y by (-15)\n                    change x by (10)\n                    change y by (-15)\n                    change x by (-10)\n                    pen up\n                    change x by (10)\n                    change y by (30)\n                else\n                    if <(letter) = [6]> then\n                        pen down\n                        change x by (-10)\n                        change y by (-15)\n                        change x by (10)\n                        change y by (-15)\n                        change x by (-10)\n                        change y by (15)\n                        pen up\n                        change x by (10)\n                        change y by (15)\n                    else\n                        if <(letter) = [7]> then\n                            pen down\n                            change x by (-10)\n                            change x by (10)\n                            go to x: ((x position) - (10)) y: ((y position) - (30))\n                            pen up\n                            go to x: ((x position) - (-10)) y: ((y position) - (-30))\n                        else\n                            if <(letter) = [8]> then\n                                pen down\n                                change x by (-10)\n                                change y by (-15)\n                                change x by (10)\n                                change y by (15)\n                                change y by (-30)\n                                change x by (-10)\n                                change y by (30)\n                                pen up\n                                change x by (10)\n                            else\n                                if <(letter) = [9]> then\n                                    pen down\n                                    change x by (-10)\n                                    change y by (-15)\n                                    change x by (10)\n                                    change y by (15)\n                                    change y by (-30)\n                                    change x by (-10)\n                                    pen up\n                                    change y by (30)\n                                    change x by (10)\n                                else\n                                    if <<(letter) = [a]> or <(letter) = [A]>> then\n                                        pen down\n                                        change x by (-10)\n                                        change y by (-30)\n                                        change y by (20)\n                                        change x by (10)\n                                        change y by (-20)\n                                        change y by (30)\n                                        pen up\n                                    else\n                                        if <<(letter) = [b]> or <(letter) = [B]>> then\n                                            pen down\n                                            change x by (-10)\n                                            change y by (-30)\n                                            change x by (10)\n                                            change y by (10)\n                                            change x by (-2)\n                                            change y by (10)\n                                            change x by (2)\n                                            change y by (10)\n                                            change x by (-10)\n                                            change y by (-15)\n                                            change x by (10)\n                                            pen up\n                                            change y by (15)\n                                        else\n                                            if <<(letter) = [c]> or <(letter) = [C]>> then\n                                                pen down\n                                                change x by (-10)\n                                                change y by (-30)\n                                                change x by (10)\n                                                pen up\n                                                change y by (30)\n                                            else\n                                                if <<(letter) = [d]> or <(letter) = [D]>> then\n                                                    change x by (-5)\n                                                    pen down\n                                                    change x by (-5)\n                                                    change y by (-30)\n                                                    change x by (5)\n                                                    go to x: ((x position) + (5)) y: ((y position) + (5))\n                                                    change y by (20)\n                                                    go to x: ((x position) + (-5)) y: ((y position) + (5))\n                                                    pen up\n                                                    change x by (5)\n                                                else\n                                                    if <<(letter) = [e]> or <(letter) = [E]>> then\n                                                        pen down\n                                                        change x by (-10)\n                                                        change y by (-15)\n                                                        change x by (10)\n                                                        change x by (-10)\n                                                        change y by (-15)\n                                                        change x by (10)\n                                                        pen up\n                                                        change y by (30)\n                                                    else\n                                                        if <<(letter) = [f]> or <(letter) = [F]>> then\n                                                            pen down\n                                                            change x by (-10)\n                                                            change y by (-15)\n                                                            change x by (10)\n                                                            change x by (-10)\n                                                            change y by (-15)\n                                                            pen up\n                                                            change y by (30)\n                                                            change x by (10)\n                                                        else\n                                                            if <<(letter) = [g]> or <(letter) = [G]>> then\n                                                                pen down\n                                                                change x by (-10)\n                                                                change y by (-30)\n                                                                change x by (10)\n                                                                change y by (10)\n                                                                change x by (-5)\n                                                                pen up\n                                                                change x by (5)\n                                                                change y by (20)\n                                                            else\n                                                                if <<(letter) = [h]> or <(letter) = [H]>> then\n                                                                    pen down\n                                                                    change y by (-15)\n                                                                    change x by (-10)\n                                                                    change y by (15)\n                                                                    change y by (-30)\n                                                                    change y by (15)\n                                                                    change x by (10)\n                                                                    change y by (-15)\n                                                                    pen up\n                                                                    change y by (30)\n                                                                else\n                                                                    if <<(letter) = [j]> or <(letter) = [J]>> then\n                                                                        pen down\n                                                                        change y by (-50)\n                                                                        pen up\n                                                                        change y by (50)\n                                                                    else\n                                                                        if <<(letter) = [k]> or <(letter) = [K]>> then\n                                                                            change x by (-10)\n                                                                            pen down\n                                                                            change y by (-30)\n                                                                            change y by (15)\n                                                                            go to x: ((x position) + (10)) y: ((y position) + (15))\n                                                                            go to x: ((x position) + (-10)) y: ((y position) + (-15))\n                                                                            go to x: ((x position) + (10)) y: ((y position) + (-15))\n                                                                            go to x: ((x position) + (-10)) y: ((y position) + (15))\n                                                                            pen up\n                                                                            go to x: ((x position) + (10)) y: ((y position) + (15))\n                                                                        else\n                                                                            \n                                                                                pen down\n                                                                                change x by (-10)\n                                                                                change y by (-30)\n                                                                                change y by (30)\n                                                                                change x by (5)\n                                                                                change y by (-30)\n                                                                                change y by (30)\n                                                                                change x by (5)\n                                                                                change y by (-30)\n                                                                                change y by (30)\n                                                                                pen up\n                                                                            else\n                                                                                if <<(letter) = [p]> or <(letter) = [P]>> then\n                                                                                    pen down\n                                                                                    change x by (-10)\n                                                                                    change y by (-30)\n                                                                                    change y by (15)\n                                                                                    change x by (10)\n                                                                                    change y by (15)\n                                                                                    pen up\n                                                                                else\n                                                                                    if <<(letter) = [r]> or <(letter) = [R]>> then\n                                                                                        pen down\n                                                                                        change x by (-10)\n                                                                                        change y by (-30)\n                                                                                        change y by (15)\n                                                                                        change x by (10)\n                                                                                        change y by (15)\n                                                                                        change x by (-10)\n                                                                                        change y by (-15)\n                                                                                        go to x: ((x position) + (10)) y: ((y position) + (-15))\n                                                                                        pen up\n                                                                                        change y by (30)\n                                                                                    else\n                                                                                        if <<(letter) = [s]> or <(letter) = [S]>> then\n                                                                                            pen down\n                                                                                            change x by (-10)\n                                                                                            change y by (-15)\n                                                                                            change x by (10)\n                                                                                            change y by (-15)\n                                                                                            change x by (-10)\n                                                                                            pen up\n                                                                                            change y by (30)\n                                                                                            change x by (10)\n                                                                                        else\n                                                                                            if <<(letter) = [t]> or <(letter) = [T]>> then\n                                                                                                pen down\n                                                                                                change x by (-5)\n                                                                                                change y by (-30)\n                                                                                                change y by (30)\n                                                                                                change x by (-5)\n                                                                                                change x by (10)\n                                                                                                pen up\n                                                                                            else\n                                                                                                if <<(letter) = [w]> or <(letter) = [W]>> then\n                                                                                                    pen down\n                                                                                                    change y by (-30)\n                                                                                                    change x by (-5)\n                                                                                                    change y by (30)\n                                                                                                    change y by (-30)\n                                                                                                    change x by (-5)\n                                                                                                    change y by (30)\n                                                                                                    pen up\n                                                                                                    change x by (10)\n                                                                                                else\n                                                                                                    if <<(letter) = [u]> or <(letter) = [U]>> then\n                                                                                                        pen down\n                                                                                                        change y by (-30)\n                                                                                                        change x by (-5)\n                                                                                                        change x by (-5)\n                                                                                                        change y by (30)\n                                                                                                        pen up\n                                                                                                        change x by (10)\n                                                                                                    else\n                                                                                                        if <<<(letter) = [0]> or <(letter) = [o]>> or <(letter) = [O]>> then\n                                                                                                            pen down\n                                                                                                            change x by (-10)\n                                                                                                            change y by (-30)\n                                                                                                            change x by (10)\n                                                                                                            change y by (30)\n                                                                                                            pen up\n                                                                                                        else\n                                                                                                            if <<(letter) = [z]> or <(letter) = [Z]>> then\n                                                                                                                pen down\n                                                                                                                change x by (-10)\n                                                                                                                change x by (10)\n                                                                                                                go to x: ((x position) - (10)) y: ((y position) - (30))\n                                                                                                                change x by (10)\n                                                                                                                pen up\n                                                                                                                change y by (30)\n                                                                                                            else\n                                                                                                                if <<(letter) = [v]> or <(letter) = [V]>> then\n                                                                                                                    pen down\n                                                                                                                    go to x: ((x position) - (5)) y: ((y position) - (30))\n                                                                                                                    go to x: ((x position) - (5)) y: ((y position) - (-30))\n                                                                                                                    pen up\n                                                                                                                    change x by (10)\n                                                                                                                else\n                                                                                                                    if <<(letter) = [l]> or <(letter) = [L]>> then\n                                                                                                                        change x by (-10)\n                                                                                                                        pen down\n                                                                                                                        change y by (-30)\n                                                                                                                        change x by (10)\n                                                                                                                        pen up\n                                                                                                                        change y by (30)\n                                                                                                                    else\n                                                                                                                        if <<(letter) = [n]> or <(letter) = [N]>> then\n                                                                                                                            pen down\n                                                                                                                            change y by (-30)\n                                                                                                                            change y by (30)\n                                                                                                                            change x by (-10)\n                                                                                                                            change y by (-30)\n                                                                                                                            change y by (30)\n                                                                                                                            pen up\n                                                                                                                            change x by (10)\n                                                                                                                        else\n                                                                                                                            if <<(letter) = [y]> or <(letter) = [Y]>> then\n                                                                                                                                pen down\n                                                                                                                                change y by (-30)\n                                                                                                                                change y by (15)\n                                                                                                                                go to x: ((x position) - (10)) y: ((y position) - (-15))\n                                                                                                                                pen up\n                                                                                                                                change x by (10)\n                                                                                                                            else\n                                                                                                                                if <<(letter) = [m]> or <(letter) = [M]>> then\n                                                                                                                                    pen down\n                                                                                                                                    repeat (2)\n                                                                                                                                        change y by (-30)\n                                                                                                                                        change y by (30)\n                                                                                                                                        change x by (-5)\n                                                                                                                                    end\n                                                                                                                                    change y by (-30)\n                                                                                                                                    pen up\n                                                                                                                                    change y by (30)\n                                                                                                                                    change x by (10)\n                                                                                                                                else\n                                                                                                                                    if <(letter) = [:]> then\n                                                                                                                                        change y by (-5)\n                                                                                                                                        pen down\n                                                                                                                                        pen up\n                                                                                                                                        change y by (-20)\n                                                                                                                                        pen down\n                                                                                                                                        pen up\n                                                                                                                                        change y by (30)\n                                                                                                                                    else\n                                                                                                                                        if <<(letter) = [x]> or <(letter) = [X]>> then\n                                                                                                                                            pen down\n                                                                                                                                            go to x: ((x position) - (10)) y: ((y position) - (30))\n                                                                                                                                            pen up\n                                                                                                                                            change y by (30)\n                                                                                                                                            pen down\n                                                                                                                                            go to x: ((x position) - (-10)) y: ((y position) - (30))\n                                                                                                                                            pen up\n                                                                                                                                            change y by (30)\n                                                                                                                                        else\n                                                                                                                                            if <<(letter) = [q]> or <(letter) = [Q]>> then\n                                                                                                                                                pen down\n                                                                                                                                                change y by (-30)\n                                                                                                                                                go to x: ((x position) + (5)) y: ((y position) - (5))\n                                                                                                                                                go to x: ((x position) + (-10)) y: ((y position) - (-10))\n                                                                                                                                                go to x: ((x position) + (5)) y: ((y position) - (5))\n                                                                                                                                                change x by (-10)\n                                                                                                                                                change y by (30)\n                                                                                                                                                change x by (10)\n                                                                                                                                                pen up\n                                                                                                                                            else\n                                                                                                                                                if <(letter) = [-]> then\n                                                                                                                                                    change y by (-15)\n                                                                                                                                                    pen down\n                                                                                                                                                    change x by (-10)\n                                                                                                                                                    pen up\n                                                                                                                                                    change x by (10)\n                                                                                                                                                    change y by (15)\n                                                                                                                                                else\n                                                                                                                                                    if <(letter) = [.]> then\n                                                                                                                                                        change y by (-30)\n                                                                                                                                                        pen down\n                                                                                                                                                        pen up\n                                                                                                                                                        change y by (30)\n                                                                                                                                                    else\n                                                                                                                                                        if <(letter) = [_]> then\n                                                                                                                                                            change y by (-30)\n                                                                                                                                                            pen down\n                                                                                                                                                            change x by (-10)\n                                                                                                                                                            pen up\n                                                                                                                                                            change x by (10)\n                                                                                                                                                            change y by (30)\n                                                                                                                                                        end\n                                                                                                                                                    end\n                                                                                                                                                end\n                                                                                                                                            end\n                                                                                                                                        end\n                                                                                                                                    end\n                                                                                                                                end\n                                                                                                                            end\n                                                                                                                        end\n                                                                                                                    end\n                                                                                                                end\n                                                                                                            end\n                                                                                                        end\n                                                                                                    end\n                                                                                                end\n                                                                                            end\n                                                                                        end\n                                                                                    end\n                                                                                end\n                                                                            end\n                                                                        end\n                                                                    end\n                                                                end\n                                                            end\n                                                        end\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\ndelete all of [block heights v]\ndelete all of [blocks widths v]\ndelete all of [block types v]\ndelete all of [block xs v]\ndelete all of [blocks ys v]\nshow list [save code v]\ndelete all of [move y v]\ndelete all of [move x v]\ndelete all of [move speed v]\ndelete all of [move id v]\ndelete all of [move direction v]\nset [clickekd ok? v] to [1]\nset [last mouse 3 v] to [0]\nset [in menu? v] to [1]\nset [giving lvl code v] to [0]\nset [playing? v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [0]\nset [won lvl v] to [0]\nset [placing moving v] to [1]\nforever\n    if <(clickekd ok?) = [0]> then\n        spd selector\n    else\n        if <(in menu?) = [0]> then\n            if <(won lvl) = [0]> then\n                render blocks\n                if <(porm?) = [1]> then\n                    if <(playing?) = [0]> then\n                        render lines\n                    end\n                end\n                render mouse pointer\n                if <(playing?) = [0]> then\n                    add you\n                end\n                check keys\n                delate bad tingz\n                if <(porm?) = [1]> then\n                    render GUI\n                    check color selecting\n                end\n                if <(playing?) = [1]> then\n                    add you\n                    moving tick\n                end\n                if <(porm?) = [0]> then\n                    restart button\n                end\n            else\n                if <(won lvl) = [1]> then\n                    if <(porm?) = [1]> then\n                        save.conti...\n                    else\n                        back2\n                    end\n                else\n                    lvl code\n                end\n            end\n        else\n            if <(giving lvl code) = [0]> then\n                render menu\n            else\n                ask for lvl code\n            end\n        end\n    end\nend\n\ndefine render GUI\nswitch costume to (costume1 v)\nset pen color to (#a2a2a2)\nset pen size to (5)\ngo to x: (-240) y: (135)\npen down\nchange x by (480)\npen up\ngo to x: (-205) y: (136)\nrepeat (4)\n    pen down\n    change y by (44)\n    pen up\n    change y by (-44)\n    change x by (40)\nend\nchange x by (60)\nrepeat (2)\n    pen down\n    change y by (44)\n    pen up\n    change y by (-44)\n    change x by (120)\nend\ngo to x: (-225) y: (150)\nset pen size to (20)\nset pen color to (#2a00ff)\npen down\nchange y by (15)\npen up\nchange y by (-15)\nchange x by (40)\nset pen color to (#fff600)\npen down\nchange y by (15)\npen up\nchange y by (-15)\nchange x by (40)\nset pen color to (#ff0000)\npen down\nchange y by (15)\npen up\nchange y by (-15)\nchange x by (40)\nset pen color to (#00ff0c)\npen down\nchange y by (15)\npen up\nchange y by (-15)\nchange x by (30)\nset pen color to (#989898)\nset pen size to (7)\npen down\nchange x by (80)\npen up\nchange x by (-80)\nchange x by (((Width) + (15)) - (20))\nchange y by (2)\nset pen color to (#00e5ff)\nset pen size to (10)\npen down\nset pen size to (7)\nchange y by (-8)\npen up\nchange y by (6)\ngo to x: (-40) y: (150)\nswitch costume to (costume3 v)\nshow\nif <<mouse down?> and <touching (mouse-pointer v)?>> then\n    set [width v] to (((mouse x) + (95)) - (15))\nend\nhide\nchange y by (15)\nset pen color to (#989898)\nset pen size to (3)\npen down\nchange x by (22)\ngo to x: ((x position) - (5)) y: ((y position) - (5))\npen up\ngo to x: ((x position) - (-5)) y: ((y position) - (-5))\npen down\npen up\npen down\ngo to x: ((x position) - (5)) y: ((y position) - (-5))\npen up\ngo to x: ((x position) - (-5)) y: ((y position) - (5))\npen down\nchange x by (-40)\npen up\npen down\ngo to x: ((x position) - (-5)) y: ((y position) - (5))\npen up\ngo to x: ((x position) - (5)) y: ((y position) - (-5))\npen down\npen up\npen down\ngo to x: ((x position) - (-5)) y: ((y position) - (-5))\npen up\ngo to x: ((x position) - (5)) y: ((y position) - (5))\npen down\npen up\ncontiunoation\n\ndefine contiunoation\nchange x by (90)\nchange y by (-15)\nset pen color to (#989898)\nset pen size to (7)\npen down\nchange x by (80)\npen up\nchange x by (-80)\nchange x by (((Height) + (15)) - (20))\nchange y by (2)\nset pen color to (#00e5ff)\nset pen size to (10)\npen down\nset pen size to (7)\nchange y by (-8)\npen up\nchange y by (6)\ngo to x: (68) y: (150)\nswitch costume to (costume3 v)\nshow\nif <<mouse down?> and <touching (mouse-pointer v)?>> then\n    set [height v] to (((mouse x) + (-13)) - (15))\nend\nhide\nchange y by (12)\nchange x by (2)\nset pen color to (#989898)\nset pen size to (3)\npen down\nchange y by (18)\npen up\npen down\ngo to x: ((x position) - (5)) y: ((y position) - (5))\npen up\ngo to x: ((x position) - (-5)) y: ((y position) - (-5))\npen down\npen up\npen down\ngo to x: ((x position) - (-5)) y: ((y position) - (5))\npen up\ngo to x: ((x position) - (5)) y: ((y position) - (-5))\npen down\npen up\nchange y by (-20)\npen down\ngo to x: ((x position) - (5)) y: ((y position) - (-5))\npen up\ngo to x: ((x position) - (-5)) y: ((y position) - (5))\npen down\npen up\npen down\ngo to x: ((x position) - (-5)) y: ((y position) - (-5))\npen up\ngo to x: ((x position) - (5)) y: ((y position) - (5))\npen down\nchange y by (5)\npen up\nswitch costume to (costume2 v)\ngo to x: (160) y: (158)\nif <(touching p/e?) = [0]> then\n    set pen color to (#dfdfdf)\nelse\n    set pen color to (#c7fff9)\nend\nset pen size to (37)\npen down\nchange x by (57)\npen up\nchange y by (10)\nset pen size to (2)\nset pen color to (#575757)\nif <(playing?) = [1]> then\n    change x by (-48)\n    pen down\n    change x by (-10)\n    change y by (-10)\n    change x by (10)\n    change x by (-10)\n    change y by (-10)\n    change x by (10)\n    pen up\n    change x by (10)\n    pen down\n    change y by (20)\n    go to x: ((x position) + (7)) y: ((y position) - (5))\n    change y by (-10)\n    go to x: ((x position) + (-7)) y: ((y position) - (5))\n    pen up\n    change x by (20)\n    pen down\n    change y by (20)\n    pen up\n    change x by (10)\n    pen down\n    change x by (10)\n    pen up\n    change x by (-5)\n    pen down\n    change y by (-20)\n    pen up\nelse\n    change x by (-60)\n    pen down\n    change x by (10)\n    change y by (-10)\n    change x by (-10)\n    change y by (-10)\n    pen up\n    change y by (10)\n    pen down\n    change y by (10)\n    pen up\n    change x by (20)\n    pen down\n    change y by (-20)\n    change x by (10)\n    pen up\n    change x by (10)\n    pen down\n    go to x: ((x position) + (5)) y: ((y position) + (20))\n    go to x: ((x position) + (5)) y: ((y position) + (-20))\n    pen up\n    change y by (10)\n    change x by (-4)\n    pen down\n    change x by (-2)\n    pen up\n    change y by (-10)\n    change x by (16)\n    pen down\n    change y by (10)\n    go to x: ((x position) + (5)) y: ((y position) + (10))\n    pen up\n    go to x: ((x position) + (-5)) y: ((y position) + (-10))\n    pen down\n    go to x: ((x position) + (-5)) y: ((y position) + (10))\n    pen up\nend\ngo to x: (227) y: (168)\nshow\nif <touching (mouse-pointer v)?> then\n    set [touching p/e? v] to [1]\n    if <mouse down?> then\n        if <(last mouse2) = [0]> then\n            if <(playing?) = [0]> then\n                if <(placing moving) = [2]> then\n                    add end of platform\n                end\n                set [playing? v] to [1]\n                set [scroll x v] to [0]\n                set [scroll y v] to [0]\n                set [fall speed v] to [0]\n                set [bp? v] to [0]\n                reset renders\n            else\n                set [playing? v] to [0]\n                set [scroll x v] to [0]\n                set [scroll y v] to [0]\n            end\n        end\n        set [last mouse2 v] to [1]\n    else\n        set [last mouse2 v] to [0]\n    end\nelse\n    set [touching p/e? v] to [0]\nend\nhide\n\ndefine render mouse pointer\nif <(playing?) = [0]> then\n    if <(block selected) = [1]> then\n        set pen color to (#2a00ff)\n    else\n        if <(block selected) = [2]> then\n            set pen color to (#fff600)\n        else\n            if <(block selected) = [3]> then\n                set pen color to (#ff0000)\n            else\n                set pen color to (#00ff0c)\n            end\n        end\n    end\n    set pen (transparency v) to (35)\n    set pen size to (5)\n    go to x: ((mouse x) + ((Width) * (1.25))) y: ((mouse y) + ((Height) * (1.25)))\n    pen down\n    go to x: ((mouse x) + ((Width) * (1.25))) y: ((mouse y) - ((Height) * (1.25)))\n    go to x: ((mouse x) - ((Width) * (1.25))) y: ((mouse y) - ((Height) * (1.25)))\n    go to x: ((mouse x) - ((Width) * (1.25))) y: ((mouse y) + ((Height) * (1.25)))\n    go to x: ((mouse x) + ((Width) * (1.25))) y: ((mouse y) + ((Height) * (1.25)))\n    pen up\n    if <<not <key (d v) pressed?>> and <(placing moving) = [2]>> then\n        add ((mouse x) - (scroll x)) to [move x v]\n        add ((mouse y) - (scroll y)) to [move y v]\n        check direction\n        speed selector\n        add (speed) to [move speed v]\n        set [placing moving v] to [1]\n    end\n    if <<mouse down?> and <[133] > (mouse y)>> then\n        if <not <key (e v) pressed?>> then\n            if <key (d v) pressed?> then\n                if <(last mouse) = [0]> then\n                    if <(placing moving) = [1]> then\n                        set [placing moving v] to [2]\n                        add (block selected) to [block types v]\n                        add ((mouse x) - (scroll x)) to [block xs v]\n                        add ((mouse y) - (scroll y)) to [blocks ys v]\n                        add (Height) to [block heights v]\n                        add (Width) to [blocks widths v]\n                    else\n                        check direction\n                        add ((mouse x) - (scroll x)) to [move x v]\n                        add ((mouse y) - (scroll y)) to [move y v]\n                        speed selector\n                        add (speed) to [move speed v]\n                        set [placing moving v] to [1]\n                    end\n                    set [last mouse v] to [1]\n                end\n            else\n                if <(last mouse) = [0]> then\n                    add (block selected) to [block types v]\n                    add ((mouse x) - (scroll x)) to [block xs v]\n                    add ((mouse y) - (scroll y)) to [blocks ys v]\n                    add (Height) to [block heights v]\n                    add (Width) to [blocks widths v]\n                    add [N] to [move x v]\n                    add [N] to [move y v]\n                    add [N] to [move speed v]\n                    add [N] to [move id v]\n                    add [N] to [move direction v]\n                end\n                set [last mouse v] to [1]\n            end\n        else\n            set [erase test id v] to [1]\n            repeat (length of [block heights v])\n                if <<((mouse y) - (scroll y)) > (((item (erase test id) of [blocks ys v]) - (item (erase test id) of [block heights v])) - (5))> and <(((item (erase test id) of [blocks ys v]) + (item (erase test id) of [block heights v])) + (5)) > ((mouse y) - (scroll y))>> then\n                    if <<((mouse x) - (scroll x)) > (((item (erase test id) of [block xs v]) - (item (erase test id) of [blocks widths v])) - (10))> and <(((item (erase test id) of [block xs v]) + (item (erase test id) of [blocks widths v])) + (10)) > ((mouse x) - (scroll x))>> then\n                        delete (erase test id) of [block heights v]\n                        delete (erase test id) of [block types v]\n                        delete (erase test id) of [block xs v]\n                        delete (erase test id) of [blocks widths v]\n                        delete (erase test id) of [blocks ys v]\n                        delete (erase test id) of [move x v]\n                        delete (erase test id) of [move y v]\n                        delete (erase test id) of [move speed v]\n                        delete (erase test id) of [move id v]\n                        delete (erase test id) of [move direction v]\n                        stop [this script v]\n                    end\n                end\n                change [erase test id v] by (1)\n            end\n        end\n    else\n        set [last mouse v] to [0]\n    end\nend\n\ndefine delate bad tingz\nswitch costume to (costume1 v)\nset pen color to (#ffffff)\nset pen size to (12)\ngo to x: (playin) y: (-175)\npen down\ngo to x: (playin) y: (178)\ngo to x: (240) y: (178)\ngo to x: (240) y: (-175)\ngo to x: (playin) y: (-175)\npen up\nif <(porm?) = [1]> then\n    set pen color to (#ffffff)\n    set pen size to (10)\n    go to x: (-235) y: (165)\n    pen down\n    go to x: (-235) y: (-180)\n    pen up\n    set pen color to (#f1f1f1)\n    set pen size to (60)\n    go to x: (-230) y: (165)\n    pen down\n    go to x: (230) y: (165)\n    pen up\nend\n\ndefine add you\nif <(playing?) = [0]> then\n    go to x: ((10) + (scroll x)) y: ((7) + (scroll y))\n    set pen color to (#c216fc)\n    set pen size to (5)\n    pen down\n    go to x: ((-10) + (scroll x)) y: ((7) + (scroll y))\n    go to x: ((-10) + (scroll x)) y: ((-13) + (scroll y))\n    go to x: ((10) + (scroll x)) y: ((-13) + (scroll y))\n    go to x: ((10) + (scroll x)) y: ((7) + (scroll y))\n    pen up\nelse\n    go to x: (10) y: (7)\n    set pen color to (#c216fc)\n    set pen size to (5)\n    pen down\n    go to x: (-10) y: (7)\n    go to x: (-10) y: (-13)\n    go to x: (10) y: (-13)\n    go to x: (10) y: (7)\n    pen up\nend\n\ndefine check keys\nif <key (right arrow v) pressed?> then\n    change [scroll x v] by (-5)\nend\nif <key (left arrow v) pressed?> then\n    change [scroll x v] by (5)\nend\nif <(playing?) = [0]> then\n    if <key (up arrow v) pressed?> then\n        change [scroll y v] by (-5)\n    end\n    if <key (down arrow v) pressed?> then\n        change [scroll y v] by (5)\n    end\nelse\n    switch costume to (costume5 v)\n    go to x: (0) y: (0)\n    show\n    if <touching color (#ff0000)?> then\n        set [fall speed v] to [0]\n        set [scroll x v] to [0]\n        set [scroll y v] to [0]\n        set [bp? v] to [0]\n        reset renders\n    end\n    if <touching color (#00ff0b)?> then\n        set [fall speed v] to [0]\n        set [scroll x v] to [0]\n        set [scroll y v] to [0]\n        set [bp? v] to [0]\n        set [won lvl v] to [1]\n    end\n    if <touching color (#fff600)?> then\n        set [bp? v] to [1]\n        change [scroll y v] by (-40)\n        set [fall speed v] to [-17]\n    end\n    switch costume to (falling v)\n    change y by (0)\n    if <touching color (#2a00ff)?> then\n        set [fall speed v] to [0]\n        if <key (up arrow v) pressed?> then\n            switch costume to (costume5\(1\)2 v)\n            if <touching color (#2a00ff)?> then\n                change [scroll y v] by (-13)\n                set [fall speed v] to [-12]\n            end\n            switch costume to (idk v)\n        end\n    else\n        fall\n        change [fall speed v] by (1)\n    end\n    test4walls\n    test 4 CEILING\n    hide\nend\nif <(fall speed) > [100]> then\n    set [fall speed v] to [100]\nend\n\ndefine check color selecting\nswitch costume to (costume4 v)\nshow\ngo to x: (-220) y: (160)\nset [block v] to [1]\nrepeat (4)\n    if <<mouse down?> and <touching (mouse-pointer v)?>> then\n        set [block selected v] to (block)\n    end\n    change x by (40)\n    change [block v] by (1)\nend\nhide\n\ndefine render blocks\nset pen size to (5)\nerase all\nset [render id v] to [1]\nrepeat (length of [block types v])\n    if <(item (render id) of [block types v]) = [1]> then\n        set pen color to (#2a00ff)\n    else\n        if <(item (render id) of [block types v]) = [2]> then\n            set pen color to (#fff600)\n        else\n            if <(item (render id) of [block types v]) = [3]> then\n                set pen color to (#ff0000)\n            else\n                set pen color to (#00ff0c)\n            end\n        end\n    end\n    if <(playing?) = [0]> then\n        go to x: (((item (render id) of [block xs v]) + ((item (render id) of [blocks widths v]) * (1.25))) + (scroll x)) y: (((item (render id) of [blocks ys v]) + ((item (render id) of [block heights v]) * (1.25))) + (scroll y))\n        pen down\n        go to x: (((item (render id) of [block xs v]) + ((item (render id) of [blocks widths v]) * (1.25))) + (scroll x)) y: (((item (render id) of [blocks ys v]) - ((item (render id) of [block heights v]) * (1.25))) + (scroll y))\n        go to x: (((item (render id) of [block xs v]) - ((item (render id) of [blocks widths v]) * (1.25))) + (scroll x)) y: (((item (render id) of [blocks ys v]) - ((item (render id) of [block heights v]) * (1.25))) + (scroll y))\n        go to x: (((item (render id) of [block xs v]) - ((item (render id) of [blocks widths v]) * (1.25))) + (scroll x)) y: (((item (render id) of [blocks ys v]) + ((item (render id) of [block heights v]) * (1.25))) + (scroll y))\n        go to x: (((item (render id) of [block xs v]) + ((item (render id) of [blocks widths v]) * (1.25))) + (scroll x)) y: (((item (render id) of [blocks ys v]) + ((item (render id) of [block heights v]) * (1.25))) + (scroll y))\n        pen up\n    else\n        go to x: (((item (render id) of [render x v]) + ((item (render id) of [blocks widths v]) * (1.25))) + (scroll x)) y: (((item (render id) of [render y v]) + ((item (render id) of [block heights v]) * (1.25))) + (scroll y))\n        pen down\n        go to x: (((item (render id) of [render x v]) + ((item (render id) of [blocks widths v]) * (1.25))) + (scroll x)) y: (((item (render id) of [render y v]) - ((item (render id) of [block heights v]) * (1.25))) + (scroll y))\n        go to x: (((item (render id) of [render x v]) - ((item (render id) of [blocks widths v]) * (1.25))) + (scroll x)) y: (((item (render id) of [render y v]) - ((item (render id) of [block heights v]) * (1.25))) + (scroll y))\n        go to x: (((item (render id) of [render x v]) - ((item (render id) of [blocks widths v]) * (1.25))) + (scroll x)) y: (((item (render id) of [render y v]) + ((item (render id) of [block heights v]) * (1.25))) + (scroll y))\n        go to x: (((item (render id) of [render x v]) + ((item (render id) of [blocks widths v]) * (1.25))) + (scroll x)) y: (((item (render id) of [render y v]) + ((item (render id) of [block heights v]) * (1.25))) + (scroll y))\n        pen up\n    end\n    change [render id v] by (1)\nend\n\ndefine test4beinginground\ngo to x: (0) y: (5)\nswitch costume to (costume5\(1\) v)\nif <touching color (#2a00ff)?> then\n    change [scroll y v] by (((fall speed) * (-1)) + (0))\n    set [fall speed v] to [0]\n    change [scroll y v] by (-1)\nend\ngo to x: (0) y: (0)\n\ndefine fall\nswitch costume to (f+c v)\nrepeat (fall speed)\n    change y by (-1)\n    if <touching color (#2a00ff)?> then\n        change [scroll y v] by ((y position) * (-1))\n        stop [this script v]\n    end\nend\nchange [scroll y v] by (fall speed)\nswitch costume to (idk v)\n\ndefine test4walls\nset x to (5)\nswitch costume to (right v)\nif <touching color (#2a00ff)?> then\n    if <<<key (right arrow v) pressed?> or <key (left arrow v) pressed?>> or <(fall speed) > [0]>> then\n        change [scroll x v] by (5)\n    end\n    if <not <(platform moved?) = [0]>> then\n        change [scroll x v] by (platform moved?)\n    end\nend\nswitch costume to (costume13 v)\nset x to (-1.6)\nif <touching color (#2a00ff)?> then\n    if <<<key (left arrow v) pressed?> or <key (right arrow v) pressed?>> or <(fall speed) > [0]>> then\n        change [scroll x v] by (-5)\n    end\n    if <not <(platform moved?) = [0]>> then\n        change [scroll x v] by ((platform moved?) * (-1))\n    end\nend\nset x to (0)\nset [platform moved? v] to [0]\n\ndefine test 4 CEILING\nswitch costume to (costume16 v)\nif <touching color (#2a00ff)?> then\n    if <(fall speed) > [0]> then\n        change [scroll y v] by ((fall speed) * (2.7))\n    else\n        if <(bp?) = [1]> then\n            change [scroll y v] by (40)\n            set [bp? v] to [0]\n        else\n            change [scroll y v] by (13)\n        end\n    end\n    set [fall speed v] to [0]\nend\n\ndefine render menu\nswitch costume to (costume12 v)\nerase all\nset pen color to (#000000)\nset pen size to (2.5)\ngo to x: (-220) y: (170)\nword [pen platformer maker]\ngo to x: (-220) y: (120)\nword [by kociaczek327]\ngo to x: (-220) y: (-90)\nif <(username) = []> then\n    word [you need to be logged to]\nelse\n    if <(☁ levels made) = [808]> then\n        word [you need to be scratcher]\n    else\n        word [Count of levels made:]\n    end\nend\ngo to x: (-220) y: (-140)\nif <(username) = []> then\n    word [see count of lvls made]\nelse\n    if <(☁ levels made) = [808]> then\n        word [to see count of lvl made]\n    else\n        word (☁ levels made)\n    end\nend\nset pen size to (50)\nif <(touching play) = [0]> then\n    set pen color to (#d2d2d2)\nelse\n    set pen color to (#acfff3)\nend\ngo to x: (-100) y: (-40)\npen down\nchange x by (200)\npen up\nif <(touching create) = [1]> then\n    set pen color to (#acfff3)\nelse\n    set pen color to (#d2d2d2)\nend\ngo to x: (-100) y: (40)\npen down\nchange x by (200)\npen up\ngo to x: (-50) y: (55)\nset pen color to (#000000)\nset pen size to (2.5)\nword [create]\ngo to x: (-30) y: (-25)\nword [play]\nshow\nif <touching (mouse-pointer v)?> then\n    set [touching play v] to [1]\n    if <mouse down?> then\n        if <(last mouse 3) = [0]> then\n            set [giving lvl code v] to [1]\n            set [playin v] to [-240]\n            set [porm? v] to [0]\n        end\n    end\nelse\n    set [touching play v] to [0]\nend\nhide\ngo to x: (45) y: (55)\nshow\nif <touching (mouse-pointer v)?> then\n    set [touching create v] to [1]\n    if <mouse down?> then\n        if <(last mouse 3) = [0]> then\n            set [playin v] to [-232]\n            set [in menu? v] to [0]\n            change [☁ levels made v] by (1)\n            set [last mouse v] to [1]\n            set [porm? v] to [1]\n        end\n    end\nelse\n    set [touching create v] to [0]\nend\nhide\nif <not <mouse down?>> then\n    set [last mouse 3 v] to [0]\nend\n\ndefine word (word)\nset [dl id v] to [1]\nrepeat (length of (word))\n    Draw letter (letter (dl id) of (word))\n    change [dl id v] by (1)\n    change x by (20)\nend\n\ndefine em\nhide\nswitch costume to (costume18 v)\nset pen color to (#000000)\nset pen size to (2.5)\nerase all\ngo to x: (-220) y: (170)\nword (lvlname)\ngo to x: (-220) y: (120)\nword (join [by ] (nick))\ngo to x: (-200) y: (0)\nset pen size to (50)\nif <(touching play) = [0]> then\n    set pen color to (#d2d2d2)\nelse\n    set pen color to (#acfff3)\nend\npen down\nchange x by (50)\npen up\nset pen color to (#000000)\nset pen size to (2.5)\ngo to x: (-200) y: (15)\nword [play]\nshow\nswitch costume to (costume17 v)\nif <touching (mouse-pointer v)?> then\n    if <mouse down?> then\n        set [play v] to [1]\n    end\n    set [touching play v] to [1]\nelse\n    set [touching play v] to [0]\nend\nhide\n\ndefine save.conti...\nswitch costume to (costume18 v)\nerase all\nset pen size to (50)\nif <(touching create) = [0]> then\n    set pen color to (#d2d2d2)\nelse\n    set pen color to (#acfff3)\nend\ngo to x: (-100) y: (50)\npen down\nchange x by (200)\npen up\ngo to x: (-65) y: (65)\nset pen size to (2.5)\nset pen color to (#000000)\nword [continue]\nset pen size to (50)\nif <(touching play) = [0]> then\n    set pen color to (#d2d2d2)\nelse\n    set pen color to (#acfff3)\nend\ngo to x: (-100) y: (-50)\npen down\nchange x by (200)\npen up\ngo to x: (-30) y: (-35)\nset pen size to (2.5)\nset pen color to (#000000)\nword [save]\nswitch costume to (costume12 v)\nshow\nif <touching (mouse-pointer v)?> then\n    set [touching play v] to [1]\n    if <mouse down?> then\n        hide\n        save\n        set [won lvl v] to [2]\n    end\nelse\n    set [touching play v] to [0]\nend\nchange y by (100)\nif <touching (mouse-pointer v)?> then\n    set [touching create v] to [1]\n    if <mouse down?> then\n        set [won lvl v] to [0]\n        set [scroll x v] to [0]\n        set [scroll y v] to [0]\n        set [playing? v] to [0]\n        set [last mouse v] to [1]\n    end\nelse\n    set [touching create v] to [0]\nend\nhide\n\ndefine save\nerase all\ngo to x: (-180) y: (65)\nword [what is your levels]\ngo to x: (-180) y: (0)\nword [name]\ndelete all of [save code v]\nadd [] to [save code v]\nask [] and wait\nreplace item (1) of [save code v] with (join (join (join (answer) [|]) (username)) [|])\nset [id v] to [1]\nrepeat (length of [block heights v])\n    if <(item (id) of [move direction v]) = [N]> then\n        replace item (1) of [save code v] with (join (item (1) of [save code v]) (join (join (join (item (id) of [block heights v]) [|]) (join (item (id) of [block types v]) [|])) (join (join (join (item (id) of [block xs v]) [|]) (join (item (id) of [blocks widths v]) [|])) (join (item (id) of [blocks ys v]) [|]))))\n    else\n        replace item (1) of [save code v] with (join (join (item (1) of [save code v]) (join (join (join (item (id) of [block heights v]) [|]) (join (item (id) of [block types v]) [|])) (join (join (join (item (id) of [block xs v]) [|]) (join (item (id) of [blocks widths v]) [|])) (join (item (id) of [blocks ys v]) [#])))) (join (join (join (join (item (id) of [move direction v]) [=]) (join (item (id) of [move id v]) [=])) (join (item (id) of [move speed v]) [=])) (join (join (item (id) of [move x v]) [=]) (join (item (id) of [move y v]) [=]))))\n    end\n    change [id v] by (1)\nend\nhide list [save code v]\n\ndefine lvl code\nswitch costume to (costume18 v)\nset pen color to (#000000)\nset pen size to (2.5)\nerase all\ngo to x: (-180) y: (100)\nword [your level code:]\ngo to x: (100) y: (-135)\npen down\nchange x by (-100)\ngo to x: ((x position) + (40)) y: ((y position) + (40))\npen up\ngo to x: ((x position) + (-40)) y: ((y position) + (-40))\npen down\ngo to x: ((x position) + (40)) y: ((y position) + (-40))\npen up\ngo to x: (0) y: (0)\nset pen size to (50)\nswitch costume to (costume12 v)\nif <(touching play) = [0]> then\n    set pen color to (#d2d2d2)\nelse\n    set pen color to (#acfff3)\nend\ngo to x: (-100) y: (15)\npen down\nchange x by (200)\npen up\nset pen color to (#000000)\nset pen size to (2.5)\ngo to x: (-30) y: (30)\nword [back]\nshow\ngo to x: (50) y: (30)\nif <touching (mouse-pointer v)?> then\n    set [touching play v] to [1]\n    if <mouse down?> then\n        back to menu\n    end\nelse\n    set [touching play v] to [0]\nend\nhide\ngo to x: (-225) y: (-15)\nword [you can share it link in]\ngo to x: (-225) y: (-55)\nword [description]\n\ndefine back to menu\nset [last mouse 3 v] to [1]\nset [won lvl v] to [0]\nset [in menu? v] to [1]\nset [playing? v] to [0]\nset [giving lvl code v] to [0]\ndelete all of [move y v]\ndelete all of [move x v]\ndelete all of [move speed v]\ndelete all of [block heights v]\ndelete all of [block types v]\ndelete all of [block xs v]\ndelete all of [blocks widths v]\ndelete all of [blocks ys v]\nshow list [save code v]\ndelete all of [move direction v]\ndelete all of [move id v]\nset [porm? v] to [1]\n\ndefine load code\nset [load id v] to [1]\nset [lvlname v] to []\nrepeat until <(letter (load id) of (answer)) = [|]>\n    set [lvlname v] to (join (lvlname) (letter (load id) of (answer)))\n    change [load id v] by (1)\nend\nchange [load id v] by (1)\nset [nick v] to []\nrepeat until <(letter (load id) of (answer)) = [|]>\n    set [nick v] to (join (nick) (letter (load id) of (answer)))\n    change [load id v] by (1)\nend\nchange [load id v] by (1)\ndelete all of [block heights v]\ndelete all of [block types v]\ndelete all of [block xs v]\ndelete all of [blocks widths v]\ndelete all of [blocks ys v]\ndelete all of [move y v]\ndelete all of [move speed v]\ndelete all of [move x v]\ndelete all of [move id v]\ndelete all of [move direction v]\nrepeat until <(letter (load id) of (answer)) = []>\n    set [to add v] to []\n    repeat until <(letter (load id) of (answer)) = [|]>\n        set [to add v] to (join (to add) (letter (load id) of (answer)))\n        change [load id v] by (1)\n    end\n    change [load id v] by (1)\n    add (to add) to [block heights v]\n    set [to add v] to []\n    repeat until <(letter (load id) of (answer)) = [|]>\n        set [to add v] to (join (to add) (letter (load id) of (answer)))\n        change [load id v] by (1)\n    end\n    change [load id v] by (1)\n    add (to add) to [block types v]\n    set [to add v] to []\n    repeat until <(letter (load id) of (answer)) = [|]>\n        set [to add v] to (join (to add) (letter (load id) of (answer)))\n        change [load id v] by (1)\n    end\n    change [load id v] by (1)\n    add (to add) to [block xs v]\n    set [to add v] to []\n    repeat until <(letter (load id) of (answer)) = [|]>\n        set [to add v] to (join (to add) (letter (load id) of (answer)))\n        change [load id v] by (1)\n    end\n    change [load id v] by (1)\n    add (to add) to [blocks widths v]\n    set [to add v] to []\n    repeat until <<(letter (load id) of (answer)) = [|]> or <(letter (load id) of (answer)) = [#]>>\n        set [to add v] to (join (to add) (letter (load id) of (answer)))\n        change [load id v] by (1)\n    end\n    if <(letter (load id) of (answer)) = [#]> then\n        set [dada v] to [1]\n    else\n        add [N] to [move x v]\n        add [N] to [move speed v]\n        add [N] to [move y v]\n        add [N] to [move direction v]\n        add [N] to [move id v]\n        set [dada v] to [0]\n    end\n    change [load id v] by (1)\n    add (to add) to [blocks ys v]\n    if <(dada) = [1]> then\n        set [to add v] to []\n        repeat until <(letter (load id) of (answer)) = [=]>\n            set [to add v] to (join (to add) (letter (load id) of (answer)))\n            change [load id v] by (1)\n        end\n        add (to add) to [move direction v]\n        change [load id v] by (1)\n        set [to add v] to []\n        repeat until <(letter (load id) of (answer)) = [=]>\n            set [to add v] to (join (to add) (letter (load id) of (answer)))\n            change [load id v] by (1)\n        end\n        add (to add) to [move id v]\n        change [load id v] by (1)\n        set [to add v] to []\n        repeat until <(letter (load id) of (answer)) = [=]>\n            set [to add v] to (join (to add) (letter (load id) of (answer)))\n            change [load id v] by (1)\n        end\n        add (to add) to [move speed v]\n        change [load id v] by (1)\n        set [to add v] to []\n        repeat until <(letter (load id) of (answer)) = [=]>\n            set [to add v] to (join (to add) (letter (load id) of (answer)))\n            change [load id v] by (1)\n        end\n        add (to add) to [move x v]\n        change [load id v] by (1)\n        set [to add v] to []\n        repeat until <(letter (load id) of (answer)) = [=]>\n            set [to add v] to (join (to add) (letter (load id) of (answer)))\n            change [load id v] by (1)\n        end\n        add (to add) to [move y v]\n        change [load id v] by (1)\n    end\nend\nreset renders\n\ndefine back2\nerase all\nset pen size to (50)\nswitch costume to (costume12 v)\nif <(touching play) = [0]> then\n    set pen color to (#d2d2d2)\nelse\n    set pen color to (#acfff3)\nend\ngo to x: (-100) y: (15)\npen down\nchange x by (200)\npen up\nset pen color to (#000000)\nset pen size to (2.5)\ngo to x: (-60) y: (140)\nword [you win]\ngo to x: (-30) y: (30)\nword [back]\nshow\ngo to x: (50) y: (30)\nif <touching (mouse-pointer v)?> then\n    set [touching play v] to [1]\n    if <mouse down?> then\n        back to menu\n    end\nelse\n    set [touching play v] to [0]\nend\nhide\n\ndefine restart button\nset pen size to (50)\nset pen color to (#0f46ff)\nif <(touching play) = [1]> then\n    set pen (saturation v) to (80)\nend\ngo to x: (-210) y: (-150)\npen down\npen up\nset pen size to (45)\nset pen color to (#0faeff)\npen down\npen up\nset pen size to (30)\nset pen color to (#000000)\npen down\npen up\nset pen size to (25)\nset pen color to (#0faeff)\nif <(touching play) = [1]> then\n    set pen (saturation v) to (80)\nend\npen down\ngo to x: (-215) y: (-155)\npen up\nset pen size to (2.5)\nset pen color to (#000000)\nchange x by (-5)\nchange y by (8)\npen down\nchange x by (-7)\ngo to x: ((x position) + (4)) y: ((y position) - (5))\ngo to x: ((x position) + (4)) y: ((y position) - (-5))\nchange x by (-4)\nchange y by (-2)\nset pen size to (4)\ngo to x: (x position) y: (y position)\nset pen size to (2)\nchange y by (4)\npen up\nswitch costume to (costume19 v)\nshow\nchange x by (12)\nchange y by (-8)\nif <touching (mouse-pointer v)?> then\n    if <mouse down?> then\n        set [scroll x v] to [0]\n        set [scroll y v] to [0]\n        set [fall speed v] to [0]\n        reset renders\n    end\n    set [touching play v] to [1]\nelse\n    set [touching play v] to [0]\nend\nhide\n\ndefine render lines\npen up\nset pen color to (#af8080)\nset [lines render id v] to [1]\nrepeat (length of [block heights v])\n    if <not <(item (lines render id) of [move speed v]) = [N]>> then\n        if <(item (lines render id) of [block types v]) = [1]> then\n            set pen (color v) to (60)\n        else\n            if <(item (lines render id) of [block types v]) = [2]> then\n                set pen (color v) to (12)\n            else\n                if <(item (lines render id) of [block types v]) = [3]> then\n                    set pen (color v) to (1)\n                else\n                    set pen (color v) to (40)\n                end\n            end\n        end\n        go to x: ((item (lines render id) of [block xs v]) + (scroll x)) y: ((item (lines render id) of [blocks ys v]) + (scroll y))\n        pen down\n        pen up\n        set pen (brightness v) to (68)\n        set pen size to (10)\n        pen down\n        if <(item (lines render id) of [move speed v]) = []> then\n            go to x: (mouse x) y: (mouse y)\n        else\n            go to x: ((item (lines render id) of [move x v]) + (scroll x)) y: ((item (lines render id) of [move y v]) + (scroll y))\n        end\n        pen up\n        set pen (brightness v) to (30)\n        set pen size to (20)\n        go to x: ((item (lines render id) of [block xs v]) + (scroll x)) y: ((item (lines render id) of [blocks ys v]) + (scroll y))\n        repeat (10)\n            if <(x position) > [-235]> then\n                pen down\n            end\n            pen up\n            change pen size by (-2)\n            change pen (brightness v) by (5)\n        end\n        set pen (brightness v) to (30)\n        set pen size to (20)\n        if <(item (lines render id) of [move speed v]) = []> then\n            go to x: (mouse x) y: (mouse y)\n        else\n            go to x: ((item (lines render id) of [move x v]) + (scroll x)) y: ((item (lines render id) of [move y v]) + (scroll y))\n        end\n        repeat (10)\n            if <(x position) > [-235]> then\n                pen down\n            end\n            pen up\n            change pen size by (-2)\n            change pen (brightness v) by (5)\n        end\n    end\n    change [lines render id v] by (1)\nend\n\ndefine reset renders\ndelete all of [move id v]\ndelete all of [render x v]\ndelete all of [render y v]\nset [renders id v] to [1]\nrepeat (length of [block xs v])\n    add (item (renders ID) of [block xs v]) to [render x v]\n    add (item (renders ID) of [blocks ys v]) to [render y v]\n    add [1] to [move id v]\n    change [renders id v] by (1)\nend\n\ndefine moving tick\nset [renders id v] to [1]\nset [platform moved? v] to [0]\nrepeat (length of [block xs v])\n    if <not <(item (renders ID) of [move x v]) = [N]>> then\n        go to x: (0) y: (0)\n        if <(item (renders ID) of [move id v]) = [1]> then\n            point in direction (item (renders ID) of [move direction v])\n        else\n            point in direction ((item (renders ID) of [move direction v]) - (180))\n        end\n        move (item (renders ID) of [move speed v]) steps\n        replace item (renders ID) of [render x v] with ((item (renders ID) of [render x v]) + (x position))\n        set [dada v] to [0]\n        if <not <(item (renders ID) of [move y v]) = (item (renders ID) of [blocks ys v])>> then\n            replace item (renders ID) of [render y v] with ((item (renders ID) of [render y v]) + (y position))\n            if <<((-12) - (scroll y)) > (((item (renders ID) of [render y v]) - (item (renders ID) of [block heights v])) - (5))> and <(((item (renders ID) of [render y v]) + (item (renders ID) of [block heights v])) + (5)) > ((-12) - (scroll y))>> then\n                if <<((0) - (scroll x)) > (((item (renders ID) of [render x v]) - (item (renders ID) of [blocks widths v])) - (10))> and <(((item (renders ID) of [move x v]) + (item (renders ID) of [blocks widths v])) + (10)) > ((0) - (scroll x))>> then\n                    if <(item (renders ID) of [block types v]) = [1]> then\n                        change [scroll y v] by ((y position) * (-1))\n                        change [scroll x v] by ((x position) * (-1))\n                        set [dada v] to [1]\n                        if <not <(x position) = [0]>> then\n                            set [platform moved? v] to (x position)\n                        end\n                    end\n                end\n            end\n        end\n        if <<(((-12) - ((item (renders ID) of [block heights v]) / (1))) - (scroll y)) > (((item (renders ID) of [render y v]) - (item (renders ID) of [block heights v])) - (5))> and <(((item (renders ID) of [render y v]) + (item (renders ID) of [block heights v])) + (5)) > (((-12) - ((item (renders ID) of [block heights v]) / (1))) - (scroll y))>> then\n            if <<((0) - (scroll x)) > (((item (renders ID) of [render x v]) - (item (renders ID) of [blocks widths v])) - (10))> and <(((item (renders ID) of [move x v]) + (item (renders ID) of [blocks widths v])) + (10)) > ((0) - (scroll x))>> then\n                if <(dada) = [0]> then\n                    if <(item (renders ID) of [block types v]) = [1]> then\n                        change [scroll x v] by ((x position) * (-1))\n                        if <not <(item (renders ID) of [blocks ys v]) = (item (renders ID) of [move y v])>> then\n                            change [scroll y v] by ((y position) * (-1))\n                        end\n                        if <not <(x position) = [0]>> then\n                            set [platform moved? v] to (x position)\n                        end\n                    end\n                end\n            end\n        end\n        if <not <(item (renders ID) of [move y v]) = (item (renders ID) of [blocks ys v])>> then\n            if <(item (renders ID) of [move y v]) > (item (renders ID) of [blocks ys v])> then\n                if <(item (renders ID) of [render y v]) > (item (renders ID) of [move y v])> then\n                    replace item (renders ID) of [move id v] with [2]\n                    replace item (renders ID) of [render x v] with (item (renders ID) of [move x v])\n                    replace item (renders ID) of [render y v] with (item (renders ID) of [move y v])\n                else\n                    if <(item (renders ID) of [blocks ys v]) > (item (renders ID) of [render y v])> then\n                        replace item (renders ID) of [move id v] with [1]\n                        replace item (renders ID) of [render x v] with (item (renders ID) of [block xs v])\n                        replace item (renders ID) of [render y v] with (item (renders ID) of [blocks ys v])\n                    end\n                end\n            else\n                if <(item (renders ID) of [move y v]) > (item (renders ID) of [render y v])> then\n                    replace item (renders ID) of [move id v] with [2]\n                    replace item (renders ID) of [render x v] with (item (renders ID) of [move x v])\n                    replace item (renders ID) of [render y v] with (item (renders ID) of [move y v])\n                else\n                    if <(item (renders ID) of [render y v]) > (item (renders ID) of [blocks ys v])> then\n                        replace item (renders ID) of [move id v] with [1]\n                        replace item (renders ID) of [render x v] with (item (renders ID) of [block xs v])\n                        replace item (renders ID) of [render y v] with (item (renders ID) of [blocks ys v])\n                    end\n                end\n            end\n        else\n            if <(item (renders ID) of [move x v]) > (item (renders ID) of [block xs v])> then\n                if <(item (renders ID) of [render x v]) > (item (renders ID) of [move x v])> then\n                    replace item (renders ID) of [move id v] with [2]\n                    replace item (renders ID) of [render x v] with (item (renders ID) of [move x v])\n                    replace item (renders ID) of [render y v] with (item (renders ID) of [move y v])\n                else\n                    if <(item (renders ID) of [block xs v]) > (item (renders ID) of [render x v])> then\n                        replace item (renders ID) of [move id v] with [1]\n                        replace item (renders ID) of [render x v] with (item (renders ID) of [block xs v])\n                        replace item (renders ID) of [render y v] with (item (renders ID) of [blocks ys v])\n                    end\n                end\n            else\n                if <(item (renders ID) of [move x v]) > (item (renders ID) of [render x v])> then\n                    replace item (renders ID) of [move id v] with [2]\n                    replace item (renders ID) of [render x v] with (item (renders ID) of [move x v])\n                    replace item (renders ID) of [render y v] with (item (renders ID) of [move y v])\n                else\n                    if <(item (renders ID) of [render x v]) > (item (renders ID) of [block xs v])> then\n                        replace item (renders ID) of [move id v] with [1]\n                        replace item (renders ID) of [render x v] with (item (renders ID) of [block xs v])\n                        replace item (renders ID) of [render y v] with (item (renders ID) of [blocks ys v])\n                    end\n                end\n            end\n        end\n    end\n    change [renders id v] by (1)\nend\npoint in direction (90)\n\ndefine check direction\ngo to x: ((item (length of [block xs v]) of [block xs v]) + (scroll x)) y: ((item (length of [blocks ys v]) of [blocks ys v]) + (scroll x))\npoint towards (mouse-pointer v)\nadd (direction) to [move direction v]\nadd [1] to [move id v]\npoint in direction (90)\n\ndefine add end of platform\ncheck direction\nadd ((mouse x) - (scroll x)) to [move x v]\nadd ((mouse y) - (scroll y)) to [move y v]\nadd [1] to [move speed v]\nset [placing moving v] to [1]\n\ndefine speed selector\nset [clickekd ok? v] to [0]\nset [can click? v] to [0]\n\ndefine spd selector\nset pen color to (#000000)\nset pen size to (2.5)\nerase all\ngo to x: (-205) y: (170)\nword [select moving platform]\ngo to x: (-205) y: (125)\nword [speed]\nif <(touching create) = [1]> then\n    set pen color to (#acfff3)\nelse\n    set pen color to (#d2d2d2)\nend\nset pen size to (50)\ngo to x: (-50) y: (-90)\npen down\nchange x by (100)\npen up\ngo to x: (-5) y: (-75)\nset pen color to (#000000)\nset pen size to (2.5)\nword [ok]\ngo to x: (((length of (speed)) * (-10)) + ((length of (speed)) * (5))) y: (0)\nword (speed)\ngo to x: (190) y: (20)\nset pen size to (20)\nif <(item (1) of [touching arrows v]) = [0]> then\n    set pen (brightness v) to (0)\nelse\n    set pen (brightness v) to (30)\nend\npen down\nchange y by (-40)\ngo to x: ((x position) + (20)) y: ((y position) + (20))\ngo to x: ((x position) + (-20)) y: ((y position) + (20))\npen up\ngo to x: (-190) y: (20)\nif <(item (2) of [touching arrows v]) = [0]> then\n    set pen (brightness v) to (0)\nelse\n    set pen (brightness v) to (30)\nend\npen down\nchange y by (-40)\ngo to x: ((x position) + (-20)) y: ((y position) + (20))\ngo to x: ((x position) + (20)) y: ((y position) + (20))\npen up\nif <(can click?) = [1]> then\n    show\n    switch costume to (costume20 v)\n    go to x: (232) y: (7)\n    if <touching (mouse-pointer v)?> then\n        replace item (1) of [touching arrows v] with [1]\n        if <mouse down?> then\n            if <(item (3) of [touching arrows v]) = [0]> then\n                change [speed v] by (0.1)\n                set [speed v] to ((round ((speed) * (10))) / (10))\n                replace item (3) of [touching arrows v] with [1]\n            end\n        end\n    else\n        replace item (1) of [touching arrows v] with [0]\n    end\n    switch costume to (costume21 v)\n    go to x: (-170) y: (7)\n    if <touching (mouse-pointer v)?> then\n        replace item (2) of [touching arrows v] with [1]\n        if <mouse down?> then\n            if <(item (4) of [touching arrows v]) = [0]> then\n                change [speed v] by (-0.1)\n                set [speed v] to ((round ((speed) * (10))) / (10))\n                replace item (4) of [touching arrows v] with [1]\n            end\n        end\n    else\n        replace item (2) of [touching arrows v] with [0]\n    end\n    switch costume to (costume22 v)\n    go to x: (36) y: (-78)\n    if <touching (mouse-pointer v)?> then\n        set [touching create v] to [1]\n        if <mouse down?> then\n            set [clickekd ok? v] to [1]\n        end\n    else\n        set [touching create v] to [0]\n    end\n    hide\nend\nif <not <mouse down?>> then\n    replace item (3) of [touching arrows v] with [0]\n    replace item (4) of [touching arrows v] with [0]\n    set [can click? v] to [1]\nend\nset [last mouse v] to [1]\n\n
You can share your level at:\nhttps://scratch.mit.edu/discuss/topic/405102/\nWelcome to Pen Platformer Maker!\nHere you can make pen platformer maker levels, and save them.\nClick create to make your level and play is to load levels from level codes. To save your level win it.\nUse sliders to set blocks sizes and colors to set colors of blocks that you will place.\nTo select whole save code you need to triple click it!\nTo delete block hold e + click block you want to delete.\nTo place moving platform (moving platforms can sometimes be buggy)  hold d + click then it will open menu where you will select moving speed. If your moving platform is buggy try to delate it and place again.\n\nBlocks:\nBlue = ground.\nRed = teleports you to spawn.\nYellow = Makes you bounce high.\nGreen = Win\n\nI didn't find any bugs but if you found, you can comment this bug and i'll try to fix it.\n\nHave fun! :)