NEW！ONLINE MINECRAFT PLATFORMER #geme #online #platformer
@Stage\n\nwhen flag clicked\nforever\n    play sound [Inferno \(2\) v] until done\nend\n\n@Stage\n\nset [タイマー v] to [0]\nforever\n    change [タイマー v] by (1)\n    if <key (any v) pressed?> then\n        set [タイマー v] to [0]\n    end\n    if <[2000] < (タイマー)> then\n        stop [all v]\n    end\nend\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\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\nwhen flag clicked\n\nwhen flag clicked\nset [chat v] to []\nhide\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 ((480) * (2)) [0] [3]\n配置 ((480) * (3)) [0] [4]\n配置 ((480) * (4)) [0] [5]\n配置 ((480) * (5)) [260] [6]\n配置 ((480) * (5.7)) [650] [7]\n配置 ((480) * (6.56)) [650] [8]\n配置 ((480) * (7.56)) [650] [9]\n配置 ((480) * (8.8)) [650] [10]\n配置 ((480) * (9.8)) [650] [11]\n配置 ((480) * (10.8)) [650] [12]\n配置 ((480) * (11.8)) [650] [13]\n配置 ((480) * (12.8)) [650] [14]\n配置 ((480) * (13.8)) [650] [15]\n配置 ((480) * (9.8)) [650] [11]\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\n@Stage2\n\nwhen flag clicked\nhide\n配置 [1400] [-53] [2]\n配置 [1350] [-53] [2]\n配置 [2150] [345] [4]\n配置 [2250] [191] [2]\n配置 [2800] [570] [2]\n配置 [2840] [570] [2]\n配置 [2880] [570] [2]\n配置 [4500] [575] [2]\n配置 [4620] [575] [2]\n配置 [4720] [575] [2]\n配置 [5350] [540] [1]\n配置 [5500] [540] [1]\n\ndefine 配置 (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nset [3 v] to ((3) + (1))\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    switch costume to (なし v)\n    go to x: ((1) - (scroll x)) y: ((2) - (scroll y))\n    show\n    switch costume to (3)\nend\n\n@サムネ\n\nwhen [timer v] > (time)\ngo to x: (-40) y: (0)\ngo to [front v] layer\nswitch costume to (2 v)\nshow\nset [ghost v] effect to (100)\nset [v v] to [35]\nset [z v] to [20]\nrepeat (10)\n    change [ghost v] effect by (-10)\n    switch costume to (2 v)\n    change size by (((130) - (size)) / (5))\n    switch costume to (2 v)\n    change x by (v)\n    change y by (z)\n    set [v v] to (((v) * (.75)) + (((0) - (x position)) / (8.5)))\n    set [z v] to (((z) * (.75)) + (((0) - (y position)) / (7)))\n    turn right (((90) - (direction)) / (7)) degrees\nend\nrepeat (20)\n    switch costume to (2 v)\n    change size by (((100) - (size)) / (7))\n    switch costume to (2 v)\n    change x by (v)\n    change y by (z)\n    set [v v] to (((v) * (.75)) + (((0) - (x position)) / (8.5)))\n    set [z v] to (((z) * (.75)) + (((0) - (y position)) / (5)))\n    turn right (((90) - (direction)) / (5)) degrees\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nreset timer\nforever\n    set [time v] to (timer)\nend\n\nwhen I receive [goal v]\ngo to x: (-40) y: (0)\ngo to [front v] layer\nswitch costume to (3 v)\nshow\nset [ghost v] effect to (100)\nset [v v] to [35]\nset [z v] to [20]\nrepeat (10)\n    change [ghost v] effect by (-10)\n    switch costume to (3 v)\n    change size by (((130) - (size)) / (5))\n    switch costume to (3 v)\n    change x by (v)\n    change y by (z)\n    set [v v] to (((v) * (.75)) + (((0) - (x position)) / (8.5)))\n    set [z v] to (((z) * (.75)) + (((0) - (y position)) / (7)))\n    turn right (((90) - (direction)) / (7)) degrees\nend\nrepeat (20)\n    switch costume to (3 v)\n    change size by (((100) - (size)) / (7))\n    switch costume to (3 v)\n    change x by (v)\n    change y by (z)\n    set [v v] to (((v) * (.75)) + (((0) - (x position)) / (8.5)))\n    set [z v] to (((z) * (.75)) + (((0) - (y position)) / (5)))\n    turn right (((90) - (direction)) / (5)) degrees\nend\nwait (3) seconds\nstop [all v]\n\n@prayer\n\nwhen flag clicked\nset [xx v] to [0]\nset [yy v] to [25]\nhide\n\ndefine prayer\npoint in direction (90)\nif <(！) = [0]> then\n    if <not <(username) = []>> then\n        if <(chat) = []> then\n            say (username)\n        else\n            say (join (username) (join [:] (item (chat) of [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        change [x v] by (1.2)\n    end\n    if <<<not <<[130] < (mouse y)> and <(mouse x) < [-100]>>> and <<mouse down?> and <(mouse x) < [-50]>>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n        change [x v] by (-1.2)\n    end\n    set [x v] to ((x) * (0.87))\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 (-1.35)\n    change y by (y)\n    if <touching (stage 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 <[6596] < (scroll x)>>>))\n    if <(scroll x) < [0]> then\n        set [scroll x v] to [0]\n    end\n    if <[6596] < (scroll x)> then\n        set [scroll x v] to [6596]\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 (stage v)?>>>\n    change [？ v] by (1)\n    change x by ((-1) * ((x) / ([abs v] of (x) )))\nend\nif <[100] < (？)> then\n    repeat (？)\n        change x by ((1) * ((x) / ([abs v] of (x) )))\n    end\nelse\n    if <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n        start sound [Tennis Hit v]\n        set [y v] to [17]\n        set [x v] to ((-7) * ((x) / ([abs v] of (x) )))\n    else\n        set [x v] to [0]\n    end\nend\n\ndefine 床\nrepeat until <not <touching (stage 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    start sound [Jump \(1\) v]\n    set [y v] to [20]\nelse\n    set [y v] to [0]\nend\n\nwhen I receive [start v]\nshow\nset [！ v] to [0]\nset [scroll x v] to [0]\nset [scroll y v] to [25]\ngo to x: (0) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    prayer\nend\n\nwhen I receive [start v]\nforever\n    switch costume to (コスチューム1 v)\n    if <not <<<mouse down?> and <[0] < (mouse y)>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n        if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n            switch costume to (コスチューム2 v)\n        end\n        if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n            switch costume to (コスチューム3 v)\n        end\n    else\n        if <not <<mouse down?> and <<[130] < (mouse y)> and <(mouse x) < [-100]>>>> then\n            switch costume to (コスチューム6 v)\n            if <<<mouse down?> and <[50] < (mouse x)>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n                switch costume to (コスチューム4 v)\n            end\n            if <<<mouse down?> and <(mouse x) < [-50]>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n                switch costume to (コスチューム5 v)\n            end\n        end\n    end\nend\n\nwhen I receive [start v]\nset [！ v] to [0]\nforever\n    if <<(y position) < [-180]> or <touching (stage2 v)?>> then\n        set [！ v] to [1]\n        初期化\n        set [！ v] to [0]\n    end\nend\n\nwhen I receive [初期化 v]\nset [！ v] to [1]\n初期化\nset [！ v] to [0]\n\nwhen flag clicked\nbroadcast (START v)\n\nwhen [timer v] > (time)\nhide\n\nwait (0.01) seconds\n\nwhen flag clicked\nforever\n    バネ\nend\n\ndefine バネ\n\nwhen I receive [喋るんだ☆ v]\n\n@online\n\nwhen I receive [オンライン v]\nset [online v] to [1]\nwait (1) seconds\nset [☁ p1 v] to [0]\nset [☁ p2 v] to [0]\nset [☁ p3 v] to [0]\nset [☁ p4 v] to [0]\nset [☁ p5 v] to [0]\nset [☁ p6 v] to [0]\nset [☁ p6 v] to [0]\nset [☁ p8 v] to [0]\nset [☁ p9 v] to [0]\nset [☁ p10 v] to [0]\nset [1p？ v] to [0]\nwait (1) seconds\nbroadcast (オンライン！ v)\nforever\n    if <(☁ p1) = [0]> then\n        ユーザー名数値化\n        forever\n            set [1p？ v] to [1]\n            set [☁ p1 v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [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) )) (join (！) ([direction v] of [prayer v])))))))\n        end\n    else\n        if <(☁ p2) = [0]> then\n            ユーザー名数値化\n            forever\n                set [1p？ v] to [2]\n                set [☁ p2 v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [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) )) (join (！) ([direction v] of [prayer v])))))))\n            end\n        else\n            if <(☁ p3) = [0]> then\n                ユーザー名数値化\n                forever\n                    set [1p？ v] to [3]\n                    set [☁ p3 v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [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) )) (join (！) ([direction v] of [prayer v])))))))\n                end\n            else\n                if <(☁ p4) = [0]> then\n                    ユーザー名数値化\n                    forever\n                        set [1p？ v] to [4]\n                        set [☁ p4 v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [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) )) (join (！) ([direction v] of [prayer v])))))))\n                    end\n                else\n                    if <(☁ p5) = [0]> then\n                        ユーザー名数値化\n                        forever\n                            set [1p？ v] to [5]\n                            set [☁ p5 v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [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) )) (join (！) ([direction v] of [prayer v])))))))\n                        end\n                    else\n                        if <(☁ p6) = [0]> then\n                            ユーザー名数値化\n                            forever\n                                set [1p？ v] to [6]\n                                set [☁ p6 v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [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) )) (join (！) ([direction v] of [prayer v])))))))\n                            end\n                        else\n                            if <(☁ p7) = [0]> then\n                                ユーザー名数値化\n                                forever\n                                    set [1p？ v] to [7]\n                                    set [☁ p7 v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [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) )) (join (！) ([direction v] of [prayer v])))))))\n                                end\n                            else\n                                if <(☁ p8) = [0]> then\n                                    ユーザー名数値化\n                                    forever\n                                        set [1p？ v] to [8]\n                                        set [☁ p8 v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [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) )) (join (！) ([direction v] of [prayer v])))))))\n                                    end\n                                else\n                                    if <(☁ p9) = [0]> then\n                                        ユーザー名数値化\n                                        forever\n                                            set [1p？ v] to [9]\n                                            set [☁ p9 v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [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) )) (join (！) ([direction v] of [prayer v])))))))\n                                        end\n                                    else\n                                        if <(☁ p10) = [0]> then\n                                            ユーザー名数値化\n                                            forever\n                                                set [1p？ v] to [10]\n                                                set [☁ p10 v] to (join (user2) (join (join ((1500) + ((scroll x) + ([x position v] of [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) )) (join (！) ([direction v] of [prayer v])))))))\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine ユーザー名数値化\nset [user v] to [0]\nset [user2 v] to []\nrepeat (length of (username))\n    change [user v] by (1)\n    switch costume to (letter (user) of (username))\n    set [user2 v] to (join (user2) (costume [number v]))\nend\nrepeat ((40) - (length of (user2)))\n    set [user2 v] to (join (user2) [0])\nend\n\nwhen I receive [オンライン v]\nbroadcast (言う v)\nforever\n    復元1\nend\n\ndefine 復元1\ndelete all of [user v]\nset [% v] to [0]\nrepeat (10)\n    switch costume to ( v)\n    change [% v] by (1)\n    set [〜 v] to [0]\n    set [4 v] to []\n    repeat (20)\n        if <not <(join (letter ((〜) + (1)) of (item (%) of [p1〜10 v])) (letter ((〜) + (2)) of (item (%) of [p1〜10 v]))) = [00]>> then\n            change [〜 v] by (2)\n            switch costume to (join (letter ((〜) - (1)) of (item (%) of [p1〜10 v])) (letter (〜) of (item (%) of [p1〜10 v])))\n            set [4 v] to (join (4) (costume [name v]))\n        end\n    end\n    add (4) to [user v]\nend\n\nwhen flag clicked\nforever\n    delete all of [p1〜10 v]\n    add (☁ p1) to [p1〜10 v]\n    add (☁ p2) to [p1〜10 v]\n    add (☁ p3) to [p1〜10 v]\n    add (☁ p4) to [p1〜10 v]\n    add (☁ p5) to [p1〜10 v]\n    add (☁ p6) to [p1〜10 v]\n    add (☁ p7) to [p1〜10 v]\n    add (☁ p8) to [p1〜10 v]\n    add (☁ p9) to [p1〜10 v]\n    add (☁ p10) to [p1〜10 v]\nend\n\nwhen I receive [オンライン！ v]\nforever\n    delete all of [1〜10 2 v]\n    add (☁ p1) to [1〜10 2 v]\n    add (☁ p2) to [1〜10 2 v]\n    add (☁ p3) to [1〜10 2 v]\n    add (☁ p4) to [1〜10 2 v]\n    add (☁ p5) to [1〜10 2 v]\n    add (☁ p6) to [1〜10 2 v]\n    add (☁ p7) to [1〜10 2 v]\n    add (☁ p8) to [1〜10 2 v]\n    add (☁ p9) to [1〜10 2 v]\n    add (☁ p10) to [1〜10 2 v]\n    wait (1.5) seconds\n    if <(letter (53) of (item (1) of [p1〜10 v])) = (letter (53) of (item (1) of [1〜10 2 v]))> then\n        set [☁ p1 v] to [0]\n    end\n    if <(letter (53) of (item (2) of [p1〜10 v])) = (letter (53) of (item (2) of [1〜10 2 v]))> then\n        set [☁ p2 v] to [0]\n    end\n    if <(letter (53) of (item (3) of [p1〜10 v])) = (letter (53) of (item (3) of [1〜10 2 v]))> then\n        set [☁ p3 v] to [0]\n    end\n    if <(letter (53) of (item (4) of [p1〜10 v])) = (letter (53) of (item (4) of [1〜10 2 v]))> then\n        set [☁ p4 v] to [0]\n    end\n    if <(letter (53) of (item (5) of [p1〜10 v])) = (letter (53) of (item (5) of [1〜10 2 v]))> then\n        set [☁ p5 v] to [0]\n    end\n    if <(letter (53) of (item (6) of [p1〜10 v])) = (letter (53) of (item (6) of [1〜10 2 v]))> then\n        set [☁ p6 v] to [0]\n    end\n    if <(letter (53) of (item (7) of [p1〜10 v])) = (letter (53) of (item (7) of [1〜10 2 v]))> then\n        set [☁ p7 v] to [0]\n    end\n    if <(letter (53) of (item (8) of [p1〜10 v])) = (letter (53) of (item (8) of [1〜10 2 v]))> then\n        set [☁ p8 v] to [0]\n    end\n    if <(letter (53) of (item (9) of [p1〜10 v])) = (letter (53) of (item (9) of [1〜10 2 v]))> then\n        set [☁ p9 v] to [0]\n    end\n    if <(letter (53) of (item (10) of [p1〜10 v])) = (letter (53) of (item (10) of [1〜10 2 v]))> then\n        set [☁ p10 v] to [0]\n    end\nend\n\nwhen flag clicked\nbroadcast (オンライン v)\n\n@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 (コスチューム7 v)\n    xy (((join (letter (41) of (item (prayer2) of [p1〜10 v])) (join (letter (42) of (item (prayer2) of [p1〜10 v])) (join (letter (43) of (item (prayer2) of [p1〜10 v])) (letter (44) of (item (prayer2) of [p1〜10 v]))))) - (1500)) - (scroll x)) (((join (letter (45) of (item (prayer2) of [p1〜10 v])) (join (letter (46) of (item (prayer2) of [p1〜10 v])) (join (letter (47) of (item (prayer2) of [p1〜10 v])) (letter (48) of (item (prayer2) of [p1〜10 v]))))) - (1500)) - (scroll y))\n    point in direction (join (letter (55) of (item (prayer2) of [p1〜10 v])) (letter (56) of (item (prayer2) of [p1〜10 v])))\n    switch costume to ((join (letter (49) of (item (prayer2) of [p1〜10 v])) (letter (50) of (item (prayer2) of [p1〜10 v]))) - (10))\n    if <((join (letter (51) of (item (prayer2) of [p1〜10 v])) (letter (52) of (item (prayer2) of [p1〜10 v]))) - (10)) = [0]> then\n        say (item (prayer2) of [user v])\n    else\n        say (join (item (prayer2) of [user v]) (join [:] (item ((join (letter (51) of (item (prayer2) of [p1〜10 v])) (letter (52) of (item (prayer2) of [p1〜10 v]))) - (10)) of [chat v])))\n    end\nend\n\ndefine xy (x) (y)\ngo to x: (x) y: (y)\nif <not <<(x position) = (x)> and <(y position) = (y)>>> then\n    set [ghost v] effect to (100)\nend\n\n@スプライト2\n\nwhen flag clicked\ngo to [back v] layer\nset size to (110) %\nset [変数 v] to [0]\nforever\n    change [変数 v] by (1.2)\n    change size by ([sin v] of (変数) )\nend\n\n@チェックポイント\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\nswitch costume to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I receive [オンライン v]\n配置 [1820] [-65] [1]\n配置 [4380] [563] [1]\n\nwhen I start as a clone\nforever\n    if <touching (prayer v)?> then\n        start sound [チェック v]\n        set [xx v] to (1)\n        set [yy v] to ((2) + (33))\n        switch costume to (2 v)\n        point in direction (120)\n        repeat until <(round (direction)) = [90]>\n            turn right (((90) - (direction)) / (4)) degrees\n        end\n        forever\n        end\n    end\nend\n\nswitch costume to (2 v)\n\nrepeat (2)\n    wait (0.05) seconds\n    next costume\nend\nrepeat (4)\n    wait (0.05) seconds\n    switch costume to ((costume [number v]) - (1))\nend\nwait (0.05) seconds\nnext costume\nwait (0.05) seconds\n\nif <([costume name v] of [サウンドボタン v]) = [1]> then\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nforever\n    移動 ((1) - (scroll x)) (((2) - (scroll y)) + (yショック))\nend\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\nwhen I receive [切り替え v]\ndelete this clone\n\n@透明！\n\nwhen flag clicked\nforever\n    go to x: (0) y: (0)\nend\n\n@☆\n\nwhen flag clicked\nset [☆ v] to [0]\nset [ghost v] effect to (99)\ngo to x: (0) y: (0)\nshow\nforever\n    if <touching (mouse-pointer v)?> then\n        if <(☆) = [1]> then\n            set [☆ v] to [0]\n        else\n            set [☆ v] to [1]\n        end\n    end\n    wait until <not <touching (mouse-pointer v)?>>\nend\n\n@♡\n\nwhen flag clicked\nset [ghost v] effect to (99)\nset [♡ v] to [0]\ngo to x: (0) y: (0)\nshow\nforever\n    if <touching (mouse-pointer v)?> then\n        if <(❤) = [1]> then\n            set [❤ v] to [0]\n        else\n            set [❤ v] to [1]\n        end\n    end\n    wait until <not <touching (mouse-pointer v)?>>\nend\n\n@スプライト1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\nhide\nset [❤ v] to [0]\nset [☆ v] to [0]\nforever\n    go to [front v] layer\n    wait until <<(❤) = [1]> and <(☆) = [1]>>\n    show\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    wait (1.5) seconds\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    set [❤ v] to [0]\n    set [☆ v] to [0]\nend\n\n@Stage7\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配置 [6800] [745] [1]\n\nwhen I start as a clone\nforever\n    if <touching (prayer v)?> then\n        set [！ v] to [1]\n        change [3 v] by (1)\n        wait (0) seconds\n        broadcast (goal v)\n        \n    end\nend\n\n@スプライト3\n\nwhen flag clicked\nif <(説明) = [1]> then\n    hide\nelse\n    change [説明 v] by (1)\n    set [ghost v] effect to (100)\n    go to [front v] layer\n    show\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    wait (1) seconds\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    hide\nend\n\n@Weather\n\nwhen I receive [layer sort v]\nif <(cloud_num) = [-1]> then\n    Z-index Sprite by [999]\nend\nif <(cloud_num) > [0]> then\n    Z-index Sprite by [998]\nend\n\ndefine Z-index Sprite by (z-index)\nset [i v] to [1]\nrepeat until <not <(z-index) < (item (i) of [z-index v])>>\n    change [i v] by (1)\nend\ninsert (z-index) at (i) of [z-index v] \ngo [forward v] ((i) - (1)) layers\n\nwhen I start as a clone\nif <(cloud_num) = [-1]> then\n    show\n    forever\n        go to [back v] layer\n        go [backward v] (1) layers\n        if <(#Daylight cycle) = [Day]> then\n            switch costume to (sun v)\n            go to x: ((140) + ((4) * ([cos v] of (#Frame) ))) y: ((100) + ((4) * ([sin v] of (#Frame) )))\n        end\n        if <(#Daylight cycle) = [Sunset]> then\n            switch costume to (sunset v)\n            go to x: ((140) + ((4) * ([cos v] of (#Frame) ))) y: ((100) + ((4) * ([sin v] of (#Frame) )))\n        end\n        if <(#Daylight cycle) = [Night]> then\n            switch costume to (moon v)\n            go to x: ((0) + ((220) * ([cos v] of (((#Frame) / (30)) + (180)) ))) y: ((-250) + ((380) * ([sin v] of ((#Frame) / (30)) )))\n        end\n    end\nend\nif <(cloud_num) > [0]> then\n    set [cloud y v] to (pick random (100) to (170))\n    if <(#Biome) = [2]> then\n        go [backward v] (5) layers\n        set [cloud y v] to (pick random (-80) to (0))\n        set [ghost v] effect to (50)\n    end\n    switch costume to ((1) + (pick random (1) to (11)))\n    set y to (cloud y)\n    repeat until <(cloud x) < [-400]>\n        show\n        set x to (cloud x)\n        if <(#Daylight cycle) = [Night]> then\n            set [ghost v] effect to (90)\n        else\n            set [ghost v] effect to (20)\n        end\n        if <(#Gamemode) = (item (1) of [#gamemode v])> then\n    end\n    change [cloud_num v] by (-1)\n    delete this clone\nend\n\nwhen flag clicked\nhide\nset [cloud_num v] to [-1]\ncreate clone of (_myself_ v)\nadd [雲のクローンを作成] to [1 v]\nset [cloud_num v] to [1]\nset [cloud x v] to [-100]\ncreate clone of (_myself_ v)\nadd [雲のクローンを作成] to [1 v]\nchange [cloud_num v] by (1)\nset [cloud x v] to [100]\ncreate clone of (_myself_ v)\nadd [雲のクローンを作成] to [1 v]\nchange [cloud_num v] by (1)\nforever\n    if <(cloud_num) < [10]> then\n        if <(pick random (1) to (5)) = [1]> then\n            set [cloud x v] to [300]\n            change [cloud_num v] by (1)\n            create clone of (_myself_ v)\n            add [雲のクローンを作成] to [1 v]\n        end\n        wait (3) seconds\n    end\nend\n\n@山（背景）\n\nwhen flag clicked\ngo to [back v] layer\n配置 [0] [0] [1] [4]\n配置 [2392] [0] [2] [4]\n配置 [4784] [0] [1] [4]\n配置 [7176] [0] [2] [4]\n\ndefine 移動 (ｘ) (ｙ)\n\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\nwhen I start as a clone\nforever\n    移動 (((1) - (scroll x)) / (3)) (((2) - (scroll y)) / (3))\nend\n\ndefine 配置 (1) (2) (3) (4)\nset [1 v] to (1)\nset [2 v] to (2)\nswitch costume to (3)\nset [3 v] to (4)\ncreate clone of (_myself_ v)\n\nwhen I receive [スタート v]\n\nwhen I receive [切り替え v]\ndelete this clone\n\n@チャット\n\nwhen flag clicked\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)\nhide\n\nwhen I receive [チャット v]\nif <(costume [number v]) = [1]> then\n    wait (5) seconds\n    set [chat v] to []\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    forever\n        go to x: (-180) y: (150)\n        set [ghost v] effect to (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) < [13]>> then\n                if <<(answer) = [11]> and <(username) = [nyaanyaanyaanyaa]>> then\n                    set [chat v] to (answer)\n                    broadcast (チャット v)\n                else\n                    if <<(answer) = [12]> and <(username) = [nyaanyaanyaanyaa]>> then\n                        set [chat v] to (answer)\n                        broadcast (チャット v)\n                    else\n                        set [chat v] to (answer)\n                        broadcast (チャット v)\n                    end\n                end\n            end\n        end\n        if <touching (mouse-pointer v)?> then\n            set [brightness v] effect to (18)\n        else\n            set [brightness v] effect to (0)\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 flag clicked\ndelete all of [chat v]\nadd [Hello//こんにちは] to [chat v]\nadd [Hi//やあ] to [chat v]\nadd [Nice//ナイス] to [chat v]\nadd [Let's go together// 一緒に行こう] to [chat v]\nadd [Good//良いね] to [chat v]\nadd [Good luck!//頑張っ て！] to [chat v]\nadd [difficult//難しい] to [chat v]\nadd [Ok//わかった] to [chat v]\nadd [\(^_^\)] to [chat v]\nadd [*\\(^o^\)/*] to [chat v]\nadd [ I'm the author!/作者です！] to [chat v]\nadd [followme!/フォローして！] to [chat v]\n\n