Minecraft Online Platformer/マインクラフト オンライン プラットフォーマ
@Stage\n\nwhen flag clicked\nforever\n    set [time2 v] to (timer)\nend\n\nwhen flag clicked\nstart sound [c418-sweden-minecraft-volume-alpha v]\nstart sound [c418-sweden-minecraft-volume-alpha v]\nstart sound [c418-sweden-minecraft-volume-alpha v]\nstart sound [c418-sweden-minecraft-volume-alpha v]\nforever\n    if <(くりァ) = [1]> then\n        stop all sounds\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nforever\n    if <(音量) = [ON]> then\n        set volume to (100) %\n    else\n        set volume to (0) %\n    end\nend\n\nset [くりァ v] to [1]\n\n@オンライン\n\nwhen flag clicked\nbroadcast (言う v)\nforever\n    復元1\nend\n\nwhen I receive [start v]\nset [オンライン v] to [1]\nwait (1) seconds\nset [☁ 1p v] to [0]\nset [☁ 2p v] to [0]\nset [☁ 3p v] to [0]\nset [☁ 4p v] to [0]\nset [☁ 5p v] to [0]\nset [☁ 6p v] to [0]\nset [☁ 7p v] to [0]\nset [☁ 8p v] to [0]\nset [☁ 9p v] to [0]\nset [☁ 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                                        else\n                                            broadcast (上限 v)\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\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\nmove (10) steps\n\n@キャラ\n\nwhen flag clicked\ngo to x: (0) y: (-20)\nset [チャットか？ v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nset [視点x v] to [-200]\nset [視点y v] to [100]\nset [x v] to [-200]\nset [y v] to [100]\nset [復活x v] to [-200]\nset [復活y v] to [100]\n\ndefine 動作\nbroadcast (プログラム v)\nif <(！) = [0]> then\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\n    if <touching (水 v)?> then\n        change [y v] by (-0.1)\n    else\n        change [y v] by (-1)\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        set rotation style [left-right v]\n        point in direction (1)\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n        set rotation style [left-right v]\n        point in direction (-1)\n        change [x v] by (-1)\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            set [y v] to [12]\n            set [x v] to ((7) - (<(x) > [0]> * (14)))\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 <touching (背景 v)?> then\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 <<(Y) < [-400]> or <touching (障害物 v)?>> then\n        初期位置\n        play sound [う v] until done\n    end\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\nend\n\nwhen I receive [プログラム v]\nif <<(start) = [1]> and <(くりァ) = [0]>> then\n    動作\nend\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 (40) %\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]\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [当たったー v]\n初期位置\n\nwhen flag clicked\nset [くりァ v] to [0]\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\nset [動いていい? v] to [1]\nforever\n    reset timer\n    wait (0.1) seconds\nend\n\nwhen I receive [start v]\nforever\n    if <(くりァ) = [0]> then\n        if <key (any v) pressed?> then\n            broadcast (プログラム v)\n        end\n    else\n        stop [other scripts in sprite v]\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\n\nwhen I receive [start v]\nforever\n    if <<<<(y) < [1]> and <(y) > [-1]>> and <(視点x) < [1658]>> and <<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>>> then\n        play sound (pick random (2) to (3)) until done\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <<<<(y) < [1]> and <(y) > [-1]>> and <<(視点x) > [1658]> and <(視点x) < [3120]>>> and <<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>>> then\n        play sound (pick random (9) to (12)) until done\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <<<<(y) < [1]> and <(y) > [-1]>> and <<(視点x) > [3120]> and <(視点x) < [4058]>>> and <<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>>> then\n        play sound (pick random (5) to (8)) until done\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <<<<(y) < [1]> and <(y) > [-1]>> and <<(視点x) > [4058]> and <(視点x) < [5356]>>> and <<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>>> then\nend\n\nwhen I receive [start v]\nforever\n    if <<<<(y) < [1]> and <(y) > [-1]>> and <<(視点x) > [5356]> and <(視点x) < [5488]>>> and <<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>>> then\n        play sound (pick random (2) to (3)) until done\n    end\nend\n\nwhen flag clicked\nforever\n    if <(音量) = [ON]> then\n        set volume to (100) %\n    else\n        set volume to (0) %\n    end\nend\n\nwhen I receive [クリア v]\nstop [other scripts in sprite v]\n\nwhen I receive [クリア v]\nset [くりァ v] to [1]\n\nwhen flag clicked\nforever\n    switch costume to (Skin)\nend\n\n@地面\n\nwhen flag clicked\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\nset [x v] to [1000]\nset [y v] to [50]\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [start v]\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ステージ配置 [0] [0] [2]\nステージ配置 [480] [0] [3]\nステージ配置 [960] [0] [4]\nステージ配置 ((960) + (480)) [0] [5]\nステージ配置 ((1440) + (480)) [0] [6]\nステージ配置 (((1440) + (480)) + (480)) [0] [7]\nステージ配置 (((1440) + (480)) + (960)) [0] [8]\nステージ配置 (((1440) + (960)) + (960)) [0] [9]\nステージ配置 (((1440) + (1330)) + (1060)) [0] [10]\nステージ配置 (((1440) + (1460)) + (1420)) [0] [11]\nステージ配置 (((1440) + (1810)) + (1420)) [0] [12]\nステージ配置 (((1440) + (1810)) + (1890)) [0] [13]\nステージ配置 (((1920) + (1810)) + (1890)) [0] [14]\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\nwhen flag clicked\nforever\n    delete all of [p1〜10 v]\n    add (☁ 1p) to [p1〜10 v]\n    add (☁ 2p) to [p1〜10 v]\n    add (☁ 3p) to [p1〜10 v]\n    add (☁ 4p) to [p1〜10 v]\n    add (☁ 5p) to [p1〜10 v]\n    add (☁ 6p) to [p1〜10 v]\n    add (☁ 7p) to [p1〜10 v]\n    add (☁ 8p) to [p1〜10 v]\n    add (☁ 9p) to [p1〜10 v]\n    add (☁ 10p) 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 (☁ 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\n    if <(item (costume [number v]) of [ユーザー v]) = (username)> then\n        delete this clone\n    end\nend\n\nwhen [timer v] > (time2)\nhide\n\nwhen I start as a clone\n\n@caht\n\ndefine 配置\nset size to (100) %\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\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nrepeat until <(くりァ) = [1]>\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 <<(チャット？) = [0]> and <<(mouse x) < [-140]> and <[150] < (mouse y)>>> then\n        set [チャットか？ v] to [1]\n    else\n        set [チャットか？ v] to [0]\n        if <<(チャット？) = [1]> and <<(mouse x) < [-140]> and <[-130] < (mouse y)>>> then\n            set [チャットか？ v] to [1]\n            broadcast (プログラム v)\n        end\n    end\nend\n\nwhen [timer v] > (time2)\nforever\n    hide\n    delete this clone\nend\n\nwhen I receive [start v]\nset [動いていい? v] to [1]\nset [しゃべる言葉 v] to [0]\nset [チャット？ v] to [0]\nset [チャットか？ v] to [0]\nhide\n配置\n\nwhen I receive [/xp 10000l @s v]\nforever\n    hide\n    switch costume to (コスチューム12 v)\n    delete this clone\nend\n\n@スプライト5\n\ngo to [front v] layer\n\ngo [backward v] (1) layers\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [start v]\nshow\nset [動いていい? v] to [1]\ngo to x: (-90) y: (150)\ngo to [front v] layer\nshow list [ユーザー v]\nrepeat until <(くりァ) = [1]>\n    go to [front v] layer\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\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nshow list [ユーザー v]\n\n@チェックポイント2\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((1580) - (視点x)) ((-55) - (視点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 [1580]\n        set [復活y v] to [50]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\n\nwhen [timer v] > (time2)\nhide\n\nhide\n\n@障害物\n\nwhen flag clicked\npoint in direction (90)\nhide\nwait (0) seconds\ngo to [back v] layer\npoint in direction (90)\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\nwhen I start as a clone\nshow\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [start v]\nステージ配置 [2000] [0] [2]\nステージ配置 [2700] [0] [3]\nステージ配置 [3700] [0] [4]\nステージ配置 [4500] [0] [5]\nステージ配置 [4610] [0] [6]\n\n@チェックポイント3\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (赤旗 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((4110) - (視点x)) ((-28) - (視点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 [4130]\n        set [復活y v] to [-28]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\n\nwhen [timer v] > (time2)\nhide\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移動 ((5293) - (視点x)) ((-28) - (視点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 [5293]\n        set [復活y v] to [-28]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time)\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [クリア v]\nhide\n\n@ゴール\n\nwhen flag clicked\nset [クリア v] to [0]\nset [チェックポイント到達 v] to [0]\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((5626) - (視点x)) ((28) - (視点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        set [くりァ v] to [1]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [クリア v]\nset [クリア v] to [1]\n\nset [x v] to [50000]\n\nwhen I receive [start v]\nshow\n\n@スプライト2\n\nwhen flag clicked\nhide\nforever\n    switch costume to (コスチューム1 v)\n    create clone of (_myself_ v)\n    wait (10) seconds\n    switch costume to (コスチューム2 v)\n    create clone of (_myself_ v)\n    wait (10) seconds\n    switch costume to (コスチューム3 v)\n    create clone of (_myself_ v)\n    wait (10) seconds\nend\n\nwhen I start as a clone\nshow\ngo to x: (265) y: (0)\nglide (15) secs to x: (-265) y: (0)\ndelete this clone\n\nwhen [timer v] > (time2)\nhide\n\nwhen I start as a clone\nforever\n    if <(くりァ) = [1]> then\n        hide\n    else\n        if <(start) = [0]> then\n            go to [back v] layer\n        else\n            if <<<<(視点x) > [4058]> and <(視点x) < [5035]>> or <<(視点x) > [1658]> and <(視点x) < [3120]>>> or <<(視点x) > [3800]> and <(視点x) < [5350]>>> then\n                go to [back v] layer\n            else\n                go to [front v] layer\n            end\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <(くりァ) = [1]> then\n        stop [other scripts in sprite v]\n        delete this clone\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\ngo to x: (36) y: (28)\nset [brightness v] effect to (40)\ngo to [back v] layer\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [start v]\nforever\n    if <(くりァ) = [1]> then\n        hide\n    else\n        if <<<(視点x) > [1474]> and <(視点x) < [2967]>> or <<(視点x) > [3800]> and <(視点x) < [5224]>>> then\n            go to [back v] layer\n            show\n        else\n            go to [front v] layer\n            show\n        end\n    end\nend\n\n@サムネ\n\nwhen flag clicked\nset [ghost v] effect to (100)\ngo to [front v] layer\n\nwhen [timer v] > (time2)\nset [brightness v] effect to (100)\ngo to x: (100) y: (100)\nrepeat (10)\n    change x by (-30)\n    change y by (-4)\n    change [ghost v] effect by (-5)\n    change [brightness v] effect by (-3)\nend\nrepeat (10)\n    change x by (20)\n    change y by (-6)\n    change [ghost v] effect by (-10)\n    change [brightness v] effect by (-7)\nend\n\nforever\n\n@Menu\n\nwhen flag clicked\nset [start v] to [0]\nbroadcast (戻る v)\n\nwhen I start as a clone\nif <(a) = [1]> then\n    go to [front v] layer\n    go to x: (0) y: (-10)\n    set size to (100) %\n    switch costume to (タイトル v)\n    show\nend\n\nwhen I start as a clone\nif <(a) = [2]> then\n    go to [front v] layer\n    go to x: (0) y: (-10)\n    set size to (100) %\n    switch costume to (ロゴ v)\n    show\n    forever\n        repeat (10)\n            change size by (((90) - (size)) / (5))\n        end\n        repeat (10)\n            change size by (((100) - (size)) / (5))\n        end\n    end\nend\n\nwhen I start as a clone\nif <(a) = [3]> then\n    go to x: (0) y: (-50)\n    set size to (100) %\n    switch costume to (play v)\n    show\n    forever\n        if <touching (mouse-pointer v)?> then\n            change size by (((110) - (size)) / (5))\n        else\n            repeat until <(size) = [100]>\n                change size by (-0.5)\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nif <(a) = [4]> then\n    go to x: (-1) y: (-117)\n    go to [front v] layer\n    set size to (100) %\n    switch costume to (select world v)\n    show\n    forever\n        if <touching (mouse-pointer v)?> then\n            change size by (((110) - (size)) / (5))\n        else\n            repeat until <(size) = [100]>\n                change size by (-0.5)\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    if <<touching (mouse-pointer v)?> and <(costume [number v]) = [3]>> then\n        if <mouse down?> then\n            broadcast (クローン消去 v)\n            broadcast (start v)\n            broadcast (オンライン！ v)\n            set [start v] to [1]\n            play sound [Click v] until done\n            wait until <not <mouse down?>>\n        end\n    end\nend\n\nwhen I receive [start v]\ndelete this clone\n\nwhen I start as a clone\nforever\n    if <<touching (mouse-pointer v)?> and <(costume [number v]) = [4]>> then\n        if <mouse down?> then\n            broadcast (説明 v)\n            broadcast (クローン消去 v)\n            play sound [Click v] until done\n            wait until <not <mouse down?>>\n        end\n    end\nend\n\nwhen I receive [説明 v]\ndelete this clone\n\nwhen I receive [戻る v]\nhide\nset [a v] to [0]\nchange [a v] by (1)\ncreate clone of (_myself_ v)\nchange [a v] by (1)\ncreate clone of (_myself_ v)\nchange [a v] by (1)\ncreate clone of (_myself_ v)\nchange [a v] by (1)\ncreate clone of (_myself_ v)\nchange [a v] by (1)\ncreate clone of (_myself_ v)\nchange [a v] by (1)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(a) = [5]> then\n    go to x: (-1) y: (-168)\n    go to [front v] layer\n    set size to (100) %\n    switch costume to (seting v)\n    show\n    forever\n        if <touching (mouse-pointer v)?> then\n            change size by (((110) - (size)) / (5))\n        else\n            repeat until <(size) = [100]>\n                change size by (-0.5)\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    if <<touching (mouse-pointer v)?> and <(costume [number v]) = [5]>> then\n        if <mouse down?> then\n            broadcast (setting v)\n            broadcast (クローン消去 v)\n            play sound [Click v] until done\n            wait until <not <mouse down?>>\n        end\n    end\nend\n\nwhen I receive [setting v]\ndelete this clone\n\nwhen I start as a clone\nif <(a) = [6]> then\n    go to [back v] layer\n    go to x: (0) y: (0)\n    set size to (100) %\n    switch costume to (ステージ v)\n    show\nend\n\nerase all\n\nwhen I receive [クローン消去 v]\ndelete this clone\n\n@説明\n\nwhen flag clicked\nhide\n\nwhen I receive [説明 v]\nstop [other scripts in sprite v]\ncreate clone of (_myself_ v)\ngo to x: (0) y: (0)\nset size to (5) %\nswitch costume to (1 v)\ngo to [front v] layer\nshow\nrepeat (8)\n    change size by (((size) + (5)) / (4))\nend\nrepeat (25)\n    change size by (((100) - (size)) / (4))\nend\n\nwhen I receive [戻る v]\nstop [other scripts in sprite v]\nhide\nif <(costume [name v]) = [3]> then\n    repeat (10)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nelse\n    repeat (10)\n        change size by ((((0) - (size)) + (-5)) / (4))\n    end\nend\n\nwhen I start as a clone\ngo to x: (0) y: (0)\ngo to [front v] layer\ngo [backward v] (1) layers\nset [ghost v] effect to (100)\nset size to (100) %\nswitch costume to (3 v)\nshow\nrepeat (10)\n    change [ghost v] effect by (-5)\nend\n\nwhen this sprite clicked\nif <([costume name v] of [サウンドボタン v]) = [1]> then\n    start sound [次 v]\nend\nif <not <(costume [number v]) = [3]>> then\n    if <(costume [number v]) = [1]> then\n        switch costume to (2 v)\n    else\n        switch costume to (1 v)\n    end\n    set [なめらか v] to [0]\n    set size to (80) %\n    set [なめらか v] to ((((100) - (size)) / (4)) - ((なめらか) / (3)))\n    repeat (20)\n        change size by (なめらか)\n        change [なめらか v] by ((((100) - (size)) / (4)) - ((なめらか) / (3)))\n    end\n    set size to (100) %\nend\n\n@戻るボタン\n\nwhen I receive [説明 v]\nwait (0.1) seconds\ngo to x: (-200) y: (-189)\nset size to (100) %\nswitch costume to (1 v)\ngo to [front v] layer\nshow\nstop [other scripts in sprite v]\nbroadcast (大きさ v)\nrepeat (20)\n    change y by (((-150) - (y position)) / (4))\nend\n\nwhen this sprite clicked\nstart sound [くりっく v]\nwait until <not <mouse down?>>\nbroadcast (戻る v)\nstop [other scripts in sprite v]\nhide\n\nwhen I receive [大きさ v]\nforever\n    if <touching (mouse-pointer v)?> then\n        set [brightness v] effect to (15)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen flag clicked\nhide\n\nrepeat (20)\n    change y by (((-210) - (y position)) / (4))\nend\n\nwhen I receive [setting v]\nwait (0.1) seconds\ngo to x: (-200) y: (-189)\nset size to (100) %\nswitch costume to (1 v)\ngo to [front v] layer\nshow\nstop [other scripts in sprite v]\nbroadcast (大きさ v)\nrepeat (20)\n    change y by (((-150) - (y position)) / (4))\nend\n\n@スプライト3\n\nwhen flag clicked\nswitch costume to (on v)\nset volume to (100) %\nset [c v] to [0]\nhide\n\nwhen I receive [setting v]\ngo to x: (0) y: (30)\nchange [c v] by (1)\ncreate clone of (_myself_ v)\nchange [c v] by (1)\ncreate clone of (_myself_ v)\nset size to (5) %\ngo to [front v] layer\ngo [forward v] (1) layers\nshow\nrepeat (8)\n    change size by (((size) + (5)) / (4))\nend\nrepeat (25)\n    change size by (((100) - (size)) / (4))\nend\n\nwhen I start as a clone\nif <(c) = [1]> then\n    go to [back v] layer\n    go [backward v] (2) layers\n    set [ghost v] effect to (100)\n    set size to (100) %\n    go to x: (0) y: (0)\n    switch costume to (3 v)\n    show\n    repeat (10)\n        change [ghost v] effect by (-5)\n    end\nend\n\nwhen flag clicked\nset [音量 v] to [ON]\ndelete this clone\n\nwhen I receive [戻る v]\nset [c v] to [0]\nhide\ndelete this clone\n\nwhen flag clicked\nforever\n    if <(音量) = [ON]> then\n        set volume to (100) %\n    else\n        if <(音量) = [OFF]> then\n            set volume to (100) %\n        end\n    end\nend\n\nwhen this sprite clicked\nif <not <<(costume [number v]) = [3]> or <(costume [number v]) = [4]>>> then\n    if <(costume [number v]) = [1]> then\n        switch costume to (on v)\n        set [音量 v] to [ON]\n        set volume to (100) %\n        play sound [クリック v] until done\n    else\n        switch costume to (off v)\n        set [音量 v] to [OFF]\n        set volume to (0) %\n    end\n    set [なめらか v] to [0]\n    set size to (80) %\n    set [なめらか v] to ((((100) - (size)) / (4)) - ((なめらか) / (3)))\n    repeat (20)\n        change size by (なめらか)\n        change [なめらか v] by ((((100) - (size)) / (4)) - ((なめらか) / (3)))\n    end\n    set size to (100) %\nend\n\nwhen I start as a clone\nif <(c) = [2]> then\n    go to [back v] layer\n    go [backward v] (1) layers\n    set [ghost v] effect to (0)\n    set size to (5) %\n    set [brightness v] effect to (0)\n    go to x: (0) y: (0)\n    switch costume to (コスチューム1 v)\n    show\n    repeat (8)\n        change size by (((size) + (5)) / (4))\n    end\n    repeat (25)\n        change size by (((100) - (size)) / (4))\n    end\nend\n\n@スプライト11\n\nwhen I receive [/xp 10000l @s v]\nswitch costume to (コスチューム1 v)\nif <(スプライト11: y) = [0]> then\n    create clone of (_myself_ v)\nend\nwait (13) seconds\nswitch costume to (コスチューム2 v)\nif <(スプライト11: y) = [0]> then\n    create clone of (_myself_ v)\nend\nwait (20) seconds\nswitch costume to (コスチューム3 v)\nif <(スプライト11: y) = [0]> then\n    create clone of (_myself_ v)\nend\nwait (12) seconds\nbroadcast (エンドロールend v)\nrepeat (80)\n    wait (0.3) seconds\n    change volume by (-2)\nend\nbroadcast (owari  v)\n\nwhen I start as a clone\nset [スプライト11: y v] to [1]\ngo to x: (0) y: (-1000)\nshow\nrepeat until <(y position) = [434]>\n    go to [front v] layer\n    change y by (1)\nend\ndelete this clone\n\nwhen I receive [エンドロールend v]\nrepeat (80)\n    wait (0.1) seconds\n    change [brightness v] effect by (-2)\nend\n\nwhen I receive [エンドロールend-end v]\ndelete this clone\n\nwhen I receive [エンドロールend-end v]\nset volume to (0) %\n\nwhen I receive [/xp 10000l @s v]\nset volume to (100) %\nforever\n    play sound [魔王魂  ピアノ39 v] until done\nend\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n@スプライト6\n\nwhen I start as a clone\nshow\ngo to [front v] layer\nclear graphic effects\nset [brightness v] effect to (-20)\ngo to x: (0) y: (-345)\nrepeat until <[0] = (round (y position))>\n    change y by (0.3)\nend\nbroadcast (/effect @s health_boost 100 10 true v)\nrepeat until <[345] = (round (y position))>\n    change y by (0.3)\nend\ndelete this clone\n\nwhen I receive [/effect @s health_boost 100 10 true v]\ncreate clone of (_myself_ v)\n\nwhen I receive [/xp 10000l @s v]\ngo to [front v] layer\nshow\ngo to x: (0) y: (0)\nbroadcast (/effect @s health_boost 100 10 true v)\nrepeat until <[345] = (round (y position))>\n    change y by (0.3)\nend\nhide\n\nwhen flag clicked\nset [brightness v] effect to (-20)\nhide\n\nwhen I receive [エンドロールend v]\nrepeat (80)\n    wait (0.3) seconds\n    change [brightness v] effect by (-2)\nend\nhide\n\nwhen I receive [エンドロールend-end v]\ndelete this clone\n\nwhen I receive [エンドロールend-end v]\nhide\n\nwhen I receive [エンドロールend v]\nrepeat (30)\n    wait (0.3) seconds\nend\nbroadcast (エンドロールend-end v)\n\nwhen I receive [/xp 10000l @s v]\nforever\n    go to [front v] layer\nend\n\nbroadcast (/xp 10000L @s v)\n\nwhen I receive [エンドロールend v]\nwait (8) seconds\nbroadcast (終りょう v)\n\n@スプライト7\n\nwhen I receive [クリア v]\ngo to [front v] layer\nshow\nshow variable [記録 v]\nwait (1) seconds\nrepeat (20)\n    change [brightness v] effect by (-5)\nend\nhide\nhide variable [記録 v]\nbroadcast (/xp 10000L @s v)\n\nwhen flag clicked\nset [brightness v] effect to (0)\nhide\nhide variable [記録 v]\nset [記録 v] to [0]\n\nwhen I receive [start v]\nforever\n    repeat until <(くりァ) = [1]>\n        wait (1) seconds\n        change [記録 v] by (1)\n    end\nend\n\n@はい景\n\nwhen flag clicked\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\nwhen I start as a clone\ngo to [back v] layer\nchange [brightness v] effect by (-18)\nshow\n\nwhen flag clicked\nhide\n\nset [x v] to [1000]\nset [y v] to [50]\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [start v]\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ステージ配置 [0] [0] [2]\nステージ配置 [480] [0] [3]\nステージ配置 [960] [0] [4]\nステージ配置 ((960) + (480)) [0] [5]\nステージ配置 ((1440) + (480)) [0] [6]\nステージ配置 (((1440) + (480)) + (480)) [0] [7]\nステージ配置 (((1440) + (480)) + (960)) [0] [8]\nステージ配置 (((1440) + (960)) + (960)) [0] [9]\nステージ配置 (((1440) + (1330)) + (1060)) [0] [10]\nステージ配置 (((1440) + (1460)) + (1420)) [0] [11]\nステージ配置 (((1440) + (1810)) + (1420)) [0] [12]\nステージ配置 (((1440) + (1810)) + (1890)) [0] [13]\nステージ配置 (((1920) + (1810)) + (1890)) [0] [14]\nswitch costume to (なし v)\n\nbroadcast (プログラム v)\n\n@はい景2\n\nwhen flag clicked\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\nwhen I start as a clone\ngo to [back v] layer\nshow\n\nwhen flag clicked\nhide\n\nset [x v] to [1000]\nset [y v] to [50]\n\nwhen [timer v] > (time2)\nhide\n\nwhen I receive [start v]\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ステージ配置 [0] [0] [2]\nステージ配置 [480] [0] [3]\nステージ配置 [960] [0] [4]\nステージ配置 ((960) + (480)) [0] [5]\nステージ配置 ((1440) + (480)) [0] [6]\nステージ配置 (((1440) + (480)) + (480)) [0] [7]\nステージ配置 (((1440) + (480)) + (960)) [0] [8]\nステージ配置 (((1440) + (960)) + (960)) [0] [9]\nステージ配置 (((1440) + (1330)) + (1060)) [0] [10]\nステージ配置 (((1440) + (1460)) + (1420)) [0] [11]\nステージ配置 (((1440) + (1810)) + (1420)) [0] [12]\nステージ配置 (((1440) + (1810)) + (1890)) [0] [13]\nステージ配置 (((1920) + (1810)) + (1890)) [0] [14]\nswitch costume to (なし v)\n\n@スキン\n\nwhen flag clicked\nset [skin v] to [スティーブ]\nswitch costume to (スティーブ v)\nhide\n\nwhen I receive [setting v]\ngo to x: (0) y: (-60)\nset size to (5) %\ngo to [front v] layer\nshow\nrepeat (8)\n    change size by (((size) + (5)) / (4))\nend\nrepeat (25)\n    change size by (((100) - (size)) / (4))\nend\n\nwhen I receive [戻る v]\nhide\n\nwhen this sprite clicked\nif <(costume [number v]) = [1]> then\n    switch costume to (アレックス v)\n    set [skin v] to [アレックス]\n    play sound [クリック v] until done\nelse\n    switch costume to (スティーブ v)\n    set [skin v] to [スティーブ]\n    play sound [クリック v] until done\nend\nset [なめらか v] to [0]\nset size to (80) %\nset [なめらか v] to ((((100) - (size)) / (4)) - ((なめらか) / (3)))\nrepeat (20)\n    change size by (なめらか)\n    change [なめらか v] by ((((100) - (size)) / (4)) - ((なめらか) / (3)))\nend\nset size to (100) %\n\n@スプライト10\n\n@スプライト12\n\n@スプライト9\n\n@サムネ2\n\nwhen flag clicked\ngo to x: (0) y: (0)\ngo to [front v] layer\nhide\n\nwhen I receive [終りょう v]\ngo to x: (0) y: (0)\nset [ghost v] effect to (0)\ngo to [front v] layer\nshow\n\nwhen flag clicked\nforever\n\nwhen flag clicked\nforever\n    if <(くりァ) = [1]> then\n        wait (2) seconds\n        show\n    end\nend\n\ngo to [front v] layer\n\n@スプライト13\n\n@スプライト18\n\n@スプライト8\n\nwhen I receive [上限 v]\nforever\n    go to [front v] layer\n    show\nend\n\nwhen flag clicked\nhide\n\n
https://scratch.mit.edu/projects/812924389/\n新作ですぜひ見てください(((((