LOST - a platformer

Instructions: Use the arrow keys to move like any other platformer. Dark red is bad.\n\nReading the words will help make it more exciting. Or you just wanted to play a platformer. :P\n\nTHERE IS GLITCHES \n\n\none level says alomst did you see it?

@Stage\n\nwhen I receive [message1 v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nwait (0.2) seconds\nswitch backdrop to (backdrop2 v)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen flag clicked\nset [ghost v] effect to (0)\nswitch backdrop to (backdrop1 v)\n\n@Sprite1\n\nwhen flag clicked\ngo to x: (-34) y: (20)\nset [ghost v] effect to (0)\nforever\n    play sound [Vexento - Snowflakes v] until done\nend\n\nwhen I receive [message1 v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\n@Sprite2\n\nwhen flag clicked\nset [ghost v] effect to (0)\ngo to x: (-48) y: (-33)\nshow\nset size to (100) %\nrepeat until <<touching (mouse-pointer v)?> and <mouse down?>>\n    if <touching (mouse-pointer v)?> then\n        switch costume to (costume2 v)\n        set size to (105) %\n    else\n        switch costume to (costume1 v)\n        set size to (100) %\n    end\nend\nswitch costume to (costume1 v)\nset size to (90) %\nwait (0.01) seconds\nset size to (100) %\nswitch costume to (costume2 v)\nbroadcast (message1 v)\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nstop [this script v]\n\nset size to (75) %\n\n@Sprite3\n\nwhen I receive [next v]\nnext costume\n\nwhen I receive [message1 v]\nwait (0.6) seconds\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen flag clicked\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\nswitch costume to (costume2 v)\nforever\n    if <<[28] > (costume [number v])> and <[22] < (costume [number v])>> then\n        switch backdrop to (backdrop3 v)\n    end\n    if <(costume [number v]) = [40]> then\n        broadcast (hoi v)\n        stop [this script v]\n    end\n    if <(costume [number v]) = [28]> then\n        switch backdrop to (backdrop4 v)\n    end\n    if <(costume [number v]) = [24]> then\n        switch backdrop to (backdrop3 v)\n    end\n    if <(costume [number v]) = [36]> then\n        switch backdrop to (backdrop2 v)\n    end\nend\n\nwhen I receive [end v]\nwait (1) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\n@Sprite4\n\nwhen I receive [message1 v]\nwait (1) seconds\ngo to x: (-214) y: (115)\ngo to [front v] layer\nswitch costume to (costume1 v)\nswitch backdrop to (backdrop2 v)\nshow\ngo to x: (-217) y: (-20)\nhide variable [y v]\nhide variable [x v]\nset [y v] to [0]\nset [x v] to [0]\nforever\n    change [y v] by (-1)\n    if <key (left arrow v) pressed?> then\n        change [x v] by (-1)\n    end\n    if <key (right arrow v) pressed?> then\n        change [x v] by (1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <<touching color (#000000)?> or <<touching color (#ff9999)?> and <not <key (down arrow v) pressed?>>>> then\n        change y by (1)\n    end\n    if <<touching color (#000000)?> or <<touching color (#ff9999)?> and <not <key (down arrow v) pressed?>>>> then\n        change y by (1)\n    end\n    if <<touching color (#000000)?> or <<touching color (#ff9999)?> and <not <key (down arrow v) pressed?>>>> then\n        change y by (1)\n    end\n    if <<touching color (#000000)?> or <<touching color (#ff9999)?> and <not <key (down arrow v) pressed?>>>> then\n        change y by (1)\n    end\n    if <<touching color (#000000)?> or <<touching color (#ff9999)?> and <not <key (down arrow v) pressed?>>>> then\n        change y by (-4)\n        change x by ((x) * (-1))\n        if <key (up arrow v) pressed?> then\n            set [y v] to [17]\n            if <([abs v] of (x) ) = (x)> then\n                set [x v] to [-10]\n            else\n                set [x v] to [10]\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <<touching color (#000000)?> or <<touching color (#ff9999)?> and <not <key (down arrow v) pressed?>>>> 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?> and <<touching color (#000000)?> or <touching color (#ff9999)?>>> then\n        set [y v] to [15]\n    end\n    change y by (1)\n    if <touching color (#660000)?> then\n        repeat (10)\n            next costume\n            change [ghost v] effect by (10)\n            wait (0.05) seconds\n        end\n        go to x: (-217) y: (-20)\n        switch costume to (costume1 v)\n        set [ghost v] effect to (0)\n    end\n    if <(x position) > [238]> then\n        go to x: (-217) y: (-20)\n        broadcast (next v)\n    end\n    if <(y position) = [-179]> then\n        go to x: (-217) y: (178)\n        wait (0.1) seconds\n        broadcast (next v)\n    end\n    if <touching color (#2e2e2e)?> then\n        set [ghost v] effect to (50)\n    else\n        set [ghost v] effect to (0)\n    end\nend\n\nwhen flag clicked\nhide\n\nset size to (30) %\n\nwhen I receive [end v]\nwait (5) seconds\n\n@Sprite5\n\nwhen flag clicked\nhide\n\nwhen I receive [hoi v]\ngo to [front v] layer\nshow\nsay [Hello!                    \(press space\)]\nwait until <key (space v) pressed?>\nwait until <not <key (space v) pressed?>>\nask [I think you are here for a second chance, right?       \(press space\)              \(y/n\)] and wait\nif <(answer) = [y]> then\n    say [Okay, here is your mission:                 \(press space\)]\n    wait until <key (space v) pressed?>\n    wait until <not <key (space v) pressed?>>\nelse\n    say [Okay, bye.                       \(press space\)]\n    wait until <key (space v) pressed?>\n    wait until <not <key (space v) pressed?>>\n    say [JUST KIDDING!                \(press space\)]\n    wait until <key (space v) pressed?>\n    wait until <not <key (space v) pressed?>>\n    say [Okay, here is your mission:                 \(press space\)]\n    wait until <key (space v) pressed?>\n    wait until <not <key (space v) pressed?>>\nend\nsay [Go to the Una region, and spy on them again.               \(press space\)]\nwait until <key (space v) pressed?>\nwait until <not <key (space v) pressed?>>\nsay [Make sure you get caught so we can track where you are so we can know where they are.                      \(press space\)]\nwait until <key (space v) pressed?>\nwait until <not <key (space v) pressed?>>\nsay [Only you know where both regions are.                        \(press space\)]\nwait until <key (space v) pressed?>\nwait until <not <key (space v) pressed?>>\nsay [Goodbye, now.                         \(press space\)]\nwait until <key (space v) pressed?>\nwait until <not <key (space v) pressed?>>\nbroadcast (end v)\nhide\n\n