Online Platformer [2.5D] Ver1.1.0

Instructions: 日本語の説明は下↓\nMethod of opration\n\nRight arrow key     Go right\nLeft arrow key       Go left\nUp arrow key         Jump\nSpace key             Switching between 3D and 2D\n                              (Lightweight PC)\nTkey                      Chat\n\nx:-7 y:97   x:47 y:61   x:154 y:53   x:84 y:35\nGo to everything and earn flight skills\n\n操作方法\n\n右矢印キー　　右へ進む\n左矢印キー　　左へ進む\n上矢印キー　　ジャンプ\nスペースキー　3Dと2Dの切り替え\n　　　　　　　(パソコンの軽量化)\nTキー　　　　　チャット\nAキー　　　　　言語の変更\n\nx:-7 y:97   x:47 y:61   x:154 y:53   x:84 y:35\nの全てに行くと飛行能力を獲得できます

@Stage\n\nwhen I receive [スタート v]\nforever\n    if <not <(チャット) = [00]>> then\n        set [チャット消す v] to (チャット)\n        set [チャット消す2 v] to [5]\n        repeat until <(チャット消す2) = [0]>\n            if <not <(チャット消す) = (チャット)>> then\n                set [チャット消す2 v] to [5]\n            end\n            change [チャット消す2 v] by (-1)\n            wait (1) seconds\n        end\n        set [チャット v] to [00]\n    end\nend\n\ndelete all of [オンラインユーザー名変換用 v]\nadd [a] to [オンラインユーザー名変換用 v]\nadd [b] to [オンラインユーザー名変換用 v]\nadd [c] to [オンラインユーザー名変換用 v]\nadd [d] to [オンラインユーザー名変換用 v]\nadd [e] to [オンラインユーザー名変換用 v]\nadd [f] to [オンラインユーザー名変換用 v]\nadd [g] to [オンラインユーザー名変換用 v]\nadd [h] to [オンラインユーザー名変換用 v]\nadd [i] to [オンラインユーザー名変換用 v]\nadd [j] to [オンラインユーザー名変換用 v]\nadd [k] to [オンラインユーザー名変換用 v]\nadd [l] to [オンラインユーザー名変換用 v]\nadd [m] to [オンラインユーザー名変換用 v]\nadd [n] to [オンラインユーザー名変換用 v]\nadd [o] to [オンラインユーザー名変換用 v]\nadd [p] to [オンラインユーザー名変換用 v]\nadd [q] to [オンラインユーザー名変換用 v]\nadd [r] to [オンラインユーザー名変換用 v]\nadd [s] to [オンラインユーザー名変換用 v]\nadd [t] to [オンラインユーザー名変換用 v]\nadd [u] to [オンラインユーザー名変換用 v]\nadd [v] to [オンラインユーザー名変換用 v]\nadd [w] to [オンラインユーザー名変換用 v]\nadd [x] to [オンラインユーザー名変換用 v]\nadd [y] to [オンラインユーザー名変換用 v]\nadd [z] to [オンラインユーザー名変換用 v]\nadd [_] to [オンラインユーザー名変換用 v]\nadd [1] to [オンラインユーザー名変換用 v]\nadd [2] to [オンラインユーザー名変換用 v]\nadd [3] to [オンラインユーザー名変換用 v]\nadd [4] to [オンラインユーザー名変換用 v]\nadd [5] to [オンラインユーザー名変換用 v]\nadd [6] to [オンラインユーザー名変換用 v]\nadd [7] to [オンラインユーザー名変換用 v]\nadd [8] to [オンラインユーザー名変換用 v]\nadd [9] to [オンラインユーザー名変換用 v]\nadd [0] to [オンラインユーザー名変換用 v]\n\nwhen I receive [スタート v]\nforever\n    if <key (a v) pressed?> then\n        set [言語消す v] to [3]\n        if <(言語) = [2]> then\n            set [言語 v] to [1]\n        else\n            set [言語 v] to [2]\n        end\n        wait until <not <key (a v) pressed?>>\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    if <key (t v) pressed?> then\n        set [チャット終了 v] to [0]\n        delete all of [チャット/chat v]\n        if <(言語) = [1]> then\n            add [Greeting] to [チャット/chat v]\n            add [Calling] to [チャット/chat v]\n            add [reply] to [チャット/chat v]\n        else\n            add [あいさつ] to [チャット/chat v]\n            add [呼びかけ] to [チャット/chat v]\n            add [返事] to [チャット/chat v]\n        end\n        hide list [チャット/chat v]\n        wait until <not <key (t v) pressed?>>\n        repeat until <key (t v) pressed?>\n            if <key (1 v) pressed?> then\n                delete all of [チャット/chat v]\n                if <(言語) = [1]> then\n                    add [Hello] to [チャット/chat v]\n                    add [Good morning] to [チャット/chat v]\n                else\n                    add [こんにちは] to [チャット/chat v]\n                    add [おはよう] to [チャット/chat v]\n                end\n                wait until <not <key (1 v) pressed?>>\n                repeat until <(チャット終了) = [1]>\n                    if <key (1 v) pressed?> then\n                        wait until <not <key (1 v) pressed?>>\n                        set [チャット v] to [01]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (2 v) pressed?> then\n                        wait until <not <key (2 v) pressed?>>\n                        set [チャット v] to [02]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (t v) pressed?> then\n                        wait until <not <key (t v) pressed?>>\n                        set [チャット終了 v] to [1]\n                    end\n                end\n                show list [チャット/chat v]\n            end\n            if <key (2 v) pressed?> then\n                delete all of [チャット/chat v]\n                if <(言語) = [1]> then\n                    add [Please come] to [チャット/chat v]\n                    add [Wait here] to [チャット/chat v]\n                    add [Please do your best] to [チャット/chat v]\n                    add [Awesome!] to [チャット/chat v]\n                    add [Good bye] to [チャット/chat v]\n                else\n                    add [来てください] to [チャット/chat v]\n                    add [ここで待ってて] to [チャット/chat v]\n                    add [頑張ってください] to [チャット/chat v]\n                    add [すごい！] to [チャット/chat v]\n                    add [さようなら] to [チャット/chat v]\n                end\n                wait until <not <key (2 v) pressed?>>\n                repeat until <(チャット終了) = [1]>\n                    if <key (1 v) pressed?> then\n                        wait until <not <key (1 v) pressed?>>\n                        set [チャット v] to [03]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (2 v) pressed?> then\n                        wait until <not <key (2 v) pressed?>>\n                        set [チャット v] to [04]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (3 v) pressed?> then\n                        wait until <not <key (3 v) pressed?>>\n                        set [チャット v] to [05]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (4 v) pressed?> then\n                        wait until <not <key (4 v) pressed?>>\n                        set [チャット v] to [06]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (5 v) pressed?> then\n                        wait until <not <key (5 v) pressed?>>\n                        set [チャット v] to [11]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (t v) pressed?> then\n                        wait until <not <key (t v) pressed?>>\n                        set [チャット終了 v] to [1]\n                    end\n                end\n                show list [チャット/chat v]\n            end\n            if <key (3 v) pressed?> then\n                delete all of [チャット/chat v]\n                if <(言語) = [1]> then\n                    add [OK] to [チャット/chat v]\n                    add [NO] to [チャット/chat v]\n                    add [YES] to [チャット/chat v]\n                    add [Thank you] to [チャット/chat v]\n                else\n                    add [OK] to [チャット/chat v]\n                    add [NO] to [チャット/chat v]\n                    add [YES] to [チャット/chat v]\n                    add [ありがとう] to [チャット/chat v]\n                end\n                wait until <not <key (3 v) pressed?>>\n                repeat until <(チャット終了) = [1]>\n                    if <key (1 v) pressed?> then\n                        wait until <not <key (1 v) pressed?>>\n                        set [チャット v] to [07]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (2 v) pressed?> then\n                        wait until <not <key (2 v) pressed?>>\n                        set [チャット v] to [08]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (3 v) pressed?> then\n                        wait until <not <key (3 v) pressed?>>\n                        set [チャット v] to [09]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (4 v) pressed?> then\n                        wait until <not <key (4 v) pressed?>>\n                        set [チャット v] to [10]\n                        set [チャット終了 v] to [1]\n                    end\n                    if <key (t v) pressed?> then\n                        wait until <not <key (t v) pressed?>>\n                        set [チャット終了 v] to [1]\n                    end\n                end\n                show list [チャット/chat v]\n            end\n        end\n        show list [チャット/chat v]\n        wait until <not <key (t v) pressed?>>\n    end\nend\n\nwhen flag clicked\nset [チャット v] to [00]\n\nwhen I receive [スタート v]\nforever\n    play sound [game_maoudamashii_6_dangeon22 v] until done\nend\n\nwhen I receive [スタート v]\nset [言語消す v] to [0]\nforever\n    if <not <(言語消す) = [0]>> then\n        change [言語消す v] by (-1)\n        wait (1) seconds\n    end\nend\n\n\n\nwhen I receive [スタート v]\nrepeat until <<(item (1) of [飛行まで v]) = [1]> and <<(item (2) of [飛行まで v]) = [1]> and <<(item (3) of [飛行まで v]) = [1]> and <(item (4) of [飛行まで v]) = [1]>>>>\n    if <<(item (1) of [飛行まで v]) = [0]> and <<(X座標) = [-7]> and <(Y座標) = [97]>>> then\n        replace item (1) of [飛行まで v] with [1]\n        broadcast (ゲット v)\n    end\n    if <<(item (2) of [飛行まで v]) = [0]> and <<(X座標) = [47]> and <(Y座標) = [61]>>> then\n        replace item (2) of [飛行まで v] with [1]\n        broadcast (ゲット v)\n    end\n    if <<(item (3) of [飛行まで v]) = [0]> and <<(X座標) = [154]> and <(Y座標) = [53]>>> then\n        replace item (3) of [飛行まで v] with [1]\n        broadcast (ゲット v)\n    end\n    if <<(item (4) of [飛行まで v]) = [0]> and <<(X座標) = [84]> and <(Y座標) = [35]>>> then\n        replace item (4) of [飛行まで v] with [1]\n        broadcast (ゲット v)\n    end\nend\nif <not <(飛行可) = [1]>> then\n    if <(☁ 飛行プレイヤー) = [0]> then\n        set [☁ 飛行プレイヤー v] to (プレイヤー名)\n    else\n        if <(☁ 飛行プレイヤー2) = [0]> then\n            set [☁ 飛行プレイヤー2 v] to (プレイヤー名)\n        else\n            if <(☁ 飛行プレイヤー3) = [0]> then\n                set [☁ 飛行プレイヤー3 v] to (プレイヤー名)\n            end\n        end\n    end\nend\nset [飛行可 v] to [1]\nset [飛行 v] to [1]\n\ndelete all of [飛行まで v]\nrepeat (4)\n    add [0] to [飛行まで v]\nend\n\n@ステージ\n\ndefine 3D化\nchange x by (-15)\nchange y by (-15)\nset [x v] to ((round ((x position) * (.1))) * (-1))\nset [y v] to ((round ((y position) * (.1))) * (-1))\nset pen size to (2)\npen down\nchange x by (30)\nchange y by (30)\nchange x by (-30)\nchange y by (-30)\ngo to x: ((x position) + (x)) y: ((y position) + (y))\nchange x by (30)\ngo to x: ((x position) - (x)) y: ((y position) - (y))\ngo to x: ((x position) + (x)) y: ((y position) + (y))\nchange y by (30)\ngo to x: ((x position) - (x)) y: ((y position) - (y))\ngo to x: ((x position) + (x)) y: ((y position) + (y))\nchange x by (-30)\ngo to x: ((x position) - (x)) y: ((y position) - (y))\ngo to x: ((x position) + (x)) y: ((y position) + (y))\nchange y by (-30)\ngo to x: ((x position) - (x)) y: ((y position) - (y))\npen up\nchange x by (15)\nchange y by (15)\n\nif <(letter (1) of (y)) = [-]> then\n    change y by (30)\n    change [一時変数y v] by (-1)\nend\n\nwhen I receive [スタート v]\nforever\n    if <key (space v) pressed?> then\n        if <(3D) = [ON]> then\n            set [3d v] to [OFF]\n        else\n            set [3d v] to [ON]\n        end\n        broadcast (更新 v)\n        wait until <not <key (space v) pressed?>>\n    end\nend\n\ndefine プレイヤー座標更新\nset [プレイヤーx v] to ((ステージx) + (8))\nset [プレイヤーy v] to ((ステージy) + (6))\nif <(x position) < [0]> then\n    set [プレイヤーx2 v] to ((ステージx) + (9))\nelse\n    if <[0] < (x position)> then\n        set [プレイヤーx2 v] to ((ステージx) + (7))\n    else\n        set [プレイヤーx2 v] to ((ステージx) + (8))\n    end\nend\nif <(y position) < [0]> then\n    set [プレイヤーy2 v] to ((ステージy) + (5))\nelse\n    if <[0] < (y position)> then\n        set [プレイヤーy2 v] to ((ステージy) + (7))\n    else\n        set [プレイヤーy2 v] to ((ステージy) + (6))\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    set [y座標 v] to ((99) - (プレイヤーy))\n    set [x座標 v] to ((プレイヤーx) - (9))\nend\n\ndefine 動く\nrepeat ([abs v] of (round (スピード)) )\n    プレイヤー座標更新\n    if <(letter (1) of (スピード)) = [-]> then\n        if <(x position) = [0]> then\n            if <<not <(letter (プレイヤーy) of (item ((プレイヤーx) + (1)) of [ステージ v])) = [1]>> and <not <(letter (プレイヤーy2) of (item ((プレイヤーx) + (1)) of [ステージ v])) = [1]>>> then\n                change [オンライン用x v] by (1)\n                change x by (-1)\n                if <(x position) = [-30]> then\n                    change x by (30)\n                    change [ステージx v] by (1)\n                end\n            end\n        else\n            change [オンライン用x v] by (1)\n            change x by (-1)\n            if <(x position) = [-30]> then\n                change x by (30)\n                change [ステージx v] by (1)\n            end\n        end\n    else\n        if <(x position) = [0]> then\n            if <<not <(letter (プレイヤーy) of (item ((プレイヤーx) - (1)) of [ステージ v])) = [1]>> and <not <(letter (プレイヤーy2) of (item ((プレイヤーx) - (1)) of [ステージ v])) = [1]>>> then\n                change [オンライン用x v] by (-1)\n                change x by (1)\n                if <(x position) = [30]> then\n                    change x by (-30)\n                    change [ステージx v] by (-1)\n                end\n            end\n        else\n            change [オンライン用x v] by (-1)\n            change x by (1)\n            if <(x position) = [30]> then\n                change x by (-30)\n                change [ステージx v] by (-1)\n            end\n        end\n    end\nend\n\ndefine 更新 (x) (y)\nset x to ((x) + (-285))\nset y to ((y) + (225))\nerase all\nset [一時変数x v] to ((ステージx) + (-1))\nrepeat (20)\n    set [一時変数y v] to ((ステージy) + (-2))\n    repeat (26)\n        if <(letter (一時変数y) of (item (一時変数x) of [ステージ v])) = [1]> then\n            if <(3D) = [ON]> then\n                switch costume to (コスチューム1 v)\n                set pen color to (#0008ff)\n                3D化\n            else\n                switch costume to (1 v)\n                stamp\n            end\n        end\n        if <(letter (一時変数y) of (item (一時変数x) of [ステージ v])) = [2]> then\n            if <<((current [second v]) mod (4)) = [1]> or <((current [second v]) mod (4)) = [0]>> then\n                if <(3D) = [ON]> then\n                    switch costume to (コスチューム1 v)\n                    set pen color to (#4cff00)\n                    3D化\n                else\n                    switch costume to (2 v)\n                    stamp\n                end\n            end\n        end\n        if <(letter (一時変数y) of (item (一時変数x) of [ステージ v])) = [3]> then\n            if <<((current [second v]) mod (4)) = [2]> or <((current [second v]) mod (4)) = [3]>> then\n                if <(3D) = [ON]> then\n                    switch costume to (コスチューム1 v)\n                    set pen color to (#eeff00)\n                    3D化\n                else\n                    switch costume to (3 v)\n                    stamp\n                end\n            end\n        end\n        switch costume to (コスチューム1 v)\n        change y by (-30)\n        change [一時変数y v] by (1)\n    end\n    change [一時変数x v] by (1)\n    set y to ((y) + (225))\n    change x by (30)\nend\ngo to x: (x) y: (y)\n\nwhen flag clicked\nhide\nshow list [チャット/chat v]\n\ndefine 上下\nrepeat ([abs v] of (round (ジャンプ)) )\n    プレイヤー座標更新\n    if <(letter (1) of (ジャンプ)) = [-]> then\n        if <(y position) = [0]> then\n            if <(プレイヤーy) < (プレイヤーy2)> then\n                if <<not <(letter ((プレイヤーy) - (1)) of (item (プレイヤーx) of [ステージ v])) = [1]>> and <not <(letter ((プレイヤーy) - (1)) of (item (プレイヤーx2) of [ステージ v])) = [1]>>> then\n                    change [オンライン用y v] by (1)\n                    change y by (-1)\n                    if <(y position) = [-30]> then\n                        change y by (30)\n                        change [ステージy v] by (-1)\n                    end\n                else\n                    set [ジャンプ v] to [0]\n                    stop [this script v]\n                end\n            else\n                if <<not <(letter ((プレイヤーy2) - (1)) of (item (プレイヤーx) of [ステージ v])) = [1]>> and <not <(letter ((プレイヤーy2) - (1)) of (item (プレイヤーx2) of [ステージ v])) = [1]>>> then\n                    change [オンライン用y v] by (1)\n                    change y by (-1)\n                    if <(y position) = [-30]> then\n                        change y by (30)\n                        change [ステージy v] by (-1)\n                    end\n                else\n                    set [ジャンプ v] to [0]\n                    stop [this script v]\n                end\n            end\n        else\n            change [オンライン用y v] by (1)\n            change y by (-1)\n            if <(y position) = [-30]> then\n                change y by (30)\n                change [ステージy v] by (-1)\n            end\n        end\n    else\n        if <(y position) = [0]> then\n            if <(プレイヤーy2) < (プレイヤーy)> then\n                if <<not <(letter ((プレイヤーy) + (1)) of (item (プレイヤーx) of [ステージ v])) = [1]>> and <not <(letter ((プレイヤーy) + (1)) of (item (プレイヤーx2) of [ステージ v])) = [1]>>> then\n                    change [オンライン用y v] by (-1)\n                    change y by (1)\n                    if <(y position) = [30]> then\n                        change y by (-30)\n                        change [ステージy v] by (1)\n                    end\n                else\n                    set [ジャンプ v] to [0]\n                    stop [this script v]\n                end\n            else\n                if <<not <(letter ((プレイヤーy2) + (1)) of (item (プレイヤーx) of [ステージ v])) = [1]>> and <not <(letter ((プレイヤーy2) + (1)) of (item (プレイヤーx2) of [ステージ v])) = [1]>>> then\n                    change [オンライン用y v] by (-1)\n                    change y by (1)\n                    if <(y position) = [30]> then\n                        change y by (-30)\n                        change [ステージy v] by (1)\n                    end\n                else\n                    set [ジャンプ v] to [0]\n                    stop [this script v]\n                end\n            end\n        else\n            change [オンライン用y v] by (-1)\n            change y by (1)\n            if <(y position) = [30]> then\n                change y by (-30)\n                change [ステージy v] by (1)\n            end\n        end\n    end\nend\n\nwhen I receive [スタート v]\nhide\nset [3d v] to [ON]\nset [ステージx v] to [1]\nset [ステージy v] to [93]\nset [スピード v] to [0]\nset [ジャンプ v] to [0]\ngo to x: (0) y: (0)\nset [オンライン用x v] to [1000]\nset [オンライン用y v] to [1500]\nforever\n    プレイヤー座標更新\n    if <key (right arrow v) pressed?> then\n        change [スピード v] by (-1)\n        point in direction (90)\n    end\n    if <key (left arrow v) pressed?> then\n        change [スピード v] by (1)\n        point in direction (-90)\n    end\n    set [スピード v] to ((スピード) * (.88))\n    if <<(飛行) = [1]> and <key (up arrow v) pressed?>> then\n        set [ジャンプ v] to [-5]\n    else\n        if <(y position) = [0]> then\n            if <(プレイヤーy2) < (プレイヤーy)> then\n                if <<not <(letter ((プレイヤーy) + (1)) of (item (プレイヤーx) of [ステージ v])) = [1]>> and <not <(letter ((プレイヤーy) + (1)) of (item (プレイヤーx2) of [ステージ v])) = [1]>>> then\n                    if <[0] < (ジャンプ2)> then\n                        if <(ジャンプ2) = [3]> then\n                            change [ジャンプ2 v] by (1)\n                            if <key (up arrow v) pressed?> then\n                                set [ジャンプ v] to [-10]\n                            end\n                        else\n                            change [ジャンプ v] by (1)\n                            if <key (up arrow v) pressed?> then\n                                change [ジャンプ2 v] by (1)\n                            else\n                                set [ジャンプ2 v] to [0]\n                            end\n                        end\n                    else\n                        change [ジャンプ v] by (1)\n                    end\n                else\n                    set [ジャンプ2 v] to [0]\n                    set [ジャンプ v] to [0]\n                    if <key (up arrow v) pressed?> then\n                        set [ジャンプ v] to [-10]\n                        change [ジャンプ2 v] by (1)\n                    end\n                end\n            else\n                if <<not <(letter ((プレイヤーy2) + (1)) of (item (プレイヤーx) of [ステージ v])) = [1]>> and <not <(letter ((プレイヤーy2) + (1)) of (item (プレイヤーx2) of [ステージ v])) = [1]>>> then\n                    if <[0] < (ジャンプ2)> then\n                        if <(ジャンプ2) = [3]> then\n                            change [ジャンプ2 v] by (1)\n                            if <key (up arrow v) pressed?> then\n                                set [ジャンプ v] to [-10]\n                            end\n                        else\n                            change [ジャンプ v] by (1)\n                            if <key (up arrow v) pressed?> then\n                                change [ジャンプ2 v] by (1)\n                            else\n                                set [ジャンプ2 v] to [0]\n                            end\n                        end\n                    else\n                        change [ジャンプ v] by (1)\n                    end\n                else\n                    set [ジャンプ2 v] to [0]\n                    set [ジャンプ v] to [0]\n                    if <key (up arrow v) pressed?> then\n                        set [ジャンプ v] to [-10]\n                        change [ジャンプ2 v] by (1)\n                    end\n                end\n            end\n        else\n            if <[0] < (ジャンプ2)> then\n                if <(ジャンプ2) = [3]> then\n                    change [ジャンプ2 v] by (1)\n                    if <key (up arrow v) pressed?> then\n                        set [ジャンプ v] to [-10]\n                    end\n                else\n                    change [ジャンプ v] by (1)\n                    if <key (up arrow v) pressed?> then\n                        change [ジャンプ2 v] by (1)\n                    else\n                        set [ジャンプ2 v] to [0]\n                    end\n                end\n            else\n                change [ジャンプ v] by (1)\n            end\n        end\n    end\n    上下\n    動く\n    更新 (x position) (y position)\n    if <[150] < (プレイヤーy)> then\n        go to x: (0) y: (0)\n        set [ステージx v] to [1]\n        set [ステージy v] to [93]\n        set [スピード v] to [0]\n        set [ジャンプ v] to [0]\n        set [オンライン用x v] to [1000]\n        set [オンライン用y v] to [1500]\n    end\n    set [オンライン用向き v] to (direction)\nend\n\nshow\nステージ作成\nset [仮x v] to [1]\nset [仮y v] to [1]\ngo to x: (-239) y: (179)\nforever\n    if <key (right arrow v) pressed?> then\n        if <not <(x position) = [239]>> then\n            change x by (2)\n            change [仮x v] by (1)\n            if <key (z v) pressed?> then\n                wait (.5) seconds\n            end\n        end\n    end\n    if <key (left arrow v) pressed?> then\n        if <not <(x position) = [-239]>> then\n            change x by (-2)\n            change [仮x v] by (-1)\n            if <key (z v) pressed?> then\n                wait (.5) seconds\n            end\n        end\n    end\n    if <key (up arrow v) pressed?> then\n        if <not <(y position) = [179]>> then\n            change y by (2)\n            change [仮y v] by (-1)\n            if <key (z v) pressed?> then\n                wait (.2) seconds\n            end\n        end\n    end\n    if <key (down arrow v) pressed?> then\n        if <not <(y position) = [-179]>> then\n            change y by (-2)\n            change [仮y v] by (1)\n            if <key (z v) pressed?> then\n                wait (.2) seconds\n            end\n        end\n    end\n    if <key (space v) pressed?> then\n        stamp\n        ステージ変更\n    end\n    if <key (x v) pressed?> then\n        if <(costume [number v]) = [3]> then\n            switch costume to (コスチューム3 v)\n        else\n            if <(costume [number v]) = [4]> then\n                switch costume to (コスチューム4 v)\n            else\n                if <(costume [number v]) = [5]> then\n                    switch costume to (コスチューム5 v)\n                else\n                    switch costume to (コスチューム2 v)\n                end\n            end\n        end\n        wait until <not <key (x v) pressed?>>\n    end\nend\n\ndefine ステージ変更\ndelete all of [ステージ変更用 v]\nset [一時変数 v] to [1]\nrepeat (100)\n    add (letter (一時変数) of (item (仮x) of [ステージ v])) to [ステージ変更用 v]\n    change [一時変数 v] by (1)\nend\nif <(costume [number v]) = [3]> then\n    replace item (仮y) of [ステージ変更用 v] with [1]\nend\nif <(costume [number v]) = [4]> then\n    replace item (仮y) of [ステージ変更用 v] with [0]\nend\nif <(costume [number v]) = [5]> then\n    replace item (仮y) of [ステージ変更用 v] with [2]\nend\nif <(costume [number v]) = [6]> then\n    replace item (仮y) of [ステージ変更用 v] with [3]\nend\nreplace item (仮x) of [ステージ v] with (ステージ変更用)\n\ndefine ステージ作成\nswitch costume to (コスチューム2 v)\nerase all\ngo to x: (-239) y: (179)\nset [一時変数 v] to [1]\nrepeat (length of [ステージ v])\n    set [仮y v] to [1]\n    repeat (100)\n        if <(letter (仮y) of (item (一時変数) of [ステージ v])) = [1]> then\n            switch costume to (コスチューム2 v)\n            stamp\n        end\n        if <(letter (仮y) of (item (一時変数) of [ステージ v])) = [2]> then\n            switch costume to (コスチューム4 v)\n            stamp\n        end\n        if <(letter (仮y) of (item (一時変数) of [ステージ v])) = [3]> then\n            switch costume to (コスチューム5 v)\n            stamp\n        end\n        change y by (-2)\n        change [仮y v] by (1)\n    end\n    set y to (179)\n    change x by (2)\n    change [一時変数 v] by (1)\nend\n\nwhen flag clicked\nif <<(username) = [kouttakunn]> or <<(username) = [rensuper]> or <(username) = [radaokun252525]>>> then\n    set [飛行 v] to [1]\n    set [飛行可 v] to [1]\nelse\n    set [飛行 v] to [0]\n    set [飛行可 v] to [0]\nend\nforever\n    if <(飛行可) = [1]> then\n        if <key (z v) pressed?> then\n            if <(飛行) = [1]> then\n                set [飛行 v] to [0]\n            else\n                set [飛行 v] to [1]\n            end\n            wait until <not <key (z v) pressed?>>\n        end\n    end\nend\n\n@プレイヤー\n\nwhen I receive [リセット v]\nswitch costume to (1 v)\n\nwhen flag clicked\nerase all\nhide\n\nwhen I receive [スタート v]\nswitch costume to (1 v)\nforever\n    set [オンライン用コスチューム v] to (costume [number v])\n    if <key (right arrow v) pressed?> then\n        if <(costume [number v]) = [1]> then\n            point in direction (-90)\n        end\n    end\n    if <key (left arrow v) pressed?> then\n        if <(costume [number v]) = [1]> then\n            point in direction (90)\n        end\n    end\n    if <(3D) = [ON]> then\n        if <(direction) = [90]> then\n            go to x: (0) y: (2)\n        else\n            go to x: (-30) y: (2)\n        end\n    else\n        if <(direction) = [90]> then\n            go to x: (0) y: (0)\n        else\n            go to x: (-30) y: (0)\n        end\n    end\nend\n\nrepeat (7)\n    next costume\nend\n\nif <(FPS) < [5]> then\n    stop [all v]\nend\n\nwhen I receive [スタート v]\nshow\nforever\n    set [変数 v] to (current [second v])\n    wait until <not <(変数) = (current [second v])>>\n    set [fps2 v] to [0]\n    set [変数 v] to (current [second v])\n    repeat until <not <(変数) = (current [second v])>>\n        change [fps2 v] by (1)\n    end\n    set [fps v] to (FPS2)\n    if <(FPS) < [10]> then\n        if <(3D) = [ON]> then\n            set [3d v] to [OFF]\n            broadcast (2D化 v)\n        else\n            broadcast (FPS低下 v)\n        end\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    if <(チャット) = [00]> then\n        if <(言語) = [1]> then\n            say []\n        else\n            say []\n        end\n    else\n        if <(チャット) = [01]> then\n            if <(言語) = [1]> then\n                say [Hello]\n            else\n                say [こんにちは]\n            end\n        else\n            if <(チャット) = [02]> then\n                if <(言語) = [1]> then\n                    say [Good morning]\n                else\n                    say [おはよう]\n                end\n            else\n                if <(チャット) = [03]> then\n                    if <(言語) = [1]> then\n                        say [Please come]\n                    else\n                        say [来てください]\n                    end\n                else\n                    if <(チャット) = [04]> then\n                        if <(言語) = [1]> then\n                            say [Wait here]\n                        else\n                            say [ここで待ってて]\n                        end\n                    else\n                        if <(チャット) = [05]> then\n                            if <(言語) = [1]> then\n                                say [Please do your best]\n                            else\n                                say [頑張ってください]\n                            end\n                        else\n                            if <(チャット) = [06]> then\n                                if <(言語) = [1]> then\n                                    say [Awesome!]\n                                else\n                                    say [すごい！]\n                                end\n                            else\n                                if <(チャット) = [07]> then\n                                    if <(言語) = [1]> then\n                                        say [OK]\n                                    else\n                                        say [OK]\n                                    end\n                                else\n                                    if <(チャット) = [08]> then\n                                        if <(言語) = [1]> then\n                                            say [NO]\n                                        else\n                                            say [NO]\n                                        end\n                                    else\n                                        if <(チャット) = [09]> then\n                                            if <(言語) = [1]> then\n                                                say [YES]\n                                            else\n                                                say [YES]\n                                            end\n                                        else\n                                            if <(チャット) = [10]> then\n                                                if <(言語) = [1]> then\n                                                    say [Thank you]\n                                                else\n                                                    say [ありがとう]\n                                                end\n                                            else\n                                                if <(チャット) = [11]> then\n                                                    if <(言語) = [1]> then\n                                                        say [Good bye]\n                                                    else\n                                                        say [さようなら]\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@文字\n\nbroadcast (FPS低下 v)\n\nwhen I receive [スタート v]\n更新\n\nwhen I receive [2d化 v]\nif <(クローン) = [1]> then\n    delete this clone\nend\n\nwhen I receive [2d化 v]\nif <(変数) = [0]> then\n    更新\nend\n\ndefine 更新\nset [クローン v] to [1]\nset size to (150) %\ngo to x: (-220) y: (160)\n言葉 (join [3D:] (3D))\ngo to x: (-220) y: (130)\n言葉 (join [FPS:] (FPS))\ngo to x: (-220) y: (100)\n言葉 (join [X:] (X座標))\ngo to x: (-220) y: (70)\n言葉 (join [Y:] (Y座標))\nif <not <(言語消す) = [0]>> then\n    go to x: (-110) y: (160)\n    if <(言語) = [1]> then\n        言葉 [ENGLISH]\n    else\n        言葉 [JAPANESE]\n    end\nend\ngo to x: (60) y: (160)\n言葉 (join [PLAYERS:] (プレイヤーの数2))\nset [クローン v] to [0]\n\nwhen I receive [fps低下 v]\nif <(変数) = [0]> then\n    更新\nend\n\nwhen I receive [更新 v]\nif <(クローン) = [0]> then\n    更新\nend\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nif <(クローン) = [2]> then\n    wait (5) seconds\n    delete this clone\nend\nif <(クローン) = [3]> then\n    wait (1.99) seconds\n    delete this clone\nend\n\nset [クローン v] to [2]\ngo to x: (-80) y: (160)\nset size to (100) %\n言葉 [CHANGED TO 2D DUE TO]\ngo to x: (-80) y: (140)\n言葉 [LOWER FPS]\nset [クローン v] to [0]\n\nwhen I receive [スタート v]\nforever\n    broadcast (更新 v)\n    wait (.1) seconds\nend\n\nbroadcast (2D化 v)\n\nset [クローン v] to [2]\ngo to x: (-80) y: (160)\nset size to (100) %\n言葉 [LOW FPS]\ngo to x: (-80) y: (140)\n言葉 [WATCH OUT]\nset [クローン v] to [0]\n\nwhen I receive [更新 v]\nif <(クローン) = [1]> then\n    delete this clone\nend\n\ndefine 言葉 (内容)\nset [変数 v] to [1]\nrepeat (length of (内容))\n    switch costume to (10 v)\n    switch costume to (letter (変数) of (内容))\n    create clone of (_myself_ v)\n    change x by ((13) * ((size) / (100)))\n    change [変数 v] by (1)\nend\nset [変数 v] to [0]\n\nwhen I receive [人数上限 v]\nset [クローン v] to [1]\ngo to x: (-220) y: (40)\nset size to (130) %\n言葉 [THE NUMBER OF PEOPLE IS THE]\ngo to x: (-220) y: (0)\nset size to (130) %\n言葉 [UPPER LIMIT]\ngo to x: (-220) y: (-40)\nset size to (130) %\n言葉 [PLEASE TRY AGAIN LATER]\nset [クローン v] to [0]\n\nwhen I receive [人数上限 v]\ndelete this clone\n\nwhen flag clicked\nset [クローン v] to [3]\ngo to x: (-200) y: (0)\nset size to (130) %\n言葉 [PREPARE TO STERT THE GAME]\nwait (2) seconds\ngo to x: (-120) y: (20)\nset size to (130) %\n言葉 [YOU ARE READY TO]\ngo to x: (-120) y: (-20)\nset size to (130) %\n言葉 [START THE GAME]\nset [クローン v] to [0]\nwait (2) seconds\nbroadcast (スタート v)\n\n@ほかのプレイヤー\n\nwhen I start as a clone\nhide\nwait (2) seconds\nforever\n    go to [back v] layer\n    set size to (100) %\n    point in direction (90)\n    if <(クローン) = [1]> then\n        switch costume to (join (letter (12) of (☁ プレイヤー1)) (letter (13) of (☁ プレイヤー1)))\n        go to x: (((オンライン用X) - (join (letter (1) of (☁ プレイヤー1)) (join (letter (2) of (☁ プレイヤー1)) (join (join (letter (3) of (☁ プレイヤー1)) (letter (4) of (☁ プレイヤー1))) (letter (5) of (☁ プレイヤー1)))))) * (-1)) y: (((オンライン用Y) - (join (letter (6) of (☁ プレイヤー1)) (join (join (letter (7) of (☁ プレイヤー1)) (letter (8) of (☁ プレイヤー1))) (letter (9) of (☁ プレイヤー1))))) * (-1))\n        if <(letter (14) of (☁ プレイヤー1)) = [1]> then\n            show\n        else\n            if <not <(current [second v]) = [0]>> then\n                hide\n            end\n        end\n    end\n    if <(クローン) = [2]> then\n        switch costume to (join (letter (12) of (☁ プレイヤー2)) (letter (13) of (☁ プレイヤー2)))\n        go to x: (((オンライン用X) - (join (letter (1) of (☁ プレイヤー2)) (join (letter (2) of (☁ プレイヤー2)) (join (join (letter (3) of (☁ プレイヤー2)) (letter (4) of (☁ プレイヤー2))) (letter (5) of (☁ プレイヤー2)))))) * (-1)) y: (((オンライン用Y) - (join (letter (6) of (☁ プレイヤー2)) (join (join (letter (7) of (☁ プレイヤー2)) (letter (8) of (☁ プレイヤー2))) (letter (9) of (☁ プレイヤー2))))) * (-1))\n        if <(letter (14) of (☁ プレイヤー2)) = [0]> then\n            if <not <(current [second v]) = [0]>> then\n                hide\n            end\n        else\n            show\n        end\n    end\n    if <(クローン) = [3]> then\n        switch costume to (join (letter (12) of (☁ プレイヤー3)) (letter (13) of (☁ プレイヤー3)))\n        go to x: (((オンライン用X) - (join (letter (1) of (☁ プレイヤー3)) (join (letter (2) of (☁ プレイヤー3)) (join (join (letter (3) of (☁ プレイヤー3)) (letter (4) of (☁ プレイヤー3))) (letter (5) of (☁ プレイヤー3)))))) * (-1)) y: (((オンライン用Y) - (join (letter (6) of (☁ プレイヤー3)) (join (join (letter (7) of (☁ プレイヤー3)) (letter (8) of (☁ プレイヤー3))) (letter (9) of (☁ プレイヤー3))))) * (-1))\n        if <(letter (14) of (☁ プレイヤー3)) = [0]> then\n            if <not <(current [second v]) = [0]>> then\n                hide\n            end\n        else\n            show\n        end\n    end\n    if <(クローン) = [4]> then\n        switch costume to (join (letter (12) of (☁ プレイヤー4)) (letter (13) of (☁ プレイヤー4)))\n        go to x: (((オンライン用X) - (join (letter (1) of (☁ プレイヤー4)) (join (letter (2) of (☁ プレイヤー4)) (join (join (letter (3) of (☁ プレイヤー4)) (letter (4) of (☁ プレイヤー4))) (letter (5) of (☁ プレイヤー4)))))) * (-1)) y: (((オンライン用Y) - (join (letter (6) of (☁ プレイヤー4)) (join (join (letter (7) of (☁ プレイヤー4)) (letter (8) of (☁ プレイヤー4))) (letter (9) of (☁ プレイヤー4))))) * (-1))\n        if <(letter (14) of (☁ プレイヤー4)) = [0]> then\n            if <not <(current [second v]) = [0]>> then\n                hide\n            end\n        else\n            show\n        end\n    end\n    if <(クローン) = [5]> then\n        switch costume to (join (letter (12) of (☁ プレイヤー5)) (letter (13) of (☁ プレイヤー5)))\n        go to x: (((オンライン用X) - (join (letter (1) of (☁ プレイヤー5)) (join (letter (2) of (☁ プレイヤー5)) (join (join (letter (3) of (☁ プレイヤー5)) (letter (4) of (☁ プレイヤー5))) (letter (5) of (☁ プレイヤー5)))))) * (-1)) y: (((オンライン用Y) - (join (letter (6) of (☁ プレイヤー5)) (join (join (letter (7) of (☁ プレイヤー5)) (letter (8) of (☁ プレイヤー5))) (letter (9) of (☁ プレイヤー5))))) * (-1))\n        if <(letter (14) of (☁ プレイヤー5)) = [0]> then\n            if <not <(current [second v]) = [0]>> then\n                hide\n            end\n        else\n            show\n        end\n    end\n    if <(クローン) = [6]> then\n        switch costume to (join (letter (12) of (☁ プレイヤー6)) (letter (13) of (☁ プレイヤー6)))\n        go to x: (((オンライン用X) - (join (letter (1) of (☁ プレイヤー6)) (join (letter (2) of (☁ プレイヤー6)) (join (join (letter (3) of (☁ プレイヤー6)) (letter (4) of (☁ プレイヤー6))) (letter (5) of (☁ プレイヤー6)))))) * (-1)) y: (((オンライン用Y) - (join (letter (6) of (☁ プレイヤー6)) (join (join (letter (7) of (☁ プレイヤー6)) (letter (8) of (☁ プレイヤー6))) (letter (9) of (☁ プレイヤー6))))) * (-1))\n        if <(letter (14) of (☁ プレイヤー6)) = [0]> then\n            if <not <(current [second v]) = [0]>> then\n                hide\n            end\n        else\n            show\n        end\n    end\n    if <(クローン) = [7]> then\n        switch costume to (join (letter (12) of (☁ プレイヤー7)) (letter (13) of (☁ プレイヤー7)))\n        go to x: (((オンライン用X) - (join (letter (1) of (☁ プレイヤー7)) (join (letter (2) of (☁ プレイヤー7)) (join (join (letter (3) of (☁ プレイヤー7)) (letter (4) of (☁ プレイヤー7))) (letter (5) of (☁ プレイヤー7)))))) * (-1)) y: (((オンライン用Y) - (join (letter (6) of (☁ プレイヤー7)) (join (join (letter (7) of (☁ プレイヤー7)) (letter (8) of (☁ プレイヤー7))) (letter (9) of (☁ プレイヤー7))))) * (-1))\n        if <(letter (14) of (☁ プレイヤー7)) = [0]> then\n            if <not <(current [second v]) = [0]>> then\n                hide\n            end\n        else\n            show\n        end\n    end\n    switch costume to (1 v)\n    if <touching (_edge_ v)?> then\n        go to [front v] layer\n        if <<(x position) > [0]> or <(y position) > [0]>> then\n            switch costume to (arrow1-a2 v)\n        else\n            switch costume to (arrow1-a v)\n        end\n        point towards (プレイヤー v)\n        set size to (50) %\n    end\nend\n\nwhen I receive [スタート v]\nset [クローン v] to [1]\nrepeat (7)\n    if <not <(クローン) = (プレイヤー)>> then\n        create clone of (_myself_ v)\n    end\n    change [クローン v] by (1)\nend\n\nwhen I start as a clone\nwait (2) seconds\nforever\n    if <(クローン) = [1]> then\n        set [クローン変数 v] to [18]\n        if <(join (letter (16) of (☁ プレイヤー1)) (letter (17) of (☁ プレイヤー1))) = [00]> then\n            set [クローン名前 v] to []\n            repeat until <(letter (クローン変数) of (☁ プレイヤー1)) = []>\n                set [クローン名前 v] to (join (クローン名前) (item (join (letter (クローン変数) of (☁ プレイヤー1)) (letter ((クローン変数) + (1)) of (☁ プレイヤー1))) of [オンラインユーザー名変換用 v]))\n                change [クローン変数 v] by (2)\n            end\n        else\n            set [クローン名前 v] to (join (letter (16) of (☁ プレイヤー1)) (letter (17) of (☁ プレイヤー1)))\n            変換チャット\n        end\n        say (クローン名前)\n    end\n    if <(クローン) = [2]> then\n        set [クローン変数 v] to [18]\n        if <(join (letter (16) of (☁ プレイヤー2)) (letter (17) of (☁ プレイヤー2))) = [00]> then\n            set [クローン名前 v] to []\n            repeat until <(letter (クローン変数) of (☁ プレイヤー2)) = []>\n                set [クローン名前 v] to (join (クローン名前) (item (join (letter (クローン変数) of (☁ プレイヤー2)) (letter ((クローン変数) + (1)) of (☁ プレイヤー2))) of [オンラインユーザー名変換用 v]))\n                change [クローン変数 v] by (2)\n            end\n        else\n            set [クローン名前 v] to (join (letter (16) of (☁ プレイヤー2)) (letter (17) of (☁ プレイヤー2)))\n            変換チャット\n        end\n        say (クローン名前)\n    end\n    if <(クローン) = [3]> then\n        set [クローン変数 v] to [18]\n        if <(join (letter (16) of (☁ プレイヤー3)) (letter (17) of (☁ プレイヤー3))) = [00]> then\n            set [クローン名前 v] to []\n            repeat until <(letter (クローン変数) of (☁ プレイヤー3)) = []>\n                set [クローン名前 v] to (join (クローン名前) (item (join (letter (クローン変数) of (☁ プレイヤー3)) (letter ((クローン変数) + (1)) of (☁ プレイヤー3))) of [オンラインユーザー名変換用 v]))\n                change [クローン変数 v] by (2)\n            end\n        else\n            set [クローン名前 v] to (join (letter (16) of (☁ プレイヤー3)) (letter (17) of (☁ プレイヤー3)))\n            変換チャット\n        end\n        say (クローン名前)\n    end\n    if <(クローン) = [4]> then\n        set [クローン変数 v] to [18]\n        if <(join (letter (16) of (☁ プレイヤー4)) (letter (17) of (☁ プレイヤー4))) = [00]> then\n            set [クローン名前 v] to []\n            repeat until <(letter (クローン変数) of (☁ プレイヤー4)) = []>\n                set [クローン名前 v] to (join (クローン名前) (item (join (letter (クローン変数) of (☁ プレイヤー4)) (letter ((クローン変数) + (1)) of (☁ プレイヤー4))) of [オンラインユーザー名変換用 v]))\n                change [クローン変数 v] by (2)\n            end\n        else\n            set [クローン名前 v] to (join (letter (16) of (☁ プレイヤー4)) (letter (17) of (☁ プレイヤー4)))\n            変換チャット\n        end\n        say (クローン名前)\n    end\n    if <(クローン) = [5]> then\n        set [クローン変数 v] to [18]\n        if <(join (letter (16) of (☁ プレイヤー5)) (letter (17) of (☁ プレイヤー5))) = [00]> then\n            set [クローン名前 v] to []\n            repeat until <(letter (クローン変数) of (☁ プレイヤー5)) = []>\n                set [クローン名前 v] to (join (クローン名前) (item (join (letter (クローン変数) of (☁ プレイヤー5)) (letter ((クローン変数) + (1)) of (☁ プレイヤー5))) of [オンラインユーザー名変換用 v]))\n                change [クローン変数 v] by (2)\n            end\n        else\n            set [クローン名前 v] to (join (letter (16) of (☁ プレイヤー5)) (letter (17) of (☁ プレイヤー5)))\n            変換チャット\n        end\n        say (クローン名前)\n    end\n    if <(クローン) = [6]> then\n        set [クローン変数 v] to [18]\n        if <(join (letter (16) of (☁ プレイヤー6)) (letter (17) of (☁ プレイヤー6))) = [00]> then\n            set [クローン名前 v] to []\n            repeat until <(letter (クローン変数) of (☁ プレイヤー6)) = []>\n                set [クローン名前 v] to (join (クローン名前) (item (join (letter (クローン変数) of (☁ プレイヤー6)) (letter ((クローン変数) + (1)) of (☁ プレイヤー6))) of [オンラインユーザー名変換用 v]))\n                change [クローン変数 v] by (2)\n            end\n        else\n            set [クローン名前 v] to (join (letter (16) of (☁ プレイヤー6)) (letter (17) of (☁ プレイヤー6)))\n            変換チャット\n        end\n        say (クローン名前)\n    end\n    if <(クローン) = [7]> then\n        set [クローン変数 v] to [18]\n        if <(join (letter (16) of (☁ プレイヤー7)) (letter (17) of (☁ プレイヤー7))) = [00]> then\n            set [クローン名前 v] to []\n            repeat until <(letter (クローン変数) of (☁ プレイヤー7)) = []>\n                set [クローン名前 v] to (join (クローン名前) (item (join (letter (クローン変数) of (☁ プレイヤー7)) (letter ((クローン変数) + (1)) of (☁ プレイヤー7))) of [オンラインユーザー名変換用 v]))\n                change [クローン変数 v] by (2)\n            end\n        else\n            set [クローン名前 v] to (join (letter (16) of (☁ プレイヤー7)) (letter (17) of (☁ プレイヤー7)))\n            変換チャット\n        end\n        say (クローン名前)\n    end\nend\n\ndefine 変換チャット\nif <(クローン名前) = [01]> then\n    if <(言語) = [1]> then\n        set [クローン名前 v] to [Hello]\n    else\n        set [クローン名前 v] to [こんにちは]\n    end\nelse\n    if <(クローン名前) = [02]> then\n        if <(言語) = [1]> then\n            set [クローン名前 v] to [Good morning]\n        else\n            set [クローン名前 v] to [おはよう]\n        end\n    else\n        if <(クローン名前) = [03]> then\n            if <(言語) = [1]> then\n                set [クローン名前 v] to [Please come]\n            else\n                set [クローン名前 v] to [来てください]\n            end\n        else\n            if <(クローン名前) = [04]> then\n                if <(言語) = [1]> then\n                    set [クローン名前 v] to [Wait here]\n                else\n                    set [クローン名前 v] to [ここで待ってて]\n                end\n            else\n                if <(クローン名前) = [05]> then\n                    if <(言語) = [1]> then\n                        set [クローン名前 v] to [Please do your best]\n                    else\n                        set [クローン名前 v] to [頑張ってください]\n                    end\n                else\n                    if <(クローン名前) = [06]> then\n                        if <(言語) = [1]> then\n                            set [クローン名前 v] to [Awesome!]\n                        else\n                            set [クローン名前 v] to [すごい！]\n                        end\n                    else\n                        if <(クローン名前) = [07]> then\n                            if <(言語) = [1]> then\n                                set [クローン名前 v] to [OK]\n                            else\n                                set [クローン名前 v] to [OK]\n                            end\n                        else\n                            if <(クローン名前) = [08]> then\n                                if <(言語) = [1]> then\n                                    set [クローン名前 v] to [NO]\n                                else\n                                    set [クローン名前 v] to [NO]\n                                end\n                            else\n                                if <(クローン名前) = [09]> then\n                                    if <(言語) = [1]> then\n                                        set [クローン名前 v] to [YES]\n                                    else\n                                        set [クローン名前 v] to [YES]\n                                    end\n                                else\n                                    if <(クローン名前) = [10]> then\n                                        if <(言語) = [1]> then\n                                            set [クローン名前 v] to [Thank you]\n                                        else\n                                            set [クローン名前 v] to [ありがとう]\n                                        end\n                                    else\n                                        if <(クローン名前) = [11]> then\n                                            if <(言語) = [1]> then\n                                                set [クローン名前 v] to [Good bye]\n                                            else\n                                                set [クローン名前 v] to [さようなら]\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@オンライン管理\n\nwhen I receive [スタート v]\nforever\n    if <(letter (1) of (オンライン用X)) = [-]> then\n        set [プレイヤーオンライン v] to [00000]\n    else\n        if <(length of (オンライン用X)) = [1]> then\n            set [プレイヤーオンライン v] to (join [0000] (オンライン用X))\n        else\n            if <(length of (オンライン用X)) = [2]> then\n                set [プレイヤーオンライン v] to (join [000] (オンライン用X))\n            else\n                if <(length of (オンライン用X)) = [3]> then\n                    set [プレイヤーオンライン v] to (join [00] (オンライン用X))\n                else\n                    if <(length of (オンライン用X)) = [4]> then\n                        set [プレイヤーオンライン v] to (join [0] (オンライン用X))\n                    else\n                        if <(length of (オンライン用X)) = [5]> then\n                            set [プレイヤーオンライン v] to (オンライン用X)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    if <(letter (1) of (オンライン用Y)) = [-]> then\n        set [プレイヤーオンライン v] to (join (プレイヤーオンライン) [0000])\n    else\n        if <(length of (オンライン用Y)) = [1]> then\n            set [プレイヤーオンライン v] to (join (プレイヤーオンライン) (join [000] (オンライン用Y)))\n        else\n            if <(length of (オンライン用Y)) = [2]> then\n                set [プレイヤーオンライン v] to (join (プレイヤーオンライン) (join [00] (オンライン用Y)))\n            else\n                if <(length of (オンライン用Y)) = [3]> then\n                    set [プレイヤーオンライン v] to (join (プレイヤーオンライン) (join [0] (オンライン用Y)))\n                else\n                    if <(length of (オンライン用Y)) = [4]> then\n                        set [プレイヤーオンライン v] to (join (プレイヤーオンライン) (オンライン用Y))\n                    end\n                end\n            end\n        end\n    end\n    if <(オンライン用向き) = [90]> then\n        set [プレイヤーオンライン v] to (join (プレイヤーオンライン) [1])\n    else\n        set [プレイヤーオンライン v] to (join (プレイヤーオンライン) [2])\n    end\n    if <(length of (オンライン用コスチューム)) = [1]> then\n        set [プレイヤーオンライン v] to (join (プレイヤーオンライン) (join [00] (オンライン用コスチューム)))\n    else\n        if <(length of (オンライン用コスチューム)) = [2]> then\n            set [プレイヤーオンライン v] to (join (プレイヤーオンライン) (join [0] (オンライン用コスチューム)))\n        else\n            if <(length of (オンライン用コスチューム)) = [3]> then\n                set [プレイヤーオンライン v] to (join (プレイヤーオンライン) (オンライン用コスチューム))\n            end\n        end\n    end\n    set [プレイヤーオンライン v] to (join (プレイヤーオンライン) [1])\n    set [プレイヤーオンライン v] to (join (プレイヤーオンライン) [1])\n    set [プレイヤーオンライン v] to (join (プレイヤーオンライン) (チャット))\n    set [プレイヤーオンライン v] to (join (プレイヤーオンライン) (プレイヤー名))\n    if <(プレイヤー) = [1]> then\n        set [☁ プレイヤー1 v] to (プレイヤーオンライン)\n    end\n    if <(プレイヤー) = [2]> then\n        set [☁ プレイヤー2 v] to (プレイヤーオンライン)\n    end\n    if <(プレイヤー) = [3]> then\n        set [☁ プレイヤー3 v] to (プレイヤーオンライン)\n    end\n    if <(プレイヤー) = [4]> then\n        set [☁ プレイヤー4 v] to (プレイヤーオンライン)\n    end\n    if <(プレイヤー) = [5]> then\n        set [☁ プレイヤー5 v] to (プレイヤーオンライン)\n    end\n    if <(プレイヤー) = [6]> then\n        set [☁ プレイヤー6 v] to (プレイヤーオンライン)\n    end\n    if <(プレイヤー) = [7]> then\n        set [☁ プレイヤー7 v] to (プレイヤーオンライン)\n    end\nend\n\nset [☁ プレイヤー1 v] to [010001500200100]\nset [☁ プレイヤー2 v] to [010001500200100]\nset [☁ プレイヤー3 v] to [010001500200100]\nset [☁ プレイヤー4 v] to [010001500200100]\nset [☁ プレイヤー5 v] to [010001500200100]\nset [☁ プレイヤー6 v] to [010001500200100]\nset [☁ プレイヤー7 v] to [010001500200100]\n\nwhen flag clicked\n確認\nwait (1.5) seconds\nif <(letter (15) of (☁ プレイヤー1)) = [0]> then\n    set [プレイヤー v] to [1]\n    broadcast (用意 v)\nelse\n    if <(letter (15) of (☁ プレイヤー2)) = [0]> then\n        set [プレイヤー v] to [2]\n        broadcast (用意 v)\n    else\n        if <(letter (15) of (☁ プレイヤー3)) = [0]> then\n            set [プレイヤー v] to [3]\n            broadcast (用意 v)\n        else\n            if <(letter (15) of (☁ プレイヤー4)) = [0]> then\n                set [プレイヤー v] to [4]\n                broadcast (用意 v)\n            else\n                if <(letter (15) of (☁ プレイヤー5)) = [0]> then\n                    set [プレイヤー v] to [5]\n                    broadcast (用意 v)\n                else\n                    if <(letter (15) of (☁ プレイヤー6)) = [0]> then\n                        set [プレイヤー v] to [6]\n                        broadcast (用意 v)\n                    else\n                        if <(letter (15) of (☁ プレイヤー7)) = [0]> then\n                            set [プレイヤー v] to [7]\n                            broadcast (用意 v)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine 確認\ndelete all of [オンライン変更用 v]\nset [変数 v] to [1]\nrepeat (length of (☁ プレイヤー1))\n    add (letter (変数) of (☁ プレイヤー1)) to [オンライン変更用 v]\n    change [変数 v] by (1)\nend\nreplace item (15) of [オンライン変更用 v] with [0]\nset [☁ プレイヤー1 v] to (オンライン変更用)\ndelete all of [オンライン変更用 v]\nset [変数 v] to [1]\nrepeat (length of (☁ プレイヤー2))\n    add (letter (変数) of (☁ プレイヤー2)) to [オンライン変更用 v]\n    change [変数 v] by (1)\nend\nreplace item (15) of [オンライン変更用 v] with [0]\nset [☁ プレイヤー2 v] to (オンライン変更用)\ndelete all of [オンライン変更用 v]\nset [変数 v] to [1]\nrepeat (length of (☁ プレイヤー3))\n    add (letter (変数) of (☁ プレイヤー3)) to [オンライン変更用 v]\n    change [変数 v] by (1)\nend\nreplace item (15) of [オンライン変更用 v] with [0]\nset [☁ プレイヤー3 v] to (オンライン変更用)\ndelete all of [オンライン変更用 v]\nset [変数 v] to [1]\nrepeat (length of (☁ プレイヤー4))\n    add (letter (変数) of (☁ プレイヤー4)) to [オンライン変更用 v]\n    change [変数 v] by (1)\nend\nreplace item (15) of [オンライン変更用 v] with [0]\nset [☁ プレイヤー4 v] to (オンライン変更用)\ndelete all of [オンライン変更用 v]\nset [変数 v] to [1]\nrepeat (length of (☁ プレイヤー5))\n    add (letter (変数) of (☁ プレイヤー5)) to [オンライン変更用 v]\n    change [変数 v] by (1)\nend\nreplace item (15) of [オンライン変更用 v] with [0]\nset [☁ プレイヤー5 v] to (オンライン変更用)\ndelete all of [オンライン変更用 v]\nset [変数 v] to [1]\nrepeat (length of (☁ プレイヤー6))\n    add (letter (変数) of (☁ プレイヤー6)) to [オンライン変更用 v]\n    change [変数 v] by (1)\nend\nreplace item (15) of [オンライン変更用 v] with [0]\nset [☁ プレイヤー6 v] to (オンライン変更用)\ndelete all of [オンライン変更用 v]\nset [変数 v] to [1]\nrepeat (length of (☁ プレイヤー7))\n    add (letter (変数) of (☁ プレイヤー7)) to [オンライン変更用 v]\n    change [変数 v] by (1)\nend\nreplace item (15) of [オンライン変更用 v] with [0]\nset [☁ プレイヤー7 v] to (オンライン変更用)\n\nwhen I receive [スタート v]\n一時 (current [second v])\nforever\n    確認\n    wait (1) seconds\n    set [プレイヤーの数 v] to [0]\n    if <(letter (15) of (☁ プレイヤー1)) = [0]> then\n        set [☁ プレイヤー1 v] to [010001500200100]\n    else\n        change [プレイヤーの数 v] by (1)\n    end\n    if <(letter (15) of (☁ プレイヤー2)) = [0]> then\n        set [☁ プレイヤー2 v] to [010001500200100]\n    else\n        change [プレイヤーの数 v] by (1)\n    end\n    if <(letter (15) of (☁ プレイヤー3)) = [0]> then\n        set [☁ プレイヤー3 v] to [010001500200100]\n    else\n        change [プレイヤーの数 v] by (1)\n    end\n    if <(letter (15) of (☁ プレイヤー4)) = [0]> then\n        set [☁ プレイヤー4 v] to [010001500200100]\n    else\n        change [プレイヤーの数 v] by (1)\n    end\n    if <(letter (15) of (☁ プレイヤー5)) = [0]> then\n        set [☁ プレイヤー5 v] to [010001500200100]\n    else\n        change [プレイヤーの数 v] by (1)\n    end\n    if <(letter (15) of (☁ プレイヤー6)) = [0]> then\n        set [☁ プレイヤー6 v] to [010001500200100]\n    else\n        change [プレイヤーの数 v] by (1)\n    end\n    if <(letter (15) of (☁ プレイヤー7)) = [0]> then\n        set [☁ プレイヤー7 v] to [010001500200100]\n    else\n        change [プレイヤーの数 v] by (1)\n    end\n    set [プレイヤーの数2 v] to (プレイヤーの数)\nend\n\ndefine 一時 (秒)\nwait until <<not <(秒) = (current [second v])>> and <((current [second v]) mod (2)) = [0]>>\n\nwhen flag clicked\nset [プレイヤー名 v] to []\nset [一時変数2 v] to [1]\nif <(username) = [kouttakunn]> then\n    repeat (length of [test])\n        if <[2] = (length of (item # of (letter (一時変数2) of [test]) in [オンラインユーザー名変換用 v]))> then\n            set [プレイヤー名 v] to (join (プレイヤー名) (item # of (letter (一時変数2) of [test]) in [オンラインユーザー名変換用 v]))\n        else\n            set [プレイヤー名 v] to (join (プレイヤー名) (join [0] (item # of (letter (一時変数2) of [test]) in [オンラインユーザー名変換用 v])))\n        end\n        change [一時変数2 v] by (1)\n    end\nelse\n    repeat (length of (username))\n        if <[2] = (length of (item # of (letter (一時変数2) of (username)) in [オンラインユーザー名変換用 v]))> then\n            set [プレイヤー名 v] to (join (プレイヤー名) (item # of (letter (一時変数2) of (username)) in [オンラインユーザー名変換用 v]))\n        else\n            set [プレイヤー名 v] to (join (プレイヤー名) (join [0] (item # of (letter (一時変数2) of (username)) in [オンラインユーザー名変換用 v])))\n        end\n        change [一時変数2 v] by (1)\n    end\nend\n\n@サムネ仮\n\ngo to [front v] layer\nshow\n\nwhen flag clicked\nhide\n\n@終わり\n\nwhen [timer v] > (0)\ngo to [front v] layer\nshow\n\nwhen flag clicked\nhide\nforever\n    reset timer\nend\n\n@スプライト1\n\nwhen I receive [ゲット v]\nshow\nwait (3) seconds\nhide\n\nwhen flag clicked\nhide\n\n