Pen Platformer (99% pen)
@Stage\n\nwhen flag clicked\nforever\n    play sound [Beepbox1 v] until done\nend\n\n@Player\n\nwhen flag clicked\nset [highscore this month v] to [71]\nforever\n    if <key (r v) pressed?> then\n        go to x: (-235) y: (-120)\n    end\nend\n\nwhen flag clicked\ngo to x: (-203) y: (-24)\nset [level v] to [1]\nshow\nforever\n    go to [front v] layer\n    set [y v] to [0]\n    set [x v] to [0]\n    forever\n        change [y v] by (-1)\n        set [x v] to ((x) * (0.9))\n        if <(flying) = [off]> then\n            if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n                switch costume to (left v)\n                change [x v] by (-1)\n            end\n            if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n                switch costume to (right1 v)\n                change [x v] by (1)\n            end\n            change x by (x)\n            if <touching color (#000000)?> then\n                change y by (1)\n            end\n            if <touching color (#000000)?> then\n                change y by (1)\n            end\n            if <touching color (#000000)?> then\n                change y by (1)\n            end\n            if <touching color (#000000)?> then\n                change y by (1)\n            end\n            if <touching color (#000000)?> then\n                change y by (-4)\n                change x by ((x) * (-1))\n                if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n                    set [y v] to [10]\n                    if <([abs v] of (x) ) = (x)> then\n                        set [x v] to [-4]\n                    else\n                        set [x v] to [4]\n                    end\n                else\n                    set [x v] to [0]\n                end\n            end\n            change y by (y)\n            if <touching color (#000000)?> then\n                change y by ((y) - ((y) * (2)))\n                set [y v] to [0]\n            end\n            change y by (-1)\n            if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> and <touching color (#000000)?>> then\n                set [y v] to [15]\n            end\n            change y by (1)\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <[235] < (x position)> then\n        change [level v] by (1)\n        broadcast (next level v)\n        go to x: (-235) y: (-120)\n    end\nend\n\nif <(level) < [8]> then\nif <(level) = [8]> then\n    go to x: (-207) y: (20)\nend\nif <(level) > [8]> then\n    go to x: (-207) y: (-120)\nend\n\nwhen flag clicked\nforever\n    if <touching color (#ff0000)?> then\n        if <(flying) = [off]> then\n            go to x: (-235) y: (-120)\n            broadcast (red v)\n        end\n    end\nend\n\nif <(level) < [8]> then\nif <(level) = [8]> then\n    go to x: (-207) y: (20)\nend\nif <(level) > [8]> then\n    go to x: (-207) y: (-120)\nend\n\nwhen I receive [end v]\nhide\n\nif <(level) < [7]> then\n    go to x: (-203) y: (-120)\nend\nif <(level) = [7]> then\n    go to x: (-203) y: (20)\nend\nif <(level) > [7]> then\n    go to x: (-203) y: (-120)\nend\n\nwhen I receive [skip v]\nbroadcast (next level v)\ngo to x: (-235) y: (-120)\n\nwhen flag clicked\npoint in direction (90)\nforever\n    if <touching color (#2ee400)?> then\n        set [y v] to [20]\n    end\nend\n\nwhen flag clicked\nswitch costume to (player v)\nforever\n    if <key (1 v) pressed?> then\n        switch costume to (player v)\n    end\n    if <key (2 v) pressed?> then\n        switch costume to (cat v)\n    end\n    if <key (3 v) pressed?> then\n        switch costume to (centaur v)\n    end\n    if <key (4 v) pressed?> then\n        switch costume to (red ball v)\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [4]> then\n        if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n            turn right (7) degrees\n        end\n        if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n            turn left (7) degrees\n        end\n    end\nend\n\nwhen flag clicked\n\ndefine spawn immunity\nbroken\n\nset [spawn immunity v] to [1]\nwait (1) seconds\nset [spawn immunity v] to [2]\n\nspawn immunity\n\nspawn immunity\n\nspawn immunity\n\nspawn immunity\n\ndefine broken\n\nwhen I receive [win v]\nif <<(time taken \(First 20 lvls\)) < (☁ Highscore \(first 20 lvls\))> and <(Skipped a level?) = [no]>> then\n    set [☁ highscore \(first 20 lvls\) v] to (time taken \(First 20 lvls\))\nend\n\nwhen flag clicked\nset [time taken \(first 20 lvls\) v] to [0]\nset [time taken \(all lvls\) v] to [0]\nrepeat until <(Level) = [20]>\n    change [time taken \(first 20 lvls\) v] by (1)\n    wait (1) seconds\nend\n\nwhen flag clicked\npoint in direction (90)\nforever\n    if <touching color (#0043ff)?> then\n        set [y v] to [10]\n        set [x v] to [20]\n    end\nend\n\nwhen flag clicked\nforever\n    if <touching color (#ffac00)?> then\n        repeat until <<not <touching color (#ffac00)?>> or <<key (a v) pressed?> or <key (d v) pressed?>>>\n            set [x v] to [4]\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(flying) = [on]> or <(speed) = [on]>> then\n        if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n            change x by (-15)\n        end\n        if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n            change x by (15)\n        end\n    end\n    if <(flying) = [on]> then\n        if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n            change y by (15)\n        end\n        if <key (down arrow v) pressed?> then\n            change y by (-15)\n        end\n    end\nend\n\nwhen flag clicked\nset [flying v] to [off]\nforever\n    if <<<key (f v) pressed?> and <<[super admin v] contains (username)?> and <(flying) = [off]>>> and <(hacks) = [on]>> then\n        repeat until <not <key (f v) pressed?>>\n            set [flying v] to [on1]\n        end\n        set [flying v] to [on]\n    end\nend\n\nwhen flag clicked\nset [flying v] to [off]\nforever\n    if <<key (f v) pressed?> and <<[super admin v] contains (username)?> and <(flying) = [on]>>> then\n        repeat until <not <key (f v) pressed?>>\n            set [flying v] to [off1]\n        end\n        set [flying v] to [off]\n    end\nend\n\nwhen flag clicked\nset [speed v] to [off]\nforever\n    if <<<key (g v) pressed?> and <<[super admin v] contains (username)?> and <(speed) = [off]>>> and <(hacks) = [on]>> then\n        repeat until <not <key (g v) pressed?>>\n            set [speed v] to [on1]\n        end\n        set [speed v] to [on]\n    end\nend\n\nwhen flag clicked\nset [speed v] to [off]\nforever\n    if <<key (g v) pressed?> and <<[super admin v] contains (username)?> and <(speed) = [on]>>> then\n        repeat until <not <key (g v) pressed?>>\n            set [speed v] to [off1]\n        end\n        set [speed v] to [off]\n    end\nend\n\nwhen flag clicked\nrepeat until <(Level) = [27]>\n    change [time taken \(all lvls\) v] by (1)\n    wait (1) seconds\nend\n\nwhen I receive [win v]\nif <<(time taken \(all lvls\)) < (☁ Highscore)> and <(Skipped a level?) = [no]>> then\n    set [☁ highscore v] to (time taken \(all lvls\))\nend\n\nif  then\nend\n\nwhen I receive [activate hacks v]\nforever\n    add (username) to [blacklist v]\nend\n\n@Win screen\n\nwhen flag clicked\nhide\n\nwhen I receive [win v]\nshow\ngo to x: (0) y: (0)\ngo [forward v] (10000000000) layers\n\n@Thumbnail\n\nwhen flag clicked\nhide variable [level v]\nforever\n    go to x: (0) y: (0)\n    set [ghost v] effect to (100)\n    go to [front v] layer\nend\n\n@Ground\n\nwhen flag clicked\nset [ghost v] effect to (100)\nset [level v] to [1]\nset pen size to (15)\nerase all\npen up\ngo to x: (0) y: (0)\nDraw ground from (-240) (-155) to (240) (-155) size (45)\n\nwhen I receive [next level v]\nchange [level v] by (1)\nforever\n    if <(Level) = [2]> then\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw lava from (-120) (-140) to (120) (-140) size (15)\n        Draw lava from (118) (-140) to (122) (-140) size (15)\n        Draw ground from (0) (-40) to (20) (-40) size (15)\n    end\n    if <(Level) = [3]> then\n        erase all\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw ground from (70) (-140) to (70) (100) size (15)\n        Draw ground from (70) (-60) to (50) (-60) size (15)\n        Draw ground from (-45) (20) to (-55) (20) size (15)\n        Draw ground from (-55) (20) to (-55) (180) size (15)\n        Draw lava from (75) (90) to (75) (-130) size (7)\n        Draw lava from (60) (-130) to (60) (-70) size (7)\n    end\n    if <(Level) = [4]> then\n        erase all\n        Draw ground from (-240) (-50) to (-230) (-50) size (15)\n        Draw ground from (-60) (0) to (0) (0) size (15)\n        Draw lava from (-75) (-5) to (-160) (-45) size (10)\n        Draw lava from (210) (-155) to (210) (30) size (10)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw lava from (210) (55) to (210) (95) size (10)\n        Draw ground from (170) (55) to (240) (55) size (15)\n    end\n    if <(Level) = [5]> then\n        erase all\n        Draw lava from (-240) (-50) to (-140) (-50) size (10)\n        Draw lava from (-85) (-130) to (240) (-130) size (10)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw ground from (-85) (-155) to (-85) (0) size (15)\n        Draw ground from (-85) (0) to (-190) (0) size (15)\n        Draw ground from (-85) (-60) to (-100) (-60) size (15)\n        Draw ground from (-140) (-40) to (-240) (-40) size (15)\n        Draw ground from (90) (40) to (180) (40) size (15)\n    end\n    if <(Level) = [6]> then\n        erase all\n        Draw lava from (-185) (-55) to (-185) (-135) size (15)\n        Draw ground from (240) (-170) to (240) (135) size (15)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw ground from (-175) (-135) to (-175) (90) size (15)\n        Draw ground from (-175) (-45) to (-195) (-45) size (15)\n        Draw ground from (-240) (0) to (-220) (0) size (15)\n        Draw lava from (-125) (95) to (-1) (95) size (15)\n        Draw ground from (-175) (90) to (0) (90) size (15)\n        Draw lava from (10) (10) to (25) (10) size (10)\n        Draw lava from (90) (10) to (70) (10) size (10)\n        Draw ground from (0) (90) to (0) (0) size (15)\n        Draw ground from (0) (0) to (100) (0) size (15)\n        Draw ground from (100) (0) to (100) (90) size (15)\n        Draw ground from (100) (90) to (240) (135) size (15)\n    end\n    if <(Level) = [7]> then\n        erase all\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw ground from (-240) (0) to (-180) (0) size (15)\n        Draw ground from (0) (0) to (5) (0) size (15)\n        Draw ground from (175) (0) to (180) (0) size (15)\n        Draw lava from (-240) (-135) to (240) (-135) size (15)\n        Draw bounce from [-240] [-135] to [0] [-135] size [15]\n    end\n    if <(Level) = [8]> then\n        erase all\n        Draw lava from (230) (-155) to (230) (100) size (15)\n        Draw lava from (-180) (-135) to (180) (-135) size (15)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        go to (-130) (-75) and make a square (15) Pen size (4)\n        go to (0) (0) and make a square (15) Pen size (4)\n        Draw ground from (240) (-155) to (240) (130) size (15)\n        go to (-130) (65) and make a square (15) Pen size (4)\n        go to (0) (125) and make a square (15) Pen size (4)\n        go to (120) (130) and make a square (15) Pen size (4)\n    end\n    if <(Level) = [9]> then\n        erase all\n        Draw lava from (100) (-130) to (125) (-130) size (10)\n        Draw lava from (-130) (-135) to (-130) (-70) size (15)\n        Draw lava from (-35) (-135) to (-35) (-70) size (15)\n        Draw lava from (55) (-135) to (55) (-70) size (15)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw ground from (135) (-155) to (135) (10) size (15)\n        Draw ground from (135) (-35) to (115) (-42) size (15)\n        Draw ground from (135) (10) to (165) (10) size (15)\n        Draw ground from (165) (10) to (165) (60) size (15)\n        Draw ground from (165) (60) to (240) (60) size (15)\n        Draw lava from (-240) (143) to (240) (143) size (10)\n        Draw ground from (-240) (150) to (240) (150) size (15)\n    end\n    if <(Level) = [10]> then\n        Draw lava from (100) (-130) to (125) (-130) size (10)\n        Draw lava from (-130) (-135) to (-130) (-70) size (15)\n        Draw lava from (-35) (-135) to (-35) (-70) size (15)\n        Draw lava from (55) (-135) to (55) (-70) size (15)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw ground from (135) (-155) to (135) (10) size (15)\n        Draw ground from (135) (-35) to (115) (-42) size (15)\n        Draw ground from (135) (10) to (165) (10) size (15)\n        Draw ground from (165) (10) to (165) (60) size (15)\n        Draw ground from (165) (60) to (240) (60) size (15)\n        Draw lava from (-240) (143) to (240) (143) size (10)\n        Draw ground from (-240) (150) to (240) (150) size (15)\n        erase all\n        Draw lava from (85) (92) to (170) (92) size (10)\n        Draw lava from (-80) (4) to (-120) (4) size (15)\n        Draw lava from (-44) (0) to (-44) (-100) size (10)\n        Draw lava from (65) (-50) to (65) (-135) size (15)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        go to (-100) (-50) and make a square (100) Pen size (15)\n        Draw ground from (70) (-135) to (70) (80) size (15)\n        Draw ground from (70) (-50) to (50) (-50) size (15)\n        Draw ground from (-240) (0) to (-150) (0) size (15)\n        go to (-200) (65) and make a square (10) Pen size (15)\n        Draw ground from (20) (85) to (240) (85) size (15)\n    end\n    if <(Level) = [11]> then\n        erase all\n        set [part v] to [2]\n        if <(switch) = [1]> then\n            erase all\n            Draw ground from (-240) (-155) to (0) (-155) size (45)\n            Draw lava from (240) (-155) to (0) (-155) size (45)\n        else\n            erase all\n            Draw ground from (240) (-155) to (0) (-155) size (45)\n            Draw lava from (-240) (-155) to (0) (-155) size (45)\n        end\n        if <key (e v) pressed?> then\n            if <(switch) = [1]> then\n                set [switch v] to [2]\n                wait (0.1) seconds\n            else\n                if <(switch) = [2]> then\n                    set [switch v] to [1]\n                    wait (0.1) seconds\n                end\n            end\n        end\n    end\n    if <(Level) = [12]> then\n        erase all\n        set [part v] to [2]\n        if <(switch) = [1]> then\n            erase all\n            Draw ground from (-240) (-155) to (0) (-155) size (45)\n            Draw lava from (240) (-155) to (0) (-155) size (45)\n            go to (70) (-50) and make a square (10) pen size (15) but make it HOT LAVAAA!!!\n            Draw lava from (240) (-155) to (240) (0) size (15)\n        else\n            erase all\n            Draw ground from (240) (-155) to (0) (-155) size (45)\n            Draw lava from (-240) (-155) to (0) (-155) size (45)\n            go to (70) (-50) and make a square (10) Pen size (15)\n            Draw lava from (240) (-155) to (240) (0) size (15)\n        end\n        if <key (e v) pressed?> then\n            if <(switch) = [1]> then\n                set [switch v] to [2]\n                wait (0.1) seconds\n            else\n                if <(switch) = [2]> then\n                    set [switch v] to [1]\n                    wait (0.1) seconds\n                end\n            end\n        end\n    end\n    if <(Level) = [13]> then\n        erase all\n        set [part v] to [2]\n        if <(switch) = [1]> then\n            erase all\n            Draw lava from (-240) (-135) to (-200) (-135) size (15)\n            Draw lava from (240) (-135) to (200) (-135) size (15)\n            Draw bounce from [-100] [-135] to [100] [-135] size [15]\n            Draw ground from (240) (-155) to (-240) (-155) size (15)\n        else\n            erase all\n            Draw bounce from [-240] [-135] to [-200] [-135] size [15]\n            Draw lava from (-100) (-135) to (100) (-135) size (15)\n            Draw bounce from [200] [-135] to [240] [-135] size [15]\n            Draw ground from (240) (-155) to (-240) (-155) size (15)\n        end\n        if <key (e v) pressed?> then\n            if <(switch) = [1]> then\n                set [switch v] to [2]\n                wait (0.5) seconds\n            else\n                if <(switch) = [2]> then\n                    set [switch v] to [1]\n                    wait (0.5) seconds\n                end\n            end\n        end\n    end\n    if <(Level) = [14]> then\n        erase all\n        Draw ground from (240) (-155) to (-240) (-155) size (15)\n        Draw lava from (-200) (-150) to (250) (-150) size (15)\n        go to (-150) (-70) and make a square (15) Pen size (15)\n        go to (0) (-70) and make a square (15) Pen size (15)\n        go to (150) (-70) and make a square (15) Pen size (15)\n    end\n    if <(Level) = [15]> then\n        erase all\n        Draw lava from (200) (-135) to (-200) (-135) size (15)\n        go to (-200) (-135) and make a square (15) Pen size (15)\n        go to (150) (0) and make a square (15) Pen size (15)\n        go to (0) (100) and make a square (15) Pen size (15)\n        go to (-150) (0) and make a square (15) Pen size (15)\n        go to (200) (-135) and make a square (15) Pen size (15)\n        Draw ground from (-240) (-135) to (-200) (-135) size (15)\n        Draw ground from (240) (-135) to (200) (-135) size (15)\n        Draw ground from (240) (-180) to (-240) (-180) size (80)\n    end\n    if <(Level) = [16]> then\n        erase all\n        Draw lava from (-175) (-155) to (-175) (-75) size (15)\n        Draw lava from (-100) (-155) to (-100) (-75) size (15)\n        Draw lava from (-25) (-155) to (-25) (-75) size (15)\n        Draw lava from (50) (-155) to (50) (-75) size (15)\n        Draw lava from (125) (-155) to (125) (-75) size (15)\n        Draw lava from (200) (-155) to (200) (-75) size (15)\n        Draw ground from (240) (-155) to (-240) (-155) size (45)\n    end\n    if <(Level) = [17]> then\n        erase all\n        Draw ground from (240) (-155) to (-240) (-155) size (45)\n        go to (-150) (0) and make a square (25) Pen size (30)\n        Draw ground from (-150) (0) to (-150) (-140) size (55)\n        go to (0) (50) and make a square (15) Pen size (15)\n        Draw ground from (240) (50) to (200) (50) size (15)\n        Draw ground from (230) (50) to (230) (-155) size (15)\n    end\n    if <(Level) = [18]> then\n        erase all\n        Draw lava from (-170) (-140) to (-170) (-120) size (15)\n        Draw ground from (240) (-155) to (-240) (-155) size (45)\n        Draw lava from (-90) (-70) to (-90) (-60) size (15)\n        Draw lava from (0) (0) to (0) (20) size (15)\n        Draw ground from (-180) (-155) to (0) (0) size (15)\n        Draw ground from (0) (0) to (240) (0) size (15)\n    end\n    if <(Level) = [19]> then\n        erase all\n        Draw lava from (200) (0) to (200) (120) size (45)\n        Draw lava from (40) (65) to (90) (65) size (15)\n        Draw lava from (-30) (120) to (-30) (180) size (15)\n        Draw lava from (0) (-130) to (50) (-130) size (15)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw lava from (-130) (0) to (-85) (0) size (15)\n        Draw ground from (-200) (-155) to (-130) (0) size (15)\n        Draw ground from (-80) (0) to (0) (0) size (15)\n        Draw ground from (0) (0) to (0) (-155) size (15)\n        Draw ground from (50) (0) to (50) (-155) size (15)\n        Draw ground from (50) (0) to (240) (0) size (15)\n        Draw ground from (240) (0) to (240) (120) size (15)\n        Draw ground from (240) (120) to (40) (120) size (15)\n        Draw ground from (90) (70) to (40) (70) size (15)\n        Draw ground from (40) (70) to (-35) (120) size (15)\n        Draw ground from (-35) (120) to (-35) (180) size (15)\n    end\n    if <(Level) = [20]> then\n        erase all\n        Draw ground from (0) (-80) to (0) (190) size (15)\n        Draw lava from (0) (-135) to (75) (-135) size (15)\n        Draw blue from [0] [-155] to [0] [-80] [15]\n        Draw ground from (75) (-155) to (75) (0) size (15)\n        Draw ground from (75) (0) to (240) (0) size (15)\n        Draw ground from (200) (0) to (200) (145) size (15)\n        Draw blue from [5] [80] to [5] [140] [15]\n        Draw lava from (190) (0) to (190) (120) size (15)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n    end\n    if <(Level) = [21]> then\n        erase all\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        draw orange from [-240] [-130] to [240] [-130] size [15]\n    end\n    if <(Level) = [22]> then\n        erase all\n        Draw lava from (-195) (-150) to (240) (-150) size (45)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw ground from (-200) (-155) to (-200) (-100) size (15)\n        draw orange from [-200] [-90] to [-160] [-90] size [15]\n        Draw ground from (-200) (-100) to (-160) (-100) size (15)\n        draw orange from [-130] [-35] to [-90] [-35] size [15]\n        Draw ground from (-130) (-40) to (-90) (-40) size (15)\n        draw orange from [40] [20] to [0] [20] size [15]\n        Draw ground from (40) (15) to (0) (15) size (15)\n        Draw lava from (200) (65) to (200) (130) size (15)\n        draw orange from [100] [70] to [200] [70] size [15]\n        Draw ground from (100) (65) to (200) (65) size (15)\n    end\n    if <(Level) = [23]> then\n        erase all\n        Draw lava from (-175) (-140) to (240) (-140) size (20)\n        draw orange from [-200] [-90] to [-200] [-90] size [20]\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        Draw lava from (-178) (-155) to (-198) (-89) size (15)\n        Draw ground from (-180) (-155) to (-200) (-90) size (15)\n        Draw ground from (-30) (0) to (30) (0) size (15)\n    end\n    if <(Level) = [24]> then\n        erase all\n        pen up\n        Draw lava from (-180) (-150) to (240) (-150) size (45)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        pen up\n        forever\n            go to (mouse-pointer v)\n            if <key (e v) pressed?> then\n                pen down\n            end\n            if <key (q v) pressed?> then\n                pen up\n            end\n            if <key (b v) pressed?> then\n                erase all\n                Draw lava from (-180) (-150) to (240) (-150) size (45)\n                Draw ground from (-240) (-155) to (240) (-155) size (45)\n                pen up\n            end\n        end\n    end\n    if <(Level) = [25]> then\n        erase all\n        Draw lava from (-180) (-150) to (240) (-150) size (45)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        forever\n            pen up\n            if <key (e v) pressed?> then\n                Draw square at mouse pointer\n                wait (0.5) seconds\n            end\n            if <key (b v) pressed?> then\n                erase all\n                Draw lava from (-180) (-150) to (240) (-150) size (45)\n                Draw ground from (-240) (-155) to (240) (-155) size (45)\n                pen up\n            end\n        end\n    end\n    if <(Level) = [26]> then\n        erase all\n        Draw lava from (240) (150) to (240) (-180) size (20)\n        Draw lava from (-180) (-150) to (240) (-150) size (45)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        forever\n            pen up\n            if <key (e v) pressed?> then\n                Draw square at mouse pointer\n                wait (0.5) seconds\n            end\n            if <key (b v) pressed?> then\n                erase all\n                Draw lava from (240) (150) to (240) (-180) size (20)\n                Draw lava from (-180) (-150) to (240) (-150) size (45)\n                Draw ground from (-240) (-155) to (240) (-155) size (45)\n                pen up\n            end\n        end\n    end\n    if <(Level) = [27]> then\n        erase all\n        Draw lava from (240) (150) to (240) (-180) size (20)\n        Draw lava from (-180) (-150) to (240) (-150) size (45)\n        Draw ground from (-240) (-155) to (240) (-155) size (45)\n        pen up\n        bouncy bouncy o such a good time\n    end\n    if <(Level) = [28]> then\n        erase all\n        broadcast (win v)\n    end\nend\n\nbroadcast (win v)\n\ndefine Draw ground from (x) (y) to (x\(f\)) (y\(f\)) size (size)\npen up\ngo to x: (x) y: (y)\nset pen size to (size)\npen down\nset pen color to (#000000)\ngo to x: (x\(f\)) y: (y\(f\))\npen down\n\ndefine Draw lava from (x) (y) to (x\(f\)) (y\(f\)) size (size)\npen up\nset pen size to (size)\ngo to x: (x) y: (y)\npen down\nset pen color to (#ff0000)\ngo to x: (x\(f\)) y: (y\(f\))\npen down\n\nwhen flag clicked\nset [skipped a level? v] to [no]\nforever\n    if <[admin v] contains (username)?> then\n        if <key (s v) pressed?> then\n            set [skipped a level? v] to [yes]\n            broadcast (skip v)\n            wait (0.5) seconds\n        end\n    end\nend\n\ndefine go to (x) (y) and make a square (size of square) Pen size (pen size)\nset pen color to (#000000)\nset pen size to (pen size)\npen up\ngo to x: (x) y: (y)\nchange x by ((size of square) / (2))\npen down\nchange y by ((size of square) / (2))\nchange x by ((size of square) - ((size of square) * (2)))\nchange y by ((size of square) - ((size of square) * (2)))\nchange x by (size of square)\nchange y by ((size of square) / (2))\n\nwhen flag clicked\nforever\n    show variable [level v]\n    play sound [Vexento-Pollen.mp3 v] until done\nend\n\nwhen flag clicked\nset [part v] to [1]\n\nwhen flag clicked\nset [switch v] to [1]\n\ndefine go to (x) (y) and make a square (size of square) pen size (pen size) but make it HOT LAVAAA!!!\nset pen color to (#ff0000)\nset pen size to (pen size)\npen up\ngo to x: (x) y: (y)\nchange x by ((size of square) / (2))\npen down\nchange y by ((size of square) / (2))\nchange x by ((size of square) - ((size of square) * (2)))\nchange y by ((size of square) - ((size of square) * (2)))\nchange x by (size of square)\nchange y by ((size of square) / (2))\n\nset [level v] to [1]\n\nif <(Level) = [13]> then\n    erase all\n    broadcast (win v)\nend\n\ndefine Draw bounce from (x) (y) to (x\(f\)) (y\(f\)) size (size)\npen up\nset pen size to (size)\ngo to x: (x) y: (y)\npen down\nset pen color to (#2ee400)\ngo to x: (x\(f\)) y: (y\(f\))\npen down\n\nset [switch v] to [1]\n\nset [switch v] to [1]\n\nwhen flag clicked\ndelete all of [blacklist v]\ndelete all of [admin v]\nadd [XxNinjasDiaperxX] to [admin v]\nadd [CatCodez] to [admin v]\nadd [rishi_p06] to [admin v]\nadd [mooney-seyfang] to [admin v]\nadd [RAFSTAR1] to [admin v]\nadd [kittyandadragongirl] to [admin v]\nadd [SHA086] to [admin v]\nadd [silentbutdeadly100] to [admin v]\nadd [anakinskywalker100] to [admin v]\nadd [Dbuild] to [admin v]\nadd [HarryZebra123] to [admin v]\nadd [XxNinjasDiaperxX] to [super admin v]\nadd [Hobbit_192] to [admin v]\nadd [E-Quest2] to [admin v]\n\nwhen flag clicked\nforever\n    if <[blacklist v] contains (username)?> then\n        wait (0.01) seconds\n        broadcast (banned v)\n        stop [all v]\n    end\nend\n\nwhen flag clicked\nforever\n    if <<key (space v) pressed?> and <(username) = [XxNinjasDiaperxX]>> then\n        repeat (19)\n            set [skipped a level? v] to [yes]\n            broadcast (next level v)\n        end\n    end\nend\n\nset [☁ highscore \(first 20 lvls\) v] to [102]\n\ndefine Draw blue from (x1) (y1) to (x2) (y2) (size)\npen up\nset pen size to (size)\ngo to x: (x1) y: (y1)\npen down\nset pen color to (#0042ff)\ngo to x: (x2) y: (y2)\npen down\n\ndefine draw orange from (x1) (y1) to (x2) (y2) size (size)\npen up\nset pen size to (size)\ngo to x: (x1) y: (y1)\npen down\nset pen color to (#ffac00)\ngo to x: (x2) y: (y2)\npen down\n\nwhen flag clicked\nset [skipped a level? v] to [no]\nforever\n    if <[admin v] contains (username)?> then\n        if <key (b v) pressed?> then\n            set [skipped a level? v] to [yes]\n            broadcast (back a level v)\n            wait (0.5) seconds\n        end\n    end\nend\n\nwhen I receive [back a level v]\n\nchange [level v] by (-1)\n\nset pen color to (#000000)\nset pen size to (15)\n\ndefine Draw square at mouse pointer\nset pen color to (#000000)\nset pen size to (10)\npen up\ngo to (mouse-pointer v)\nchange x by ((25) / (2))\npen down\nchange y by ((25) / (2))\nchange x by ((25) - ((25) * (2)))\nchange y by ((25) - ((25) * (2)))\nchange x by (25)\nchange y by ((25) / (2))\n\ndefine bouncy bouncy o such a good time\nset pen color to (#2ee400)\nset pen size to (10)\npen up\ngo to (mouse-pointer v)\nchange x by ((25) / (2))\npen down\nchange y by ((25) / (2))\nchange x by ((25) - ((25) * (2)))\nchange y by ((25) - ((25) * (2)))\nchange x by (25)\nchange y by ((25) / (2))\n\n@Instructions\n\nwhen flag clicked\nshow\nforever\n    hide\n    if <(Level) = [1]> then\n        show\n        switch costume to (costume1 v)\n        go to x: (-6) y: (-99)\n    end\n    if <(Level) = [2]> then\n        show\n        switch costume to (costume2 v)\n        go to x: (-6) y: (-99)\n    end\n    if <(Level) = [3]> then\n        show\n        switch costume to (costume3 v)\n        go to x: (-50) y: (-100)\n    end\n    if <(Level) = [7]> then\n        show\n        switch costume to (costume4 v)\n        go to x: (0) y: (100)\n    end\n    if <(Level) = [11]> then\n        show\n        switch costume to (costume5 v)\n        go to x: (0) y: (0)\n    end\n    if <(Level) = [15]> then\n        show\n        switch costume to (costume6 v)\n        go to x: (0) y: (0)\n    end\n    if <(Level) = [20]> then\n        show\n        switch costume to (costume7 v)\n        go to x: (-100) y: (0)\n    end\n    if <(Level) = [21]> then\n        show\n        switch costume to (costume8 v)\n        go to x: (0) y: (0)\n    end\n    if <(Level) = [24]> then\n        show\n        switch costume to (costume9 v)\n        go to x: (0) y: (120)\n    end\n    if <(Level) = [25]> then\n        show\n        switch costume to (costume10 v)\n        go to x: (0) y: (120)\n    end\nend\n\nswitch costume to (costume1 v)\nswitch costume to (costume1 v)\nswitch costume to (costume1 v)\nswitch costume to (costume1 v)\nswitch costume to (costume1 v)\n\n@Area 51\n\nwhen flag clicked\nset [hacks v] to [off]\nforever\n    if <<key (h v) pressed?> and <<key (a v) pressed?> and <<key (c v) pressed?> and <<key (k v) pressed?> and <[super admin v] contains (username)?>>>>> then\n        set [hacks v] to [on]\n        set [skipped a level? v] to [yes]\n    end\nend\n\nwhen flag clicked\nset [hacks v] to [off]\nforever\n    if <<key (e v) pressed?> and <<key (n v) pressed?> and <<key (d v) pressed?> and <[super admin v] contains (username)?>>>> then\n        set [hacks v] to [off]\n    end\nend\n\nset [☁ highscore \(first 20 lvls\) v] to [0]\n\nwhen flag clicked\nset [hacks v] to [off]\nforever\n    if <key (h v) pressed?> then\n        hide variable [☁ highscore v]\n        hide variable [☁ highscore \(first 20 lvls\) v]\n        hide variable [time taken \(all lvls\) v]\n        hide variable [time taken \(first 20 lvls\) v]\n        hide variable [level v]\n    end\nend\n\nwhen flag clicked\nshow variable [☁ highscore v]\nshow variable [time taken \(all lvls\) v]\nshow variable [time taken \(first 20 lvls\) v]\nshow variable [☁ highscore \(first 20 lvls\) v]\nshow variable [level v]\nset [hacks v] to [off]\nforever\n    if <key (n v) pressed?> then\n        show variable [☁ highscore v]\n        show variable [time taken \(all lvls\) v]\n        show variable [time taken \(first 20 lvls\) v]\n        show variable [☁ highscore \(first 20 lvls\) v]\n        show variable [level v]\n    end\nend\n\n@Sprite1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [banned v]\nshow\ngo to [front v] layer\n\n@hacks\n\nwhen flag clicked\nforever\n    if <key (0 v) pressed?> then\n        broadcast (activate hacks v)\n    end\nend\n\n
Arrow keys or WAD to move. Wall jumping is possible. For part 2 if you press 'e' then it switches the lava and the ground to the opposite of what they are, eg. if there was lava and you pressed 'e' then the lava would turn black.  S to skip a level if you are an admin. Press the number keys to switch costume. H to hide the variables and n to show them again. If it doesnt work i might have banned you XD .\n