ー･ー MORSE ー･ー #games 【-Platformer × nazokoubou】
@Stage\n\nwhen flag clicked\nset volume to (10) %\nforever\n    play sound [TheFatRat_-_Xenogenesis_ v] until done\nend\n\nwhen I receive [本番 v]\nrepeat (10)\n    change volume by (-5)\nend\n\nwhen flag clicked\n\nwhen I receive [トップ v]\nrepeat (10)\n    change volume by (5)\nend\n\n@plz\n\nwhen I receive [ゲーム開始 v]\nhide\nreset timer\nswitch backdrop to (背景1 v)\nbroadcast (おおお v)\nhide\nforever\n    if <not <(_ID) = [ans]>> then\n        reset timer\n    end\nend\n\nwhen [timer v] > (0.1)\nif <not <<(_ID) = [intro]> or <(_ID) = [ans]>>> then\n    hide\n    set size to (160) %\n    switch costume to (square1 v)\n    create clone of (_myself_ v)\n    wait (1) seconds\n    set size to (120) %\n    switch costume to (heart v)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    switch costume to (star v)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    switch costume to (follow v)\n    create clone of (_myself_ v)\n    wait (0.8) seconds\n    go to x: (-53) y: (-5)\n    switch costume to (heart11 v)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    go to x: (0) y: (-4)\n    switch costume to (star11 v)\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    go to x: (53) y: (0)\n    switch costume to (follow11 v)\n    create clone of (_myself_ v)\n    wait (1) seconds\n    set size to (150) %\n    go to x: (0) y: (-60)\n    switch costume to (border-radius: 4px; v)\n    create clone of (_myself_ v)\n    wait (0.5) seconds\n    set size to (100) %\n    go to x: (0) y: (-60)\n    switch costume to (文 v)\n    create clone of (_myself_ v)\n    set size to (100) %\n    go to x: (-10) y: (-60)\n    switch costume to (疑似要素 v)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [おおお v]\ndelete this clone\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [square1]> then\n    start sound [High Whoosh v]\n    go to x: (240) y: (0)\n    point in direction (180)\n    set [ghost v] effect to (100)\n    set [なんで？ v] to [45]\n    repeat (10)\n        turn left (なんで？) degrees\n        change x by (join [-] ((なんで？) * (2.6)))\n        change [ghost v] effect by (-10)\n        set [なんで？ v] to ((なんで？) / (2))\n    end\n    repeat (5)\n        next costume\n    end\nend\nif <(costume [name v]) = [heart]> then\n    start sound [High Whoosh v]\n    go to x: (240) y: (-5)\n    set [s v] to [100]\n    repeat (10)\n        move (join [-] ([sqrt v] of (s) )) steps\n        change [s v] by ((s) / (2))\n    end\n    wait (0.5) seconds\n    repeat (9)\n        next costume\n    end\n    start sound [Suction Cup v]\nend\nif <(costume [name v]) = [star]> then\n    start sound [High Whoosh v]\n    go to x: (0) y: (186)\n    set [s v] to [42]\n    repeat (10)\n        change y by (join [-] (([sqrt v] of (s) ) - (0.8)))\n        change [s v] by ((s) / (2))\n    end\n    wait (0.5) seconds\n    repeat (9)\n        next costume\n    end\n    start sound [Suction Cup v]\nend\nif <(costume [name v]) = [follow]> then\n    start sound [High Whoosh v]\n    go to x: (-240) y: (0)\n    set [s v] to [100]\n    repeat (10)\n        move ([sqrt v] of (s) ) steps\n        change [s v] by ((s) / (2))\n    end\n    wait (0.5) seconds\n    repeat (9)\n        next costume\n    end\n    start sound [Suction Cup v]\nend\nif < (costume [name v]) contains [11]?> then\n    set [s v] to [25]\n    repeat (20)\n        change size by (s)\n        change [ghost v] effect by (5)\n        set [s v] to ((s) / (3))\n    end\n    delete this clone\nend\nif < (costume [name v]) contains [radius]?> then\n    start sound [Collect v]\n    set [ghost v] effect to (100)\n    set [s v] to [25]\n    repeat (20)\n        change size by (join [-] (s))\n        change [ghost v] effect by (join [-] ((s) * (3)))\n        set [s v] to ((s) / (3))\n    end\nend\nif <(costume [name v]) = [疑似要素]> then\n    set [s v] to [1]\n    repeat (17)\n        move (([tan v] of (s) ) * (14)) steps\n        change [s v] by (3)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nreset timer\nhide\n\ngo to x: (0) y: (0)\nset size to (100) %\nswitch costume to (bg v)\ncreate clone of (_myself_ v)\n\n@intro\n\nwhen flag clicked\nreset timer\nbroadcast (クローン削除 v)\nchange [intro: opを流す？ v] by (1)\nif <(intro: OPを流す？) = [1]> then\n    set [_id v] to [intro]\n    point in direction (90)\n    hide\n    start sound [Clarx - H.A.Y \[NCS Release\] v]\n    set [ghost v] effect to (30)\n    go to [front v] layer\n    switch costume to (skip v)\n    set size to (80) %\n    go to x: (150) y: (-150)\n    create clone of (_myself_ v)\n    clear graphic effects\n    go to x: (-240) y: (0)\n    set size to (150) %\n    set [intro: x v] to [-240]\n    set [intro: y v] to [200]\n    repeat (25)\n        switch costume to (bar v)\n        go to x: (intro: x) y: (0)\n        create clone of (_myself_ v)\n        change [intro: x v] by (25)\n        go to x: (0) y: (intro: y)\n        switch costume to (bar2 v)\n        create clone of (_myself_ v)\n        change [intro: y v] by (-25)\n    end\n    switch costume to (load v)\n    go to x: (0) y: (0)\n    set size to (150) %\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    switch costume to (line7 v)\n    go to x: (0) y: (0)\n    set size to (150) %\n    create clone of (_myself_ v)\n    wait (0.8) seconds\n    reset timer\n    moji [UNO] [-100] [0] [1]\n    set size to (100) %\n    go to x: (0) y: (0)\n    switch costume to (glass v)\n    create clone of (_myself_ v)\n    switch costume to (glass6 v)\n    create clone of (_myself_ v)\n    switch costume to (glass4 v)\n    create clone of (_myself_ v)\n    wait (0.5) seconds\n    moji [DOS] [-100] [0] [2]\n    set size to (100) %\n    go to x: (0) y: (0)\n    switch costume to (glass10 v)\n    create clone of (_myself_ v)\n    switch costume to (glass3 v)\n    create clone of (_myself_ v)\n    switch costume to (glass7 v)\n    create clone of (_myself_ v)\n    wait (0.5) seconds\n    moji [TRES] [-150] [0] [3]\n    set size to (100) %\n    go to x: (0) y: (0)\n    switch costume to (glass5 v)\n    create clone of (_myself_ v)\n    switch costume to (glass9 v)\n    create clone of (_myself_ v)\n    switch costume to (glass2 v)\n    create clone of (_myself_ v)\n    switch costume to (glass8 v)\n    create clone of (_myself_ v)\n    wait (0.45) seconds\n    set [flag v] to [Yes]\n    set size to (100) %\n    switch costume to (ぷらふぉ v)\n    go to x: (-300) y: (0)\n    create clone of (_myself_ v)\n    switch costume to (なぞっち v)\n    go to x: (235) y: (0)\n    create clone of (_myself_ v)\n    wait (0.5) seconds\n    reset timer\n    背景\n    switch costume to (stage v)\n    go to x: (-500) y: (0)\n    create clone of (_myself_ v)\n    switch costume to (-platformer v)\n    set size to (350) %\n    point in direction (90)\n    go to x: (0) y: (50)\n    create clone of (_myself_ v)\n    wait (1) seconds\n    set size to (100) %\n    repeat (2)\n        switch costume to (toge v)\n        go to x: (300) y: (-85)\n        create clone of (_myself_ v)\n        wait (0.4) seconds\n        switch costume to (kabe v)\n        go to x: (300) y: (-85)\n        create clone of (_myself_ v)\n        wait (0.2) seconds\n        switch costume to (kabe v)\n        go to x: (300) y: (-85)\n        create clone of (_myself_ v)\n        wait (0.3) seconds\n        switch costume to (toge v)\n        go to x: (300) y: (-85)\n        create clone of (_myself_ v)\n        wait (0.1) seconds\n    end\n    wait (0.4) seconds\n    switch costume to (bane v)\n    go to x: (300) y: (-110)\n    create clone of (_myself_ v)\n    switch costume to (ボボボーボ・ボーボ棒 v)\n    set size to (280) %\n    point in direction (90)\n    go to x: (-300) y: (0)\n    create clone of (_myself_ v)\n    go to x: (300) y: (0)\n    create clone of (_myself_ v)\n    wait (2.8) seconds\n    switch costume to (nazokoubou8 v)\n    set size to (280) %\n    point in direction (90)\n    go to x: (122) y: (30)\n    create clone of (_myself_ v)\n    wait (4) seconds\n    set [_id v] to [game]\nend\nset [_id v] to [game]\nbroadcast (ゲーム開始 v)\n\nwhen flag clicked\nwait (0.1) seconds\n\nwhen I start as a clone\nshow\nif < (costume [name v]) contains [bar]?> then\n    set size to (150) %\n    set [ghost v] effect to (100)\n    set [s v] to [40]\n    repeat (30)\n        change [ghost v] effect by (join [-] (s))\n        set [s v] to ((s) / (2))\n    end\n    wait (2.8) seconds\n    delete this clone\nend\nif <(costume [name v]) = [load]> then\n    set [brightness v] effect to (100)\n    repeat (8)\n        next costume\n    end\n    wait (0.2) seconds\n    delete this clone\nend\nif <(costume [name v]) = [line7]> then\n    set [brightness v] effect to (100)\n    repeat (11)\n        switch costume to ((costume [number v]) - (1))\n    end\n    wait (0.2) seconds\n    repeat (7)\n        switch costume to ((costume [number v]) - (1))\n    end\n    delete this clone\nend\nif <<(length of (costume [name v])) = [1]> and < [UNODSTRE123] contains (costume [name v])?>> then\n    set size to (1100) %\n    go to [front v] layer\n    set [brightness v] effect to (100)\n    if < [123] contains (costume [name v])?> then\n        set size to (1400) %\n        set [brightness v] effect to (40)\n        set [ghost v] effect to (40)\n        go to [back v] layer\n        go [forward v] (50) layers\n    end\n    turn left (15) degrees\n    wait (0) seconds\n    turn right (15) degrees\n    set [s v] to [15]\n    set size to (500) %\n    if < [123] contains (costume [name v])?> then\n        set size to (700) %\n    end\n    repeat (10)\n        if <((pick random (1) to (40)) mod (2)) = [1]> then\n            turn right (s) degrees\n        else\n            turn left (s) degrees\n        end\n        set [s v] to ((s) / (2))\n    end\n    repeat (15)\n        change size by (([tan v] of (s) ) * (45))\n        if <[-1] < (x position)> then\n            change x by (s)\n        else\n            change x by (join [-] (s))\n        end\n        change [s v] by (6)\n        if <<(x position) < [-230]> or <[230] < (x position)>> then\n            delete this clone\n        end\n    end\n    delete this clone\nend\nif < (costume [name v]) contains [glass]?> then\n    repeat until <[1.5] < (timer)>\n        go to [back v] layer\n        go [forward v] (50) layers\n        set [brightness v] effect to (10)\n        set size to (50) %\n        change x by (-40)\n        change y by (70)\n        turn left (50) degrees\n        wait (0.01) seconds\n        set size to (80) %\n        change x by (40)\n        change y by (-70)\n        turn right (50) degrees\n        set [s v] to [40]\n        repeat (16)\n            change size by (s)\n            set [s v] to ((s) / (2))\n        end\n    end\n    set [s v] to [2]\n    repeat (20)\n        if <[-1] < (x position)> then\n            change x by (intro: x)\n        else\n            change x by (join [-] (intro: x))\n        end\n        change [intro: x v] by (6)\n        turn right (([cos v] of (s) ) * (3)) degrees\n        change size by (([sqrt v] of (s) ) * (-2))\n        set [s v] to [5]\n    end\n    delete this clone\nend\nif <(costume [name v]) = [nazokoubou8]> then\n    repeat (7)\n        switch costume to ((costume [number v]) - (1))\n    end\n    set [s v] to [1]\n    repeat (20)\n        change x by (join [-] (([cos v] of (s) ) * (6)))\n        change [s v] by (1)\n    end\n    set [s v] to [1]\n    repeat (70)\n        set x to ((-5) + (([tan v] of ((s) * (6)) ) * (2.5)))\n        change [s v] by (1)\n    end\n    set [s v] to [1]\n    repeat (8)\n        change size by (join [-] (s))\n        set [s v] to ((s) * (2))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [ボボボーボ・ボーボ棒]> then\n    set [s v] to [1]\n    repeat (160)\n        if <[-1] < (x position)> then\n            move (([tan v] of ((s) * (-1)) ) * (3)) steps\n        else\n            move (([tan v] of (s) ) * (3)) steps\n        end\n        change [s v] by (3)\n    end\n    set [s v] to [1]\n    repeat (20)\n        change size by (join [-] (s))\n        set [s v] to ((s) * (2))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [skip]> then\n    set [ghost v] effect to (50)\n    repeat (10)\n        next costume\n    end\n    repeat until <(flag) = [Yes]>\n        go to [front v] layer\n    end\n    go to [back v] layer\n    delete this clone\nend\n\ndefine moji (文字) (x) (y) (背景)\nset [intro: x v] to [1]\ngo to x: (x) y: (y)\nset size to (500) %\nhide\nrepeat (length of (文字))\n    switch costume to (letter (intro: x) of (文字))\n    create clone of (_myself_ v)\n    move (90) steps\n    change [intro: x v] by (1)\nend\ngo to x: (-15) y: (y)\nset size to (800) %\nhide\nswitch costume to (背景)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(costume [name v]) = [ぷらふぉ]> then\n    go to [back v] layer\n    wait (0.8) seconds\n    set [s v] to [1]\n    repeat (22)\n        move (([tan v] of (s) ) * (13)) steps\n        change [s v] by (4)\n    end\n    wait (3) seconds\n    set [s v] to [1]\n    repeat (22)\n        move (([tan v] of (s) ) * (-20)) steps\n        change y by (([tan v] of (s) ) * (-20))\n        change [s v] by (4)\n    end\n    wait (4.5) seconds\n    repeat (22)\n        change y by (([tan v] of (s) ) * (6))\n        move (([tan v] of (s) ) * (2.8)) steps\n        change [s v] by (-4)\n    end\n    set [s v] to [1]\n    repeat (6)\n        change size by (join [-] (s))\n        set [s v] to ((s) * (2))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [なぞっち]> then\n    go to [back v] layer\n    wait (4) seconds\n    set [s v] to [1]\n    repeat (22)\n        move (([tan v] of (s) ) * (-10)) steps\n        change [s v] by (4)\n    end\n    wait (5) seconds\n    repeat (22)\n        move (([tan v] of (s) ) * (4.5)) steps\n        change [s v] by (-4)\n    end\n    set [s v] to [1]\n    repeat (6)\n        change size by (join [-] (s))\n        set [s v] to ((s) * (2))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [stage]> then\n    go to [back v] layer\n    go [forward v] (5) layers\n    set [s v] to [1]\n    repeat (16)\n        move (([tan v] of (s) ) * (45)) steps\n        change [s v] by (4)\n    end\n    repeat (6)\n        set y to (([tan v] of (s) ) * (-12))\n        change [s v] by (4)\n    end\n    wait (3.3) seconds\n    repeat (35)\n        change y by (([sqrt v] of ((s) / (100)) ) / (200))\n        move (([sqrt v] of (s) ) / (10000)) steps\n        change size by ((s) / (3000))\n        change [s v] by ((s) * (0.7))\n    end\n    set [s v] to [45]\n    repeat (20)\n        turn right (s) degrees\n        move (join [-] ((s) / (2))) steps\n        change y by (join [-] ((s) / (2)))\n        set [s v] to ((s) / (2))\n    end\n    repeat (6)\n        next costume\n    end\n    repeat (20)\n        change x by (join [-] (s))\n        set [s v] to ((s) * (2))\n    end\n    delete this clone\nend\nif <<(costume [name v]) = [toge]> or <(costume [name v]) = [kabe]>> then\n    go to [back v] layer\n    go [forward v] (5) layers\n    set [s v] to [0.1]\n    repeat (30)\n        move (join [-] ([sqrt v] of (s) )) steps\n        change [s v] by ((s) * (0.7))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [bane]> then\n    go to [back v] layer\n    go [forward v] (5) layers\n    set [s v] to [0.1]\n    repeat (30)\n        move (join [-] ([sqrt v] of (s) )) steps\n        change y by (join [-] ((s) / (1000)))\n        change [s v] by ((s) * (0.7))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [後ろのやつ1]> then\n    go to [back v] layer\n    go [forward v] (2) layers\n    set [brightness v] effect to (-20)\n    set [ghost v] effect to (80)\n    repeat until <[10] < (timer)>\n        repeat (18)\n            next costume\n        end\n        switch costume to (後ろのやつ1 v)\n    end\n    set [s v] to [1]\n    repeat (20)\n        change size by (join [-] (s))\n        set [s v] to ((s) * (2))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [-Platformer]> then\n    set size to (1000) %\n    set [s v] to [200]\n    repeat (20)\n        change size by (join [-] (s))\n        set [s v] to ((s) / (2))\n    end\n    repeat (100)\n        change size by ([tan v] of (s) )\n        point in direction ((90) + ([tan v] of (s) ))\n        change [s v] by (4)\n    end\n    set [s v] to [1]\n    repeat (15)\n        move (join [-] ([sqrt v] of (s) )) steps\n        change y by (join [-] ((s) / (1000)))\n        change [s v] by ((s) * (0.7))\n    end\n    delete this clone\nend\n\ndefine 背景\nswitch costume to (後ろのやつ1 v)\nset size to (120) %\ngo to x: (-220) y: (170)\nrepeat (10)\n    repeat (10)\n        switch costume to (後ろのやつ1 v)\n        create clone of (_myself_ v)\n        move (50) steps\n    end\n    change y by (-50)\n    set x to (-220)\nend\n\nset [intro: opを流す？ v] to [0]\n\nwhen flag clicked\nforever\n    if <(intro: OPを流す？) = [1]> then\n        wait until <<mouse down?> or <(_ID) = [game]>>\n        broadcast (クローン削除 v)\n        broadcast (ゲーム開始 v)\n        stop [other scripts in sprite v]\n        stop all sounds\n        stop [this script v]\n    end\n    stop [this script v]\nend\n\nwhen I receive [クローン削除 v]\ndelete this clone\n\n@game\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [title]> then\n    登場\n    wait until <(_ID) = [start]>\n    退場\nend\nif <(costume [name v]) = [play]> then\n    登場\n    wait until <<touching (mouse-pointer v)?> and <mouse down?>>\n    start sound [Collect v]\n    set [_id v] to [start]\n    broadcast (本番 v)\n    退場\nend\nif <(costume [name v]) = [?]> then\n    登場\n    wait until <(_ID) = [start]>\n    退場\nend\nif <<(costume [name v]) = [en]> or <(costume [name v]) = [jp]>> then\n    登場\n    wait until <(_ID) = [start]>\n    退場\nend\nif <<(costume [name v]) = [howto_en]> or <(costume [name v]) = [howto_jp]>> then\n    forever\n        if <(_how) = [0]> then\n            hide\n            if <(_lang) = [jp]> then\n                switch costume to (howto_jp v)\n            else\n                switch costume to (howto_en v)\n            end\n        else\n            show\n            set size to (0) %\n            set [t v] to [50]\n            repeat (10)\n                change size by (t)\n                set [t v] to ((t) / (2))\n            end\n            wait until <<mouse down?> and <touching (mouse-pointer v)?>>\n            repeat (10)\n                change size by (join [-] (t))\n                set [t v] to ((t) * (2))\n            end\n            set [_how v] to [0]\n        end\n    end\nend\nif <<(costume [name v]) = [GO!]> or <<(length of (costume [name v])) = [2]> and < [123] contains (letter (2) of (costume [name v]))?>>> then\n    if <(costume [name v]) = [GO!]> then\n        start sound [Connect v]\n    else\n        start sound [High Whoosh v]\n    end\n    登場\n    wait (0.2) seconds\n    set [s v] to [200]\n    repeat (6)\n        turn right (s) degrees\n        change size by (join [-] (s))\n        set [s v] to ((s) / (2))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [timer_0]> then\n    repeat (17)\n        next costume\n        wait (0) seconds\n    end\n    delete this clone\nend\nif << (costume [name v]) contains [noslct]?> or < (costume [name v]) contains [_btn]?>> then\n    set [pixelate v] effect to (50)\n    repeat (10)\n        change [pixelate v] effect by (-5)\n    end\nend\nif <(costume [name v]) = [・_btn]> then\n    forever\n        if <<mouse down?> and <touching (mouse-pointer v)?>> then\n            set [_myans v] to (join (_Myans) [・])\n            wait until <not <<mouse down?> and <touching (mouse-pointer v)?>>>\n        end\n    end\nend\nif <(costume [name v]) = [ー_btn]> then\n    forever\n        if <<mouse down?> and <touching (mouse-pointer v)?>> then\n            set [_myans v] to (join (_Myans) [ー])\n            wait until <not <<mouse down?> and <touching (mouse-pointer v)?>>>\n        end\n    end\nend\nif <(costume [name v]) = [noslct1]> then\n    forever\n        if <(letter (1) of (_Myans)) = []> then\n            switch costume to (noslct1 v)\n        else\n            switch costume to (letter (1) of (_Myans))\n        end\n    end\nend\nif <(costume [name v]) = [noslct2]> then\n    forever\n        if <(letter (2) of (_Myans)) = []> then\n            switch costume to (noslct2 v)\n        else\n            switch costume to (letter (2) of (_Myans))\n        end\n    end\nend\nif <(costume [name v]) = [noslct3]> then\n    forever\n        if <(letter (3) of (_Myans)) = []> then\n            switch costume to (noslct3 v)\n        else\n            switch costume to (letter (3) of (_Myans))\n        end\n    end\nend\nif <(costume [name v]) = [noslct4]> then\n    forever\n        if <(letter (4) of (_Myans)) = []> then\n            switch costume to (noslct4 v)\n        else\n            switch costume to (letter (4) of (_Myans))\n        end\n    end\nend\nif <(costume [name v]) = [noslct5]> then\n    forever\n        if <(letter (5) of (_Myans)) = []> then\n            switch costume to (noslct5 v)\n        else\n            switch costume to (letter (5) of (_Myans))\n        end\n    end\nend\nif <(costume [name v]) = [noslct6]> then\n    forever\n        if <(letter (6) of (_Myans)) = []> then\n            switch costume to (noslct6 v)\n        else\n            switch costume to (letter (6) of (_Myans))\n        end\n    end\nend\nif <(costume [name v]) = [noslct7]> then\n    forever\n        if <(letter (7) of (_Myans)) = []> then\n            switch costume to (noslct7 v)\n        else\n            switch costume to (letter (7) of (_Myans))\n        end\n    end\nend\nif <(costume [name v]) = [noslct8]> then\n    forever\n        if <(letter (8) of (_Myans)) = []> then\n            switch costume to (noslct8 v)\n        else\n            switch costume to (letter (8) of (_Myans))\n        end\n    end\nend\n\nwhen I receive [ゲームinit v]\ndelete this clone\n\nwhen I receive [ゲーム開始 v]\nset [_lang v] to [jp]\ntop\n\ndefine 登場\nset [s v] to [120]\nrepeat (25)\n    move (s) steps\n    set [s v] to ((s) / (2))\nend\n\ndefine 退場\nset [s v] to [1]\nrepeat (25)\n    move (s) steps\n    set [s v] to ((s) * (2))\n    if <[239] < (x position)> then\n        delete this clone\n    end\nend\ndelete this clone\n\nwhen I start as a clone\nif <<(costume [name v]) = [play]> or <<(costume [name v]) = [?]> or <<(costume [name v]) = [en]> or <<(costume [name v]) = [jp]> or < (costume [name v]) contains [_btn]?>>>>> then\n    set [size v] to (size)\n    forever\n        if <touching (mouse-pointer v)?> then\n            set [t v] to [10]\n            repeat (4)\n                change [pixelate v] effect by (5)\n                change size by (t)\n                change [t v] by (-2)\n            end\n            wait until <not <touching (mouse-pointer v)?>>\n            repeat (4)\n                change size by (join [-] (t))\n                change [pixelate v] effect by (-5)\n                change [t v] by (2)\n            end\n            clear graphic effects\n            set size to (size) %\n        end\n    end\nend\n\ndefine top\nset [_how v] to [0]\nset [_id v] to [top]\nbroadcast (ゲームinit v)\nbroadcast (トップ v)\nhide\nset size to (100) %\nswitch costume to (title v)\ngo to x: (-240) y: (80)\ncreate clone of (_myself_ v)\nset size to (200) %\nswitch costume to (play v)\ngo to x: (-240) y: (-40)\ncreate clone of (_myself_ v)\nswitch costume to (? v)\ngo to x: (-240) y: (-110)\ncreate clone of (_myself_ v)\nset size to (100) %\nif <(_lang) = [jp]> then\n    switch costume to (jp v)\nelse\n    switch costume to (en v)\nend\ngo to x: (-110) y: (-115)\ncreate clone of (_myself_ v)\nif <(_lang) = [jp]> then\n    switch costume to (howto_jp v)\nelse\n    switch costume to (howto_en v)\nend\ngo to x: (0) y: (0)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <<(costume [name v]) = [jp]> or <(costume [name v]) = [en]>> then\n    forever\n        if <<mouse down?> and <touching (mouse-pointer v)?>> then\n            if <(_lang) = [jp]> then\n                set [_lang v] to [en]\n                switch costume to (en v)\n            else\n                set [_lang v] to [jp]\n                switch costume to (jp v)\n            end\n            wait until <not <<mouse down?> and <touching (mouse-pointer v)?>>>\n        end\n    end\nend\nif <(costume [name v]) = [?]> then\n    forever\n        if <<mouse down?> and <touching (mouse-pointer v)?>> then\n            set [_how v] to [1]\n            wait until <not <<mouse down?> and <touching (mouse-pointer v)?>>>\n        end\n    end\nend\nif < (costume [name v]) contains [新記録]?> then\n    登場\n    wait until <mouse down?>\n    退場\nend\n\nwhen I receive [本番 v]\nset [_record v] to [0]\nwait (1) seconds\nhide\ngo to x: (-240) y: (0)\nswitch costume to (_3 v)\nset size to (400) %\ncreate clone of (_myself_ v)\nwait (1) seconds\nswitch costume to (_2 v)\ncreate clone of (_myself_ v)\nwait (1) seconds\nswitch costume to (_1 v)\ncreate clone of (_myself_ v)\nwait (1) seconds\nswitch costume to (go! v)\ncreate clone of (_myself_ v)\nset [soundnum v] to [3]\nset [_ok v] to [1]\nwait (1) seconds\nrepeat until <(_ok) = [0]>\n    broadcast (ゲームinit v)\n    set [_myans v] to []\n    set [_id v] to [soundnum]\n    if <(_lang) = [jp]> then\n        go to x: (-90) y: (55)\n    else\n        go to x: (-180) y: (55)\n    end\n    switch costume to (join (soundnum) [:])\n    set size to (450) %\n    create clone of (_myself_ v)\n    set size to (150) %\n    if <(_lang) = [jp]> then\n        go to x: (50) y: (35)\n        switch costume to (音鳴りますjp v)\n    else\n        go to x: (30) y: (35)\n        switch costume to (音鳴りますen v)\n    end\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    set [_id v] to []\n    go to x: (0) y: (-80)\n    switch costume to (timer_0 v)\n    set size to (100) %\n    create clone of (_myself_ v)\n    wait (1) seconds\n    set [_id v] to [...]\n    broadcast (音 v) and wait\n    slct\n    set [_id v] to [ans]\n    go to x: (-60) y: (-30)\n    switch costume to (ー_btn v)\n    create clone of (_myself_ v)\n    go to x: (60) y: (-30)\n    switch costume to (・_btn v)\n    create clone of (_myself_ v)\n    wait until <(_ID) = [ans]>\n    reset timer\n    set [_ok v] to [0]\n    go to x: (0) y: (-140)\n    switch costume to (timer_17 v)\n    set size to (100) %\n    create clone of (_myself_ v)\n    wait until <<(_Myans) = (_ans)> or <<(length of (_Myans)) = (soundnum)> or <[6.999] < (timer)>>>\n    if <[6.999] < (timer)> then\n        set [_ok v] to [0]\n        go to x: (-240) y: (0)\n        switch costume to (timeup v)\n        set size to (300) %\n        create clone of (_myself_ v)\n    else\n        if <(_Myans) = (_ans)> then\n            set [_ok v] to [1]\n            change [_record v] by (1)\n            go to x: (-240) y: (0)\n            switch costume to (yes v)\n            set size to (300) %\n            create clone of (_myself_ v)\n        else\n            set [_ok v] to [0]\n            go to x: (-240) y: (0)\n            switch costume to (no v)\n            set size to (300) %\n            create clone of (_myself_ v)\n        end\n    end\n    wait (1) seconds\n    if <<<((_record) mod (5)) = [0]> and <(soundnum) < [9]>> and <(_Myans) = (_ans)>> then\n        change [soundnum v] by (1)\n        go to x: (0) y: (-240)\n        switch costume to (levelup v)\n        set size to (200) %\n        create clone of (_myself_ v)\n        wait (1) seconds\n    end\nend\nbroadcast (ゲームinit v)\nif <(☁ WorldRec) < (_record)> then\n    set [☁ worldrec v] to (_record)\n    go to x: (-240) y: (130)\n    if <(_lang) = [jp]> then\n        switch costume to (新記録jp v)\n    else\n        switch costume to (新記録en v)\n    end\n    set size to (150) %\n    create clone of (_myself_ v)\nend\nset [_id v] to [failure]\ngo to x: (100) y: (-130)\nif <(_lang) = [jp]> then\n    switch costume to (clickto_jp v)\nelse\n    switch costume to (clickto_en v)\nend\nset size to (100) %\ncreate clone of (_myself_ v)\ngo to x: (-90) y: (60)\nswitch costume to (record v)\nset size to (150) %\ncreate clone of (_myself_ v)\nclone (_record) [30] [60] [300]\ngo to x: (20) y: (-60)\nswitch costume to (cloud v)\nset size to (150) %\ncreate clone of (_myself_ v)\nclone (☁ WorldRec) [30] [-60] [300]\nwait until <mouse down?>\nwait (1) seconds\ntop\n\nwhen I start as a clone\nif <(_ID) = [soundnum]> then\n    wait (0.7) seconds\n    set [t v] to [200]\n    repeat (6)\n        turn right (t) degrees\n        change size by (join [-] (t))\n        set [t v] to ((t) / (2))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [timer_17]> then\n    repeat (17)\n        switch costume to ((costume [number v]) - (1))\n        wait ((6) / (17)) seconds\n        if <(length of (_Myans)) = (soundnum)> then\n            退場\n        end\n    end\n    退場\nend\nif <(costume [name v]) = [levelup]> then\n    set [t v] to [100]\n    repeat (20)\n        change y by (t)\n        set [t v] to ((t) / (2))\n    end\n    repeat (20)\n        change y by (t)\n        set [t v] to ((t) * (2))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [sound]> then\n    repeat until <(_ID) = [ans]>\n        if <(_ID) = [...]> then\n            switch costume to (sound v)\n            wait (0.1) seconds\n        end\n        if <(_ID) = [...]> then\n            switch costume to (sound2 v)\n            wait (0.1) seconds\n        end\n        if <(_ID) = [...]> then\n            switch costume to (sound3 v)\n            wait (0.1) seconds\n        end\n    end\n    delete this clone\nend\nif <<(costume [name v]) = [yes]> or <<(costume [name v]) = [no]> or <(costume [name v]) = [timeup]>>> then\n    登場\n    wait (0.5) seconds\n    退場\nend\nif <<(length of (costume [name v])) = [2]> and < [0123456789] contains (letter (1) of (costume [name v]))?>> then\n    set [cos v] to (costume [name v])\n    repeat (7)\n        switch costume to (join (pick random (0) to (9)) [:])\n    end\n    switch costume to (cos)\n    wait until <mouse down?>\n    退場\nend\nif <<(costume [name v]) = [record]> or <(costume [name v]) = [cloud]>> then\n    set [pixelate v] effect to (50)\n    repeat (10)\n        change [pixelate v] effect by (-5)\n    end\n    wait until <mouse down?>\n    退場\nend\nif < (costume [name v]) contains [clickto_]?> then\n    set [pixelate v] effect to (50)\n    repeat (10)\n        change [pixelate v] effect by (-5)\n    end\n    wait until <mouse down?>\n    退場\nend\n\ndefine slct\nset [_id v] to [1]\ngo to x: ((((soundnum) * (40)) / (-2)) + (20)) y: (50)\nset size to (150) %\nrepeat (soundnum)\n    switch costume to (join [noslct] (_ID))\n    create clone of (_myself_ v)\n    move (40) steps\n    change [_id v] by (1)\nend\n\nwhen I receive [音 v]\ngo to x: (0) y: (60)\nset size to (100) %\nswitch costume to (sound v)\ncreate clone of (_myself_ v)\nset [_ans v] to []\nrepeat (soundnum)\n    set [_ans v] to (join (_ans) (letter (pick random (1) to (2)) of [ー・]))\nend\nset [t v] to [1]\nrepeat (soundnum)\n    play sound (letter (t) of (_ans)) until done\n    wait (0.2) seconds\n    change [t v] by (1)\nend\n\ndefine clone (moji) (x) (y) (size)\ngo to x: (x) y: (y)\nset [_i v] to [1]\nrepeat (length of (moji))\n    switch costume to (join (letter (_i) of (moji)) [:])\n    move (((size) / (100)) * (15)) steps\n    set size to (size) %\n    create clone of (_myself_ v)\n    change [_i v] by (1)\nend\n\n@score\n\nwhen I receive [トップ v]\nbroadcast (数字init v)\n\nwhen I receive [数字init v]\ndelete this clone\n\nwhen flag clicked\nhide\nbroadcast (数字init v)\n\nwhen I receive [本番 v]\nwait (5) seconds\nrepeat until <(_ID) = [failure]>\n    clone (_record) [-210] [130] [150]\n    wait (0.05) seconds\nend\nbroadcast (数字init v)\n\ndefine clone (txt) ( x ) ( y ) ( size)\nbroadcast (数字init v)\ngo to x: ( x ) y: ( y )\nset size to ( size) %\nset [j v] to [1]\nrepeat (length of (txt))\n    switch costume to (join (letter (j) of (txt)) [:])\n    create clone of (_myself_ v)\n    move ((( size) / (100)) * (15)) steps\n    change [j v] by (1)\nend\n\nwhen I start as a clone\nshow\n\n@thumbnail\n\nwhen flag clicked\nhide\n\ngo to x: (0) y: (0)\nshow\n\n
日本語の説明は下へ\n\n\n@-Platformer 's Project!! ↓\nhttps://scratch.mit.edu/projects/567701352 \n\nThis project is a collaboration with @-Platformer.\nWe paid attention to the graphics and functionality.\nFor more details, please click the "?" button.\n►When you set a new record, it will be saved.\n　If you are a New Scratcher or\n　not logged in, your record will not be saved.\n\nこのプロジェクトは、 @-Platformer 様とのコラボ作品です。\nグラフィックス・機能性などにこだわりました。\n詳しい遊び方は「？」ボタンを押してください。\n►最高記録を更新すると保存されますが、\n　New Scratcherの方や、ログインしていない方は\n　保存されません。