【全機種対応】☁Hello! Platformer　v.1.1【オンラインスクロールプラットフォーマー3】 copy

Instructions: 【宣伝】アニメ「日本ストーリー」映画公開中!!\nhttps://scratch.mit.edu/projects/565639801/\n　　フォローもしてね!!\n9/17 傾向1位ありがとう！全機種ジャンプ対応にしました！\nこれは試作品なので、バグなどがあったら教えてください！\n======================================\n10人まで遊べます。\n\nNew scratcherはオンライン機能が使えません！\n\n矢印キーまたはWASDキーで移動\nTキーでチャットを表示、キーを押して送信\nスペースキーでコスチューム変更\nチビのやつがありますが、試作品なのでまだバグがありますw\n満員の時は、オンラインの選択のボタンが押せません。\n\n=======================================\nMove: ←→↑↓\nChat: T key(PC only)\nCostume: space key\n10 players.\n\n=======================================\nServer1:\nhere!!\n\nServer2:\nhttps://scratch.mit.edu/projects/571853458/\n\nServer3:\nhttps://turbowarp.org/559413188/fullscreen?interpolate&stuck&hqpen&clones=Infinity\n\nServer4:\nhttps://turbowarp.org/571853458/fullscreen?interpolate&stuck&hqpen&clones=Infinity

