Pogo Parkour (Scrolling Platformer) Beta v0.8 

Instructions: \n\nA love and fav wouldn't hurt...\n\nThe high score has been reset for version 0.8, since it is a lot harder than version 0.7 and below.\n\n-----------------------I am Open To Suggestions!-------------------------\n\n200 views!!!! -November 11\n300 views!!  Thank you guys so much! -November 15\n400 views! What!?!?! Thanks so much! -November 23\n500 views?!? -November 30\n600 views!!?!??! Speechless! -December 7

@Stage\n\nwhen flag clicked\nforever\n    play sound [Vexento - Snowflakes v] until done\nend\n\nwhen flag clicked\nforever\n    set volume to (music volume) %\nend\n\n@Pogoer\n\ndefine Updates & Controls (#) ?\npoint in direction ((90) + (() - ((Stick X momentum) * (2))))\nchange [stick x v] by (Stick X momentum)\nchange [stick y v] by (Stick Y momentum)\nchange [stick x momentum v] by (() - ((0.1) * (Stick X momentum)))\ngo to x: ((Cam Scroll Layer X) - (Stick X)) y: ((Cam Scroll Layer y) - (Stick Y))\nset [gravity v] to ((0.8) / ((1) + ((Score) / (100))))\nchange [stick y momentum v] by (Gravity)\nif <((Cam Scroll Layer y) - (Stick Y)) < [-251]> then\n    hide\nelse\n    show\nend\nif <((Gravity) * (3.75)) < (Stick Y momentum)> then\n    if <<color (#7f7f7f) is touching (#001966)?> or <<color (#7f7f7f) is touching (#cc0000)?> or <color (#7f7f7f) is touching (#009933)?>>> then\n        start sound [pop v]\n        set [stick y momentum v] to [-13]\n        change [stick x momentum v] by (((0) - (Stick X momentum)) * (0.1))\n    end\n    if <color (#7f7f7f) is touching (#cc7700)?> then\n        start sound [pop v]\n        set [stick y momentum v] to [-20]\n        change [stick x momentum v] by (((0) - (Stick X momentum)) * (0.1))\n    end\nend\nif <(#) = [1]> then\n    if <key (right arrow v) pressed?> then\n        change [stick x momentum v] by (-1.5)\n    end\n    if <key (left arrow v) pressed?> then\n        change [stick x momentum v] by (1.5)\n    end\n    change [cam scroll layer x v] by (() - ((((x position) * ([abs v] of (x position) )) * ([abs v] of (x position) )) / (64000)))\n    change [cam scroll layer y v] by (() - ((((y position) * ([abs v] of (y position) )) * ([abs v] of (y position) )) / (32000)))\nend\n\nwhen I receive [message1 v]\nshow\nset [p? v] to [1]\nset [score v] to [1]\n\ncreate clone of (_myself_ v)\n\nif <((Highest Stick y) + (700)) < (Stick Y)> then\n    set [p? v] to [0]\nend\n\nset [stick y momentum v] to [100]\n\nwhen flag clicked\nshow\nforever\n    if <(Pause?) = [0]> then\n        Updates & Controls (P?) ?\n    end\nend\n\nwhen flag clicked\nswitch costume to (costume1 v)\nset size to (100) %\nset [p? v] to [0]\nset [stick y momentum v] to [0]\nset [stick x momentum v] to [0]\nset [stick y v] to [0]\nset [stick x v] to [1]\nset [cam scroll layer x v] to [0]\nset [cam scroll layer y v] to [0]\nset [pause? v] to [0]\nset [gravity v] to [1]\n\n\n\nset [stick y momentum v] to [-70]\n\nset [☁ high score v] to [0]\n\nwhen I start as a clone\nforever\n    show\n    go to x: (((Cam Scroll Layer X) - (Stick X)) * (1)) y: (((Cam Scroll Layer y) - (Stick Y)) * (1))\n    point in direction ((90) + (() - ((Stick X momentum) * (2))))\n    set [ghost v] effect to (80)\nend\n\n@Platforms\n\nwhen flag clicked\nhide\n\nwhen I receive [message1 v]\n\nwhen I start as a clone\nhide\nswitch costume to (pick random (1) to ((1) + ((Score) / (50))))\nset size to ((100) / ((2) * ([sqrt v] of (Score) ))) %\nif <[250] < (Score)> then\n    if <(round (pick random (1) to ((1) + ((300) / ((Score) - (250)))))) = [1]> then\n        if <(round (pick random (1) to ((10) + ((300) / ((Score) - (250)))))) = [1]> then\n            forever\n                if <(pick random (1) to (2)) = [2]> then\n                    set [ghost v] effect to (0)\n                    repeat (30)\n                        change [platform x v] by (-3)\n                    end\n                    set [ghost v] effect to (60)\n                    repeat (30)\n                        change [platform x v] by (-3)\n                    end\n                end\n                set [ghost v] effect to (0)\n                repeat (30)\n                    change [platform x v] by (3)\n                end\n                set [ghost v] effect to (60)\n                repeat (30)\n                    change [platform x v] by (3)\n                end\n                set [ghost v] effect to (0)\n                repeat (30)\n                    change [platform x v] by (-3)\n                end\n                set [ghost v] effect to (60)\n                repeat (30)\n                    change [platform x v] by (-3)\n                end\n            end\n        else\n            forever\n                if <(pick random (1) to (2)) = [2]> then\n                    repeat (60)\n                        change [platform x v] by (-3)\n                    end\n                end\n                repeat (60)\n                    change [platform x v] by (3)\n                end\n                repeat (60)\n                    change [platform x v] by (-3)\n                end\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nset [platform y v] to ((Expectation Y) + (-200))\nset [platform x v] to (((Stick X) + (pick random (-200) to (200))) * (1))\nif <not <(Platform Y) < [-200]>> then\n    delete this clone\nend\nset size to (75) %\nrepeat until <(P?) = [0]>\n    go to x: ((Cam Scroll Layer X) - (Platform X)) y: ((Cam Scroll Layer y) - (Platform Y))\nend\n\nwhen I start as a clone\nshow\nrepeat until <(P?) = [0]>\n    if <[200] < (((Cam Scroll Layer y) - (Platform Y)) / (1))> then\n        hide\n    else\n        if <(((Cam Scroll Layer y) - (Platform Y)) / (1)) < [-200]> then\n            delete this clone\n        else\n            if <<[284] < (((Cam Scroll Layer X) - (Platform X)) / (1))> or <[-284] > (((Cam Scroll Layer X) - (Platform X)) / (1))>> then\n                hide\n            else\n                show\n            end\n        end\n    end\nend\n\nwhen I receive [message1 v]\nrepeat until <(P?) = [0]>\n    if <(Highest Stick y) > (Stick Y)> then\n        set [highest stick y v] to (Stick Y)\n    end\n    if <(Expectation Y) > ((Highest Stick y) + (-300))> then\n        create clone of (_myself_ v)\n        if <<(pick random (1) to (3)) = [1]> and <not <(Cam Scroll Layer y) < [-11000]>>> then\n            create clone of (clouds v)\n        end\n        change [expectation y v] by (pick random (-40) to (-60))\n    end\nend\n\nwhen flag clicked\nset [highest stick y v] to [-500]\nset [expectation y v] to [0]\n\nwhen I receive [message1 v]\nset [highest stick y v] to [-500]\nset [expectation y v] to [0]\n\nstop [this script v]\n\nrepeat until <(P?) = [0]>\nend\n\nforever\n    go to x: (Cam Scroll Layer X) y: (Cam Scroll Layer y)\n    if <[173] < ((Cam Scroll Layer y) - (Platform Y))> then\n        hide\n    else\n        if <((Cam Scroll Layer y) - (Platform Y)) < [-173]> then\n            hide\n        else\n            if <<[284] < ((Cam Scroll Layer X) - (Platform X))> or <[-284] > ((Cam Scroll Layer X) - (Platform X))>> then\n                hide\n            else\n                show\n            end\n        end\n    end\nend\n\nshow\nset size to (75) %\n\nwhen I receive [message1 v]\ndelete this clone\n\nif <(costume [number v]) = [4]> then\nend\nrepeat until <(P?) = [0]>\n    if <[190] < ((Cam Scroll Layer y) - (Platform Y))> then\n        hide\n    else\n        if <<[280] < ((Cam Scroll Layer X) - (Platform X))> or <[-280] > ((Cam Scroll Layer X) - (Platform X))>> then\n            hide\n        else\n            show\n        end\n    end\n    if <[-170] > (y position)> then\n        delete this clone\n    end\nend\n\nset [ghost v] effect to (0)\n\n@Clouds\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    go to x: (((Cam Scroll Layer X) - (Cloud X)) / (4)) y: (((Cam Scroll Layer y) - (Cloud Y)) / (4))\nend\n\nwhen I receive [message1 v]\ndelete this clone\n\nrepeat until <(P?) = [0]>\nend\n\nwhen I start as a clone\nset [cloud y v] to ((Expectation Y) + (-300))\nset [cloud x v] to (((Stick X) + (pick random (-1600) to (1600))) * (1))\nif <not <(Cloud Y) < [-300]>> then\n    delete this clone\nend\nset size to (75) %\nforever\n    go to x: (((Cam Scroll Layer X) - (Cloud X)) / (4)) y: (((Cam Scroll Layer y) - (Cloud Y)) / (4))\nend\n\nwhen I start as a clone\npoint in direction (pick random (-90) to (180))\nswitch costume to (pick random (1) to (3))\nset [ghost v] effect to (pick random (0) to (50))\nforever\n    if <[197] < (((Cam Scroll Layer y) - (Cloud Y)) / (4))> then\n        hide\n    else\n        if <(((Cam Scroll Layer y) - (Cloud Y)) / (4)) < [-197]> then\n            hide\n            if <(((Cam Scroll Layer y) - (Cloud Y)) / (4)) < [-591]> then\n                delete this clone\n            end\n        else\n            if <<[300] < (((Cam Scroll Layer X) - (Cloud X)) / (4))> or <[-300] > (((Cam Scroll Layer X) - (Cloud X)) / (4))>> then\n                hide\n            else\n                show\n            end\n        end\n    end\nend\n\n@Your Score #s\n\nwhen flag clicked\nhide\nset [ysc# v] to [0]\nset [score v] to [0]\ngo to x: (226) y: (160)\nset size to (50) %\nset [color v] effect to (50)\nrepeat (10)\n    change [ysc# v] by (1)\n    create clone of (_myself_ v)\nend\n\nset [p? v] to [1]\nbroadcast (message1 v)\n\nset [stick y momentum v] to [-70]\n\nwhen I start as a clone\nset [my ysc# v] to (YSC#)\nforever\n    if <<(P?) = [0]> and <([costume # v] of [pogo parkour/ your score v]) = [2]>> then\n        go to x: ((-25) + ((13) * (My YSC#))) y: (((Cam Scroll Layer y) - (Menu Y)) + (67))\n    else\n        go to x: ((-160) + ((13) * (My YSC#))) y: (160)\n    end\nend\n\nwhen I start as a clone\nhide\nwait until <(P?) = [1]>\nforever\n    switch costume to ((letter (My YSC#) of (Score)) + (1))\n    if <((My YSC#) - (1)) < (length of (Score))> then\n        show\n    else\n        hide\n    end\nend\n\n@O-Pixel\n\nwhen flag clicked\ngo to x: (-200) y: (160)\nset size to (50) %\nset [color v] effect to (50)\nforever\n    if <(P?) = [0]> then\n        hide\n    else\n        show\n    end\nend\n\nwhen I receive [message1 v]\nrepeat until <(P?) = [0]>\n    set [score v] to ((1) + (((1) + (() - (round (((Highest Stick y) - (400)) / (100))))) - (10)))\nend\n\nif  then\nelse\nend\n\nset [ysc# v] to [0]\n\n@Play Button\n\nwait until <touching (pogoer v)?>\n\nwhen flag clicked\nforever\n    set [menu y v] to ((Highest Stick y) - (-650))\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [1]> then\n        if <touching (mouse-pointer v)?> then\n            change size by ((0.3) * ((120) - (size)))\n        else\n            change size by ((0.5) * ((100) - (size)))\n        end\n    else\n        if <([sqrt v] of ((((mouse x) - (x position)) * ((mouse x) - (x position))) + (((mouse y) - (y position)) * ((mouse y) - (y position)))) ) < [35]> then\n            if <<(Pause?) = [0]> and <(P?) = [0]>> then\n                change size by ((0.3) * ((120) - (size)))\n            end\n        else\n            change size by ((0.5) * ((100) - (size)))\n        end\n    end\nend\n\nwhen flag clicked\nswitch costume to (costume1 v)\nforever\n    go to x: (0) y: ((Cam Scroll Layer y) - (Menu Y))\nend\n\nwait until \n\nwhen flag clicked\nset [cam scroll layer y v] to [0]\nforever\n    wait until <((Cam Scroll Layer y) - (Menu Y)) < [-200]>\n    wait until <not <((Cam Scroll Layer y) - (Menu Y)) < [-200]>>\n    start sound [Falling v]\n    set [p? v] to [0]\n    repeat until <(P?) = [1]>\n        change [cam scroll layer y v] by ((0.1) * ((Menu Y) - (Cam Scroll Layer y)))\n    end\nend\n\nwhen flag clicked\nwait until <<mouse down?> and <touching (mouse-pointer v)?>>\nset [p? v] to [1]\nbroadcast (message1 v)\nset [stick y momentum v] to [-30]\nwait until <not <mouse down?>>\nforever\n    if <<mouse down?> and <([sqrt v] of ((((mouse x) - (x position)) * ((mouse x) - (x position))) + (((mouse y) - (y position)) * ((mouse y) - (y position)))) ) < [35]>> then\n        if <<(Pause?) = [0]> and <(P?) = [0]>> then\n            set [expectation y v] to [0]\n            set [highest stick y v] to [0]\n            set [score v] to [1]\n            set [stick y momentum v] to [-30]\n            set [stick x momentum v] to [0]\n            set [stick y v] to [1]\n            set [stick x v] to [0]\n            set [cam scroll layer x v] to [0]\n            set [cam scroll layer y v] to [0]\n            broadcast (message1 v)\n            set [p? v] to [1]\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <((Cam Scroll Layer y) - (Menu Y)) < [-200]> then\n        hide\n        switch costume to (redo v)\n    else\n        show\n    end\nend\n\nif  then\nend\n\nset size to (100) %\n\n@Pogo Parkour/ Your score\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [2]> then\n        go to x: (0) y: ((Cam Scroll Layer y) - (Menu Y))\n        point in direction (90)\n    else\n        go to x: (0) y: (((Cam Scroll Layer y) - (Menu Y)) + ((10) * ([sin v] of (Menu bounce) )))\n        point in direction (((2) * ([cos v] of (Menu bounce) )) + (90))\n        change [menu bounce v] by (5)\n    end\nend\n\nwhen flag clicked\nset [color v] effect to (50)\nswitch costume to (costume1 v)\nset [cam scroll layer y v] to [0]\nforever\n    if <((Cam Scroll Layer y) - (Menu Y)) < [-320]> then\n        hide\n        switch costume to (costume2 v)\n    else\n        show\n    end\nend\n\ngo to [front v] layer\ngo [backward v] (20) layers\n\n@Sprite1\n\nwhen flag clicked\ngo to x: (224) y: (168)\npoint in direction (90)\nforever\n    if <([sqrt v] of ((((mouse x) - (x position)) * ((mouse x) - (x position))) + (((mouse y) - (y position)) * ((mouse y) - (y position)))) ) < [11]> then\n        change size by ((0.3) * ((120) - (size)))\n        if <mouse down?> then\n            if <(P?) = [1]> then\n                wait until <not <mouse down?>>\n                next costume\n                set [pause? v] to ((costume [number v]) - (1))\n            end\n        end\n    else\n        change size by ((0.5) * ((100) - (size)))\n    end\n    if <(P?) = [0]> then\n        switch costume to (costume1 v)\n        set [pause? v] to [0]\n    end\nend\n\nwhen flag clicked\nswitch costume to (costume1 v)\nhide\nforever\n    if <(P?) = [0]> then\n        hide\n    else\n        show\n    end\nend\n\n@Options\n\nwhen flag clicked\nforever\n    change x by (Options X Velocity)\n    if <(Pause?) = [1]> then\n        if <(P?) = [0]> then\n            set [pause? v] to [0]\n        end\n        change [options x velocity v] by (() - ((x position) / (2)))\n        change [options x velocity v] by (() - ((Options X Velocity) / (3)))\n    else\n        set [options x velocity v] to [100]\n    end\n    if <[260] < (x position)> then\n        hide\n    else\n        show\n    end\nend\n\n@music button\n\nwhen flag clicked\nswitch costume to (bnbn v)\nset [music volume v] to [100]\nforever\n    if <not <[252] < (x position)>> then\n        if <[40] > ([sqrt v] of ((((mouse y) + (-45)) * ((mouse y) + (-45))) + ((mouse x) * (mouse x))) )> then\n            if <mouse down?> then\n                set [music volume v] to ((100) * ((costume [number v]) - (1)))\n                next costume\n                wait until <not <mouse down?>>\n            end\n        end\n    end\nend\n\nwhen flag clicked\ngo to (options v)\nforever\n    change x by (Options X Velocity)\n    if <[252] < (x position)> then\n        hide\n    else\n        show\n        if <[40] > ([sqrt v] of ((((mouse y) + (-45)) * ((mouse y) + (-45))) + ((mouse x) * (mouse x))) )> then\n            change size by ((0.3) * ((60) - (size)))\n        else\n            change size by ((0.5) * ((50) - (size)))\n        end\n    end\nend\n\nset size to (50) %\n\n@Atmosphere\n\nwhen flag clicked\nset [atmosphere clone # v] to [0]\ngo [backward v] (100) layers\nhide\ngo to x: (0) y: (0)\nrepeat (10)\n    create clone of (_myself_ v)\n    change [atmosphere clone # v] by (1)\nend\n\nwhen I start as a clone\nset [atmoshpere my # v] to (Atmosphere Clone #)\nset [ghost v] effect to (10)\nforever\n    if <(Cam Scroll Layer y) < ((-4000) + (() - ((Atmoshpere My #) * (1000))))> then\n        set y to (((Cam Scroll Layer y) - ((-4000) + (() - ((Atmoshpere My #) * (1000))))) / (10))\n        if <(y position) < [-343]> then\n            hide\n        else\n            show\n        end\n    else\n        go to x: (0) y: (0)\n        show\n    end\nend\n\n@Sprite2\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    go to x: (0) y: ((Cam Scroll Layer y) + (((☁ High Score) + (4)) * (100)))\n    if <[166] < (y position)> then\n        hide\n    else\n        if <(y position) < [-187]> then\n            hide\n        else\n            show\n        end\n    end\nend\n\ngo [backward v] (1) layers\n\nif <(y position) < ([y position v] of [pogoer v])> then\n    set [☁ high score v] to (Score)\nend\n\n@Sprite3\n\ngo to x: (0) y: (0)\n\nwhen flag clicked\nforever\n    go to x: (0) y: ((Cam Scroll Layer y) - (Menu Y))\nend\n\nwhen flag clicked\nset [score v] to [0]\nset [color v] effect to (50)\nforever\n    if <((Cam Scroll Layer y) - (Menu Y)) < [-320]> then\n        hide\n        switch costume to (costume2 v)\n    else\n        if <(☁ High Score) < (Score)> then\n            show\n            set [☁ high score v] to (Score)\n            wait until <((Cam Scroll Layer y) - (Menu Y)) < [-320]>\n        else\n            hide\n        end\n    end\nend\n\nset [☁ high score v] to [10]\n\nwait (10) seconds\n\n@High Score #s\n\nwhen flag clicked\ngo to x: (213) y: (160)\nset size to (50) %\nset [color v] effect to (50)\nhide\n\nwhen flag clicked\nset [color v] effect to (50)\n\nwhen flag clicked\nset [hsc# v] to [0]\nrepeat (10)\n    change [hsc# v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [message1 v]\n\nwhen I start as a clone\nset [my hsc# v] to (HSC#)\nwait until <((Cam Scroll Layer y) - (Menu Y)) < [-320]>\nforever\n    if <((Cam Scroll Layer y) - (Menu Y)) < [-320]> then\n        hide\n    else\n        if <not <((My HSC#) - (1)) < (length of (☁ High Score))>> then\n            hide\n        else\n            switch costume to ((letter (My HSC#) of (☁ High Score)) + (1))\n            show\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    go to x: ((-40) + ((My HSC#) * (13))) y: (((Cam Scroll Layer y) - (Menu Y)) + (98))\nend\n\n@Thumbnail\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nshow\ngo to [front v] layer\n\n