『再共有』[コラボ作品]トリック！Online platformer

Instructions: 日本語説明は下↓。\n\nPress the flag, and tap the arrow keys to operate.\n Various tricks are set up.\n You can also play online with up to 10 people.\n You can speak by pressing the chat button and tapping the word you want to speak.  To close the chat, press the chat button again.\n You can also skip the stage by pressing either ⬅️ or ➡️.\n Then, please enjoy yourself.\n\n旗を押して､矢印キー､タップで操作です。\n色々なトリックが仕掛けられています。\n最大10人でオンラインプレイをすることもできます。\nチャットボタンを押して､しゃべりたい言葉をタップするとしゃべることができます。チャットを閉じるには、もう一回チャットボタンを押します。\n⬅️と➡️どちらかを押すことで、ステージをスキップすることもできます。\nそれでは､お楽しみ下さい。

@Stage\n\nwhen flag clicked\nforever\n    play sound [Odesong v] until done\nend\n\n@障害物\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム2 v)\ngo to [back v] layer\nforever\n    go to x: (0) y: ((-3) + (([sin v] of ((timer) * (200)) ) * (3)))\nend\n\nwhen I receive [next v]\nnext costume\n\nwhen I receive [前 v]\nswitch costume to ((costume [number v]) - (1))\n\n@スプライト1\n\nwhen I receive [次 v]\ngo to [front v] layer\nhide\nshow\ngo to x: (591) y: (0)\nstart sound [Rip v]\nglide (0.5) secs to x: (0) y: (0)\nbroadcast (準備 v)\nwait (0.2) seconds\nbroadcast (NEXT v)\nbroadcast (仕掛け v)\nstart sound [Rip v]\nglide (0.5) secs to x: (-591) y: (0)\nhide\n\nwhen flag clicked\nhide\n\n@地面\n\nwhen flag clicked\nswitch costume to (コスチューム2 v)\ngo to x: (0) y: (0)\n\nwhen I receive [next v]\nnext costume\n\nwhen I receive [前 v]\nswitch costume to ((costume [number v]) - (1))\n\n@キャラクター\n\nwhen flag clicked\nforever\n    say (join (username) (join [　] (item (しゃべる言葉) of [しゃべる言葉 v])))\n    if <(動けるか？) = [0]> then\n        if <(チャット？) = [0]> then\n            set rotation style [left-right v]\n            if <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n                point in direction (90)\n                change [x v] by (1)\n            end\n            if <<key (left arrow v) pressed?> or <<mouse down?> and <(x position) > (mouse x)>>> then\n                point in direction (-90)\n                change [x v] by (-1)\n            end\n        end\n        set [x v] to ((x) * (0.9))\n    end\nend\n\nwhen I receive [仕掛け v]\ngo to x: (-190) y: (-20)\nset size to (55) %\nshow\nset [変数 v] to [0]\nset [x v] to [0]\nset [ジャンプ v] to [1]\npoint in direction (90)\nwait (1) seconds\nset [動けるか？ v] to [0]\n\nwhen flag clicked\nset drag mode [not draggable v]\ngo to x: (-190) y: (-20)\npoint in direction (90)\nshow\nset [動けるか？ v] to [0]\nset [推せるか？ v] to [0]\nset [ジャンプ v] to [1]\nset [ok v] to [1]\nset [変数 v] to [0]\nset [x v] to [0]\nforever\n    if <(動けるか？) = [0]> then\n        change x by (x)\n        if <<touching (地面 v)?> or <<touching (仕掛け v)?> and <(種類) = [1]>>> then\n            change y by (1)\n            if <<touching (地面 v)?> or <<touching (仕掛け v)?> and <(種類) = [1]>>> then\n                change y by (1)\n                if <<touching (地面 v)?> or <<touching (仕掛け v)?> and <(種類) = [1]>>> then\n                    change y by (1)\n                    if <<touching (地面 v)?> or <<touching (仕掛け v)?> and <(種類) = [1]>>> then\n                        change y by (1)\n                        if <<touching (地面 v)?> or <<touching (仕掛け v)?> and <(種類) = [1]>>> then\n                            change y by (1)\n                            if <<touching (地面 v)?> or <<touching (仕掛け v)?> and <(種類) = [1]>>> then\n                                change y by (-4)\n                                change x by ((0) - (x))\n                                if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n                                    wait (0) seconds\n                                    if <(チャット？) = [0]> then\n                                        start sound [Jump v]\n                                        set [変数 v] to [13]\n                                        if <[0] < (x)> then\n                                            set [x v] to [-7]\n                                        else\n                                            set [x v] to [7]\n                                        end\n                                    end\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change [変数 v] by (-1)\n        change y by (変数)\n        if <<touching (地面 v)?> or <<touching (仕掛け v)?> and <(種類) = [1]>>> then\n            if <[0] > (変数)> then\n                set [ジャンプ v] to [0]\n            else\n                set [ジャンプ v] to [1]\n            end\n            change y by ((0) - (変数))\n            set [変数 v] to [0]\n        end\n        change y by (-1)\n        if <<<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> and <<(ジャンプ) = [0]> and <<touching (地面 v)?> or <<touching (仕掛け v)?> and <(種類) = [1]>>>>> then\n            wait (0) seconds\n            if <(チャット？) = [0]> then\n                start sound [Jump v]\n                set [ジャンプ v] to [1]\n                set [変数 v] to [13]\n            end\n        end\n        if <[230] < (x position)> then\n            broadcast (次 v)\n            point in direction (90)\n            set [変数 v] to [0]\n            set [x v] to [0]\n            hide\n            set [動けるか？ v] to [1]\n        end\n        if <<<touching (仕掛け v)?> and <(種類) = [0]>> or <<touching (障害物 v)?> or <<(y position) < [-180]> or <<touching (太陽 v)?> and <([costume # v] of [地面 v]) = [7]>>>>> then\n            start sound [Pew v]\n            wait (0.3) seconds\n            set [ghost v] effect to (0)\n            set size to (55) %\n            go to x: (-190) y: (-20)\n            point in direction (90)\n            set [ok v] to [1]\n            set [変数 v] to [0]\n            set [x v] to [0]\n            set [タヒ v] to [1]\n            broadcast (仕掛け v)\n            show\n        end\n    end\nend\n\n@仕掛け\n\nwhen flag clicked\nset [タヒ v] to [0]\nshow\nforever\n    if <([costume # v] of [地面 v]) = [1]> then\n        switch costume to (コスチューム1 v)\n        if <touching (_edge_ v)?> then\n            hide\n        else\n            show\n        end\n        if <([abs v] of ((x position) - ([x position v] of [キャラクター v])) ) < [50]> then\n            set [種類 v] to [0]\n            set [推せるか？ v] to [1]\n            glide (0.3) secs to x: (87) y: (180)\n            set [推せるか？ v] to [0]\n            hide\n            wait until <(タヒ) = [1]>\n            go to x: (87) y: (-70)\n        else\n            go to x: (87) y: ((-70) + ((-3) + (([sin v] of ((timer) * (200)) ) * (3))))\n        end\n    end\n    if <([costume # v] of [地面 v]) = [2]> then\n        set [種類 v] to [0]\n        switch costume to (コスチューム2 v)\n        show\n        if <([abs v] of ((x position) - ([x position v] of [キャラクター v])) ) < [100]> then\n            set [推せるか？ v] to [1]\n            glide (0.1) secs to x: (0) y: (-70)\n            set [推せるか？ v] to [0]\n            repeat until <(タヒ) = [1]>\n                go to x: (0) y: ((-70) + ((-3) + (([sin v] of ((timer) * (200)) ) * (3))))\n            end\n        else\n            go to x: (0) y: (-120)\n        end\n    end\n    if <([costume # v] of [地面 v]) = [3]> then\n        set [種類 v] to [0]\n        switch costume to (コスチューム3 v)\n        show\n        if <([abs v] of ((x position) - ([x position v] of [キャラクター v])) ) < [100]> then\n            set [推せるか？ v] to [1]\n            glide (0.1) secs to x: (60) y: (-70)\n            set [推せるか？ v] to [0]\n            repeat until <(タヒ) = [1]>\n                go to x: (60) y: ((-70) + ((-3) + (([sin v] of ((timer) * (200)) ) * (3))))\n            end\n        else\n            go to x: (0) y: ((-70) + ((-3) + (([sin v] of ((timer) * (200)) ) * (3))))\n        end\n    end\n    if <([costume # v] of [地面 v]) = [4]> then\n        set [種類 v] to [1]\n        switch costume to (コスチューム4 v)\n        show\n        go to x: (33) y: (83)\n        repeat until <(タヒ) = [1]>\n            if <<mouse down?> and <touching (mouse-pointer v)?>> then\n                set [推せるか？ v] to [1]\n                set [動けるか？ v] to [1]\n                repeat until <<not <mouse down?>> or <(タヒ) = [1]>>\n                    go to (mouse-pointer v)\n                end\n                set [推せるか？ v] to [0]\n                set [動けるか？ v] to [0]\n            end\n        end\n    end\n    if <([costume # v] of [地面 v]) = [5]> then\n        switch costume to (コスチューム5 v)\n        if <touching (_edge_ v)?> then\n            hide\n        else\n            show\n        end\n        if <([abs v] of ((x position) - ([x position v] of [キャラクター v])) ) < [50]> then\n            set [種類 v] to [0]\n            set [推せるか？ v] to [1]\n            glide (0.3) secs to x: (94) y: (-187)\n            set [推せるか？ v] to [0]\n            hide\n            wait until <(タヒ) = [1]>\n            go to x: (94) y: (84)\n        else\n            go to x: (94) y: ((84) + ((-3) + (([sin v] of ((timer) * (200)) ) * (3))))\n        end\n    end\n    if <([costume # v] of [地面 v]) = [6]> then\n        go to x: (89) y: (-156)\n        set [種類 v] to [1]\n        switch costume to (コスチューム6 v)\n        show\n        if <([abs v] of ((x position) - ([x position v] of [キャラクター v])) ) < [50]> then\n            set [種類 v] to [0]\n            set [推せるか？ v] to [1]\n            glide (0.3) secs to x: (89) y: (-234)\n            set [推せるか？ v] to [0]\n            hide\n            wait until <(タヒ) = [1]>\n            go to x: (89) y: (-156)\n        else\n            go to x: (89) y: (-156)\n        end\n    end\n    if <([costume # v] of [地面 v]) = [8]> then\n        go to [front v] layer\n        go [backward v] (2) layers\n        switch costume to (コスチューム8 v)\n        go to x: (0) y: (0)\n        point in direction ((90) + (([cos v] of ((timer) * (200)) ) * (2)))\n    else\n        point in direction (90)\n        go to [back v] layer\n    end\nend\n\nwhen I receive [準備 v]\nset [タヒ v] to [1]\nshow\n\nwhen I receive [仕掛け v]\nset [タヒ v] to [0]\nshow\n\nwhen I receive [前 v]\nswitch costume to ((costume [number v]) - (1))\n\nwhen I receive [next v]\nnext costume\n\n@太陽\n\nwhen flag clicked\nforever\n    if <([costume # v] of [地面 v]) = [7]> then\n        go to [back v] layer\n        if <([abs v] of ((x position) - ([x position v] of [キャラクター v])) ) < [100]> then\n            repeat until <(タヒ) = [1]>\n                change [太陽 v] by (-1)\n                change y by (太陽)\n                if <touching (地面 v)?> then\n                    change y by (() - (太陽))\n                    set [太陽 v] to ((() - (太陽)) * (0.7))\n                end\n            end\n        else\n            set [太陽 v] to [0]\n            go to x: (180) y: (130)\n            set size to ((100) + (([sin v] of ((timer) * (200)) ) * (2))) %\n        end\n    else\n        go to [back v] layer\n        go to x: (180) y: (130)\n        set size to ((100) + (([sin v] of ((timer) * (200)) ) * (2))) %\n    end\nend\n\n@オンライン\n\nwhen I receive [オンライン v]\nset [オンライン v] to [1]\nset [☁ p1 v] to [0]\nset [☁ p2 v] to [0]\nset [☁ p3 v] to [0]\nset [☁ p4 v] to [0]\nset [☁ p5 v] to [0]\nset [☁ p6 v] to [0]\nset [☁ p7 v] to [0]\nset [☁ p8 v] to [0]\nset [☁ p9 v] to [0]\nset [☁ p10 v] to [0]\nset [1p？ v] to [0]\nwait (1) seconds\nbroadcast (オンライン！ v)\nforever\n    if <(☁ p1) = [0]> then\n        ユーザー名数値化\n        forever\n            set [1p？ v] to [1]\n            set [☁ p1 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([direction v] of [キャラクター v]) + (200)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n        end\n    else\n        if <(☁ p2) = [0]> then\n            ユーザー名数値化\n            forever\n                set [1p？ v] to [2]\n                set [☁ p2 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([direction v] of [キャラクター v]) + (200)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n            end\n        else\n            if <(☁ p3) = [0]> then\n                ユーザー名数値化\n                forever\n                    set [1p？ v] to [3]\n                    set [☁ p3 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([direction v] of [キャラクター v]) + (200)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                end\n            else\n                if <(☁ p4) = [0]> then\n                    ユーザー名数値化\n                    forever\n                        set [1p？ v] to [4]\n                        set [☁ p4 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([direction v] of [キャラクター v]) + (200)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                    end\n                else\n                    if <(☁ p5) = [0]> then\n                        ユーザー名数値化\n                        forever\n                            set [1p？ v] to [5]\n                            set [☁ p5 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([direction v] of [キャラクター v]) + (200)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                        end\n                    else\n                        if <(☁ p6) = [0]> then\n                            ユーザー名数値化\n                            forever\n                                set [1p？ v] to [6]\n                                set [☁ p6 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([direction v] of [キャラクター v]) + (200)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                            end\n                        else\n                            if <(☁ p7) = [0]> then\n                                ユーザー名数値化\n                                forever\n                                    set [1p？ v] to [7]\n                                    set [☁ p7 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([direction v] of [キャラクター v]) + (200)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                                end\n                            else\n                                if <(☁ p8) = [0]> then\n                                    ユーザー名数値化\n                                    forever\n                                        set [1p？ v] to [8]\n                                        set [☁ p8 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([direction v] of [キャラクター v]) + (200)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                                    end\n                                else\n                                    if <(☁ p9) = [0]> then\n                                        ユーザー名数値化\n                                        forever\n                                            set [1p？ v] to [9]\n                                            set [☁ p9 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([direction v] of [キャラクター v]) + (200)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                                        end\n                                    else\n                                        if <(☁ p10) = [0]> then\n                                            ユーザー名数値化\n                                            forever\n                                                set [1p？ v] to [10]\n                                                set [☁ p10 v] to (join (ユーザー名数値化) (join (join (([floor v] of ([x position v] of [キャラクター v]) ) + (500)) (([floor v] of ([y position v] of [キャラクター v]) ) + (500))) (join (([costume # v] of [地面 v]) + (10)) (join (([direction v] of [キャラクター v]) + (200)) (join ((しゃべる言葉) + (10)) ([floor v] of (timer) ))))))\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\nbroadcast (オンライン v)\n\ndefine ユーザー名数値化\nset [ユーザー v] to [0]\nset [ユーザー名数値化 v] to []\nrepeat (length of (username))\n    change [ユーザー v] by (1)\n    switch costume to (letter (ユーザー) of (username))\n    set [ユーザー名数値化 v] to (join (ユーザー名数値化) (costume [number v]))\nend\nrepeat ((40) - (length of (ユーザー名数値化)))\n    set [ユーザー名数値化 v] to (join (ユーザー名数値化) [0])\nend\n\nwhen I receive [オンライン v]\nbroadcast (言う v)\nforever\n    復元1\nend\n\ndefine 復元1\nset [読み込み v] to [0]\nset [1 v] to []\nrepeat ((length of (☁ p1)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p1)) (letter ((読み込み) + (2)) of (☁ p1))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p1)) (letter (読み込み) of (☁ p1)))\n        set [1 v] to (join (1) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [2 v] to []\nrepeat ((length of (☁ p2)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p2)) (letter ((読み込み) + (2)) of (☁ p2))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p2)) (letter (読み込み) of (☁ p2)))\n        set [2 v] to (join (2) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [3 v] to []\nrepeat ((length of (☁ p3)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p3)) (letter ((読み込み) + (2)) of (☁ p3))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p3)) (letter (読み込み) of (☁ p3)))\n        set [3 v] to (join (3) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [4 v] to []\nrepeat ((length of (☁ p4)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p4)) (letter ((読み込み) + (2)) of (☁ p4))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p4)) (letter (読み込み) of (☁ p4)))\n        set [4 v] to (join (4) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [5 v] to []\nrepeat ((length of (☁ p5)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p5)) (letter ((読み込み) + (2)) of (☁ p5))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p5)) (letter (読み込み) of (☁ p5)))\n        set [5 v] to (join (5) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [6 v] to []\nrepeat ((length of (☁ p6)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p6)) (letter ((読み込み) + (2)) of (☁ p6))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p6)) (letter (読み込み) of (☁ p6)))\n        set [6 v] to (join (6) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [7 v] to []\nrepeat ((length of (☁ p7)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p7)) (letter ((読み込み) + (2)) of (☁ p7))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p7)) (letter (読み込み) of (☁ p7)))\n        set [7 v] to (join (7) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [8 v] to []\nrepeat ((length of (☁ p8)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p8)) (letter ((読み込み) + (2)) of (☁ p8))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p8)) (letter (読み込み) of (☁ p8)))\n        set [8 v] to (join (8) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [9 v] to []\nrepeat ((length of (☁ p9)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p9)) (letter ((読み込み) + (2)) of (☁ p9))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p9)) (letter (読み込み) of (☁ p9)))\n        set [9 v] to (join (9) (costume [name v]))\n    end\nend\nset [読み込み v] to [0]\nset [10 v] to []\nrepeat ((length of (☁ p10)) / (2))\n    if <not <(join (letter ((読み込み) + (1)) of (☁ p10)) (letter ((読み込み) + (2)) of (☁ p10))) = [00]>> then\n        change [読み込み v] by (2)\n        switch costume to (join (letter ((読み込み) - (1)) of (☁ p10)) (letter (読み込み) of (☁ p10)))\n        set [10 v] to (join (10) (costume [name v]))\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [1p確認 v] to (☁ p1)\n    wait (3) seconds\n    if <(letter (length of (1p確認)) of (1p確認)) = (letter (length of (☁ p1)) of (☁ p1))> then\n        set [☁ p1 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [2p確認 v] to (☁ p2)\n    wait (3) seconds\n    if <(letter (length of (2p確認)) of (2p確認)) = (letter (length of (☁ p2)) of (☁ p2))> then\n        set [☁ p2 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [3p確認 v] to (☁ p3)\n    wait (3) seconds\n    if <(letter (length of (3p確認)) of (3p確認)) = (letter (length of (☁ p3)) of (☁ p3))> then\n        set [☁ p3 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [4p確認 v] to (☁ p4)\n    wait (3) seconds\n    if <(letter (length of (4p確認)) of (4p確認)) = (letter (length of (☁ p4)) of (☁ p4))> then\n        set [☁ p4 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [5p確認 v] to (☁ p5)\n    wait (3) seconds\n    if <(letter (length of (5p確認)) of (5p確認)) = (letter (length of (☁ p5)) of (☁ p5))> then\n        set [☁ p5 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [6p確認 v] to (☁ p6)\n    wait (3) seconds\n    if <(letter (length of (6p確認)) of (6p確認)) = (letter (length of (☁ p6)) of (☁ p6))> then\n        set [☁ p6 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [7p確認 v] to (☁ p7)\n    wait (3) seconds\n    if <(letter (length of (7p確認)) of (7p確認)) = (letter (length of (☁ p7)) of (☁ p7))> then\n        set [☁ p7 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [8p確認 v] to (☁ p8)\n    wait (3) seconds\n    if <(letter (length of (8p確認)) of (8p確認)) = (letter (length of (☁ p8)) of (☁ p8))> then\n        set [☁ p8 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [9p確認 v] to (☁ p9)\n    wait (3) seconds\n    if <(letter (length of (9p確認)) of (9p確認)) = (letter (length of (☁ p9)) of (☁ p9))> then\n        set [☁ p9 v] to [0]\n    end\nend\n\nwhen I receive [オンライン！ v]\nforever\n    set [10p確認 v] to (☁ p10)\n    wait (3) seconds\n    if <(letter (length of (10p確認)) of (10p確認)) = (letter (length of (☁ p10)) of (☁ p10))> then\n        set [☁ p10 v] to [0]\n    end\nend\n\n@スプライト3\n\ndefine コピー\nswitch costume to (コスチューム1 v)\nrepeat (10)\n    create clone of (_myself_ v)\n    next costume\nend\n\nwhen I start as a clone\nhide\nset rotation style [left-right v]\nif <(costume [number v]) = [1]> then\n    forever\n        if <<not <(☁ p1) = [0]>> and <not <(1p？) = [1]>>> then\n            go to x: ((join (letter (41) of (☁ p1)) (join (letter (42) of (☁ p1)) (letter (43) of (☁ p1)))) - (500)) y: ((join (letter (44) of (☁ p1)) (join (letter (45) of (☁ p1)) (letter (46) of (☁ p1)))) - (500))\n            point in direction ((join (letter (49) of (☁ p1)) (join (letter (50) of (☁ p1)) (letter (51) of (☁ p1)))) - (200))\n            if <((join (letter (47) of (☁ p1)) (letter (48) of (☁ p1))) - (10)) = ([costume # v] of [地面 v])> then\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p1) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [2]> then\n    forever\n        if <<not <(☁ p2) = [0]>> and <not <(1p？) = [2]>>> then\n            go to x: ((join (letter (41) of (☁ p2)) (join (letter (42) of (☁ p2)) (letter (43) of (☁ p2)))) - (500)) y: ((join (letter (44) of (☁ p2)) (join (letter (45) of (☁ p2)) (letter (46) of (☁ p2)))) - (500))\n            point in direction ((join (letter (49) of (☁ p2)) (join (letter (50) of (☁ p2)) (letter (51) of (☁ p2)))) - (200))\n            if <((join (letter (47) of (☁ p2)) (letter (48) of (☁ p2))) - (10)) = ([costume # v] of [地面 v])> then\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p2) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [3]> then\n    forever\n        if <<not <(☁ p3) = [0]>> and <not <(1p？) = [3]>>> then\n            go to x: ((join (letter (41) of (☁ p3)) (join (letter (42) of (☁ p3)) (letter (43) of (☁ p3)))) - (500)) y: ((join (letter (44) of (☁ p3)) (join (letter (45) of (☁ p3)) (letter (46) of (☁ p3)))) - (500))\n            point in direction ((join (letter (49) of (☁ p3)) (join (letter (50) of (☁ p3)) (letter (51) of (☁ p3)))) - (200))\n            if <((join (letter (47) of (☁ p3)) (letter (48) of (☁ p3))) - (10)) = ([costume # v] of [地面 v])> then\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p3) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [4]> then\n    forever\n        if <<not <(☁ p4) = [0]>> and <not <(1p？) = [4]>>> then\n            go to x: ((join (letter (41) of (☁ p4)) (join (letter (42) of (☁ p4)) (letter (43) of (☁ p4)))) - (500)) y: ((join (letter (44) of (☁ p4)) (join (letter (45) of (☁ p4)) (letter (46) of (☁ p4)))) - (500))\n            point in direction ((join (letter (49) of (☁ p4)) (join (letter (50) of (☁ p4)) (letter (51) of (☁ p4)))) - (200))\n            if <((join (letter (47) of (☁ p4)) (letter (48) of (☁ p4))) - (10)) = ([costume # v] of [地面 v])> then\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p4) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [5]> then\n    forever\n        if <<not <(☁ p5) = [0]>> and <not <(1p？) = [3]>>> then\n            go to x: ((join (letter (41) of (☁ p5)) (join (letter (42) of (☁ p5)) (letter (43) of (☁ p5)))) - (500)) y: ((join (letter (44) of (☁ p5)) (join (letter (45) of (☁ p5)) (letter (46) of (☁ p5)))) - (500))\n            point in direction ((join (letter (49) of (☁ p5)) (join (letter (50) of (☁ p5)) (letter (51) of (☁ p5)))) - (200))\n            if <((join (letter (47) of (☁ p5)) (letter (48) of (☁ p5))) - (10)) = ([costume # v] of [地面 v])> then\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p5) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [6]> then\n    forever\n        if <<not <(☁ p6) = [0]>> and <not <(1p？) = [6]>>> then\n            go to x: ((join (letter (41) of (☁ p6)) (join (letter (42) of (☁ p6)) (letter (43) of (☁ p6)))) - (500)) y: ((join (letter (44) of (☁ p6)) (join (letter (45) of (☁ p6)) (letter (46) of (☁ p6)))) - (500))\n            point in direction ((join (letter (49) of (☁ p6)) (join (letter (50) of (☁ p6)) (letter (51) of (☁ p6)))) - (200))\n            if <((join (letter (47) of (☁ p6)) (letter (48) of (☁ p6))) - (10)) = ([costume # v] of [地面 v])> then\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p6) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [7]> then\n    forever\n        if <<not <(☁ p7) = [0]>> and <not <(1p？) = [7]>>> then\n            go to x: ((join (letter (41) of (☁ p7)) (join (letter (42) of (☁ p7)) (letter (43) of (☁ p7)))) - (500)) y: ((join (letter (44) of (☁ p7)) (join (letter (45) of (☁ p7)) (letter (46) of (☁ p7)))) - (500))\n            point in direction ((join (letter (49) of (☁ p7)) (join (letter (50) of (☁ p7)) (letter (51) of (☁ p7)))) - (200))\n            if <((join (letter (47) of (☁ p7)) (letter (48) of (☁ p7))) - (10)) = ([costume # v] of [地面 v])> then\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p7) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [8]> then\n    forever\n        if <<not <(☁ p8) = [0]>> and <not <(1p？) = [8]>>> then\n            go to x: ((join (letter (41) of (☁ p8)) (join (letter (42) of (☁ p8)) (letter (43) of (☁ p8)))) - (500)) y: ((join (letter (44) of (☁ p8)) (join (letter (45) of (☁ p8)) (letter (46) of (☁ p8)))) - (500))\n            point in direction ((join (letter (49) of (☁ p8)) (join (letter (50) of (☁ p8)) (letter (51) of (☁ p8)))) - (200))\n            if <((join (letter (47) of (☁ p8)) (letter (48) of (☁ p8))) - (10)) = ([costume # v] of [地面 v])> then\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p8) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [9]> then\n    forever\n        if <<not <(☁ p9) = [0]>> and <not <(1p？) = [9]>>> then\n            go to x: ((join (letter (41) of (☁ p9)) (join (letter (42) of (☁ p9)) (letter (43) of (☁ p9)))) - (500)) y: ((join (letter (44) of (☁ p9)) (join (letter (45) of (☁ p9)) (letter (46) of (☁ p9)))) - (500))\n            point in direction ((join (letter (49) of (☁ p9)) (join (letter (50) of (☁ p9)) (letter (51) of (☁ p9)))) - (200))\n            if <((join (letter (47) of (☁ p9)) (letter (48) of (☁ p9))) - (10)) = ([costume # v] of [地面 v])> then\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p9) = [0]> then\n            hide\n        end\n    end\nend\nif <(costume [number v]) = [10]> then\n    forever\n        if <<not <(☁ p10) = [0]>> and <not <(1p？) = [10]>>> then\n            go to x: ((join (letter (41) of (☁ p10)) (join (letter (42) of (☁ p10)) (letter (43) of (☁ p10)))) - (500)) y: ((join (letter (44) of (☁ p10)) (join (letter (45) of (☁ p10)) (letter (46) of (☁ p10)))) - (500))\n            point in direction ((join (letter (49) of (☁ p10)) (join (letter (50) of (☁ p10)) (letter (51) of (☁ p10)))) - (200))\n            if <((join (letter (47) of (☁ p10)) (letter (48) of (☁ p10))) - (10)) = ([costume # v] of [地面 v])> then\n                show\n            else\n                hide\n            end\n        end\n        if <(☁ p10) = [0]> then\n            hide\n        end\n    end\nend\n\nwhen I receive [オンライン！ v]\nhide\nコピー\n\n@スキップ\n\nwhen flag clicked\nhide\nswitch costume to (コスチューム1 v)\ngo to x: (200) y: (-150)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ngo to x: (-200) y: (-150)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [1]> then\n    forever\n        if <<<touching (mouse-pointer v)?> and <mouse down?>> and <(推せるか？) = [0]>> then\n            broadcast (準備 v)\n            wait (0.1) seconds\n            broadcast (NEXT v)\n            broadcast (仕掛け v)\n            wait until <not <<touching (mouse-pointer v)?> and <mouse down?>>>\n            wait (0.1) seconds\n        end\n        if <([costume # v] of [地面 v]) = [8]> then\n            switch costume to (コスチューム3 v)\n            hide\n        else\n            switch costume to (コスチューム1 v)\n            show\n        end\n    end\nend\nif <(costume [number v]) = [2]> then\n    forever\n        if <<<touching (mouse-pointer v)?> and <mouse down?>> and <(推せるか？) = [0]>> then\n            broadcast (準備 v)\n            broadcast (前 v)\n            wait (0.1) seconds\n            broadcast (仕掛け v)\n            wait until <not <<touching (mouse-pointer v)?> and <mouse down?>>>\n            wait (0.1) seconds\n        end\n        if <([costume # v] of [地面 v]) = [1]> then\n            switch costume to (コスチューム3 v)\n            hide\n        else\n            switch costume to (コスチューム2 v)\n            show\n        end\n    end\nend\n\n@スプライト2\n\nwhen flag clicked\nhide\n\n