コラボ‼　ONLINE　こおりおに　PLATFORMER!!　オンライン

Instructions: なんとぉ‼\n@YUU_EDAME様とコラボレーション(/・ω・)/\n\n日本国民は@YUU_EDAME様のフォローが義務となりました(((\n\nこおりおにのon-line版を作らせていただきました‼\n国民的gameで簡単にできると思います(^^♪\n\nPLAY方法\n矢印キーのみの操作\n鬼は逃げに触れると凍らせることができます‼\n凍っている逃げに凍っていない逃げが触れると解除されます‼\n\nリスキル禁止‼\n\nRRR-scratchの呟き\nオンラインゲームはむずかしい((((\n\nMUSIC\n逃走中\nNCS\n\n#all #game #games\n\n背景\nズジラボ様\n\nクレジット\nぽこぽこじょんさん\n@katsuo777さん\n

@Stage\n\nwhen I receive [オンラインへ v]\nstop all sounds\nswitch backdrop to (背景1 v) and wait\nforever\n    play sound [music v] until done\n    play sound [bgm_maoudamashii_fantasy11 v] until done\nend\n\nset [pitch v] effect to (100)\n\nwhen flag clicked\nswitch backdrop to ( v)\nwait (9) seconds\nswitch backdrop to (コメント 2022-03-21 111244 v)\nplay sound [Epico Music v] until done\n\nstart sound [bgm_maoudamashii_fantasy11 v]\n\nwhen flag clicked\n\nplay sound [Epico Music v] until done\n\n@Stage\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <(y position) = ((2) - (scroll y))>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\n配置 [0] [0] [1]\n配置 [0] [400] [2]\n配置 [500] [0] [3]\n配置 [500] [400] [4]\n配置 [1000] [0] [5]\n配置 [1000] [400] [6]\n配置 [1500] [0] [7]\n配置 [1500] [400] [8]\n\n配置 [2500] [300] [6]\n配置 [3000] [200] [7]\n配置 [3500] [0] [8]\n配置 [4000] [0] [9]\n配置 [4500] [0] [10]\n\n配置 [2000] [0] [9]\n配置 [2000] [400] [10]\n\nwhen flag clicked\nreset timer\n\n@Stage2\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    go to [front v] layer\n    switch costume to (コスチューム1 v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    if <<(x position) = ((1) - (scroll x))> and <(y position) = ((2) - (scroll y))>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\nend\n\nwhen I receive [start v]\nhide\n配置 [0] [0] [1]\n配置 [500] [0] [2]\n配置 [1000] [0] [3]\n配置 [1500] [0] [4]\n配置 [2000] [0] [5]\n\n配置 [2500] [300] [6]\n配置 [3000] [200] [7]\n配置 [3500] [0] [8]\n配置 [4000] [0] [9]\n配置 [4500] [0] [10]\n\n@prayer2\n\nwhen I receive [オンライン！ v]\nhide\n配置\n\ndefine 配置\nset [prayer2 v] to [0]\nrepeat (10)\n    change [prayer2 v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nforever\n    show\n    set [ghost v] effect to (0)\n    if <<(1p？) = (prayer2)> or <<(item (prayer2) of [p1〜10 v]) = [0]> or <[1] = (letter (54) of (item (prayer2) of [p1〜10 v]))>>> then\n        hide\n    end\n    switch costume to ((join (letter (49) of (item (prayer2) of [p1〜10 v])) (letter (50) of (item (prayer2) of [p1〜10 v]))) - (10))\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))\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\nhide variable [＃チャット v]\nforever\n    set [!　言葉 v] to (letter (1) of (☁ チャット))\n    set [!人間 v] to (item (letter (2) of (☁ チャット)) of [user v])\n    if <(!　言葉) = [1]> then\n        set [!言う v] to [こんにちは‼]\n    end\n    if <(!　言葉) = [2]> then\n        set [!言う v] to [助けて‼]\n    end\n    if <(!　言葉) = [3]> then\n        set [!言う v] to [鬼弱いぞ～]\n    end\n    if <(!　言葉) = [4]> then\n        set [!言う v] to [鬼の人数が多い‼]\n    end\n    if <(!　言葉) = [6]> then\n        set [!言う v] to [リスキルやめて‼]\n    end\n    if <(!　言葉) = [5]> then\n        set [!言う v] to [抜けます]\n    end\n    if <(!　言葉) = [7]> then\n        set [!言う v] to [放置プレイやめて‼]\n    end\n    if <(!　言葉) = [8]> then\n        set [!言う v] to [ナイス！！]\n    end\nend\n\nset [#　システム v] to (costume [number v])\n\nsay [こんにちは!]\n\nset [凍った v] to [0]\n\nforever\n\nset [☁ チャット v] to [0]\n\nwhen flag clicked\n\nwhen I receive [オンライン v]\nshow variable [＃チャット v]\nforever\n    if <key (1 v) pressed?> then\n        set [☁ チャット v] to (join [1] (1p？))\n    end\n    if <key (2 v) pressed?> then\n        set [☁ チャット v] to (join [2] (1p？))\n    end\n    if <key (3 v) pressed?> then\n        set [☁ チャット v] to (join [3] (1p？))\n    end\n    if <key (4 v) pressed?> then\n        set [☁ チャット v] to (join [4] (1p？))\n    end\n    if <key (5 v) pressed?> then\n        set [☁ チャット v] to (join [5] (1p？))\n    end\n    if <key (6 v) pressed?> then\n        set [☁ チャット v] to (join [6] (1p？))\n    end\n    if <key (7 v) pressed?> then\n        set [☁ チャット v] to (join [7] (1p？))\n    end\n    if <key (8 v) pressed?> then\n        set [☁ チャット v] to (join [8] (1p？))\n    end\nend\n\n\n\nif <[] = [50]> then\n\n\n\nset [#チャットシステム v] to ((2) + (user2))\nset [☁ チャット v] to ((3) + (user2))\n\nset [#チャットシステム v] to [1]\nset [#チャットシステム v] to (user2)\nset [#チャットシステム v] to [3]\n\nshow variable [〜 v]\n\nwait (0.5) seconds\n\nif <key (0 v) pressed?> then\n    if <(username) = [RRR-scratch]> then\n        set [☁ チャット v] to [9]\n    end\nend\nif <key (space v) pressed?> then\n    if <(username) = [RRR-scratch]> then\n        set [☁ チャット v] to [8]\n    end\nend\n\nwhen flag clicked\nforever\n    set [＃チャット v] to (join (join (!人間) [＊]) (!言う))\nend\n\nwait (1) seconds\n\nset [〜 v] to [0]\n\nset [＃チャット v] to (join (join (!人間) [＊]) (!言う))\n\nwhen flag clicked\nforever\n\nforever\n\nif <(☁ チャット) = [9]> then\n    \n        repeat until <(☁ チャット) = [8]>\n            set [＃チャット v] to [アップデート中です‼　rrr-scratchは設定に入ります]\n        end\n        if <(☁ チャット) = [8]> then\n            set [＃チャット v] to [アップデート完了しました‼　再読み込みしてください]\n        end\n    end\nend\n\nset [☁ チャット v] to [0]\n\nset [☁ チャット v] to [0]\n\nwhen I start as a clone\n\nforever\n\n\n\nwhen I start as a clone\n\nif  then\n    say (join [逃] (item (prayer2) of [user v]))\nelse\n    say (join [鬼] (item (prayer2) of [user v]))\nend\n\nxy (((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\nswitch costume to ((join (letter (49) of (item (prayer2) of [p1〜10 v])) (letter (50) of (item (prayer2) of [p1〜10 v]))) - (10))\nif  then\n    say [こんにちは!]\nelse\n    say [こんにちは!]\nend\nwait (1) seconds\nsay [鬼]\nwait (1) seconds\n\nwhen I start as a clone\nforever\n    if <<(1p？) = (prayer2)> or <<(item (prayer2) of [p1〜10 v]) = [0]> or <[1] = (letter (54) of (item (prayer2) of [p1〜10 v]))>>> then\nend\n\nwait (1) seconds\nsay [逃]\nwait (1) seconds\n\n\n    hide\nend\n\nswitch costume to (コスチューム1 v)\nsay []\n\nwhen flag clicked\n\nset [☁ チャット v] to []\n\nwhen flag clicked\nhide variable [＃お知らせ v]\n\nwhen I receive [start v]\nshow variable [＃お知らせ v]\nset [＃お知らせ v] to [4月6日　アップデート版　共有予定‼]\n\n@online\n\nwhen I receive [オンライン v]\nset [online v] to [1]\nwait (1) seconds\nset [☁ 1p v] to [0]\nset [☁ 2p v] to [0]\nset [☁ 3p v] to [0]\nset [☁ 4p v] to [0]\nset [☁ 5p v] to [0]\nset [☁ 6p v] to [0]\nset [☁ 7p v] to [0]\nset [☁ 8p v] to [0]\nset [☁ 9p v] to [0]\nset [1p？ v] to [0]\nwait (1) seconds\nbroadcast (START v)\nbroadcast (オンライン！ v)\nforever\n    if <(☁ 1p) = [0]> then\n        ユーザー名数値化\n        forever\n            set [1p？ v] to [1]\n            set [☁ 1p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n        end\n    else\n        if <(☁ 2p) = [0]> then\n            ユーザー名数値化\n            forever\n                set [1p？ v] to [2]\n                set [☁ 2p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n            end\n        else\n            if <(☁ 3p) = [0]> then\n                ユーザー名数値化\n                forever\n                    set [1p？ v] to [3]\n                    set [☁ 3p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                end\n            else\n                if <(☁ 4p) = [0]> then\n                    ユーザー名数値化\n                    forever\n                        set [1p？ v] to [4]\n                        set [☁ 4p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                    end\n                else\n                    if <(☁ 5p) = [0]> then\n                        ユーザー名数値化\n                        forever\n                            set [1p？ v] to [5]\n                            set [☁ 5p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                        end\n                    else\n                        if <(☁ 6p) = [0]> then\n                            ユーザー名数値化\n                            forever\n                                set [1p？ v] to [6]\n                                set [☁ 6p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                            end\n                        else\n                            if <(☁ 7p) = [0]> then\n                                ユーザー名数値化\n                                forever\n                                    set [1p？ v] to [7]\n                                    set [☁ 7p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                                end\n                            else\n                                if <(☁ 8p) = [0]> then\n                                    ユーザー名数値化\n                                    forever\n                                        set [1p？ v] to [8]\n                                        set [☁ 8p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                                    end\n                                else\n                                    if <(☁ 9p) = [0]> then\n                                        ユーザー名数値化\n                                        forever\n                                            set [1p？ v] to [9]\n                                            set [☁ 9p v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [prayer v]))) (((scroll y) + ([y position v] of [prayer v])) + (1500))) (join (([costume # v] of [prayer v]) + (10)) (join ((chat) + (10)) (join (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) )) (！))))))\n                                        end\n                                    else\n                                        broadcast (＃　満員 v)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine ユーザー名数値化\nset [user v] to [0]\nset [user2 v] to []\nrepeat (length of (username))\n    change [user v] by (1)\n    switch costume to (letter (user) of (username))\n    set [user2 v] to (join (user2) (costume [number v]))\nend\nrepeat ((40) - (length of (user2)))\n    set [user2 v] to (join (user2) [0])\nend\n\nwhen I receive [オンライン v]\nbroadcast (言う v)\nforever\n    復元1\nend\n\ndefine 復元1\ndelete all of [user v]\nset [% v] to [0]\nrepeat (10)\n    switch costume to ( v)\n    change [% v] by (1)\n    set [〜 v] to [0]\n    set [4 v] to []\n    repeat (20)\n        if <not <(join (letter ((〜) + (1)) of (item (%) of [p1〜10 v])) (letter ((〜) + (2)) of (item (%) of [p1〜10 v]))) = [00]>> then\n            change [〜 v] by (2)\n            switch costume to (join (letter ((〜) - (1)) of (item (%) of [p1〜10 v])) (letter (〜) of (item (%) of [p1〜10 v])))\n            set [4 v] to (join (4) (costume [name v]))\n        end\n    end\n    add (4) to [user v]\nend\n\nwhen flag clicked\nforever\n    delete all of [p1〜10 v]\n    add (☁ 1p) to [p1〜10 v]\n    add (☁ 2p) to [p1〜10 v]\n    add (☁ 3p) to [p1〜10 v]\n    add (☁ 4p) to [p1〜10 v]\n    add (☁ 5p) to [p1〜10 v]\n    add (☁ 6p) to [p1〜10 v]\n    add (☁ 7p) to [p1〜10 v]\n    add (☁ 8p) to [p1〜10 v]\n    add (☁ 9p) to [p1〜10 v]\nend\n\nwhen I receive [オンライン！ v]\nforever\n    delete all of [1〜10 2 v]\n    add (☁ 1p) to [1〜10 2 v]\n    add (☁ 2p) to [1〜10 2 v]\n    add (☁ 3p) to [1〜10 2 v]\n    add (☁ 4p) to [1〜10 2 v]\n    add (☁ 5p) to [1〜10 2 v]\n    add (☁ 6p) to [1〜10 2 v]\n    add (☁ 7p) to [1〜10 2 v]\n    add (☁ 8p) to [1〜10 2 v]\n    add (☁ 9p) 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 [☁ 1p 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 [☁ 2p 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 [☁ 3p 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 [☁ 4p 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 [☁ 5p 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 [☁ 6p 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 [☁ 7p 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 [☁ 8p 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 [☁ 9p v] to [0]\n    end\nend\n\nwhen I receive [オンラインへ v]\nbroadcast (オンライン v)\n\n配置 (monster coin X) ((monster coin Y) + (10)) [1]\n\nif <[] = [0]> then\n    ユーザー名数値化\n    forever\n        set [1p？ v] to [10]\n    end\nend\n\nif <(letter (53) of (item (10) of [p1〜10 v])) = (letter (53) of (item (10) of [1〜10 2 v]))> then\n\nwhen flag clicked\n\n@スプライト1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\nswitch costume to (コスチューム3 v)\nset [ghost v] effect to (100)\n\nwhen I receive [クリア v]\nstart sound [Rip v]\nswitch costume to (コスチューム2 v)\nset [ghost v] effect to (0)\ngo to x: (0) y: (999)\nrepeat until <(round (y position)) = [0]>\n    change y by (((0) - (y position)) / (5))\nend\nstop [all v]\n\n@スプライト2\n\nwhen flag clicked\nhide\n\ngo to [front v] layer\n\nset [凍った v] to [0]\n\nwhen flag clicked\nhide variable [凍った v]\n\nwhen flag clicked\n\nif <<(username) = [kako-ken]> or <(username) = [RRR-scratch]>> then\n    show variable [凍った v]\nend\n\nset [☁ 1p v] to [0]\nset [☁ 2p v] to [0]\nset [☁ 3p v] to [0]\nset [☁ 4p v] to [0]\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@Sun\n\nwhen flag clicked\nhide\n\nwhen I receive [オンラインへ v]\ngo to [back v] layer\nshow\ngo to x: (229) y: (165)\nset size to (100) %\nreset timer\nforever\n    repeat (50)\n        change size by (((140) - (size)) / (18))\n    end\n    repeat (50)\n        change size by (((size) - (100)) / (-18))\n    end\nend\n\n@スプライト3\n\nwhen flag clicked\nhide\nwait (9) seconds\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\n\nswitch costume to (コスチューム3 v)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\n\nwhen this sprite clicked\nif <(costume [number v]) = [1]> then\n    broadcast (# 鬼 v)\n    broadcast (オンラインへ v)\nend\nif <(costume [number v]) = [2]> then\n    broadcast (# 逃げる v)\n    broadcast (オンラインへ v)\nend\nif <(costume [number v]) = [3]> then\n    broadcast (オンラインへ v)\nend\n\nwhen I receive [オンラインへ v]\nhide\n\nwhen I receive [オンライン v]\nif <<(1p？) = [1]> or <(1p？) = [2]>> then\nelse\nend\n\n@prayer\n\nwhen flag clicked\nset [xx v] to [0]\nset [yy v] to [0]\nhide\n\ndefine prayer\nif <(！) = [0]> then\n    if <not <(username) = []>> then\n        if <(costume [number v]) = [9]> then\n            say [捕まった‼]\n        else\n            say (username)\n        end\n    end\n    if <(凍った) = [0]> then\n        if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n            change [x v] by (2)\n        end\n        if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n            change [x v] by (-2)\n        end\n        set [x v] to ((x) * (0.77))\n        change x by (round (x))\n        if <touching (stage v)?> then\n            change y by (1)\n            if <touching (stage v)?> then\n                change y by (1)\n                if <touching (stage v)?> then\n                    change y by (1)\n                    if <touching (stage v)?> then\n                        change y by (1)\n                        if <touching (stage v)?> then\n                            change y by (1)\n                            if <touching (stage v)?> then\n                                change y by (1)\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        if <touching (stage v)?> then\n            壁\n        end\n        change [y v] by (-2)\n        change y by (y)\n        if <touching (stage v)?> then\n            床\n        end\n        change y by (-1)\n        if <<touching (stage v)?> and <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n            set [y v] to [20]\n        end\n        change y by (1)\n        change [scroll x v] by (round ((x position) / (10)))\n        change x by ((0) - ((round ((x position) / (10))) * <not <<(scroll x) < [0]> or <[4500] < (scroll x)>>>))\n        if <(scroll x) < [0]> then\n            set [scroll x v] to [0]\n        end\n        if <[4500] < (scroll x)> then\n            set [scroll x v] to [4500]\n        end\n        change [scroll y v] by (round ((y position) / (10)))\n        change y by ((0) - ((round ((y position) / (10))) * <not <(scroll y) < [0]>>))\n        if <(scroll y) < [0]> then\n            set [scroll y v] to [0]\n        end\n        if <<(y position) < [-150]> and <not <(scroll y) = [0]>>> then\n            set y to (-150)\n            change [y v] by (2)\n        end\n    end\nend\n\ndefine 初期化\nstart sound [Rip v]\nhide\nif <(＃　鬼なのかぁ) = [0]> then\n    set [scroll x v] to [0]\n    set [scroll y v] to [0]\n    set [x v] to [0]\n    set [y v] to [0]\n    go to x: (0) y: (0)\n    broadcast (monster v)\n    show\nelse\n    set [scroll x v] to (pick random (1) to (1600))\n    set [scroll y v] to [610]\n    set [x v] to [0]\n    set [y v] to [0]\n    go to x: (0) y: (0)\n    broadcast (monster v)\n    show\n    clear graphic effects\nend\n\nset [scroll y v] to [0]\n\ndefine 壁\nchange y by (-4)\nset [？ v] to [0]\nrepeat until <<[100] < (？)> or <not <touching (stage v)?>>>\n    change [？ v] by (1)\n    change x by ((-1) * ((x) / ([abs v] of (x) )))\nend\nif <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n    set [y v] to [20]\n    set [x v] to ((-10) * ((x) / ([abs v] of (x) )))\nelse\n    set [x v] to [0]\nend\n\ndefine 床\nset [？ v] to [0]\nrepeat until <<[100] < (？)> or <not <touching (stage v)?>>>\n    change [？ v] by (1)\n    change y by ((-1) * ((y) / ([abs v] of (y) )))\nend\nset [y v] to [0]\n\nwhen I receive [start v]\nshow\nset [！ v] to [0]\nset [scroll y v] to [0]\nif <(＃　鬼なのかぁ) = [1]> then\n    set [scroll x v] to (pick random (1) to (1600))\n    set [scroll y v] to [610]\nelse\n    set [scroll x v] to [0]\nend\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    prayer\nend\n\nwhen I receive [start v]\nif <(＃　鬼なのかぁ) = [0]> then\n    forever\n        switch costume to (鬼　１ v)\n        if <not <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n            if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n                switch costume to (鬼　２ v)\n            end\n            if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n                switch costume to (鬼　３ v)\n            end\n        else\n            switch costume to (鬼　４ v)\n        end\n    end\nelse\n    set [凍った v] to [0]\n    forever\n        if <touching (prayer2 v)?> then\n            if <touching color (#ff0000)?> then\n                switch costume to (逃げる　５ v)\n                set [凍った v] to [1]\n            else\n                if <touching color (#0033ff)?> then\n                    set [凍った v] to [0]\n                end\n            end\n        end\n        if <(凍った) = [0]> then\n            switch costume to (逃げる　１ v)\n            if <not <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n                if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n                    switch costume to (逃げる　２ v)\n                end\n                if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n                    switch costume to (逃げる　３ v)\n                end\n            else\n                switch costume to (逃げる　４ v)\n            end\n        end\n    end\nend\n\nwhen I receive [start v]\nset [！ v] to [0]\nforever\n    if <<(y position) < [-180]> or <touching (stage3 v)?>> then\n        set [！ v] to [1]\n        初期化\n        set [！ v] to [0]\n    end\nend\n\nwhen I receive [初期化 v]\nset [！ v] to [1]\n初期化\nset [！ v] to [0]\n\nwhen I receive [クリア v]\nhide\n\nwhen I receive [# 鬼 v]\nset [＃　鬼なのかぁ v] to [0]\nset [凍った v] to [0]\n\nwhen I receive [# 逃げる v]\nset [＃　鬼なのかぁ v] to [1]\nset [凍った v] to [0]\n\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\n\nwhen I receive [start v]\n\nif <(＃　鬼なのかぁ) = [1]> then\n\nset [scroll x v] to [1600]\n\nswitch costume to (逃げる　５ v)\n\nset [〜 v] to [0]\n\nset [凍った v] to [0]\n\nif <touching color (#00edff)?> then\n    wait (1) seconds\n    wait (0.5) seconds\nend\n\nif <touching color (#00edff)?> then\n    初期化\nend\n\nchange [ghost v] effect by (90)\n\nwhen I receive [monster v]\nrepeat (30)\n    set [凍った v] to [0]\n    set [ghost v] effect to (90)\nend\nset [ghost v] effect to (0)\n\nwhen I receive [start v]\nrepeat (30)\n    set [凍った v] to [0]\n    set [ghost v] effect to (90)\nend\nset [ghost v] effect to (0)\n\n@intro\n\nwhen flag clicked\nhide\nstart sound [Jim Yosef - Fall With Me v]\ncloon [back]\ncloon [back2]\ncloon [ダイヤ]\nwait [2.8]\ncloon [1]\nset x to (-100)\nset [text v] to [R]\ncloon [text]\nwait (0.1) seconds\nset x to (-90)\nset [text v] to [R2]\ncloon [text]\nwait (0.1) seconds\nset x to (-80)\nset [text v] to [R3]\ncloon [text]\nwait (0.1) seconds\nset x to (-70)\nset [text v] to [-]\ncloon [text]\nwait (0.1) seconds\nset x to (-60)\nset [text v] to [s]\ncloon [text]\nwait (0.1) seconds\nset x to (-50)\nset [text v] to [c]\ncloon [text]\nwait (0.1) seconds\nset x to (-40)\nset [text v] to [r]\ncloon [text]\nwait (0.1) seconds\nset x to (-30)\nset [text v] to [a]\ncloon [text]\nwait (0.1) seconds\nset x to (-20)\nset [text v] to [t]\ncloon [text]\nwait (0.1) seconds\nset x to (-10)\nset [text v] to [c2]\ncloon [text]\nwait (0.1) seconds\nset x to (0)\nset [text v] to [h]\ncloon [text]\nwait [4]\ncloon [1]\nwait [5]\ncloon [1]\n\ndefine cloon (id)\nset [id v] to (id)\ncreate clone of (_myself_ v)\n\ndefine wait (wait)\nwait until <(timer) > (wait)>\n\nwhen I start as a clone\nshow\nclear graphic effects\nif <(Id) = [back]> then\n    go to x: (0) y: (300)\n    switch costume to (back v)\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\n    wait [2.8]\n    go to x: (0) y: (-40)\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\n    wait [4]\n    go to x: (0) y: (-40)\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\n    wait [5]\n    go to x: (0) y: (-40)\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\n    wait [9]\n    repeat (10)\n        change [ghost v] effect by (25)\n    end\nend\nif <(Id) = [back2]> then\n    go to x: (0) y: (-300)\n    switch costume to (back2 v)\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\n    wait [2.8]\n    go to x: (0) y: (40)\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\n    wait [4]\n    go to x: (0) y: (40)\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\n    wait [5]\n    go to x: (0) y: (40)\n    repeat (30)\n        change y by (((0) - (y position)) / (5))\n    end\n    wait [9]\n    repeat (10)\n        change [ghost v] effect by (25)\n    end\nend\n\nwhen I start as a clone\nshow\nclear graphic effects\nif <(Id) = [ダイヤ]> then\n    go to x: (0) y: (0)\n    set size to (0) %\n    go to [back v] layer\n    switch costume to (diamond2 v)\n    repeat (20)\n        set [size v] to (((size) * (0.78)) + (((100) - (size)) / (6)))\n        change size by (size)\n    end\n    repeat (40)\n        switch costume to (none v)\n        change size by (((1900) - (size)) / (15))\n        switch costume to (diamond2 v)\n    end\n    wait [9]\n    repeat (10)\n        change [ghost v] effect by (25)\n    end\nend\n\nwhen I start as a clone\nshow\nclear graphic effects\nif <(Id) = [1]> then\n    go to x: (0) y: (0)\n    set [brightness v] effect to (100)\n    set size to (100) %\n    go to [front v] layer\n    switch costume to (flash v)\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nshow\nclear graphic effects\nif <(Id) = [text]> then\n    go to x: (x position) y: (900)\n    set size to (100) %\n    switch costume to (text)\n    repeat (30)\n        change y by (((0) - (y position)) / (6))\n    end\n    point in direction (93)\n    repeat (60)\n        turn right ([abs v] of (((90) - (direction)) / (6)) ) degrees\n    end\n    wait [9]\n    repeat (10)\n        change [ghost v] effect by (25)\n    end\nend\n\nwhen I start as a clone\nshow\nclear graphic effects\nif <(Id) = [logo1]> then\n    go to x: (164) y: (900)\n    set size to (100) %\n    switch costume to (logo1 \(1\) v)\n    repeat (30)\n        change y by (((0) - (y position)) / (6))\n    end\n    wait [9]\n    repeat (10)\n        change [ghost v] effect by (25)\n    end\nend\nif <(Id) = [logo2]> then\n    go to x: (164) y: (-900)\n    set size to (100) %\n    switch costume to (logo2 \(1\) v)\n    repeat (30)\n        change y by (((0) - (y position)) / (6))\n    end\n    wait [9]\n    repeat (10)\n        change [ghost v] effect by (25)\n    end\nend\n\nwhen flag clicked\nwait [7]\ncloon [logo2]\ncloon [logo1]\n\n@スプライト4\n\nwhen flag clicked\nhide\n\nwhen I receive [＃　満員 v]\nshow\nstop [all v]\n\n@ターボモード対策\n\nwhen flag clicked\nhide\n\ndefine ターボモード？\nforever\n    reset timer\n    repeat (10)\n        switch backdrop to (背景1 v)\n    end\n    if <(timer) < [0.1]> then\n        show\n        stop [all v]\n    else\n        hide\n    end\nend\n\nsay [こんにちは!]\n\n\n\nwhen I receive [オンラインへ v]\nターボモード？\n\n@スプライト5\n\nwhen flag clicked\nhide\n\n