Bears (Platformer)

Instructions: Bears l Devoleped by @-ProgrammerBro-\n========================================= Instuctions\n=========================================\n➤ Leave a ♡ love and ☆ favorite if you enjoyed the game!\n➤Follow me for new games!\n➤ This game will take approximately 1+ minutes to complete!\n➤Use the arrow keys \n➤Comment Feedback and Feedforward\n➤Check out my other platformers!

@Stage\n\nwhen backdrop switches to [level 8 v]\n\n@Sprite1\n\nwhen flag clicked\nhide\nwait (10) seconds\ngo to x: (-182) y: (-128)\nswitch backdrop to (level 1 v)\nforever\n    if <touching (grape for bare v)?> then\n        switch backdrop to (next backdrop v)\n        go to x: (-189) y: (-124)\n        wait (1) seconds\n    end\nend\n\nwhen backdrop switches to [lvel 3 v]\ngo to x: (-200) y: (-127)\n\nwhen backdrop switches to [level 3 v]\ngo to x: (-185) y: (-124)\n\nwhen backdrop switches to [level 8 v]\ngo to x: (-170) y: (-121)\n\nwhen backdrop switches to [lvel 9 v]\ngo to x: (-183) y: (44)\n\nwhen backdrop switches to [backdrop1 v]\nshow variable [death v]\n\nwhen flag clicked\nhide variable [death v]\nwait (0.8) seconds\ngo to x: (-143) y: (-129)\nset [xv v] to [0]\nset [yv v] to [0]\nforever\n    if <touching color (#cccc00)?> then\n        set [mode v] to [jump]\n        set [yv v] to [14]\n    end\n    if <touching color (#5b9aea)?> then\n        if <<key (down arrow v) pressed?> or <key (s v) pressed?>> then\n            change [yv v] by (-1)\n        else\n            change [yv v] by (1)\n        end\n    end\n    if <<key (r v) pressed?> and <key (g v) pressed?>> then\n        wait until <not <<key (g v) pressed?> and <key (r v) pressed?>>>\n        go to x: (-231) y: (-135)\n        set [xv v] to [0]\n        set [yv v] to [0]\n        broadcast (Restart v)\n    end\n    if <key (r v) pressed?> then\n        if <not <key (g v) pressed?>> then\n            wait until <not <key (r v) pressed?>>\n            go to x: (-231) y: (-135)\n            set [xv v] to [0]\n            set [yv v] to [0]\n        end\n    end\n    go to [front v] layer\n    if <(back) = [1]> then\n        hide\n        stop [this script v]\n    end\n    if <(x position) > [365]> then\n        broadcast (Next v)\n        set x to (-222)\n        set [xv v] to [0]\n        set [yv v] to [0]\n    end\n    if <touching color (#ff0000)?> then\n        go to x: (-83) y: (-129)\n        set [xv v] to [0]\n        set [yv v] to [0]\n    end\n    if <<key (left arrow v) pressed?> or <key (a v) pressed?>> then\n        switch costume to (costume1 v)\n        change [xv v] by (-1)\n    end\n    if <<key (right arrow v) pressed?> or <key (d v) pressed?>> then\n        switch costume to (costume2 v)\n        change [xv v] by (1)\n    end\n    set [xv v] to ((xv) * (0.85))\n    change x by (xv)\n    if <touching color (#00ff55)?> then\n        change y by (-2)\n        if <touching color (#00ff55)?> then\n            change y by (1)\n            if <touching color (#00ff55)?> then\n                change y by (1)\n                if <touching color (#00ff55)?> then\n                    change y by (1)\n                    if <touching color (#00ff55)?> then\n                        change y by (1)\n                        if <touching color (#00ff55)?> then\n                            change y by (1)\n                            if <touching color (#00ff55)?> then\n                                change y by (-5)\n                                change x by ((-1) * (xv))\n                                if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> and <not <(xv) = [0]>>> then\n                                    set [mode v] to [walljump]\n                                    set [yv v] to [8]\n                                    set [xv v] to (((xv) / ([abs v] of (xv) )) * (-10))\n                                else\n                                    set [mode v] to [wallslide]\n                                    set [xv v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change y by (2)\n    end\n    change y by (-3)\n    if <touching color (#00ff55)?> then\n        if <(yv) = [-3]> then\n            if <<key (left arrow v) pressed?> or <key (right arrow v) pressed?>> then\n                set [mode v] to [run]\n            else\n                if <([abs v] of (xv) ) > [.1]> then\n                    set [mode v] to [skid]\n                else\n                    set [mode v] to [stand]\n                end\n            end\n        end\n        if <<key (up arrow v) pressed?> or <key (w v) pressed?>> then\n            set [mode v] to [jump]\n            set [yv v] to [9]\n        end\n    end\n    if <<<<(mode) = [jump]> or <(mode) = [walljump]>> and <(yv) < [0]>> or <<<(mode) = [run]> or <(mode) = [skid]>> and <(yv) < [-3]>>> then\n        set [mode v] to [fall]\n    end\n    change y by (3)\n    if <(yv) > [-15]> then\n        change [yv v] by (-0.5)\n    end\n    change y by (-2)\n    if <not <touching color (#00ff55)?>> then\n        change y by (-1)\n        if <not <touching color (#00ff55)?>> then\n            change y by (-1)\n            if <not <touching color (#00ff55)?>> then\n                change y by (-1)\n                if <not <touching color (#00ff55)?>> then\n                    change y by (-1)\n                    if <not <touching color (#00ff55)?>> then\n                        change y by (-1)\n                        if <not <touching color (#00ff55)?>> then\n                            change y by (5)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (2)\n    change y by (yv)\n    if <touching color (#00ff55)?> then\n        change y by (-2)\n        if <touching color (#00ff55)?> then\n            change y by ((-1) * (yv))\n            set [yv v] to [-3]\n        end\n        change y by (2)\n    end\nend\n\nwhen backdrop switches to [level 1 v]\nshow\ngo to x: (-182) y: (-128)\n\nwhen backdrop switches to [backdrop1 v]\nhide\n\nwhen flag clicked\nforever\n    if <touching color (#009999)?> then\n        go to x: (-170) y: (-121)\n        change [death v] by (1)\n    end\nend\n\nwhen backdrop switches to [level 7 v]\ngo to x: (-182) y: (-115)\n\n@Intro\n\nwhen flag clicked\nhide\nset [intro? v] to [1]\nif <(Intro?) = [1]> then\n    hide\n    switch costume to (background v)\n    create clone of (_myself_ v)\n    set volume to (100) %\n    start sound [Intro Music v]\n    wait (1) seconds\n    switch costume to (logo v)\n    create clone of (_myself_ v)\n    wait (3) seconds\n    switch costume to (games v)\n    create clone of (_myself_ v)\n    repeat (3)\n        wait (0.5) seconds\n        next costume\n        create clone of (_myself_ v)\n    end\n    wait (0.5) seconds\n    switch costume to (favorite v)\n    create clone of (_myself_ v)\n    repeat (3)\n        wait (0.15) seconds\n        next costume\n        create clone of (_myself_ v)\n    end\n    wait (0.5) seconds\n    go to x: (0) y: (0)\n    point in direction (90)\n    switch costume to (fade v)\n    set [ghost v] effect to (100)\n    set size to (100) %\n    go to [front v] layer\n    show\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    broadcast (Intro Done v)\n    hide\nelse\n    broadcast (Intro Done v)\nend\n\nwhen I receive [intro done v]\nset [intro? v] to [0]\ndelete this clone\n\nwhen I start as a clone\nhide\npoint in direction (90)\nif <(costume [number v]) = [2]> then\n    go to x: (0) y: (0)\n    set size to (100) %\n    go to [front v] layer\n    show\nelse\n    if <(costume [number v]) = [4]> then\n        go to x: (-360) y: (0)\n        point in direction (90)\n        switch costume to (logo v)\n        set [ghost v] effect to (0)\n        set size to (120) %\n        go to [front v] layer\n        show\n        set [bounce v] to [2]\n        repeat (30)\n            set [bounce v] to (((Bounce) * (0.7)) + (((0) - (x position)) * (0.2)))\n            change x by (Bounce)\n        end\n        set [bounce v] to [1]\n        repeat (2)\n            repeat (12)\n                set [bounce v] to (((Bounce) * (0.5)) + (((80) - (size)) * (0.9)))\n                change size by (Bounce)\n            end\n            repeat (12)\n                set [bounce v] to (((Bounce) * (0.5)) + (((120) - (size)) * (0.9)))\n                change size by (Bounce)\n            end\n        end\n        wait (0.05) seconds\n        repeat (7)\n            change size by (((80) - (size)) * (0.5))\n        end\n        repeat (15)\n            change x by (((-70) - (x position)) * (0.3))\n        end\n    else\n        if <(costume [number v]) > [8]> then\n            go to x: (60) y: (-60)\n            set [ghost v] effect to (100)\n            set size to (120) %\n            go to [front v] layer\n            show\n            repeat (6)\n                change y by (((0) - (y position)) * (0.5))\n                change [ghost v] effect by (-15)\n            end\n            wait (0.2) seconds\n            repeat (6)\n                change y by (((60) - (y position)) * (0.5))\n                change [ghost v] effect by (15)\n            end\n            delete this clone\n        else\n            point in direction (pick random (75) to (115))\n            go to x: (260) y: (0)\n            set size to (100) %\n            go to [front v] layer\n            show\n            if <(costume [number v]) = [5]> then\n                X: (60)\n            else\n                if <(costume [number v]) = [6]> then\n                    X: (110)\n                else\n                    if <(costume [number v]) = [7]> then\n                        X: (160)\n                    else\n                        X: (210)\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine None\nset [bounce v] to [1]\nrepeat (30)\n    set [bounce v] to (((Bounce) * (0.5)) + (((x) - (x position)) * (0.2)))\n    change x by (Bounce)\nend\n\nset [intro? v] to [1]\nerase all\nshow\ngo to [front v] layer\nswitch costume to (thumbnail v)\nset size to (100) %\ngo to x: (0) y: (0)\npoint in direction (90)\n\n@Grape for Bare\n\nwhen backdrop switches to [level 1 v]\nshow\ngo to x: (208) y: (-150)\n\nwhen backdrop switches to [level 4 v]\ngo to x: (181) y: (111)\n\nwhen backdrop switches to [level 3 v]\ngo to x: (188) y: (-98)\n\nwhen backdrop switches to [level 4 v]\ngo to x: (157) y: (-50)\n\nwhen backdrop switches to [level 5 v]\ngo to x: (139) y: (104)\n\nwhen backdrop switches to [level 4 v]\ngo to x: (139) y: (104)\n\nwhen backdrop switches to [end level v]\ngo to x: (215) y: (113)\n\nwhen backdrop switches to [level 5 v]\ngo to x: (205) y: (-141)\n\nwhen backdrop switches to [backdrop1 v]\nhide\n\nwhen backdrop switches to [level 8 v]\ngo to x: (98) y: (68)\n\nwhen backdrop switches to [lvel 9 v]\ngo to x: (158) y: (108)\n\n