Online platformer[オンラインプラットフォーマー]

Instructions: @hayatiburusuのフォローよろしく！\n❤️と⭐お願い！\nサーバー2//server2\nhttps://scratch.mit.edu/projects/810891272\nーーー日本語は下ーーーーMethod of operationーーーー\nBasic operation is wasd keys or arrow keys.\nIt is also mobile compatible.\nDon't be left alone with this game. Leave it for 2 minutes and it will kick you out.\nThis game is online. let's get along.\nーーーEnglish is aboveーーーー操作方法ーーーーーーー\n基本操作はwasdキーまたは矢印キーです。\nモバイルにも対応しています。\nこのゲームで放置しないでください。2分間放置すると追い出されます。\nこのゲームはオンラインです。仲良くしましょう。\nーーーーーーーーーーーーーーーーーーーーーーーーー\nチャットの種類今までの中で一番多いと思うたぶん\n傾向2pありがとう！\nーーーーーーーーーーーーーーーーーーーーーーーーー

@Stage\n\nwhen I receive [start v]\nforever\n    play sound [BGM v] until done\nend\n\n@プレーヤー\n\nwhen flag clicked\nset [xx v] to [0]\nset [yy v] to [25]\nhide\n\ndefine prayer\npoint in direction (90)\nif <(！) = [0]> then\n    if <not <(username) = []>> then\n        if <(チャット) = []> then\n            say (username)\n        else\n            say (join (username) (join [:] (item (チャット) of [chat v])))\n        end\n    end\n    if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n        change [x v] by (xの動き)\n    end\n    if <<<not <<[130] < (mouse y)> and <(mouse x) < [-100]>>> and <<mouse down?> and <(mouse x) < [-50]>>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n        change [x v] by (() - (xの動き))\n    end\n    set [x v] to ((x) * (0.87))\n    change x by (round (x))\n    if <touching (ステージ v)?> then\n        change y by (1)\n        if <touching (ステージ v)?> then\n            change y by (1)\n            if <touching (ステージ v)?> then\n                change y by (1)\n                if <touching (ステージ v)?> then\n                    change y by (1)\n                    if <touching (ステージ v)?> then\n                        change y by (1)\n                        if <touching (ステージ v)?> then\n                            change y by (1)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    if <touching (ステージ v)?> then\n        壁\n    end\n    change [y v] by (-1.5)\n    change y by (y)\n    if <touching (ステージ v)?> then\n        床\n    end\n    change [スクロールｘ v] by (round ((x position) / (10)))\n    change x by ((0) - ((round ((x position) / (10))) * <not <<(スクロールｘ) < [0]> or <[7000] < (スクロールｘ)>>>))\n    if <(スクロールｘ) < [0]> then\n        set [スクロールｘ v] to [0]\n    end\n    if <[7000] < (スクロールｘ)> then\n        set [スクロールｘ v] to [7000]\n    end\n    change [スクロールｙ v] by (round ((y position) / (10)))\n    change y by ((0) - ((round ((y position) / (10))) * <not <(スクロールｙ) < [0]>>))\n    if <(スクロールｙ) < [0]> then\n        set [スクロールｙ v] to [0]\n    end\n    if <(y) < [-21]> then\n        change [y v] by (1.5)\n    end\nend\nset y to (round (y position))\n\ndefine 初期化\nstart sound [Rip v]\nhide\nrepeat until <<([abs v] of ((スクロールｙ) - (YY)) ) < [3]> and <([abs v] of ((スクロールｘ) - (XX)) ) < [3]>>\n    change [スクロールｘ v] by (round (((XX) - (スクロールｘ)) / (5)))\n    change [スクロールｙ v] by (round (((YY) - (スクロールｙ)) / (5)))\nend\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (0) y: (0)\nbroadcast (monster v)\nshow\n\ndefine 壁\nset [？ v] to [0]\nchange y by (-4.5)\nrepeat until <<[100] < (？)> or <not <touching (ステージ v)?>>>\n    change [？ v] by (1)\n    change x by ((-1) * ((x) / ([abs v] of (x) )))\nend\nif <[100] < (？)> then\n    repeat (？)\n        change x by ((1) * ((x) / ([abs v] of (x) )))\n    end\nelse\n    if <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n        start sound [壁キック v]\n        set [y v] to [18]\n        set [x v] to ((-15) * ((x) / ([abs v] of (x) )))\n    else\n        set [x v] to [0]\n    end\nend\n\ndefine 床\nrepeat until <not <touching (ステージ v)?>>\n    change y by ((-1.5) * ((y) / ([abs v] of (y) )))\nend\nif <<(y) < [0]> and <<<not <<[130] < (mouse y)> and <(mouse x) < [-100]>>> and <<mouse down?> and <[0] < (mouse y)>>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n    start sound [ニュッ2 v]\n    set [y v] to (yの動き)\nelse\n    set [y v] to [0]\nend\n\nwhen I receive [start v]\nset size to (42) %\nshow\nset [！ v] to [0]\nset [スクロールｘ v] to [0]\nset [スクロールｙ v] to [25]\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    prayer\nend\n\nwhen I receive [start v]\nforever\n    switch costume to (コスチューム1 v)\n    if <not <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n        if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n            switch costume to (コスチューム2 v)\n        end\n        if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n            switch costume to (コスチューム3 v)\n        end\n    else\n        if <not <<mouse down?> and <<[130] < (mouse y)> and <(mouse x) < [-100]>>>> then\n            switch costume to (コスチューム6 v)\n            if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n                switch costume to (コスチューム4 v)\n            end\n            if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n                switch costume to (コスチューム5 v)\n            end\n        end\n    end\nend\n\nwhen I receive [start v]\nset [！ v] to [0]\nforever\n    if <<<(y position) < [-180]> or <touching (はり v)?>> or <touching (はり2 v)?>> then\n        set [！ v] to [1]\n        初期化\n        set [！ v] to [0]\n    end\nend\n\nwhen I receive [初期化 v]\nset [！ v] to [1]\n初期化\nset [！ v] to [0]\n\n@プレーヤー２\n\nwhen I receive [オンライン！ v]\nhide\n配置\n\ndefine 配置\nset [prayer2 v] to [0]\nrepeat (10)\n    change [prayer2 v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nforever\n    set size to (42) %\n    show\n    set [ghost v] effect to (0)\n    if <<(1p？) = (prayer2)> or <<(item (prayer2) of [p1〜10 v]) = [0]> or <[1] = (letter (54) of (item (prayer2) of [p1〜10 v]))>>> then\n        hide\n    end\n    switch costume to (コスチューム7 v)\n    xy (((join (letter (41) of (item (prayer2) of [p1〜10 v])) (join (letter (42) of (item (prayer2) of [p1〜10 v])) (join (letter (43) of (item (prayer2) of [p1〜10 v])) (letter (44) of (item (prayer2) of [p1〜10 v]))))) - (1500)) - (スクロールｘ)) (((join (letter (45) of (item (prayer2) of [p1〜10 v])) (join (letter (46) of (item (prayer2) of [p1〜10 v])) (join (letter (47) of (item (prayer2) of [p1〜10 v])) (letter (48) of (item (prayer2) of [p1〜10 v]))))) - (1500)) - (スクロールｙ))\n    point in direction (join (letter (55) of (item (prayer2) of [p1〜10 v])) (letter (56) of (item (prayer2) of [p1〜10 v])))\n    switch costume to ((join (letter (49) of (item (prayer2) of [p1〜10 v])) (letter (50) of (item (prayer2) of [p1〜10 v]))) - (10))\n    if <((join (letter (51) of (item (prayer2) of [p1〜10 v])) (letter (52) of (item (prayer2) of [p1〜10 v]))) - (10)) = [0]> then\n        say (item (prayer2) of [user v])\n    else\n        say (join (item (prayer2) of [user v]) (join [:] (item ((join (letter (51) of (item (prayer2) of [p1〜10 v])) (letter (52) of (item (prayer2) of [p1〜10 v]))) - (10)) of [chat v])))\n    end\nend\n\ndefine xy (x) (y)\ngo to x: (x) y: (y)\nif <not <<(x position) = (x)> and <(y position) = (y)>>> then\n    set [ghost v] effect to (100)\nend\n\n@はり\n\nwhen flag clicked\nhide\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 [960] [0] [3]\n配置 [1400] [300] [4]\n配置 [2300] [400] [5]\n配置 ((1920) + (500)) [300] [6]\n配置 (((1920) + (500)) + (500)) [300] [7]\n配置 (((1920) + (500)) + (1500)) [300] [8]\n配置 (((1920) + (500)) + (2000)) [300] [9]\n配置 (((1920) + (500)) + (2500)) [300] [10]\n配置 (((1920) + (500)) + (3000)) [300] [11]\n配置 (((1920) + (500)) + (3500)) [300] [12]\n配置 (((1920) + (500)) + (4000)) [300] [13]\n配置 (((1920) + (500)) + (4500)) [300] [14]\n\ndefine 配置 (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nset [3 v] to ((3) + (1))\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    show\n    switch costume to (3)\nend\n\n配置 ((1920) + (1000)) [0] [7]\n配置 ((1920) + (1500)) [300] [8]\n配置 ((1920) + (2000)) [300] [9]\n配置 ((1920) + (2500)) [300] [10]\n\n@オンライン\n\nwhen I receive [オンライン v]\nset [オンライン v] to [1]\nwait (1) seconds\nset [☁ p1 v] to [0]\nset [☁ p2 v] to [0]\nset [☁ p3 v] to [0]\nset [☁ p4 v] to [0]\nset [☁ p5 v] to [0]\nset [☁ p6 v] to [0]\nset [☁ p6 v] to [0]\nset [☁ p8 v] to [0]\nset [☁ p9 v] to [0]\nset [☁ p10 v] to [0]\nset [1p？ v] to [0]\nwait (1) seconds\nbroadcast (オンライン！ v)\nforever\n    if <(☁ p1) = [0]> then\n        ユーザー名数値化\n        forever\n            set [1p？ v] to [1]\n            set [☁ p1 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (！) ([direction v] of [プレーヤー v])))))))\n        end\n    else\n        if <(☁ p2) = [0]> then\n            ユーザー名数値化\n            forever\n                set [1p？ v] to [2]\n                set [☁ p2 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (！) ([direction v] of [プレーヤー v])))))))\n            end\n        else\n            if <(☁ p3) = [0]> then\n                ユーザー名数値化\n                forever\n                    set [1p？ v] to [3]\n                    set [☁ p3 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (！) ([direction v] of [プレーヤー v])))))))\n                end\n            else\n                if <(☁ p4) = [0]> then\n                    ユーザー名数値化\n                    forever\n                        set [1p？ v] to [4]\n                        set [☁ p4 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (！) ([direction v] of [プレーヤー v])))))))\n                    end\n                else\n                    if <(☁ p5) = [0]> then\n                        ユーザー名数値化\n                        forever\n                            set [1p？ v] to [5]\n                            set [☁ p5 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (！) ([direction v] of [プレーヤー v])))))))\n                        end\n                    else\n                        if <(☁ p6) = [0]> then\n                            ユーザー名数値化\n                            forever\n                                set [1p？ v] to [6]\n                                set [☁ p6 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (！) ([direction v] of [プレーヤー v])))))))\n                            end\n                        else\n                            if <(☁ p7) = [0]> then\n                                ユーザー名数値化\n                                forever\n                                    set [1p？ v] to [7]\n                                    set [☁ p7 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (！) ([direction v] of [プレーヤー v])))))))\n                                end\n                            else\n                                if <(☁ p8) = [0]> then\n                                    ユーザー名数値化\n                                    forever\n                                        set [1p？ v] to [8]\n                                        set [☁ p8 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (！) ([direction v] of [プレーヤー v])))))))\n                                    end\n                                else\n                                    if <(☁ p9) = [0]> then\n                                        ユーザー名数値化\n                                        forever\n                                            set [1p？ v] to [9]\n                                            set [☁ p9 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (！) ([direction v] of [プレーヤー v])))))))\n                                        end\n                                    else\n                                        if <(☁ p10) = [0]> then\n                                            ユーザー名数値化\n                                            forever\n                                                set [1p？ v] to [10]\n                                                set [☁ p10 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (！) ([direction v] of [プレーヤー v])))))))\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine ユーザー名数値化\nset [プレーヤー v] to [0]\nset [プレーヤー2 v] to []\nrepeat (length of (username))\n    change [プレーヤー v] by (1)\n    switch costume to (letter (プレーヤー) of (username))\n    set [プレーヤー2 v] to (join (プレーヤー2) (costume [number v]))\nend\nrepeat ((40) - (length of (プレーヤー2)))\n    set [プレーヤー2 v] to (join (プレーヤー2) [0])\nend\n\nwhen I receive [オンライン v]\nbroadcast (言う v)\nforever\n    復元1\nend\n\ndefine 復元1\ndelete all of [user v]\nset [% v] to [0]\nrepeat (10)\n    switch costume to ( v)\n    change [% v] by (1)\n    set [〜 v] to [0]\n    set [4 v] to []\n    repeat (20)\n        if <not <(join (letter ((〜) + (1)) of (item (%) of [p1〜10 v])) (letter ((〜) + (2)) of (item (%) of [p1〜10 v]))) = [00]>> then\n            change [〜 v] by (2)\n            switch costume to (join (letter ((〜) - (1)) of (item (%) of [p1〜10 v])) (letter (〜) of (item (%) of [p1〜10 v])))\n            set [4 v] to (join (4) (costume [name v]))\n        end\n    end\n    add (4) to [user v]\nend\n\nwhen flag clicked\nforever\n    delete all of [p1〜10 v]\n    add (☁ p1) to [p1〜10 v]\n    add (☁ p2) to [p1〜10 v]\n    add (☁ p3) to [p1〜10 v]\n    add (☁ p4) to [p1〜10 v]\n    add (☁ p5) to [p1〜10 v]\n    add (☁ p6) to [p1〜10 v]\n    add (☁ p7) to [p1〜10 v]\n    add (☁ p8) to [p1〜10 v]\n    add (☁ p9) to [p1〜10 v]\n    add (☁ p10) to [p1〜10 v]\nend\n\nwhen I receive [オンライン！ v]\nforever\n    delete all of [1〜10 2 v]\n    add (☁ p1) to [1〜10 2 v]\n    add (☁ p2) to [1〜10 2 v]\n    add (☁ p3) to [1〜10 2 v]\n    add (☁ p4) to [1〜10 2 v]\n    add (☁ p5) to [1〜10 2 v]\n    add (☁ p6) to [1〜10 2 v]\n    add (☁ p7) to [1〜10 2 v]\n    add (☁ p8) to [1〜10 2 v]\n    add (☁ p9) to [1〜10 2 v]\n    add (☁ p10) to [1〜10 2 v]\n    wait (1.5) seconds\n    if <(letter (53) of (item (1) of [p1〜10 v])) = (letter (53) of (item (1) of [1〜10 2 v]))> then\n        set [☁ p1 v] to [0]\n    end\n    if <(letter (53) of (item (2) of [p1〜10 v])) = (letter (53) of (item (2) of [1〜10 2 v]))> then\n        set [☁ p2 v] to [0]\n    end\n    if <(letter (53) of (item (3) of [p1〜10 v])) = (letter (53) of (item (3) of [1〜10 2 v]))> then\n        set [☁ p3 v] to [0]\n    end\n    if <(letter (53) of (item (4) of [p1〜10 v])) = (letter (53) of (item (4) of [1〜10 2 v]))> then\n        set [☁ p4 v] to [0]\n    end\n    if <(letter (53) of (item (5) of [p1〜10 v])) = (letter (53) of (item (5) of [1〜10 2 v]))> then\n        set [☁ p5 v] to [0]\n    end\n    if <(letter (53) of (item (6) of [p1〜10 v])) = (letter (53) of (item (6) of [1〜10 2 v]))> then\n        set [☁ p6 v] to [0]\n    end\n    if <(letter (53) of (item (7) of [p1〜10 v])) = (letter (53) of (item (7) of [1〜10 2 v]))> then\n        set [☁ p7 v] to [0]\n    end\n    if <(letter (53) of (item (8) of [p1〜10 v])) = (letter (53) of (item (8) of [1〜10 2 v]))> then\n        set [☁ p8 v] to [0]\n    end\n    if <(letter (53) of (item (9) of [p1〜10 v])) = (letter (53) of (item (9) of [1〜10 2 v]))> then\n        set [☁ p9 v] to [0]\n    end\n    if <(letter (53) of (item (10) of [p1〜10 v])) = (letter (53) of (item (10) of [1〜10 2 v]))> then\n        set [☁ p10 v] to [0]\n    end\nend\n\nwhen I receive [start v]\nbroadcast (オンライン v)\n\nwhen flag clicked\n\n@コイン\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム1 v)\n\nwhen I start as a clone\nforever\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    if <<(x position) = ((1) - (スクロールｘ))> and <<(OK？) = [0]> and <(y position) = ((2) - (スクロールｙ))>>> then\n        show\n    else\n        hide\n        set [ghost v] effect to (0)\n        set size to (100) %\n    end\nend\n\nwhen I receive [start v]\n\nwhen I receive [monster v]\nset [ok？ v] to [0]\n\nwhen I start as a clone\nforever\n    if <touching (プレーヤー v)?> then\n        repeat (10)\n            change [ghost v] effect by (10)\n            change size by (5)\n        end\n        set [ok？ v] to [1]\n        change [コイン v] by (1)\n    end\nend\n\nwhen flag clicked\nset [コイン v] to [0]\n\nwhen I receive [monster coin v]\nwait (0.5) seconds\nif <(costume [number v]) = [1]> then\n    set [monster coin？ v] to [1]\nend\n\nwhen I start as a clone\nif <(monster coin？) = [1]> then\n    wait until <<(！) = [1]> and <(OK？) = [1]>>\n    wait until <(！) = [0]>\n    delete this clone\nend\n\nwhen flag clicked\nset [コインでｔｙ v] to [0]\n\nswitch costume to (コスチューム1 v)\n\nwhen flag clicked\nhide\nset [monster coin？ v] to [0]\n配置 [150] [-1] [1]\n配置 [519] [-70] [1]\n配置 [590] [-70] [1]\n配置 [790] [50] [1]\n配置 [1209] [420] [1]\n配置 [1683] [420] [1]\n配置 [1760] [420] [1]\n配置 [2590] [420] [1]\n配置 [2660] [420] [1]\n配置 [3700] [390] [1]\n配置 [3780] [410] [1]\n配置 [5130] [400] [1]\n配置 [5720] [530] [1]\n配置 [6260] [400] [1]\n配置 [6330] [400] [1]\n\nswitch costume to ((1) + (3))\n\nswitch costume to (コスチューム1 v)\n\nwhen I start as a clone\nforever\n    next costume\n    wait (0.03) seconds\n    if <touching (プレーヤー v)?> then\n        start sound [coin001 v]\n        change [コインの数 v] by (1)\n        broadcast (いえい v)\n        delete this clone\n    end\nend\n\n配置 (モンコｘ) ((モンコｙ) + (10)) [1]\n\nwhen flag clicked\nset [コインの数 v] to [0]\n\ngo to [back v] layer\n\n@はた\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    if <<(x position) = ((1) - (スクロールｘ))> and <(y position) = ((2) - (スクロールｙ))>> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [start v]\n\nwhen I start as a clone\nforever\n    if <touching (プレーヤー v)?> then\n        set [！ v] to [1]\n        switch costume to (コスチューム2 v)\n        change [3 v] by (1)\n        wait (1) seconds\n        broadcast (finish v)\n    end\nend\n\nwhen flag clicked\nswitch costume to (コスチューム3 v)\nhide\n配置 [7130] [540] [1]\n\n@スプライト1\n\n@サムネ\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.1)\ngo to [front v] layer\nset [brightness v] effect to (100)\nset [ghost v] effect to (100)\nshow\nrepeat (10)\n    change [brightness v] effect by (-10)\n    change [ghost v] effect by (-10)\nend\n\nwhen I receive [finish v]\nswitch costume to (コスチューム1 v)\ngo to [front v] layer\nset [brightness v] effect to (100)\nset [ghost v] effect to (100)\nshow\nrepeat (10)\n    change volume by (-10)\n    change [brightness v] effect by (-10)\n    change [ghost v] effect by (-10)\nend\nstop [all v]\n\nwhen I receive [ban! v]\nswitch costume to (コスチューム2 v)\ngo to [front v] layer\nset [brightness v] effect to (100)\nset [ghost v] effect to (100)\nshow\nrepeat (10)\n    change volume by (-10)\n    change [brightness v] effect by (-10)\n    change [ghost v] effect by (-10)\nend\nstop [all v]\n\n@地面2\n\ndefine 配置 (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nset [3 v] to ((3) + (1))\ncreate clone of (_myself_ v)\nhide\n\nwhen I start as a clone\ngo to [back v] layer\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    show\n    switch costume to (3)\nend\n\nwhen flag clicked\nset [チャット v] to []\nhide\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 [960] [150] [3]\n配置 [1440] [350] [4]\n配置 [2000] [350] [5]\n配置 [3700] [350] [6]\n配置 [3900] [350] [7]\n配置 [6438] [350] [8]\n配置 [7050] [350] [9]\n\n配置 ((1920) + (1150)) [250] [7]\n配置 (((1920) + (1150)) + (500)) [250] [8]\n配置 (((1920) + (1150)) + (1000)) [250] [9]\n配置 (((1920) + (1150)) + (1000)) [250] [10]\n配置 (((1920) + (1150)) + (1500)) [250] [11]\n配置 (((1920) + (1150)) + (2000)) [250] [12]\n\n@チャット\n\nwhen flag clicked\nset [ghost v] effect to (30)\nset [チャット表示 v] to [0]\nshow\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nhide\n\nwhen I receive [チャット v]\nif <(costume [number v]) = [1]> then\n    wait (5) seconds\n    set [チャット v] to []\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    forever\n        go to x: (-170) y: (150)\n        if <<<touching (mouse-pointer v)?> and <mouse down?>> or <key (t v) pressed?>> then\n            start sound [Muted Conga v]\n            set [チャット表示 v] to [1]\n            ask [] and wait\n            set [チャット表示 v] to [0]\n            if <<[0] < (answer)> and <(answer) < [24]>> then\n                set [チャット v] to (answer)\n                broadcast (チャット v)\n            else\n                show variable [ホイ国 v]\n                set [ホイ国 v] to [そのチャットは存在しません。]\n                wait (3) seconds\n                hide variable [ホイ国 v]\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    forever\n        go to x: (0) y: (0)\n        if <(チャット表示) = [1]> then\n            go to [front v] layer\n            show\n        else\n            hide\n        end\n    end\nend\n\nset [ghost v] effect to (0)\n\n@ステージ\n\nwhen flag clicked\nset [チャット v] to []\nhide\n配置 [0] [0] [1]\n配置 [480] [-0.8] [2]\n配置 [960] [0] [3]\n配置 [1400] [300] [4]\n配置 [1900] [300] [5]\n配置 [2600] [300] [6]\n配置 ((2600) + (450)) [300] [7]\n配置 (((2600) + (450)) + (500)) [300] [8]\n配置 (((2600) + (450)) + (1000)) [300] [9]\n配置 (((2600) + (450)) + (1500)) [300] [10]\n配置 (((2600) + (450)) + (2000)) [300] [11]\n配置 (((2600) + (450)) + (2500)) [300] [12]\n配置 (((2600) + (450)) + (3000)) [300] [13]\n配置 (((2600) + (450)) + (3500)) [300] [14]\n配置 (((2600) + (450)) + (4000)) [300] [15]\n\ndefine 配置 (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nset [3 v] to ((3) + (1))\ncreate clone of (_myself_ v)\nhide\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    show\n    switch costume to (3)\nend\n\n@はた２2\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    show\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    if <<(x position) = ((1) - (スクロールｘ))> and <(y position) = ((2) - (スクロールｙ))>> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [start v]\n\nwhen I start as a clone\ngo to [back v] layer\nforever\n    if <touching (プレーヤー v)?> then\n        start sound [きらーん2 v]\n        set [xx v] to (1)\n        set [yy v] to (2)\n        change [3 v] by (1)\n        forever\n            switch costume to (コスチューム2 v)\n            wait (0.05) seconds\n            switch costume to (コスチューム4 v)\n            wait (0.05) seconds\n            switch costume to (コスチューム5 v)\n            wait (0.05) seconds\n            switch costume to (コスチューム6 v)\n            wait (0.05) seconds\n            switch costume to (コスチューム5 v)\n            wait (0.05) seconds\n            switch costume to (コスチューム4 v)\n            wait (0.05) seconds\n        end\n    end\nend\n\nwhen flag clicked\nswitch costume to (コスチューム3 v)\nhide\n配置 [1900] [423] [1]\n配置 [4500] [334] [1]\n配置 [6000] [334] [1]\n\n@時間表記\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nforever\n    if <(letter (1) of (時間)) = [-]> then\n        switch costume to (コスチューム10 v)\n    end\n    switch costume to (letter (i) of (時間))\n    if <(letter (i) of (時間)) = [.]> then\n        switch costume to (コスチューム12 v)\n    end\n    if <(letter (i) of (時間)) = [e]> then\n        switch costume to (コスチューム13 v)\n    end\n    if <(letter (i) of (時間)) = [+]> then\n        switch costume to (コスチューム14 v)\n    end\n    if <(letter (i) of (時間)) = [G]> then\n        switch costume to (コスチューム15 v)\n    end\n    if <(length of (時間)) < (i)> then\n        hide\n    else\n        show\n    end\n    go to [front v] layer\nend\n\nwhen I receive [start v]\nset size to (150) %\nset [時間 v] to [0]\nhide\nset [i v] to [0]\ngo to x: (150) y: (150)\nrepeat (37)\n    change [i v] by (1)\n    create clone of (_myself_ v)\n    change x by (((size) / (100)) * (12))\nend\n\nwhen I receive [start v]\nforever\n    wait (1) seconds\n    change [時間 v] by (1)\nend\n\n@コイン表記\n\nwhen flag clicked\nset [コインの数 v] to [0]\nhide\nforever\n    switch costume to ((コインの数) + (1))\nend\n\nwhen I receive [start v]\nswitch costume to (コスチューム16 v)\nshow\ngo to [front v] layer\n\ngo to x: (-45) y: (150)\n\n@スプライト4\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\nswitch costume to (コスチューム3 v)\ncreate clone of (_myself_ v)\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\ngo to x: (0) y: (240)\nswitch costume to (コスチューム4 v)\ncreate clone of (_myself_ v)\n\nswitch costume to (コスチューム5 v)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nstart sound [ホーム v]\nset [ui v] to [ 1]\nshow\nforever\n    if <(ui) = [0]> then\n        delete this clone\n    end\n    if <(costume [number v]) = [2]> then\n        change [動き v] by (7)\n        change y by ([sin v] of (動き) )\n    end\n    if <(costume [number v]) = [3]> then\n        change y by ([cos v] of (動き) )\n    end\n    if <(costume [number v]) = [4]> then\n        set [動き２ v] to [-30]\n        repeat until <(y position) < [-80]>\n            change [動き２ v] by (1.93)\n            change y by (動き２)\n        end\n        forever\n            change y by ([cos v] of (動き) )\n            if <<mouse down?> and <touching (mouse-pointer v)?>> then\n                start sound [選択 v]\n                repeat (10)\n                    change [ghost v] effect by (10)\n                end\n                stop all sounds\n                broadcast (START v)\n                set [ui v] to [0]\n                delete this clone\n            end\n        end\n    end\nend\n\nstop [this script v]\n\nset y to (0)\n\nwhen flag clicked\nset [説明表示 v] to [0]\n\n@スプライト6\n\nwhen flag clicked\ngo to [front v] layer\nhide\n\nwhen I receive [start v]\nshow\n\nwhen I receive [start v]\nset [banまで v] to [0]\nforever\n    if <<key (any v) pressed?> or <mouse down?>> then\n        set [banまで v] to [0]\n    else\n        wait (1) seconds\n        change [banまで v] by (1)\n    end\n    if <(BANまで) = [120]> then\n        broadcast (BAN! v)\n    end\nend\n\n@はり2\n\nwhen flag clicked\nhide\n配置 [6237] [300] [1]\n\ndefine 配置 (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nset [3 v] to ((3) + (1))\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    turn right (-5) degrees\n    switch costume to (なし v)\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    show\n    switch costume to (3)\nend\n\n配置 ((1920) + (1000)) [0] [7]\n配置 ((1920) + (1500)) [300] [8]\n配置 ((1920) + (2000)) [300] [9]\n配置 ((1920) + (2500)) [300] [10]\n\n配置 [480] [0] [2]\n配置 [960] [0] [3]\n配置 [1400] [300] [4]\n配置 [2300] [400] [5]\n配置 ((1920) + (500)) [300] [6]\n配置 (((1920) + (500)) + (500)) [300] [7]\n配置 (((1920) + (500)) + (1500)) [300] [8]\n配置 (((1920) + (500)) + (2000)) [300] [9]\n配置 (((1920) + (500)) + (2500)) [300] [10]\n配置 (((1920) + (500)) + (3000)) [300] [11]\n配置 (((1920) + (500)) + (3500)) [300] [12]\n配置 (((1920) + (500)) + (4000)) [300] [13]\n配置 (((1920) + (500)) + (4500)) [300] [14]\n\n@スプライト2\n\nwhen I receive [start v]\nshow\n\nwhen I receive [ban! v]\nhide\n\nwhen I receive [finish v]\nhide\n\nwhen I start as a clone\nset [y増加 v] to [0]\nset [x増加 v] to [0]\nset [ghost v] effect to (0)\nforever\n    show\n    if <(costume [number v]) = [2]> then\n        go to x: (155) y: (-50)\n        if <(y増加) = [1]> then\n            switch costume to (コスチューム5 v)\n        end\n        if <<<<touching (mouse-pointer v)?> and <mouse down?>> and <(y増加) = [0]>> and <<[10] < (コインの数)> or <(コインの数) = [10]>>> then\n            start sound [ポップ2 v]\n            set [y増加 v] to [1]\n            set [yの動き v] to [24]\n            set [shop表示 v] to [0]\n            change [コインの数 v] by (-10)\n            broadcast (hu v)\n        end\n        if <<<<touching (mouse-pointer v)?> and <mouse down?>> and <(y増加) = [0]>> and <(コインの数) < [10]>> then\n            broadcast (まずい v)\n        end\n    end\n    if <(costume [number v]) = [3]> then\n        go to x: (155) y: (-90)\n        if <(x増加) = [1]> then\n            switch costume to (コスチューム5 v)\n        end\n        if <<<<touching (mouse-pointer v)?> and <mouse down?>> and <(x増加) = [0]>> and <<[5] < (コインの数)> or <(コインの数) = [5]>>> then\n            start sound [ポップ2 v]\n            set [x増加 v] to [1]\n            set [xの動き v] to [2.5]\n            set [shop表示 v] to [0]\n            change [コインの数 v] by (-5)\n            broadcast (hahu v)\n        end\n        if <<<<touching (mouse-pointer v)?> and <mouse down?>> and <(x増加) = [0]>> and <(コインの数) < [5]>> then\n            broadcast (まずい v)\n        end\n    end\n    if <(costume [number v]) = [4]> then\n        go to x: (155) y: (-130)\n        if <<touching (mouse-pointer v)?> and <mouse down?>> then\n            set [shop表示 v] to [0]\n        end\n    end\n    if <(shop表示) = [0]> then\n        delete this clone\n    end\nend\n\nwhen I receive [start v]\ngo to [front v] layer\nswitch costume to (コスチューム1 v)\ngo to x: (-180) y: (-141)\nhide\nset [ghost v] effect to (50)\nforever\n    go to [front v] layer\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        set [shop表示 v] to [1]\n        hide\n        switch costume to (コスチューム2 v)\n        create clone of (_myself_ v)\n        switch costume to (コスチューム3 v)\n        create clone of (_myself_ v)\n        switch costume to (コスチューム4 v)\n        create clone of (_myself_ v)\n    end\n    if <(shop表示) = [0]> then\n        switch costume to (コスチューム1 v)\n        show\n    end\nend\n\nstart sound [ポップ v]\n\nwhen flag clicked\nset [yの動き v] to [21]\nset [xの動き v] to [2]\nhide\n\nwhen I receive [まずい v]\nshow variable [ホイ国 v]\nset [ホイ国 v] to [ not enough coins//コインが足りない]\nwait (2) seconds\nhide variable [ホイ国 v]\nset [ホイ国 v] to []\n\nwhen flag clicked\nhide variable [ホイ国 v]\n\nset [yの動き v] to [0]\n\nwhen I receive [hu v]\nforever\n    set [y増加 v] to [1]\nend\n\nwhen I receive [hahu v]\nforever\n    set [x増加 v] to [1]\nend\n\n@スプライト3\n\nwhen flag clicked\nset [shop表示 v] to [0]\nhide\nforever\n    set [ghost v] effect to (30)\n    if <(shop表示) = [1]> then\n        show\n    else\n        hide\n    end\nend\n\n