Colourless - a platformer

Instructions: Colourless - a platformer\n----------------------------------\n-arrow keys or WASD to move\n-11 levels\n- :))\n-avoid spikes and grey coloured lava\n

@Stage\n\n@player\n\nwhen flag clicked\nswitch costume to (stay v)\nset size to (100) %\ngo to x: (-400) y: (0)\nrepeat (30)\n    change x by (((0) - (x position)) / (5))\nend\nrepeat (5)\n    change size by (-8)\n    change y by (-10)\nend\n\nwhen flag clicked\npoint in direction (90)\nset [level v] to [1]\nswitch costume to (costume1 v)\nwait (1.5) seconds\nset rotation style [left-right v]\nset [x v] to [0]\nset [y v] to [0]\nforever\n    change [y v] by (-1)\n    if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n        point in direction (90)\n        next costume\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n        point in direction (-90)\n        switch costume to ((costume [number v]) - (1))\n        change [x v] by (-1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (levels v)?> then\n        fast\n        if <touching (levels v)?> then\n            change y by (-6)\n            xcoll\n            if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n                set [y v] to [12]\n                if <([abs v] of (x) ) = (x)> then\n                    set [x v] to [-8]\n                else\n                    set [x v] to [8]\n                end\n            else\n                set [x v] to [0]\n            end\n        end\n    end\n    change y by (y)\n    if <touching (levels v)?> then\n        ycoll\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> and <(y) < [0]>> then\n            set [y v] to [14]\n        else\n            set [y v] to [0]\n        end\n    end\n    if <(x position) > [207]> then\n        switch costume to (costume1 v)\n        broadcast (message1 v)\n        go to x: (-205) y: (-50)\n    end\n    if <touching (dangers v)?> then\n        start sound [Crunch v]\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        go to x: (-180) y: (-50)\n        set [ghost v] effect to (0)\n    end\n    if <touching (trampoline v)?> then\n        set [y v] to [21]\n    end\nend\n\ndefine fast\nrepeat (6)\n    if <touching (levels v)?> then\n        change y by (1)\n    end\nend\n\ndefine ycoll\nrepeat until <not <touching (levels v)?>>\n    if <(y) > [0]> then\n        change y by (-1)\n    else\n        change y by (1)\n    end\nend\n\ndefine xcoll\nrepeat until <not <touching (levels v)?>>\n    if <(x) > [0]> then\n        change x by (-1)\n    else\n        change x by (1)\n    end\nend\n\ngo to x: (-200) y: (0)\n\nwhen I receive [message1 v]\nchange [level v] by (1)\n\n@Effect\n\nwhen I start as a clone\nswitch costume to (punkt1 v)\nset size to (100) %\npoint in direction (90)\nhide\nif <(pick random (1) to (6)) = [1]> then\n    set [ghost v] effect to (pick random (50) to (80))\n    switch costume to (strich v)\n    go to x: (pick random (-240) to (240)) y: (0)\n    show\n    repeat (pick random (5) to (15))\n        move (pick random (-1) to (1)) steps\n    end\nelse\n    set [ghost v] effect to (pick random (25) to (75))\n    if <(pick random (1) to (6)) = [1]> then\n        switch costume to (join [haar] (pick random (1) to (2)))\n    else\n        switch costume to (join [punkt] (pick random (1) to (3)))\n    end\n    set size to (pick random (50) to (150)) %\n    point in direction (pick random (-179) to (180))\n    go to x: (pick random (-240) to (240)) y: (pick random (-180) to (180))\n    show\n    wait (pick random (0) to (0.1)) seconds\nend\ndelete this clone\n\nwhen flag clicked\nhide\n\nwhen I receive [end v]\nhide\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\n    wait (pick random (0) to (0.2)) seconds\nend\n\nwhen I receive [outro v]\nhide\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (dunkel v)\nshow\nforever\n    wait (0.3) seconds\n    set [ghost v] effect to (pick random (60) to (70))\nend\n\n@Levels\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    if <(level) = [1]> then\n        switch costume to (costume1 v)\n    end\n    if <(level) = [2]> then\n        switch costume to (costume2 v)\n    end\n    if <(level) = [3]> then\n        switch costume to (costume3 v)\n    end\n    if <(level) = [4]> then\n        switch costume to (costume4 v)\n    end\n    if <(level) = [5]> then\n        switch costume to (costume5 v)\n    end\n    if <(level) = [6]> then\n        switch costume to (costume6 v)\n    end\n    if <(level) = [7]> then\n        switch costume to (costume7 v)\n    end\n    if <(level) = [8]> then\n        switch costume to (costume8 v)\n    end\n    if <(level) = [9]> then\n        switch costume to (costume9 v)\n    end\n    if <(level) = [10]> then\n        switch costume to (costume10 v)\n    end\n    if <(level) = [11]> then\n        switch costume to (costume11 v)\n    end\nend\n\n@trampoline\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\nforever\n    if <(level) = [6]> then\n        show\n    else\n        hide\n    end\nend\n\n@dangers\n\nwhen flag clicked\nforever\n    if <(level) = [1]> then\n        hide\n    end\n    go to [back v] layer\n    if <(level) = [3]> then\n        switch costume to (costume1 v)\n        go to x: (0) y: (0)\n        show\n        forever\n            repeat (2)\n                change y by (2)\n            end\n            wait (0.2) seconds\n            repeat (2)\n                change y by (-2)\n            end\n            wait (0.2) seconds\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <(level) = [4]> then\n        switch costume to (costume2 v)\n        show\n    end\n    if <(level) = [5]> then\n        switch costume to (costume3 v)\n        show\n    end\n    if <(level) = [6]> then\n        switch costume to (costume4 v)\n        show\n    end\n    if <(level) = [7]> then\n        switch costume to (costume5 v)\n        show\n    end\n    if <(level) = [8]> then\n        switch costume to (costume6 v)\n        show\n    end\n    if <(level) = [9]> then\n        switch costume to (costume7 v)\n        show\n    end\n    if <(level) = [10]> then\n        switch costume to (costume8 v)\n        show\n    end\n    if <(level) = [11]> then\n        hide\n    end\nend\n\nwhen flag clicked\nforever\n    play sound [「Gumi」- Kokoronashi_Somehow 心做し \(piano\) ~ __ Chouchou-P.mp3 v] until done\nend\n\n@Sprite1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\ngo to [front v] layer\nshow\n\n