[Online]Platformer!Server1
@Stage\n\nwhen flag clicked\nforever\n    play sound [Teruto_Among v] until done\nend\n\nwhen I receive [ゴール v]\nstop [other scripts in sprite v]\n\nwhen flag clicked\nforever\n    switch backdrop to (Mode)\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 (プレーヤーPlayer2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (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 (プレーヤーPlayer2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (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 (プレーヤーPlayer2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (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 (プレーヤーPlayer2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (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 (プレーヤーPlayer2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (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 (プレーヤーPlayer2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (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 (プレーヤーPlayer2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (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 (プレーヤーPlayer2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (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 (プレーヤーPlayer2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (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 (プレーヤーPlayer2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレーヤー v]))) (((スクロールｙ) + ([y position v] of [プレーヤー v])) + (1500))) (join (([costume # v] of [プレーヤー v]) + (10)) (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 [プレーヤーplayer v] to [0]\nset [プレーヤーplayer2 v] to []\nrepeat (length of (username))\n    change [プレーヤーplayer v] by (1)\n    switch costume to (letter (プレーヤーPlayer) of (username))\n    set [プレーヤーplayer2 v] to (join (プレーヤーPlayer2) (costume [number v]))\nend\nrepeat ((40) - (length of (プレーヤーPlayer2)))\n    set [プレーヤーplayer2 v] to (join (プレーヤーPlayer2) [0])\nend\n\nwhen I receive [オンライン v]\nbroadcast (言う v)\nforever\n    復元1\nend\n\ndefine 復元1\ndelete all of [ユーザー v]\nset [% v] to [0]\nrepeat (10)\n    switch costume to ( v)\n    change [% v] by (1)\n    set [~ v] to [0]\n    set [4th 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 [4th v] to (join (4th) (costume [name v]))\n        end\n    end\n    add (4th) to [ユーザー v]\nend\n\nwhen flag clicked\nbroadcast (オンライン v)\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 [player1〜10 2 v]\n    add (☁ p1) to [player1〜10 2 v]\n    add (☁ p2) to [player1〜10 2 v]\n    add (☁ p3) to [player1〜10 2 v]\n    add (☁ p4) to [player1〜10 2 v]\n    add (☁ p5) to [player1〜10 2 v]\n    add (☁ p6) to [player1〜10 2 v]\n    add (☁ p7) to [player1〜10 2 v]\n    add (☁ p8) to [player1〜10 2 v]\n    add (☁ p9) to [player1〜10 2 v]\n    add (☁ p10) to [player1〜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 [player1〜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 [player1〜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 [player1〜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 [player1〜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 [player1〜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 [player1〜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 [player1〜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 [player1〜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 [player1〜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 [player1〜10 2 v]))> then\n        set [☁ p10 v] to [0]\n    end\nend\n\n@Toge\n\nwhen flag clicked\npoint in direction (90)\nhide\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 [800] [-100] [3]\n配置 [1440] [0] [4]\n配置 [1920] [0] [5]\n配置 ((1920) + (500)) [0] [6]\n配置 ((1920) + (1000)) [0] [7]\n配置 ((1920) + (1500)) [300] [8]\n配置 ((1920) + (2000)) [300] [9]\n配置 ((1920) + (2500)) [300] [10]\n配置 (((1900) + (1150)) + (1000)) [160] [3]\n配置 (((2100) + (1150)) + (1000)) [160] [3]\n配置 (((1850) + (1150)) + (1000)) [510] [3]\n配置 (((2000) + (1150)) + (1000)) [570] [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    switch costume to (なし v)\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    show\n    switch costume to (3)\nend\n\nwhen I start as a clone\nforever\n    if <(costume [name v]) = [tototo]> then\n        turn right (10) degrees\n    end\nend\n\n@かざり\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to ((コスチューム) + (1))\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\ngo to [back v] layer\nforever\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    show\n    switch costume to (3)\nend\n\nwhen I receive [start v]\nhide\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 [960] [0] [3]\n配置 [1440] [0] [4]\n配置 [1920] [0] [5]\n配置 ((1920) + (500)) [0] [6]\n配置 ((1920) + (1000)) [0] [7]\n配置 ((1920) + (1500)) [300] [8]\n配置 ((1920) + (2000)) [70] [9]\n配置 ((1920) + (2500)) [70] [10]\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    switch costume to (1 v)\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\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\nset [monster coin？ v] to [0]\n配置 [-200] [110] [1]\n配置 [-200] [60] [1]\n配置 [-200] [10] [1]\n配置 [130] [-61] [1]\n配置 [180] [-61] [1]\n配置 [340] [-61] [1]\n配置 [390] [-61] [1]\n配置 [520] [10] [1]\n配置 [570] [80] [1]\n配置 [630] [40] [1]\n配置 [1200] [80] [1]\n配置 [1250] [120] [1]\n配置 [1300] [80] [1]\n配置 [1800] [15] [1]\n配置 [2050] [60] [1]\n配置 [2170] [60] [1]\n配置 [2450] [45] [1]\n配置 [2600] [85] [1]\n配置 [3170] [50] [1]\n配置 [3750] [90] [1]\n配置 (((2380) + (1150)) + (1000)) [20] [1]\n配置 (((2450) + (1150)) + (1000)) [20] [1]\n配置 (((2222) + (1150)) + (1000)) [100] [1]\n配置 (((2222) + (1150)) + (1000)) [50] [1]\n配置 (((2222) + (1150)) + (1000)) [0] [1]\n配置 (((2222) + (1150)) + (1000)) [-50] [1]\n配置 (((1950) + (1150)) + (1000)) [-80] [1]\n配置 (((1900) + (1150)) + (1000)) [-80] [1]\n配置 (((1850) + (1150)) + (1000)) [-80] [1]\n配置 (((1800) + (1150)) + (1000)) [-80] [1]\n配置 (((2000) + (1150)) + (1000)) [-80] [1]\n配置 (((2050) + (1150)) + (1000)) [-80] [1]\n配置 (((2100) + (1150)) + (1000)) [-80] [1]\n配置 (((2150) + (1150)) + (1000)) [-80] [1]\n配置 (((1950) + (1150)) + (1000)) [0] [1]\n配置 (((1900) + (1150)) + (1000)) [0] [1]\n配置 (((1850) + (1150)) + (1000)) [0] [1]\n配置 (((1800) + (1150)) + (1000)) [0] [1]\n配置 (((2000) + (1150)) + (1000)) [0] [1]\n配置 (((2050) + (1150)) + (1000)) [0] [1]\n配置 (((2100) + (1150)) + (1000)) [0] [1]\n配置 (((2150) + (1150)) + (1000)) [0] [1]\n配置 (((1900) + (1150)) + (1000)) [850] [1]\n配置 (((1950) + (1150)) + (1000)) [850] [1]\n配置 (((1900) + (1150)) + (1000)) [900] [1]\n配置 (((1950) + (1150)) + (1000)) [900] [1]\n配置 (((1800) + (1150)) + (1000)) [850] [1]\n配置 (((1850) + (1150)) + (1000)) [850] [1]\n配置 (((1800) + (1150)) + (1000)) [900] [1]\n配置 (((1850) + (1150)) + (1000)) [900] [1]\n\nwhen I start as a clone\nforever\n    if <touching (プレーヤー v)?> then\n        start sound [Coin v]\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 (1)\n    end\nend\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    配置 (Xx) ((Yy) + (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\n@サムネ\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nshow variable [mode v]\nreset timer\nforever\n    set [タイムだよ v] to (timer)\nend\n\nwhen [timer v] > (タイムだよ)\nhide variable [mode v]\ngo to [front v] layer\nshow\nclear graphic effects\nset [ghost v] effect to (100)\nset [whirl v] effect to (100)\nrepeat (20)\n    change [whirl v] effect by (-5)\n    change [ghost v] effect by (-5)\nend\nclear graphic effects\n\n@ステージ\n\nwhen flag clicked\nset [チャットchat v] to []\nhide\nZimen配置 [0] [0] [1]\nZimen配置 [480] [0] [2]\nZimen配置 [960] [0] [3]\nZimen配置 [1440] [0] [4]\nZimen配置 [1920] [0] [5]\nZimen配置 ((1920) + (700)) [250] [6]\nZimen配置 ((1920) + (1150)) [250] [7]\nZimen配置 (((1920) + (1150)) + (500)) [250] [8]\nZimen配置 (((1920) + (1150)) + (1000)) [250] [9]\nZimen配置 (((1920) + (1150)) + (1000)) [250] [10]\nZimen配置 (((2500) + (1150)) + (1000)) [0] [11]\nZimen配置 [1300] [600] [12]\nZimen配置 (((1920) + (1150)) + (1000)) [600] [13]\n\ndefine Zimen配置 (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@チャット\n\nwhen flag clicked\nset [チャット表示chatひょおじ v] to [0]\ngo to [front v] layer\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 [チャットchat v] to []\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    forever\n        go to x: (-180) y: (150)\n        set [ghost v] effect to (0)\n        if <<touching (mouse-pointer v)?> and <mouse down?>> then\n            start sound [決定 v]\n            set [ghost v] effect to (50)\n            set [チャット表示chatひょおじ v] to [1]\n            ask [] and wait\n            set [チャット表示chatひょおじ v] to [0]\n            if <<[0] < (answer)> and <(answer) < [25]>> then\n                set [チャットchat v] to (answer)\n                broadcast (チャット v)\n            end\n        end\n    end\nend\n\nwhen I start as a clone\ngo to [front v] layer\nif <(costume [number v]) = [2]> then\n    forever\n        go to x: (0) y: (0)\n        set [ghost v] effect to (20)\n        go to [front v] layer\n        if <(チャット表示Chatひょおじ) = [1]> then\n            show\n        else\n            hide\n        end\n    end\nend\n\nwhen flag clicked\ndelete all of [_チャット v]\nadd [Hello!//こんにちは!] to [_チャット v]\nadd [Hi//やあ] to [_チャット v]\nadd [Nice//おぉナイス] to [_チャット v]\nadd [Let's go together// 一緒に行こう] to [_チャット v]\nadd [Good!//\(・∀・\)ｲｲﾈ!!] to [_チャット v]\nadd [Good luck!//頑張れ!] to [_チャット v]\nadd [difficult//難しいｗ] to [_チャット v]\nadd [Ok//わかった] to [_チャット v]\nadd [Sorry,I'm out.// ごめん抜ける] to [_チャット v]\nadd [Follow me//フォローして～ｗｗ] to [_チャット v]\nadd [Thanks!//ありがとう!] to [_チャット v]\nadd [ｗｗｗｗｗｗｗｗｗｗ] to [_チャット v]\nadd [Let's run backwards lol//逆走しようwww] to [_チャット v]\nadd [いいだろうｗｗｗｗ] to [_チャット v]\nadd [上手すぎィイ] to [_チャット v]\nadd [作者いるｗｗ] to [_チャット v]\nadd [うんムズイ★] to [_チャット v]\nadd [\(^^♪] to [_チャット v]\nadd [\(*´▽｀*\)] to [_チャット v]\nadd [\(´◉◞౪◟◉\)ｗｗ] to [_チャット v]\nadd [バグかな？] to [_チャット v]\nadd [どうもプロです\)\)\)] to [_チャット v]\nadd [上手だね] to [_チャット v]\nadd [ホワッツ???????????] to [_チャット v]\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n@BOT\n\ndefine BOT定義 (x) (y) (costume) (botの距離)\nset [+ v] to (botの距離)\nset [bot1 v] to (x)\nset [bot2 v] to (y)\nset [3番目のbot v] to (costume)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    go to x: (((Bot1) + (+X)) - (スクロールｘ)) y: ((BOt2) - (スクロールｙ))\n    if <<(x position) = (((Bot1) + (+X)) - (スクロールｘ))> and <<(判定検査) = [0]> and <(y position) = ((BOt2) - (スクロールｙ))>>> then\n        show\n    else\n        if <[0] < (判定検査)> 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番目のBOT))\n    if <[0] < (モンスターｘ)> then\n        switch costume to ((3番目のBOT) + (2))\n    else\n        switch costume to ((3番目のBOT) + (3))\n    end\nend\n\nwhen I start as a clone\nset [+x v] to [0]\nset [モンスターｘ v] to [0]\nforever\n    repeat (+)\n        change [モンスターｘ v] by (1)\n        set [モンスターｘ v] to ((モンスターｘ) * (0.85))\n        change [+x v] by (モンスターｘ)\n        wait until <[-1] < (判定検査)>\n    end\n    repeat (+)\n        change [モンスターｘ v] by (-1)\n        set [モンスターｘ v] to ((モンスターｘ) * (0.85))\n        change [+x v] by (モンスターｘ)\n        wait until <[-1] < (判定検査)>\n    end\nend\n\nwhen I start as a clone\nset [判定検査 v] to [0]\nforever\n    if <touching (プレーヤー v)?> then\n        if <(y) < [0]> then\n            start sound [ニュッ v]\n            set [y v] to [18]\n            set [xx v] to ((Bot1) + (+X))\n            set [yy v] to (BOt2)\n            broadcast (monster coin v)\n            set [判定検査 v] to [-1]\n            repeat (10)\n                change [ghost v] effect by (10)\n                change size by (5)\n            end\n            set [判定検査 v] to [1]\n        else\n            broadcast (初期化 v)\n        end\n    end\nend\n\nwhen I receive [start v]\nhide\nBOT定義 [550] [-82] [1] [40]\nBOT定義 [3250] [150] [1] [20]\nBOT定義 [3650] [30] [1] [40]\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 <(チャットChat) = []> then\n            say (username)\n        else\n            say (join (username) (join [:] (item (チャットChat) of [_チャット 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 (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        change [x v] by (-1)\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        壁体制Part1\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 <[4500] < (スクロールｘ)>>>))\n    if <(スクロールｘ) < [0]> then\n        set [スクロールｘ v] to [0]\n    end\n    if <[4500] < (スクロールｘ)> then\n        set [スクロールｘ v] to [4500]\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 初期化1\nstart sound [Kill 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 壁体制Part1\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        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)?>>\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    set [y v] to [18]\nelse\n    set [y v] to [0]\nend\n\nwhen I receive [start v]\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 (toge v)?>> then\n        set [!!!!! v] to [1]\n        初期化1\n        set [!!!!! v] to [0]\n    end\nend\n\nwhen I receive [初期化 v]\nset [!!!!! v] to [1]\n初期化1\nset [!!!!! v] to [0]\n\nwhen flag clicked\nbroadcast (START v)\n\nwhen [timer v] > (タイムだよ)\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    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 [ユーザー v])\n    else\n        say (join (item (prayer2) of [ユーザー v]) (join [:] (item ((join (letter (51) of (item (prayer2) of [p1〜10 v])) (letter (52) of (item (prayer2) of [p1〜10 v]))) - (10)) of [_チャット 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\ndefine 配置 (x) (y) (コスチューム)\nset [ごーる v] to (x)\nset [second v] to (y)\nset [third 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: ((ごーる) - (スクロールｘ)) y: ((second) - (スクロールｙ))\n    if <<(x position) = ((ごーる) - (スクロールｘ))> and <(y position) = ((second) - (スクロールｙ))>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (third))\nend\n\nwhen I receive [start v]\nhide\n配置 (((2580) + (1150)) + (1000)) [-70] [1]\n\nwhen I start as a clone\nforever\n    if <touching (プレーヤー v)?> then\n        set [!!!!! v] to [1]\n        change [third v] by (1)\n        wait (0) seconds\n        broadcast (ゴール v)\n        stop [other scripts in sprite v]\n        stop [this script v]\n    end\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    switch costume to (コスチューム1 v)\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\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\n配置 [1500] [297] [1]\n配置 [3050] [120] [1]\n\nwhen I start as a clone\nforever\n    if <touching (プレーヤー v)?> then\n        start sound [Collect v]\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\n@タイマー\n\nwhen flag clicked\nhide\n\nwhen I receive [切り替え v]\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen I receive [クローン削除 v]\ndelete this clone\n\nwhen I receive [ゴール v]\ngo to [front v] layer\nstop [other scripts in sprite v]\nbroadcast (クローン削除 v)\nset [タイム v] to ((round ((timer) * (100))) / (100))\nbroadcast (世界記録判定 v)\nclear graphic effects\ngo to x: (-30) y: (5)\n数字 (タイム) (length of (タイム))\nwait (5) seconds\nbroadcast (クローン削除 v)\nstop [all v]\n\nwhen I start as a clone\ngo to [front v] layer\nforever\n    クローン表示 ((round ((timer) * (100))) / (100))\nend\n\ndefine クローン表示 (タイマー)\nif <(y position) = [5]> then\n    show\nelse\n    if <[80] < (x position)> then\n        if <(length of (タイマー)) < (順番)> then\n            hide\n        else\n            switch costume to (letter (順番) of (タイマー))\n            show\n            if <(タイマー長さ) < (length of (タイマー))> then\n                change [タイマー長さ v] by (1)\n                broadcast (再描画 v)\n            end\n        end\n    else\n        if <(length of (Coin)) < (順番)> then\n            hide\n        else\n            switch costume to (letter (順番) of (Coin))\n            show\n        end\n    end\nend\n\nwhen I receive [再描画 v]\nbroadcast (クローン削除 v)\n数字配置\n\ndefine 数字配置\ngo to x: (-15) y: (150)\n数字 (Coin) [2]\ngo to x: (90) y: (150)\n数字 (timer) (タイマー長さ)\n\ndefine 数字 (値) (クローン数)\nset [順番 v] to [1]\nrepeat (クローン数)\n    switch costume to (letter (順番) of (値))\n    create clone of (_myself_ v)\n    change [順番 v] by (1)\n    change x by (15)\nend\n\nwhen I receive [start v]\nset [coin v] to [0]\nset [タイマー長さ v] to [4]\n数字配置\n\n@あなたのタイム\n\nwhen I receive [ゴール v]\nstart sound [シーン切り替え1 v]\ngo to [front v] layer\nshow\ngo to x: (0) y: (0)\nwait (5) seconds\nhide\n\nwhen flag clicked\nhide\n\n@いろいろ\n\nwhen flag clicked\ngo to x: (36) y: (28)\nshow\n\nwhen I receive [ゴール v]\nhide\n\n