Scorch-A platformer

Instructions: ++++++++++++++++Scorch++++++++++++++++\nThe whole world was scorched four years ago. Earthquakes, tidal waves, hurricanes and tornados beated the earth, and then all the water seeped deep into the earth. It's your job to find it!\n-DOUBLE CLICK GREEN FLAG\n-Arrow keys to move\n-Don't touch hazards\n-Leave a love, fave and follow\n\n

@Stage\n\n@Ground\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\n\nwhen I receive [ground show v]\nshow\ngo to [back v] layer\nshow\nswitch costume to (ground 1 v)\n\nwhen I receive [next costume v]\nnext costume\nwait (1) seconds\n\nwhen I receive [ground show v]\nforever\n    if <(costume [number v]) = [9]> then\n        broadcast (Ride v)\n        stop [this script v]\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <(costume [number v]) = [10]> then\n        broadcast (Hide Ride v)\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <(costume [number v]) = [15]> then\n        broadcast (Entrance v)\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <(costume [number v]) = [15]> then\n        broadcast (Entrance v)\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <(costume [number v]) = [16]> then\n        broadcast (Great Caves v)\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <(costume [number v]) = [20]> then\n        broadcast (Water v)\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <(costume [number v]) = [20]> then\n        broadcast (Done v)\n    end\nend\n\n@Player\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nset [game mode v] to [Lobby]\n\nwhen I receive [ground show v]\ngo to x: (-216) y: (-93)\nshow\ngo to [front v] layer\nforever\n    change [y v] by (-0.5)\n    if <key (left arrow v) pressed?> then\n        change [x v] by (-0.7)\n        switch costume to (costume2 v)\n    end\n    if <key (right arrow v) pressed?> then\n        change [x v] by (0.7)\n        switch costume to (costume1 v)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <<touching (ground v)?> or <touching (ride v)?>> then\n        change y by (1)\n        if <<touching (ground v)?> or <touching (ride v)?>> then\n            change y by (1)\n            if <<touching (ground v)?> or <touching (ride v)?>> then\n                change y by (1)\n                if < or <touching (ride v)?>> then\n                    change y by (1)\n                    if <<touching (ground v)?> or <touching (ride v)?>> then\n                        change y by (1)\n                        if <<touching (ground v)?> or <touching (ride v)?>> then\n                            change y by (1)\n                            if <<touching (ground v)?> or <touching (ride v)?>> then\n                                change y by (-6)\n                                if <key (up arrow v) pressed?> then\n                                    set [y v] to [10]\n                                    if <(x) > [0]> then\n                                        set [x v] to [-10]\n                                    else\n                                        set [x v] to [10]\n                                    end\n                                else\n                                    change x by ((x) * (-1))\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (y)\n    if <<touching (ground v)?> or <touching (ride v)?>> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-0.5)\n    if <<<touching (ground v)?> or <touching (ride v)?>> and <key (up arrow v) pressed?>> then\n        set [y v] to [6.5]\n    end\n    change y by (0.5)\nend\n\nwhen I receive [ground show v]\nforever\n    if <(x position) > [244]> then\n        broadcast (Next costume v)\n        go to x: (-216) y: (-93)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(y position) < [-185]> or <touching (dead water v)?>> then\n        go to x: (-216) y: (-93)\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <touching (quicksand v)?> then\n        change [y v] by (-0.5)\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 (quicksand v)?> then\n            change y by (0)\n            if <touching (quicksand v)?> then\n                change y by (0)\n                if <touching (quicksand v)?> then\n                    change y by (0)\n                    if <touching (quicksand v)?> then\n                        change y by (0)\n                        if <touching (quicksand v)?> then\n                            change y by (-0.1)\n                            if <touching (quicksand v)?> then\n                                change y by (-0.1)\n                                if <touching (quicksand v)?> then\n                                    change y by (-1.5)\n                                    if <key (up arrow v) pressed?> then\n                                        set [y v] to [3]\n                                        if <(x) > [0]> then\n                                            set [x v] to [-3]\n                                        else\n                                            set [x v] to [3]\n                                        end\n                                    else\n                                        change x by ((x) * (-1))\n                                        set [x v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change y by (y)\n        if <touching (quicksand v)?> then\n            change y by ((y) * (-1))\n            set [y v] to [1]\n        end\n        change y by (-0.5)\n        if <<touching (quicksand v)?> and <key (up arrow v) pressed?>> then\n            set [y v] to [3]\n        end\n        change y by (-0.5)\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <touching (water v)?> then\n        change [y v] by (4)\n        if <key (left arrow v) pressed?> then\n            change [x v] by (-5)\n        end\n        if <key (right arrow v) pressed?> then\n            change [x v] by (5)\n        end\n        set [x v] to ((x) * (0.9))\n        change x by (x)\n        if <touching (water v)?> then\n            change y by (0)\n            if <touching (water v)?> then\n                change y by (0)\n                if <touching (water v)?> then\n                    change y by (0)\n                    if <touching (water v)?> then\n                        change y by (0)\n                        if <touching (water v)?> then\n                            change y by (-0.1)\n                            if <touching (water v)?> then\n                                change y by (-0.1)\n                                if <touching (water v)?> then\n                                    change y by (-1.5)\n                                    if <key (up arrow v) pressed?> then\n                                        set [y v] to [3]\n                                        if <(x) > [0]> then\n                                            set [x v] to [-3]\n                                        else\n                                            set [x v] to [3]\n                                        end\n                                    else\n                                        change x by ((x) * (-1))\n                                        set [x v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change y by (y)\n        if <touching (water v)?> then\n            change y by ((y) * (-1))\n            set [y v] to [1]\n        end\n        change y by (-0.5)\n        if <<touching (water v)?> and <key (up arrow v) pressed?>> then\n            set [y v] to [3]\n        end\n        if <<touching (water v)?> and <key (down arrow v) pressed?>> then\n            set [y v] to [-3]\n        end\n        change y by (4)\n    end\nend\n\n@Loading Screen\n\nwhen flag clicked\nstart sound [Fearless First v]\nhide\n\nwhen I receive [start v]\nforever\n    set [game mode v] to [Loading]\n    show\n    go to x: (0) y: (0)\n    switch costume to (costume1 v)\n    repeat (16)\n        wait (.3) seconds\n        next costume\n    end\n    broadcast (Ground Show v) and wait\n    start sound [Industrial Cinematic v]\n    hide\nend\n\nwhen I receive [ground show v]\nset [game mode v] to [Playing]\nstop all sounds\nforever\n    hide\nend\n\nwhen I receive [ground show v]\nstart sound [Industrial Cinematic v]\n\nstart sound [Man Down v]\n\nstop all sounds\n\nwhen I receive [great caves v]\n\nplay sound [Man Down v] until done\n\nwhen I receive [entrance v]\nstart sound [Man Down v]\n\nstop all sounds\n\nstop [other scripts in sprite v]\n\n\n\nforever\n\nclear sound effects\n\n@Main Lobby\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\n\nwhen I receive [ground show v]\nhide\n\nwhen I receive [start v]\nhide\n\n@Play (Scorch) (1)\n\nwhen flag clicked\ngo to [front v] layer\nswitch costume to (costume2 v)\nshow\ngo to x: (0) y: (0)\nforever\n    if <touching (mouse-pointer v)?> then\n        switch costume to (costume3 v)\n        start sound [recording1 v]\n        wait until <<mouse down?> or <not <touching (mouse-pointer v)?>>>\n    else\n        switch costume to (costume2 v)\n    end\n    if <<touching (mouse-pointer v)?> and <<mouse down?> and <(Game Mode) = [Lobby]>>> then\n        broadcast (Start v)\n        hide\n    end\nend\n\n@Sprite1\n\nwhen flag clicked\nhide\n\nwhen I receive [ground show v]\nswitch costume to (costume1 v)\nforever\n    go to x: (0) y: (0)\n    show\n    go to [back v] layer\nend\n\nwhen I receive [entrance v]\nswitch costume to (costume2 v)\n\nwhen I receive [great caves v]\nswitch costume to (costume3 v)\n\nwhen I receive [done v]\nhide\n\n@Sprite2\n\nwhen flag clicked\nforever\n    hide\nend\n\nwhen I receive [poison v]\nshow\ngo to [front v] layer\nrepeat (10)\n    next costume\n    wait (1) seconds\nend\n\nrepeat until <[] > [50]>\nend\n\n@Narrator\n\nwhen flag clicked\nhide\n\nwhen I receive [ground show v]\ngo to x: (17) y: (56)\nswitch costume to (scorch 1 v)\nshow\n\nwhen I receive [next costume v]\ngo to x: (17) y: (56)\nnext costume\n\n@Ride\n\nwhen flag clicked\ngo to x: (-175) y: (-136)\nhide\ngo to [back v] layer\n\nwhen I receive [ride v]\ngo to [front v] layer\nshow\nrepeat until <([costume # v] of [ground v]) = [10]>\n    glide (3) secs to x: (155) y: (-136)\n    wait (3) seconds\n    glide (3) secs to x: (-175) y: (-136)\n    wait (3) seconds\nend\ngo to [back v] layer\nhide\nstop [this script v]\n\nwhen I receive [ground show v]\nhide\ngo to [back v] layer\n\nwhen I receive [hide ride v]\nhide\ngo to [back v] layer\n\n@Dead Water\n\nwhen flag clicked\nhide\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [10]> then\n        switch costume to (costume1 v)\n        go to x: (0) y: (0)\n        show\n    end\nend\n\nwhen I receive [ground show v]\nhide\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [11]> then\n        hide\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [12]> then\n        switch costume to (costume2 v)\n        go to x: (0) y: (0)\n        show\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [13]> then\n        hide\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [17]> then\n        switch costume to (costume3 v)\n        go to x: (0) y: (0)\n        show\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [18]> then\n        switch costume to (costume4 v)\n        go to x: (0) y: (0)\n        show\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [19]> then\n        switch costume to (costume5 v)\n        go to x: (0) y: (0)\n        show\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [20]> then\n        hide\n    end\nend\n\n@Quicksand\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [12]> then\n        go to x: (0) y: (0)\n        switch costume to (costume2 v)\n        show\n    end\nend\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [11]> then\n        switch costume to (costume1 v)\n        go to x: (0) y: (0)\n        show\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [ground show v]\nhide\n\nwhen I receive [ground show v]\nforever\n    if <([costume # v] of [ground v]) = [13]> then\n        hide\n    end\nend\n\n@Thumbnail\n\nwhen flag clicked\nforever\n    show\n    go to [front v] layer\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\nend\n\n@Water\n\nwhen flag clicked\nhide\n\nwhen I receive [ground show v]\nhide\n\nwhen I receive [water v]\nshow\ngo to [back v] layer\ngo to x: (0) y: (0)\n\n