2.5D Online 360° Platformer/オンライン360°プラットフォーマー 

Instructions: これで人を集めよう！↓\nhttps://scratch.mit.edu/projects/471314156/　\n日本語の説明は下にあります\n読まないと損します\nThis game is a 2.5D and 360 ° online platformer!\nUp to 10 players can play!\nMethod of operation\nOperate with arrow keys\nYou can also chat with us!\nFeel free to enjoy! !! !! !! !! !! !! !!\nこのゲームは、2.5Dかつ360°のオンラインプラットフォーマーです！\n最大１０人プレイ可能です！\n操作方法\n矢印キーで操作\nチャットにより、こおりおにもできます！\n自由に、楽しんでください！！！！！！！！

@Stage\n\nwhen flag clicked\ndelete all of [材料 v]\nset [材料 v] to [abcdefghijklmnopqrstuvwxyz0123456789-_]\nset [a v] to [0]\nset [i v] to [0]\nset [数値化 v] to []\nrepeat (length of (材料))\n    change [a v] by (1)\n    add (letter (a) of (材料)) to [材料 v]\nend\nrepeat (length of (username))\n    change [i v] by (1)\n    set [数値化 v] to (join (数値化) ((item # of (letter (i) of (username)) in [材料 v]) + (10)))\nend\n\nwhen flag clicked\nwait (1) seconds\nif <[0] < (☁ 1P)> then\n    if <[0] < (☁ 2P)> then\n        if <[0] < (☁ 3P)> then\n            if <[0] < (☁ 4P)> then\n                if <[0] < (☁ 5P)> then\n                    if <[0] < (☁ 6P)> then\n                        if <[0] < (☁ 7P)> then\n                            if <[0] < (☁ 8P)> then\n                                if <[0] < (☁ 9P)> then\n                                    if <[0] < (☁ 10P)> then\n                                        set [自分 v] to [満員]\n                                        broadcast (満員 v)\n                                    else\n                                        set [☁ 10p v] to [1]\n                                        set [自分 v] to [10]\n                                        broadcast (10P v)\n                                    end\n                                else\n                                    set [☁ 9p v] to [1]\n                                    set [自分 v] to [9]\n                                    broadcast (9P v)\n                                end\n                            else\n                                set [☁ 8p v] to [1]\n                                set [自分 v] to [8]\n                                broadcast (8P v)\n                            end\n                        else\n                            set [☁ 7p v] to [1]\n                            set [自分 v] to [7]\n                            broadcast (7P v)\n                        end\n                    else\n                        set [☁ 6p v] to [1]\n                        set [自分 v] to [6]\n                        broadcast (6P v)\n                    end\n                else\n                    set [☁ 5p v] to [1]\n                    set [自分 v] to [5]\n                    broadcast (5P v)\n                end\n            else\n                set [☁ 4p v] to [1]\n                set [自分 v] to [4]\n                broadcast (4P v)\n            end\n        else\n            set [☁ 3p v] to [1]\n            set [自分 v] to [3]\n            broadcast (3P v)\n        end\n    else\n        set [☁ 2p v] to [1]\n        set [自分 v] to [2]\n        broadcast (2P v)\n    end\nelse\n    set [☁ 1p v] to [1]\n    set [自分 v] to [1]\n    broadcast (1P v)\nend\n\nwhen flag clicked\nif <(自分) = [1]> then\n    set [☁ 1p v] to [0]\n    set [自分 v] to [0]\nend\nif <(自分) = [2]> then\n    set [☁ 2p v] to [0]\n    set [自分 v] to [0]\nend\nif <(自分) = [3]> then\n    set [☁ 3p v] to [0]\n    set [自分 v] to [0]\nend\nif <(自分) = [4]> then\n    set [☁ 4p v] to [0]\n    set [自分 v] to [0]\nend\nif <(自分) = [5]> then\n    set [☁ 5p v] to [0]\n    set [自分 v] to [0]\nend\nif <(自分) = [6]> then\n    set [☁ 6p v] to [0]\n    set [自分 v] to [0]\nend\nif <(自分) = [7]> then\n    set [☁ 7p v] to [0]\n    set [自分 v] to [0]\nend\nif <(自分) = [8]> then\n    set [☁ 8p v] to [0]\n    set [自分 v] to [0]\nend\nif <(自分) = [9]> then\n    set [☁ 9p v] to [0]\n    set [自分 v] to [0]\nend\nif <(自分) = [10]> then\n    set [☁ 10p v] to [0]\n    set [自分 v] to [0]\nend\n\nwhen flag clicked\ndelete all of [クラウドリスト v]\nrepeat (10)\n    add [] to [クラウドリスト v]\nend\nforever\n    replace item (1) of [クラウドリスト v] with (☁ 1P)\n    replace item (2) of [クラウドリスト v] with (☁ 2P)\n    replace item (3) of [クラウドリスト v] with (☁ 3P)\n    replace item (4) of [クラウドリスト v] with (☁ 4P)\n    replace item (5) of [クラウドリスト v] with (☁ 5P)\n    replace item (6) of [クラウドリスト v] with (☁ 6P)\n    replace item (7) of [クラウドリスト v] with (☁ 7P)\n    replace item (8) of [クラウドリスト v] with (☁ 8P)\n    replace item (9) of [クラウドリスト v] with (☁ 9P)\n    replace item (10) of [クラウドリスト v] with (☁ 10P)\nend\n\nwhen flag clicked\ndelete all of [クラウドユーザー v]\nrepeat (10)\n    add [] to [クラウドユーザー v]\nend\nforever\n    replace item (1) of [クラウドユーザー v] with (1)\n    replace item (2) of [クラウドユーザー v] with (2)\n    replace item (3) of [クラウドユーザー v] with (3)\n    replace item (4) of [クラウドユーザー v] with (4)\n    replace item (5) of [クラウドユーザー v] with (5)\n    replace item (6) of [クラウドユーザー v] with (6)\n    replace item (7) of [クラウドユーザー v] with (7)\n    replace item (8) of [クラウドユーザー v] with (8)\n    replace item (9) of [クラウドユーザー v] with (9)\n    replace item (10) of [クラウドユーザー v] with (10)\nend\n\nwhen flag clicked\nforever\n    ユーザーネーム\nend\n\ndefine ユーザーネーム\nset [o v] to [15]\nset [1 v] to []\nrepeat ((length of (☁ 1P)) - (15))\n    change [o v] by (2)\n    set [1 v] to (join (1) (item ((join (letter ((o) - (1)) of (☁ 1P)) (letter (o) of (☁ 1P))) - (10)) of [材料 v]))\nend\nset [o v] to [15]\nset [2 v] to []\nrepeat ((length of (☁ 2P)) - (15))\n    change [o v] by (2)\n    set [2 v] to (join (2) (item ((join (letter ((o) - (1)) of (☁ 2P)) (letter (o) of (☁ 2P))) - (10)) of [材料 v]))\nend\nset [o v] to [15]\nset [3 v] to []\nrepeat ((length of (☁ 3P)) - (15))\n    change [o v] by (2)\n    set [3 v] to (join (3) (item ((join (letter ((o) - (1)) of (☁ 3P)) (letter (o) of (☁ 3P))) - (10)) of [材料 v]))\nend\nset [o v] to [15]\nset [4 v] to []\nrepeat ((length of (☁ 4P)) - (15))\n    change [o v] by (2)\n    set [4 v] to (join (4) (item ((join (letter ((o) - (1)) of (☁ 4P)) (letter (o) of (☁ 4P))) - (10)) of [材料 v]))\nend\nset [o v] to [15]\nset [5 v] to []\nrepeat ((length of (☁ 5P)) - (15))\n    change [o v] by (2)\n    set [5 v] to (join (5) (item ((join (letter ((o) - (1)) of (☁ 5P)) (letter (o) of (☁ 5P))) - (10)) of [材料 v]))\nend\nset [o v] to [15]\nset [6 v] to []\nrepeat ((length of (☁ 6P)) - (15))\n    change [o v] by (2)\n    set [6 v] to (join (6) (item ((join (letter ((o) - (1)) of (☁ 6P)) (letter (o) of (☁ 6P))) - (10)) of [材料 v]))\nend\nset [o v] to [15]\nset [7 v] to []\nrepeat ((length of (☁ 7P)) - (15))\n    change [o v] by (2)\n    set [7 v] to (join (7) (item ((join (letter ((o) - (1)) of (☁ 7P)) (letter (o) of (☁ 7P))) - (10)) of [材料 v]))\nend\nset [o v] to [15]\nset [8 v] to []\nrepeat ((length of (☁ 8P)) - (15))\n    change [o v] by (2)\n    set [8 v] to (join (8) (item ((join (letter ((o) - (1)) of (☁ 8P)) (letter (o) of (☁ 8P))) - (10)) of [材料 v]))\nend\nset [o v] to [15]\nset [9 v] to []\nrepeat ((length of (☁ 9P)) - (15))\n    change [o v] by (2)\n    set [9 v] to (join (9) (item ((join (letter ((o) - (1)) of (☁ 9P)) (letter (o) of (☁ 9P))) - (10)) of [材料 v]))\nend\nset [o v] to [15]\nset [10 v] to []\nrepeat ((length of (☁ 10P)) - (15))\n    change [o v] by (2)\n    set [10 v] to (join (10) (item ((join (letter ((o) - (1)) of (☁ 10P)) (letter (o) of (☁ 10P))) - (10)) of [材料 v]))\nend\n\nwhen flag clicked\nforever\n    set [タイマー v] to (([floor v] of ((timer) * (3)) ) mod (10))\nend\n\nwhen flag clicked\nforever\n    確かめる\nend\n\ndefine 確かめる\nset [タイマー記憶 v] to (join (letter (1) of (☁ 1P)) (join (letter (1) of (☁ 2P)) (join (letter (1) of (☁ 3P)) (join (letter (1) of (☁ 4P)) (join (letter (1) of (☁ 5P)) (join (letter (1) of (☁ 6P)) (join (letter (1) of (☁ 7P)) (join (letter (1) of (☁ 8P)) (join (letter (1) of (☁ 9P)) (letter (1) of (☁ 10P)))))))))))\nwait (1) seconds\nif <(letter (1) of (タイマー記憶)) = (letter (1) of (☁ 1P))> then\n    set [☁ 1p v] to [0]\nend\nif <(letter (2) of (タイマー記憶)) = (letter (1) of (☁ 2P))> then\n    set [☁ 2p v] to [0]\nend\nif <(letter (3) of (タイマー記憶)) = (letter (1) of (☁ 3P))> then\n    set [☁ 3p v] to [0]\nend\nif <(letter (4) of (タイマー記憶)) = (letter (1) of (☁ 4P))> then\n    set [☁ 4p v] to [0]\nend\nif <(letter (5) of (タイマー記憶)) = (letter (1) of (☁ 5P))> then\n    set [☁ 5p v] to [0]\nend\nif <(letter (6) of (タイマー記憶)) = (letter (1) of (☁ 6P))> then\n    set [☁ 6p v] to [0]\nend\nif <(letter (7) of (タイマー記憶)) = (letter (1) of (☁ 7P))> then\n    set [☁ 7p v] to [0]\nend\nif <(letter (8) of (タイマー記憶)) = (letter (1) of (☁ 8P))> then\n    set [☁ 8p v] to [0]\nend\nif <(letter (9) of (タイマー記憶)) = (letter (1) of (☁ 9P))> then\n    set [☁ 9p v] to [0]\nend\nif <(letter (10) of (タイマー記憶)) = (letter (1) of (☁ 10P))> then\n    set [☁ 10p v] to [0]\nend\n\nwhen flag clicked\nforever\n    play sound [Tobu - Hope v] until done\nend\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\nwhen flag clicked\nforever\n    if <[0] < ((join (letter (13) of (☁ 1P)) (letter (14) of (☁ 1P))) - (10))> then\n        set [1- v] to (item ((join (letter (13) of (☁ 1P)) (letter (14) of (☁ 1P))) - (10)) of [総合チャット v])\n    else\n        set [1- v] to (1)\n    end\n    if <[0] < ((join (letter (13) of (☁ 2P)) (letter (14) of (☁ 2P))) - (10))> then\n        set [2- v] to (item ((join (letter (13) of (☁ 2P)) (letter (14) of (☁ 2P))) - (10)) of [総合チャット v])\n    else\n        set [2- v] to (2)\n    end\n    if <[0] < ((join (letter (13) of (☁ 3P)) (letter (14) of (☁ 3P))) - (10))> then\n        set [3- v] to (item ((join (letter (13) of (☁ 3P)) (letter (14) of (☁ 3P))) - (10)) of [総合チャット v])\n    else\n        set [3- v] to (3)\n    end\n    if <[0] < ((join (letter (13) of (☁ 4P)) (letter (14) of (☁ 4P))) - (10))> then\n        set [4- v] to (item ((join (letter (13) of (☁ 4P)) (letter (14) of (☁ 4P))) - (10)) of [総合チャット v])\n    else\n        set [4- v] to (4)\n    end\n    if <[0] < ((join (letter (13) of (☁ 5P)) (letter (14) of (☁ 5P))) - (10))> then\n        set [5- v] to (item ((join (letter (13) of (☁ 5P)) (letter (14) of (☁ 5P))) - (10)) of [総合チャット v])\n    else\n        set [5- v] to (5)\n    end\n    if <[0] < ((join (letter (13) of (☁ 6P)) (letter (14) of (☁ 6P))) - (10))> then\n        set [6- v] to (item ((join (letter (13) of (☁ 6P)) (letter (14) of (☁ 6P))) - (10)) of [総合チャット v])\n    else\n        set [6- v] to (6)\n    end\n    if <[0] < ((join (letter (13) of (☁ 7P)) (letter (14) of (☁ 7P))) - (10))> then\n        set [7- v] to (item ((join (letter (13) of (☁ 7P)) (letter (14) of (☁ 7P))) - (10)) of [総合チャット v])\n    else\n        set [7- v] to (7)\n    end\n    if <[0] < ((join (letter (13) of (☁ 8P)) (letter (14) of (☁ 8P))) - (10))> then\n        set [8- v] to (item ((join (letter (13) of (☁ 8P)) (letter (14) of (☁ 8P))) - (10)) of [総合チャット v])\n    else\n        set [8- v] to (8)\n    end\n    if <[0] < ((join (letter (13) of (☁ 9P)) (letter (14) of (☁ 9P))) - (10))> then\n        set [9- v] to (item ((join (letter (13) of (☁ 9P)) (letter (14) of (☁ 9P))) - (10)) of [総合チャット v])\n    else\n        set [9- v] to (9)\n    end\n    if <[0] < ((join (letter (13) of (☁ 10P)) (letter (14) of (☁ 10P))) - (10))> then\n        set [10- v] to (item ((join (letter (13) of (☁ 10P)) (letter (14) of (☁ 10P))) - (10)) of [総合チャット v])\n    else\n        set [10- v] to (10)\n    end\nend\n\nwhen I receive [ケイドロスタート v]\nset volume to (0) %\n\nwhen I receive [こおりおにスタート v]\nset volume to (0) %\n\nwhen flag clicked\nset volume to (100) %\n\nwhen flag clicked\nset [やめさせる v] to [0]\nforever\n    if <<key (any v) pressed?> or <mouse down?>> then\n        set [やめさせる v] to [0]\n    else\n        change [やめさせる v] by (1)\n        wait (1) seconds\n    end\nend\n\nwhen flag clicked\nwait (1) seconds\nforever\n    if <[15] < (やめさせる)> then\n        stop [all v]\n    end\nend\n\nwhen I receive [ルーム解散 v]\nset volume to (100) %\n\n@スプライト2\n\nwhen I receive [こおりおに v]\nwait (0.1) seconds\nforever\n    if <(ルームマスター) = [0]> then\n        broadcast (ルーム解散 v)\n        wait until <not <(ルームマスター) = [0]>>\n    end\nend\n\nwhen I receive [ケイドロ v]\nwait (0.1) seconds\nforever\n    if <(ルームマスター) = [0]> then\n        broadcast (ルーム解散 v)\n        wait until <not <(ルームマスター) = [0]>>\n    end\nend\n\nwhen I receive [ルーム解散 v]\nset [ルーム v] to [0]\nswitch costume to (コスチューム2 v)\nset size to (1200) %\nswitch costume to (コスチューム1 \(64\) v)\npoint in direction (105)\ngo to x: (0) y: (-1500)\nshow\nsay [ルームが解散されました] for (2) seconds\n\nwhen I receive [こおりおに v]\nswitch costume to (コスチューム1 v)\nask [鬼,,,1　逃げる,,,1以外を入力してください] and wait\nif <(answer) = [1]> then\n    set [種類 v] to [2]\nelse\n    set [種類 v] to [3]\nend\nswitch costume to (コスチューム2 v)\nset size to (1200) %\nswitch costume to (こおりおに v)\npoint in direction (105)\ngo to x: (0) y: (-1500)\nbroadcast (こおりおにスタート v)\n\nchange [y v] by (-1)\n\nwait (0.5) seconds\n\nwhen I receive [ケイドロ v]\nswitch costume to (コスチューム1 v)\nask [鬼,,,1　逃げる,,,1以外を入力してください] and wait\nif <(answer) = [1]> then\n    set [種類 v] to [2]\nelse\n    set [種類 v] to [3]\nend\nswitch costume to (コスチューム2 v)\nset size to (1200) %\nswitch costume to (ケイドロ（逃げる） v)\npoint in direction (105)\ngo to x: (0) y: (-1500)\nbroadcast (ケイドロスタート v)\n\nwhen I receive [凍ったー v]\nif <<(ルーム) = [1]> or <(ルーム) = [2]>> then\n\nwhen I receive [ケイドロスタート v]\nforever\n    if <([costume # v] of [自分 v]) = [5]> then\n        switch costume to (ケイドロ（鬼、捕まった） v)\n    else\n        switch costume to (ケイドロ（逃げる） v)\n    end\nend\n\nwhen I receive [こおりおに v]\nforever\n    switch costume to (こおりおに v)\nend\n\nif <([costume # v] of [自分 v]) = [3]> then\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\n\nwhen flag clicked\nswitch costume to (コスチューム2 v)\nset size to (1200) %\nswitch costume to (コスチューム1 \(64\) v)\npoint in direction (105)\ngo to x: (0) y: (-1500)\nforever\n    if <([costume # v] of [自分 v]) = [4]> then\nend\n\nwhen flag clicked\nforever\n    set [y v] to (round ((y position) * (-1)))\n    set [向き v] to (round (direction))\nend\n\n@自分\n\nwhen flag clicked\nshow\ngo to x: (0) y: (0)\nforever\n    if <key (right arrow v) pressed?> then\n        point in direction (90)\n    end\n    if <key (left arrow v) pressed?> then\n        point in direction (-90)\n    end\nend\n\nwhen I receive [1p v]\nforever\n    set [☁ 1p v] to (join (タイマー) (join ((y) + (5000)) (join ((向き) + (500)) (join ((direction) + (500)) (join (costume [number v]) (join ((チャット) + (10)) (join (ルーム) (数値化))))))))\nend\n\nwhen I receive [2p v]\nforever\n    set [☁ 2p v] to (join (タイマー) (join ((y) + (5000)) (join ((向き) + (500)) (join ((direction) + (500)) (join (costume [number v]) (join ((チャット) + (10)) (join (ルーム) (数値化))))))))\nend\n\nwhen I receive [3p v]\nforever\n    set [☁ 3p v] to (join (タイマー) (join ((y) + (5000)) (join ((向き) + (500)) (join ((direction) + (500)) (join (costume [number v]) (join ((チャット) + (10)) (join (ルーム) (数値化))))))))\nend\n\nwhen flag clicked\nforever\n    if <[0] < (チャット)> then\n        say (item (チャット) of [総合チャット v])\n    else\n        say (username)\n    end\nend\n\nwhen flag clicked\nswitch costume to (自分 v)\n\nwhen I receive [凍ったー v]\nif <<(ルーム) = [1]> or <(ルーム) = [2]>> then\n    switch costume to (凍った v)\n    set [チャット v] to [13]\nelse\n    switch costume to (捕まった v)\n    set [チャット v] to [50]\nend\nwait (1) seconds\nset [チャット v] to [0]\n\nwhen I receive [助かった v]\nswitch costume to (逃げる v)\nset [チャット v] to [25]\nwait (1) seconds\nset [チャット v] to [0]\n\nwhen I receive [4p v]\nforever\n    set [☁ 4p v] to (join (タイマー) (join ((y) + (5000)) (join ((向き) + (500)) (join ((direction) + (500)) (join (costume [number v]) (join ((チャット) + (10)) (join (ルーム) (数値化))))))))\nend\n\nwhen I receive [5p v]\nforever\n    set [☁ 5p v] to (join (タイマー) (join ((y) + (5000)) (join ((向き) + (500)) (join ((direction) + (500)) (join (costume [number v]) (join ((チャット) + (10)) (join (ルーム) (数値化))))))))\nend\n\nwhen I receive [6p v]\nforever\n    set [☁ 6p v] to (join (タイマー) (join ((y) + (5000)) (join ((向き) + (500)) (join ((direction) + (500)) (join (costume [number v]) (join ((チャット) + (10)) (join (ルーム) (数値化))))))))\nend\n\nwhen I receive [7p v]\nforever\n    set [☁ 7p v] to (join (タイマー) (join ((y) + (5000)) (join ((向き) + (500)) (join ((direction) + (500)) (join (costume [number v]) (join ((チャット) + (10)) (join (ルーム) (数値化))))))))\nend\n\nwhen I receive [8p v]\nforever\n    set [☁ 8p v] to (join (タイマー) (join ((y) + (5000)) (join ((向き) + (500)) (join ((direction) + (500)) (join (costume [number v]) (join ((チャット) + (10)) (join (ルーム) (数値化))))))))\nend\n\nwhen I receive [9p v]\nforever\n    set [☁ 9p v] to (join (タイマー) (join ((y) + (5000)) (join ((向き) + (500)) (join ((direction) + (500)) (join (costume [number v]) (join ((チャット) + (10)) (join (ルーム) (数値化))))))))\nend\n\nwhen I receive [10p v]\nforever\n    set [☁ 10p v] to (join (タイマー) (join ((y) + (5000)) (join ((向き) + (500)) (join ((direction) + (500)) (join (costume [number v]) (join ((チャット) + (10)) (join (ルーム) (数値化))))))))\nend\n\nwhen I receive [こおりおにスタート v]\nswitch costume to (種類)\n\nwhen I receive [ケイドロスタート v]\nswitch costume to (種類)\n\nif <(チャット) = [22]> then\n    switch costume to (鬼 v)\nend\nif <(チャット) = [23]> then\n    switch costume to (逃げる v)\nend\nif <(チャット) = [25]> then\n    switch costume to (自分 v)\nend\n\nforever\n\nstart sound [magic-electron1 \(1\) \(1\) v]\n\nwhen flag clicked\nforever\n    if <(ルーム) = [0]> then\n        switch costume to (自分 v)\n    end\nend\n\n@スプライト3\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\n\nwhen flag clicked\nhide\nclear graphic effects\ngo to [front v] layer\nhide\nset [大きさ v] to [0]\nset [マップコス v] to [1]\nrepeat (30)\n    create clone of (_myself_ v)\n    change [大きさ v] by (1)\n    change [brightness v] effect by (1)\nend\n\ngo to x: (0) y: (0)\n\nwhen I start as a clone\nswitch costume to (コスチューム2 v)\nset size to (((大きさ) * (15)) + (1200)) %\nswitch costume to (マップコス)\nshow\nforever\n    go to x: (0) y: (((y) * ((size) / (1200))) * (-1))\n    point in direction ([direction v] of [スプライト2 v])\nend\n\nwhen I receive [こおりおに v]\ndelete this clone\n\nwhen I receive [こおりおにスタート v]\n\nhide\nclear graphic effects\ngo to [front v] layer\nhide\nset [大きさ v] to [0]\nset [マップコス v] to [3]\nrepeat (30)\n    create clone of (_myself_ v)\n    change [大きさ v] by (1)\n    change [brightness v] effect by (1)\nend\n\nwhen I receive [ケイドロスタート v]\n\nhide\nclear graphic effects\ngo to [front v] layer\nhide\nset [大きさ v] to [0]\nset [マップコス v] to (種類)\nrepeat (30)\n    create clone of (_myself_ v)\n    change [大きさ v] by (1)\n    change [brightness v] effect by (1)\nend\n\nwhen I receive [助かった v]\n\nhide\nclear graphic effects\ngo to [front v] layer\nhide\nset [大きさ v] to [0]\nset [マップコス v] to ([x position v] of [スプライト2 v])\nrepeat (30)\n    create clone of (_myself_ v)\n    change [大きさ v] by (1)\n    change [brightness v] effect by (1)\nend\n\nwhen I receive [凍ったー v]\n\nhide\nclear graphic effects\ngo to [front v] layer\nhide\nset [大きさ v] to [0]\nset [マップコス v] to ([x position v] of [スプライト2 v])\nrepeat (30)\n    create clone of (_myself_ v)\n    change [大きさ v] by (1)\n    change [brightness v] effect by (1)\nend\n\nwhen I receive [ケイドロ v]\ndelete this clone\n\nwhen I receive [ルーム解散 v]\ndelete this clone\n\nwhen I receive [ルーム解散 v]\nwait (0.1) seconds\nhide\nclear graphic effects\ngo to [front v] layer\nhide\nset [大きさ v] to [0]\nset [マップコス v] to [1]\nrepeat (30)\n    create clone of (_myself_ v)\n    change [大きさ v] by (1)\n    change [brightness v] effect by (1)\nend\n\n@相手\n\nwhen flag clicked\nhide\nset [p v] to [0]\nrepeat (10)\n    change [p v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nforever\n    if <(自分) = (P)> then\n        hide\n    else\n        if <[0] < (item (P) of [クラウドリスト v])> then\n            if <touching (_edge_ v)?> then\n                hide\n            else\n                show\n            end\n            switch costume to (letter (12) of (item (P) of [クラウドリスト v]))\n            go to x: (((向き) - ((join (letter (6) of (item (P) of [クラウドリスト v])) (join (letter (7) of (item (P) of [クラウドリスト v])) (letter (8) of (item (P) of [クラウドリスト v])))) - (500))) * (15)) y: ((((join (letter (2) of (item (P) of [クラウドリスト v])) (join (letter (3) of (item (P) of [クラウドリスト v])) (join (letter (4) of (item (P) of [クラウドリスト v])) (letter (5) of (item (P) of [クラウドリスト v]))))) - (5000)) - (y)) - (([abs v] of ((向き) - ((join (letter (6) of (item (P) of [クラウドリスト v])) (join (letter (7) of (item (P) of [クラウドリスト v])) (letter (8) of (item (P) of [クラウドリスト v])))) - (500))) ) * (2)))\n            point in direction ((向き) - ((join (letter (6) of (item (P) of [クラウドリスト v])) (join (letter (7) of (item (P) of [クラウドリスト v])) (letter (8) of (item (P) of [クラウドリスト v])))) - (500)))\n            if <[0] < ((join (letter (13) of (item (P) of [クラウドリスト v])) (letter (14) of (item (P) of [クラウドリスト v]))) - (10))> then\n                say (join (item (P) of [クラウドユーザー v]) (join [:] (item ((join (letter (13) of (item (P) of [クラウドリスト v])) (letter (14) of (item (P) of [クラウドリスト v]))) - (10)) of [総合チャット v])))\n            else\n                say (item (P) of [クラウドユーザー v])\n            end\n            if <touching (自分 v)?> then\n                if <([costume # v] of [自分 v]) = [3]> then\n                    if <(letter (12) of (item (P) of [クラウドリスト v])) = [2]> then\n                        broadcast (凍ったー v)\n                    end\n                else\n                    if <<([costume # v] of [自分 v]) = [4]> or <([costume # v] of [自分 v]) = [5]>> then\n                        if <(letter (12) of (item (P) of [クラウドリスト v])) = [3]> then\n                            broadcast (助かった v)\n                        end\n                    end\n                end\n            end\n        else\n            hide\n        end\n    end\nend\n\nshow\n\nif <(P) = [1]> then\n\nswitch costume to (矢印 v)\n\nif <<(ルーム) = [1]> or <(ルーム) = [2]>> then\n    if <<(letter (15) of (item (P) of [クラウドリスト v])) = [1]> or <(letter (15) of (item (P) of [クラウドリスト v])) = [2]>> then\n        show\n    else\n        hide\n    end\nelse\n    if <<(ルーム) = [3]> or <(ルーム) = [4]>> then\n        if <<(letter (15) of (item (P) of [クラウドリスト v])) = [3]> or <(letter (15) of (item (P) of [クラウドリスト v])) = [4]>> then\n            show\n        else\n            hide\n        end\n    else\n        if <(letter (15) of (item (P) of [クラウドリスト v])) = [0]> then\n            show\n        else\n            hide\n        end\n    end\nend\n\nshow\n\n@チャット\n\nwhen flag clicked\nset [チャット v] to [0]\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\)ww] to [チャット v]\nadd [\(l\)\( ^\)o\(^ \)] 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]\n\nadd [こおったー] to [チャット v]\n\nwhen flag clicked\nforever\n    if <(ルーム) = [0]> then\n        if <key (1 v) pressed?> then\n            hide list [チャット v]\n            if <key (a v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [1]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (b v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [2]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (c v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [3]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (d v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [4]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (e v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [5]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (f v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [6]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (g v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [7]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (h v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [8]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (i v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [9]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (j v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [10]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (k v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [11]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (l v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [12]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (m v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [14]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (n v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [15]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (o v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [16]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (p v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [17]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (q v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [18]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (r v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [19]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (s v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [20]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (t v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [21]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (u v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [22]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (v v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [23]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (w v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [24]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n        else\n            show list [チャット v]\n        end\n    end\nend\n\nwhen I receive [スタート v]\n\nif <key (x v) pressed?> then\n    show list [チャット v]\n    set [チャット v] to [25]\n    wait (2) seconds\n    set [チャット v] to [0]\nend\n\nadd [助かったー] to [チャット v]\n\nwhen I receive [こおりおに v]\nset [チャット v] to [0]\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\)ww] to [チャット v]\nadd [\(l\)\( ^\)o\(^ \)] to [チャット v]\nadd [こおったー] 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 [助かったー] to [チャット v]\nadd [\(t\)ルーム解散します！] to [チャット v]\n\nwhen I receive [ケイドロ v]\nset [チャット v] to [0]\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\)ww] to [チャット v]\nadd [\(l\)\( ^\)o\(^ \)] to [チャット v]\nadd [捕まったー] 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 [助かったー] to [チャット v]\nadd [\(t\)ルーム解散します！] to [チャット v]\n\nwhen flag clicked\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\)ww] to [総合チャット v]\nadd [\(l\)\( ^\)o\(^ \)] to [総合チャット v]\nadd [こおったー] 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 [\(w\)助かったー] to [総合チャット 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\)ww] to [総合チャット v]\nadd [\(l\)\( ^\)o\(^ \)] to [総合チャット v]\nadd [こおったー] 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 [助かったー] to [総合チャット v]\nadd [\(t\)ルーム解散します！] to [総合チャット v]\nadd [\(a\)ルームに来てください！] to [総合チャット v]\nadd [\(b\)ケイドロまたはドロケイをやってます！] to [総合チャット v]\nadd [捕まったー] to [総合チャット v]\nadd [助かったー] to [総合チャット v]\n\nadd [\(x\)こおりおにやめます] to [総合チャット v]\n\nwhen flag clicked\nforever\n    if <<(ルーム) = [1]> or <(ルーム) = [2]>> then\n        if <key (1 v) pressed?> then\n            hide list [チャット v]\n            if <key (a v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [26]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (b v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [27]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (c v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [28]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (d v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [29]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (e v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [30]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (f v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [31]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (g v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [32]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (h v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [33]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (i v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [34]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (j v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [35]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (k v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [36]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (l v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [37]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (m v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [39]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (n v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [40]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (o v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [41]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (p v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [42]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (q v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [43]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (r v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [44]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (s v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [45]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (t v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [47]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n        else\n            show list [チャット v]\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(ルーム) = [3]> or <(ルーム) = [4]>> then\n        if <key (1 v) pressed?> then\n            hide list [チャット v]\n            if <key (a v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [48]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (b v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [49]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (c v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [28]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (d v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [29]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (e v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [30]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (f v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [31]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (g v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [32]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (h v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [33]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (i v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [34]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (j v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [35]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (k v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [36]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (l v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [37]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (m v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [39]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (n v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [40]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (o v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [41]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (p v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [42]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (q v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [43]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (r v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [44]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (s v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [45]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n            if <key (t v) pressed?> then\n                show list [チャット v]\n                set [チャット v] to [47]\n                wait (2) seconds\n                set [チャット v] to [0]\n            end\n        else\n            show list [チャット v]\n        end\n    end\nend\n\nwhen I receive [ケイドロスタート v]\nset volume to (100) %\n\nwhen I receive [こおりおにスタート v]\nset volume to (100) %\n\nwhen I receive [ルーム解散 v]\nset volume to (0) %\n\nwhen flag clicked\nset volume to (0) %\nforever\n    play sound [bgm_maoudamashii_fantasy11 \(2\) v] until done\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\ngo to x: (177) y: (152)\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ngo to x: (177) y: (90)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nwait (1) seconds\ngo to [front v] layer\nforever\n    if <<mouse down?> and <touching (mouse-pointer v)?>> then\n        if <(costume [number v]) = [1]> then\n            if <(letter (15) of (☁ 1P)) = [1]> then\n                say (join (1) [さんによるこおりおにが開催されています]) for (2) seconds\n            else\n                if <(letter (15) of (☁ 2P)) = [1]> then\n                    say (join (2) [さんによるこおりおにが開催されています]) for (2) seconds\n                else\n                    if <(letter (15) of (☁ 3P)) = [1]> then\n                        say (join (3) [さんによるこおりおにが開催されています]) for (2) seconds\n                    else\n                        if <(letter (15) of (☁ 4P)) = [1]> then\n                            say (join (4) [さんによるこおりおにが開催されています]) for (2) seconds\n                        else\n                            if <(letter (15) of (☁ 5P)) = [1]> then\n                                say (join (5) [さんによるこおりおにが開催されています]) for (2) seconds\n                            else\n                                if <(letter (15) of (☁ 6P)) = [1]> then\n                                    say (join (6) [さんによるこおりおにが開催されています]) for (2) seconds\n                                else\n                                    if <(letter (15) of (☁ 7P)) = [1]> then\n                                        say (join (7) [さんによるこおりおにが開催されています]) for (2) seconds\n                                    else\n                                        if <(letter (15) of (☁ 8P)) = [1]> then\n                                            say (join (8) [さんによるこおりおにが開催されています]) for (2) seconds\n                                        else\n                                            if <(letter (15) of (☁ 9P)) = [1]> then\n                                                say (join (9) [さんによるこおりおにが開催されています]) for (2) seconds\n                                            else\n                                                if <(letter (15) of (☁ 10P)) = [1]> then\n                                                    say (join (10) [さんによるこおりおにが開催されています]) for (2) seconds\n                                                else\n                                                    if <(letter (15) of (☁ 1P)) = [3]> then\n                                                        say (join (1) [さんによるケイドロまたはドロケイが開催されています]) for (2) seconds\n                                                    else\n                                                        if <(letter (15) of (☁ 2P)) = [3]> then\n                                                            say (join (2) [さんによるケイドロまたはドロケイが開催されています]) for (2) seconds\n                                                        else\n                                                            if <(letter (15) of (☁ 3P)) = [3]> then\n                                                                say (join (3) [さんによるケイドロまたはドロケイが開催されています]) for (2) seconds\n                                                            else\n                                                                if <(letter (15) of (☁ 4P)) = [3]> then\n                                                                    say (join (4) [さんによるケイドロまたはドロケイが開催されています]) for (2) seconds\n                                                                else\n                                                                    if <(letter (15) of (☁ 5P)) = [3]> then\n                                                                        say (join (5) [さんによるケイドロまたはドロケイが開催されています]) for (2) seconds\n                                                                    else\n                                                                        if <(letter (15) of (☁ 6P)) = [3]> then\n                                                                            say (join (6) [さんによるケイドロまたはドロケイが開催されています]) for (2) seconds\n                                                                        else\n                                                                            if <(letter (15) of (☁ 7P)) = [3]> then\n                                                                                say (join (7) [さんによるケイドロまたはドロケイが開催されています]) for (2) seconds\n                                                                            else\n                                                                                if <(letter (15) of (☁ 8P)) = [3]> then\n                                                                                    say (join (8) [さんによるケイドロまたはドロケイが開催されています]) for (2) seconds\n                                                                                else\n                                                                                    if <(letter (15) of (☁ 9P)) = [3]> then\n                                                                                        say (join (9) [さんによるケイドロまたはドロケイが開催されています]) for (2) seconds\n                                                                                    else\n                                                                                        if <(letter (15) of (☁ 10P)) = [3]> then\n                                                                                            say (join (10) [さんによるケイドロまたはドロケイが開催されています]) for (2) seconds\n                                                                                        else\n                                                                                            ask [こおりおに,,,1　ケイドロ,,,,1以外を入力してください] and wait\n                                                                                            if <(answer) = [1]> then\n                                                                                                set [ルーム v] to [1]\n                                                                                                broadcast (こおりおに v)\n                                                                                            else\n                                                                                                set [ルーム v] to [3]\n                                                                                                broadcast (ケイドロ v)\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\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        else\n            if <(costume [number v]) = [2]> then\n                ask [ルームに入りますか？（はい,,,1\)] and wait\n                if <(answer) = [1]> then\n                    if <<(letter (15) of (☁ 1P)) = [1]> or <<(letter (15) of (☁ 2P)) = [1]> or <<(letter (15) of (☁ 3P)) = [1]> or <<(letter (15) of (☁ 4P)) = [1]> or <<(letter (15) of (☁ 5P)) = [1]> or <<(letter (15) of (☁ 6P)) = [1]> or <<(letter (15) of (☁ 7P)) = [1]> or <<(letter (15) of (☁ 8P)) = [1]> or <<(letter (15) of (☁ 9P)) = [1]> or <(letter (15) of (☁ 10P)) = [1]>>>>>>>>>> then\n                        set [ルーム v] to [2]\n                        broadcast (こおりおに v)\n                    else\n                        if <<(letter (15) of (☁ 1P)) = [3]> or <<(letter (15) of (☁ 2P)) = [3]> or <<(letter (15) of (☁ 3P)) = [3]> or <<(letter (15) of (☁ 4P)) = [3]> or <<(letter (15) of (☁ 5P)) = [3]> or <<(letter (15) of (☁ 6P)) = [3]> or <<(letter (15) of (☁ 7P)) = [3]> or <<(letter (15) of (☁ 8P)) = [3]> or <<(letter (15) of (☁ 9P)) = [3]> or <(letter (15) of (☁ 10P)) = [3]>>>>>>>>>> then\n                            set [ルーム v] to [4]\n                            broadcast (ケイドロ v)\n                        else\n                            say [ルームが開かれていません] for (2) seconds\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\nset [ルーム v] to [0]\n\nwhen I receive [こおりおに v]\ndelete this clone\n\nwhen I receive [ケイドロ v]\ndelete this clone\n\nwhen flag clicked\n\nforever\n    if <(自分) = [1]> then\n        if <<<(letter (15) of (☁ 2P)) = []> or <(letter (15) of (☁ 2P)) = [0]>> and <<<(letter (15) of (☁ 3P)) = []> or <(letter (15) of (☁ 3P)) = [0]>> and <<<(letter (15) of (☁ 4P)) = []> or <(letter (15) of (☁ 4P)) = [0]>> and <<<(letter (15) of (☁ 5P)) = []> or <(letter (15) of (☁ 5P)) = [0]>> and <<<(letter (15) of (☁ 6P)) = []> or <(letter (15) of (☁ 6P)) = [0]>> and <<<(letter (15) of (☁ 7P)) = []> or <(letter (15) of (☁ 7P)) = [0]>> and <<<(letter (15) of (☁ 8P)) = []> or <(letter (15) of (☁ 8P)) = [0]>> and <<(letter (15) of (☁ 9P)) = [0]> and <(letter (15) of (☁ 10P)) = [0]>>>>>>>>> then\n            set [ルーム v] to [0]\n        end\n    else\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(letter (15) of (☁ 1P)) = [1]> or <(letter (15) of (☁ 1P)) = [3]>> then\n        set [ルームマスター v] to [1]\n    else\n        if <<(letter (15) of (☁ 2P)) = [1]> or <(letter (15) of (☁ 2P)) = [3]>> then\n            set [ルームマスター v] to [2]\n        else\n            if <<(letter (15) of (☁ 3P)) = [1]> or <(letter (15) of (☁ 3P)) = [3]>> then\n                set [ルームマスター v] to [3]\n            else\n                if <<(letter (15) of (☁ 4P)) = [1]> or <(letter (15) of (☁ 4P)) = [3]>> then\n                    set [ルームマスター v] to [4]\n                else\n                    if <<(letter (15) of (☁ 5P)) = [1]> or <(letter (15) of (☁ 5P)) = [3]>> then\n                        set [ルームマスター v] to [5]\n                    else\n                        if <<(letter (15) of (☁ 6P)) = [1]> or <(letter (15) of (☁ 6P)) = [3]>> then\n                            set [ルームマスター v] to [6]\n                        else\n                            if <<(letter (15) of (☁ 7P)) = [1]> or <(letter (15) of (☁ 7P)) = [3]>> then\n                                set [ルームマスター v] to [7]\n                            else\n                                if <<(letter (15) of (☁ 8P)) = [1]> or <(letter (15) of (☁ 8P)) = [3]>> then\n                                    set [ルームマスター v] to [8]\n                                else\n                                    if <<(letter (15) of (☁ 9P)) = [1]> or <(letter (15) of (☁ 9P)) = [3]>> then\n                                        set [ルームマスター v] to [9]\n                                    else\n                                        if <<(letter (15) of (☁ 10P)) = [1]> or <(letter (15) of (☁ 10P)) = [3]>> then\n                                            set [ルームマスター v] to [10]\n                                        else\n                                            set [ルームマスター v] to [0]\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [ルーム解散 v]\ndelete this clone\n\nwhen I receive [ルーム解散 v]\nwait (0.1) seconds\nhide\ngo to x: (177) y: (152)\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ngo to x: (177) y: (90)\ncreate clone of (_myself_ v)\n\n@スプライト4\n\nwhen flag clicked\nset [みんな、ルームにいる？ v] to [0]\ngo to x: (-220) y: (169)\nhide\nrepeat (10)\n    change [みんな、ルームにいる？ v] by (1)\n    create clone of (_myself_ v)\n    change y by (-22)\nend\n\nwhen I start as a clone\ngo to [front v] layer\nforever\n    if <<(letter (15) of (item (みんな、ルームにいる？) of [クラウドリスト v])) = [0]> or <(letter (15) of (item (みんな、ルームにいる？) of [クラウドリスト v])) = []>> then\n        hide\n    else\n        show\n    end\nend\n\n