Fantastic platformer 1
@Stage\n\nwhen flag clicked\nset [result v] to [Illegitimate run! Skipped levels ]\nhide variable [result v]\nwait until <<(Level) = [50]> or <key (x v) pressed?>>\nif <(Level) = [50]> then\n    set [result v] to (join [Your time: ] (timer))\nelse\n    set [result v] to (join (Result) (Level))\n    wait until <not <key (x v) pressed?>>\n    repeat until <(Level) = [50]>\n        if <key (x v) pressed?> then\n            set [result v] to (join (Result) (join [, ] (Level)))\n            wait until <not <key (x v) pressed?>>\n        end\n    end\nend\nshow variable [result v]\n\nwhen flag clicked\nforever\n    repeat until <key (m v) pressed?>\n        play sound [Theme1-a v] until done\n        if <not <key (m v) pressed?>> then\n            play sound [Theme1-b v] until done\n        end\n    end\n    wait until <not <key (m v) pressed?>>\n    repeat until <key (m v) pressed?>\n        play sound [Theme2 v] until done\n    end\n    wait until <not <key (m v) pressed?>>\n    repeat until <key (m v) pressed?>\n        play sound [Theme3 v] until done\n    end\n    wait until <not <key (m v) pressed?>>\n    repeat until <key (m v) pressed?>\n        play sound [Theme4 v] until done\n    end\n    wait until <not <key (m v) pressed?>>\n    repeat until <key (m v) pressed?>\n        play sound [Theme5 v] until done\n    end\n    wait until <not <key (m v) pressed?>>\nend\n\nwhen [m v] key pressed\nstop all sounds\n\n@Player\n\nwhen flag clicked\nset [go v] to [0]\nset [yv v] to [0]\nset [xv v] to [0]\nforever\n    repeat until <(Go) = [1]>\n        if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> and <not <touching (bad ground v)?>>> then\n            change [xv v] by (0.8)\n            point in direction (90)\n        end\n        if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> and <not <touching (bad ground v)?>>> then\n            change [xv v] by (-0.8)\n            point in direction (-90)\n        end\n        set [xv v] to ((Xv) * (0.9))\n        if <touching (bad ground v)?> then\n            change x by ((Xv) * (0.3))\n        else\n            change x by (Xv)\n        end\n        if <touching (platform v)?> then\n            change y by (1)\n            if <touching (platform v)?> then\n                change y by (1)\n                if <touching (platform v)?> then\n                    change y by (1)\n                    if <touching (platform v)?> then\n                        change y by (1)\n                        if <touching (platform v)?> then\n                            change y by (1)\n                            if <touching (platform v)?> then\n                                change x by ((Xv) * (-1))\n                                change y by (-5)\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        if <not <touching (antigravity v)?>> then\n            change [yv v] by (-1)\n            change y by (Yv)\n            if <touching (platform v)?> then\n                change y by ((Yv) * (-1))\n                set [yv v] to [0]\n            end\n        else\n            if <<key (down arrow v) pressed?> or <key (s v) pressed?>> then\n                change y by (2)\n                if <touching (platform v)?> then\n                    change y by (-2)\n                end\n            else\n                change y by (7)\n                if <touching (platform v)?> then\n                    change y by (-7)\n                end\n            end\n            set [yv v] to [0]\n        end\n        change y by (-1)\n        if <touching (platform v)?> then\n            if <<<key (up arrow v) pressed?> or <<key (w v) pressed?> or <key (space v) pressed?>>> and <not <touching (glue v)?>>> then\n                set [yv v] to [13]\n            end\n        end\n        if <[228] < (x position)> then\n            set [xv v] to [0]\n            set [xv v] to [0]\n            change [level v] by (1)\n            wait (0.1) seconds\n            go to x: (-219) y: (-86)\n            point in direction (90)\n            repeat until <not <touching (platform v)?>>\n                change y by (-1)\n            end\n        end\n        if <<touching (dangers v)?> or <touching (pila v)?>> then\n            broadcast (You've dead! v)\n            go to x: (-219) y: (-86)\n        end\n        if <(Level) > (last_level)> then\n            broadcast (END  v)\n        end\n        change y by (1)\n        hide variable [yv v]\n        hide variable [xv v]\n        if <touching (tramps v)?> then\n            set [yv v] to [17]\n        end\n    end\nend\n\nwhen I receive [end  v]\nhide\n\nwhen I receive [start v]\nwait (0.000001) seconds\ngo to x: (-213) y: (-77)\n\nwhen flag clicked\nrepeat (2)\n    go to [front v] layer\nend\n\nwhen I receive [start v]\nshow\ngo to x: (-219) y: (-86)\n\nwhen flag clicked\nbroadcast (START v)\n\nwhen I receive [the part v]\nwait (1) seconds\nglide (2) secs to x: (-50) y: (-100)\nsay [What is happening?] for (2) seconds\nwait (7.5) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen flag clicked\nset [level v] to [1]\nset [ghost v] effect to (0)\nforever\n    if <(Level) = (last_level)> then\n        broadcast (The Part v)\n        set [go v] to [1]\n        go to x: (-213) y: (-100)\n        \n    end\nend\n\nwhen [x v] key pressed\nset [xv v] to [0]\nset [xv v] to [0]\nchange [level v] by (1)\nwait (0.1) seconds\ngo to x: (-219) y: (-86)\npoint in direction (90)\nrepeat until <not <touching (platform v)?>>\n    change y by (-1)\nend\n\nwhen [p v] key pressed\nset [xv v] to [0]\nset [xv v] to [0]\nchange [level v] by (-1)\nwait (0.1) seconds\ngo to x: (-219) y: (-86)\npoint in direction (90)\nrepeat until <not <touching (platform v)?>>\n    change y by (-1)\nend\n\nwhen I receive [you've dead! v]\nrepeat (5)\n    change [ghost v] effect by (20)\nend\nset [xv v] to [0]\nset [xv v] to [0]\nset [ghost v] effect to (0)\ngo to x: (-219) y: (-86)\nwait (0.1) seconds\nset [oxygen v] to [60]\nrepeat until <not <touching (platform v)?>>\n    change y by (-1)\nend\n\nwhen flag clicked\nforever\n    if <touching (teleport-a1 v)?> then\n        go to (teleport-a2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-a2 v)?> then\n        go to (teleport-a1 v)\n        wait (1) seconds\n    end\nend\n\nif <touching (teleport-a1 v)?> then\n    go to (teleport-a2 v)\n    wait (1) seconds\nend\nif <touching (teleport-a2 v)?> then\n    go to (teleport-a1 v)\n    wait (1) seconds\nend\n\nwhen flag clicked\nforever\n    if <touching (teleport-b1 v)?> then\n        go to (teleport-b2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-b2 v)?> then\n        go to (teleport-b1 v)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nbroadcast (START v)\n\nwhen [r v] key pressed\nset [xv v] to [0]\nset [xv v] to [0]\nwait (0.1) seconds\ngo to x: (-219) y: (-86)\npoint in direction (90)\nrepeat until <not <touching (platform v)?>>\n    change y by (-1)\nend\n\nwhen flag clicked\nforever\n    if <touching (teleport-c1 v)?> then\n        go to (teleport-c2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-c2 v)?> then\n        go to (teleport-c1 v)\n        wait (1) seconds\n    end\nend\n\n@Dangers\n\nwhen flag clicked\nshow\ngo to x: (0) y: (0)\nforever\n    switch costume to (Level)\nend\n\nwhen I receive [end  v]\nhide\n\nwhen I receive [start v]\nshow\n\nwhen flag clicked\nhide\nset [level v] to [1]\nwait (0.1) seconds\ngo to [front v] layer\n\n@Platform\n\nwhen flag clicked\nhide\nset [level v] to [2]\ngo to x: (0) y: (0)\nforever\n    switch costume to (Level)\nend\n\nwhen I receive [end  v]\nhide\n\nwhen I receive [start v]\nshow\n\nwhen flag clicked\nwait (0.2) seconds\ngo to [front v] layer\n\n@Text\n\nwhen I receive [start v]\nshow\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\nforever\n    switch costume to (Level)\n    go to [back v] layer\nend\n\nwhen I receive [end  v]\nhide\n\nwhen flag clicked\nwait (1) seconds\ngo to [front v] layer\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\nforever\n    if <(Level) = (last_level)> then\n        hide\n        wait (9) seconds\n        forever\n            switch costume to (51 v)\n            show\n        end\n    end\nend\n\n@Tramps\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\n\nwhen flag clicked\nforever\n    go to x: (36) y: (28)\n    switch costume to (Level)\nend\n\n@Sprite2\n\nwhen I receive [the part v]\nset size to (30) %\nshow\ngo to x: (220) y: (-100)\nwait (.5) seconds\nglide (1.5) secs to x: (50) y: (-100)\nwait (3.5) seconds\nsay [She is coming! The Apocalypse is starting! We are combing all our powers to slow her down!] for (7) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen flag clicked\nswitch costume to (costume1 v)\nset [ghost v] effect to (0)\nhide\nwait until <(Level) = [27]>\nshow\ngo to x: (180) y: (100)\nwait (1) seconds\nswitch costume to (costume2 v)\nglide (0.4) secs to x: (240) y: (100)\nswitch costume to (costume1 v)\nhide\nwait until <(Level) = [31]>\nshow\ngo to x: (180) y: (115)\nwait (0.7) seconds\nswitch costume to (costume2 v)\nglide (0.4) secs to x: (240) y: (115)\nswitch costume to (costume1 v)\nhide\nwait until <(Level) = [34]>\nshow\ngo to x: (120) y: (125)\nswitch costume to (costume2 v)\nglide (1) secs to x: (240) y: (125)\nswitch costume to (costume1 v)\nhide\nwait until <(Level) = [42]>\nshow\ngo to x: (200) y: (-80)\nsay [Stop pursuing me!] for (0.5) seconds\nswitch costume to (costume2 v)\nglide (0.3) secs to x: (240) y: (-80)\nswitch costume to (costume1 v)\nhide\n\n@Pila\n\nwhen flag clicked\nhide\nforever\n    if <[pila levels v] contains (Level)?> then\n        set size to (item (item # of (Level) in [pila levels v]) of [pila size v]) %\n        show\n        glide (item (item # of (Level) in [pila levels v]) of [pila speed v]) secs to x: (item (item # of (Level) in [pila levels v]) of [xe v]) y: (item (item # of (Level) in [pila levels v]) of [ye v])\n        glide (item (item # of (Level) in [pila levels v]) of [pila speed v]) secs to x: (item (item # of (Level) in [pila levels v]) of [xs v]) y: (item (item # of (Level) in [pila levels v]) of [ys v])\n        hide\n    end\nend\n\nwhen flag clicked\nforever\n    if <not <[pila levels v] contains (Level)?>> then\n        hide\n    end\n    turn right (10) degrees\nend\n\nwhen I start as a clone\nif <(Level) = [15]> then\n    set size to (75) %\n    repeat until <not <(Level) = [15]>>\n        if <(costume [number v]) = [1]> then\n            glide (2) secs to x: (221) y: (25)\n            glide (2) secs to x: (-221) y: (25)\n        else\n            glide (2) secs to x: (-221) y: (150)\n            glide (2) secs to x: (221) y: (150)\n        end\n    end\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    wait until <not <(Level) = [15]>>\n    wait until <(Level) = [15]>\n    create clone of (_myself_ v)\n    next costume\n    create clone of (_myself_ v)\n    next costume\nend\n\nwhen I start as a clone\nforever\n    turn right (10) degrees\nend\n\n@AntiGravity\n\nwhen flag clicked\nshow\nset [ghost v] effect to (80)\nforever\n    switch costume to (Level)\nend\n\n@Gun1\n\nwhen I start as a clone\nturn right (180) degrees\nnext costume\nrepeat until <<touching (platform v)?> or <touching (_edge_ v)?>>\n    move (10) steps\n    if <touching (player v)?> then\n        broadcast (You've dead! v)\n    end\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[gun levels v] contains (Level)?>>\n        show\n        go to x: (item (item # of (Level) in [gun levels v]) of [xgun v]) y: (item (item # of (Level) in [gun levels v]) of [ygun v])\n        point in direction (item (item # of (Level) in [gun levels v]) of [gun direction v])\n        wait (1.2) seconds\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nforever\n    if <touching (teleport-a1 v)?> then\n        go to (teleport-a2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-a2 v)?> then\n        go to (teleport-a1 v)\n        wait (1) seconds\n    end\nend\n\nwhen I start as a clone\nforever\n    if <touching (teleport-c1 v)?> then\n        go to (teleport-c2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-c2 v)?> then\n        go to (teleport-c1 v)\n        wait (1) seconds\n    end\nend\n\n@Gun2\n\nwhen I start as a clone\nforever\n    if <touching (teleport-c1 v)?> then\n        go to (teleport-c2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-c2 v)?> then\n        go to (teleport-c1 v)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[gun levels v] contains (Level)?>>\n        show\n        go to x: (item (item # of (Level) in [gun levels v]) of [xgun v]) y: (item (item # of (Level) in [gun levels v]) of [ygun v])\n        point in direction (item (item # of (Level) in [gun levels v]) of [gun direction v])\n        wait (1.2) seconds\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nturn right (180) degrees\nnext costume\nrepeat until <<touching (platform v)?> or <touching (_edge_ v)?>>\n    move (10) steps\n    if <touching (player v)?> then\n        broadcast (You've dead! v)\n    end\nend\ndelete this clone\n\nwhen I start as a clone\nforever\n    if <touching (teleport-a1 v)?> then\n        go to (teleport-a2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-a2 v)?> then\n        go to (teleport-a1 v)\n        wait (1) seconds\n    end\nend\n\n@Gun3\n\nwhen I start as a clone\nforever\n    if <touching (teleport-c1 v)?> then\n        go to (teleport-c2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-c2 v)?> then\n        go to (teleport-c1 v)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[gun levels v] contains (Level)?>>\n        show\n        go to x: (item (item # of (Level) in [gun levels v]) of [xgun v]) y: (item (item # of (Level) in [gun levels v]) of [ygun v])\n        point in direction (item (item # of (Level) in [gun levels v]) of [gun direction v])\n        wait (1.2) seconds\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nturn right (180) degrees\nnext costume\nrepeat until <<touching (platform v)?> or <touching (_edge_ v)?>>\n    move (10) steps\n    if <touching (player v)?> then\n        broadcast (You've dead! v)\n    end\nend\ndelete this clone\n\nwhen I start as a clone\nforever\n    if <touching (teleport-a1 v)?> then\n        go to (teleport-a2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-a2 v)?> then\n        go to (teleport-a1 v)\n        wait (1) seconds\n    end\nend\n\n@Teleport-a1\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[teleport-a levels v] contains (Level)?>>\n        show\n        go to x: (item (item # of (Level) in [teleport-a levels v]) of [xtp v]) y: (item (item # of (Level) in [teleport-a levels v]) of [ytp v])\n    end\nend\n\n@Teleport-a2\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[teleport-a levels v] contains (Level)?>>\n        show\n        go to x: (item (item # of (Level) in [teleport-a levels v]) of [xtp v]) y: (item (item # of (Level) in [teleport-a levels v]) of [ytp v])\n    end\nend\n\n@Teleport-b1\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[teleport-b levels v] contains (Level)?>>\n        show\n        go to x: (item (item # of (Level) in [teleport-b levels v]) of [xtp v]) y: (item (item # of (Level) in [teleport-b levels v]) of [ytp v])\n    end\nend\n\ngo to x: (item (item # of (Level) in [teleport-b levels v]) of [xtp v]) y: (item (item # of (Level) in [teleport-b levels v]) of [ytp v])\n\n@Teleport-b2\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[teleport-b levels v] contains (Level)?>>\n        show\n        go to x: (item (item # of (Level) in [teleport-b levels v]) of [xtp v]) y: (item (item # of (Level) in [teleport-b levels v]) of [ytp v])\n    end\nend\n\n@AutoGun1\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[gun levels v] contains (Level)?>>\n        show\n        go to x: (item (item # of (Level) in [gun levels v]) of [xgun v]) y: (item (item # of (Level) in [gun levels v]) of [ygun v])\n        wait (1.5) seconds\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nnext costume\nrepeat until <<touching (platform v)?> or <touching (_edge_ v)?>>\n    move (10) steps\n    if <touching (player v)?> then\n        broadcast (You've dead! v)\n    end\nend\ndelete this clone\n\nwhen I start as a clone\nforever\n    if <touching (teleport-a1 v)?> then\n        go to (teleport-a2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-a2 v)?> then\n        go to (teleport-a1 v)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    point towards (player v)\nend\n\nwhen I start as a clone\nforever\n    if <touching (teleport-c1 v)?> then\n        go to (teleport-c2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-c2 v)?> then\n        go to (teleport-c1 v)\n        wait (1) seconds\n    end\nend\n\nwhen I start as a clone\nforever\n    if <touching (teleport-b1 v)?> then\n        go to (teleport-b2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-b2 v)?> then\n        go to (teleport-b1 v)\n        wait (1) seconds\n    end\nend\n\n@AutoGun2\n\nwhen I start as a clone\nforever\n    if <touching (teleport-c1 v)?> then\n        go to (teleport-c2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-c2 v)?> then\n        go to (teleport-c1 v)\n        wait (1) seconds\n    end\nend\n\nwhen I start as a clone\nforever\n    if <touching (teleport-b1 v)?> then\n        go to (teleport-b2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-b2 v)?> then\n        go to (teleport-b1 v)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[gun levels v] contains (Level)?>>\n        show\n        go to x: (item (item # of (Level) in [gun levels v]) of [xgun v]) y: (item (item # of (Level) in [gun levels v]) of [ygun v])\n        wait (1.5) seconds\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nnext costume\nrepeat until <<touching (platform v)?> or <touching (_edge_ v)?>>\n    move (10) steps\n    if <touching (player v)?> then\n        broadcast (You've dead! v)\n    end\nend\ndelete this clone\n\nwhen I start as a clone\nforever\n    if <touching (teleport-a1 v)?> then\n        go to (teleport-a2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-a2 v)?> then\n        go to (teleport-a1 v)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    point towards (player v)\nend\n\n@AutoGun3\n\nwhen I start as a clone\nforever\n    if <touching (teleport-c1 v)?> then\n        go to (teleport-c2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-c2 v)?> then\n        go to (teleport-c1 v)\n        wait (1) seconds\n    end\nend\n\nwhen I start as a clone\nforever\n    if <touching (teleport-b1 v)?> then\n        go to (teleport-b2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-b2 v)?> then\n        go to (teleport-b1 v)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[gun levels v] contains (Level)?>>\n        show\n        go to x: (item (item # of (Level) in [gun levels v]) of [xgun v]) y: (item (item # of (Level) in [gun levels v]) of [ygun v])\n        wait (1.5) seconds\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nnext costume\nrepeat until <<touching (platform v)?> or <touching (_edge_ v)?>>\n    move (10) steps\n    if <touching (player v)?> then\n        broadcast (You've dead! v)\n    end\nend\ndelete this clone\n\nwhen I start as a clone\nforever\n    if <touching (teleport-a1 v)?> then\n        go to (teleport-a2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-a2 v)?> then\n        go to (teleport-a1 v)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    point towards (player v)\nend\n\n@Mad_zone\n\nwhen flag clicked\nset [ghost v] effect to (30)\nforever\n    if <[mad zone levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\n    if <<touching (player v)?> and <(red) = [1]>> then\n        broadcast (You've dead! v)\n    end\nend\n\nwhen flag clicked\nforever\n    wait until <[mad zone levels v] contains (Level)?>\n    switch costume to (item # of (Level) in [mad zone levels v])\n    set [color v] effect to (0)\n    wait (2) seconds\n    repeat (4)\n        change [color v] effect by (-25)\n        wait (0.1) seconds\n        change [color v] effect by (25)\n        wait (0.1) seconds\n    end\n    change [color v] effect by (-75)\n    set [red v] to [1]\n    wait (0.2) seconds\n    set [red v] to [0]\nend\n\n@MovingGun1\n\nwhen I start as a clone\nforever\n    if <touching (teleport-c1 v)?> then\n        go to (teleport-c2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-c2 v)?> then\n        go to (teleport-c1 v)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[gun levels v] contains (Level)?>>\n        show\n        point in direction (item (item # of (Level) in [gun levels v]) of [gun direction v])\n        set [i v] to [0]\n        repeat (item (item # of (Level) in [gun levels v]) of [gun speed v])\n            change [i v] by (1)\n            glide (0.8) secs to x: ((((item (item # of (Level) in [gun levels v]) of [xsgun v]) * (i)) + ((item (item # of (Level) in [gun levels v]) of [xegun v]) * ((item (item # of (Level) in [gun levels v]) of [gun speed v]) - (i)))) / (item (item # of (Level) in [gun levels v]) of [gun speed v])) y: ((((item (item # of (Level) in [gun levels v]) of [ysgun v]) * (i)) + ((item (item # of (Level) in [gun levels v]) of [yegun v]) * ((item (item # of (Level) in [gun levels v]) of [gun speed v]) - (i)))) / (item (item # of (Level) in [gun levels v]) of [gun speed v]))\n            create clone of (_myself_ v)\n        end\n        repeat (item (item # of (Level) in [gun levels v]) of [gun speed v])\n            change [i v] by (-1)\n            glide (0.8) secs to x: ((((item (item # of (Level) in [gun levels v]) of [xsgun v]) * (i)) + ((item (item # of (Level) in [gun levels v]) of [xegun v]) * ((item (item # of (Level) in [gun levels v]) of [gun speed v]) - (i)))) / (item (item # of (Level) in [gun levels v]) of [gun speed v])) y: ((((item (item # of (Level) in [gun levels v]) of [ysgun v]) * (i)) + ((item (item # of (Level) in [gun levels v]) of [yegun v]) * ((item (item # of (Level) in [gun levels v]) of [gun speed v]) - (i)))) / (item (item # of (Level) in [gun levels v]) of [gun speed v]))\n            create clone of (_myself_ v)\n        end\n    end\nend\n\nwhen I start as a clone\nif <not <(Level) = [41]>> then\n    move (-10) steps\nend\nset size to (50) %\nnext costume\nrepeat until <<touching (platform v)?> or <touching (_edge_ v)?>>\n    move (10) steps\n    if <touching (player v)?> then\n        broadcast (You've dead! v)\n    end\nend\ndelete this clone\n\nwhen I start as a clone\nforever\n    if <touching (teleport-a1 v)?> then\n        go to (teleport-a2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-a2 v)?> then\n        go to (teleport-a1 v)\n        wait (1) seconds\n    end\nend\n\nwhen I start as a clone\nforever\n    if <touching (teleport-b1 v)?> then\n        go to (teleport-b2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-b2 v)?> then\n        go to (teleport-b1 v)\n        wait (1) seconds\n    end\nend\n\n@MovingGun2\n\nwhen I start as a clone\nforever\n    if <touching (teleport-c1 v)?> then\n        go to (teleport-c2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-c2 v)?> then\n        go to (teleport-c1 v)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[gun levels v] contains (Level)?>>\n        show\n        point in direction (item (item # of (Level) in [gun levels v]) of [gun direction v])\n        set [i v] to [0]\n        repeat (item (item # of (Level) in [gun levels v]) of [gun speed v])\n            change [i v] by (1)\n            glide (0.8) secs to x: ((((item (item # of (Level) in [gun levels v]) of [xsgun v]) * (i)) + ((item (item # of (Level) in [gun levels v]) of [xegun v]) * ((item (item # of (Level) in [gun levels v]) of [gun speed v]) - (i)))) / (item (item # of (Level) in [gun levels v]) of [gun speed v])) y: ((((item (item # of (Level) in [gun levels v]) of [ysgun v]) * (i)) + ((item (item # of (Level) in [gun levels v]) of [yegun v]) * ((item (item # of (Level) in [gun levels v]) of [gun speed v]) - (i)))) / (item (item # of (Level) in [gun levels v]) of [gun speed v]))\n            create clone of (_myself_ v)\n        end\n        repeat (item (item # of (Level) in [gun levels v]) of [gun speed v])\n            change [i v] by (-1)\n            glide (0.8) secs to x: ((((item (item # of (Level) in [gun levels v]) of [xsgun v]) * (i)) + ((item (item # of (Level) in [gun levels v]) of [xegun v]) * ((item (item # of (Level) in [gun levels v]) of [gun speed v]) - (i)))) / (item (item # of (Level) in [gun levels v]) of [gun speed v])) y: ((((item (item # of (Level) in [gun levels v]) of [ysgun v]) * (i)) + ((item (item # of (Level) in [gun levels v]) of [yegun v]) * ((item (item # of (Level) in [gun levels v]) of [gun speed v]) - (i)))) / (item (item # of (Level) in [gun levels v]) of [gun speed v]))\n            create clone of (_myself_ v)\n        end\n    end\nend\n\nwhen I start as a clone\nmove (-10) steps\nset size to (50) %\nnext costume\nrepeat until <<touching (platform v)?> or <touching (_edge_ v)?>>\n    move (10) steps\n    if <touching (player v)?> then\n        broadcast (You've dead! v)\n    end\nend\ndelete this clone\n\nwhen I start as a clone\nforever\n    if <touching (teleport-a1 v)?> then\n        go to (teleport-a2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-a2 v)?> then\n        go to (teleport-a1 v)\n        wait (1) seconds\n    end\nend\n\nwhen I start as a clone\nforever\n    if <touching (teleport-b1 v)?> then\n        go to (teleport-b2 v)\n        wait (1) seconds\n    end\n    if <touching (teleport-b2 v)?> then\n        go to (teleport-b1 v)\n        wait (1) seconds\n    end\nend\n\n@Teleport-c1\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[teleport-c levels v] contains (Level)?>>\n        show\n        glide (item (item # of (Level) in [teleport-c levels v]) of [teleport speed v]) secs to x: (item (item # of (Level) in [teleport-c levels v]) of [xstp v]) y: (item (item # of (Level) in [teleport-c levels v]) of [ystp v])\n        glide (item (item # of (Level) in [teleport-c levels v]) of [teleport speed v]) secs to x: (item (item # of (Level) in [teleport-c levels v]) of [xetp v]) y: (item (item # of (Level) in [teleport-c levels v]) of [yetp v])\n    end\nend\n\n@Teleport-c2\n\nwhen flag clicked\nforever\n    hide\n    repeat until <not <[teleport-c levels v] contains (Level)?>>\n        show\n        glide (item (item # of (Level) in [teleport-c levels v]) of [teleport speed v]) secs to x: (item (item # of (Level) in [teleport-c levels v]) of [xstp v]) y: (item (item # of (Level) in [teleport-c levels v]) of [ystp v])\n        glide (item (item # of (Level) in [teleport-c levels v]) of [teleport speed v]) secs to x: (item (item # of (Level) in [teleport-c levels v]) of [xetp v]) y: (item (item # of (Level) in [teleport-c levels v]) of [yetp v])\n    end\nend\n\n@Smoke\n\nwhen flag clicked\nhide\nwait (0.1) seconds\nset [ghost v] effect to (80)\ngo to [front v] layer\nforever\n    if <[smoke levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\n    switch costume to (item # of (Level) in [smoke levels v])\n    if <touching (player v)?> then\n        change [oxygen v] by (-1)\n        if <(Oxygen) < [1]> then\n            broadcast (You've dead! v)\n            set [oxygen v] to [60]\n        end\n        wait ((item (item # of (Level) in [smoke levels v]) of [speed die v]) / (60)) seconds\n    else\n        if <(Oxygen) < [60]> then\n            change [oxygen v] by (1)\n        end\n        wait ((item (item # of (Level) in [smoke levels v]) of [speed restore v]) / (60)) seconds\n    end\nend\n\n@Oxygen\n\nwhen flag clicked\nswitch costume to (costume4 v)\nset [oxygen v] to [60]\nwait (1) seconds\ngo to x: (80) y: (141)\nrepeat (60)\n    change x by (2)\n    create clone of (_myself_ v)\nend\ngo to [front v] layer\ngo to x: (120) y: (141)\nforever\n    if <[smoke levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I start as a clone\ngo to [front v] layer\nnext costume\nforever\n    set [color v] effect to (Oxygen)\n    if <<[smoke levels v] contains (Level)?> and <(x position) < (((Oxygen) * (2)) + (81))>> then\n        show\n    else\n        hide\n    end\nend\n\n@Button-b1\n\nwhen flag clicked\nforever\n    if <key (r v) pressed?> then\n        wait (1) seconds\n        switch costume to (costume1 v)\n    end\n    if <<<<touching (movinggun2 v)?> or <touching (movinggun1 v)?>> or > or <<<touching (autogun1 v)?> or <touching (gun3 v)?>> or <<touching (gun2 v)?> or <touching (gun1 v)?>>>> then\n        switch costume to (costume2 v)\n    end\n    if <touching (player v)?> then\n        switch costume to (costume2 v)\n    end\n    if <[toxicer-b levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\n    go to x: (item (item # of (Level) in [toxicer-b levels v]) of [xbut v]) y: (item (item # of (Level) in [toxicer-b levels v]) of [ybut v])\n    point in direction (item (item # of (Level) in [toxicer-b levels v]) of [butdir v])\nend\n\nwhen I receive [you've dead! v]\nwait (1) seconds\nswitch costume to (costume1 v)\n\n@Button-b2\n\nwhen flag clicked\nforever\n    if <key (r v) pressed?> then\n        wait (1) seconds\n        switch costume to (costume1 v)\n    end\n    if <<<<touching (movinggun2 v)?> or <touching (movinggun1 v)?>> or > or <<<touching (autogun1 v)?> or <touching (gun3 v)?>> or <<touching (gun2 v)?> or <touching (gun1 v)?>>>> then\n        switch costume to (costume2 v)\n    end\n    if <touching (player v)?> then\n        switch costume to (costume2 v)\n    end\n    if <[toxicer-b levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\n    go to x: (item (item # of (Level) in [toxicer-b levels v]) of [xbut v]) y: (item (item # of (Level) in [toxicer-b levels v]) of [ybut v])\n    point in direction (item (item # of (Level) in [toxicer-b levels v]) of [butdir v])\nend\n\nwhen I receive [you've dead! v]\nwait (1) seconds\nswitch costume to (costume1 v)\n\n@Button-b3\n\nwhen flag clicked\nforever\n    if <key (r v) pressed?> then\n        wait (1) seconds\n        switch costume to (costume1 v)\n    end\n    if <<<<touching (movinggun2 v)?> or <touching (movinggun1 v)?>> or > or <<<touching (autogun1 v)?> or <touching (gun3 v)?>> or <<touching (gun2 v)?> or <touching (gun1 v)?>>>> then\n        switch costume to (costume2 v)\n    end\n    if <touching (player v)?> then\n        switch costume to (costume2 v)\n    end\n    if <[toxicer-b levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\n    go to x: (item (item # of (Level) in [toxicer-b levels v]) of [xbut v]) y: (item (item # of (Level) in [toxicer-b levels v]) of [ybut v])\n    point in direction (item (item # of (Level) in [toxicer-b levels v]) of [butdir v])\nend\n\nwhen I receive [you've dead! v]\nwait (1) seconds\nswitch costume to (costume1 v)\n\n@Toxicer-b\n\nwhen flag clicked\nforever\n    if <[toxicer-b levels v] contains (Level)?> then\n        show\n        if <<([costume # v] of [button-b1 v]) = [2]> and <<([costume # v] of [button-b2 v]) = [2]> and <([costume # v] of [button-b3 v]) = [2]>>> then\n            switch costume to (costume1 v)\n        else\n            create clone of (_myself_ v)\n            wait (0.2) seconds\n            switch costume to (costume2 v)\n            go to x: (item (item # of (Level) in [toxicer-b levels v]) of [xtox v]) y: (item (item # of (Level) in [toxicer-b levels v]) of [ytox v])\n        end\n    else\n        hide\n    end\nend\n\nwhen I start as a clone\nswitch costume to (costume3 v)\nset [ghost v] effect to (50)\nset size to (100) %\nrepeat (9)\n    change size by (50)\n    change [ghost v] effect by (5)\n    wait (0.02) seconds\n    if <touching (player v)?> then\n        broadcast (You've dead! v)\n        delete this clone\n    end\nend\ndelete this clone\n\n@Button-a1\n\nwhen flag clicked\nforever\n    if <key (r v) pressed?> then\n        wait (1) seconds\n        switch costume to (costume1 v)\n    end\n    if <<<<touching (movinggun2 v)?> or <touching (movinggun1 v)?>> or > or <<<touching (autogun1 v)?> or <touching (gun3 v)?>> or <<touching (gun2 v)?> or <touching (gun1 v)?>>>> then\n        switch costume to (costume2 v)\n    end\n    if <touching (player v)?> then\n        switch costume to (costume2 v)\n    end\n    if <[toxicer-a levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\n    go to x: (item (item # of (Level) in [toxicer-a levels v]) of [xbut v]) y: (item (item # of (Level) in [toxicer-a levels v]) of [ybut v])\n    point in direction (item (item # of (Level) in [toxicer-a levels v]) of [butdir v])\nend\n\nwhen I receive [you've dead! v]\nwait (1) seconds\nswitch costume to (costume1 v)\n\n@Button-a2\n\nwhen flag clicked\nforever\n    if <key (r v) pressed?> then\n        wait (1) seconds\n        switch costume to (costume1 v)\n    end\n    if <<<<touching (movinggun2 v)?> or <touching (movinggun1 v)?>> or > or <<<touching (autogun1 v)?> or <touching (gun3 v)?>> or <<touching (gun2 v)?> or <touching (gun1 v)?>>>> then\n        switch costume to (costume2 v)\n    end\n    if <touching (player v)?> then\n        switch costume to (costume2 v)\n    end\n    if <[toxicer-a levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\n    go to x: (item (item # of (Level) in [toxicer-a levels v]) of [xbut v]) y: (item (item # of (Level) in [toxicer-a levels v]) of [ybut v])\n    point in direction (item (item # of (Level) in [toxicer-a levels v]) of [butdir v])\nend\n\nwhen I receive [you've dead! v]\nwait (1) seconds\nswitch costume to (costume1 v)\n\n@Button-a3\n\nwhen flag clicked\nforever\n    if <key (r v) pressed?> then\n        wait (1) seconds\n        switch costume to (costume1 v)\n    end\n    if <<<<touching (movinggun2 v)?> or <touching (movinggun1 v)?>> or > or <<<touching (autogun1 v)?> or <touching (gun3 v)?>> or <<touching (gun2 v)?> or <touching (gun1 v)?>>>> then\n        switch costume to (costume2 v)\n    end\n    if <touching (player v)?> then\n        switch costume to (costume2 v)\n    end\n    if <[toxicer-a levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\n    go to x: (item (item # of (Level) in [toxicer-a levels v]) of [xbut v]) y: (item (item # of (Level) in [toxicer-a levels v]) of [ybut v])\n    point in direction (item (item # of (Level) in [toxicer-a levels v]) of [butdir v])\nend\n\nwhen I receive [you've dead! v]\nwait (1) seconds\nswitch costume to (costume1 v)\n\n@Toxicer-a\n\nwhen flag clicked\nforever\n    if <[toxicer-a levels v] contains (Level)?> then\n        show\n        if <<([costume # v] of [button-a1 v]) = [2]> and <<([costume # v] of [button-a2 v]) = [2]> and <([costume # v] of [button-a3 v]) = [2]>>> then\n            create clone of (_myself_ v)\n            wait (0.2) seconds\n            switch costume to (costume2 v)\n        else\n            switch costume to (costume1 v)\n            go to x: (item (item # of (Level) in [toxicer-a levels v]) of [xtox v]) y: (item (item # of (Level) in [toxicer-a levels v]) of [ytox v])\n        end\n    else\n        hide\n    end\nend\n\nwhen I start as a clone\nswitch costume to (costume3 v)\nset [ghost v] effect to (50)\nset size to (100) %\nrepeat (9)\n    change size by (50)\n    change [ghost v] effect by (5)\n    wait (0.02) seconds\n    if <touching (player v)?> then\n        broadcast (You've dead! v)\n    end\nend\ndelete this clone\n\n@Glue\n\nwhen flag clicked\nforever\n    if <[glue levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\n    switch costume to (item # of (Level) in [glue levels v])\n    go to [front v] layer\nend\n\n@Bad ground\n\nwhen flag clicked\nforever\n    if <[bad ground levels v] contains (Level)?> then\n        show\n    else\n        hide\n    end\n    switch costume to (item # of (Level) in [bad ground levels v])\n    go to [front v] layer\nend\n\n
Arrow keys to move, down arrow to slow down in ungravity. X to skip the level and P to do to previous\nThere's 50 levels and many features in this game!\nM to change music (not recommended)\n\nMy best speedrun is 4 minutes 55 seconds!\n2nd place: Yaroslav10020 17 minutes 23 seconds\n3rd place: Carocs641 33 minutes 11 seconds\n\nHall of Gods (people who have beaten this game w/o skips):\nFurgon273\nCarocs641\nmICHAIL1200011\nteretontik\nborminlegede\nmiron09030903\nVasGvozdenko\nYaroslav10020