分裂できる!_ platformer!!

Instructions: \n 新作です!!\n https://scratch.mit.edu/projects/910284769  \nモバイル版を作っていただきました!!\n https://scratch.mit.edu/projects/1018708135 \n\n\n1K記念コンテストです！リミックス不要！\n\n https://scratch.mit.edu/projects/1015918130 \n\n\nアプデのため非共有にしました。\nBキーでぶんれつできるようになりました。\n共有日は5/4です。\n\n\n　　　　分裂できるプラットフォーマー!!\n\n~ーー説明ーー~\n分裂でうまくステージを攻略しよう!!\n左下にボタンがあるので押してみよう!!\n青は矢印キー\n赤はawdキーで操作します!!\nモバイル勢は諦めてください...\n赤青のぷらふぉは次のステージに行くことはできないので、分裂を解除していく必要があります\n\n分裂を解除したら、赤か青、どちらかに黒はワープ\nします!!\n\n分裂中の時しかできないことも、分裂してないときしかできないこともあります!!\n\n頭を働かせてクリアしましょう!!\n\nサムネ依頼の時にちょっと共有したので50人ほど\n見たことあるかもしれません\n\nmキーを押すと復活できます

@Stage\n\nwhen flag clicked\nforever\n    play sound [Unlimited v] until done\nend\n\nwhen flag clicked\nforever\n    wait until <key (m v) pressed?>\n    broadcast (初期化 v)\n    wait until <not <key (m v) pressed?>>\nend\n\n@光\n\nwhen flag clicked\nset [clone2 v] to [1]\nswitch costume to (光 v)\nrepeat (2)\n    change [clone2 v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nif <(clone2) = [1]> then\n    switch costume to (光 v)\n    go to x: (0) y: (163)\nelse\n    switch costume to (光2 v)\n    go to x: (0) y: (-163)\nend\nforever\n    go to [front v] layer\nend\n\n@針\n\nwhen flag clicked\nforever\n    switch costume to (ステージ番号)\nend\n\n@SAMUNE\n\nwhen flag clicked\nhide\n\n@地面\n\nwhen flag clicked\nforever\n    switch costume to (ステージ番号)\nend\n\nwhen flag clicked\nhide variable [timer v]\nset [timer v] to [0]\nwait until <key (any v) pressed?>\nrepeat until <(ステージ番号) = [9]>\n    change [timer v] by (1)\n    wait (1) seconds\nend\nshow variable [timer v]\n\n@プレイヤー2\n\ndefine 初期化\ngo to x: (-205) y: (0)\nset [x v] to [0]\nset [y v] to [0]\n\nwhen flag clicked\nset [ステージ番号 v] to [1]\n初期化\nforever\n    if <(分裂中？) = [NO]> then\n        hide\n    else\n        スピード [1] 重力 [-1] 壁キック跳ね返り [10] 壁キック高さ [10] ジャンプ力 [15] <key (right arrow v) pressed?> <key (left arrow v) pressed?> <key (up arrow v) pressed?>\n        show\n    end\nend\n\ndefine スピード (x) 重力 (y) 壁キック跳ね返り (kx) 壁キック高さ (ky) ジャンプ力 (j) <右> <左> <上>\ncreate clone of (_myself_ v)\nif <右> then\n    change [x1 v] by (x)\nend\nif <左> then\n    change [x1 v] by ((0) - (x))\nend\nset [x1 v] to ((x1) * (0.9))\nchange x by (x1)\nchange [y2 v] by (y)\nchange y by (y2)\nif <touching (地面 v)?> then\n    set [y2 v] to ((y2) * (-1))\n    change y by (y2)\n    set [y2 v] to [0]\nend\nif <touching (地面 v)?> then\n    change y by (1)\n    if <touching (地面 v)?> then\n        change y by (1)\n        if <touching (地面 v)?> then\n            change y by (1)\n            if <touching (地面 v)?> then\n                change y by (1)\n                if <touching (地面 v)?> then\n                    change y by (1)\n                    if <touching (地面 v)?> then\n                        set [x1 v] to ((x1) * (-1))\n                        change x by (x1)\n                        change y by (-5)\n                        if <上> then\n                            if <[0] < (x1)> then\n                                set [x1 v] to (ky)\n                            else\n                                set [x1 v] to ((0) - (kx))\n                            end\n                            set [y2 v] to [10]\n                            start sound [壁キック v]\n                        else\n                            set [x1 v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange y by (-2)\nif <<上> and <touching (地面 v)?>> then\n    start sound [Water Drop v]\n    set [y2 v] to (j)\nend\nchange y by (2)\nif <<touching (針 v)?> or <(y position) < [-175]>> then\n    初期化\nend\n\nwhen I start as a clone\nrepeat (10)\n    change size by (-9)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen I receive [warp v]\ngo to (プレイヤー v)\n\nwhen I receive [初期化 v]\n初期化\n\n@プレイヤー3\n\ndefine 初期化\ngo to x: (-205) y: (0)\nset [x v] to [0]\nset [y v] to [0]\n\nwhen flag clicked\nset [ステージ番号 v] to [1]\n初期化\nforever\n    if <(分裂中？) = [NO]> then\n        hide\n    else\n        スピード [1] 重力 [-1] 壁キック跳ね返り [10] 壁キック高さ [10] ジャンプ力 [15] <key (d v) pressed?> <key (a v) pressed?> <key (w v) pressed?>\n        show\n    end\nend\n\ndefine スピード (x) 重力 (y) 壁キック跳ね返り (kx) 壁キック高さ (ky) ジャンプ力 (j) <右> <左> <上>\ncreate clone of (_myself_ v)\nif <右> then\n    change [x3 v] by (x)\nend\nif <左> then\n    change [x3 v] by ((0) - (x))\nend\nset [x3 v] to ((x3) * (0.9))\nchange x by (x3)\nchange [y4 v] by (y)\nchange y by (y4)\nif <touching (地面 v)?> then\n    set [y4 v] to ((y4) * (-1))\n    change y by (y4)\n    set [y4 v] to [0]\nend\nif <touching (地面 v)?> then\n    change y by (1)\n    if <touching (地面 v)?> then\n        change y by (1)\n        if <touching (地面 v)?> then\n            change y by (1)\n            if <touching (地面 v)?> then\n                change y by (1)\n                if <touching (地面 v)?> then\n                    change y by (1)\n                    if <touching (地面 v)?> then\n                        set [x3 v] to ((x3) * (-1))\n                        change x by (x3)\n                        change y by (-5)\n                        if <上> then\n                            if <[0] < (x3)> then\n                                set [x3 v] to (ky)\n                            else\n                                set [x3 v] to ((0) - (kx))\n                            end\n                            set [y4 v] to [10]\n                            start sound [壁キック v]\n                        else\n                            set [x3 v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange y by (-2)\nif <<上> and <touching (地面 v)?>> then\n    start sound [Water Drop v]\n    set [y4 v] to (j)\nend\nchange y by (2)\nif <<touching (針 v)?> or <(y position) < [-175]>> then\n    初期化\nend\n\nwhen I start as a clone\nrepeat (10)\n    change size by (-9)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen I receive [warp v]\ngo to (プレイヤー v)\n\nwhen I receive [初期化 v]\n初期化\n\n@スプライト1\n\nwhen flag clicked\nforever\n    if <mouse down?> then\n        if <touching (mouse-pointer v)?> then\n            if <(costume [number v]) = [1]> then\n                set [分裂中？ v] to [YES]\n                switch costume to (no v)\n                broadcast (warp v)\n            else\n                set [分裂中？ v] to [NO]\n                switch costume to (yes v)\n                broadcast (warp2 v)\n            end\n        end\n        wait until <not <mouse down?>>\n    end\nend\n\nwhen flag clicked\nset [分裂中？ v] to [YES]\nforever\n    wait until <key (b v) pressed?>\n    set [分裂中？ v] to [NO]\n    broadcast (warp2 v)\n    wait until <not <key (b v) pressed?>>\n    wait until <key (b v) pressed?>\n    set [分裂中？ v] to [YES]\n    broadcast (warp v)\n    wait until <not <key (b v) pressed?>>\nend\n\n@プレイヤー\n\ndefine 初期化\ngo to x: (-205) y: (0)\nset [x v] to [0]\nset [y v] to [0]\n\nwhen flag clicked\nset [ステージ番号 v] to [1]\n初期化\nforever\n    if <(分裂中？) = [NO]> then\n        show\n        スピード [1] 重力 [-1] 壁キック跳ね返り [10] 壁キック高さ [10] ジャンプ力 [15] <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>>> <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>>> <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>>>\n    else\n        hide\n    end\nend\n\ndefine スピード (x) 重力 (y) 壁キック跳ね返り (kx) 壁キック高さ (ky) ジャンプ力 (j) <右> <左> <上>\ncreate clone of (_myself_ v)\nif <右> then\n    change [x v] by (x)\nend\nif <左> then\n    change [x v] by ((0) - (x))\nend\nset [x v] to ((x) * (0.9))\nchange x by (x)\nchange [y v] by (y)\nchange y by (y)\nif <touching (地面 v)?> then\n    set [y v] to ((y) * (-1))\n    change y by (y)\n    set [y v] to [0]\nend\nif <touching (地面 v)?> then\n    change y by (1)\n    if <touching (地面 v)?> then\n        change y by (1)\n        if <touching (地面 v)?> then\n            change y by (1)\n            if <touching (地面 v)?> then\n                change y by (1)\n                if <touching (地面 v)?> then\n                    change y by (1)\n                    if <touching (地面 v)?> then\n                        set [x v] to ((x) * (-1))\n                        change x by (x)\n                        change y by (-5)\n                        if <上> then\n                            if <[0] < (x)> then\n                                set [x v] to (ky)\n                            else\n                                set [x v] to ((0) - (kx))\n                            end\n                            set [y v] to [10]\n                            start sound [壁キック v]\n                        else\n                            set [x v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange y by (-2)\nif <<上> and <touching (地面 v)?>> then\n    start sound [ジャンプ v]\n    set [y v] to (j)\nend\nchange y by (2)\nif <<[240] < (x position)> and <not <(ステージ番号) = [9]>>> then\n    change [ステージ番号 v] by (1)\n    初期化\nend\nif <<touching (針 v)?> or <(y position) < [-180]>> then\n    初期化\nend\n\nwhen I start as a clone\nrepeat (10)\n    change size by (-9)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen I receive [warp2 v]\nset [ランダム v] to (pick random (1) to (2))\nif <(ランダム) = [1]> then\n    go to (プレイヤー2 v)\n    change y by (50)\nelse\n    go to (プレイヤー3 v)\n    change y by (50)\nend\n\nwhen I receive [初期化 v]\n初期化\n\n@スプライト2\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nwait (1) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\n