☁️online カンけり‼︎☁️  #game #platformer   Ver2.0
@Stage\n\nwhen flag clicked\nforever\n    play sound [TheFatRat-Xenogenesi v] until done\nend\n\nwhen I receive [start v]\nstop [other scripts in sprite v]\nset volume to (100) %\nif <(鬼?) = [1]> then\n    forever\n        play sound (pick random (6) to (8)) until done\n    end\nelse\n    forever\n        play sound (pick random (1) to (4)) until done\n    end\nend\n\nwhen flag clicked\nset [無敵 v] to [1]\nhide list [user v]\n\nwhen I receive [キャラ設定終了 v]\nshow list [user v]\n\nwhen [timer v] > (time)\nshow list [user v]\n\n@軽量化\n\n@プレイヤー\n\nwhen flag clicked\ngo to [front v] layer\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 (join (costume [name v]) (username))\n        else\n            say (join (join (username) (item (鬼?) of [n?o? v])) (join [:] (item (chat) of [chat v])))\n        end\n    end\n    if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n        if <(item (鬼?) of [n?o? v]) = [逃げ]> then\n            if <(スピードアップ) = [1]> then\n                change [x v] by (3.5)\n            else\n                change [x v] by (1.29)\n            end\n        else\n            change [x v] by (1.1)\n        end\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        if <(item (鬼?) of [n?o? v]) = [逃げ]> then\n            if <(スピードアップ) = [1]> then\n                change [x v] by (-3.5)\n            else\n                change [x v] by (-1.29)\n            end\n        else\n            change [x v] by (-1.1)\n        end\n    end\n    set [x v] to ((x) * (0.87))\n    change x by (round (x))\n    if <touching (ステージ v)?> then\n        change y by (1)\n        if <touching (ステージ v)?> then\n            change y by (1)\n            if <touching (ステージ v)?> then\n                change y by (1)\n                if <touching (ステージ v)?> then\n                    change y by (1)\n                    if <touching (ステージ v)?> then\n                        change y by (1)\n                        if <touching (ステージ v)?> then\n                            change y by (1)\n                        end\n                    end\n                end\n            end\n        end\n    end\n    if <touching (ステージ v)?> then\n        壁\n    end\n    change [y v] by (-1.5)\n    change y by (y)\n    if <touching (ステージ v)?> then\n        床\n    end\n    change [scroll x v] by (round ((x position) / (10)))\n    change x by ((0) - ((round ((x position) / (10))) * <not <<(scroll x) < [0]> or <[5650] < (scroll x)>>>))\n    if <(scroll x) < [0]> then\n        set [scroll x v] to [0]\n    end\n    if <[5650] < (scroll x)> then\n        set [scroll x v] to [5650]\n    end\n    change [scroll y v] by (round ((y position) / (10)))\n    change y by ((0) - ((round ((y position) / (10))) * <not <(scroll y) < [0]>>))\n    if <(scroll y) < [0]> then\n        set [scroll y v] to [0]\n    end\n    if <(y) < [-21]> then\n        change [y v] by (1.5)\n    end\nend\nset y to (round (y position))\npoint in direction ((90) + (round (x)))\n\ndefine 初期化\nstart sound [Rip v]\nhide\nrepeat until <<([abs v] of ((scroll y) - (YY)) ) < [3]> and <([abs v] of ((scroll x) - (XX)) ) < [3]>>\n    change [scroll x v] by (round (((XX) - (scroll x)) / (5)))\n    change [scroll y v] by (round (((YY) - (scroll y)) / (5)))\nend\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (0) y: (0)\nbroadcast (monster v)\nshow\n\ndefine 壁\nset [？ v] to [0]\nchange y by (-4.5)\nrepeat until <<[100] < (？)> or <not <touching (ステージ v)?>>>\n    change [？ v] by (1)\n    change x by ((-1) * ((x) / ([abs v] of (x) )))\nend\nif <[100] < (？)> then\n    repeat (？)\n        change x by ((1) * ((x) / ([abs v] of (x) )))\n    end\nelse\n    if <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n        set [y v] to [18]\n        set [x v] to ((-7) * ((x) / ([abs v] of (x) )))\n        start sound [壁キック v]\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    if <(item (鬼?) of [n?o? v]) = [逃げ]> then\n        if <(ジャンプアップ) = [1]> then\n            set [y v] to [30]\n        else\n            set [y v] to [21]\n        end\n    else\n        set [y v] to [18]\n    end\n    start sound [JUMP v]\nelse\n    set [y v] to [0]\nend\n\nwhen I receive [場所設定 v]\nif <(username) = [k-44]> then\n    if <(鬼?) = [1]> then\n        show\n        set [！ v] to [0]\n        set [scroll x v] to [0]\n        set [scroll y v] to [25]\n        go to x: (0) y: (0)\n        set [x v] to [0]\n        set [y v] to [0]\n    else\n        show\n        set [！ v] to [0]\n        set [scroll x v] to [4115]\n        set [scroll y v] to [260]\n        go to x: (0) y: (0)\n        set [x v] to [0]\n        set [y v] to [0]\n    end\nelse\n    if <<(costume [name v]) = [N；]> or <(costume [name v]) = []>> then\n        show\n        set [！ v] to [0]\n        set [scroll x v] to [0]\n        set [scroll y v] to [25]\n        go to x: (0) y: (0)\n        set [x v] to [0]\n        set [y v] to [0]\n    end\n    if <(costume [name v]) = [O；]> then\n        show\n        set [！ v] to [0]\n        set [scroll x v] to [4115]\n        set [scroll y v] to [260]\n        go to x: (0) y: (0)\n        set [x v] to [0]\n        set [y v] to [0]\n    end\nend\nforever\n    prayer\nend\n\nwhen I receive [start v]\nforever\n    if <(username) = [k-44]> then\n        switch costume to (\[作者\] v)\n    else\n        if <(透明化) = [1]> then\n            switch costume to ( v)\n        else\n            switch costume to ([costume # v] of [キャラ設定 v])\n        end\n    end\nend\n\nwhen I receive [start v]\nset [！ v] to [0]\nforever\n    if <(chat) = []> then\n        if <<(costume [name v]) = [N；]> and <touching color (#ff0000)?>> then\n            change [☁ 得点2 v] by (1)\n            start sound [Rip v]\n            set [！ v] to [1]\n            broadcast (場所設定 v)\n            set [！ v] to [0]\n        end\n        if <<(costume [name v]) = [O；]> and <touching (バリア v)?>> then\n            change [☁ 得点1 v] by (1)\n            start sound [Rip v]\n            set [！ v] to [1]\n            broadcast (場所設定 v)\n            set [！ v] to [0]\n        end\n        if <<(y position) < [-179]> or <touching (障害物 v)?>> then\n            start sound [Rip v]\n            set [！ v] to [1]\n            broadcast (場所設定 v)\n            set [！ v] to [0]\n        end\n    else\n        if <<(costume [name v]) = [N；]> and <touching color (#ff0000)?>> then\n            change [☁ 得点2 v] by (1)\n            start sound [Rip v]\n            set [！ v] to [1]\n            broadcast (場所設定 v)\n            set [！ v] to [0]\n        end\n        if <<(costume [name v]) = [O；]> and <touching (バリア v)?>> then\n            change [☁ 得点1 v] by (1)\n            start sound [Rip v]\n            set [！ v] to [1]\n            broadcast (場所設定 v)\n            set [！ v] to [0]\n        end\n        if <<(y position) < [-180]> or <touching (障害物 v)?>> then\n            start sound [Rip v]\n            set [！ v] to [1]\n            broadcast (場所設定 v)\n            set [！ v] to [0]\n        end\n    end\nend\n\nwhen I receive [初期化 v]\nset [！ v] to [1]\n初期化\nset [！ v] to [0]\n\nwhen [timer v] > (time)\nhide\n\nwhen I receive [start v]\nbroadcast (場所設定 v)\n\nwhen flag clicked\ndelete all of [n?o? v]\nadd [逃げ] to [n?o? v]\nadd [鬼] to [n?o? v]\n\nwhen I receive [start v]\nバネ\n\ndefine バネ\nforever\n    if <touching (バネ v)?> then\n        set [y v] to [27]\n    end\nend\n\nwhen I receive [カンを蹴った‼︎ v]\nbroadcast (初期化 v)\n\nwhen flag clicked\nset [ジャンプアップ v] to [0]\nset [スピードアップ v] to [0]\nset [透明化 v] to [0]\nset [無敵 v] to [0]\n\nif <(無敵) = [0]> then\n\n@プレーヤー２\n\nwhen I receive [オンライン！ v]\nhide\n配置\n\ndefine 配置\nset [prayer2 v] to [0]\nrepeat (8)\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)) - (scroll x)) (((join (letter (45) of (item (prayer2) of [p1〜10 v])) (join (letter (46) of (item (prayer2) of [p1〜10 v])) (join (letter (47) of (item (prayer2) of [p1〜10 v])) (letter (48) of (item (prayer2) of [p1〜10 v]))))) - (1500)) - (scroll y))\n    point in direction (join (letter (55) of (item (prayer2) of [p1〜10 v])) (letter (56) of (item (prayer2) of [p1〜10 v])))\n    switch costume to ((join (letter (49) of (item (prayer2) of [p1〜10 v])) (letter (50) of (item (prayer2) of [p1〜10 v]))) - (10))\n    if <((join (letter (51) of (item (prayer2) of [p1〜10 v])) (letter (52) of (item (prayer2) of [p1〜10 v]))) - (10)) = [0]> then\n        say (join (letter (57) of (item (prayer2) of [n?o?2 v])) (item (prayer2) of [user v]))\n    else\n        say (join (join (letter (57) of (item (prayer2) of [n?o?2 v])) (item (prayer2) of [user v])) (join [:] (item ((join (letter (51) of (item (prayer2) of [p1〜10 v])) (letter (52) of (item (prayer2) of [p1〜10 v]))) - (10)) of [chat v])))\n    end\nend\n\ndefine xy (x) (y)\ngo to x: (x) y: (y)\nif <not <<(x position) = (x)> and <(y position) = (y)>>> then\n    set [ghost v] effect to (100)\nend\n\nwhen flag clicked\ndelete all of [n?o?2 v]\nrepeat (10)\n    add [] to [n?o?2 v]\nend\nforever\n    if <(letter (57) of (☁ p1)) = [2]> then\n        replace item (1) of [n?o?2 v] with [☆]\n    else\n        replace item (1) of [n?o?2 v] with []\n    end\n    if <(letter (57) of (☁ p2)) = [2]> then\n        replace item (2) of [n?o?2 v] with [☆]\n    else\n        replace item (2) of [n?o?2 v] with []\n    end\n    if <(letter (57) of (☁ p3)) = [2]> then\n        replace item (3) of [n?o?2 v] with [☆]\n    else\n        replace item (3) of [n?o?2 v] with []\n    end\n    if <(letter (57) of (☁ p4)) = [2]> then\n        replace item (4) of [n?o?2 v] with [☆]\n    else\n        replace item (4) of [n?o?2 v] with []\n    end\n    if <(letter (57) of (☁ p5)) = [2]> then\n        replace item (5) of [n?o?2 v] with [☆]\n    else\n        replace item (5) of [n?o?2 v] with []\n    end\n    if <(letter (57) of (☁ p6)) = [2]> then\n        replace item (6) of [n?o?2 v] with [☆]\n    else\n        replace item (6) of [n?o?2 v] with []\n    end\n    if <(letter (57) of (☁ p7)) = [2]> then\n        replace item (7) of [n?o?2 v] with [☆]\n    else\n        replace item (7) of [n?o?2 v] with []\n    end\n    if <(letter (57) of (☁ p8)) = [2]> then\n        replace item (8) of [n?o?2 v] with [☆]\n    else\n        replace item (8) of [n?o?2 v] with []\n    end\nend\n\n@ステージ\n\nwhen flag clicked\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\ngo to [front v] layer\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\nset [scroll x v] to [4000]\nset [scroll y v] to [200]\n\nwhen I receive [オフライン v]\n\nwhen I receive [start v]\nset [chat v] to []\nhide\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 [960] [0] [3]\n配置 [1440] [0] [4]\n配置 [1920] [0] [5]\n配置 ((1920) + (700)) [250] [6]\n配置 ((1920) + (1150)) [250] [7]\n配置 (((1920) + (1150)) + (500)) [250] [8]\n配置 (((1920) + (1150)) + (1000)) [250] [9]\n配置 (((1920) + (1150)) + (1850)) [250] [10]\n\n@オンライン\n\nwhen I receive [オンライン v]\nset [オンライン v] to [1]\nwait (1) seconds\nset [☁ p1 v] to [0]\nset [☁ p2 v] to [0]\nset [☁ p3 v] to [0]\nset [☁ p4 v] to [0]\nset [☁ p5 v] to [0]\nset [☁ p6 v] to [0]\nset [☁ p6 v] to [0]\nset [☁ p8 v] to [0]\nset [☁ p9 v] to [0]\nset [☁ p10 v] to [0]\nset [1p？ v] to [0]\nwait (1) seconds\nbroadcast (オンライン！ v)\nforever\n    if <(☁ p1) = [0]> then\n        ユーザー名数値化\n        forever\n            set [1p？ v] to [1]\n            set [☁ p1 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレイヤー v]))) (((スクロールｙ) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (join (join (！) ([direction v] of [プレイヤー v])) ([costume # v] of [プレイヤー v])) (通知)))))))\n        end\n    else\n        if <(☁ p2) = [0]> then\n            ユーザー名数値化\n            forever\n                set [1p？ v] to [2]\n                set [☁ p2 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレイヤー v]))) (((スクロールｙ) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (join (join (！) ([direction v] of [プレイヤー v])) ([costume # v] of [プレイヤー v])) (通知)))))))\n            end\n        else\n            if <(☁ p3) = [0]> then\n                ユーザー名数値化\n                forever\n                    set [1p？ v] to [3]\n                    set [☁ p3 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレイヤー v]))) (((スクロールｙ) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (join (join (！) ([direction v] of [プレイヤー v])) ([costume # v] of [プレイヤー v])) (通知)))))))\n                end\n            else\n                if <(☁ p4) = [0]> then\n                    ユーザー名数値化\n                    forever\n                        set [1p？ v] to [4]\n                        set [☁ p4 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレイヤー v]))) (((スクロールｙ) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (join (join (！) ([direction v] of [プレイヤー v])) ([costume # v] of [プレイヤー v])) (通知)))))))\n                    end\n                else\n                    if <(☁ p5) = [0]> then\n                        ユーザー名数値化\n                        forever\n                            set [1p？ v] to [5]\n                            set [☁ p5 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレイヤー v]))) (((スクロールｙ) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (join (join (！) ([direction v] of [プレイヤー v])) ([costume # v] of [プレイヤー v])) (通知)))))))\n                        end\n                    else\n                        if <(☁ p6) = [0]> then\n                            ユーザー名数値化\n                            forever\n                                set [1p？ v] to [6]\n                                set [☁ p6 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレイヤー v]))) (((スクロールｙ) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (join (join (！) ([direction v] of [プレイヤー v])) ([costume # v] of [プレイヤー v])) (通知)))))))\n                            end\n                        else\n                            if <(☁ p7) = [0]> then\n                                ユーザー名数値化\n                                forever\n                                    set [1p？ v] to [7]\n                                    set [☁ p7 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレイヤー v]))) (((スクロールｙ) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (join (join (！) ([direction v] of [プレイヤー v])) ([costume # v] of [プレイヤー v])) (通知)))))))\n                                end\n                            else\n                                if <(☁ p8) = [0]> then\n                                    ユーザー名数値化\n                                    forever\n                                        set [1p？ v] to [8]\n                                        set [☁ p8 v] to (join (プレーヤー2) (join (join ((1500) + ((スクロールｘ) + ([x position v] of [プレイヤー v]))) (((スクロールｙ) + ([y position v] of [プレイヤー v])) + (1500))) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((チャット) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (join (join (join (！) ([direction v] of [プレイヤー v])) ([costume # v] of [プレイヤー v])) (通知)))))))\n                                    end\n                                else\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine ユーザー名数値化\nset [プレーヤー v] to [0]\nset [プレーヤー2 v] to []\nrepeat (length of (username))\n    change [プレーヤー v] by (1)\n    switch costume to (letter (プレーヤー) of (username))\n    set [プレーヤー2 v] to (join (プレーヤー2) (costume [number v]))\nend\nrepeat ((40) - (length of (プレーヤー2)))\n    set [プレーヤー2 v] to (join (プレーヤー2) [0])\nend\n\nwhen I receive [オンライン v]\nbroadcast (言う v)\nforever\n    復元1\nend\n\ndefine 復元1\ndelete all of [user v]\nset [% v] to [0]\nrepeat (10)\n    switch costume to ( v)\n    change [% v] by (1)\n    set [〜 v] to [0]\n    set [4 v] to []\n    repeat (20)\n        if <not <(join (letter ((〜) + (1)) of (item (%) of [p1〜10 v])) (letter ((〜) + (2)) of (item (%) of [p1〜10 v]))) = [00]>> then\n            change [〜 v] by (2)\n            switch costume to (join (letter ((〜) - (1)) of (item (%) of [p1〜10 v])) (letter (〜) of (item (%) of [p1〜10 v])))\n            set [4 v] to (join (4) (costume [name v]))\n        end\n    end\n    add (4) to [user v]\nend\n\nwhen flag clicked\nforever\n    delete all of [p1〜10 v]\n    add (☁ p1) to [p1〜10 v]\n    add (☁ p2) to [p1〜10 v]\n    add (☁ p3) to [p1〜10 v]\n    add (☁ p4) to [p1〜10 v]\n    add (☁ p5) to [p1〜10 v]\n    add (☁ p6) to [p1〜10 v]\n    add (☁ p7) to [p1〜10 v]\n    add (☁ p8) to [p1〜10 v]\nend\n\nwhen I receive [オンライン！ v]\nforever\n    delete all of [1〜10 2 v]\n    add (☁ p1) to [1〜10 2 v]\n    add (☁ p2) to [1〜10 2 v]\n    add (☁ p3) to [1〜10 2 v]\n    add (☁ p4) to [1〜10 2 v]\n    add (☁ p5) to [1〜10 2 v]\n    add (☁ p6) to [1〜10 2 v]\n    add (☁ p7) to [1〜10 2 v]\n    add (☁ p8) to [1〜10 2 v]\n    wait (1.5) seconds\n    if <(letter (53) of (item (1) of [p1〜10 v])) = (letter (53) of (item (1) of [1〜10 2 v]))> then\n        set [☁ p1 v] to [0]\n    end\n    if <(letter (53) of (item (2) of [p1〜10 v])) = (letter (53) of (item (2) of [1〜10 2 v]))> then\n        set [☁ p2 v] to [0]\n    end\n    if <(letter (53) of (item (3) of [p1〜10 v])) = (letter (53) of (item (3) of [1〜10 2 v]))> then\n        set [☁ p3 v] to [0]\n    end\n    if <(letter (53) of (item (4) of [p1〜10 v])) = (letter (53) of (item (4) of [1〜10 2 v]))> then\n        set [☁ p4 v] to [0]\n    end\n    if <(letter (53) of (item (5) of [p1〜10 v])) = (letter (53) of (item (5) of [1〜10 2 v]))> then\n        set [☁ p5 v] to [0]\n    end\n    if <(letter (53) of (item (6) of [p1〜10 v])) = (letter (53) of (item (6) of [1〜10 2 v]))> then\n        set [☁ p6 v] to [0]\n    end\n    if <(letter (53) of (item (7) of [p1〜10 v])) = (letter (53) of (item (7) of [1〜10 2 v]))> then\n        set [☁ p7 v] to [0]\n    end\n    if <(letter (53) of (item (8) of [p1〜10 v])) = (letter (53) of (item (8) of [1〜10 2 v]))> then\n        set [☁ p8 v] to [0]\n    end\n    if <(letter (53) of (item (9) of [p1〜10 v])) = (letter (53) of (item (9) of [1〜10 2 v]))> then\n        set [☁ p9 v] to [0]\n    end\n    if <(letter (53) of (item (10) of [p1〜10 v])) = (letter (53) of (item (10) of [1〜10 2 v]))> then\n        set [☁ p10 v] to [0]\n    end\nend\n\nwhen flag clicked\nbroadcast (オンライン v)\n\nwhen I receive [カンを蹴った‼︎ v]\nset [通知 v] to [1]\nwait (1.2) seconds\nset [通知 v] to [0]\n\nwhen flag clicked\nset [通知 v] to [0]\n\n@バネ\n\nwhen flag clicked\n\nhide\n配置 [1940] [-30] [1]\n配置 [2180] [285] [1]\n配置 [2747] [265] [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\n\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\n\nforever\n    if <touching (プレイヤー v)?> then\n        start sound [ボヨン v]\n        switch costume to (2 v)\n        wait (0.03) seconds\n        switch costume to (3 v)\n        wait (0.03) seconds\n        switch costume to (4 v)\n        wait (0.03) seconds\n        switch costume to (5 v)\n        wait (0.1) seconds\n        switch costume to (4 v)\n        wait (0.03) seconds\n        switch costume to (3 v)\n        wait (0.03) seconds\n        switch costume to (2 v)\n        wait (0.03) seconds\n        switch costume to (1 v)\n    end\nend\n\n@サムネ\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nreset timer\nforever\n    set [time v] to (timer)\nend\n\nwhen [timer v] > (time)\nshow\ngo to x: (0) y: (999)\nrepeat until <(round (y position)) = [0]>\n    change y by ((() - (y position)) / (10))\nend\n\n@障害物\n\nwhen flag clicked\n\nset [警察？ v] to []\nhide\n配置 [630] [-150] [1]\n配置 [950] [-40] [2]\n配置 [3040] [-55] [6]\n配置 [3737] [-150] [11]\n配置 [3940] [-40] [2]\n配置 [780] [500] [11]\n配置 [1915] [820] [13]\n配置 [3600] [880] [14]\n\ndefine 配置 (1) (2) (3)\n\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\n\npoint in direction (90)\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\n\nif <(3) = [7]> then\n    forever\n        turn right (5) degrees\n    end\nend\n\nwhen I start as a clone\n\nif <(3) = [11]> then\n    forever\n        turn left (4) degrees\n    end\nend\n\nwhen I start as a clone\n\nif <(3) = [14]> then\n    forever\n        repeat (18)\n            change [2 v] by (-3)\n        end\n        wait (0.5) seconds\n        repeat (9)\n            change [2 v] by (6)\n        end\n    end\nend\n\nset [スクロールｙ v] to [1090]\nset [スクロールｘ v] to [1850]\n\nwhen I start as a clone\n\nif <(3) = [15]> then\n    forever\n        turn left (4) degrees\n    end\nend\n\n@背景\n\nwhen flag clicked\nhide\nclone [10]\n\ndefine clone (あれ)\nset [コス v] to [9]\nrepeat ((コス) - (1))\n    set [＼\(^o^\)／ v] to [0]\n    change [コス v] by (-1)\n    repeat (あれ)\n        switch costume to (コス)\n        create clone of (_myself_ v)\n        change [＼\(^o^\)／ v] by (1)\n    end\nend\n\nwhen I start as a clone\ngo to x: (0) y: (0)\nshow\nforever\n    go to x: (((＼\(^o^\)／) * (480)) - (((スクロールｘ) * (2)) / ((コス) * (1.5)))) y: (0)\nend\n\n@矢印\n\nwhen flag clicked\ngo to [front v] layer\nshow\ngo to x: (-70) y: (-85)\nset size to (0) %\nforever\n    change size by (((100) - (size)) / (10))\nend\n\nwhen this sprite clicked\nbroadcast (次2 v)\nswitch costume to (コスチューム2 v)\nwait (0.5) seconds\nswitch costume to (コスチューム1 v)\n\nwhen flag clicked\nforever\n    if <touching (mouse-pointer v)?> then\n        set [brightness v] effect to (30)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen [timer v] > (time)\nhide\n\nwhen I receive [キャラ設定終了 v]\nhide\n\nwhen I receive [オフライン v]\nhide\n\n@キャラ設定\n\nwhen flag clicked\nset [鬼? v] to [1]\ngo to [front v] layer\nswitch costume to (1 v)\nshow\ngo to x: (0) y: (-85)\nset size to (0) %\nforever\n    change size by (((100) - (size)) / (10))\nend\n\nwhen I receive [キャラ設定動き v]\nset size to (0) %\nrepeat (50)\n    change size by (((100) - (size)) / (10))\nend\n\nwhen I receive [キャラ設定終了 v]\nhide\n\nwhen I receive [次 v]\nbroadcast (キャラ設定動き v)\nstart sound [Suction Cup v]\nwait (0.01) seconds\nnext costume\nset [鬼? v] to (costume [name v])\n\nwhen I receive [次2 v]\nbroadcast (キャラ設定動き v)\nstart sound [Suction Cup v]\nwait (0.01) seconds\nswitch costume to ((0) - ((costume [number v]) + (1)))\nset [鬼? v] to (costume [name v])\n\nwait (0.1) seconds\n\nwhen [timer v] > (time)\nhide\n\nwhen I receive [キャラ設定終了 v]\nhide\n\nwhen I receive [オフライン v]\nhide\n\n@矢印2\n\nwhen flag clicked\ngo to [front v] layer\nshow\ngo to x: (70) y: (-85)\nset size to (0) %\nforever\n    change size by (((100) - (size)) / (10))\nend\n\nwhen flag clicked\nforever\n    if <touching (mouse-pointer v)?> then\n        set [brightness v] effect to (30)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen this sprite clicked\nbroadcast (次 v)\nswitch costume to (コスチューム2 v)\nwait (0.5) seconds\nswitch costume to (コスチューム1 v)\n\nwhen [timer v] > (time)\nhide\n\nwhen I receive [キャラ設定終了 v]\nhide\n\nwhen I receive [オフライン v]\nhide\n\n@OK\n\nwhen flag clicked\nshow\ngo to x: (0) y: (-155)\nset size to (0) %\nforever\n    change size by (((100) - (size)) / (10))\nend\n\nwhen [timer v] > (time)\nhide\n\nwhen flag clicked\nforever\n    if <touching (mouse-pointer v)?> then\n        set [brightness v] effect to (30)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen this sprite clicked\nbroadcast (キャラ設定終了 v)\nhide\n\nwhen I receive [キャラ設定終了 v]\nbroadcast (START v)\n\n@カン\n\nwhen flag clicked\nset [チャット v] to []\nhide\n\ndefine 配置 (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nset [3 v] to ((3) + (1))\nrepeat (2)\n    create clone of (_myself_ v)\nend\n\nset [スクロールｘ v] to [4000]\nset [スクロールｙ v] to [200]\n\nwhen I receive [キャラ設定終了 v]\nwait (1) seconds\n配置 [3450] [356] []\n\nwhen I receive [カンを蹴った‼︎ v]\nchange [☁ 得点1 v] by (1)\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    show\n    switch costume to (1 v)\nend\n\nwhen I start as a clone\nforever\n    if <<touching (プレイヤー v)?> and <(鬼?) = [1]>> then\n        broadcast (カンを蹴った‼︎ v)\n    end\nend\n\n@チャット\n\nwhen I receive [チャット v]\nif <(costume [number v]) = [1]> then\n    wait (5) seconds\n    set [chat v] to []\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    forever\n        go to x: (-180) y: (150)\n        set [ghost v] effect to (30)\n        if <<touching (mouse-pointer v)?> and <mouse down?>> then\n            set [ghost v] effect to (50)\n            set [チャット表示 v] to [1]\n            ask [] and wait\n            set [チャット表示 v] to [0]\n            if <<[0] < (answer)> and <(answer) < [11]>> then\n                set [chat v] to (answer)\n                broadcast (チャット v)\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    forever\n        go to x: (0) y: (0)\n        set [ghost v] effect to (50)\n        if <(チャット表示) = [1]> then\n            show\n        else\n            hide\n        end\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [3]> then\n    forever\n        hide\n        wait (pick random (10) to (15)) seconds\n        show\n        glide (0.1) secs to x: (160) y: (150)\n        wait (3) seconds\n        glide (0.1) secs to x: (160) y: (200)\n    end\nend\n\nwhen I receive [start v]\nset [チャット表示 v] to [0]\nshow\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム3 v)\ncreate clone of (_myself_ v)\nhide\n\nwhen I start as a clone\nforever\n    go to [front v] layer\nend\n\n@通知\n\nwhen I receive [カンを蹴った‼︎ v]\nrepeat (10)\n    if <(letter (58) of (item (1) of [p1〜10 v])) = [1]> then\n        通知 [1]\n    else\n        if <(letter (58) of (item (2) of [p1〜10 v])) = [1]> then\n            通知 [1]\n        else\n            if <(letter (58) of (item (3) of [p1〜10 v])) = [1]> then\n                通知 [1]\n            else\n                if <(letter (58) of (item (4) of [p1〜10 v])) = [1]> then\n                    通知 [1]\n                else\n                    if <(letter (58) of (item (5) of [p1〜10 v])) = [1]> then\n                        通知 [1]\n                    else\n                        if <(letter (58) of (item (6) of [p1〜10 v])) = [1]> then\n                            通知 [1]\n                        else\n                            if <(letter (58) of (item (7) of [p1〜10 v])) = [1]> then\n                                通知 [1]\n                            else\n                                if <(letter (58) of (item (8) of [p1〜10 v])) = [1]> then\n                                    通知 [1]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine 通知 ()\ngo to [front v] layer\nswitch costume to ()\ngo to x: (400) y: (-140)\nshow\nrepeat (70)\n    change x by (((70) - (x position)) / (5))\nend\nrepeat (17)\n    change x by (((400) - (x position)) / (5))\nend\nhide\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (タイム)\nhide\n\nwhen I receive [そのアイテムはとれ真せ v]\n\n通知 [4]\n\n@タイトル\n\nwhen flag clicked\nshow\nset x to (0)\nforever\n    change [タイマー v] by (10)\n    set y to (((([sin v] of (タイマー) ) / (5)) * (50)) + (20))\nend\n\nwhen [timer v] > (time)\nhide\n\nwhen I receive [キャラ設定終了 v]\nhide\n\nwhen I receive [オフライン v]\nhide\n\n@点数[逃げ]\n\nwhen I start as a clone\ngo to [front v] layer\nset [ナンバー保存用 v] to (ナンバー)\nshow\nforever\n    if <(ナンバー保存用) > (length of (☁ 得点1))> then\n        hide\n    else\n        show\n        switch costume to (letter ((length of (☁ 得点1)) - ((ナンバー保存用) - (1))) of (☁ 得点1))\n    end\nend\n\ndefine セット\nset size to (170) %\nset [ナンバー v] to [0]\ngo to x: (-100) y: (120)\nrepeat (3)\n    change [ナンバー v] by (1)\n    create clone of (_myself_ v)\n    change x by (-50)\nend\n\nwhen I receive [start v]\nwait (0.2) seconds\nset [ナンバー v] to [0]\nset [クローン数 v] to [3]\nセット\n\nwhen I receive [start v]\nhide\nforever\n    wait until <(クローン数) < (length of (☁ 得点1))>\n    change [ナンバー v] by (1)\n    change [クローン数 v] by (1)\n    create clone of (_myself_ v)\n    change x by (-30)\nend\n\nset [☁ 得点1 v] to [0]\nset [☁ 得点2 v] to [0]\n\n@点数[鬼]\n\nwhen I start as a clone\ngo to [front v] layer\nset [ナンバー保存用 v] to (ナンバー)\nshow\nforever\n    if <(ナンバー保存用) > (length of (☁ 得点2))> then\n        hide\n    else\n        show\n        switch costume to (letter ((length of (☁ 得点2)) - ((ナンバー保存用) - (1))) of (☁ 得点2))\n    end\nend\n\ndefine セット\nset size to (170) %\nset [ナンバー v] to [0]\ngo to x: (100) y: (120)\nrepeat (3)\n    change [ナンバー v] by (1)\n    create clone of (_myself_ v)\n    change x by (-50)\nend\n\nwhen I receive [start v]\nwait (0.3) seconds\nset [ナンバー v] to [0]\nset [クローン数 v] to [3]\nセット\n\nwhen I receive [start v]\nhide\nforever\n    wait until <(クローン数) < (length of (☁ 得点2))>\n    change [ナンバー v] by (1)\n    change [クローン数 v] by (1)\n    create clone of (_myself_ v)\n    change x by (-30)\nend\n\n@ロボット？\n\nwhen flag clicked\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\ngo to [front v] layer\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (スクロールｘ)) y: ((2) - (スクロールｙ))\n    show\n    switch costume to (3)\nend\n\nset [スクロールｘ v] to [4000]\nset [スクロールｙ v] to [200]\n\nwhen I receive [start v]\nset [チャット v] to []\nhide\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 [960] [0] [3]\n配置 [1440] [0] [4]\n配置 [1920] [0] [5]\n配置 ((1920) + (700)) [250] [6]\n配置 ((1920) + (1150)) [250] [7]\n配置 (((1920) + (1150)) + (500)) [250] [8]\n配置 (((1920) + (1150)) + (1000)) [250] [9]\n配置 (((1920) + (1150)) + (1850)) [250] [10]\n\n@アイテム\n\nwhen flag clicked\nset [クローン排除 v] to [0]\nhide\n\ndefine 配置 (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nset [3 v] to ((3) + (1))\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\nwhen I receive [start v]\n配置 [600] [220] (pick random (1) to (3))\n\nwhen I start as a clone\nforever\n    if <<<(3) = [2]> and <touching (プレイヤー v)?>> and <(鬼?) = [1]>> then\n        broadcast (スピードアップ v)\n        broadcast (くろーん排除 v)\n        repeat (32)\n            change [ghost v] effect by (3)\n        end\n        delete this clone\n    else\n        if <<<(3) = [3]> and <touching (プレイヤー v)?>> and <(鬼?) = [1]>> then\n            broadcast (ジャンプアップ v)\n            broadcast (くろーん排除 v)\n            repeat (32)\n                change [ghost v] effect by (3)\n            end\n            delete this clone\n        else\n            if <<<(3) = [4]> and <touching (プレイヤー v)?>> and <(鬼?) = [1]>> then\n                broadcast (透明化 v)\n                broadcast (くろーん排除 v)\n                repeat (32)\n                    change [ghost v] effect by (3)\n                end\n                delete this clone\n            end\n        end\n    end\nend\n\nwhen I receive [クローン作成 v]\nwait until <(クローン排除) = [1]>\nwait (pick random (20) to (25)) seconds\n配置 [600] [220] (pick random (1) to (3))\nset [クローン排除 v] to [0]\nif <(クローン排除) = [0]> then\n    broadcast (クローン作成 v)\nend\n\nwhen I receive [start v]\nbroadcast (クローン作成 v)\n\nwhen I receive [くろーん排除 v]\nset [クローン排除 v] to [1]\n\nwhen I receive [スピードアップ v]\nwait (1) seconds\nset [スピードアップ v] to [1]\nwait (25) seconds\nset [スピードアップ v] to [0]\n\nwhen I receive [ジャンプアップ v]\nwait (1) seconds\nset [ジャンプアップ v] to [1]\nwait (25) seconds\nset [ジャンプアップ v] to [0]\n\nwhen I start as a clone\nrepeat (30)\n    go to [front v] layer\nend\n\nwhen I receive [透明化 v]\nwait (1) seconds\nset [透明化 v] to [1]\nwait (25) seconds\nset [透明化 v] to [0]\n\n@バリア\n\nwhen flag clicked\nset [chat v] to []\nhide\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\nset [scroll x v] to [4000]\nset [scroll y v] to [200]\n\nwhen I receive [キャラ設定終了 v]\n配置 [0] [0] [1]\n配置 [0] [0] [2]\n配置 [530] [240] [3]\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\nset [☁ 得点1 v] to [0]\nset [☁ 得点2 v] to [0]\n\n
イタズラで[また]非共有にされてました。本当に申し訳ありませんm(_ _)m(やったのリア友)←怒鳴りました\n\nフォロー推奨→ @katsuo777 @zyo-ka-da @kazusc\nバグを直してくださった(協力してくださった)\n@panda_8_1様 @Rhythm-Flare様 @kazusc様ありがとうございますm(_ _)m\n【使い方】(必ず下まで読んで下さい)↓ーーーーーーーー\nオンラインカンけりへようこそ！\nこのゲームは、鬼と逃げに分かれて競うゲームです。\n\n遊び方は普通のカンけりと同じように\n逃げはカンをけって、鬼はカンを守らなければなりません。\nなお、逃げの場合は看板にそって進めばカンがあります。\n\n\n[操作方法について]\n矢印キーで操作\nカンに触れるとカンをけれます。(逃げ)\n敵に触れると捕まえれます。(鬼)\n\n[注意事項]\n1人の時は遊べません。\n全員逃げ、または鬼の場合も遊べません。\nもちろんサインインしていない方、New scratcherの方\nも遊べません(T ^ T)\n8人までプレイできます。\n[チャット]\n1〜9キーで話せます｡\n\n[得点]\n黒が逃げ、赤が鬼の得点です｡\n\n[通知]\nカンをけった時などに通知がきます｡\n\n[メニュー]\n逃げか鬼かを選べます｡\n\nーーーーーーーーーーーーーーーーーーーーーーーーー\n\n【制作時間】ーーーーーーーーーーーーーーーーーーー\n1週間\nーーーーーーーーーーーーーーーーーーーーーーーーー\n\n【クレジット】ーーーーーーーーーーーーーーーーーー\nプログラム @katsuo777 @zyo-ka-da\n背景 @YY-H\n動く背景 @kangaru-nounko\n数値表示プログラム @zohsama\n音楽  TheFatRat   @-xaf-\nクレジットが欠けている場合はお知らせください。\nーーーーーーーーーーーーーーーーーーーーーーーーー\n\n\nタグーーーーーーーーーーーーーーーーーーーーーーー\n#games  #game  #k-44 #platformer  #all\n#games  #game  #k-44 #platformer  #all\nーーーーーーーーーーーーーーーーーーーーーーーーー\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n@katsuo777        @zyo-ka-da   様に本当に感謝m(_ _)m\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nよっしゃあああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