~~ BOX - A PLATFORMER ~~
@Stage\n\nwhen I receive [next backdrop v]\nif <(backdrop) < [7]> then\n    change [backdrop v] by (1)\n    broadcast (delete v)\n    next backdrop\nend\n\nwhen flag clicked\nset [backdrop v] to [0]\nswitch backdrop to (backdrop2 v)\n\n@Sprite1\n\nwhen I receive [on v]\nrepeat until <not <touching color (#997600)?>>\n    if <touching color (#997600)?> then\n        change y by (1)\n        if <touching color (#997600)?> then\n            change y by (1)\n            if <touching color (#997600)?> then\n                change y by (1)\n                if <touching color (#997600)?> then\n                    change y by (1)\n                    if <touching color (#997600)?> then\n                        change y by (1)\n                        if <touching color (#997600)?> then\n                            change x by (-1)\n                            change y by (-5)\n                            change x by (1)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    if <touching color (#997600)?> then\n        change y by ((Yv) * (-1))\n        set [yv v] to [0]\n    end\nend\n\nwhen I receive [touch v]\nrepeat until <not <touching color (#997600)?>>\n    change x by ((Xv) * (-1))\n    set [xv v] to [0]\nend\n\nwhen I receive [start v]\nshow\ngo to x: (-200) y: (-120)\nset [yv v] to [0]\nset [xv v] to [0]\nforever\n    if <<key (r v) pressed?> or <(restart) = [1]>> then\n        go to x: (-200) y: (-120)\n        set [xv v] to [0]\n        set [yv v] to [0]\n    end\n    change [yv v] by (-0.5)\n    if <<key (right arrow v) pressed?> or <(move) = [2]>> then\n        change [xv v] by (0.7)\n    end\n    if <<key (left arrow v) pressed?> or <(move) = [1]>> then\n        change [xv v] by (-0.7)\n    end\n    set [xv v] to ((Xv) * (0.9))\n    change x by (Xv)\n    if <<touching color (#00bf13)?> or <touching color (#6ab671)?>> then\n        change y by (1)\n        if <<touching color (#00bf13)?> or <touching color (#6ab671)?>> then\n            change y by (1)\n            if <<touching color (#00bf13)?> or <touching color (#6ab671)?>> then\n                change y by (1)\n                if <<touching color (#00bf13)?> or <touching color (#6ab671)?>> then\n                    change y by (1)\n                    if <<touching color (#00bf13)?> or <touching color (#6ab671)?>> then\n                        change y by (1)\n                        if <<touching color (#00bf13)?> or <touching color (#6ab671)?>> then\n                            change x by ((Xv) * (-1))\n                            change y by (-5)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (Yv)\n    if <<touching color (#00bf13)?> or <touching color (#6ab671)?>> then\n        change y by ((Yv) * (-1))\n        set [yv v] to [0]\n    end\n    change y by (-1)\n    if <<<touching color (#00bf13)?> or <touching color (#6ab671)?>> or <<touching color (#997600)?> and <(Yv) < [0]>>> then\n        if <<key (up arrow v) pressed?> or <(move) = [3]>> then\n            set [yv v] to [7]\n        end\n    end\n    if <touching color (#ff0000)?> then\n        go to x: (-188) y: (-146)\n        set [xv v] to [0]\n        set [yv v] to [0]\n        point in direction (90)\n    end\n    change y by (1)\n    if <(x position) > [225]> then\n        broadcast (next backdrop v)\n        go to x: (-180) y: (-120)\n        set [xv v] to [0]\n        set [yv v] to [0]\n    end\nend\n\nwhen flag clicked\nforever\n    play sound [Platform game music v] until done\nend\n\n@Sprite2\n\nwhen I start as a clone\nshow\nset [x v] to [0]\nset [y v] to [0]\nset [touch v] to [0]\nset [xp v] to (x position)\nset [yp v] to (y position)\nforever\n    if <<key (r v) pressed?> or <(restart) = [1]>> then\n        go to x: (Xp) y: (Yp)\n        set [x v] to [0]\n        set [y v] to [0]\n        set [touch v] to [0]\n    end\n    change [y v] by (-0.5)\n    set [x v] to ((X) * (0.95))\n    change x by (X)\n    if <touching (sprite1 v)?> then\n        if <(y position) > ([y position v] of [sprite1 v])> then\n            set [y v] to (Yv)\n        end\n    end\n    if <<<touching color (#00bf13)?> or <touching color (#6ab671)?>> or <touching color (#997600)?>> then\n        change y by (1)\n        if <<<touching color (#00bf13)?> or <touching color (#6ab671)?>> or <touching color (#997600)?>> then\n            change y by (1)\n            if <<<touching color (#00bf13)?> or <touching color (#6ab671)?>> or <touching color (#997600)?>> then\n                change y by (1)\n                if <<<touching color (#00bf13)?> or <touching color (#6ab671)?>> or <touching color (#997600)?>> then\n                    change y by (1)\n                    if <<<touching color (#00bf13)?> or <touching color (#6ab671)?>> or <touching color (#997600)?>> then\n                        change y by (1)\n                        if <<<touching color (#00bf13)?> or <touching color (#6ab671)?>> or <touching color (#997600)?>> then\n                            change x by ((X) * (-1))\n                            change y by (-5)\n                            if <touching (sprite1 v)?> then\n                                if <not <([y position v] of [sprite1 v]) > (y position)>> then\n                                    set [touch v] to [1]\n                                    broadcast (touch v)\n                                end\n                            else\n                                set [touch v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (Y)\n    if <<<<touching color (#00bf13)?> or <touching color (#6ab671)?>> or <touching color (#997600)?>> or <touching color (#980000)?>> then\n        change y by ((Y) * (-1))\n        set [y v] to [0]\n    end\n    if <touching (sprite1 v)?> then\n        if <(([y position v] of [sprite1 v]) + ([abs v] of (Yv) )) > (y position)> then\n            broadcast (on v)\n        else\n            if <([x position v] of [sprite1 v]) > (x position)> then\n                if <(touch) = [0]> then\n                    if <touching (sprite1 v)?> then\n                        change x by (-1)\n                        if <touching (sprite1 v)?> then\n                            change x by (-1)\n                            if <touching (sprite1 v)?> then\n                                change x by (-1)\n                                if <touching (sprite1 v)?> then\n                                    change x by (-1)\n                                    if <touching (sprite1 v)?> then\n                                        change x by (-1)\n                                        if <touching (sprite1 v)?> then\n                                            change x by (-1)\n                                            if <touching (sprite1 v)?> then\n                                                change x by (6)\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                    set [x v] to (Xv)\n                end\n            else\n                if <(touch) = [0]> then\n                    if <touching (sprite1 v)?> then\n                        change x by (1)\n                        if <touching (sprite1 v)?> then\n                            change x by (1)\n                            if <touching (sprite1 v)?> then\n                                change x by (1)\n                                if <touching (sprite1 v)?> then\n                                    change x by (1)\n                                    if <touching (sprite1 v)?> then\n                                        change x by (1)\n                                        if <touching (sprite1 v)?> then\n                                            change x by (1)\n                                            if <touching (sprite1 v)?> then\n                                                change x by (-6)\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                    set [x v] to (Xv)\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [delete v]\ndelete this clone\n\nwhen I receive [start v]\nbroadcast (delete v)\nhide\nswitch costume to (costume1 v)\ngo to x: (-40) y: (-56)\ncreate clone of (_myself_ v)\nwait until <(backdrop) = [1]>\nswitch costume to (costume2 v)\ngo to x: (-100) y: (-90)\ncreate clone of (_myself_ v)\nwait until <(backdrop) = [2]>\nswitch costume to (costume2 v)\ngo to x: (-150) y: (-90)\ncreate clone of (_myself_ v)\nswitch costume to (costume3 v)\ngo to x: (40) y: (0)\ncreate clone of (_myself_ v)\nwait until <(backdrop) = [3]>\nswitch costume to (costume3 v)\ngo to x: (-20) y: (-50)\ncreate clone of (_myself_ v)\nwait until <(backdrop) = [4]>\nswitch costume to (costume2 v)\ngo to x: (-150) y: (-90)\ncreate clone of (_myself_ v)\nswitch costume to (costume3 v)\ngo to x: (20) y: (0)\ncreate clone of (_myself_ v)\nwait until <(backdrop) = [5]>\nswitch costume to (costume1 v)\ngo to x: (-60) y: (-96)\ncreate clone of (_myself_ v)\nswitch costume to (costume3 v)\ngo to x: (-90) y: (-4)\ncreate clone of (_myself_ v)\nswitch costume to (costume2 v)\ngo to x: (80) y: (77)\ncreate clone of (_myself_ v)\nwait until <(backdrop) = [6]>\nswitch costume to (costume2 v)\ngo to x: (-140) y: (-90)\ncreate clone of (_myself_ v)\nswitch costume to (costume3 v)\ngo to x: (80) y: (0)\ncreate clone of (_myself_ v)\nswitch costume to (costume1 v)\ngo to x: (-130) y: (80)\ncreate clone of (_myself_ v)\nwait until <(backdrop) = [7]>\nswitch costume to (costume1 v)\ngo to x: (0) y: (10)\ncreate clone of (_myself_ v)\nswitch costume to (costume2 v)\ngo to x: (0) y: (-30)\ncreate clone of (_myself_ v)\nswitch costume to (costume3 v)\ngo to x: (0) y: (-70)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    if <touching color (#980000)?> then\n        change y by (1)\n        if <touching color (#980000)?> then\n            change y by (1)\n            if <touching color (#980000)?> then\n                change y by (1)\n                if <touching color (#980000)?> then\n                    change y by (1)\n                    if <touching color (#980000)?> then\n                        change y by (1)\n                        if <touching color (#980000)?> then\n                            change y by (-5)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@Sprite3\n\nwhen flag clicked\ngo to [front v] layer\nshow\ngo to x: (0) y: (0)\nwait (1) seconds\nrepeat (20)\n    change [ghost v] effect by (5)\nend\nbroadcast (start v)\n\nwhen [z v] key pressed\nshow\nstop [all v]\n\n@Sprite4\n\nwhen flag clicked\nhide\nswitch costume to (costume3 v)\nrepeat (4)\n    next costume\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nset [ghost v] effect to (40)\nif <(costume [number v]) = [1]> then\n    go to x: (-210) y: (-140)\nend\nif <(costume [number v]) = [2]> then\n    go to x: (-70) y: (-140)\nend\nif <(costume [number v]) = [3]> then\n    go to x: (-140) y: (-140)\nend\nif <(costume [number v]) = [4]> then\n    go to x: (200) y: (-140)\nend\nforever\n    if <touching (mouse-pointer v)?> then\n        set size to (120) %\n        if <mouse down?> then\n            if <(costume [number v]) = [1]> then\n                set [move v] to [1]\n            end\n            if <(costume [number v]) = [2]> then\n                set [move v] to [2]\n            end\n            if <(costume [number v]) = [3]> then\n                set [move v] to [3]\n            end\n            if <(costume [number v]) = [4]> then\n                set [restart v] to [1]\n            end\n        end\n    else\n        set size to (100) %\n    end\nend\n\nwhen flag clicked\nforever\n    if <not <mouse down?>> then\n        set [move v] to [0]\n        set [restart v] to [0]\n    end\nend\n\nwhen I receive [start v]\ngo to [front v] layer\n\n
WELCOME TO ~~ BOX - A PLATFORMER ~~!!!\n-MR.BOX stranded in a box world and find the way to escape. Can you help him?\n----------------------------HOW TO PLAY--------------------------ARROW or BUTTON to move and jump\n-R key or BUTTON to reset level