[☁online] Night platformer//夜のプラットフォーマー
@Stage\n\nwhen flag clicked\nforever\n    play sound [Medieval1 v] until done\nend\n\n@オンライン\n\nwhen I receive [オンライン v]\nset [オンライン v] to [1]\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 [☁ p7 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 (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n        end\n    else\n        if <(☁ p2) = [0]> then\n            ユーザー名数値化\n            forever\n                set [1p？ v] to [2]\n                set [☁ p2 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n            end\n        else\n            if <(☁ p3) = [0]> then\n                ユーザー名数値化\n                forever\n                    set [1p？ v] to [3]\n                    set [☁ p3 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                end\n            else\n                if <(☁ p4) = [0]> then\n                    ユーザー名数値化\n                    forever\n                        set [1p？ v] to [4]\n                        set [☁ p4 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                    end\n                else\n                    if <(☁ p5) = [0]> then\n                        ユーザー名数値化\n                        forever\n                            set [1p？ v] to [5]\n                            set [☁ p5 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                        end\n                    else\n                        if <(☁ p6) = [0]> then\n                            ユーザー名数値化\n                            forever\n                                set [1p？ v] to [6]\n                                set [☁ p6 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                            end\n                        else\n                            if <(☁ p7) = [0]> then\n                                ユーザー名数値化\n                                forever\n                                    set [1p？ v] to [7]\n                                    set [☁ p7 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                                end\n                            else\n                                if <(☁ p8) = [0]> then\n                                    ユーザー名数値化\n                                    forever\n                                        set [1p？ v] to [8]\n                                        set [☁ p8 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                                    end\n                                else\n                                    if <(☁ p9) = [0]> then\n                                        ユーザー名数値化\n                                        forever\n                                            set [1p？ v] to [9]\n                                            set [☁ p9 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                                        end\n                                    else\n                                        if <(☁ p10) = [0]> then\n                                            ユーザー名数値化\n                                            forever\n                                                set [1p？ v] to [10]\n                                                set [☁ p10 v] to (join (ユーザー名数値化) (join (join (([floor v] of (X) ) + (1500)) (([floor v] of (Y) ) + (1500))) (join (([direction v] of [キャラ v]) + (1)) (join ((しゃべる言葉) + (10)) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\nbroadcast (オンライン v)\n\ndefine ユーザー名数値化\nset [ユーザー v] to [0]\nset [ユーザー名数値化 v] to []\nrepeat (length of (username))\n    change [ユーザー v] by (1)\n    switch costume to (letter (ユーザー) of (username))\n    set [ユーザー名数値化 v] to (join (ユーザー名数値化) (costume [number v]))\nend\nrepeat ((40) - (length of (ユーザー名数値化)))\n    set [ユーザー名数値化 v] to (join (ユーザー名数値化) [0])\nend\n\nwhen I receive [オンライン v]\nbroadcast (言う v)\nforever\n    復元1\nend\n\ndefine 復元1\ndelete all of [ユーザー v]\nset [回数 v] to [0]\nrepeat (10)\n    switch costume to ( v)\n    change [回数 v] by (1)\n    set [読み込み v] to [0]\n    set [1 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 [1 v] to (join (1) (costume [name v]))\n        end\n    end\n    add (1) to [ユーザー v]\nend\n\n@スプライト4\n\ndefine 配置\ngo to [front v] layer\nswitch costume to (コスチューム1 v)\ngo to x: (-188) y: (167)\nrepeat (11)\n    create clone of (_myself_ v)\n    change y by (-25)\n    next costume\n    set [ghost v] effect to (50)\nend\n\nwhen flag clicked\nset [しゃべる言葉 v] to [0]\nset [チャット？ v] to [0]\nhide\n配置\n\nwhen I start as a clone\nshow\nforever\n    go to [front v] layer\n    if <(costume [number v]) = [1]> then\n        show\n        if <<mouse down?> and <touching (mouse-pointer v)?>> then\n            if <(チャット？) = [1]> then\n                set [チャット？ v] to [0]\n                wait until <not <<mouse down?> and <touching (mouse-pointer v)?>>>\n            else\n                wait until <not <<mouse down?> and <touching (mouse-pointer v)?>>>\n                set [チャット？ v] to [1]\n            end\n        end\n    else\n        if <<(チャット？) = [1]> and <not <(costume [number v]) = [1]>>> then\n            show\n            if <<mouse down?> and <touching (mouse-pointer v)?>> then\n                set [しゃべる言葉 v] to ((costume [number v]) - (1))\n                broadcast (喋る v)\n            end\n        else\n            hide\n        end\n    end\nend\n\nwhen I receive [喋る v]\nwait (5) seconds\nset [しゃべる言葉 v] to [0]\n\nwhen I start as a clone\nforever\n    set [チャットか？ v] to (mouse y)\n    if <<(チャット？) = [1]> and <<(mouse x) < [-140]> and <[-100] < (mouse y)>>> then\n        set [チャットか？ v] to [1]\n    else\n        if <<(チャット？) = [0]> and <<(mouse x) < [-140]> and <[150] < (mouse y)>>> then\n            set [チャットか？ v] to [1]\n        else\n            set [チャットか？ v] to [0]\n        end\n    end\nend\n\n@背景\n\nwhen flag clicked\ngo to [front v] layer\ngo [backward v] (1) layers\nhide\nset [ghost v] effect to (50)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\ngo to [back v] layer\nswitch costume to (なし v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (視点x)) ((My_y) - (視点y))\nend\n\nwhen I start as a clone\nshow\n\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [1200] [0] [3]\nステージ配置 [1600] [0] [4]\nステージ配置 [2200] [0] [5]\nステージ配置 [2700] [0] [6]\nステージ配置 [3900] [520] [7]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\n@障害物\n\nwhen flag clicked\nhide\nwait (0) seconds\ngo to [front v] layer\nステージ配置 [100] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [1200] [0] [3]\nステージ配置 [1600] [0] [4]\nステージ配置 [2200] [200] [5]\nステージ配置 [2700] [0] [6]\nステージ配置 [2700] [360] [7]\nステージ配置 [3400] [520] [8]\nステージ配置 [3900] [520] [10]\nステージ配置 [4600] [520] [9]\nステージ配置 [5100] [520] [11]\nステージ配置 [5600] [800] [12]\nswitch costume to (なし v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (なし v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <not <(costume [number v]) = [1]>> then\n    移動 ((My_x) - (視点x)) ((My_y) - (視点y))\nend\n\n@チェックポイント\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((2000) - (視点x)) ((105) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [2000]\n        set [復活y v] to [105]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\nhide\n\nwhen [timer v] > (time2)\nhide\n\n@キャラ\n\nwhen flag clicked\ngo to x: (0) y: (-20)\nset [x v] to [0]\nset [y v] to [0]\nset [視点x v] to [-200]\nset [視点y v] to [-20]\nset [x v] to [-200]\nset [y v] to [-20]\nset [復活x v] to [-200]\nset [復活y v] to [-20]\n\ndefine 動作\nif <touching (背景 v)?> then\n    change [y v] by (-0.1)\nelse\n    change [y v] by (-1)\nend\nchange [i v] by (1)\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n    if <(チャットか？) = [0]> then\n        set rotation style [left-right v]\n        point in direction (1)\n        change [x v] by (1)\n    end\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n    if <(チャットか？) = [0]> then\n        set rotation style [left-right v]\n        point in direction (-1)\n        change [x v] by (-1)\n    end\nend\nset [x v] to ((x) * (0.88))\nchange x by (x)\nrepeat (15)\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\nend\nif <touching (地面 v)?> then\n    change y by (-15)\n    位置補正x (() - ((x) / ([abs v] of (x) ))) ([ceiling v] of ([abs v] of (x) ) )\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n        if <(チャットか？) = [0]> then\n            start sound [Jump v]\n            set [y v] to [12]\n            set [x v] to ((7) - (<(x) > [0]> * (14)))\n        end\n    else\n        set [x v] to [0]\n    end\nend\nchange y by (y)\nif <touching (地面 v)?> then\n    位置補正y (() - ((y) / ([abs v] of (y) ))) ([ceiling v] of ([abs v] of (y) ) )\nend\nchange y by (-1.1)\nif <<touching (地面 v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n    if <touching (背景 v)?> then\nend\nif <<touching (背景 v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n    if <(チャットか？) = [0]> then\n        set [y v] to [5]\n    end\nend\nchange y by (1.1)\nif <<(Y) < [-400]> or <touching (障害物 v)?>> then\n    初期位置\nend\n処理\nbroadcast (プログラム2 v)\nif <(x position) > [70]> then\n    set x to (70)\nend\nif <(x position) < [-60]> then\n    set x to (-60)\nend\n\nwhen I receive [プログラム v]\n動作\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (視点x)))\nchange [y v] by ((y position) - (((Y) - (視点y)) - (20)))\nchange [視点x v] by ([floor v] of (((X) - (視点x)) * (0.1)) )\nchange [視点y v] by ([floor v] of (((Y) - (視点y)) * (0.2)) )\nset x to ((X) - (視点x))\nset y to (((Y) - (視点y)) - (20))\n\ndefine 位置補正x (向き) (回数)\nif <(x) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (地面 v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (地面 v)?>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(y) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (地面 v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (地面 v)?>>)))\nset [y v] to [0]\n\ndefine 初期位置\npoint in direction (1)\ngo to x: (0) y: (-20)\nset [x v] to [0]\nset [y v] to [0]\nset [視点x v] to (復活x)\nset [視点y v] to (復活y)\nset [x v] to (復活x)\nset [y v] to (復活y)\nset [しゃべる言葉 v] to [0]\n\nwhen flag clicked\nshow\nset size to (50) %\npoint in direction (1)\n\nwhen flag clicked\nwait (0.1) seconds\ngo to [front v] layer\ngo [forward v] (2) layers\n\nwhen I receive [オンライン！ v]\nset [しゃべる言葉 v] to [0]\nforever\n    if <not <(username) = []>> then\n        if <(しゃべる言葉) = [0]> then\n            say (username)\n        else\n            say (join (join (username) [:]) (item (しゃべる言葉) of [しゃべる言葉 v]))\n        end\n    end\nend\n\nwhen [timer v] > (time2)\nhide\n\n@オンライン2\n\ndefine コピー\nswitch costume to (コスチューム1 v)\nrepeat (10)\n    create clone of (_myself_ v)\n    next costume\nend\n\nwhen I receive [オンライン！ v]\ngo to [front v] layer\nhide\nコピー\n\nwhen I receive [プログラム2 v]\n移動 (((join (join (letter (41) of (item (costume [number v]) of [p1〜10 v])) (letter (42) of (item (costume [number v]) of [p1〜10 v]))) (join (letter (43) of (item (costume [number v]) of [p1〜10 v])) (letter (44) of (item (costume [number v]) of [p1〜10 v])))) - (1500)) - (視点x)) (((join (join (letter (45) of (item (costume [number v]) of [p1〜10 v])) (letter (46) of (item (costume [number v]) of [p1〜10 v]))) (join (letter (47) of (item (costume [number v]) of [p1〜10 v])) (letter (48) of (item (costume [number v]) of [p1〜10 v])))) - (1500)) - ((視点y) - (-20)))\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\ndefine 移動 (x) (y)\nset rotation style [left-right v]\ngo to x: (x) y: (y)\nif <<(1p？) = (costume [number v])> or <(item (costume [number v]) of [p1〜10 v]) = [0]>> then\n    hide\nend\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    if <<not <(1p？) = (costume [number v])>> and <not <(item (costume [number v]) of [p1〜10 v]) = [0]>>> then\n        if <[0] = ((join (letter (50) of (item (costume [number v]) of [p1〜10 v])) (letter (51) of (item (costume [number v]) of [p1〜10 v]))) - (10))> then\n            say (item (costume [number v]) of [ユーザー v])\n        else\n            say (join (item (costume [number v]) of [ユーザー v]) (join [:] (item ((join (letter (50) of (item (costume [number v]) of [p1〜10 v])) (letter (51) of (item (costume [number v]) of [p1〜10 v]))) - (10)) of [しゃべる言葉 v])))\n        end\n        point in direction ((-1) + (letter (49) of (item (costume [number v]) of [p1〜10 v])))\n        show\n        set [ghost v] effect to (100)\n    end\nelse\n    if <<not <(1p？) = (costume [number v])>> and <not <(item (costume [number v]) of [p1〜10 v]) = [0]>>> then\n        if <[0] = ((join (letter (50) of (item (costume [number v]) of [p1〜10 v])) (letter (51) of (item (costume [number v]) of [p1〜10 v]))) - (10))> then\n            say (item (costume [number v]) of [ユーザー v])\n        else\n            say (join (item (costume [number v]) of [ユーザー v]) (join [:] (item ((join (letter (50) of (item (costume [number v]) of [p1〜10 v])) (letter (51) of (item (costume [number v]) of [p1〜10 v]))) - (10)) of [しゃべる言葉 v])))\n        end\n        point in direction ((-1) + (letter (49) of (item (costume [number v]) of [p1〜10 v])))\n        show\n        set [ghost v] effect to (0)\n    end\nend\n\nwhen I start as a clone\nforever\n    delete all of [確認 v]\n    add (☁ p1) to [確認 v]\n    add (☁ p2) to [確認 v]\n    add (☁ p3) to [確認 v]\n    add (☁ p4) to [確認 v]\n    add (☁ p5) to [確認 v]\n    add (☁ p6) to [確認 v]\n    add (☁ p7) to [確認 v]\n    add (☁ p8) to [確認 v]\n    add (☁ p9) to [確認 v]\n    add (☁ p10) to [確認 v]\n    wait (1) seconds\n    if <(letter (length of (item (costume [number v]) of [確認 v])) of (item (costume [number v]) of [確認 v])) = (letter (length of (item (costume [number v]) of [p1〜10 v])) of (item (costume [number v]) of [p1〜10 v]))> then\n        if <(costume [number v]) = [1]> then\n            hide\n            set [☁ p1 v] to [0]\n        end\n        if <(costume [number v]) = [2]> then\n            hide\n            set [☁ p2 v] to [0]\n        end\n        if <(costume [number v]) = [3]> then\n            hide\n            set [☁ p3 v] to [0]\n        end\n        if <(costume [number v]) = [4]> then\n            hide\n            set [☁ p4 v] to [0]\n        end\n        if <(costume [number v]) = [5]> then\n            hide\n            set [☁ p5 v] to [0]\n        end\n        if <(costume [number v]) = [6]> then\n            hide\n            set [☁ p6 v] to [0]\n        end\n        if <(costume [number v]) = [7]> then\n            hide\n            set [☁ p7 v] to [0]\n        end\n        if <(costume [number v]) = [8]> then\n            hide\n            set [☁ p8 v] to [0]\n        end\n        if <(costume [number v]) = [9]> then\n            hide\n            set [☁ p9 v] to [0]\n        end\n        if <(costume [number v]) = [10]> then\n            hide\n            set [☁ p10 v] to [0]\n        end\n    end\nend\n\nwhen [timer v] > (time2)\nhide\n\n@地面\n\nwhen flag clicked\nwait (0.1) seconds\nhide\ngo to [front v] layer\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [1185] [0] [3]\nステージ配置 [1600] [0] [4]\nステージ配置 [2200] [200] [5]\nステージ配置 [2700] [360] [6]\nステージ配置 [3400] [360] [7]\nステージ配置 [3900] [520] [8]\nステージ配置 [4600] [520] [9]\nステージ配置 [5100] [520] [10]\nステージ配置 [5600] [520] [11]\nステージ配置 [6100] [800] [12]\nステージ配置 [6600] [900] [13]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (なし v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (視点x)) ((My_y) - (視点y))\nend\n\nwhen I start as a clone\nshow\n\nwhen flag clicked\nhide\n\n@影2\n\nwhen flag clicked\n\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [1200] [0] [3]\nステージ配置 [1600] [0] [4]\nステージ配置 [2200] [0] [5]\nステージ配置 [2700] [0] [6]\nステージ配置 [2700] [360] [7]\nステージ配置 [3900] [520] [8]\nステージ配置 [5100] [520] [9]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\ngo to [back v] layer\nswitch costume to (なし v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\ngo to [back v] layer\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (視点x)) ((My_y) - (視点y))\nend\n\nwhen I start as a clone\nshow\n\n@スプライト1\n\nwhen flag clicked\nset [ghost v] effect to (75)\ngo to [front v] layer\nwait (0.2) seconds\nbroadcast (光 v)\n\nwhen I receive [光 v]\nshow\nforever\n    go to (キャラ v)\nend\n\nwhen [timer v] > (time2)\nhide\n\n@オンライン3\n\ndefine コピー\nswitch costume to (コスチューム1 v)\nrepeat (10)\n    create clone of (_myself_ v)\n    next costume\nend\n\nwhen I receive [プログラム2 v]\n移動 (((join (join (letter (41) of (item (costume [number v]) of [p1〜10 v])) (letter (42) of (item (costume [number v]) of [p1〜10 v]))) (join (letter (43) of (item (costume [number v]) of [p1〜10 v])) (letter (44) of (item (costume [number v]) of [p1〜10 v])))) - (1500)) - (視点x)) (((join (join (letter (45) of (item (costume [number v]) of [p1〜10 v])) (letter (46) of (item (costume [number v]) of [p1〜10 v]))) (join (letter (47) of (item (costume [number v]) of [p1〜10 v])) (letter (48) of (item (costume [number v]) of [p1〜10 v])))) - (1500)) - ((視点y) - (-20)))\n\ndefine 移動 (x) (y)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <<([abs v] of (y) ) > ([abs v] of (y position) )> or <<(1p？) = (costume [number v])> or <(item (costume [number v]) of [p1〜10 v]) = [0]>>>> then\n    hide\nelse\n    show\nend\n\nwhen I receive [オンライン！ v]\nwait (0) seconds\nコピー\n\nwhen flag clicked\nset [ghost v] effect to (75)\ngo to [front v] layer\n\nwhen [timer v] > (time2)\nhide\n\n@チェックポイント2\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((3450) - (視点x)) ((412) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [3450]\n        set [復活y v] to [412]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\nhide\n\nwhen [timer v] > (time2)\nhide\n\n@ゴール\n\nwhen flag clicked\nset [クリア v] to [0]\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((6575) - (視点x)) ((995) - (視点y))\n\ndefine 移動 (x) (y)\nswitch costume to (なし v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\n    if <<touching (キャラ v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        broadcast (クリア v)\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [クリア v]\nset [クリア v] to [1]\nstop [all v]\n\n@サムネ\n\nwhen flag clicked\nhide\nset [ghost v] effect to (100)\nforever\n    set [time2 v] to (timer)\n    point in direction (90)\nend\n\nwhen [timer v] > (time2)\nif <(クリア) = [0]> then\n    start sound [Rip v]\n    switch costume to (サムネイルにしよう v)\n    show\n    go to x: (480) y: (-180)\n    go to [front v] layer\n    glide (0.5) secs to x: (0) y: (0)\n    set size to (100) %\n    go to [front v] layer\n    go to x: (0) y: (0)\n    forever\n        point in direction ((90) + ([cos v] of ((timer) * (300)) ))\n    end\nelse\n    stop all sounds\n    start sound [Cheer v]\n    switch costume to (最後 v)\n    go to x: (0) y: (0)\n    show\n    go to [front v] layer\n    set size to (1) %\n    repeat (20)\n        change size by (5)\n    end\n    wait until <not <mouse down?>>\n    wait until <mouse down?>\n    hide\n    start sound [Rip v]\n    switch costume to (サムネイルにしよう v)\n    show\n    go to x: (480) y: (-180)\n    go to [front v] layer\n    glide (0.5) secs to x: (0) y: (0)\n    set size to (100) %\n    go to [front v] layer\n    go to x: (0) y: (0)\n    forever\n        point in direction ((90) + ([cos v] of ((timer) * (300)) ))\n    end\nend\n\n
日本語説明は下です↓。\n\nOperate with WASD key, arrow key or tap.\n Up to 10 people can play online!\n You can also chat with fixed phrases. \n Please enjoy the game.\n\nWASDキー､矢印キー､タップで操作。\n最大10人でオンラインプレイできます！\n定型文でのチャットもできます。\nさあ！あかりを灯して夜の冒険へ出発だ！(謎)