90% Pen Platformer

Instructions: Move with arrow keys\n

@Stage\n\n@GAMEDRAWING\n\npen up\ngo to x: (-465) y: (-100)\npen up\nset pen color to (#924d4d)\nchange y by (-50)\npen down\nset pen size to (70)\nmove (930) steps\npen up\nmove (-200) steps\nset x to (200)\nset pen color to (#613131)\nCreative\npen up\ngo to x: (-465) y: (-70)\npen down\nset pen color to (#49f833)\nset pen size to (30)\ngo to x: (465) y: (-70)\npen up\nset pen color to (#42c528)\npen down\nchange y by (-30)\nmove (-930) steps\npen up\n\ndefine Creative\nrepeat (7)\n    set y to (-120)\n    set pen size to (50)\n    pen down\n    repeat (10)\n        change y by (-20)\n        change x by (-0)\n    end\n    move (-80) steps\n    change pen (color v) by (2)\nend\n\nrepeat (20)\n\ndefine Draw Line from (x1) (y1) to (x2) (y2) size (size)\nswitch costume to (kostüm1 v)\npen up\nset pen size to (size)\ngo to x: (x1) y: (y1)\npen down\ngo to x: (x2) y: (y2)\npen up\n\nwhen flag clicked\nset [level v] to [1]\nforever\n    erase all\n    if <(Level) = [1]> then\n        set pen color to (#d63838)\n        Draw Line from [-20] [-100] to [0] [-50] size [10]\n        Draw Line from [20] [-100] to [0] [-50] size [10]\n        Draw Line from [-15] [-90] to [15] [-90] size [10]\n        set pen color to (#ff0000)\n        Draw Line from [-20] [-100] to [0] [-50] size [4]\n        Draw Line from [20] [-100] to [0] [-50] size [4]\n        Draw Line from [-15] [-90] to [15] [-90] size [4]\n        set pen color to (#4c9baf)\n        Draw Line from [-300] [-100] to [300] [-100] size [13]\n        Draw Line from [-235] [-100] to [-235] [-175] size [13]\n        Draw Line from [235] [-175] to [235] [-100] size [13]\n        Draw Line from [-235] [-175] to [235] [-175] size [13]\n        set pen color to (#5fc3de)\n        Draw Line from [-300] [-100] to [300] [-100] size [5]\n        Draw Line from [-235] [-100] to [-235] [-175] size [5]\n        Draw Line from [235] [-175] to [235] [-100] size [5]\n        Draw Line from [-235] [-175] to [235] [-175] size [5]\n    end\n    if <(Level) = [2]> then\n        set pen color to (#4c9baf)\n        Draw Line from [-300] [-100] to [-110] [-100] size [13]\n        Draw Line from [110] [-100] to [300] [-100] size [13]\n        Draw Line from [-235] [-100] to [-235] [-175] size [13]\n        Draw Line from [-235] [-175] to [235] [-175] size [13]\n        Draw Line from [235] [-175] to [235] [-100] size [13]\n        Draw Line from [-110] [-100] to [-110] [-200] size [13]\n        Draw Line from [110] [-100] to [110] [-200] size [13]\n        set pen color to (#5fc3de)\n        Draw Line from [-300] [-100] to [-110] [-100] size [5]\n        Draw Line from [110] [-100] to [300] [-100] size [5]\n        Draw Line from [-235] [-100] to [-235] [-175] size [5]\n        Draw Line from [-235] [-175] to [235] [-175] size [5]\n        Draw Line from [235] [-175] to [235] [-100] size [5]\n        Draw Line from [-110] [-100] to [-110] [-173] size [5]\n        Draw Line from [110] [-100] to [110] [-173] size [5]\n        set pen color to (#d63838)\n        Draw Line from [-100] (Y Lava) to [100] (Y Lava) size [13]\n        Draw Line from [-100] (Y Lava) to [-100] [-165] size [13]\n        Draw Line from [-100] [-165] to [100] [-165] size [13]\n        Draw Line from [100] (Y Lava) to [100] [-165] size [13]\n        set pen color to (#ff0000)\n        Draw Line from [-100] (Y Lava) to [100] (Y Lava) size [5]\n        Draw Line from [-100] (Y Lava) to [-100] [-165] size [5]\n        Draw Line from [-100] [-165] to [100] [-165] size [5]\n        Draw Line from [100] (Y Lava) to [100] [-165] size [5]\n    end\n    if <(Level) = [3]> then\n        set pen color to (#4c9baf)\n        Draw Line from [-300] [-100] to [-110] [-100] size [13]\n        Draw Line from [110] [-100] to [300] [-100] size [13]\n        Draw Line from [-235] [-100] to [-235] [-175] size [13]\n        Draw Line from [-235] [-175] to [235] [-175] size [13]\n        Draw Line from [235] [-175] to [235] [-100] size [13]\n        Draw Line from [-110] [-100] to [-110] [0] size [13]\n        Draw Line from [110] [-100] to [110] [0] size [13]\n        Draw Line from [110] [0] to [-110] [0] size [13]\n        set pen color to (#5fc3de)\n        Draw Line from [-300] [-100] to [-110] [-100] size [5]\n        Draw Line from [110] [-100] to [300] [-100] size [5]\n        Draw Line from [-235] [-100] to [-235] [-175] size [5]\n        Draw Line from [-235] [-175] to [235] [-175] size [5]\n        Draw Line from [235] [-175] to [235] [-100] size [5]\n        Draw Line from [-110] [-100] to [-110] [0] size [5]\n        Draw Line from [110] [-100] to [110] [0] size [5]\n        Draw Line from [110] [0] to [-110] [0] size [5]\n        set pen color to (#d63838)\n        Draw Line from [-20] [10] to [0] [50] size [10]\n        Draw Line from [20] [10] to [0] [50] size [10]\n        Draw Line from [-20] [10] to [20] [10] size [10]\n        set pen color to (#ff0000)\n        Draw Line from [-20] [10] to [0] [50] size [4]\n        Draw Line from [20] [10] to [0] [50] size [4]\n        Draw Line from [-20] [10] to [20] [10] size (Level)\n    end\n    if <(Level) = [4]> then\n        set pen color to (#d63838)\n        Draw Line from [30] [-90] to [0] [-50] size [10]\n        Draw Line from [-30] [-90] to [0] [-50] size [10]\n        Draw Line from [-30] [-90] to [30] [-90] size [10]\n        set pen color to (#ff0000)\n        Draw Line from [30] [-90] to [0] [-50] size [4]\n        Draw Line from [-30] [-90] to [-0] [-50] size [4]\n        Draw Line from [-30] [-90] to [30] [-90] size [4]\n        set pen color to (#4c9baf)\n        Draw Line from [-300] [-100] to [300] [-100] size [13]\n        Draw Line from [-235] [-100] to [-235] [-175] size [13]\n        Draw Line from [235] [-175] to [235] [-100] size [13]\n        Draw Line from [-235] [-175] to [235] [-175] size [13]\n        set pen color to (#5fc3de)\n        Draw Line from [-300] [-100] to [300] [-100] size [5]\n        Draw Line from [-235] [-100] to [-235] [-175] size [5]\n        Draw Line from [235] [-175] to [235] [-100] size [5]\n        Draw Line from [-235] [-175] to [235] [-175] size [5]\n    end\n    if <(Level) = [5]> then\n        set pen color to (#d63838)\n        Draw Line from [50] [-90] to [0] [-50] size [10]\n        Draw Line from [-50] [-90] to [0] [-50] size [10]\n        Draw Line from [-50] [-90] to [50] [-90] size [10]\n        set pen color to (#ff0000)\n        Draw Line from [50] [-90] to [0] [-50] size [4]\n        Draw Line from [-50] [-90] to [-0] [-50] size [4]\n        Draw Line from [-50] [-90] to [50] [-90] size [4]\n        set pen color to (#4c9baf)\n        Draw Line from [-300] [-100] to [300] [-100] size [13]\n        Draw Line from [-235] [-100] to [-235] [-175] size [13]\n        Draw Line from [235] [-175] to [235] [-100] size [13]\n        Draw Line from [-235] [-175] to [235] [-175] size [13]\n        set pen color to (#5fc3de)\n        Draw Line from [-300] [-100] to [300] [-100] size [5]\n        Draw Line from [-235] [-100] to [-235] [-175] size [5]\n        Draw Line from [235] [-175] to [235] [-100] size [5]\n        Draw Line from [-235] [-175] to [235] [-175] size [5]\n    end\n    if <(Level) = [6]> then\n        set pen color to (#d63838)\n        Draw Line from [30] [-90] to [0] [-50] size [10]\n        Draw Line from [-30] [-90] to [0] [-50] size [10]\n        Draw Line from [-30] [-90] to [30] [-90] size [10]\n        set pen color to (#ff0000)\n        Draw Line from [30] [-90] to [0] [-50] size [4]\n        Draw Line from [-30] [-90] to [-0] [-50] size [4]\n        Draw Line from [-30] [-90] to [30] [-90] size [4]\n        set pen color to (#d63838)\n        Draw Line from [90] [-90] to [60] [-50] size [10]\n        Draw Line from [30] [-90] to [60] [-50] size [10]\n        Draw Line from [30] [-90] to [90] [-90] size [10]\n        set pen color to (#ff0000)\n        Draw Line from [90] [-90] to [60] [-50] size [4]\n        Draw Line from [30] [-90] to [60] [-50] size [4]\n        Draw Line from [-30] [-90] to [90] [-90] size [4]\n        set pen color to (#4c9baf)\n        Draw Line from [-300] [-100] to [300] [-100] size [13]\n        Draw Line from [-235] [-100] to [-235] [-175] size [13]\n        Draw Line from [235] [-175] to [235] [-100] size [13]\n        Draw Line from [-235] [-175] to [235] [-175] size [13]\n        set pen color to (#5fc3de)\n        Draw Line from [-300] [-100] to [300] [-100] size [5]\n        Draw Line from [-235] [-100] to [-235] [-175] size [5]\n        Draw Line from [235] [-175] to [235] [-100] size [5]\n        Draw Line from [-235] [-175] to [235] [-175] size [5]\n    end\n    \n    if <(Level) = [7]> then\n        set pen color to (#4c9baf)\n        Draw Line from [-300] [-100] to [300] [-100] size [13]\n        Draw Line from [-235] [-100] to [-235] [-175] size [13]\n        Draw Line from [-235] [-175] to [235] [-175] size [13]\n        Draw Line from [235] [-175] to [235] [200] size [13]\n        Draw Line from [150] [-99] to [150] [200] size [13]\n        Draw Line from [150] [175] to [250] [175] size [13]\n        set pen color to (#5fc3de)\n        Draw Line from [-300] [-100] to [300] [-100] size [5]\n        Draw Line from [-235] [-100] to [-235] [-175] size [5]\n        Draw Line from [-235] [-175] to [235] [-175] size [5]\n        Draw Line from [235] [-175] to [235] [200] size [5]\n        Draw Line from [150] [-99] to [150] [200] size [5]\n        Draw Line from [150] [175] to [250] [175] size [5]\n        point in direction (90)\n        BUCHSTABE [E] zu [-100] [0] size [400]\n        BUCHSTABE [N] zu [-50] [0] size [400]\n        BUCHSTABE [D] zu [10] [0] size [400]\n    end\n    set pen color to (#1d74f0)\n    Draw Line from ((x) + (-10)) ((y) + (10)) to ((x) + (10)) ((y) + (10)) size [10]\n    Draw Line from ((x) + (-10)) ((y) + (-10)) to ((x) + (10)) ((y) + (-10)) size [10]\n    Draw Line from ((x) + (-10)) ((y) + (10)) to ((x) + (-10)) ((y) + (-10)) size [10]\n    Draw Line from ((x) + (10)) ((y) + (-10)) to ((x) + (10)) ((y) + (10)) size [10]\n    set pen color to (#3c99f0)\n    Draw Line from ((x) + (-10)) ((y) + (10)) to ((x) + (10)) ((y) + (10)) size [2]\n    Draw Line from ((x) + (-10)) ((y) + (-10)) to ((x) + (10)) ((y) + (-10)) size [2]\n    Draw Line from ((x) + (-10)) ((y) + (10)) to ((x) + (-10)) ((y) + (-10)) size [2]\n    Draw Line from ((x) + (10)) ((y) + (-10)) to ((x) + (10)) ((y) + (10)) size [2]\nend\n\ndefine BUCHSTABE (number or text) zu (x1) (y1) size (size)\npen up\nset size to (size) %\nswitch costume to (number or text)\ngo to x: (x1) y: (y1)\nstamp\n\nwhen flag clicked\nset [y lava v] to [-100]\nforever\n    repeat (40)\n        change [y lava v] by (-0.8)\n    end\n    repeat (40)\n        change [y lava v] by (0.8)\n    end\nend\n\nif <(Level) = [5]> then\n\n@Player\n\nwhen flag clicked\nset [speed y v] to [0]\nset rotation style [left-right v]\nset size to (40) %\ngo to x: (-200) y: (0)\nshow\nshow\nhide\nshow\nhide\nforever\n    change [speed y v] by (-0.5)\n    if <<key (a v) pressed?> or <<key (left arrow v) pressed?> or <<mouse down?> and <(x position) > (mouse x)>>>> then\n        point in direction (-90)\n        change [speed x v] by (-1)\n    end\n    if <<key (d v) pressed?> or <<<mouse down?> and <(mouse x) > (x position)>> or <key (right arrow v) pressed?>>> then\n        point in direction (90)\n        change [speed x v] by (1)\n    end\n    set [speed x v] to ((Speed X) * (0.9))\n    change x by (Speed X)\n    if <touching color (#4c9baf)?> then\n        change y by (1)\n        if <touching color (#4c9baf)?> then\n            change y by (1)\n            if <touching color (#4c9baf)?> then\n                change y by (1)\n            end\n        end\n    end\n    change y by (Speed Y)\n    if <touching color (#4c9baf)?> then\n        change y by ((Speed Y) * (-1))\n        set [speed y v] to [0]\n    end\n    change y by (-0.5)\n    if <<<key (up arrow v) pressed?> or <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> and <touching color (#4c9baf)?>> then\n        set [speed y v] to [8]\n    end\n    change y by (0.5)\n    if <touching color (#4c9baf)?> then\n        change y by (1)\n        if <touching color (#4c9baf)?> then\n            change y by (1)\n            if <touching color (#4c9baf)?> then\n                change y by (1)\n                if <touching color (#4c9baf)?> then\n                    change y by (-6)\n                    change x by ((Speed X) * (-1))\n                    Wall Jump\n                end\n            end\n        end\n    end\nend\n\ndefine Wall Jump\nif <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <(y position) < (mouse y)>>> then\n    set [speed y v] to [8]\n    if <(Speed X) > [0]> then\n        set [speed x v] to [-8]\n    else\n        set [speed x v] to [8]\n    end\nelse\n    set [speed x v] to [0]\nend\n\nwhen flag clicked\nset [ich bin hacker v] to [1]\nforever\n    if <(x position) > [200]> then\n        broadcast (Next v)\n        go to x: (-200) y: (29)\n        change [ich bin hacker v] by (1)\n    end\nend\n\nwhen flag clicked\nforever\n    if <touching color (#d63838)?> then\n        go to x: (-200) y: (0)\n    end\nend\n\nwhen flag clicked\nforever\n    set [level v] to (ICH BIN HACKER)\nend\n\nwhen flag clicked\nforever\n    set [x v] to (x position)\n    set [y v] to (y position)\nend\n\n@Sprite1\n\nwhen flag clicked\nhide\n\n