日の出…sunrise…scroll platformer

Instructions: https://scratch.mit.edu/projects/587237413\n　　　　　　　☀︎日の出…//sunrise…☀︎\nーーーーーーーーーーー日本語ーーーーーーーーーーー\nマイクが付いてるのは許してください…\n私のiPadはマイクが付いてないと音がならないんです…\nスクロールプラットフォーマーです！\n題名の通り日の出をコンセプトにしたプラットフォーマーです！\nーーーーーーーーーー操作方法ーーーーーーーーーーー\n√矢印キー、WSADキー、マウスで操作してください！\n\n√右(必ずとは限らない)に進んでゴールを目指してください！\n\n√チェックポイントもあります♪\n\nでは、楽しんでください！\nーーーーーーーーーーーEnglishーーーーーーーーーーー\nThis is a scroll platformer!\nAs the title suggests, it is a platformer with the concept of sunset!\n---------- Operation method ----------\n√ Operate with the arrow keys, WSAD keys, and mouse!\n\n√ Go to the right (but not always) and aim for the goal!\n\n√ There is also a checkpoint ♪\n\nHave fun!

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nhide variable [音量 v]\nset [音量 v] to [50]\nforever\n    if <key (1 v) pressed?> then\n        if <<[100] < (音量)> or <(音量) = [100]>> then\n            show variable [音量 v]\n            set [音量 v] to [0]\n            wait until <not <key (1 v) pressed?>>\n            hide variable [音量 v]\n        else\n            set [音量 v] to [100]\n            show variable [音量 v]\n            wait until <not <key (1 v) pressed?>>\n            hide variable [音量 v]\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    play sound [魔王魂  8bit26 v] until done\nend\n\nwhen flag clicked\nforever\n    if <key (2 v) pressed?> then\n        change [音量 v] by (-5)\n        show variable [音量 v]\n        wait (0.5) seconds\n        hide variable [音量 v]\n    end\n    if <key (3 v) pressed?> then\n        change [音量 v] by (5)\n        show variable [音量 v]\n        wait (1) seconds\n        hide variable [音量 v]\n    end\nend\n\nset [☁ アプデまたはメンテ中？ v] to [1]\n\nwhen flag clicked\nforever\n    set volume to (音量) %\nend\n\nwhen I receive [k v]\nforever\n    stop all sounds\nend\n\nwhen [4 v] key pressed\nset [音量 v] to [0]\nshow variable [音量 v]\nwait until <not <key (4 v) pressed?>>\nhide variable [音量 v]\n\nwhen flag clicked\nset [タイム v] to [0]\nset [タイム進めぇ v] to [OK]\nforever\n    if <(タイム進めぇ) = [OK]> then\n        wait (1) seconds\n        change [タイム v] by (1)\n    end\nend\n\n@地面\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nswitch costume to (コスチューム)\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\n\nwhen flag clicked\ndelete all of [地面y v]\ndelete all of [コスチューム v]\ndelete all of [地面x v]\nswitch costume to (コスチューム1 v)\n配置 [0] [-100] [1]\n配置 [470] [-100] [2]\n配置 [940] [-100] [3]\n配置 [1380] [-107] [4]\n配置 [1786] [-100] [5]\n配置 [2250] [-100] [6]\n配置 [3200] [-100] [6]\n配置 [3600] [-100] [7]\n配置 [4100] [-99] [6]\n配置 [4600] [100] [9]\n配置 [4580] [680] [10]\n配置 [4100] [690] [11]\n配置 [3570] [690] [12]\n配置 [3220] [700] [13]\n配置 [2670] [600] [14]\n配置 [2170] [600] [15]\n配置 [1690] [770] [16]\n配置 [1180] [870] [17]\n配置 [710] [771] [18]\n\nwhen I start as a clone\ngo to [front v] layer\n動き (item (a) of [地面x v]) (item (a) of [地面y v]) (item (a) of [コスチューム v])\nbroadcast (a v)\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to ((コスチューム) + (1))\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [地面x v]\nadd (y) to [地面y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nwhen [loudness v] > (10)\n\nwhen I start as a clone\nwait until <(clear？) = [1]>\ndelete this clone\n\nwhen I start as a clone\nif <(地獄のステージ) = [0]> then\n    wait until <(地獄のステージ) = [1]>\n    delete this clone\nend\n\n配置 [1380] [-107] [4]\n\n配置 [1786] [-100] [5]\n配置 [2250] [-100] [6]\n配置 [3200] [-100] [6]\n配置 [3600] [-100] [7]\n配置 [4100] [-99] [6]\n配置 [4600] [100] [9]\n配置 [4580] [680] [10]\n配置 [3285] [95] [8]\n配置 [3760] [95] [9]\n配置 [4230] [88] [10]\n配置 [4695] [45] [11]\n配置 [4970] [85] [12]\n配置 [5450] [85] [13]\n配置 [5920] [110] [14]\n配置 [6395] [95] [15]\n配置 [6800] [95] [16]\n配置 [7240] [85] [17]\n配置 [7800] [290] [18]\n配置 [8350] [395] [19]\n配置 [8900] [368] [20]\n配置 [4100] [690] [11]\n配置 [3570] [690] [12]\n配置 [3220] [700] [13]\n配置 [2670] [600] [14]\n配置 [2205] [600] [15]\n\nwhen flag clicked\nforever\n    if <<(username) = [KOMA7]> and <key (9 v) pressed?>> then\n        set [視点x v] to [650]\n        set [視点y v] to [900]\n    end\nend\n\n@Puレイヤー\n\nwhen flag clicked\nset [死んだ回あす v] to [0]\nswitch costume to (あれ v)\nshow\nset [ghost v] effect to (-300)\nset size to (100) %\ngo to [back v] layer\npoint in direction (1)\nset [どーさ v] to [0]\nset [y v] to [0]\nset [x v] to [0]\nset [視点y v] to [30]\nset [視点x v] to [0]\nset [復活するとこのx v] to [0]\nset [復活するとこのy v] to [30]\ngo to x: (0) y: (0)\nset rotation style [left-right v]\nforever\n    どーさ\nend\n\ndefine どーさ\nif <(どーさ) = [0]> then\n    if <<<(mouse x) > [0]> and <mouse down?>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n        point in direction (1)\n        change [x v] by (1)\n    end\n    if <<<[0] > (mouse x)> and <mouse down?>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n        point in direction (-1)\n        change [x v] by (-1)\n    end\n    set [加速速度 v] to [0.9]\n    set [x v] to ((x) * (加速速度))\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        壁\n    end\n    set [重力 v] to [-1]\n    change [y v] by (重力)\n    change y by (y)\n    if <touching (地面 v)?> then\n        床\n    end\n    change y by (重力)\n    if <touching (地面 v)?> then\n        if <<<mouse down?> and <[0] < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n            set [y v] to [15]\n        end\n    end\n    change y by (() - (重力))\n    if <<touching (障害物 v)?> or <(視点y) < [-300]>> then\n        broadcast (もう一回 v)\n    end\n    if <touching (バネ v)?> then\n        set [y v] to [20]\n    end\nend\n\ndefine 床\nrepeat until <not <touching (地面 v)?>>\n    change y by ((((0) - (y)) / ([abs v] of (y) )) * ([abs v] of (重力) ))\nend\nset [y v] to [0]\n\ndefine 壁\nchange y by (-15)\nrepeat until <not <touching (地面 v)?>>\n    change x by (([floor v] of (((0) - (x)) / ([abs v] of (x) )) ) * ([abs v] of (加速速度) ))\nend\nif <<<mouse down?> and <[0] < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n    set [y v] to [15]\n    set [x v] to ((((0) - (x)) / ([abs v] of (x) )) * (7))\nelse\n    set [x v] to [0]\nend\n\nwhen flag clicked\nforever\n    if <[0] < (x)> then\n        change [視点x v] by ([ceiling v] of ((x position) / (10)) )\n    else\n        change [視点x v] by ([floor v] of ((x position) / (10)) )\n    end\n    change [視点y v] by ([floor v] of ((y position) / (5)) )\n    set [視点y v] to ((視点y) + (5))\n    if <[0] < (x)> then\n        change x by ([floor v] of (((0) - (x position)) / (10)) )\n    else\n        change x by ([ceiling v] of (((0) - (x position)) / (10)) )\n    end\n    change y by ([ceiling v] of (((0) - (y position)) / (5)) )\n    set y to ((y position) - (5))\nend\n\nwhen I receive [もう一回 v]\npoint in direction (1)\nset [どーさ v] to [1]\nswitch costume to (あれ2 v)\nset [ghost v] effect to (-300)\nrepeat (10)\n    change y by (10)\n    change [ghost v] effect by (10)\nend\nset [y v] to [0]\nset [x v] to [0]\nset [視点y v] to (復活するとこのY)\nset [視点x v] to (復活するとこのX)\nset [どーさ v] to [0]\nshow\nset [ghost v] effect to (-300)\nswitch costume to (あれ v)\ngo to x: (0) y: (0)\nset rotation style [left-right v]\n\n@障害物\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen flag clicked\ndelete all of [障害物x v]\ndelete all of [障害物y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\n配置 [910] [-25] [1]\n配置 [4300] [-20] [2]\n配置 [4300] [0] [2]\n配置 [4300] [20] [2]\n配置 [4300] [40] [2]\n配置 [4300] [60] [2]\n配置 [4300] [80] [2]\n配置 [4300] [100] [2]\n配置 [2830] [670] [3]\n配置 [2650] [600] [3]\n配置 [2470] [660] [3]\n配置 [2205] [626] [1]\n配置 [2073] [709] [1]\n配置 [1940] [793] [1]\n配置 [1240] [820] [4]\n\nwhen I start as a clone\n動き (item (a) of [障害物x v]) (item (a) of [障害物y v]) (item (a) of [コスチューム v])\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [障害物x v]\nadd (y) to [障害物y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nhide\n\n配置 [4180] [130] [2]\n配置 [4600] [-80] [4]\n配置 [3750] [-50] [1]\n配置 [5030] [28] [5]\n配置 [5395] [118] [2]\n配置 [6450] [35] [6]\n配置 [6770] [35] [7]\n配置 [7800] [330] [8]\n配置 [8350] [330] [9]\n\n@チェックポイント\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nif <(item (a) of [到達 v]) = [1]> then\n    switch costume to (コスチューム)\nelse\n    switch costume to ((コスチューム) + (-1))\nend\n\nwhen flag clicked\ngo to [back v] layer\ndelete all of [チェックポイントx v]\ndelete all of [チェックポイントy v]\ndelete all of [コスチューム v]\ndelete all of [到達 v]\nswitch costume to (コスチューム1 v)\n配置 [2000] [35] [2]\n配置 [5720] [40] [2]\n配置 [3400] [690] [2]\n\nwhen I start as a clone\nforever\n    動き (item (a) of [チェックポイントx v]) (item (a) of [チェックポイントy v]) (item (a) of [コスチューム v])\nend\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nrepeat (2)\n    add (x) to [チェックポイントx v]\n    add (y) to [チェックポイントy v]\n    add [0] to [到達 v]\nend\nadd ((コスチューム) + (1)) to [コスチューム v]\nadd ((コスチューム) + (2)) to [コスチューム v]\n\nwhen I start as a clone\nforever\n    if <touching (puレイヤー v)?> then\n        if <(item (a) of [到達 v]) = [0]> then\n            set [復活するとこのx v] to (item (a) of [チェックポイントx v])\n            set [復活するとこのy v] to (item (a) of [チェックポイントy v])\n            replace item (a) of [到達 v] with [1]\n        end\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\ndefine ブロック名\nset [a v] to [0]\nrepeat ((length of [コスチューム v]) / (2))\n    change [a v] by (2)\n    create clone of (_myself_ v)\nend\n\nhide\n\nwhen flag clicked\nforever\n    set volume to (音量) %\nend\n\n@木(コスチューム1)\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (百円スティック v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nswitch costume to (コスチューム)\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\n\nwhen flag clicked\ndelete all of [木x v]\ndelete all of [木y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\n配置 [200] [50] [1]\n配置 [620] [50] [2]\n配置 [1760] [60] [3]\n配置 [2300] [50] [1]\n配置 [3200] [50] [1]\n配置 [3650] [50] [5]\n配置 [4100] [50] [1]\n配置 [4500] [250] [1]\n配置 [4530] [810] [1]\n配置 [2310] [750] [1]\n\nwhen I start as a clone\n動き (item (a) of [木x v]) (item (a) of [木y v]) (item (a) of [コスチューム v])\nbroadcast (a v)\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to ((コスチューム) + (1))\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [木x v]\nadd (y) to [木y v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nwhen [loudness v] > (10)\n\n配置 [3600] [50] [4]\n\n@敵\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nset rotation style [left-right v]\nif <<([abs v] of ((item (a) of [モンスターy v]) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of (((item (a) of [モンスターx v]) - ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nif <([ceiling v] of (([cos v] of (((timer) - (0.1)) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) ) < ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )> then\n    point in direction (1)\nelse\n    point in direction (-1)\nend\nswitch costume to (コスチューム)\nif <<touching (puレイヤー v)?> and <not <(y) < [0]>>> then\n    if <(item (a) of [表示 v]) = [1]> then\n        broadcast (もう一回 v)\n    end\nend\nif <(item (a) of [表示 v]) = [0]> then\n    hide\nend\n\nwhen flag clicked\ndelete all of [モンスター移動範囲 v]\ndelete all of [モンスターx v]\ndelete all of [モンスターy v]\ndelete all of [コスチューム v]\ndelete all of [表示 v]\nswitch costume to (コスチューム1 v)\n配置 [2200] [10] [1] [270]\n配置 [1380] [10] [1] [200]\nhide\n\nwhen I start as a clone\nhide\ngo to [back v] layer\nif <(item (a) of [表示 v]) = [1]> then\n    動き ((item (a) of [モンスターx v]) - ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )) (item (a) of [モンスターy v]) (item (a) of [コスチューム v])\nend\n\ndefine 配置 (x) (y) (コスチューム) (移動範囲)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [モンスターx v]\nadd (y) to [モンスターy v]\nadd (移動範囲) to [モンスター移動範囲 v]\nadd ((コスチューム) + (1)) to [コスチューム v]\nadd [1] to [表示 v]\n\nwhen I receive [もう一回 v]\nモンスター復活\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\n    動き ((item (a) of [モンスターx v]) - ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )) (item (a) of [モンスターy v]) (item (a) of [コスチューム v])\n    if <<touching (puレイヤー v)?> and <[0] > (y)>> then\n        replace item (a) of [表示 v] with [0]\n        set [y v] to [15]\n    end\n    hide\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\ndefine モンスター復活\ndelete all of [表示 v]\nrepeat (length of [コスチューム v])\n    add [1] to [表示 v]\nend\n\n@バネ\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen flag clicked\ndelete all of [バネx v]\ndelete all of [バネy v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\ngo to [back v] layer\n配置 [2470] [0] [1]\n配置 [2600] [200] [1]\n配置 [4800] [200] [1]\n配置 [4800] [220] [1]\n配置 [4800] [450] [1]\n\nhide\n\nwhen I start as a clone\n動き (item (a) of [バネx v]) (item (a) of [バネy v]) (item (a) of [コスチューム v])\nbroadcast (a v)\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to ((コスチューム) + (1))\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [バネx v]\nadd (y) to [バネy v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\n@動くバネ。ひぃぃぃぃ\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nset rotation style [left-right v]\nif <<([abs v] of ((item (a) of [モンスターy v]) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of (((item (a) of [モンスターx v]) - ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nif <([ceiling v] of (([cos v] of (((timer) - (0.1)) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) ) < ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )> then\n    point in direction (1)\nelse\n    point in direction (-1)\nend\nswitch costume to (コスチューム)\nif <(item (a) of [表示 v]) = [0]> then\n    hide\nend\n\nif <<touching (puレイヤー v)?> and <not <(y) < [0]>>> then\n    if <(item (a) of [表示 v]) = [1]> then\n        broadcast (もう一回 v)\n    end\nend\n\nwhen flag clicked\ndelete all of [モンスター移動範囲 v]\ndelete all of [モンスターx v]\ndelete all of [モンスターy v]\ndelete all of [コスチューム v]\ndelete all of [表示 v]\nswitch costume to (コスチューム1 v)\n配置 [4100] [0] [1] [220]\nhide\n\nwhen I start as a clone\nhide\ngo to [back v] layer\nif <(item (a) of [表示 v]) = [1]> then\n    動き ((item (a) of [モンスターx v]) - ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )) (item (a) of [モンスターy v]) (item (a) of [コスチューム v])\nend\n\ndefine 配置 (x) (y) (コスチューム) (移動範囲)\nswitch costume to (コスチューム)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [モンスターx v]\nadd (y) to [モンスターy v]\nadd (移動範囲) to [モンスター移動範囲 v]\nadd ((コスチューム) + (1)) to [コスチューム v]\nadd [1] to [表示 v]\n\nwhen I receive [もう一回 v]\nモンスター復活\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\n    動き ((item (a) of [モンスターx v]) - ([ceiling v] of (([cos v] of ((timer) * ((100) * ((100) / (item (a) of [モンスター移動範囲 v])))) ) * (item (a) of [モンスター移動範囲 v])) )) (item (a) of [モンスターy v]) (item (a) of [コスチューム v])\n    if <touching (puレイヤー v)?> then\n        set [y v] to [20]\n    end\n    hide\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\ndefine モンスター復活\ndelete all of [表示 v]\nrepeat (length of [コスチューム v])\n    add [1] to [表示 v]\nend\n\n@F1D58129-2654-47C0-8C7C-F1F543C81ABD\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nset [☁ アプデまたはメンテ中？ v] to [0]\n\n@ゴール\n\ndefine 動き (x) (y) (コスチューム)\nswitch costume to (消去しないで下さい。 v)\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nif <<([abs v] of ((y) - (視点y)) ) > ([abs v] of (y position) )> or <([abs v] of ((x) - (視点x)) ) > ([abs v] of (x position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (コスチューム)\n\nwhen I start as a clone\n動き (item (a) of [ゴールx v]) (item (a) of [ゴールy v]) (item (a) of [コスチューム v])\nbroadcast (a v)\n\ndefine 配置 (x) (y) (コスチューム)\nswitch costume to ((コスチューム) + (1))\ngo to x: ((x) - (視点x)) y: ((y) - (視点y))\nadd (x) to [ゴールx v]\nadd (y) to [ゴールy v]\nadd ((コスチューム) + (1)) to [コスチューム v]\n\ndefine ブロック名\nset [a v] to [0]\nrepeat (length of [コスチューム v])\n    change [a v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nwhen I start as a clone\nforever\n    if <touching (puレイヤー v)?> then\n        set [どーさ v] to [1]\n        next costume\n        set [clear？ v] to [1]\n    end\nend\n\nwhen flag clicked\ndelete all of [ゴールx v]\ndelete all of [ゴールy v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\n配置 [600] [910] [1]\nhide\n\nwhen flag clicked\nset [clear？ v] to [0]\nforever\n    ブロック名\nend\n\nwhen flag clicked\nset [どーさ v] to [0]\nforever\n    if <(clear？) = [1]> then\n        broadcast (クリア v)\n        stop [this script v]\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [クリア v]\ngo to [front v] layer\nshow\ngo to x: (0) y: (999)\nrepeat until <(y position) < [3]>\n    change y by ((() - (y position)) / (10))\nend\nbroadcast (サムネ v)\nbroadcast (き v)\ngo to [front v] layer\nwait (0.1) seconds\n\ngo to [front v] layer\nrepeat until <[348] < (y position)>\n    change y by (((364) - (y position)) / (10))\nend\nhide\n\n@スプライト2\n\nwhen flag clicked\nif <(username) = [KOMA7]> then\n    hide\nelse\n    if <(☁ アプデまたはメンテ中？) = [1]> then\n        go to x: (36) y: (28)\n        show\n        stop [all v]\n    else\n        hide\n    end\nend\n\nset [☁ アプデまたはメンテ中？ v] to [0]\n\n@0\n\nwhen flag clicked\nset [スコア　　　　　　　　　　　　　　　　。 v] to [0]\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nforever\n    if <(桁) = [1]> then\n        1桁\n    else\n        if <(桁) = [2]> then\n            2桁\n        else\n            if <(桁) = [3]> then\n                3桁\n            else\n                if <(桁) = [4]> then\n                    4桁\n                else\n                    if <(桁) = [5]> then\n                        5桁\n                    else\n                        if <(桁) = [6]> then\n                            6桁\n                        else\n                            if <(桁) = [7]> then\n                                7桁\n                            else\n                                if <(桁) = [8]> then\n                                    8桁\n                                else\n                                    9桁\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine 1桁\nif <[9] < (スコア　　　　　　　　　　　　　　　　。)> then\n    if <[99] < (スコア　　　　　　　　　　　　　　　　。)> then\n        if <[999] < (スコア　　　　　　　　　　　　　　　　。)> then\n            if <[9999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                if <[99999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                    if <[999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                        if <[9999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                            if <[99999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                                switch costume to (letter (9) of (スコア　　　　　　　　　　　　　　　　。))\n                            else\n                                switch costume to (letter (8) of (スコア　　　　　　　　　　　　　　　　。))\n                            end\n                        else\n                            switch costume to (letter (7) of (スコア　　　　　　　　　　　　　　　　。))\n                        end\n                    else\n                        switch costume to (letter (6) of (スコア　　　　　　　　　　　　　　　　。))\n                    end\n                else\n                    switch costume to (letter (5) of (スコア　　　　　　　　　　　　　　　　。))\n                end\n            else\n                switch costume to (letter (4) of (スコア　　　　　　　　　　　　　　　　。))\n            end\n        else\n            switch costume to (letter (3) of (スコア　　　　　　　　　　　　　　　　。))\n        end\n    else\n        switch costume to (letter (2) of (スコア　　　　　　　　　　　　　　　　。))\n    end\nelse\n    switch costume to (letter (1) of (スコア　　　　　　　　　　　　　　　　。))\nend\n\ndefine 2桁\nif <[9] < (スコア　　　　　　　　　　　　　　　　。)> then\n    show\n    if <[99] < (スコア　　　　　　　　　　　　　　　　。)> then\n        if <[999] < (スコア　　　　　　　　　　　　　　　　。)> then\n            if <[9999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                if <[99999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                    if <[999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                        if <[9999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                            if <[99999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                                switch costume to (letter (8) of (スコア　　　　　　　　　　　　　　　　。))\n                            else\n                                switch costume to (letter (7) of (スコア　　　　　　　　　　　　　　　　。))\n                            end\n                        else\n                            switch costume to (letter (6) of (スコア　　　　　　　　　　　　　　　　。))\n                        end\n                    else\n                        switch costume to (letter (5) of (スコア　　　　　　　　　　　　　　　　。))\n                    end\n                else\n                    switch costume to (letter (4) of (スコア　　　　　　　　　　　　　　　　。))\n                end\n            else\n                switch costume to (letter (3) of (スコア　　　　　　　　　　　　　　　　。))\n            end\n        else\n            switch costume to (letter (2) of (スコア　　　　　　　　　　　　　　　　。))\n        end\n    else\n        switch costume to (letter (1) of (スコア　　　　　　　　　　　　　　　　。))\n    end\nelse\n    hide\nend\n\ndefine 3桁\nif <[99] < (スコア　　　　　　　　　　　　　　　　。)> then\n    show\n    if <[999] < (スコア　　　　　　　　　　　　　　　　。)> then\n        if <[9999] < (スコア　　　　　　　　　　　　　　　　。)> then\n            if <[99999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                if <[999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                    if <[9999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                        if <[99999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                            switch costume to (letter (7) of (スコア　　　　　　　　　　　　　　　　。))\n                        else\n                            switch costume to (letter (6) of (スコア　　　　　　　　　　　　　　　　。))\n                        end\n                    else\n                        switch costume to (letter (5) of (スコア　　　　　　　　　　　　　　　　。))\n                    end\n                else\n                    switch costume to (letter (4) of (スコア　　　　　　　　　　　　　　　　。))\n                end\n            else\n                switch costume to (letter (3) of (スコア　　　　　　　　　　　　　　　　。))\n            end\n        else\n            switch costume to (letter (2) of (スコア　　　　　　　　　　　　　　　　。))\n        end\n    else\n        switch costume to (letter (1) of (スコア　　　　　　　　　　　　　　　　。))\n    end\nelse\n    hide\nend\n\ndefine 4桁\nif <[999] < (スコア　　　　　　　　　　　　　　　　。)> then\n    show\n    if <[9999] < (スコア　　　　　　　　　　　　　　　　。)> then\n        if <[99999] < (スコア　　　　　　　　　　　　　　　　。)> then\n            if <[999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                if <[9999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                    if <[99999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                        switch costume to (letter (6) of (スコア　　　　　　　　　　　　　　　　。))\n                    else\n                        switch costume to (letter (5) of (スコア　　　　　　　　　　　　　　　　。))\n                    end\n                else\n                    switch costume to (letter (4) of (スコア　　　　　　　　　　　　　　　　。))\n                end\n            else\n                switch costume to (letter (3) of (スコア　　　　　　　　　　　　　　　　。))\n            end\n        else\n            switch costume to (letter (2) of (スコア　　　　　　　　　　　　　　　　。))\n        end\n    else\n        switch costume to (letter (1) of (スコア　　　　　　　　　　　　　　　　。))\n    end\nelse\n    hide\nend\n\ndefine 5桁\nif <[9999] < (スコア　　　　　　　　　　　　　　　　。)> then\n    show\n    if <[99999] < (スコア　　　　　　　　　　　　　　　　。)> then\n        if <[999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n            if <[9999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                if <[99999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                    switch costume to (letter (5) of (スコア　　　　　　　　　　　　　　　　。))\n                else\n                    switch costume to (letter (4) of (スコア　　　　　　　　　　　　　　　　。))\n                end\n            else\n                switch costume to (letter (3) of (スコア　　　　　　　　　　　　　　　　。))\n            end\n        else\n            switch costume to (letter (2) of (スコア　　　　　　　　　　　　　　　　。))\n        end\n    else\n        switch costume to (letter (1) of (スコア　　　　　　　　　　　　　　　　。))\n    end\nelse\n    hide\nend\n\ndefine 6桁\nif <[99999] < (スコア　　　　　　　　　　　　　　　　。)> then\n    show\n    if <[999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n        if <[9999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n            if <[99999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n                switch costume to (letter (4) of (スコア　　　　　　　　　　　　　　　　。))\n            else\n                switch costume to (letter (3) of (スコア　　　　　　　　　　　　　　　　。))\n            end\n        else\n            switch costume to (letter (2) of (スコア　　　　　　　　　　　　　　　　。))\n        end\n    else\n        switch costume to (letter (1) of (スコア　　　　　　　　　　　　　　　　。))\n    end\nelse\n    hide\nend\n\ndefine 7桁\nif <[999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n    show\n    if <[9999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n        if <[99999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n            switch costume to (letter (3) of (スコア　　　　　　　　　　　　　　　　。))\n        else\n            switch costume to (letter (2) of (スコア　　　　　　　　　　　　　　　　。))\n        end\n    else\n        switch costume to (letter (1) of (スコア　　　　　　　　　　　　　　　　。))\n    end\nelse\n    hide\nend\n\ndefine 8桁\nif <[9999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n    show\n    if <[99999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n        switch costume to (letter (2) of (スコア　　　　　　　　　　　　　　　　。))\n    else\n        switch costume to (letter (1) of (スコア　　　　　　　　　　　　　　　　。))\n    end\nelse\n    hide\nend\n\ndefine 9桁\nif <[99999999] < (スコア　　　　　　　　　　　　　　　　。)> then\n    show\n    switch costume to (letter (1) of (スコア　　　　　　　　　　　　　　　　。))\nelse\n    hide\nend\n\nwhen flag clicked\ngo to [back v] layer\nhide\n\nwhen I receive [き v]\nset [スコア　　　　　　　　　　　　　　　　。 v] to (タイム)\ngo to [front v] layer\nclear graphic effects\nhide\nset [桁 v] to [0]\ngo to x: (80) y: (-50)\nrepeat (9)\n    change [桁 v] by (1)\n    create clone of (_myself_ v)\n    change x by (-28)\nend\n\nwhen I receive [クリア v]\nset [タイム進めぇ v] to [NO]\n\n