Elements-Earth A Platformer

Instructions: I will be inactive!!\n\nBut for now, IM BACK! :D

@Stage\n\nwhen flag clicked\nswitch backdrop to (backdrop1 v)\n\nwhen I receive [next level v]\nnext backdrop\n\nwhen backdrop switches to [backdrop8 v]\nbroadcast (Shovel v)\n\nwhen backdrop switches to [backdrop8 v]\nbroadcast (Switch v)\n\nwhen backdrop switches to [backdrop11 v]\nbroadcast (end v)\nstop [all v]\n\n@Sprite1\n\nwhen I receive [start1 v]\nswitch costume to (costume1 v)\nhide\ngo to x: (-114) y: (-115)\nshow\nrepeat until <(Finished) = [1]>\n    if <key (right arrow v) pressed?> then\n        change [xv v] by (1)\n    end\n    if <key (left arrow v) pressed?> then\n        change [xv v] by (-1)\n    end\n    set [xv v] to ((Xv) * (0.9))\n    change x by (Xv)\n    if <<touching (ground v)?> or <touching color (#995900)?>> then\n        change y by (1)\n        if <<touching (ground v)?> or <touching color (#995900)?>> then\n            change y by (1)\n            if <<touching (ground v)?> or <touching color (#995900)?>> then\n                change y by (1)\n                if <<touching (ground v)?> or <touching color (#995900)?>> then\n                    change y by (1)\n                    if <<touching (ground v)?> or <touching color (#995900)?>> then\n                        change y by (1)\n                    end\n                end\n            end\n        end\n    end\n    if <<touching (ground v)?> or <touching color (#995900)?>> then\n        change x by ((Xv) * (-1))\n        change y by (-5)\n        if <key (up arrow v) pressed?> then\n            if <(Xv) > [0]> then\n                set [xv v] to [-5]\n            else\n                set [xv v] to [5]\n            end\n            set [yv v] to [10]\n        else\n            set [xv v] to [0]\n        end\n    end\n    change [yv v] by (-1)\n    change y by (Yv)\n    if <<touching (ground v)?> or <touching color (#995900)?>> then\n        change y by ((Yv) * (-1))\n        set [yv v] to [0]\n    end\n    change y by (-1)\n    if <<touching (ground v)?> or <touching color (#995900)?>> then\n        if <key (up arrow v) pressed?> then\n            set [yv v] to [20]\n        end\n    end\n    change y by (1)\n    if <<(x position) = [327]> or <(x position) > [327]>> then\n        broadcast (Next Level v)\n    end\n    if <<touching (lava v)?> or <touching color (#cc0000)?>> then\n        switch costume to (costume2 v)\n        wait (0.2) seconds\n        broadcast (Death v)\n    end\n    if <touching (fell v)?> then\n        broadcast (Death v)\n    end\nend\n\ndefine Touch Ground\nrepeat until <not <<touching (ground v)?> or <touching color (#995900)?>>>\n    change y by (1)\n    set [speed y v] to [0]\nend\n\nwhen I receive [death v]\nswitch costume to (costume1 v)\ngo to x: (-114) y: (-115)\n\nwhen I receive [next level v]\nswitch costume to (costume1 v)\ngo to x: (-114) y: (-115)\n\nwhen flag clicked\nforever\n    if <<touching (sprite3 v)?> and <(costume [number v]) = [3]>> then\n        broadcast (tun v)\n    end\nend\n\nwhen flag clicked\nset [speed y v] to [0]\nbroadcast (Start1 v)\nforever\n    change [speed y v] by (-1)\n    change y by (speed y)\n    if <<touching (ground v)?> or <touching color (#995900)?>> then\n        set [speed y v] to [0]\n        change y by (1)\n    end\n    forever\n        change [speed y v] by (-1)\n        change y by (speed y)\n        Touch Ground\n    end\nend\n\nwhen I receive [c v]\nswitch costume to (costume3 v)\n\nwhen I receive [switch v]\nswitch costume to (costume1 v)\n\nwhen I receive [end v]\nhide\n\n@Sprite2\n\nwhen I receive [shovel v]\nshow\ngo to x: (-37) y: (-150)\n\nwhen flag clicked\nhide\nforever\n    if <touching (sprite1 v)?> then\n        hide\n        broadcast (c v)\n    end\nend\n\n@Sprite3\n\nwhen flag clicked\nhide\n\nwhen I receive [shovel v]\nshow\n\nwhen I receive [tun v]\nhide\n\n@  \n\nwhen I receive [make this project mine v]\nset [-time- v] to [0]\nset ["creator" v] to (username)\nset ["remixer" v] to [null]\n\nwhen I start as a clone\nif <<not <(-Time-) = [0]>> and <(username) = ("remixer")>> then\n    forever\n        if <touching (mouse-pointer v)?> then\n            set [hiding costume v] to (costume [number v])\n            repeat until <not <touching (mouse-pointer v)?>>\n                switch costume to (null v)\n                hide\n                wait (0) seconds\n                switch costume to (hiding costume)\n            end\n            show\n        end\n    end\nend\n\nwhen I start as a clone\nif <(-create) = [0]> then\n    switch costume to (this is protected v)\n    go to [front v] layer\n    wait until <key (space v) pressed?>\n    wait until <not <key (space v) pressed?>>\n    switch costume to (protection symbol v)\n    go to [front v] layer\n    wait (3) seconds\n    hide\nend\nif <(-create) = [1]> then\n    switch costume to (keep on it v)\n    go to [front v] layer\n    wait until <key (space v) pressed?>\n    wait until <not <key (space v) pressed?>>\n    switch costume to (keep on it message v)\n    go to [front v] layer\n    wait until <[400] < (-Time-)>\n    switch costume to (safe notification2 v)\nend\nif <(-create) = [2]> then\n    switch costume to (this is protected v)\n    go to [front v] layer\n    wait until <key (space v) pressed?>\n    wait until <not <key (space v) pressed?>>\n    switch costume to (protection symbol v)\n    go to [front v] layer\nend\nif <(-create) = [3]> then\n    switch costume to (you are protected v)\n    go to [front v] layer\n    wait until <key (space v) pressed?>\n    wait until <not <key (space v) pressed?>>\n    switch costume to (protection symbol v)\n    go to [front v] layer\nend\nif <(-create) = [4]> then\n    switch costume to (warning v)\n    go to [front v] layer\n    wait until <key (space v) pressed?>\n    wait until <not <key (space v) pressed?>>\n    switch costume to (bad symbol v)\n    go to [front v] layer\nend\nif <(-create) = [5]> then\n    switch costume to (safe notification v)\n    go to [front v] layer\n    wait until <key (space v) pressed?>\n    wait until <not <key (space v) pressed?>>\n    switch costume to (safe notification2 v)\n    go to [front v] layer\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (null v)\nhide\nshow\nif <<("remixer") = [null]> and <not <(username) = ("creator")>>> then\n    set ["remixer" v] to (username)\n    set [-create v] to [0]\n    create clone of (_myself_ v)\nelse\n    if <("remixer") = (username)> then\n        if <(-Time-) < [400]> then\n            if <not <(-Time-) = [0]>> then\n                set [-create v] to [1]\n                create clone of (_myself_ v)\n            end\n            repeat until <(-Time-) < [400]>\n                wait (1) seconds\n                change [-time- v] by (1)\n            end\n            forever\n                wait (1) seconds\n                change [-time- v] by (1)\n            end\n        else\n            if <[9000] < (-Time-)> then\n                set [-create v] to [3]\n                create clone of (_myself_ v)\n                set [-time- v] to [0]\n                set ["creator" v] to (username)\n                set ["remixer" v] to [null]\n            else\n                set [-create v] to [5]\n                create clone of (_myself_ v)\n                forever\n                    wait (1) seconds\n                    change [-time- v] by (1)\n                end\n            end\n        end\n    else\n        if <<("creator") = (username)> and <("remixer") = [null]>> then\n            set [-create v] to [3]\n            create clone of (_myself_ v)\n        else\n            if <(-Time-) < [400]> then\n                set [-create v] to [4]\n                create clone of (_myself_ v)\n            else\n                set [-create v] to [5]\n                create clone of (_myself_ v)\n            end\n        end\n    end\nend\n\n