Moon-Night Platformer
@Stage\n\nwhen I receive [おっと v]\nforever\n    play sound [魔王魂  フィールド08 v] until done\nend\n\n@イントロ()\n\nchange x by (10)\n\nwhen flag clicked\nset [タイマー v] to [0]\nset [イントロ！！！ v] to [No]\nset [u v] to [1]\nrepeat until <(U) = [0]>\n    wait (1) seconds\n    change [u v] by (-1)\nend\nbroadcast (はじ v)\nset [タイマー v] to [Yes]\n\ndefine clone  ID: (id!!!!!!!!)\nset [クローンのid v] to (id!!!!!!!!)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\ndelete this clone\n\nwhen I start as a clone\nshow\nset [ghost v] effect to (-300)\nswitch costume to (コスチューム1 v)\npoint in direction (90)\nif <(クローンのID) = [右]> then\n    set [color v] effect to (70)\n    go to x: (241) y: (1)\n    repeat until <[1] > (x position)>\n        change x by ((x position) / (-7))\n    end\n    set [色☆ v] to [ピンク]\n    delete this clone\nelse\n    if <(クローンのID) = [上]> then\n        set [color v] effect to (-30)\n        go to x: (0) y: (180)\n        repeat until <[1] > (y position)>\n            change y by ((y position) / (-7))\n        end\n        set [色☆ v] to [緑]\n        delete this clone\n    else\n        if <(クローンのID) = [左]> then\n            set [color v] effect to (-80)\n            go to x: (-240) y: (1)\n            repeat until <(x position) > [-1]>\n                change x by ((x position) / (-7))\n            end\n            set [色☆ v] to [オレンジ]\n            delete this clone\n        else\n            if <(クローンのID) = [下]> then\n                set [color v] effect to (30)\n                go to x: (0) y: (-180)\n                repeat until <(y position) > [0]>\n                    change y by ((y position) / (-7))\n                    if <touching color (#66e5ff)?> then\n                        delete this clone\n                    end\n                end\n                set [色☆ v] to [青]\n                delete this clone\n            else\n                if <(クローンのID) = [文字ぃ]> then\n                    switch costume to (コスチューム2 v)\n                    set size to (50) %\n                    repeat until <(size) > [199.9]>\n                        change size by (((200) - (size)) / (5))\n                        turn right (((85) - (direction)) / (7)) degrees\n                        go to [front v] layer\n                    end\n                    wait (1) seconds\n                    set [spin v] to [10]\n                    repeat until <[33] > (size)>\n                        change size by (Spin)\n                        change [spin v] by (-1)\n                    end\n                    delete this clone\n                else\n                    if <(クローンのID) = [かっべ]> then\n                        switch costume to (やじるしぃ v)\n                        set size to (100) %\n                        go to x: (0) y: (-400)\n                        go to [front v] layer\n                        show\n                        repeat until <(round (y position)) = [0]>\n                            change y by (((0) - (y position)) / (5))\n                        end\n                        wait (0.1) seconds\n                        repeat (20)\n                            change [ghost v] effect by (5)\n                        end\n                        delete this clone\n                    else\n                        if <(クローンのID) = [クリック]> then\n                            show\n                            switch costume to (コスチューム3 v)\n                            go to x: (0) y: (193)\n                            glide (0.3) secs to x: (0) y: (160)\n                            repeat until <not <(イントロ！！！) = [No]>>\n                                if <mouse down?> then\n                                    glide (0.3) secs to x: (0) y: (193)\n                                    hide\n                                    broadcast (プロジェクト v)\n                                    broadcast (おっと v)\n                                    delete this clone\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nchange y by (10)\n\ndelete this clone\n\n\n\nwhen flag clicked\nforever\n    if <(おりゃ) = [あ]> then\n        if <(色☆) = [ピンク]> then\n            set [color v] effect to (70)\n        else\n            if <(色☆) = [緑]> then\n                set [color v] effect to (-30)\n            end\n        end\n    end\nend\n\nif <(色☆) = [オレンジ]> then\n\nset [color v] effect to (50)\n\n\n\nchange y by (10)\n\nwhen flag clicked\nforever\n    if <(おりゃ) = [あ]> then\n        if <touching color (#ffdc66)?> then\n            set [color v] effect to (-80)\n        end\n    end\nend\n\nwhen flag clicked\npoint in direction (90)\nforever\n    if <(おりゃ) = [あ]> then\n        if <touching color (#7066ff)?> then\n            set [color v] effect to (30)\n        end\n    end\nend\n\nrepeat until <(timer) > [5]>\n    change size by (0.2)\n    turn right (0.1) degrees\nend\n\nset size to (200) %\nset [spin v] to [10]\nrepeat until <[10] > (size)>\n    change size by (Spin)\n    change [spin v] by (-1)\nend\n\nforever\n\nswitch costume to (やじるしぃ v)\n\nset [色☆ v] to [青]\n\nset [color v] effect to (0)\n\nchange [brightness v] effect by (5)\n\nclone  ID: [矢印]\n\nerase all\n\nrepeat until <(timer) > [5]>\n    change size by (0.2)\n    turn right (0.1) degrees\nend\n\nrepeat until <(size) > [199.9]>\n    change size by (((200) - (size)) / (5))\n    turn right (((85) - (direction)) / (7)) degrees\n    go to [front v] layer\nend\n\nrepeat (5)\n    wait (20) seconds\nend\n\nif <(costume [number v]) = [12]> then\n\ndelete this clone\n\nwhen I receive [はじ v]\nset [イントロ！！！ v] to [Yes]\nshow\npen up\nerase all\nset [おりゃ v] to [あ]\nswitch costume to (コスチューム1 v)\nset size to (200) %\nset [色☆ v] to []\nset [color v] effect to (0)\ngo to x: (0) y: (180)\nrepeat until <[1] > (y position)>\n    change y by ((y position) / (-7))\nend\nclone  ID: [右]\nwait (0.7) seconds\nclone  ID: [上]\nwait (0.7) seconds\nclone  ID: [左]\nwait (0.7) seconds\nclone  ID: [下]\nwait (1.5) seconds\nset [おりゃ v] to [時代は終わった]\nset [color v] effect to (0)\nset [color v] effect to (0)\nset [明るさ v] to [0]\nclone  ID: [文字ぃ]\nwait (3) seconds\nrepeat (5)\n    set [クローンのid v] to [かっべ]\n    create clone of (_myself_ v)\n    wait (0.05) seconds\n    change [brightness v] effect by (15)\nend\nhide\nbroadcast (プロジェクト v)\nwait (1.3) seconds\nbroadcast (おっと v)\n\nwhen flag clicked\nhide\nrepeat until <not <(イントロ！！！) = [No]>>\n    if <mouse down?> then\n        hide\n        stop all sounds\n        forever\n            set [u v] to [3]\n        end\n    end\nend\nforever\n    set [u v] to [3]\nend\n\nwhen flag clicked\nclone  ID: [クリック]\n\nrepeat until <(round (y position)) = [0]>\n    change y by (((0) - (y position)) / (5))\nend\n\nwhen flag clicked\n\nwhen flag clicked\nplay sound [Blooom - Be Around \[NCS Release\] v] until done\n\n@スプライト3\n\nwhen flag clicked\nhide\n\nwhen flag clicked\ngo to x: (36) y: (28)\nset size to (100) %\n\nwhen I receive [プロジェクト v]\nshow\nforever\n    change [タイヨー v] by (5)\nend\n\nwhen I receive [プロジェクト v]\nforever\n    change size by ([cos v] of (タイヨー) )\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\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) (コスチューム) (大きさ)\nset size to (大きさ) %\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\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\nwhen I receive [プロジェクト v]\nforever\n    ブロック名\nend\n\nwhen I receive [プロジェクト v]\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配置 [1130] [360] [1] [100]\n配置 [1850] [395] [1] [100]\n配置 [2100] [395] [1] [100]\nhide\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)\nhide\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 (プレイヤー v)?> then\n        if <(item (a) of [到達 v]) = [0]> then\n            start sound [Collect v]\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\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\nwhen I receive [プロジェクト v]\ndelete all of [チェックポイントx v]\ndelete all of [チェックポイントy v]\ndelete all of [コスチューム v]\ndelete all of [到達 v]\nswitch costume to (コスチューム1 v)\nhide\n配置 [1470] [180] [1]\n配置 [3100] [250] [1]\n\nwhen I receive [プロジェクト v]\nforever\n    ブロック名\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)\nhide\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\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 receive [プロジェクト v]\nforever\n    ブロック名\nend\n\nwhen I receive [プロジェクト v]\ndelete all of [障害物x v]\ndelete all of [障害物y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\n配置 [490] [0] [1]\n配置 [970] [0] [2]\n配置 [1480] [0] [3]\n配置 [1900] [300] [4]\n配置 [2500] [240] [5]\n配置 [3000] [240] [6]\n配置 [3300] [400] [7]\n配置 [3800] [400] [8]\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 [地面x v]\ndelete all of [地面y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\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\n\nwhen I receive [a v]\nwait (0) seconds\ndelete this clone\n\ncreate clone of (_myself_ v)\n\nwhen I receive [プロジェクト v]\nforever\n    ブロック名\nend\n\nwhen I receive [プロジェクト v]\ndelete all of [地面x v]\ndelete all of [地面y v]\ndelete all of [コスチューム v]\nswitch costume to (コスチューム1 v)\n配置 [0] [0] [1]\n配置 [480] [0] [2]\n配置 [960] [0] [3]\n配置 [1400] [0] [4]\n配置 [480] [500] [5]\n配置 [1900] [300] [6]\n配置 [2350] [300] [7]\n配置 [2820] [300] [8]\n配置 [3300] [300] [9]\n配置 [3780] [300] [10]\n配置 [4240] [300] [11]\nhide\n\n@プレイヤー\n\nwhen flag clicked\ngo to [back v] layer\nset size to (120) %\ngo [forward v] (1) layers\npoint in direction (1)\nset [y v] to [0]\nset [x v] to [0]\nset [視点y v] to [0]\nset [視点x v] to [0]\nset [復活x v] to [0]\nset [復活y v] to [0]\nhide\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 [25]\n    end\n    if <<key (down arrow v) pressed?> or <<key (s v) pressed?> or <<mouse down?> and <(mouse y) < (y position)>>>> then\n        switch costume to (コスチューム3 v)\n    else\n        switch costume to (コスチューム2 v)\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\n\nwhen I receive [もう一回 v]\npoint in direction (1)\nset [y v] to [0]\nset [x v] to [0]\nset [視点y v] to (復活y)\nset [視点x v] to (復活x)\ngo to x: (0) y: (0)\nset rotation style [left-right v]\n\nwhen I receive [プロジェクト v]\nshow\ngo to x: (0) y: (0)\nset rotation style [left-right v]\nforever\n    動き\nend\n\nwhen I receive [プロジェクト v]\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\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [プロジェクト v]\nforever\n    go to [back v] layer\n    show\nend\n\n@スプライト2\n\nwhen flag clicked\nhide\n\nwhen I receive [プロジェクト v]\nshow\nforever\n    go to [back v] layer\n    go to (プレイヤー v)\nend\n\n@スプライト4\n\n@0\n\nwhen flag clicked\nset [スコア　　　　　　　　　　　　　　　　。 v] to [0]\n\nwhen I start as a clone\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\nclear graphic effects\nhide\n\ndefine 数字追加 (数字) X (x) Y (y)\nset [スコア　　　　　　　　　　　　　　　　。 v] to (数字)\nset [桁 v] to [0]\ngo to x: (x) y: (y)\nrepeat (9)\n    change [桁 v] by (1)\n    create clone of (_myself_ v)\n    change x by (-28)\nend\n\nwhen flag clicked\n\nwhen I receive [たあいむ v]\n数字追加 (タイム！) X [101] Y [-75]\n\nwhen I receive [プロジェクト v]\nset [タイム！ v] to [0]\nset [タイム用変数 v] to [Yes]\nforever\n    if <(タイム用変数) = [Yes]> 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))\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 (プレイヤー v)?> then\n        set [たらら v] to [Yes]\n        set [動き v] to [1]\n        next costume\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配置 [4240] [295] [1]\nhide\n\nwhen flag clicked\nforever\n    ブロック名\nend\n\nwhen flag clicked\nset [動き v] to [0]\nset [たらら v] to [No]\nforever\n    if <(たらら) = [Yes]> then\n        broadcast (クリア v)\n        stop [this script v]\n    end\nend\n\n@スプライト5\n\nwhen flag clicked\nhide\n\nwhen I receive [クリア v]\nshow\nset [ghost v] effect to (300)\ngo to x: (0) y: (0)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nbroadcast (たあいむ v)\n\n@スプライト6\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nset [ghost v] effect to (300)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\n
重いのは旗を数回押せば直ると思います。\n※Press the flag several times.\nそれでも直らなかったら\n＠TH0625様が軽量版を作ってくれたのでみてみてください！\nhttps://scratch.mit.edu/projects/593862966/\nあとタボワ\nhttps://turbowarp.org/592186918/