Online HIKING PLATFORMER オンラインハイキングプラットフォーマー

Instructions: ※日本語は下にスクロールするとあります。見ないと損します。\n\n⚡English⚡\nA scrolling platformer where you can climb mountains (online) with other players!!\n※New Scratchers can't be played online.\n\n◇How to operate◇\nYou can operate with the arrow keys! For mobile users, touch the direction you want to go! By the way, it can also be operated with WASD.\nClick the upper left button to chat! When entering, please enter the number of the word you want to convey in half-width characters.\n\n◇About coins◇\nThere are a total of 33 regular coins and a total of 3 star coins!\n___________________________________________\n                              Enjoy your hike!\n\n⚡日本語⚡\nほかのプレイヤーたちと一緒に（オンラインで）山を登れるスクロールプラットフォーマーです！！\n※ニュースクラッチャーはオンラインで遊べません。\n旗は必ず2回押してください。\n\n◇操作方法◇\n矢印キーで操作できます！モバイルの方は行きたい方向をタッチしてください！ちなみにWASDでも操作できます！左上のボタンを押すと、チャットができます！入力するときは伝えたい言葉の番号を半角で入力してください。ほかにもほしいチャットの文があったら教えてください。顔文字でもいいです(*'ω'*)\n\n◇コインについて◇\n普通のコインは全部で33枚、スターコインは全部で3枚あります！ぜひコンプリートしてみてください！\n＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿\n\nそれでは、ハイキングに行ってらっしゃい！\n＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿\n⚡クレジット⚡\n|| プログラム／@katsuo777様\n|| 地面／@-Hinomaru-様\n|| 背景／@hati32様\n|| 効果音／@ToadfanSchool様\n\n⚡tags⚡\n#platformer #online #hiking #rikkie7 #multiplayerplatformer #GAME #GAMES #multiplayer

