Arctic - A Platformer

Instructions: Welcome to the Arctic! \nYou were exploring but you lost your crew! Adventure through this awesome world to find them!\n-Use arrow keys, WAD, or touch to move.\n-Press S to skip, R to retry.\n-Get to the right side of the level to move on to the next one.\n-With 19 levels, you will have fun!\nTell me in the comments if you want a sequel!\nThis took me a while to make so please love, favorite, and follow!\n

@Stage\n\n@Player\n\nwhen flag clicked\nforever\n    if <touching color (#00cccc)?> then\n        set [y v v] to ((9) * (0.9))\n        set [y v v] to ((9) * (0.9))\n        set [y v v] to ((9) * (0.9))\n        set [y v v] to ((9) * (0.9))\n        if <key (up arrow v) pressed?> then\n            set [y v v] to [1]\n            wait (1) seconds\n        end\n        if <key (up arrow v) pressed?> then\n            change [y v v] by (0.05)\n        end\n        if <key (down arrow v) pressed?> then\n            change [y v v] by (0.3)\n        end\n        if <key (left arrow v) pressed?> then\n            point in direction (-90)\n            change [x v v] by (-0.3)\n        end\n        if <key (right arrow v) pressed?> then\n            point in direction (90)\n            change [x v v] by (0.3)\n        end\n    end\nend\n\nwhen I receive [next level v]\nreset\nReset player variables\n\ndefine reset\nclear graphic effects\nset size to (15) %\nshow\ngo to x: (-200) y: (0)\npoint in direction (90)\nReset player variables\n\ndefine Reset player variables\nset [x v v] to [0]\nset [y v v] to [0]\n\nwhen I receive [start v]\nset [level v] to [1]\nset size to (15) %\nReset player variables\nreset\nforever\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n        change [x v v] by (1.5)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        change [x v v] by (-1.5)\n    end\n    set [x v v] to ((X v) * (0.9))\n    change x by (X v)\n    if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n        change y by (1)\n        if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n            change y by (1)\n            if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n                change y by (1)\n                if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n                    change y by (1)\n                    if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n                        change y by (1)\n                        if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n                            change x by ((X v) * (-1))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > ((y position) + (20))>>>> then\n                                if <(X v) > [0]> then\n                                    set [x v v] to [-3]\n                                else\n                                    set [x v v] to [6]\n                                end\n                                set [y v v] to [15]\n                            else\n                                set [x v v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v v] by (-1)\n    change y by (Y v)\n    if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n        change y by ((Y v) * (-1))\n        set [y v v] to [0]\n    end\n    change y by (-1)\n    if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > ((y position) + (20))>>>> then\n            set [y v v] to [14]\n        end\n    end\n    change y by (1)\n    if <<touching color (#00b5c6)?> or <touching color (#00def2)?>> then\n        reset\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <(x position) > [239]> then\n        broadcast (Next Level v)\n        reset\n        reset\n        Reset player variables\n    end\nend\n\nwhen I receive [reset v]\nreset\n\nwhen [s v] key pressed\nbroadcast (Next Level v)\n\nwhen [r v] key pressed\nreset\n\nwhen I receive [start v]\nreset\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\n\n@Levels\n\nwhen flag clicked\nswitch costume to (costume1 v)\nshow\nforever\n    switch costume to (Level)\nend\n\nwhen I receive [next level v]\nchange [level v] by (1)\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\n\n@Cave Background\n\nwhen flag clicked\nforever\n    if <<(Level) > [8]> and <(Level) < [16]>> then\n        show\n    else\n        hide\n    end\nend\n\n@Thumbnail\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\n@CrewMember1\n\nwhen flag clicked\nhide\nforever\n    if <(Level) = [20]> then\n        show\n        glide (0.8) secs to (player v)\n    else\n        hide\n    end\nend\n\n@CrewMember2\n\nwhen flag clicked\nhide\nforever\n    if <(Level) = [20]> then\n        show\n        glide (1) secs to (player v)\n    else\n        hide\n    end\nend\n\nif <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n    change y by (1)\n    if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n        change y by (1)\n        if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n            change y by (1)\n            if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n                change y by (1)\n                if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n                    change y by (1)\n                    if <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n                        change x by ((X v) * (-1))\n                        change y by (-5)\n                        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > ((y position) + (20))>>>> then\n                            if <(X v) > [0]> then\n                                set [x v v] to [-5]\n                            else\n                                set [x v v] to [5]\n                            end\n                            set [y v v] to [15]\n                        else\n                            set [x v v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange [y v v] by (-1)\nchange y by (Y v)\nif <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n    change y by ((Y v) * (-1))\n    set [y v v] to [0]\nend\nchange y by (-1)\nif <<touching color (#e6e6e6)?> or <touching color (#a8faf7)?>> then\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > ((y position) + (20))>>>> then\n        set [y v v] to [14]\n    end\nend\nchange y by (1)\nif <<touching color (#00b5c6)?> or <touching color (#00def2)?>> then\n    reset\nend\n\n@Intro3\n\nwhen flag clicked\nstart sound [Valence - Infinite v]\nhide\nswitch costume to (background1 v)\nset [clone id v] to [0]\nset size to (1) %\nrepeat (4)\n    create clone of (_myself_ v)\n    next costume\nend\nwait (0.5) seconds\nset [yv v] to [0]\nset size to (100) %\nset [xv v] to [0]\nhide\nrepeat (4)\n    wait (0.1) seconds\n    create clone of (_myself_ v)\n    change [clone id v] by (1)\nend\nwait (1) seconds\nhide\nswitch costume to (blank v)\nset [clone id v] to [6]\nrepeat (16)\n    create clone of (_myself_ v)\n    next costume\n    go to [front v] layer\n    go to x: (-20) y: (-2000)\nend\nwait (0.25) seconds\nrepeat (7)\n    set [clone id v] to [7]\n    create clone of (_myself_ v)\nend\nwait (1) seconds\nset [clone id v] to [7]\ngo to x: (0) y: (-10)\nrepeat (6)\n    create clone of (_myself_ v)\nend\nwait (1) seconds\nswitch costume to (blank v)\nrepeat (6)\n    next costume\n    set [clone id v] to [5]\n    create clone of (_myself_ v)\nend\nhide\ndelete this clone\n\nwhen I start as a clone\nif <(CLONE iD) = [0]> then\n    set size to (1) %\n    show\n    go to x: (-2000) y: (0)\n    repeat (30)\n        change x by (((0) - (x position)) / (4))\n        change size by (((0) - (size)) / (-4))\n    end\n    go to x: (0) y: (0)\n    go to [back v] layer\n    wait (5) seconds\n    delete this clone\nend\n\nwhen I start as a clone\nif <(CLONE iD) = [2]> then\n    show\n    switch costume to (logo3 v)\n    go to x: (2000) y: (0)\n    repeat (10)\n        change x by (((0) - (x position)) / (3))\n    end\n    go to x: (0) y: (0)\n    wait (1.7) seconds\n    set [xv v] to [-10]\n    set [yv v] to [10]\n    repeat (29)\n        change [yv v] by (-1)\n        set [xv v] to ((xv) * (0.95))\n        change x by (xv)\n        change y by (yv)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(CLONE iD) = [3]> then\n    switch costume to (logo1 v)\n    show\n    go to x: (0) y: (2000)\n    repeat (10)\n        change y by (((0) - (y position)) / (3))\n    end\n    go to x: (0) y: (0)\n    wait (1.4) seconds\n    set [xv v] to [0]\n    set [yv v] to [5]\n    repeat (29)\n        change [yv v] by (-1)\n        set [xv v] to ((xv) * (0.95))\n        change x by (xv)\n        change y by (yv)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(CLONE iD) = [1]> then\n    switch costume to (logo2 v)\n    show\n    go to x: (-2000) y: (0)\n    repeat (10)\n        change x by (((0) - (x position)) / (3))\n    end\n    go to x: (0) y: (0)\n    wait (2) seconds\n    set [xv v] to [10]\n    set [yv v] to [10]\n    repeat (32)\n        change [yv v] by (-1)\n        set [xv v] to ((xv) * (0.95))\n        change x by (xv)\n        change y by (yv)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(CLONE iD) = [6]> then\n    set size to (100) %\n    show\n    repeat (20)\n        change y by (((0) - (y position)) / (7))\n    end\n    wait (1) seconds\n    set [xv v] to (pick random (-10) to (10))\n    set [yv v] to (pick random (12) to (17.0))\n    repeat until <(y position) < [-165]>\n        change [yv v] by (-1)\n        set [xv v] to ((xv) * (0.95))\n        change x by (xv)\n        change y by (yv)\n        if <touching (_edge_ v)?> then\n            change [ghost v] effect by (100)\n        end\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(CLONE iD) = [7]> then\n    go to x: (0) y: (-10)\n    show\n    set size to (pick random (40) to (75)) %\n    switch costume to (i11 v)\n    set [xv v] to (pick random (-10) to (10.0))\n    set [ghost v] effect to (pick random (12) to (23))\n    set [yv v] to (pick random (12) to (17.0))\n    repeat until <(y position) < [-170]>\n        change x by (xv)\n        change y by (yv)\n        change [yv v] by (-1)\n        set [xv v] to ((xv) * (0.95))\n        change [ghost v] effect by (1)\n    end\n    switch costume to (blank v)\n    delete this clone\nend\n\nwhen I start as a clone\nif <(CLONE iD) = [5]> then\n    set size to (100) %\n    show\n    go to x: (-2000) y: (0)\n    repeat (10)\n        change x by (((0) - (x position)) / (4))\n    end\n    wait (1) seconds\n    set [:\) v] to [1]\n    delete this clone\nend\n\nforever\n\nwhen flag clicked\nwait (7.3) seconds\nbroadcast (Start v)\n\n