Online scroll Platformer  オンラインプラットフォーマー
@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\nwhen I receive [クリア v]\nswitch backdrop to (背景2 v)\n\nwhen flag clicked\nforever\n    if <(Time) > (☁ world record)> then\n        set [☁ world record v] to (Time)\n    end\nend\n\n@オンライン\n\nwhen I receive [オンライン v]\nset [オンライン v] to [1]\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 [☁ 10p v] to [0]\nset [1p？ v] to [0]\nwait (1) seconds\nbroadcast (オンライン！ v)\nforever\n    if <(☁ 1p) = [0]> then\n        ユーザー名数値化\n        forever\n            set [1p？ v] to [1]\n            set [☁ 1p 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 <(☁ 2p) = [0]> then\n            ユーザー名数値化\n            forever\n                set [1p？ v] to [2]\n                set [☁ 2p 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 <(☁ 3p) = [0]> then\n                ユーザー名数値化\n                forever\n                    set [1p？ v] to [3]\n                    set [☁ 3p 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 <(☁ 4p) = [0]> then\n                    ユーザー名数値化\n                    forever\n                        set [1p？ v] to [4]\n                        set [☁ 4p 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 <(☁ 5p) = [0]> then\n                        ユーザー名数値化\n                        forever\n                            set [1p？ v] to [5]\n                            set [☁ 5p 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 <(☁ 6p) = [0]> then\n                            ユーザー名数値化\n                            forever\n                                set [1p？ v] to [6]\n                                set [☁ 6p 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 <(☁ 7p) = [0]> then\n                                ユーザー名数値化\n                                forever\n                                    set [1p？ v] to [7]\n                                    set [☁ 7p 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 <(☁ 8p) = [0]> then\n                                    ユーザー名数値化\n                                    forever\n                                        set [1p？ v] to [8]\n                                        set [☁ 8p 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 <(☁ 9p) = [0]> then\n                                        ユーザー名数値化\n                                        forever\n                                            set [1p？ v] to [9]\n                                            set [☁ 9p 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 <(☁ 10p) = [0]> then\n                                            ユーザー名数値化\n                                            forever\n                                                set [1p？ v] to [10]\n                                                set [☁ 10p 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\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\nwhen I receive [start v]\nbroadcast (オンライン v)\n\n@地面\n\nwhen flag clicked\nwait (0.1) seconds\nset [量 v] to [15]\nhide\nset [ステージのxy v] to [0]\nset [量 v] to [1]\ngo to [front v] layer\nset [ステージの番号 v] to [1]\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (なし v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nset [ステージの番号 v] to (ステージ番号)\nswitch costume to (ステージ番号)\nset [ステージのxy v] to (x座標)\nset [my_n v] to (ステージ番号)\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\nwhen I receive [クリア v]\nhide\n\nwhen I receive [start v]\nステージ配置 [0] [0] [2]\nステージ配置 [480] [0] [3]\nステージ配置 [960] [0] [4]\nステージ配置 ((960) + (480)) [0] [5]\nステージ配置 ((1440) + (480)) [0] [6]\nステージ配置 (((1440) + (480)) + (200)) [0] [7]\nステージ配置 (((1440) + (480)) + (700)) [0] [8]\nステージ配置 (((1440) + (480)) + (1200)) [0] [9]\nステージ配置 (((1440) + (480)) + (1850)) [0] [10]\nステージ配置 (((1440) + (800)) + (1850)) [0] [11]\nステージ配置 (((1440) + (1260)) + (1850)) [0] [12]\nswitch costume to (なし v)\nbroadcast (プログラム v)\n\n@相手\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\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 (☁ 1p) to [確認 v]\n    add (☁ 2p) to [確認 v]\n    add (☁ 3p) to [確認 v]\n    add (☁ 4p) to [確認 v]\n    add (☁ 5p) to [確認 v]\n    add (☁ 6p) to [確認 v]\n    add (☁ 7p) to [確認 v]\n    add (☁ 8p) to [確認 v]\n    add (☁ 9p) to [確認 v]\n    add (☁ 10p) 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 [☁ 1p v] to [0]\n        end\n        if <(costume [number v]) = [2]> then\n            hide\n            set [☁ 2p v] to [0]\n        end\n        if <(costume [number v]) = [3]> then\n            hide\n            set [☁ 3p v] to [0]\n        end\n        if <(costume [number v]) = [4]> then\n            hide\n            set [☁ 4p v] to [0]\n        end\n        if <(costume [number v]) = [5]> then\n            hide\n            set [☁ 5p v] to [0]\n        end\n        if <(costume [number v]) = [6]> then\n            hide\n            set [☁ 6p v] to [0]\n        end\n        if <(costume [number v]) = [7]> then\n            hide\n            set [☁ 7p v] to [0]\n        end\n        if <(costume [number v]) = [8]> then\n            hide\n            set [☁ 8p v] to [0]\n        end\n        if <(costume [number v]) = [9]> then\n            hide\n            set [☁ 9p v] to [0]\n        end\n        if <(costume [number v]) = [10]> then\n            hide\n            set [☁ 10p v] to [0]\n        end\n    end\nend\n\nif <(item (costume [number v]) of [ユーザー v]) = (username)> then\n    delete this clone\nend\n\nwhen [timer v] > (time2)\nhide\n\nwhen I start as a clone\n\nwhen I receive [start v]\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]\n    add (☁ 10p) to [p1〜10 v]\nend\n\n@水\n\nwhen flag clicked\nhide\ngo to [front v] layer\nset [ghost v] effect to (60)\nswitch costume to (none v)\nステージ配置 ((1440) + ((480) + (400))) [0] [2]\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to (ステージ番号)\nset [my_n v] to (ステージ番号)\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none 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\nwhen I start as a clone\nshow\n\nステージ配置 [] [] []\nステージ配置 [] [] []\nステージ配置 [] [] []\nステージ配置 [] [] []\nステージ配置 [] [] []\nステージ配置 [] [] []\n\nwhen I receive [クリア v]\nhide\n\n@障害物\n\nwhen flag clicked\npoint in direction (90)\nhide\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\npoint in direction (90)\nswitch costume to (なし v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to (ステージ番号)\nset [my_n v] to (ステージ番号)\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ステージ配置 [1600] [0] [14]\n\nwhen I start as a clone\nshow\n\nwhen I receive [start v]\ngo to [back v] layer\npoint in direction (90)\nステージ配置 [0] [0] [1]\nステージ配置 ((1440) + (215)) [240] [2]\nステージ配置 ((1440) + (900)) [290] [3]\nステージ配置 ((1440) + (860)) [0] [4]\nステージ配置 ((1440) + (1300)) [0] [5]\nshow\n\nwait (0) seconds\n\n@チェックポイント2\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((1420) - (視点x)) ((60) - (視点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 [1420]\n        set [復活y v] to [120]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\nhide\n\nwhen [timer v] > (time2)\nhide\n\n@スプライト5\n\nwhen flag clicked\nhide\n\ngo [backward v] (1) layers\n\nwhen I receive [start v]\nshow\nset [動いていい? v] to [1]\ngo to x: (-90) y: (150)\ngo to [back v] layer\nshow list [ユーザー v]\nforever\n    if <<<mouse down?> and <touching (mouse-pointer v)?>> or <key (space v) pressed?>> then\n        hide list [ユーザー v]\n        set [動いていい? v] to [0]\n        wait (1) seconds\n        wait until <not <<<mouse down?> and <touching (mouse-pointer v)?>> or <key (space v) pressed?>>>\n        show list [ユーザー v]\n        set [動いていい? v] to [1]\n        broadcast (プログラム v)\n    end\n    go to [front v] layer\nend\n\nwhen I receive [クリア v]\nhide\n\n@スプライト4\n\ndefine 配置\ngo to [front v] layer\nswitch costume to (コスチューム1 v)\ngo to x: (-175) y: (155)\nrepeat (11)\n    create clone of (_myself_ v)\n    change y by (-30)\n    next costume\n    set x to (-170)\nend\n\nwhen flag clicked\nset [しゃべる言葉 v] to [0]\nset [チャット？ v] to [0]\nhide\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]\nbroadcast (オンライン v)\n\nwhen I start as a clone\nforever\n    set [チャットか？ v] to (mouse y)\n    if <<(チャット？) = [1]> and <<(mouse x) < [-140]> and <[-130] < (mouse y)>>> then\n        set [チャットか？ v] to [1]\n        broadcast (プログラム v)\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\nset [ghost v] effect to (50)\n\nwhen I receive [start v]\n配置\n\nwhen I receive [クリア v]\nhide\n\nwhen I receive [クリア v]\nhide\ndelete this clone\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移動 ((4900) - (視点x)) ((40) - (視点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]\n\n@キャラ\n\nwhen flag clicked\nhide\ngo to x: (30) y: (20)\nset [x v] to [0]\nset [y v] to [0]\nset [視点x v] to [-200]\nset [視点y v] to [50]\nset [x v] to [-200]\nset [y v] to [50]\nset [復活x v] to [-200]\nset [復活y v] to [-20]\n\ndefine 動作\nif <(動いていい?) = [1]> then\n    broadcast (プログラム v)\n    if <touching (水 v)?> then\n        change [y v] by (-0.1)\n    else\n        if <(キャラ番号) = [6]> then\n            change [y v] by (-0.27)\n        else\n            change [y v] by (-1)\n        end\n    end\n    change [i v] by (1)\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n        if <(キャラ番号) = [2]> then\n            set rotation style [left-right v]\n            point in direction (90)\n            change [x v] by (3.5)\n        else\n            set rotation style [left-right v]\n            point in direction (90)\n            change [x v] by (1)\n        end\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n        if <(キャラ番号) = [2]> then\n            set rotation style [left-right v]\n            point in direction (-90)\n            change [x v] by (-3.5)\n        else\n            set rotation style [left-right v]\n            point in direction (-90)\n            change [x v] by (-1)\n        end\n    end\n    set [x v] to ((x) * (0.88))\n    change x by (x)\n    repeat (15)\n        if <touching (地面 v)?> then\n            change y by (1)\n        end\n    end\n    if <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 <(キャラ番号) = [5]> then\n                set [y v] to [17]\n            else\n                if <(キャラ番号) = [6]> then\n                    set [y v] to [8]\n                    set [x v] to ((7) - (<(x) > [0]> * (14)))\n                else\n                    set [y v] to [13]\n                    set [x v] to ((7) - (<(x) > [0]> * (14)))\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (y)\n    if <touching (地面 v)?> then\n        位置補正y (() - ((y) / ([abs v] of (y) ))) ([ceiling v] of ([abs v] of (y) ) )\n    end\n    change y by (-1.1)\n    if <<touching (地面 v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n        if <(キャラ番号) = [3]> then\n            start sound [Jump v]\n            set [y v] to [16.5]\n        else\n            if <(キャラ番号) = [6]> then\n                start sound [Jump v]\n                set [y v] to [7]\n            else\n                start sound [Jump v]\n                set [y v] to [11]\n            end\n        end\n    end\n    if <<touching (水 v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n        set [y v] to [5]\n    end\n    change y by (1.1)\n    if <<touching (障害物 v)?> and <(キャラ番号) = [7]>> then\n    処理\n    broadcast (プログラム2 v)\n    if <(x position) > [70]> then\n        set x to (70)\n    end\n    if <(x position) < [-60]> then\n        set x to (-60)\n    end\n    if <(GOAL) = [1]> then\n        stop [this script v]\n    end\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\nset size to (100) %\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\nwhen I receive [当たったー v]\n初期位置\n\nwhen flag clicked\n\nwhen I start as a clone\ndelete this clone\n\nwhen [timer v] > (0.1)\nforever\n    broadcast (メッセージ1 v)\n    broadcast (プログラム v)\nend\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nforever\n    reset timer\n    wait (0.1) seconds\nend\n\nwhen I receive [start v]\nforever\n    if <key (any v) pressed?> then\n        broadcast (プログラム v)\n    end\nend\n\nshow\n\nwhen I receive [start v]\nshow\nswitch costume to (キャラ番号)\n\nwhen I receive [クリア v]\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 (0)\ngo to [front v] layer\n\nwhen [timer v] > (time2)\nhide\n\n@スプライト1\n\nwhen flag clicked\nhide\nset [ghost v] effect to (0)\ngo to [front v] layer\nwait (0.2) seconds\n\nwhen I receive [光 v]\nshow\nforever\n    go to (キャラ v)\nend\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [start v]\nshow\nbroadcast (光 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)\nsay [遊んでくれてありがとう!!!!!!!!]\n\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\nwhen flag clicked\nstart sound [キャバクラばく府ⓗ v]\nset [キャラ番号 v] to [1]\nshow\nset size to (300) %\ngo to x: (0) y: (50)\npoint in direction (90)\nforever\n    switch costume to (キャラ番号)\n    set y to ((80) + (([sin v] of ((タイマー) * (200)) ) * (10)))\n    point in direction ((([cos v] of ((タイマー) * (150)) ) * (5)) + (90))\nend\n\nwhen flag clicked\nreset timer\nforever\n    change [タイマー v] by (timer)\nend\n\nwhen I receive [start v]\nhide\n\nwhen I receive [start v]\nstop all sounds\n\nwhen I receive [音量off v]\nstop all sounds\n\nwhen I receive [音量on v]\nstart sound [キャバクラばく府ⓗ v]\n\n@スプライト2\n\nwhen flag clicked\nshow\ngo to [back v] layer\ngo to x: (7) y: (19)\n\nwhen I receive [start v]\nhide\n\n@チェックポイント\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((1950) - (視点x)) ((100) - (視点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 [1950]\n        set [復活y v] to [80]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time2)\nhide\n\nwhen [timer v] > (time2)\nhide\n\n@ホーム2\n\nwhen flag clicked\nswitch costume to (ｋ v)\nwait (0) seconds\nshow\nset size to (100) %\ngo to x: (0) y: (0)\npoint in direction (90)\nforever\n    set y to ((80) + (([sin v] of ((タイマー) * (200)) ) * (10)))\n    point in direction ((([cos v] of ((タイマー) * (150)) ) * (5)) + (90))\nend\n\nwhen this sprite clicked\nstart sound [Magic Spell v]\nif <(キャラ番号) > [1]> then\n    change [キャラ番号 v] by (-1)\nelse\n    if <(キャラ番号) = [1]> then\n        set [キャラ番号 v] to [7]\n    else\n    end\nend\n\nif  then\nend\n\nif <[7] > (キャラ番号)> then\n    change [キャラ番号 v] by (1)\nelse\nend\n\nif <<(costume [number v]) = [2]> and <(キャラ番号) = [7]>> then\n    set [キャラ番号 v] to [1]\nend\n\nwhen I receive [start v]\nhide\ndelete this clone\n\nwhen this sprite clicked\n\n@start\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\nforever\n    if <touching (mouse-pointer v)?> then\n        change size by (((110) - (size)) / (4))\n    else\n        change size by (((100) - (size)) / (4))\n    end\nend\n\nwhen this sprite clicked\nif <(キャラ番号) = [4]> then\n    start sound [Oops v]\nelse\n    start sound [YES! WE CAN v]\n    broadcast (start v)\n    hide\nend\n\nwhen I receive [start v]\nstart sound [キャバクラアンコウなべうぇい v]\nstart sound [キャバクラアンコウなべうぇい v]\nstart sound [キャバクラアンコウなべうぇい v]\n\nwhen I receive [音量off v]\nstop all sounds\n\n@音量\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset volume to (100) %\nswitch costume to (yes v)\nshow\n\nwhen this sprite clicked\nstart sound [かち v]\nif <(volume) = [100]> then\n    switch costume to (no v)\n    set volume to (0) %\n    stop all sounds\n    broadcast (音量OFF v)\nelse\n    switch costume to (yes v)\n    set volume to (100) %\n    broadcast (音量ON v)\nend\n\nwhen I receive [start v]\nhide\n\n@チェックポイント3\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((300000) - (視点x)) ((96) - (視点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 [300]\n        set [復活y v] to [100]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\nhide\n\nwhen [timer v] > (time2)\nhide\n\n@スプライト3\n\nwhen flag clicked\nset [ghost v] effect to (0)\ngo to [front v] layer\nhide\n\nwhen I receive [クリア v]\ngo to [front v] layer\nshow\n\nwhen I receive [クリア v]\nrepeat (50)\n    change [ghost v] effect by (1)\nend\n\nwhen I receive [最終 v]\nhide variable [☁ world record v]\nhide variable [タイマー― v]\nhide\n\nwhen flag clicked\nhide variable [☁ world record v]\n\nwait (1) seconds\n\n@おどる春日部つむぎ\n\nwhen flag clicked\ngo to x: (-130) y: (-80)\nhide\ngo to [front v] layer\nset size to (100) %\nswitch costume to (1 v)\n\nwhen I receive [最終 v]\nshow\ngo to [front v] layer\nforever\n    go to [front v] layer\n    next costume\n    wait (0.1) seconds\nend\n\nwhen I start as a clone\nif <(GOAL) = [１]> then\n    go to x: (130) y: (-80)\n    show\n    forever\n        next costume\n        wait (0.1) seconds\n    end\nend\n\nwhen flag clicked\nwait (0.1) seconds\ncreate clone of (_myself_ v)\n\n@スプライト8\n\nwhen flag clicked\nhide\ngo to [back v] layer\n\nwhen I receive [最終 v]\nstop all sounds\ngo to [front v] layer\nshow\n\n@おどる紲星あかり\n\nwhen flag clicked\nhide\nset size to (100) %\nswitch costume to (ã£__ã£__ã£__ã§__ã¦__ã£__ã£__ã£__bb_5k60fps_2_adobeexpress_2-removebg-preview v)\n\nwhen I receive [最終 v]\nhide variable [☁ 世界記録 v]\nhide variable [time v]\nforever\n    go to [front v] layer\n    show\n    next costume\n    wait (0.105) seconds\n    next costume\nend\n\nwhen I receive [最終 v]\nforever\n    play sound [【フリーBGM】meow bell【ポップな明るい楽しげなかわいい】 v] until done\nend\n\nwhen I receive [クリア v]\nstop all sounds\n\n@タイマー\n\nwhen I start as a clone\ngo to [front v] layer\nforever\n    クローン表示 ((round ((タイマー―) * (100))) / (100))\nend\n\nwhen I receive [クローン削除 v]\ndelete this clone\n\nwhen I receive [start v]\nset [タイマー長さ v] to [4]\n数字配置\n\nwhen flag clicked\nhide\n\nwhen I receive [クリア v]\nset [タイマー― v] to ((round ((タイマー―) * (100))) / (100))\nwait (0) seconds\ngo to [front v] layer\nclear graphic effects\nset size to (80) %\ngo to x: (80) y: (-48)\n数字 (タイマー―) (length of (タイマー―))\n\nbroadcast (クローン削除 v)\n\ndefine 数字 (値) (クローン数)\nset [順番 v] to [1]\nrepeat (クローン数)\n    switch costume to (letter (順番) of (値))\n    create clone of (_myself_ v)\n    change [順番 v] by (1)\n    change x by (15)\nend\n\ndefine クローン表示 (タイマー)\nif <(y position) = [5]> then\n    show\nelse\n    if <[80] < (x position)> then\n        if <(length of (タイマー)) < (順番)> then\n            hide\n        else\n            switch costume to (letter (順番) of (タイマー))\n            show\n            if <(タイマー長さ) < (length of (タイマー))> then\n                change [タイマー長さ v] by (1)\n                broadcast (再描画 v)\n            end\n        end\n    else\n    end\nend\n\nwhen I receive [再描画 v]\nbroadcast (クローン削除 v)\n数字配置\n\ndefine 数字配置\ngo to x: (140) y: (130)\n数字 (タイマー―) (タイマー長さ)\n\nwhen flag clicked\nset [タイマー― v] to [0]\n\nwhen I receive [start v]\ngo to [front v] layer\nrepeat until <(GOAL) = [1]>\n    wait (1) seconds\n    change [タイマー― v] by (1)\nend\n\nwhen flag clicked\nset [goal v] to [0]\n\nwhen I receive [クリア v]\nset [goal v] to [1]\n\nwhen flag clicked\nset size to (50) %\n\nshow variable [タイマー― v]\n\nwhen I receive [クリア v]\nwait (2) seconds\nhide\nbroadcast (最終 v)\n\nwhen flag clicked\nhide variable [タイマー― v]\n\n@Time表記\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to [front v] layer\ngo to x: (184) y: (80)\nshow\n\nwhen I receive [クリア v]\nhide\n\n@チェックポイント4\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((3060) - (視点x)) ((40) - (視点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 [3100]\n        set [復活y v] to [40]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (チェックポイント: time2)\nhide\n\nwhen [timer v] > (チェックポイント: time2)\nhide\n\n@ホーム3\n\nwhen flag clicked\nswitch costume to (右 v)\nwait (0) seconds\nshow\nset size to (100) %\ngo to x: (5) y: (0)\npoint in direction (90)\nforever\n    set y to ((80) + (([sin v] of ((タイマー) * (200)) ) * (10)))\n    point in direction ((([cos v] of ((タイマー) * (150)) ) * (5)) + (90))\nend\n\nwhen this sprite clicked\nstart sound [Magic Spell v]\nif <(キャラ番号) < [7]> then\n    change [キャラ番号 v] by (1)\nelse\n    if <(キャラ番号) = [7]> then\n        set [キャラ番号 v] to [1]\n    end\nend\n\nwhen I receive [start v]\nhide\ndelete this clone\n\n@サムネ\n\nwhen flag clicked\nforever\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\n\n@はい景\n\nwhen flag clicked\nhide\ngo to [back v] layer\n\nwhen I receive [start v]\nshow\n\ndefine 配置 (１) (２) (３) (４)\nset [一 v] to (１)\nset [二 v] to (２)\nswitch costume to (３)\nset [三 v] to (４)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    移動 (((一) - (x)) / (三)) (((二) - (Y)) / (三))\nend\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nshow\n\nshow\n\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n\n配置 [0] [0] [1] [4]\n配置 [2000] [0] [2] [4]\n配置 [4700] [0] [1] [4]\n配置 [7000] [0] [2] [4]\n\nwhen flag clicked\ngo to x: ([sin v] of (X) ) y: (0)\nforever\n    go to [back v] layer\nend\n\nwhen I receive [クリア v]\nhide\n\n@☁\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nhide\nforever\n    create clone of (_myself_ v)\n    wait (4) seconds\nend\n\nwhen I start as a clone\ngo to [back v] layer\ngo to x: (270) y: (pick random (5) to (80))\nswitch costume to (pick random (1) to (10))\nshow\nforever\n    repeat until <[-239] > (x position)>\n        change x by (-1.5)\n    end\n    delete this clone\nend\n\nwhen I receive [クリア v]\nhide\n\n@おどる春日部つむぎ2\n\nwhen flag clicked\ngo to x: (130) y: (-80)\nhide\ngo to [front v] layer\nset size to (100) %\nswitch costume to (1 v)\n\nwhen I receive [最終 v]\nshow\ngo to [front v] layer\nforever\n    go to [front v] layer\n    next costume\n    wait (0.1) seconds\nend\n\nwhen I start as a clone\nif <(GOAL) = [１]> then\n    go to x: (130) y: (-80)\n    show\n    forever\n        next costume\n        wait (0.1) seconds\n    end\nend\n\nwhen flag clicked\nwait (0.1) seconds\ncreate clone of (_myself_ v)\n\n
@KS6-1に会えたらラッキー