@Stage\n\nwhen flag clicked\nforever\n    if <(P) = [1]> then\n        set [1チャット v] to (チャット)\n    end\n    if <(P) = [2]> then\n        set [2チャット v] to (チャット)\n    end\n    if <(P) = [3]> then\n        set [3チャット v] to (チャット)\n    end\n    if <(P) = [4]> then\n        set [4チャット v] to (チャット)\n    end\n    if <(P) = [5]> then\n        set [5チャット v] to (チャット)\n    end\n    if <(P) = [6]> then\n        set [6チャット v] to (チャット)\n    end\n    if <(P) = [7]> then\n        set [7チャット v] to (チャット)\n    end\n    if <(P) = [8]> then\n        set [8チャット v] to (チャット)\n    end\n    if <(P) = [9]> then\n        set [9チャット v] to (チャット)\n    end\n    if <(P) = [10]> then\n        set [10チャット v] to (チャット)\n    end\nend\n\nwhen I receive [pikurin v]\nforever\n    play sound [ほんわかぷっぷー v] until done\nend\n\nwhen I receive [pikurin v]\nforever\n    if <[18] < (current [hour v])> then\n        switch backdrop to (夜 v)\n    else\n        if <[15] < (current [hour v])> then\n            switch backdrop to (夕方 v)\n        else\n            if <[10] < (current [hour v])> then\n                switch backdrop to (昼 v)\n            else\n                if <[5] < (current [hour v])> then\n                    switch backdrop to (朝 v)\n                else\n                    switch backdrop to (夜 v)\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [pikurin v]\nforever\n    delete all of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n    if <(日本語) = [0]> then\n        insert [\(a\)Hi!] at (1) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(b\)Hello!] at (2) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(c\)Bye!] at (3) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(d\)How do go here?] at (4) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(e\)It may fail, but look!] at (5) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(f\)Can not!] at (6) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(g\)Yeah!!] at (7) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(h\)Come!] at (8) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(i\)I'll go over there!] at (9) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(j\)OK!] at (10) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(k\)Help me!] at (11) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(l\)I can't do it now!] at (12) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(m\)Follow me!] at (13) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(n\)I was wrong!] at (14) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(o\) \(Lol\)] at (15) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(p\)Where are you?] at (16) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(q\)Please wait!] at (17) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n    end\n    if <(日本語) = [1]> then\n        insert [\(a\)こん！] at (1) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(b\)こんにちは！] at (2) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(c\)落ちます。さようなら！] at (3) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(d\)ここ、どうやって行くの？] at (4) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(e\)失敗するかもしれないけど、見てて！] at (5) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(f\)できないよ～] at (6) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(g\)やったー！] at (7) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(h\)こっちに来て！] at (8) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(i\)そっちに行くよ！] at (9) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(j\)了解！] at (10) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(k\)助けてくれ！！] at (11) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(l\)ゴメン、無理だ！] at (12) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(m\)ついてきて！] at (13) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(n\)間違えた！] at (14) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(o\)（笑\)] at (15) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(p\)どこにいるの～？] at (16) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n        insert [\(q\)待って～！！] at (17) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v] \n    end\nend\n\nhide list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n\nwhen flag clicked\nforever\n    change [sin v] by (3)\n    if <[359] < (sin)> then\n        set [sin v] to [0]\n    end\nend\n\nwhen I receive [pikurin v]\nforever\n    if <key (t v) pressed?> then\n        hide list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n        if <key (a v) pressed?> then\n            set [チャット v] to [1]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (b v) pressed?> then\n            set [チャット v] to [2]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (c v) pressed?> then\n            set [チャット v] to [3]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (d v) pressed?> then\n            set [チャット v] to [4]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (e v) pressed?> then\n            set [チャット v] to [5]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (f v) pressed?> then\n            set [チャット v] to [6]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (g v) pressed?> then\n            set [チャット v] to [7]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (h v) pressed?> then\n            set [チャット v] to [8]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (i v) pressed?> then\n            set [チャット v] to [9]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (j v) pressed?> then\n            set [チャット v] to [10]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (k v) pressed?> then\n            set [チャット v] to [11]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (l v) pressed?> then\n            set [チャット v] to [12]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (m v) pressed?> then\n            set [チャット v] to [13]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (n v) pressed?> then\n            set [チャット v] to [14]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (o v) pressed?> then\n            set [チャット v] to [15]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (p v) pressed?> then\n            set [チャット v] to [16]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n        if <key (q v) pressed?> then\n            set [チャット v] to [17]\n            show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n            wait (3) seconds\n            set [チャット v] to [0]\n        end\n    else\n        show list [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]\n    end\nend\n\nwhen [space v] key pressed\nchange [キャラコスチューム v] by (1)\nif <(キャラコスチューム) = [10]> then\n    set [キャラコスチューム v] to [0]\nend\n\nwhen flag clicked\nswitch backdrop to (オープニング v)\n\nwhen I receive [オンラインスタート！ v]\nset [チャット v] to [0]\nwait (1) seconds\nset [チャット v] to [0]\n\n@最初の画面\n\nwhen I start as a clone\nforever\n    show\n    if <<(costume [number v]) = [1]> or <<(costume [number v]) = [7]> or <(costume [number v]) = [5]>>> then\n        go to x: (-100) y: (0)\n    end\n    if <<(costume [number v]) = [2]> or <<(costume [number v]) = [8]> or <(costume [number v]) = [6]>>> then\n        go to x: (100) y: (0)\n    end\n    if <not <<(costume [number v]) = [3]> or <(costume [number v]) = [4]>>> then\n        if <touching (mouse-pointer v)?> then\n            set [brightness v] effect to (13)\n            repeat (10)\n                change size by (2.5)\n            end\n            repeat (10)\n                change size by (-2.5)\n            end\n        else\n            clear graphic effects\n            set size to (100) %\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        if <(costume [number v]) = [1]> then\n            set [日本語 v] to [1]\n            start sound [決定、ボタン押下2 v]\n        end\n        if <(costume [number v]) = [2]> then\n            set [日本語 v] to [0]\n            start sound [決定、ボタン押下2 v]\n        end\n        if <<(costume [number v]) = [7]> or <(costume [number v]) = [5]>> then\n            set [オンライン v] to [1]\n            start sound [決定、ボタン押下 v]\n        end\n        if <<(costume [number v]) = [8]> or <(costume [number v]) = [6]>> then\n            set [オンライン v] to [0]\n            start sound [決定、ボタン押下 v]\n        end\n    end\n    if <(costume [number v]) = [3]> then\n        go to [back v] layer\n        go to x: (0) y: (0)\n    end\n    if <(costume [number v]) = [4]> then\n        set [brightness v] effect to (13)\n        point in direction (80)\n        repeat (20)\n            turn right (0.1) degrees\n        end\n        repeat (20)\n            turn left (0.1) degrees\n        end\n    end\nend\n\nwhen I receive [じゅんびok!  v]\nwait (0.1) seconds\ngo to x: (0) y: (0)\nswitch costume to (コスチューム v)\ncreate clone of (_myself_ v)\nif <(日本語) = [1]> then\n    switch costume to (コスチューム5 v)\n    create clone of (_myself_ v)\n    switch costume to (コスチューム6 v)\n    create clone of (_myself_ v)\nend\nif <(日本語) = [0]> then\n    switch costume to (コスチューム7 v)\n    create clone of (_myself_ v)\n    switch costume to (コスチューム8 v)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nif <<(costume [number v]) = [1]> or <(costume [number v]) = [2]>> then\n    wait until <not <(日本語) = []>>\n    wait until <not <mouse down?>>\n    broadcast (じゅんびok!  v)\n    delete this clone\nend\n\nwhen I start as a clone\nif <not <<(costume [number v]) = [1]> or <(costume [number v]) = [2]>>> then\n    wait until <not <(オンライン) = []>>\n    if <(オンライン) = [0]> then\n        set [p v] to [1]\n        broadcast (スタート v)\n        broadcast (1P v)\n        broadcast (この指とまれ～ v)\n    end\n    if <(オンライン) = [1]> then\n        broadcast (スタート v)\n        broadcast (オンラインスタート！ v)\n    end\n    delete this clone\nend\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nif <[0] < (☁ 1)> then\n    if <[0] < (☁ 2)> then\n        if <[0] < (☁ 3)> then\n            if <[0] < (☁ 4)> then\n                if <[0] < (☁ 5)> then\n                    if <[0] < (☁ 6)> then\n                        if <[0] < (☁ 7)> then\n                            if <[0] < (☁ 8)> then\n                                if <[0] < (☁ 9)> then\n                                    if <[0] < (☁ 10)> then\n                                        broadcast (満員 v)\n                                        stop [all v]\n                                    else\n                                        set [p v] to [10]\n                                        set [☁ 10 v] to [1]\n                                        broadcast (10P v)\n                                    end\n                                else\n                                    set [p v] to [9]\n                                    set [☁ 9 v] to [1]\n                                    broadcast (9P v)\n                                end\n                            else\n                                set [p v] to [8]\n                                set [☁ 8 v] to [1]\n                                broadcast (8P v)\n                            end\n                        else\n                            set [p v] to [7]\n                            set [☁ 7 v] to [1]\n                            broadcast (7P v)\n                        end\n                    else\n                        set [p v] to [6]\n                        set [☁ 6 v] to [1]\n                        broadcast (6P v)\n                    end\n                else\n                    set [p v] to [5]\n                    set [☁ 5 v] to [1]\n                    broadcast (5P v)\n                end\n            else\n                set [p v] to [4]\n                set [☁ 4 v] to [1]\n                broadcast (4P v)\n            end\n        else\n            set [p v] to [3]\n            set [☁ 3 v] to [1]\n            broadcast (3P v)\n        end\n    else\n        set [p v] to [2]\n        set [☁ 2 v] to [1]\n        broadcast (2P v)\n    end\nelse\n    set [p v] to [1]\n    set [☁ 1 v] to [1]\n    broadcast (1P v)\nend\nstop [this script v]\n\nset [☁ 1 v] to [0]\nset [☁ 2 v] to [0]\nset [☁ 3 v] to [0]\nset [☁ 4 v] to [0]\nset [☁ 5 v] to [0]\nset [☁ 6 v] to [0]\nset [☁ 7 v] to [0]\nset [☁ 8 v] to [0]\nset [☁ 9 v] to [0]\nset [☁ 10 v] to [0]\n\nwhen [timer v] > (0)\nif <(P) = [1]> then\n    set [☁ 1 v] to [0]\nend\nif <(P) = [2]> then\n    set [☁ 2 v] to [0]\nend\nif <(P) = [3]> then\n    set [☁ 3 v] to [0]\nend\nif <(P) = [4]> then\n    set [☁ 4 v] to [0]\nend\nif <(P) = [5]> then\n    set [☁ 5 v] to [0]\nend\nif <(P) = [6]> then\n    set [☁ 6 v] to [0]\nend\nif <(P) = [7]> then\n    set [☁ 7 v] to [0]\nend\nif <(P) = [8]> then\n    set [☁ 8 v] to [0]\nend\nif <(P) = [9]> then\n    set [☁ 9 v] to [0]\nend\nif <(P) = [10]> then\n    set [☁ 10 v] to [0]\nend\nset [p v] to [0]\n\nwhen flag clicked\nif <(P) = [1]> then\n    set [☁ 1 v] to [0]\nend\nif <(P) = [2]> then\n    set [☁ 2 v] to [0]\nend\nif <(P) = [3]> then\n    set [☁ 3 v] to [0]\nend\nif <(P) = [4]> then\n    set [☁ 4 v] to [0]\nend\nif <(P) = [5]> then\n    set [☁ 5 v] to [0]\nend\nif <(P) = [6]> then\n    set [☁ 6 v] to [0]\nend\nif <(P) = [7]> then\n    set [☁ 7 v] to [0]\nend\nif <(P) = [8]> then\n    set [☁ 8 v] to [0]\nend\nif <(P) = [9]> then\n    set [☁ 9 v] to [0]\nend\nif <(P) = [10]> then\n    set [☁ 10 v] to [0]\nend\nset [p v] to [0]\n\nbroadcast (2P v)\n\nwhen I receive [pikurin v]\nhide\npoint in direction (90)\nset [日本語 v] to []\nset [オンライン v] to []\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム3 v)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nforever\n    if <<<<[0] < (☁ 1)> and <[0] < (☁ 2)>> and <<[0] < (☁ 3)> and <[0] < (☁ 4)>>> and <<<<[0] < (☁ 5)> and <[0] < (☁ 6)>> and <<[0] < (☁ 7)> and <[0] < (☁ 8)>>> and <<[0] < (☁ 9)> and <[0] < (☁ 10)>>>> then\n        set [満員である v] to [1]\n    else\n        set [満員である v] to [0]\n    end\nend\n\nwhen I start as a clone\nforever\n    if <<(costume [number v]) = [7]> or <(costume [number v]) = [5]>> then\n        if <(満員である) = [1]> then\n            set [brightness v] effect to (-50)\n        else\n            clear graphic effects\n        end\n    end\nend\n\n@キャラクター選択(代理）\n\nwhen I receive [pikurin v]\nwait (0.01) seconds\nset [キャラコスチューム v] to [10]\n\nshow\nforever\n    go to x: (0) y: (-68)\n    switch costume to (キャラコスチューム)\n    if <not <(日本語) = []>> then\n        set size to (80) %\n        set [ghost v] effect to (100)\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nhide\n\n@ステージ\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nwait (0.01) seconds\nshow\ngo to x: (1600) y: (1000)\nset [xv v] to [0]\nset [yv v] to [0]\npoint in direction (90)\nset [チェックポイント v] to [0]\ngo to [front v] layer\nset drag mode [not draggable v]\nswitch costume to (当たればアウト v)\ncreate clone of (_myself_ v)\nswitch costume to (飾り v)\ncreate clone of (_myself_ v)\nswitch costume to (ステージ2 v)\ncreate clone of (_myself_ v)\nswitch costume to (緑 v)\ncreate clone of (_myself_ v)\nforever\n    if <(リスポーン中) = [0]> then\n        switch costume to (ステージ v)\n        if  then\n            change y by (-1)\n            if  then\n                change y by (-1)\n                if  then\n                    change y by (-1)\n                    if  then\n                        change y by (-1)\n                        if  then\n                            change y by (-1)\n                            if  then\n                                change y by (-1)\n                                if  then\n                                    change y by (-1)\n                                    if  then\n                                        change x by ((Xv) * (-1))\n                                        change y by (6)\n                                        if <<<mouse down?> and <[0] < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                                            if <(Xv) > [0]> then\n                                                set [xv v] to [-3]\n                                                start sound [ポイ v]\n                                                create clone of (ジャンプのエフェクト v)\n                                            else\n                                                set [xv v] to [3]\n                                                start sound [ポイ v]\n                                                create clone of (ジャンプのエフェクト v)\n                                            end\n                                            set [yv v] to [-12]\n                                        else\n                                            set [xv v] to [0]\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    set [xv v] to ((Xv) * (0.9))\n    if <(水に触れた) = [true]> then\n        change [yv v] by (2)\n    else\n        change [yv v] by (1)\n    end\n    change y by (Yv)\n    if <<touching (当たり判定 v)?> or <(隠しステージに触れた) = [1]>> then\n        change y by ((Yv) * (-1))\n        set [yv v] to [0]\n    end\n    change x by (Xv)\n    set [x v] to (round (x position))\n    set [y v] to (round (y position))\n    if <<[1300] < (y position)> and <(リスポーン中) = [0]>> then\n        broadcast (いてッ！ v)\n    end\n    if <<<[-120] < (x position)> and <(x position) < [0]>> and <<[1070] < (y position)> and <(y position) < [1150]>>> then\n        set [チェックポイント v] to [1]\n    end\n    if <<<[-1500] < (x position)> and <(x position) < [-1430]>> and <<[400] < (y position)> and <(y position) < [500]>>> then\n        set [チェックポイント v] to [2]\n    end\n    if <<<[655] < (x position)> and <(x position) < [1070]>> and <<[40] < (y position)> and <(y position) < [130]>>> then\n        set [チェックポイント v] to [3]\n    end\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [飾り]> then\n    go to [back v] layer\n    forever\n        go to x: (X) y: (Y)\n    end\nend\nif <(costume [name v]) = [当たればアウト]> then\n    go [backward v] (2) layers\n    forever\n        go to x: (X) y: (Y)\n        if <<touching (1p v)?> and <(P) = [1]>> then\n            broadcast (いてッ！ v)\n        end\n        if <<touching (2p v)?> and <(P) = [2]>> then\n            broadcast (いてッ！ v)\n        end\n        if <<touching (3p v)?> and <(P) = [3]>> then\n            broadcast (いてッ！ v)\n        end\n        if <<touching (4p v)?> and <(P) = [4]>> then\n            broadcast (いてッ！ v)\n        end\n        if <<touching (5p v)?> and <(P) = [5]>> then\n            broadcast (いてッ！ v)\n        end\n        if <<touching (6p v)?> and <(P) = [6]>> then\n            broadcast (いてッ！ v)\n        end\n        if <<touching (7p v)?> and <(P) = [7]>> then\n            broadcast (いてッ！ v)\n        end\n        if <<touching (8p v)?> and <(P) = [8]>> then\n            broadcast (いてッ！ v)\n        end\n        if <<touching (9p v)?> and <(P) = [9]>> then\n            broadcast (いてッ！ v)\n        end\n        if <<touching (10p v)?> and <(P) = [10]>> then\n            broadcast (いてッ！ v)\n        end\n    end\nend\nif <(costume [name v]) = [ステージ2]> then\n    show\n    forever\n        go to x: (X) y: (Y)\n        if <touching (当たり判定 v)?> then\n            set [隠しステージに触れた v] to [1]\n        else\n            set [隠しステージに触れた v] to [0]\n        end\n    end\nend\nif <(costume [name v]) = [緑]> then\n    show\n    forever\n        go to x: (X) y: (Y)\n        set [触れた v] to [0]\n        if <<(P) = [1]> and <touching (1p v)?>> then\n            set [触れた v] to [1]\n        end\n        if <<(P) = [2]> and <touching (2p v)?>> then\n            set [触れた v] to [2]\n        end\n        if <<(P) = [3]> and <touching (3p v)?>> then\n            set [触れた v] to [3]\n        end\n        if <<(P) = [4]> and <touching (4p v)?>> then\n            set [触れた v] to [4]\n        end\n        if <<(P) = [5]> and <touching (5p v)?>> then\n            set [触れた v] to [5]\n        end\n        if <<(P) = [6]> and <touching (6p v)?>> then\n            set [触れた v] to [6]\n        end\n        if <<(P) = [7]> and <touching (7p v)?>> then\n            set [触れた v] to [7]\n        end\n        if <<(P) = [8]> and <touching (8p v)?>> then\n            set [触れた v] to [8]\n        end\n        if <<(P) = [9]> and <touching (9p v)?>> then\n            set [触れた v] to [9]\n        end\n        if <<(P) = [10]> and <touching (10p v)?>> then\n            set [触れた v] to [10]\n        end\n    end\nend\n\nwhen I receive [いてッ！ v]\nset [リスポーン中 v] to [1]\nstart sound [シュシッ v]\nif <(チェックポイント) = [0]> then\n    glide (0.5) secs to x: (1605) y: (1100)\nend\nif <(チェックポイント) = [1]> then\n    glide (0.5) secs to x: (-80) y: (1110)\nend\nif <(チェックポイント) = [2]> then\n    glide (0.5) secs to x: (-1450) y: (450)\nend\nif <(チェックポイント) = [3]> then\n    glide (0.5) secs to x: (1400) y: (0)\nend\nset [リスポーン中 v] to [0]\nset [yv v] to [0]\nset [xv v] to [0]\n\nwhen I receive [いてッ！ v]\nrepeat (50)\n    set [x v] to (round (x position))\n    set [y v] to (round (y position))\nend\n\nwhen I receive [スタート v]\nforever\n    go to [front v] layer\nend\n\ngo to x: (-1460) y: (1110)\n\nset [xv v] to [-300]\n\nset [yv v] to [-100]\n\nwhen I receive [ワープa v]\nset [リスポーン中 v] to [1]\nstart sound [テレポート v]\nglide (2) secs to x: (-1675) y: (1050)\nset [リスポーン中 v] to [0]\nset [yv v] to [0]\nset [xv v] to [0]\n\nwhen I receive [ワープb v]\nset [リスポーン中 v] to [1]\nstart sound [テレポート v]\nglide (2) secs to x: (-960) y: (660)\nset [リスポーン中 v] to [0]\nset [yv v] to [0]\nset [xv v] to [0]\n\n@オブジェクト\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nset [ポイント v] to [0]\nset [x座標とy座標 v] to [0]\nwait (0.2) seconds\nbroadcast (アニメーションのクローン削除 v)\n位置を x座標 [1440] y座標 [1110] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [1405] y座標 [1110] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [1370] y座標 [1110] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [1335] y座標 [1110] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [1440] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [1405] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [1370] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [1335] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [735] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [700] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [665] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [630] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [595] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [560] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [525] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [490] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [455] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [420] y座標 [1070] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-805] y座標 [600] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-770] y座標 [600] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-735] y座標 [600] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-700] y座標 [600] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-665] y座標 [600] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-630] y座標 [600] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-500] y座標 [580] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-380] y座標 [665] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-380] y座標 [630] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-380] y座標 [595] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-380] y座標 [560] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-380] y座標 [525] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-380] y座標 [490] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-380] y座標 [455] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-685] y座標 [330] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-650] y座標 [330] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-615] y座標 [330] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-580] y座標 [330] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-545] y座標 [330] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-510] y座標 [330] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-475] y座標 [330] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-440] y座標 [330] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-405] y座標 [330] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-1380] y座標 [80] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-1380] y座標 [40] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-1380] y座標 [0] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-1380] y座標 [-40] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-1340] y座標 [80] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-1340] y座標 [40] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-1340] y座標 [0] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-1340] y座標 [-40] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-670] y座標 [0] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-670] y座標 [-40] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-670] y座標 [-80] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-670] y座標 [-120] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-670] y座標 [-160] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-670] y座標 [-200] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-30] y座標 [35] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-30] y座標 [-5] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-30] y座標 [-45] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-30] y座標 [-85] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [-30] y座標 [-125] コスチュームの種類を [コイン] にしてクローンを作成する\n位置を x座標 [195] y座標 [1100] コスチュームの種類を [動く針] にしてクローンを作成する\n位置を x座標 [-95] y座標 [1070] コスチュームの種類を [ダイヤ] にしてクローンを作成する\n位置を x座標 [-150] y座標 [450] コスチュームの種類を [ダイヤ] にしてクローンを作成する\n位置を x座標 [-1620] y座標 [600] コスチュームの種類を [ダイヤ] にしてクローンを作成する\n位置を x座標 [-200] y座標 [1010] コスチュームの種類を [出てくる針] にしてクローンを作成する\n位置を x座標 [-1020] y座標 [660] コスチュームの種類を [バネ] にしてクローンを作成する\n位置を x座標 [-670] y座標 [85] コスチュームの種類を [バネ] にしてクローンを作成する\n位置を x座標 [-1160] y座標 [620] コスチュームの種類を [ワープホールA] にしてクローンを作成する\n位置を x座標 [-1460] y座標 [1110] コスチュームの種類を [ワープホールB] にしてクローンを作成する\n位置を x座標 [-1620] y座標 [700] コスチュームの種類を [レーザー] にしてクローンを作成する\n位置を x座標 [-1130] y座標 [70] コスチュームの種類を [レーザー] にしてクローンを作成する\n位置を x座標 [185] y座標 [100] コスチュームの種類を [レーザー] にしてクローンを作成する\nwait (0.5) seconds\n位置を x座標 [410] y座標 [170] コスチュームの種類を [レーザー] にしてクローンを作成する\n\nwhen I start as a clone\nforever\n    if <(costume [name v]) = [コイン]> then\n        set size to (40) %\n        switch costume to (コイン v)\n        repeat (5)\n            次のコスチュームにする\n            wait (pick random (0) to (0.01)) seconds\n        end\n        switch costume to (コイン6 v)\n        repeat (5)\n            前のコスチュームにする\n            wait (pick random (0) to (0.01)) seconds\n        end\n    end\n    if <(costume [name v]) = [動く針]> then\n        set size to (175) %\n        turn right (5) degrees\n    end\n    if <(costume [name v]) = [ダイヤ]> then\n        set size to (110) %\n        go to x: (((X) - ((join (join (letter (1) of (x座標とy座標)) (letter (2) of (x座標とy座標))) (join (letter (3) of (x座標とy座標)) (letter (4) of (x座標とy座標)))) - (3000))) + ((Xv) / (2))) y: (((Y) - (((join (join (letter (5) of (x座標とy座標)) (letter (6) of (x座標とy座標))) (join (letter (7) of (x座標とy座標)) (letter (8) of (x座標とy座標)))) - (3000)) + ((0) - ((Yv) * (0.8))))) + (([sin v] of (sin) ) * (10)))\n    end\n    if <(costume [name v]) = [出てくる針]> then\n        set size to (70) %\n        switch costume to (出てくる針 v)\n        repeat (4)\n            次のコスチュームにする\n            wait (0) seconds\n        end\n        wait (3) seconds\n        repeat (4)\n            前のコスチュームにする\n            wait (0) seconds\n        end\n        wait (3) seconds\n        switch costume to (出てくる針 v)\n    end\n    if <(costume [name v]) = [バネ]> then\n        set size to (100) %\n    end\n    if <(costume [name v]) = [レーザー]> then\n        go to [front v] layer\n        set size to (200) %\n        set rotation style [all around v]\n        turn right (2) degrees\n    end\n    if <(costume [name v]) = [ワープホールA]> then\n        set size to (175) %\n        think [ワープホール]\n        set [whirl v] effect to (pick random (-750) to (750))\n        wait (0.2) seconds\n    end\n    if <(costume [name v]) = [ワープホールB]> then\n        set size to (175) %\n        think [ワープホール]\n        set [whirl v] effect to (pick random (-750) to (750))\n        wait (0.2) seconds\n    end\nend\n\ndefine 位置を x座標 (x座標) y座標 (y座標) コスチュームの種類を (コスチュームの種類) にしてクローンを作成する\nset rotation style [all around v]\npoint in direction (90)\nswitch costume to (コスチュームの種類)\nset [x座標とy座標 v] to (join ((x座標) + (3000)) ((y座標) + (3000)))\ncreate clone of (_myself_ v)\n\nwhen I receive [アニメーションのクローン削除 v]\ndelete this clone\n\ndefine 次のコスチュームにする\nswitch costume to ((costume [number v]) + (1))\n\ndefine 前のコスチュームにする\nswitch costume to ((costume [number v]) - (1))\n\nwhen I start as a clone\nforever\n    if <not <(costume [name v]) = [ダイヤ]>> then\n        go to x: (((X) - ((join (join (letter (1) of (x座標とy座標)) (letter (2) of (x座標とy座標))) (join (letter (3) of (x座標とy座標)) (letter (4) of (x座標とy座標)))) - (3000))) + ((Xv) / (2))) y: ((Y) - (((join (join (letter (5) of (x座標とy座標)) (letter (6) of (x座標とy座標))) (join (letter (7) of (x座標とy座標)) (letter (8) of (x座標とy座標)))) - (3000)) + ((0) - ((Yv) * (0.8)))))\n    end\nend\n\nwhen I start as a clone\nforever\n    if <<<[235] < (x position)> or <(x position) < [-235]>> or <<[180] < (y position)> or <(y position) < [-180]>>> then\n        hide\n    else\n        show\n    end\nend\n\nwhen I start as a clone\nforever\n    if <(リスポーン中) = [0]> then\n        if <<<<(costume [name v]) = [コイン]> or <(costume [name v]) = [コイン2]>> or <<(costume [name v]) = [コイン3]> or <(costume [name v]) = [コイン4]>>> or <<(costume [name v]) = [コイン5]> or <(costume [name v]) = [コイン6]>>> then\n            if <touching (当たり判定 v)?> then\n                start sound [コイン v]\n                change [ポイント v] by (1)\n                delete this clone\n            end\n        end\n        if <(costume [name v]) = [動く針]> then\n            if <touching (当たり判定 v)?> then\n                broadcast (いてッ！ v) and wait\n            end\n        end\n        if <(costume [name v]) = [ダイヤ]> then\n            if <touching (当たり判定 v)?> then\n                start sound [ゲット v]\n                change [ポイント v] by (15)\n                delete this clone\n            end\n        end\n        if <<<(costume [name v]) = [出てくる針]> or <(costume [name v]) = [出てくる針2]>> or <<<(costume [name v]) = [出てくる針3]> or <(costume [name v]) = [出てくる針4]>> or <(costume [name v]) = [出てくる針5]>>> then\n            if <touching (当たり判定 v)?> then\n                broadcast (いてッ！ v) and wait\n            end\n        end\n        if <(costume [name v]) = [バネ]> then\n            if <touching (当たり判定 v)?> then\n                switch costume to (バネ v)\n                repeat (2)\n                    wait (0) seconds\n                    次のコスチュームにする\n                end\n                switch costume to (バネ3 v)\n                start sound [ボーイーン v]\n                set [yv v] to [-25]\n                repeat (2)\n                    wait (0) seconds\n                    前のコスチュームにする\n                end\n                switch costume to (バネ v)\n            end\n        end\n        if <(costume [name v]) = [レーザー]> then\n            if <touching (当たり判定 v)?> then\n                set [brightness v] effect to (100)\n                broadcast (いてッ！ v) and wait\n                set [brightness v] effect to (0)\n            end\n        end\n        if <(costume [name v]) = [ワープホールA]> then\n            if <touching (当たり判定 v)?> then\n                broadcast (ワープA v) and wait\n            end\n        end\n        if <(costume [name v]) = [ワープホールB]> then\n            if <touching (当たり判定 v)?> then\n                broadcast (ワープB v) and wait\n            end\n        end\n    end\nend\n\nstart sound [ボーイーン v]\n\nif <(costume [name v]) = [レーザー]> then\n    delete this clone\nend\n\nwhen [space v] key pressed\n\nwait (0.5) seconds\n位置を x座標 [2420] y座標 [-995] コスチュームの種類を [レーザー] にしてクローンを作成する\n\n@太陽/月\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nset [太陽/月の大きさ v] to [0]\nforever\n    change [太陽/月の大きさ v] by (10)\n    set size to ((100) + (([sin v] of (太陽/月の大きさ) ) * (5))) %\nend\n\nwhen I receive [スタート v]\nshow\nforever\n    go to [back v] layer\n    go to x: ((240) * (([x position v] of [ステージ v]) / (1650))) y: ((((((180) * (([y position v] of [ステージ v]) / (1225))) / (2)) + (90)) / (2)) + (45))\n    switch costume to (backdrop [name v])\nend\n\n@ジャンプのエフェクト\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nshow\ngo to [front v] layer\nset [ghost v] effect to (0)\nset size to (100) %\ngo to (当たり判定 v)\nrepeat (10)\n    change [ghost v] effect by (10)\n    change size by (10)\nend\nhide\ndelete this clone\n\n@1P\n\nwhen I receive [1p v]\nset [リスポーン中 v] to [0]\nforever\n    switch costume to (キャラコスチューム)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n        set size to (70) %\n        set rotation style [left-right v]\n        go to x: (0) y: (0)\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            point in direction (-90)\n            change [xv v] by (1)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            point in direction (90)\n            change [xv v] by (-1)\n        end\n        if <<(触れた) = [1]> or <(水に触れた) = [true]>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                set [yv v] to [-15]\n                if <(水に触れた) = [false]> then\n                    create clone of (ジャンプのエフェクト v)\n                    start sound [ニュッ v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [1p v]\nwait (1) seconds\nforever\n    if <touching color (#57ffc9)?> then\n        if <(日本語) = [0]> then\n            think [checkpoint]\n        end\n        if <(日本語) = [1]> then\n            think [チェックポイント]\n        end\n    else\n        if <touching color (#5e64ff)?> then\n            think [\(*^▽^*\)]\n        else\n            think []\n            if <(1チャット) = [0]> then\n                say (1)\n            end\n            if <[0] < (1チャット)> then\n                say (join (join (1) [:]) (item (1チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n            end\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nforever\n    if <not <(P) = [0]>> then\n        if <(1チャット) = [0]> then\n            say (1)\n        end\n        if <[0] < (1チャット)> then\n            say (join (join (1) [:]) (item (1チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nset [p v] to [2]\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nforever\n    if <<(オンライン) = [1]> and <(P) = [1]>> then\n        set [☁ 1 v] to (join (join ((3000) + (X)) (join ((3000) + (Y)) (join ((200) + (direction)) (join ((10) + (costume [number v])) ((10) + (チャット)))))) (join (タイマー) (数値化)))\n    else\n        if <<(オンライン) = [1]> and <[0] < (☁ 1)>> then\n            show\n            go to x: (((X) - ((join (letter (1) of (☁ 1)) (join (letter (2) of (☁ 1)) (join (letter (3) of (☁ 1)) (letter (4) of (☁ 1))))) - (3000))) + ((Xv) / (2))) y: (((Y) - ((join (letter (5) of (☁ 1)) (join (letter (6) of (☁ 1)) (join (letter (7) of (☁ 1)) (letter (8) of (☁ 1))))) - (3000))) + ((Yv) * (0.9)))\n            point in direction ((join (letter (9) of (☁ 1)) (join (letter (10) of (☁ 1)) (letter (11) of (☁ 1)))) - (200))\n            switch costume to ((join (letter (12) of (☁ 1)) (letter (13) of (☁ 1))) - (10))\n            set [1チャット v] to ((join (letter (14) of (☁ 1)) (letter (15) of (☁ 1))) - (10))\n        else\n            if <(オンライン) = [1]> then\n                hide\n            end\n        end\n    end\nend\n\nsay [こんにちは!]\n\nwhen flag clicked\nhide\n\n@2P\n\nwhen I receive [2p v]\nset [リスポーン中 v] to [0]\nforever\n    switch costume to (キャラコスチューム)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n        set size to (70) %\n        set rotation style [left-right v]\n        go to x: (0) y: (0)\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            point in direction (-90)\n            change [xv v] by (1)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            point in direction (90)\n            change [xv v] by (-1)\n        end\n        if <<(触れた) = [2]> or <(水に触れた) = [true]>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                set [yv v] to [-15]\n                if <(水に触れた) = [false]> then\n                    create clone of (ジャンプのエフェクト v)\n                    start sound [ニュッ v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [2p v]\nwait (1) seconds\nforever\n    if <touching color (#57ffc9)?> then\n        if <(日本語) = [0]> then\n            think [checkpoint]\n        end\n        if <(日本語) = [1]> then\n            think [チェックポイント]\n        end\n    else\n        if <touching color (#5e64ff)?> then\n            think [\(*^▽^*\)]\n        else\n            think []\n            if <(2チャット) = [0]> then\n                say (2)\n            end\n            if <[0] < (2チャット)> then\n                say (join (2) (item (2チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n            end\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nforever\n    if <not <(P) = [2]>> then\n        if <(2チャット) = [0]> then\n            say (2)\n        end\n        if <[0] < (2チャット)> then\n            say (join (2) (item (2チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nforever\n    if <<(オンライン) = [1]> and <(P) = [2]>> then\n        set [☁ 2 v] to (join (join ((3000) + (X)) (join ((3000) + (Y)) (join ((200) + (direction)) (join ((10) + (costume [number v])) ((10) + (チャット)))))) (join (タイマー) (数値化)))\n    else\n        if <<(オンライン) = [1]> and <[0] < (☁ 2)>> then\n            show\n            go to x: (((X) - ((join (letter (1) of (☁ 2)) (join (letter (2) of (☁ 2)) (join (letter (3) of (☁ 2)) (letter (4) of (☁ 2))))) - (3000))) + ((Xv) / (2))) y: ((Y) - (((join (letter (5) of (☁ 2)) (join (letter (6) of (☁ 2)) (join (letter (7) of (☁ 2)) (letter (8) of (☁ 2))))) - (3000)) + ((0) - ((Yv) * (0.7)))))\n            point in direction ((join (letter (9) of (☁ 2)) (join (letter (10) of (☁ 2)) (letter (11) of (☁ 2)))) - (200))\n            switch costume to ((join (letter (12) of (☁ 2)) (letter (13) of (☁ 2))) - (10))\n            set [2チャット v] to ((join (letter (14) of (☁ 2)) (letter (15) of (☁ 2))) - (10))\n        else\n            if <(オンライン) = [1]> then\n                hide\n            end\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\n@3P\n\nwhen I receive [3p v]\nset [リスポーン中 v] to [0]\nforever\n    switch costume to (キャラコスチューム)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n        set size to (70) %\n        set rotation style [left-right v]\n        go to x: (0) y: (0)\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            point in direction (-90)\n            change [xv v] by (1)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            point in direction (90)\n            change [xv v] by (-1)\n        end\n        if <<(触れた) = [3]> or <(水に触れた) = [true]>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                set [yv v] to [-15]\n                if <(水に触れた) = [false]> then\n                    create clone of (ジャンプのエフェクト v)\n                    start sound [ニュッ v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [3p v]\nwait (1) seconds\nforever\n    if <touching color (#57ffc9)?> then\n        if <(日本語) = [0]> then\n            think [checkpoint]\n        end\n        if <(日本語) = [1]> then\n            think [チェックポイント]\n        end\n    else\n        if <touching color (#5e64ff)?> then\n            think [\(*^▽^*\)]\n        else\n            think []\n            if <(3チャット) = [0]> then\n                say (3)\n            end\n            if <[0] < (3チャット)> then\n                say (join (3) (item (3チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n            end\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nforever\n    if <not <(P) = [3]>> then\n        if <(3チャット) = [0]> then\n            say (3)\n        end\n        if <[0] < (3チャット)> then\n            say (join (3) (item (3チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nforever\n    if <<(オンライン) = [1]> and <(P) = [3]>> then\n        set [☁ 3 v] to (join (join ((3000) + (X)) (join ((3000) + (Y)) (join ((200) + (direction)) (join ((10) + (costume [number v])) ((10) + (チャット)))))) (join (タイマー) (数値化)))\n    else\n        if <<(オンライン) = [1]> and <[0] < (☁ 3)>> then\n            show\n            go to x: (((X) - ((join (letter (1) of (☁ 3)) (join (letter (2) of (☁ 3)) (join (letter (3) of (☁ 3)) (letter (4) of (☁ 3))))) - (3000))) + ((Xv) / (2))) y: ((Y) - (((join (letter (5) of (☁ 3)) (join (letter (6) of (☁ 3)) (join (letter (7) of (☁ 3)) (letter (8) of (☁ 3))))) - (3000)) + ((0) - ((Yv) * (0.7)))))\n            point in direction ((join (letter (9) of (☁ 3)) (join (letter (10) of (☁ 3)) (letter (11) of (☁ 3)))) - (200))\n            switch costume to ((join (letter (12) of (☁ 3)) (letter (13) of (☁ 3))) - (10))\n            set [3チャット v] to ((join (letter (14) of (☁ 3)) (letter (15) of (☁ 3))) - (10))\n        else\n            if <(オンライン) = [1]> then\n                hide\n            end\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\n@4P\n\nwhen I receive [4p v]\nset [リスポーン中 v] to [0]\nforever\n    switch costume to (キャラコスチューム)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n        set size to (70) %\n        set rotation style [left-right v]\n        go to x: (0) y: (0)\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            point in direction (-90)\n            change [xv v] by (1)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            point in direction (90)\n            change [xv v] by (-1)\n        end\n        if <<(触れた) = [4]> or <(水に触れた) = [true]>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                set [yv v] to [-15]\n                if <(水に触れた) = [false]> then\n                    create clone of (ジャンプのエフェクト v)\n                    start sound [ニュッ v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [4p v]\nwait (1) seconds\nforever\n    if <touching color (#57ffc9)?> then\n        if <(日本語) = [0]> then\n            think [checkpoint]\n        end\n        if <(日本語) = [1]> then\n            think [チェックポイント]\n        end\n    else\n        if <touching color (#5e64ff)?> then\n            think [\(*^▽^*\)]\n        else\n            think []\n        end\n        if <(4チャット) = [0]> then\n            say (4)\n        end\n        if <[0] < (4チャット)> then\n            say (join (4) (item (4チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nforever\n    if <not <(P) = [4]>> then\n        if <(4チャット) = [0]> then\n            say (4)\n        end\n        if <[0] < (4チャット)> then\n            say (join (4) (item (4チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nforever\n    if <<(オンライン) = [1]> and <(P) = [4]>> then\n        set [☁ 4 v] to (join (join ((3000) + (X)) (join ((3000) + (Y)) (join ((200) + (direction)) (join ((10) + (costume [number v])) ((10) + (チャット)))))) (join (タイマー) (数値化)))\n    else\n        if <<(オンライン) = [1]> and <[0] < (☁ 4)>> then\n            show\n            go to x: (((X) - ((join (letter (1) of (☁ 4)) (join (letter (2) of (☁ 4)) (join (letter (3) of (☁ 4)) (letter (4) of (☁ 4))))) - (3000))) + ((Xv) / (2))) y: ((Y) - (((join (letter (5) of (☁ 4)) (join (letter (6) of (☁ 4)) (join (letter (7) of (☁ 4)) (letter (8) of (☁ 4))))) - (3000)) + ((0) - ((Yv) * (0.7)))))\n            point in direction ((join (letter (9) of (☁ 4)) (join (letter (10) of (☁ 4)) (letter (11) of (☁ 4)))) - (200))\n            switch costume to ((join (letter (12) of (☁ 4)) (letter (13) of (☁ 4))) - (10))\n            set [4チャット v] to ((join (letter (14) of (☁ 4)) (letter (15) of (☁ 4))) - (10))\n        else\n            if <(オンライン) = [1]> then\n                hide\n            end\n        end\n    end\nend\n\n@5P\n\nwhen I receive [5p v]\nset [リスポーン中 v] to [0]\nforever\n    switch costume to (キャラコスチューム)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n        set size to (70) %\n        set rotation style [left-right v]\n        go to x: (0) y: (0)\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            point in direction (-90)\n            change [xv v] by (1)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            point in direction (90)\n            change [xv v] by (-1)\n        end\n        if <<(触れた) = [5]> or <(水に触れた) = [true]>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                set [yv v] to [-15]\n                if <(水に触れた) = [false]> then\n                    create clone of (ジャンプのエフェクト v)\n                    start sound [ニュッ v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [5p v]\nwait (1) seconds\nforever\n    if <touching color (#57ffc9)?> then\n        if <(日本語) = [0]> then\n            think [checkpoint]\n        end\n        if <(日本語) = [1]> then\n            think [チェックポイント]\n        end\n    else\n        if <touching color (#5e64ff)?> then\n            think [\(*^▽^*\)]\n        else\n            think []\n        end\n        if <(5チャット) = [0]> then\n            say (5)\n        end\n        if <[0] < (5チャット)> then\n            say (join (5) (item (5チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nforever\n    if <not <(P) = [5]>> then\n        if <(5チャット) = [0]> then\n            say (5)\n        end\n        if <[0] < (5チャット)> then\n            say (join (5) (item (5チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nforever\n    if <<(オンライン) = [1]> and <(P) = [5]>> then\n        set [☁ 5 v] to (join (join ((3000) + (X)) (join ((3000) + (Y)) (join ((200) + (direction)) (join ((10) + (costume [number v])) ((10) + (チャット)))))) (join (タイマー) (数値化)))\n    else\n        if <<(オンライン) = [1]> and <[0] < (☁ 5)>> then\n            show\n            go to x: (((X) - ((join (letter (1) of (☁ 5)) (join (letter (2) of (☁ 5)) (join (letter (3) of (☁ 5)) (letter (4) of (☁ 5))))) - (3000))) + ((Xv) / (2))) y: ((Y) - (((join (letter (5) of (☁ 5)) (join (letter (6) of (☁ 5)) (join (letter (7) of (☁ 5)) (letter (8) of (☁ 5))))) - (3000)) + ((0) - ((Yv) - (0.7)))))\n            point in direction ((join (letter (9) of (☁ 5)) (join (letter (10) of (☁ 5)) (letter (11) of (☁ 5)))) - (200))\n            switch costume to ((join (letter (12) of (☁ 5)) (letter (13) of (☁ 5))) - (10))\n            set [5チャット v] to ((join (letter (14) of (☁ 5)) (letter (15) of (☁ 5))) - (10))\n        else\n            if <(オンライン) = [1]> then\n                hide\n            end\n        end\n    end\nend\n\n@6P\n\nwhen I receive [6p v]\nset [リスポーン中 v] to [0]\nforever\n    switch costume to (キャラコスチューム)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n        set size to (70) %\n        set rotation style [left-right v]\n        go to x: (0) y: (0)\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            point in direction (-90)\n            change [xv v] by (1)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            point in direction (90)\n            change [xv v] by (-1)\n        end\n        if <<(触れた) = [6]> or <(水に触れた) = [true]>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                set [yv v] to [-15]\n                if <(水に触れた) = [false]> then\n                    create clone of (ジャンプのエフェクト v)\n                    start sound [ニュッ v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [2p v]\nwait (1) seconds\nforever\n    if <touching color (#57ffc9)?> then\n        if <(日本語) = [0]> then\n            think [checkpoint]\n        end\n        if <(日本語) = [1]> then\n            think [チェックポイント]\n        end\n    else\n        if <touching color (#5e64ff)?> then\n            think [\(*^▽^*\)]\n        else\n            think []\n        end\n        if <(6チャット) = [0]> then\n            say (6)\n        end\n        if <[0] < (6チャット)> then\n            say (join (6) (item (6チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nforever\n    if <not <(P) = [6]>> then\n        if <(6チャット) = [0]> then\n            say (6)\n        end\n        if <[0] < (6チャット)> then\n            say (join (6) (item (6チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nforever\n    if <<(オンライン) = [1]> and <(P) = [6]>> then\n        set [☁ 6 v] to (join (join ((3000) + (X)) (join ((3000) + (Y)) (join ((200) + (direction)) (join ((10) + (costume [number v])) ((10) + (チャット)))))) (join (タイマー) (数値化)))\n    else\n        if <<(オンライン) = [1]> and <[0] < (☁ 6)>> then\n            show\n            go to x: (((X) - ((join (letter (1) of (☁ 6)) (join (letter (2) of (☁ 6)) (join (letter (3) of (☁ 6)) (letter (4) of (☁ 6))))) - (3000))) + ((Xv) / (2))) y: ((Y) - (((join (letter (5) of (☁ 6)) (join (letter (6) of (☁ 6)) (join (letter (7) of (☁ 6)) (letter (8) of (☁ 6))))) - (3000)) + ((0) - ((Yv) * (0.7)))))\n            point in direction ((join (letter (9) of (☁ 6)) (join (letter (10) of (☁ 6)) (letter (11) of (☁ 6)))) - (200))\n            switch costume to ((join (letter (12) of (☁ 6)) (letter (13) of (☁ 6))) - (10))\n            set [6チャット v] to ((join (letter (14) of (☁ 6)) (letter (15) of (☁ 6))) - (10))\n        else\n            if <(オンライン) = [1]> then\n                hide\n            end\n        end\n    end\nend\n\n@7P\n\nwhen I receive [7p v]\nset [リスポーン中 v] to [0]\nforever\n    switch costume to (キャラコスチューム)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n        set size to (70) %\n        set rotation style [left-right v]\n        go to x: (0) y: (0)\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            point in direction (-90)\n            change [xv v] by (1)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            point in direction (90)\n            change [xv v] by (-1)\n        end\n        if <<(触れた) = [7]> or <(水に触れた) = [true]>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                set [yv v] to [-15]\n                if <(水に触れた) = [false]> then\n                    create clone of (ジャンプのエフェクト v)\n                    start sound [ニュッ v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [7p v]\nwait (1) seconds\nforever\n    if <touching color (#57ffc9)?> then\n        if <(日本語) = [0]> then\n            think [checkpoint]\n        end\n        if <(日本語) = [1]> then\n            think [チェックポイント]\n        end\n    else\n        if <touching color (#5e64ff)?> then\n            think [\(*^▽^*\)]\n        else\n            think []\n        end\n        if <(8チャット) = [0]> then\n            say (7)\n        end\n        if <[0] < (7チャット)> then\n            say (join (7) (item (7チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nforever\n    if <(オンライン) = [1]> then\n        if <(7チャット) = [0]> then\n            say (7)\n        end\n        if <[0] < (7チャット)> then\n            say (join (7) (item (7チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nforever\n    if <<(オンライン) = [1]> and <(P) = [7]>> then\n        set [☁ 7 v] to (join (join ((3000) + (X)) (join ((3000) + (Y)) (join ((200) + (direction)) (join ((10) + (costume [number v])) ((10) + (チャット)))))) (join (タイマー) (数値化)))\n    else\n        if <<(オンライン) = [1]> and <[0] < (☁ 7)>> then\n            show\n            go to x: (((X) - ((join (letter (1) of (☁ 7)) (join (letter (2) of (☁ 7)) (join (letter (3) of (☁ 7)) (letter (4) of (☁ 7))))) - (3000))) + ((Xv) / (2))) y: ((Y) - (((join (letter (5) of (☁ 7)) (join (letter (6) of (☁ 7)) (join (letter (7) of (☁ 7)) (letter (8) of (☁ 7))))) - (3000)) + ((0) - ((Yv) * (0.7)))))\n            point in direction ((join (letter (9) of (☁ 7)) (join (letter (10) of (☁ 7)) (letter (11) of (☁ 7)))) - (200))\n            switch costume to ((join (letter (12) of (☁ 7)) (letter (13) of (☁ 7))) - (10))\n            set [7チャット v] to ((join (letter (14) of (☁ 7)) (letter (15) of (☁ 7))) - (10))\n        else\n            if <(オンライン) = [1]> then\n                hide\n            end\n        end\n    end\nend\n\n@8P\n\nwhen I receive [8p v]\nset [リスポーン中 v] to [0]\nforever\n    switch costume to (キャラコスチューム)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n        set size to (70) %\n        set rotation style [left-right v]\n        go to x: (0) y: (0)\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            point in direction (-90)\n            change [xv v] by (1)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            point in direction (90)\n            change [xv v] by (-1)\n        end\n        if <<(触れた) = [8]> or <(水に触れた) = [true]>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                set [yv v] to [-15]\n                if <(水に触れた) = [false]> then\n                    create clone of (ジャンプのエフェクト v)\n                    start sound [ニュッ v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [8p v]\nwait (1) seconds\nforever\n    if <touching color (#57ffc9)?> then\n        if <(日本語) = [0]> then\n            think [checkpoint]\n        end\n        if <(日本語) = [1]> then\n            think [チェックポイント]\n        end\n    else\n        if <touching color (#5e64ff)?> then\n            think [\(*^▽^*\)]\n        else\n            think []\n        end\n        if <(8チャット) = [0]> then\n            say (8)\n        end\n        if <[0] < (8チャット)> then\n            say (join (8) (item (8チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nforever\n    if <not <(P) = [8]>> then\n        if <(8チャット) = [0]> then\n            say (8)\n        end\n        if <[0] < (8チャット)> then\n            say (join (8) (item (8チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nforever\n    if <<(オンライン) = [1]> and <(P) = [8]>> then\n        set [☁ 8 v] to (join (join ((3000) + (X)) (join ((3000) + (Y)) (join ((200) + (direction)) (join ((10) + (costume [number v])) ((10) + (チャット)))))) (join (タイマー) (数値化)))\n    else\n        if <<(オンライン) = [1]> and <[0] < (☁ 8)>> then\n            show\n            go to x: (((X) - ((join (letter (1) of (☁ 8)) (join (letter (2) of (☁ 8)) (join (letter (3) of (☁ 8)) (letter (4) of (☁ 8))))) - (3000))) + ((Xv) / (2))) y: ((Y) - (((join (letter (5) of (☁ 8)) (join (letter (6) of (☁ 9)) (join (letter (7) of (☁ 8)) (letter (8) of (☁ 8))))) - (3000)) + ((0) - ((Yv) * (0.7)))))\n            point in direction ((join (letter (9) of (☁ 8)) (join (letter (10) of (☁ 8)) (letter (11) of (☁ 8)))) - (200))\n            switch costume to ((join (letter (12) of (☁ 8)) (letter (13) of (☁ 8))) - (10))\n            set [8チャット v] to ((join (letter (14) of (☁ 8)) (letter (15) of (☁ 8))) - (10))\n        else\n            if <(オンライン) = [1]> then\n                hide\n            end\n        end\n    end\nend\n\n@9P\n\nwhen I receive [9p v]\nset [リスポーン中 v] to [0]\nforever\n    switch costume to (キャラコスチューム)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n        set size to (70) %\n        set rotation style [left-right v]\n        go to x: (0) y: (0)\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            point in direction (-90)\n            change [xv v] by (1)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            point in direction (90)\n            change [xv v] by (-1)\n        end\n        if <<(触れた) = [9]> or <(水に触れた) = [true]>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                set [yv v] to [-15]\n                if <(水に触れた) = [false]> then\n                    create clone of (ジャンプのエフェクト v)\n                    start sound [ニュッ v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [9p v]\nwait (1) seconds\nforever\n    if <touching color (#57ffc9)?> then\n        if <(日本語) = [0]> then\n            think [checkpoint]\n        end\n        if <(日本語) = [1]> then\n            think [チェックポイント]\n        end\n    else\n        if <touching color (#5e64ff)?> then\n            think [\(*^▽^*\)]\n        else\n            think []\n        end\n        if <(9チャット) = [0]> then\n            say (9)\n        end\n        if <[0] < (9チャット)> then\n            say (join (9) (item (9チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nforever\n    if <not <(P) = [9]>> then\n        if <(9チャット) = [0]> then\n            say (9)\n        end\n        if <[0] < (9チャット)> then\n            say (join (9) (item (9チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nforever\n    if <<(オンライン) = [1]> and <(P) = [9]>> then\n        set [☁ 9 v] to (join (join ((3000) + (X)) (join ((3000) + (Y)) (join ((200) + (direction)) (join ((10) + (costume [number v])) ((10) + (チャット)))))) (join (タイマー) (数値化)))\n    else\n        if <<(オンライン) = [1]> and <[0] < (☁ 9)>> then\n            show\n            go to x: (((X) - ((join (letter (1) of (☁ 9)) (join (letter (2) of (☁ 9)) (join (letter (3) of (☁ 9)) (letter (4) of (☁ 9))))) - (3000))) + ((Xv) / (2))) y: ((Y) - (((join (letter (5) of (☁ 9)) (join (letter (6) of (☁ 9)) (join (letter (7) of (☁ 9)) (letter (8) of (☁ 9))))) - (3000)) + ((0) - ((Yv) * (0.7)))))\n            point in direction ((join (letter (9) of (☁ 9)) (join (letter (10) of (☁ 9)) (letter (11) of (☁ 9)))) - (200))\n            switch costume to ((join (letter (12) of (☁ 9)) (letter (13) of (☁ 9))) - (10))\n            set [9チャット v] to ((join (letter (14) of (☁ 9)) (letter (15) of (☁ 9))) - (10))\n        else\n            if <(オンライン) = [1]> then\n                hide\n            end\n        end\n    end\nend\n\n@10P\n\nwhen I receive [10p v]\nset [リスポーン中 v] to [0]\nforever\n    switch costume to (キャラコスチューム)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n        set size to (70) %\n        set rotation style [left-right v]\n        go to x: (0) y: (0)\n        if <<<mouse down?> and <(x position) > (mouse x)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            point in direction (-90)\n            change [xv v] by (1)\n        end\n        if <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            point in direction (90)\n            change [xv v] by (-1)\n        end\n        if <<(触れた) = [10]> or <(水に触れた) = [true]>> then\n            if <<<mouse down?> and <(y position) < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n                set [yv v] to [-15]\n                if <(水に触れた) = [false]> then\n                    create clone of (ジャンプのエフェクト v)\n                    start sound [ニュッ v]\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [10p v]\nwait (1) seconds\nforever\n    if <touching color (#57ffc9)?> then\n        if <(日本語) = [0]> then\n            think [checkpoint]\n        end\n        if <(日本語) = [1]> then\n            think [チェックポイント]\n        end\n    else\n        if <touching color (#5e64ff)?> then\n            think [\(*^▽^*\)]\n        else\n            think []\n        end\n        if <(10チャット) = [0]> then\n            say (10)\n        end\n        if <[0] < (10チャット)> then\n            say (join (10) (item (10チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nforever\n    if <not <(P) = [10]>> then\n        if <(10チャット) = [0]> then\n            say (10)\n        end\n        if <[0] < (10チャット)> then\n            say (join (10) (item (10チャット) of [＃チャット：chat\(*^▽^*\)\(*^▽^*\) v]))\n        end\n    end\nend\n\nwhen I receive [オンラインスタート！ v]\nwait (0.01) seconds\nforever\n    if <<(オンライン) = [1]> and <(P) = [10]>> then\n        set [☁ 10 v] to (join (join ((3000) + (X)) (join ((3000) + (Y)) (join ((200) + (direction)) (join ((10) + (costume [number v])) ((10) + (チャット)))))) (join (タイマー) (数値化)))\n    else\n        if <<(オンライン) = [1]> and <[0] < (☁ 10)>> then\n            show\n            go to x: (((X) - ((join (letter (1) of (☁ 10)) (join (letter (2) of (☁ 10)) (join (letter (3) of (☁ 10)) (letter (4) of (☁ 10))))) - (3000))) + ((Xv) / (2))) y: ((Y) - (((join (letter (5) of (☁ 10)) (join (letter (6) of (☁ 10)) (join (letter (7) of (☁ 10)) (letter (8) of (☁ 10))))) - (3000)) + ((0) - ((Yv) * (0.7)))))\n            point in direction ((join (letter (9) of (☁ 10)) (join (letter (10) of (☁ 10)) (letter (11) of (☁ 10)))) - (200))\n            switch costume to ((join (letter (12) of (☁ 10)) (letter (13) of (☁ 10))) - (10))\n            set [10チャット v] to ((join (letter (14) of (☁ 10)) (letter (15) of (☁ 10))) - (10))\n        else\n            if <(オンライン) = [1]> then\n                hide\n            end\n        end\n    end\nend\n\n@チェックポイント等\n\nwhen I receive [スタート v]\ngo to [front v] layer\ngo [backward v] (5) layers\nforever\n    if <(日本語) = [1]> then\n        switch costume to (コスチューム1 v)\n    end\n    if <(日本語) = [0]> then\n        switch costume to (コスチューム2 v)\n    end\n    go to x: (X) y: (Y)\n    if <(リスポーン中) = [1]> then\n        hide\n    end\n    if <(リスポーン中) = [0]> then\n        show\n    end\nend\n\nwhen flag clicked\nhide\n\n@当たり判定\n\nwhen flag clicked\nforever\n    show\n    set size to (100) %\n    go to x: (0) y: (0)\n    set [ghost v] effect to (100)\n    if <(キャラコスチューム) = [9]> then\n        switch costume to (コスチューム2 v)\n    else\n        switch costume to (コスチューム1 v)\n    end\nend\n\nwhen flag clicked\nforever\n    set [水に触れた v] to <touching (水 v)?>\nend\n\nwhen flag clicked\nset [水に触れた v] to [false]\nforever\n    wait until <(水に触れた) = [true]>\n    start sound [水に飛び込む v]\n    wait until <not <(水に触れた) = [true]>>\n    start sound [水から出る v]\nend\n\n@空の雲\n\nwhen I receive [スタート v]\nhide\nforever\n    switch costume to (pick random (1) to (3))\n    set [ghost v] effect to (pick random (10) to (30))\n    wait (pick random (2) to (0.7)) seconds\n    create clone of (_myself_ v)\n    go to x: (276) y: (pick random (100) to (150))\nend\n\nwhen I start as a clone\nshow\ngo to [back v] layer\nglide (pick random (3) to (10)) secs to x: (-276) y: (y position)\nhide\ndelete this clone\n\n@タイマー\n\ndefine 確かめる\nタイマー記憶\nwait (4) seconds\nif <(letter (1) of (タイマー記憶)) = (letter (16) of (☁ 1))> then\n    set [☁ 1 v] to [0]\nend\nif <(letter (2) of (タイマー記憶)) = (letter (16) of (☁ 2))> then\n    set [☁ 2 v] to [0]\nend\nif <(letter (3) of (タイマー記憶)) = (letter (16) of (☁ 3))> then\n    set [☁ 3 v] to [0]\nend\nif <(letter (4) of (タイマー記憶)) = (letter (16) of (☁ 4))> then\n    set [☁ 4 v] to [0]\nend\nif <(letter (5) of (タイマー記憶)) = (letter (16) of (☁ 5))> then\n    set [☁ 5 v] to [0]\nend\nif <(letter (6) of (タイマー記憶)) = (letter (16) of (☁ 6))> then\n    set [☁ 6 v] to [0]\nend\nif <(letter (7) of (タイマー記憶)) = (letter (16) of (☁ 7))> then\n    set [☁ 7 v] to [0]\nend\nif <(letter (8) of (タイマー記憶)) = (letter (16) of (☁ 8))> then\n    set [☁ 8 v] to [0]\nend\nif <(letter (9) of (タイマー記憶)) = (letter (16) of (☁ 9))> then\n    set [☁ 9 v] to [0]\nend\nif <(letter (10) of (タイマー記憶)) = (letter (16) of (☁ 10))> then\n    set [☁ 10 v] to [0]\nend\n\nwhen flag clicked\nforever\n    確かめる\nend\n\nset [タイマー記憶 v] to (join (letter (16) of (☁ 1)) (join (letter (16) of (☁ 2)) (join (letter (16) of (☁ 3)) (join (letter (16) of (☁ 4)) (join (letter (16) of (☁ 5)) (join (letter (16) of (☁ 6)) (join (letter (16) of (☁ 7)) (join (letter (16) of (☁ 8)) (join (letter (16) of (☁ 9)) (letter (16) of (☁ 10)))))))))))\n\nwhen I receive [オンラインスタート！ v]\nforever\n    set [タイマー v] to (([floor v] of ((timer) * (3)) ) mod (10))\nend\n\ndefine タイマー記憶\ndelete all of [data v]\nif <(letter (16) of (☁ 1)) = []> then\n    add [?] to [data v]\nelse\n    add (letter (16) of (☁ 1)) to [data v]\nend\nif <(letter (16) of (☁ 2)) = []> then\n    add [?] to [data v]\nelse\n    add (letter (16) of (☁ 2)) to [data v]\nend\nif <(letter (16) of (☁ 3)) = []> then\n    add [?] to [data v]\nelse\n    add (letter (16) of (☁ 3)) to [data v]\nend\nif <(letter (16) of (☁ 4)) = []> then\n    add [?] to [data v]\nelse\n    add (letter (16) of (☁ 4)) to [data v]\nend\nif <(letter (16) of (☁ 5)) = []> then\n    add [?] to [data v]\nelse\n    add (letter (16) of (☁ 5)) to [data v]\nend\nif <(letter (16) of (☁ 6)) = []> then\n    add [?] to [data v]\nelse\n    add (letter (16) of (☁ 6)) to [data v]\nend\nif <(letter (16) of (☁ 7)) = []> then\n    add [?] to [data v]\nelse\n    add (letter (16) of (☁ 7)) to [data v]\nend\nif <(letter (16) of (☁ 8)) = []> then\n    add [?] to [data v]\nelse\n    add (letter (16) of (☁ 8)) to [data v]\nend\nif <(letter (16) of (☁ 9)) = []> then\n    add [?] to [data v]\nelse\n    add (letter (16) of (☁ 9)) to [data v]\nend\nif <(letter (16) of (☁ 10)) = []> then\n    add [?] to [data v]\nelse\n    add (letter (16) of (☁ 10)) to [data v]\nend\nset [タイマー記憶 v] to (data)\n\n@ユーザー名変換\n\nwhen flag clicked\ndelete all of [材料 v]\nset [材料 v] to [abcdefghijklmnopqrstuvwxyz0123456789-_]\nset [a v] to [0]\nset [i v] to [0]\nset [数値化 v] to []\nrepeat (length of (材料))\n    change [a v] by (1)\n    add (letter (a) of (材料)) to [材料 v]\nend\nrepeat (length of (username))\n    change [i v] by (1)\n    set [数値化 v] to (join (数値化) ((item # of (letter (i) of (username)) in [材料 v]) + (10)))\nend\n\nwhen flag clicked\n\nwhen I receive [スタート v]\n\nwhen I receive [1 v]\nset [o v] to [16]\nset [1 v] to []\nrepeat ((length of (☁ 1)) - (16))\n    change [o v] by (2)\n    set [1 v] to (join (1) (item ((join (letter ((o) - (1)) of (☁ 1)) (letter (o) of (☁ 1))) - (10)) of [材料 v]))\nend\n\nwhen I receive [2 v]\nset [o v] to [16]\nset [2 v] to []\nrepeat ((length of (☁ 2)) - (16))\n    change [o v] by (2)\n    set [2 v] to (join (2) (item ((join (letter ((o) - (1)) of (☁ 2)) (letter (o) of (☁ 2))) - (10)) of [材料 v]))\nend\n\nwhen I receive [3 v]\nset [o v] to [16]\nset [3 v] to []\nrepeat ((length of (☁ 3)) - (16))\n    change [o v] by (2)\n    set [3 v] to (join (3) (item ((join (letter ((o) - (1)) of (☁ 3)) (letter (o) of (☁ 3))) - (10)) of [材料 v]))\nend\n\nwhen I receive [4 v]\nset [o v] to [16]\nset [4 v] to []\nrepeat ((length of (☁ 4)) - (16))\n    change [o v] by (2)\n    set [4 v] to (join (4) (item ((join (letter ((o) - (1)) of (☁ 4)) (letter (o) of (☁ 4))) - (10)) of [材料 v]))\nend\n\nwhen I receive [5 v]\nset [o v] to [16]\nset [5 v] to []\nrepeat ((length of (☁ 5)) - (16))\n    change [o v] by (2)\n    set [5 v] to (join (5) (item ((join (letter ((o) - (1)) of (☁ 5)) (letter (o) of (☁ 5))) - (10)) of [材料 v]))\nend\n\nwhen I receive [6 v]\nset [o v] to [16]\nset [6 v] to []\nrepeat ((length of (☁ 6)) - (16))\n    change [o v] by (2)\n    set [6 v] to (join (6) (item ((join (letter ((o) - (1)) of (☁ 6)) (letter (o) of (☁ 6))) - (10)) of [材料 v]))\nend\n\nwhen I receive [7 v]\nset [o v] to [16]\nset [7 v] to []\nrepeat ((length of (☁ 7)) - (16))\n    change [o v] by (2)\n    set [7 v] to (join (7) (item ((join (letter ((o) - (1)) of (☁ 7)) (letter (o) of (☁ 7))) - (10)) of [材料 v]))\nend\n\nwhen I receive [8 v]\nset [o v] to [16]\nset [8 v] to []\nrepeat ((length of (☁ 8)) - (16))\n    change [o v] by (2)\n    set [8 v] to (join (8) (item ((join (letter ((o) - (1)) of (☁ 8)) (letter (o) of (☁ 8))) - (10)) of [材料 v]))\nend\n\nwhen I receive [9 v]\nset [o v] to [16]\nset [9 v] to []\nrepeat ((length of (☁ 9)) - (16))\n    change [o v] by (2)\n    set [9 v] to (join (9) (item ((join (letter ((o) - (1)) of (☁ 9)) (letter (o) of (☁ 9))) - (10)) of [材料 v]))\nend\n\nwhen I receive [10 v]\nset [o v] to [16]\nset [10 v] to []\nrepeat ((length of (☁ 10)) - (16))\n    change [o v] by (2)\n    set [10 v] to (join (10) (item ((join (letter ((o) - (1)) of (☁ 10)) (letter (o) of (☁ 10))) - (10)) of [材料 v]))\nend\n\nwhen flag clicked\nforever\n    broadcast (1 v) and wait\n    broadcast (2 v) and wait\n    broadcast (3 v) and wait\n    broadcast (4 v) and wait\n    broadcast (5 v) and wait\n    broadcast (6 v) and wait\n    broadcast (7 v) and wait\n    broadcast (8 v) and wait\n    broadcast (9 v) and wait\n    broadcast (10 v) and wait\n    wait (5) seconds\nend\n\n@メンテナンス\n\nwhen flag clicked\nhide\nforever\n\nif <not < (メンテナンス中ホワイトリスト) contains (username)?>> then\n    go to x: (0) y: (0)\n    show\n    go to [front v] layer\n    stop [all v]\nend\n\n@水\n\nwhen I receive [スタート v]\nbroadcast (水のクローン削除 v)\n位置を x座標 [830] y座標 [1110] コスチュームの種類を [水] にしてクローンを作成する\n位置を x座標 [685] y座標 [1110] コスチュームの種類を [水] にしてクローンを作成する\n位置を x座標 [540] y座標 [1110] コスチュームの種類を [水] にしてクローンを作成する\n位置を x座標 [395] y座標 [1110] コスチュームの種類を [水] にしてクローンを作成する\n位置を x座標 [250] y座標 [1110] コスチュームの種類を [水] にしてクローンを作成する\n\nwhen I start as a clone\nforever\n    if <(costume [name v]) = [水]> then\n        switch costume to (空白 v)\n        set size to (70) %\n        switch costume to (水 v)\n        set [ghost v] effect to (30)\n        go to x: (((X) - ((join (join (letter (1) of (x座標とy座標)) (letter (2) of (x座標とy座標))) (join (letter (3) of (x座標とy座標)) (letter (4) of (x座標とy座標)))) - (3000))) + ((Xv) / (2))) y: (((Y) - (((join (join (letter (5) of (x座標とy座標)) (letter (6) of (x座標とy座標))) (join (letter (7) of (x座標とy座標)) (letter (8) of (x座標とy座標)))) - (3000)) + ((0) - ((Yv) * (0.8))))) + (([sin v] of (sin) ) * (30)))\n    end\nend\n\ndefine 位置を x座標 (x座標) y座標 (y座標) コスチュームの種類を (コスチュームの種類) にしてクローンを作成する\nswitch costume to (コスチュームの種類)\nset [x座標とy座標 v] to (join ((x座標) + (3000)) ((y座標) + (3000)))\ncreate clone of (_myself_ v)\n\nwhen I receive [水のクローン削除 v]\ndelete this clone\n\ndefine 次のコスチュームにする\nswitch costume to ((costume [number v]) + (1))\n\ndefine 前のコスチュームにする\nswitch costume to ((costume [number v]) - (1))\n\nwhen I start as a clone\ngo to [front v] layer\nforever\n    if <<<[295] < (x position)> or <(x position) < [-295]>> or <<[260] < (y position)> or <(y position) < [-260]>>> then\n        hide\n    else\n        show\n        say []\n    end\nend\n\nwhen flag clicked\nhide\n\n@サムネ\n\nwhen flag clicked\nhide\ngo to [front v] layer\n\n@Pentro byAZITUKETAMAGO\n\nwhen flag clicked\nerase all\n\ndefine wait (timer)\nwait until <(timer) < (timer)>\n\ndefine 省略 (ナンバー)\nif <[1] = (ナンバー)> then\n    go to x: (0) y: (0)\n    switch costume to (pen1 v)\n    set size to (演算1) %\n    switch costume to (pだけ v)\n    clear graphic effects\n    色(コス)\n    stamp\n    change [演算1 v] by (((100) - (演算1)) / (5))\n    turn right (([abs v] of ((90) - (direction)) ) / (5)) degrees\nelse\n    if <[2] = (ナンバー)> then\n        go to x: (0) y: (0)\n        switch costume to (pen1 v)\n        set size to (演算1) %\n        switch costume to (pだけ v)\n        clear graphic effects\n        色(コス)\n        stamp\n        change [演算1 v] by (((演算1) - (75)) / (1.35))\n        turn right (([abs v] of ((90) - (direction)) ) / (5)) degrees\n    else\n        if <[3] = (ナンバー)> then\n            switch costume to (pen1 v)\n            set size to (演算1) %\n            switch costume to (アイコン\(白枠\) v)\n            clear graphic effects\n            色(コス)\n            set [brightness v] effect to (演算3)\n            if <(演算3) < [-4]> then\n                change [演算3 v] by (5)\n            end\n            point in direction (演算4)\n            set [演算4 v] to (direction)\n            change [演算4 v] by (((90) - (演算4)) / (5))\n            go to x: (0) y: (0)\n            if <[3] < (timer)> then\n                change x by (([sin v] of ((((size) - (100)) + (((timer) * (10)) mod (360))) * (10)) ) * (2))\n                change y by (([cos v] of ((((size) - (100)) + (((timer) * (10)) mod (360))) * (10)) ) * (2))\n            else\n                go to x: (0) y: (0)\n            end\n            stamp\n        end\n    end\nend\n\ndefine ペン設定\nswitch costume to (pen1 v)\nset size to ((1) / (0)) %\nswitch costume to (pen2 v)\n\ndefine あみあみ\nset pen size to (5)\nset pen color to (#bc0000)\nset pen (color v) to (色)\nset [1 v] to [170]\nrepeat (18)\n    pen up\n    go to x: ((240) + (([sin v] of ((timer) * (200)) ) * (5))) y: ((1) + (([cos v] of ((timer) * (200)) ) * (5)))\n    pen down\n    go to x: ((-240) + (([sin v] of ((timer) * (200)) ) * (5))) y: ((1) + (([cos v] of ((timer) * (200)) ) * (5)))\n    change [1 v] by (-20)\nend\nset [1 v] to [-230]\nrepeat (24)\n    pen up\n    go to x: ((1) + (([sin v] of ((timer) * (200)) ) * (5))) y: ((180) + (([cos v] of ((timer) * (200)) ) * (5)))\n    pen down\n    go to x: ((1) + (([sin v] of ((timer) * (200)) ) * (5))) y: ((-180) + (([cos v] of ((timer) * (200)) ) * (5)))\n    change [1 v] by (20)\nend\npen up\n\ndefine 色(コス)\nchange [color v] effect by ((色) * (2))\n\ndefine #16　リセット\nreplace item (1) of [#6　サイズ v] with [0]\nset [#6　保存 v] to [0]\n\ndefine #16　設定\ndelete all of [#6　サイズ v]\nset [i v] to [0]\nrepeat (9)\n    change [i v] by (1)\n    add [0] to [#6　サイズ v]\nend\n\ndefine #16　演算\nchange [#6　保存 v] by (((100) - (item (1) of [#6　サイズ v])) / (7))\nreplace item (1) of [#6　サイズ v] with (#6　保存)\nreplace item (2) of [#6　サイズ v] with ((#6　保存) + (100))\nreplace item (3) of [#6　サイズ v] with ((#6　保存) + (200))\nreplace item (4) of [#6　サイズ v] with ((#6　保存) + (300))\nreplace item (5) of [#6　サイズ v] with ((#6　保存) + (400))\nreplace item (6) of [#6　サイズ v] with ((#6　保存) + (500))\nreplace item (7) of [#6　サイズ v] with ((#6　保存) + (600))\nreplace item (8) of [#6　サイズ v] with ((#6　保存) + (700))\nreplace item (9) of [#6　サイズ v] with ((#6　保存) + (800))\n\ndefine #16　描写 (x) (y) (タイマー) (あ) (か) (わ)\nset [#6 四角1 v] to (あ)\n色(PEN) [20] ←太さ\npen up\nset [i v] to [1]\nrepeat (9)\n    repeat (2)\n        go to x: (((([sin v] of (#6 四角1) ) * (item (i) of [#6　サイズ v])) + (x)) * (か)) y: (((([cos v] of (#6 四角1) ) * (item (i) of [#6　サイズ v])) + (y)) * (わ))\n        pen down\n        change [#6 四角1 v] by (90)\n    end\n    change [#6 四角1 v] by (-180)\n    pen up\n    change [i v] by (1)\nend\n\ndefine 四角 (sizu) (x) (y) (タイマー)\nif <(timer) < (タイマー)> then\n\ndefine #10描写 (くるくるの枚数) (くるくるの大きさ) (x) (y) (曲がる角度) (タイマー)\nif <(timer) < (タイマー)> then\n\ndefine 色(PEN) (ペンの太さ) ←太さ\nset pen color to (#ff0000)\nset pen (color v) to (色)\nset pen size to (ペンの太さ)\n\ndefine #8　初期設定\ndelete all of [#8 v]\nx座標 [180] Y座標 [140] 個数 [8] 最初向き [0] 色 [90] 目長さ [50] 今長今太 元太さ [20] 目標半径 [80] 今半径\nx座標 [-180] Y座標 [-140] 個数 [8] 最初向き [0] 色 [90] 目長さ [50] 今長今太 元太さ [20] 目標半径 [80] 今半径\nx座標 [-180] Y座標 [140] 個数 [8] 最初向き [0] 色 [90] 目長さ [50] 今長今太 元太さ [20] 目標半径 [80] 今半径\nx座標 [180] Y座標 [-140] 個数 [8] 最初向き [0] 色 [90] 目長さ [50] 今長今太 元太さ [20] 目標半径 [80] 今半径\nx座標 [180] Y座標 [0] 個数 [8] 最初向き [0] 色 [90] 目長さ [50] 今長今太 元太さ [20] 目標半径 [60] 今半径\nx座標 [-180] Y座標 [0] 個数 [8] 最初向き [0] 色 [90] 目長さ [50] 今長今太 元太さ [20] 目標半径 [60] 今半径\nx座標 [0] Y座標 [140] 個数 [8] 最初向き [0] 色 [90] 目長さ [50] 今長今太 元太さ [20] 目標半径 [60] 今半径\nx座標 [0] Y座標 [-140] 個数 [8] 最初向き [0] 色 [90] 目長さ [50] 今長今太 元太さ [20] 目標半径 [60] 今半径\nx座標 [125] Y座標 [-75] 個数 [4] 最初向き [45] 色 [90] 目長さ [50] 今長今太 元太さ [30] 目標半径 [40] 今半径\nx座標 [-125] Y座標 [75] 個数 [4] 最初向き [45] 色 [90] 目長さ [50] 今長今太 元太さ [30] 目標半径 [40] 今半径\nx座標 [-125] Y座標 [-75] 個数 [4] 最初向き [45] 色 [90] 目長さ [50] 今長今太 元太さ [30] 目標半径 [40] 今半径\nx座標 [125] Y座標 [75] 個数 [4] 最初向き [45] 色 [90] 目長さ [50] 今長今太 元太さ [30] 目標半径 [40] 今半径\n\ndefine #8　置き換え (ナンバー) (段数) (置き換え数値)\nreplace item ((((ナンバー) * (11)) - (10)) + (段数)) of [#8 v] with (置き換え数値)\n\ndefine x座標 (x) Y座標 (y) 個数 (個) 最初向き (向) 色 (色) 目長さ (目長) 今長今太 元太さ (元太) 目標半径 (目半) 今半径\nadd (x) to [#8 v]\nadd (y) to [#8 v]\nadd (個) to [#8 v]\nadd (向) to [#8 v]\nadd (色) to [#8 v]\nadd (目長) to [#8 v]\nadd [0] to [#8 v]\nadd [50] to [#8 v]\nadd (元太) to [#8 v]\nadd (目半) to [#8 v]\nadd [0] to [#8 v]\n\ndefine #8　描写 (識別ナンバー) (長さ変更) (タイマー)\nif <(timer) < (タイマー)> then\npen up\n\ndefine エフェクト(アイコン後ろ)\n#17　識別ナンバー [1] [3.8]\n#8　描写 [1] [] [2]\n#8　描写 [2] [] [2]\n#8　描写 [3] [] [2.7]\n#8　描写 [4] [] [2.7]\n#8　描写 [5] [] [3.3]\n#8　描写 [6] [] [3.3]\n#8　描写 [7] [] [3.3]\n#8　描写 [8] [] [3.3]\n#8　描写 [9] [] [4.9]\n#8　描写 [10] [] [4.9]\n#8　描写 [11] [] [5.5]\n#8　描写 [12] [] [5.5]\n#8　置き換え [9] [3] (((timer) * (-100)) mod (360))\n#8　置き換え [10] [3] (((timer) * (100)) mod (360))\n#8　置き換え [11] [3] (((timer) * (-100)) mod (360))\n#8　置き換え [12] [3] (((timer) * (100)) mod (360))\nまる [1] [2.7]\nまる [2] [2.7]\nまる [3] [3.3]\nまる [4] [3.3]\nまる [5] [3.3]\nまる [6] [3.3]\nまる [7] [3.8]\nまる [8] [3.8]\nまる [9] [4.4]\nまる [10] [4.4]\nまる [13] [4.9]\nまる [14] [4.9]\nまる [11] [5.5]\nまる [12] [5.5]\n1/4 [1] [3.8]\n1/4 [3] [3.8]\n1/4 [2] [4.4]\n1/4 [4] [4.4]\n\ndefine #4リスト X (x) Y (y) 最大サイズ (最大) 色 (色)\nadd (x) to [#5 v]\nadd (y) to [#5 v]\nadd [0] to [#5 v]\nadd (最大) to [#5 v]\nadd (色) to [#5 v]\n\ndefine まる (識別ナンバー) (タイマー)\nif <(timer) < (タイマー)> then\npen up\n\ndefine ショックウェーブ初期設定\ndelete all of [#5 v]\n#4リスト X [180] Y [140] 最大サイズ [100] 色 [50]\n#4リスト X [-180] Y [-140] 最大サイズ [100] 色 [60]\n#4リスト X [-180] Y [140] 最大サイズ [100] 色 [50]\n#4リスト X [180] Y [-140] 最大サイズ [100] 色 [60]\n#4リスト X [180] Y [140] 最大サイズ [100] 色 [50]\n#4リスト X [-180] Y [-140] 最大サイズ [100] 色 [60]\n#4リスト X [240] Y [-180] 最大サイズ [100] 色 [50]\n#4リスト X [-240] Y [180] 最大サイズ [100] 色 [60]\n#4リスト X [240] Y [180] 最大サイズ [100] 色 [50]\n#4リスト X [-240] Y [-180] 最大サイズ [100] 色 [60]\n#4リスト X [125] Y [-75] 最大サイズ [100] 色 [50]\n#4リスト X [-125] Y [75] 最大サイズ [100] 色 [60]\n#4リスト X [-125] Y [-75] 最大サイズ [100] 色 [50]\n#4リスト X [125] Y [75] 最大サイズ [100] 色 [60]\n\ndefine #17-0\ndelete all of [#17 v]\nadd [-260] to [#17 v]\nadd [-260] to [#17 v]\n\ndefine #17　識別ナンバー (ナンバー) (タイマー)\nif <(timer) < (タイマー)> then\n\ndefine #5リスト X (x) Y (y) 最大サイズ (最大) 色 (色) (向き)\nadd (x) to [1/4 v]\nadd (y) to [1/4 v]\nadd [0] to [1/4 v]\nadd (最大) to [1/4 v]\nadd (色) to [1/4 v]\nadd ((向き) * (90)) to [1/4 v]\n\ndefine 1/4 (識別ナンバー) (タイマー)\nif <(timer) < (タイマー)> then\n\ndefine #5 0\ndelete all of [1/4 v]\n#5リスト X [0] Y [0] 最大サイズ [120] 色 [0] [0]\n#5リスト X [0] Y [0] 最大サイズ [120] 色 [0] [1]\n#5リスト X [0] Y [0] 最大サイズ [120] 色 [0] [2]\n#5リスト X [0] Y [0] 最大サイズ [120] 色 [0] [3]\n\ndefine #9　描写 (サイズ) (タイマー)\nif <(timer) < (タイマー)> then\n\ndefine 降ろす上げる\npen down\npen up\n\nwhen flag clicked\nwait (1) seconds\nwait [2]\nrepeat until <[500] < (timer)>\n    #16　リセット\n    wait (0.55) seconds\n    set [演算1 v] to [150]\n    set [演算4 v] to (pick random (70) to (110))\nend\n\nwhen flag clicked\n#5 0\n#8　初期設定\nショックウェーブ初期設定\n#17-0\nset [色 v] to [95]\nhide\nstart sound [music2 v]\npoint in direction (100)\nreset timer\nerase all\n#16　設定\nwait [0.5]\nset [演算1 v] to [1000]\nset [演算2 v] to [0]\nrepeat until <[1] < (timer)>\n    erase all\n    ペン設定\n    change [演算2 v] by (((600) - (演算2)) / (7))\n    go to x: (0) y: (0)\n    set pen color to (#ffffff)\n    set pen size to (演算2)\n    降ろす上げる\n    省略 [1]\nend\nrepeat until <[1.5] < (timer)>\n    erase all\n    ペン設定\n    change [演算2 v] by (((0) - (演算2)) / (5))\n    go to x: (0) y: (0)\n    set pen color to (#ffffff)\n    set pen size to (演算2)\n    降ろす上げる\n    省略 [1]\nend\nset [演算2 v] to [25]\nset [演算1 v] to [100]\nset [1 v] to [100]\nrepeat until <[2] < (timer)>\n    erase all\n    ペン設定\n    change [演算2 v] by ((演算2) / (2))\n    change [1 v] by (-6.7)\n    go to x: (0) y: (0)\n    set pen color to (#bc001b)\n    set pen (color v) to (色)\n    set pen (brightness v) to (1)\n    set pen size to (演算2)\n    降ろす上げる\n    省略 [2]\nend\nset [演算1 v] to [1000]\nset [演算3 v] to [-100]\nset [#9　サイズ v] to [120]\nrepeat until <[8] < (timer)>\n    erase all\n    ペン設定\n    change [演算2 v] by (((600) - (演算2)) / (5))\n    change [演算1 v] by (((100) - (演算1)) / (5))\n    go to x: (0) y: (0)\n    point in direction (90)\n    set pen color to (#bc001b)\n    set pen (color v) to (色)\n    set pen size to (演算2)\n    降ろす上げる\n    #16　演算\n    #16　描写 [-250] [180] [] [90] [-1] [1]\n    #16　描写 [-250] [-180] [] [0] [1] [1]\n    #16　描写 [250] [180] [] [180] [-1] [1]\n    #16　描写 [250] [-180] [] [270] [1] [1]\n    あみあみ\n    #10描写 [3] [2] (([sin v] of ((timer) * (100)) ) * (5)) (([cos v] of ((timer) * (100)) ) * (5)) [1] []\n    四角 (((timer) * (100)) mod (100)) [0] [0] [0]\n    エフェクト(アイコン後ろ)\n    省略 [3]\n    ペン設定\n    #9　描写 (#9　サイズ) [6]\nend\nbroadcast (intro end v)\nset [#9　サイズ v] to [600]\nrepeat (50)\n    go to x: (0) y: (0)\n    erase all\n    set pen color to (#000000)\n    set pen size to (#9　サイズ)\n    降ろす上げる\n    change [#9　サイズ v] by (((0) - (#9　サイズ)) / (8))\nend\nerase all\nbroadcast (PIKURIN v)\n\n