@Stage\n\nwhen flag clicked\nforever\n    play sound [♪楽しいハイキング♪ v] until done\nend\n\nwhen flag clicked\nforever\n    if <([costume # v] of [音量 v]) = [1]> then\n        set volume to (100) %\n    else\n        set volume to (0) %\n    end\nend\n\n@プレイヤー\n\nwhen flag clicked\nset [xx v] to [0]\nset [yy v] to [25]\nhide\n\ndefine prayer\nset rotation style [left-right v]\npoint in direction (90)\nif <(！) = [0]> then\n    if <not <(username) = []>> then\n        if <(chat) = []> then\n            say (username)\n        else\n            say (join (username) (join [:] (item (chat) 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        switch costume to (コスチューム1 v)\n        change [x v] by (1)\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        switch costume to (コスチューム3 v)\n        change [x v] by (-1)\n    end\n    set [x v] to ((x) * (0.9))\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 [scroll x v] by (round ((x position) / (10)))\n    change x by ((0) - ((round ((x position) / (10))) * <not <<(scroll x) < [0]> or <[4500] < (scroll x)>>>))\n    if <(scroll x) < [0]> then\n        set [scroll x v] to [0]\n    end\n    if <[4500] < (scroll x)> then\n        set [scroll x v] to [4500]\n    end\n    change [scroll y v] by (round ((y position) / (10)))\n    change y by ((0) - ((round ((y position) / (10))) * <not <(scroll y) < [0]>>))\n    if <(scroll y) < [0]> then\n        set [scroll y 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))\npoint in direction ((90) + (round (x)))\n\ndefine 初期化\nstart sound [やられる v]\nhide\nrepeat until <<([abs v] of ((scroll y) - (YY)) ) < [3]> and <([abs v] of ((scroll x) - (XX)) ) < [3]>>\n    change [scroll x v] by (round (((XX) - (scroll x)) / (5)))\n    change [scroll y v] by (round (((YY) - (scroll y)) / (5)))\nend\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (0) y: (0)\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 ((-7) * ((x) / ([abs v] of (x) )))\n    else\n        set [x v] to [0]\n    end\nend\n\ndefine 床\nrepeat until <<not <touching (地面 v)?>> or <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    if <not <touching (水 v)?>> then\n        start sound [jump-cute1 v]\n        set [y v] to [18]\n    end\nelse\n    set [y v] to [0]\nend\n\nwhen I receive [start v]\nshow\nset [！ v] to [0]\nset [scroll x v] to [0]\nset [scroll y 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]\nset [！ v] to [0]\nforever\n    if <<(y position) < [-180]> or <touching (障害物 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\nwhen flag clicked\nbroadcast (START v)\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nforever\n    if <touching (水 v)?> then\n        set [y v] to [-0.1]\n        if <<<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            set [y v] to [6]\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    wait until <touching (水 v)?>\n    start sound [水に入る v]\n    wait until <not <touching (水 v)?>>\nend\n\nwhen flag clicked\nforever\n    if <<touching (水 v)?> 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 [泳ぐ v]\n        wait until <not <<<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?>>>>\n    end\nend\n\nwhen flag clicked\nforever\n    if <([costume # v] of [音量 v]) = [1]> then\n        set volume to (100) %\n    else\n        set volume to (0) %\n    end\nend\n\nwhen flag clicked\nset [houti v] to [0]\nforever\n    change [houti v] by (1)\n    wait (1) seconds\nend\n\nset [〜 v] to [0]\n\nwhen flag clicked\nforever\n    if <<key (up arrow v) pressed?> or <<key (right arrow v) pressed?> or <<key (left arrow v) pressed?> or <mouse down?>>>> then\n        set [houti v] to [0]\n    end\nend\n\nwhen flag clicked\nforever\n    if <[14] < (houti)> then\n        stop [all v]\n    end\nend\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 [back v] layer\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <<(OK？) = [0]> and <(y position) = ((2) - (scroll y))>>> then\n        show\n    else\n        hide\n        set [ghost v] effect to (0)\n        set size to (100) %\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\nset [monster coin？ v] to [0]\n配置 [-170] [160] [1]\n配置 [-216] [160] [1]\n配置 [-200] [630] [2]\n配置 [300] [342] [1]\n配置 [280] [290] [1]\n配置 [332] [390] [1]\n配置 [385] [400] [1]\n配置 [810] [460] [1]\n配置 [860] [460] [1]\n配置 [670] [550] [1]\n配置 [510] [730] [1]\n配置 [730] [845] [1]\n配置 [780] [845] [1]\n配置 [1508] [845] [1]\n配置 [1462] [780] [1]\n配置 [1508] [715] [1]\n配置 [1462] [650] [1]\n配置 [2050] [480] [1]\n配置 [2100] [480] [1]\n配置 [2150] [480] [1]\n配置 [2750] [480] [1]\n配置 [2800] [480] [1]\n配置 [2850] [480] [1]\n配置 [4460] [250] [2]\n配置 [840] [-130] [2]\n配置 [400] [-60] [1]\n配置 [400] [-10] [1]\n配置 [355] [-60] [1]\n配置 [355] [-10] [1]\n配置 [310] [-60] [1]\n配置 [310] [-10] [1]\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        if <(costume [number v]) = [2]> 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 [coin v] by (0.1)\n        else\n            if <(costume [number v]) = [3]> 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 [star coin v] by (1)\n            end\n        end\n    end\nend\n\nwhen flag clicked\nset [star coin v] to [0]\nset [coin v] to [0.0]\n\nwhen I receive [monster coin v]\nif <(costume [number v]) = [1]> then\n    wait (0.5) seconds\n    set [monster coin？ v] to [1]\n    配置 (monster coin X) ((monster coin Y) + (10)) [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\nforever\n    if <([costume # v] of [音量 v]) = [1]> then\n        set volume to (100) %\n    else\n        set volume to (0) %\n    end\nend\n\nwhen I start as a clone\nforever\n    if <touching (プレイヤー v)?> then\n        if <([costume # v] of [音量 v]) = [1]> then\n            if <(costume [number v]) = [2]> then\n                play sound [coin v] until done\n            else\n                if <(costume [number v]) = [3]> then\n                    play sound [galaxy chime v] until done\n                end\n            end\n        end\n    end\nend\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    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <(y position) = ((2) - (scroll y))>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\n配置 [1675] [489] [1]\n配置 [4670] [554] [1]\n配置 [700] [1235] [3]\nhide\n\nwhen I start as a clone\nforever\n    if <touching (プレイヤー v)?> then\n        set [xx v] to (1)\n        set [yy v] to (2)\n        change [3 v] by (1)\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nforever\n    if <([costume # v] of [音量 v]) = [1]> then\n        set volume to (100) %\n    else\n        set volume to (0) %\n    end\nend\n\nwhen I start as a clone\nforever\n    if <<touching (プレイヤー v)?> and <(costume [number v]) = [2]>> then\n        if <([costume # v] of [音量 v]) = [1]> then\n            play sound [flag v] until done\n            stop [this script v]\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    if <<touching (プレイヤー v)?> and <(costume [number v]) = [4]>> then\n        broadcast (GOAL v)\n        if <([costume # v] of [音量 v]) = [1]> then\n            play sound [GOAL v] until done\n            stop [this script v]\n        end\n    end\nend\n\n@地面\n\nwhen flag clicked\nset [chat v] to []\nhide\n配置 [0] [0] [1]\n配置 [480] [400] [2]\n配置 [650] [550] [3]\n配置 [1200] [900] [4]\n配置 [1670] [525] [5]\n配置 [2157] [525] [6]\n配置 [2604] [525] [7]\n配置 [3061] [525] [8]\n配置 [3619] [525] [9]\n配置 [4178] [525] [10]\n配置 ((4178) + (569)) [525] [11]\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) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\n@障害物\n\nwhen flag clicked\nhide\n配置 [0] [0] [1]\n配置 [2000] [390] [2]\n配置 [2600] [500] [3]\n配置 [2900] [550] [4]\n配置 [3700] [700] [5]\n配置 [3290] [600] [6]\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) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\n@サムネ\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\ngo to [front v] layer\nshow\ngo to x: (0) y: (999)\nrepeat until <(round (y position)) = [10]>\n    change y by ((() - (y position)) / (10))\nend\n\n@敵\n\ndefine 配置 (x) (y) (コスチューム) (動かす距離)\nset [+ v] to (動かす距離)\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    switch costume to (コスチューム1 v)\n    point in direction ((90) + (monster X))\n    go to x: (((1) + (+X)) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = (((1) + (+X)) - (scroll x))> and <<(OK？) = [0]> and <(y position) = ((2) - (scroll y))>>> then\n        show\n    else\n        if <[0] < (OK？)> then\n            set size to (100) %\n            set [ghost v] effect to (0)\n            hide\n        end\n    end\n    switch costume to ((1) + (3))\n    if <[0] < (monster X)> then\n        switch costume to ((3) + (2))\n    else\n        switch costume to ((3) + (3))\n    end\nend\n\nwhen I start as a clone\nset [+x v] to [0]\nset [monster x v] to [0]\nforever\n    repeat (+)\n        change [monster x v] by (1)\n        set [monster x v] to ((monster X) * (0.85))\n        change [+x v] by (monster X)\n        wait until <[-1] < (OK？)>\n    end\n    repeat (+)\n        change [monster x v] by (-1)\n        set [monster x v] to ((monster X) * (0.85))\n        change [+x v] by (monster X)\n        wait until <[-1] < (OK？)>\n    end\nend\n\nwhen I start as a clone\nset [ghost v] effect to (0)\nset size to (100) %\nset [ok？ v] to [0]\nforever\n    if <touching (プレイヤー v)?> then\n        if <(y) < [0]> then\n            set [y v] to [19]\n            set [monster coin x v] to ((1) + (+X))\n            set [monster coin y v] to (2)\n            broadcast (monster coin v)\n            set [ok？ v] to [-1]\n            repeat (10)\n                change [ghost v] effect by (10)\n                change size by (5)\n            end\n            set [ok？ v] to [1]\n        else\n            broadcast (初期化 v)\n        end\n    end\nend\n\nwhen I receive [monster v]\nset [ok？ v] to [0]\n\nwhen I receive [start v]\n配置 [3480] [475] [1] [30]\n配置 [4000] [475] [3] []\n配置 [4300] [475] [3] []\n配置 [4150] [475] [3] []\n配置 [3940] [910] [3] []\nhide\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 (55) %\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)) - (scroll x)) (((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)) - (scroll y))\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 I receive [オンライン v]\nset [online 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 (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [プレイヤー v]))) (((scroll y) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (6)) (join ((chat) + (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 (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [プレイヤー v]))) (((scroll y) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (6)) (join ((chat) + (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 (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [プレイヤー v]))) (((scroll y) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (6)) (join ((chat) + (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 (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [プレイヤー v]))) (((scroll y) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (6)) (join ((chat) + (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 (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [プレイヤー v]))) (((scroll y) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (6)) (join ((chat) + (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 (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [プレイヤー v]))) (((scroll y) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (6)) (join ((chat) + (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 (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [プレイヤー v]))) (((scroll y) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (6)) (join ((chat) + (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 (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [プレイヤー v]))) (((scroll y) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (6)) (join ((chat) + (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 (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [プレイヤー v]))) (((scroll y) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (6)) (join ((chat) + (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 (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [プレイヤー v]))) (((scroll y) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (6)) (join ((chat) + (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 [user v] to [0]\nset [user2 v] to []\nrepeat (length of (username))\n    change [user v] by (1)\n    switch costume to (letter (user) of (username))\n    set [user2 v] to (join (user2) (costume [number v]))\nend\nrepeat ((40) - (length of (user2)))\n    set [user2 v] to (join (user2) [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 flag clicked\nbroadcast (オンライン v)\n\n@水\n\nwhen flag clicked\nhide\n配置 [800] [-200] [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    go to [front v] layer\n    switch costume to (なし v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\n@チャットといろいろ\n\nwhen I receive [チャット v]\nif <(costume [number v]) = [1]> then\n    wait (5) seconds\n    set [chat v] to []\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    forever\n        if <(チャット表示してる？) = [1]> then\n            show\n        else\n            hide\n        end\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    forever\n        go to x: (-180) y: (150)\n        if <<touching (mouse-pointer v)?> and <mouse down?>> then\n            set [チャット表示してる？ v] to [1]\n            ask [] and wait\n            set [チャット表示してる？ v] to [0]\n            if <<[0] < (answer)> and <(answer) < [10]>> then\n                set [chat v] to (answer)\n                broadcast (チャット v)\n            end\n        end\n    end\nend\n\nwhen flag clicked\nshow\nset [チャット表示してる？ v] to [0]\nswitch costume to (チャットボタン v)\ncreate clone of (_myself_ v)\ngo to x: (0) y: (0)\nswitch costume to (チャット一覧 v)\ncreate clone of (_myself_ v)\nswitch costume to (coin v)\ncreate clone of (_myself_ v)\nswitch costume to (star coin v)\ncreate clone of (_myself_ v)\nhide\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [3]> then\n    forever\n        go to [front v] layer\n        go to x: (0) y: (0)\n    end\nend\n\nwhen flag clicked\nforever\n    if <([costume # v] of [音量 v]) = [1]> then\n        set volume to (100) %\n    else\n        set volume to (0) %\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    forever\n        if <([costume # v] of [音量 v]) = [1]> then\n            if <<touching (mouse-pointer v)?> and <mouse down?>> then\n                play sound [ポチッ v] until done\n                wait until <not <(チャット表示してる？) = [1]>>\n            end\n        end\n    end\nend\n\nstop [this script v]\n\n@コイン数\n\nwhen flag clicked\ncreate clone of (_myself_ v)\nforever\n    go to x: (33) y: (150)\n    switch costume to (letter (3) of (coin))\nend\n\nwhen I start as a clone\nforever\n    go to x: (11) y: (150)\n    show\n    switch costume to (letter (1) of (coin))\nend\n\n@スターコイン数\n\nwhen flag clicked\ncreate clone of (_myself_ v)\nforever\n    go to x: (167) y: (150)\n    switch costume to (star coin)\nend\n\nwhen I start as a clone\nforever\n    go to x: (145) y: (150)\n    show\n    switch costume to (0 v)\nend\n\n@タイム\n\nwhen flag clicked\nwait (0.3) seconds\nrepeat until <(GOALした？) = [YES]>\n    change [time v] by (1)\n    wait (1) seconds\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [goal v]\nset [goalした？ v] to [YES]\nshow\nshow variable [time v]\n\nwhen [timer v] > (0)\nhide variable [time v]\n\nwhen flag clicked\nset [time v] to [0]\nhide variable [time v]\nset [goalした？ v] to [NO]\n\n@音量\n\nwhen flag clicked\nswitch costume to (1 v)\nshow\nforever\n    go to x: (193) y: (-154)\n    go to [front v] layer\nend\n\nwhen this sprite clicked\nnext costume\nset size to (100) %\nrepeat (4)\n    change size by (-10)\nend\nrepeat (4)\n    change size by (10)\nend\nset size to (100) %\n\n