(CLOSED) 1K Platformer + Intro Contest

Instructions: Welcome!! All info is in the project! :D \n1000th Follower: SierraTRC\n\nTYSM FOR 1K FOLLOWERS!!! :DD When I started scratch I never thought that I would ever get this far!\nI can't thank you all enough! :D

@Stage\n\nwhen flag clicked\nset volume to (100) %\nforever\n    if <(pick random (1) to (3)) = [1]> then\n        play sound [Vexento - Nostalgia v] until done\n    else\n        if <(pick random (1) to (3)) = [2]> then\n            play sound [Vexento - Time Goes By v] until done\n        else\n            if <(pick random (1) to (3)) = [3]> then\n                play sound [Vexento - Falling Star v] until done\n            end\n        end\n    end\nend\n\n@Slides\n\ndefine PreviousSlide\ncreate clone of (_myself_ v)\nswitch costume to ((CurrentSlide) - (1))\ngo to x: (-360) y: (0)\ngo to [front v] layer\nset [xv2 v] to [50]\nrepeat (10)\n    change [xv2 v] by (-1)\n    change x by (Xv2)\n    if <(x position) < [0]> then\n        go to x: (0) y: (0)\n        stop [this script v]\n    end\nend\n\nwhen I start as a clone\nif <(LeftOrRight?) = [L]> then\n    go to [front v] layer\n    set [xv v] to [-52]\n    repeat (18)\n        change [xv v] by (2)\n        change x by (Xv)\n    end\n    set [inmotion? v] to [0]\n    delete this clone\nelse\n    if <(LeftOrRight?) = [R]> then\n        go to [front v] layer\n        set [xv v] to [52]\n        repeat (18)\n            change [xv v] by (-2)\n            change x by (Xv)\n        end\n        set [inmotion? v] to [0]\n        delete this clone\n    end\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [inmotion? v] to [0]\nset [leftorright? v] to [0]\nset [currentslide v] to [1]\nswitch costume to (slide1 v)\nforever\n    if <key (right arrow v) pressed?> then\n        NextSlide\n        set [inmotion? v] to [1]\n        set [leftorright? v] to [L]\n        wait (0.9) seconds\n        set [leftorright? v] to [0]\n    else\n        if <<touching (mouse-pointer v)?> and <mouse down?>> then\n            wait until <not <mouse down?>>\n            if <(mouse x) > [0]> then\n                NextSlide\n                set [inmotion? v] to [1]\n                set [leftorright? v] to [L]\n                wait (0.9) seconds\n                set [leftorright? v] to [0]\n            else\n                if <(mouse x) < [0]> then\n                    PreviousSlide\n                    set [inmotion? v] to [1]\n                    set [leftorright? v] to [R]\n                    wait (0.9) seconds\n                    set [leftorright? v] to [0]\n                end\n            end\n        else\n            if <key (left arrow v) pressed?> then\n                PreviousSlide\n                set [inmotion? v] to [1]\n                set [leftorright? v] to [R]\n                wait (0.9) seconds\n                set [leftorright? v] to [0]\n            end\n        end\n        set [currentslide v] to (costume [number v])\n    end\nend\n\ndefine NextSlide\ncreate clone of (_myself_ v)\nswitch costume to ((CurrentSlide) + (1))\ngo to x: (360) y: (0)\ngo to [front v] layer\nset [xv2 v] to [-50]\nrepeat (10)\n    change [xv2 v] by (1)\n    change x by (Xv2)\n    if <(x position) > [0]> then\n        go to x: (0) y: (0)\n        stop [this script v]\n    end\nend\n\n