super easy platformer 2!!(超！簡単！プラットフォーマー2!!)
@Stage\n\nset [stage v] to [11]\n\n@player\n\nwhen flag clicked\nhide variable [死んだ回数 v]\nhide variable [☁ 世界記録 v]\nset [死んだ回数 v] to [0]\nhide\n\nwhen flag clicked\nset [lock v] to [0]\ngo to x: (-200) y: (0)\nforever\n    if <<<key (any v) pressed?> or <mouse down?>> and <(Lock) = [0]>> then\n        wait (0.01) seconds\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nrepeat (20)\n    change [ghost v] effect by (5)\n    change size by (-1.5)\nend\ndelete this clone\n\ndefine 当たり判定\nswitch costume to ((コスチューム) + (4))\nchange x by (x)\nswitch costume to (コスチューム)\n\nwhen I receive [スタート v]\nset [復活してない v] to [0]\nswitch costume to (ローラーｽｹｰﾄ v)\nclear graphic effects\nset size to (50) %\nwait (0.01) seconds\nset rotation style [left-right v]\npoint in direction (90)\ngo to [front v] layer\nset [変数 v] to [0]\nset [x v] to [0]\nset [y v] to [0]\nset [stage v] to [1]\nclear graphic effects\ngo to x: (-200) y: (0)\nshow\nforever\n    if <(Lock) = [0]> then\n        if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<(mouse x) < (x position)> and <mouse down?>>> then\n            change [x v] by (-1)\n            point in direction (-90)\n        end\n        if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<(x position) < (mouse x)> and <mouse down?>>> then\n            change [x v] by (1)\n            point in direction (90)\n        end\n        set [x v] to ((x) * (0.92))\n        当たり判定\n        if <touching (地面 v)?> then\n            change y by (1)\n            if <touching (地面 v)?> then\n                change y by (1)\n                if <touching (地面 v)?> then\n                    change y by (1)\n                    if <touching (地面 v)?> then\n                        change y by (1)\n                        if <touching (地面 v)?> then\n                            change y by (1)\n                            if <touching (地面 v)?> then\n                                change y by (1)\n                                if <touching (地面 v)?> then\n                                    change x by ((0) - (x))\n                                    change y by (-5)\n                                    if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<[0] < (mouse y)> and <mouse down?>>> then\n                                        if <[0] < (x)> then\n                                            set [x v] to [-10]\n                                        else\n                                            set [x v] to [10]\n                                        end\n                                        set [y v] to [15]\n                                    else\n                                        set [x v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change [y v] by (-1)\n        change y by (y)\n        if <touching (地面 v)?> then\n            change y by ((0) - (y))\n            set [y v] to [0]\n        end\n        change y by (-2)\n        if <<<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<[0] < (mouse y)> and <mouse down?>>> and <touching (地面 v)?>> then\n            start sound [ジャンプ v]\n            set [y v] to [16]\n        end\n        change y by (1)\n    end\n    if <<(y position) < [-165]> or <<touching (針など v)?> or <(確定) = [1]>>> then\n        change [死んだ回数 v] by (1)\n        broadcast (game over v)\n        repeat (15)\n            change size by (5)\n            change [ghost v] effect by (5)\n            change [brightness v] effect by (5)\n        end\n        hide\n        clear graphic effects\n        set [確定 v] to [0]\n        set [復活してない v] to [1]\n        wait until <<key (r v) pressed?> or <mouse down?>>\n        set size to (50) %\n        set [復活してない v] to [0]\n        go to x: (-200) y: (0)\n        set [x v] to [0]\n        set [y v] to [0]\n        show\n    end\n    if <[239] < (x position)> then\n        hide\n        clear graphic effects\n        go to x: (-200) y: (0)\n        set [x v] to [0]\n        set [y v] to [0]\n        change [stage v] by (1)\n        broadcast (次のステージ v)\n        show\n    end\nend\n\nwhen I receive [白くなる v]\ngo to x: (-166) y: (-105)\nstop [other scripts in sprite v]\n\nwhen I receive [endロール v]\nglide (33) secs to x: (252) y: (-105)\nhide\n\nwhen I receive [スタート v]\nshow variable [死んだ回数 v]\n\nset [☁ 世界記録 v] to [1000]\n\n@針など\n\nwhen flag clicked\ngo to x: (0) y: (0)\npoint in direction (90)\nhide\n\nwhen I receive [次のステージ v]\npoint in direction (90)\nhide\nif <(stage) = [5]> then\n    switch costume to (針 new.ver\(\( v)\n    go to x: (0) y: (-139)\n    show\n    repeat until <[-120] < ([x position v] of [player v])>\n        point in direction (pick random (70) to (100))\n    end\n    point in direction (90)\n    set [lock v] to [1]\n    set [x v] to [0]\n    set [y v] to [0]\n    say (translate [君今こう思ったよね?] to ((language::translate) v)::translate) for (1.5) seconds\n    say (translate [あのときの針じゃーーーーーーーーーーーーーーーん] to ((language::translate) v)::translate) for (1.5) seconds\n    say (translate [どうせ説教して、怒ってないふりして、飛んでくるやつじゃーん] to ((language::translate) v)::translate) for (5) seconds\n    say (translate [んー今回はそういうのないから安心してね！] to ((language::translate) v)::translate) for (1.5) seconds\n    say (translate [僕はただここにいただけだから] to ((language::translate) v)::translate) for (1.5) seconds\n    say (translate [じゃーね！] to ((language::translate) v)::translate) for (1.5) seconds\n    wait (0.5) seconds\n    set [雑用 v] to [0]\n    repeat (5)\n        set x to (pick random (-5) to (5))\n        change [雑用 v] by (1)\n    end\n    repeat (12)\n        set x to (pick random (-3) to (3))\n        change y by (雑用)\n        change [雑用 v] by (1)\n    end\n    repeat (6)\n        set x to (pick random (-1) to (1))\n        change y by (雑用)\n        change [雑用 v] by (1)\n    end\n    hide\n    wait (0.5) seconds\n    set [lock v] to [0]\n    wait until <[-100] < ([x position v] of [player v])>\n    set [lock v] to [1]\n    set [x v] to [0]\n    set [y v] to [0]\n    go to x: (0) y: (246)\n    point in direction (-90)\n    show\n    glide (0.2) secs to x: (0) y: (-70)\n    start sound [デュクシ☆ v]\n    say (translate [あ、やべ、ミスった…] to ((language::translate) v)::translate) for (1.5) seconds\n    say (translate [あ！お、お騒がせしました〜] to ((language::translate) v)::translate) for (2) seconds\n    glide (1) secs to x: (0) y: (246)\n    hide\n    set [lock v] to [0]\n    wait (1) seconds\n    show\n    point in direction (-75)\n    glide (0.1) secs to x: (-60) y: (-70)\n    start sound [デュクシ☆ v]\n    wait until <[80] < ([x position v] of [player v])>\n    point in direction (180)\n    go to x: (-80) y: (-110)\n    glide (0.1) secs to x: (240) y: (-110)\n    hide\nend\nif <(stage) = [6]> then\n    point in direction (90)\n    switch costume to (ゴール\(？\) v)\n    show\n    go to x: (120) y: (100)\n    wait until <[0] < ([x position v] of [player v])>\n    set [雑用 v] to [8]\n    repeat until <touching (_edge_ v)?>\n        change y by (雑用)\n        change [雑用 v] by (-2)\n    end\n    set [雑用 v] to [5]\n    repeat (20)\n        turn right (10) degrees\n        change y by (雑用)\n        change [雑用 v] by (-1)\n    end\n    hide\nend\nif <(stage) = [7]> then\n    point in direction (90)\n    switch costume to (🍎 v)\n    show\n    go to x: (120) y: (-122)\n    wait until <[-30] < ([x position v] of [player v])>\n    set [lock v] to [1]\n    set [x v] to [0]\n    say (translate [ゴールだと思ったよね？] to ((language::translate) v)::translate) for (2) seconds\n    set [y v] to [0]\n    say (translate [そして君今、こいつ誰?って思ったよね?] to ((language::translate) v)::translate) for (2) seconds\n    say (translate [俺だよ俺！] to ((language::translate) v)::translate) for (1.5) seconds\n    say (translate [りんごだよ！ヽ\(ﾟ∀ﾟ\)ﾉ ﾊﾟｯ] to ((language::translate) v)::translate) for (1.5) seconds\n    think [...] for (1) seconds\n    say (translate [\(ﾟДﾟ\)ﾊｧ?] to ((language::translate) v)::translate) for (1.5) seconds\n    set [lock v] to [0]\n    wait (0.05) seconds\n    glide (0.1) secs to x: (-240) y: (-122)\n    hide\n    wait until <[150] < ([x position v] of [player v])>\n    show\n    point in direction (90)\n    go to x: (240) y: (-80)\n    set [雑用 v] to [0]\n    repeat until <touching (地面 v)?>\n        change x by (-15)\n        change y by (雑用)\n        change [雑用 v] by (-1)\n        turn left (15) degrees\n    end\n    set [雑用 v] to [5]\n    repeat (11)\n        change x by (-10)\n        change y by (雑用)\n        change [雑用 v] by (-1)\n        turn left (15) degrees\n    end\n    set [雑用 v] to [-10]\n    repeat (10)\n        change x by (雑用)\n        turn right (雑用) degrees\n        change [雑用 v] by (0.5)\n    end\n    repeat (20)\n        change x by (雑用)\n        turn right (雑用) degrees\n        turn left (1) degrees\n        change [雑用 v] by (0.25)\n    end\n    wait until <([x position v] of [player v]) < [-150]>\n    wait (1) seconds\n    show\n    point in direction (-15)\n    go to x: (-150) y: (-125)\n    if <([x position v] of [player v]) < (x position)> then\n        set [雑用 v] to [15]\n        repeat (21)\n            change x by (-5)\n            change y by (雑用)\n            change [雑用 v] by (-1)\n            turn left (15) degrees\n        end\n        hide\n    else\n        set [雑用 v] to [15]\n        repeat (31)\n            change x by (5)\n            change y by (雑用)\n            change [雑用 v] by (-1)\n            turn left (-15) degrees\n        end\n        set [雑用 v] to [10]\n        repeat (10)\n            change x by ((雑用) / (2))\n            turn right (雑用) degrees\n            change [雑用 v] by (-0.5)\n        end\n    end\nend\nif <(stage) = [8]> then\n    wait (1) seconds\n    hide\n    point in direction (-90)\n    switch costume to (針 new.ver\(\( v)\n    go to x: (150) y: (240)\n    repeat (6)\n        create clone of (_myself_ v)\n        change y by (50)\n        change x by (-50)\n        wait (0.05) seconds\n    end\nend\nif <(stage) = [9]> then\n    show\n    switch costume to (針 \(ぐるぐる回転\) v)\n    go to x: (0) y: (0)\n    repeat (100)\n        turn left (5) degrees\n    end\n    repeat until <<(stage) = [10]> or <(復活してない) = [1]>>\n        turn left (60) degrees\n    end\n    set [雑用 v] to [30]\n    repeat (60)\n        turn left (雑用) degrees\n        go to x: (pick random (-10) to (10)) y: (0)\n        change [雑用 v] by (-0.5)\n    end\n    set [雑用 v] to [0]\n    repeat (30)\n        turn left (雑用) degrees\n        change y by (雑用)\n        change [雑用 v] by (1)\n    end\n    hide\n    if <(stage) = [9]> then\n        wait until <[100] < ([x position v] of [player v])>\n        set x to (150)\n        set [雑用 v] to [0]\n        show\n        repeat (40)\n            turn left (雑用) degrees\n            change y by (雑用)\n            change [雑用 v] by (-1)\n        end\n        hide\n    end\nend\nif <(stage) = [10]> then\n    wait (1) seconds\n    point in direction (90)\n    switch costume to (針 \(ぐるぐる回転\) v)\n    show\n    set [雑用 v] to [0]\n    go to x: (240) y: (300)\n    repeat until <touching (地面 v)?>\n        change y by (雑用)\n        change [雑用 v] by (-1)\n    end\n    set [雑用 v] to [0]\n    repeat (25)\n        turn right (雑用) degrees\n        change x by (雑用)\n        change [雑用 v] by (-1)\n        下に行く (まさか定義を使うことになるとは)\n    end\n    set [雑用 v] to [10]\n    repeat (15)\n        change x by (-15)\n        turn right (-20) degrees\n        change y by (雑用)\n        change [雑用 v] by (-1)\n    end\n    hide\nend\nif <(stage) = [11]> then\n    point in direction (90)\n    switch costume to (ゴール\(？\) v)\n    show\n    go to x: (0) y: (100)\n    set [lock v] to [1]\n    say (translate [やぁ] to ((language::translate) v)::translate) for (1.5) seconds\n    say (translate [前はごめんね] to ((language::translate) v)::translate) for (1.5) seconds\n    say (translate [急に落ちたりして…] to ((language::translate) v)::translate) for (1.5) seconds\n    say (translate [反省してるから許して！] to ((language::translate) v)::translate) for (1.5) seconds\n    set [lock v] to [0]\n    wait until <[100] < ([x position v] of [player v])>\n    switch costume to (🍎 v)\n    create clone of (_myself_ v)\n    switch costume to (ゴール\(？\) v)\n    say (translate [あ、やる！] to ((language::translate) v)::translate)\n    wait (1) seconds\n    glide (0.5) secs to x: (240) y: (100)\n    say []\n    hide\n    wait until <<(stage) = [12]> or <([x position v] of [player v]) < [150]>>\n    if <([x position v] of [player v]) < [100]> then\n        wait until <[150] < ([x position v] of [player v])>\n        say (translate [さっきはごめん！] to ((language::translate) v)::translate)\n        switch costume to (🍎 v)\n        show\n        point in direction (90)\n        go to x: (240) y: (-80)\n        set [雑用 v] to [0]\n        repeat until <touching (地面 v)?>\n            change x by (-15)\n            change y by (雑用)\n            change [雑用 v] by (-1)\n            turn left (15) degrees\n        end\n        repeat (13)\n            change x by (雑用)\n            turn left (15) degrees\n            change [雑用 v] by (0.7)\n        end\n        say []\n        point in direction (90)\n        set [雑用 v] to [0]\n        repeat (22)\n            change x by (雑用)\n            turn right (雑用) degrees\n            change [雑用 v] by (1)\n        end\n        hide\n    end\nend\nif <(stage) = [12]> then\n    point in direction (90)\n    switch costume to (本当のゴール v)\n    show\n    repeat until <([x position v] of [player v]) > [-50]>\n        go to x: (pick random (-5) to (5)) y: (pick random (95) to (105))\n    end\n    go to x: (0) y: (100)\n    wait until <([x position v] of [player v]) > [70]>\n    point in direction (90)\n    go to x: (0) y: (100)\n    set [雑用 v] to [-10]\n    repeat (28)\n        change x by (((雑用) - ((雑用) * (2))) / (3))\n        turn left (雑用) degrees\n        change y by ((雑用) + (5))\n        change [雑用 v] by (-1)\n    end\n    hide\nend\nif <(stage) = [13]> then\n    switch costume to (針 \(ぐるぐる回転\) v)\n    wait until <<(stage) = [14]> or <<[70] < ([y position v] of [player v])> or <[100] < ([x position v] of [player v])>>>\n    if <[70] < ([y position v] of [player v])> then\n        wait (0.5) seconds\n        hide\n        go to x: (-200) y: (300)\n        repeat (7)\n            change x by (50)\n            point in direction (-90)\n            create clone of (_myself_ v)\n        end\n        wait (0.2) seconds\n        go to x: (200) y: (300)\n        repeat (7)\n            change x by (-50)\n            point in direction (-90)\n            create clone of (_myself_ v)\n        end\n    end\n    if <[100] < ([x position v] of [player v])> then\n        go to x: (-19) y: (0)\n        switch costume to (右からマグマ v)\n        show\n        glide (0.5) secs to x: (-50) y: (0)\n        glide (0.5) secs to x: (-19) y: (0)\n        hide\n    end\nend\n\nwhen I receive [スタート v]\nclear graphic effects\nhide\nswitch costume to (右からマグマ v)\nwait until <[100] < ([x position v] of [player v])>\nshow\nglide (0.5) secs to x: (-50) y: (0)\nglide (0.5) secs to x: (-19) y: (0)\nhide\n\nwhen I start as a clone\nshow\nif < (costume [name v]) contains [🍎]?> then\n    say (translate [野球しようぜ] to ((language::translate) v)::translate)\n    switch costume to (🍎 v)\n    show\n    point in direction (90)\n    go to x: (240) y: (-80)\n    set [雑用 v] to [0]\n    repeat until <touching (地面 v)?>\n        change x by (-15)\n        change y by (雑用)\n        change [雑用 v] by (-1)\n        turn left (15) degrees\n    end\n    repeat (13)\n        change x by (雑用)\n        turn left (15) degrees\n        change [雑用 v] by (0.7)\n    end\n    say []\n    point in direction (90)\n    set [雑用 v] to [0]\n    repeat (22)\n        change x by (雑用)\n        turn right (雑用) degrees\n        change [雑用 v] by (1)\n    end\n    hide\nend\nif < (costume [name v]) contains [針]?> then\n    show\n    switch costume to (針 new.ver\(\( v)\n    set [雑用 v] to [-5]\n    repeat until <touching (地面 v)?>\n        change y by (雑用)\n        change [雑用 v] by (-1)\n    end\n    start sound [デュクシ☆ v]\n    set [雑用 v] to [10]\n    repeat until <touching (_edge_ v)?>\n        move (-20) steps\n        turn right (pick random (30) to (20)) degrees\n        change x by (15)\n        change y by (雑用)\n        change [雑用 v] by (-2)\n    end\n    repeat (2)\n        turn right (60) degrees\n        change x by (15)\n        change y by (雑用)\n        change [雑用 v] by (-2)\n    end\nend\ndelete this clone\n\ndefine 下に行く (まさか定義を使うことになるとは)\nrepeat until <touching (地面 v)?>\n    change y by (-10)\nend\n\nwhen I receive [白くなる v]\nstop [other scripts in sprite v]\n\n@地面\n\nwhen flag clicked\nswitch costume to (1 v)\nset [stage v] to [0]\nhide\n\nwhen I receive [スタート v]\nset [stage v] to [1]\nshow\nforever\n    if <(stage) = [2]> then\n        wait until <[0] < ([x position v] of [player v])>\n        switch costume to (2.5 v)\n        start sound [ファー\(息を吸う\) v]\n        wait until <([x position v] of [player v]) < [-150]>\n    end\n    if <(stage) = [4]> then\n        wait until <[-40] < ([x position v] of [player v])>\n        switch costume to (4.5 v)\n        start sound [ファー\(息を吸う\) v]\n        wait until <([x position v] of [player v]) < [-150]>\n    end\nend\n\nwhen I receive [次のステージ v]\nstart sound [場面切替 v]\nswitch costume to (stage)\nif <(stage) = [14]> then\n    broadcast (白くなる v)\nend\n\nwhen I receive [game over v]\nset volume to (0) %\nwait (0.45) seconds\nwait until <<key (r v) pressed?> or <mouse down?>>\nset volume to (100) %\nswitch costume to (stage)\n\nwhen I receive [白くなる v]\nstop [other scripts in sprite v]\n\nwhen I receive [スタート v]\nset volume to (100) %\nforever\n    if <[5] > (stage)> then\n        play sound [GREEN GREENS v] until done\n    end\n    if <<[9] > (stage)> and <(stage) > [4]>> then\n        play sound [異空ヲカケル旅人 v] until done\n    end\n    if <(stage) > [8]> then\n        play sound [ウルトラスーパーボスバトル v] until done\n    end\nend\n\nwhen I receive [endロール v]\nplay sound [友と夕日と v] until done\n\n@gameover\n\nwhen I receive [game over v]\nset size to (160) %\nclear graphic effects\nshow\nrepeat (4)\n    change size by (-15)\nend\ncreate clone of (_myself_ v)\nstart sound [やられた v]\nstart sound [チーン v]\nstart sound [ﾀﾋんだ v]\nwait (0.45) seconds\nwait until <<key (r v) pressed?> or <mouse down?>>\nstop all sounds\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [endロール v]\nstop [other scripts in sprite v]\n\nwhen I start as a clone\ngo to [front v] layer\nrepeat (15)\n    change size by (5)\n    change [color v] effect by (5)\n    change [ghost v] effect by (2)\n    change [pixelate v] effect by (2)\nend\nrepeat (10)\n    change size by (3)\n    change [pixelate v] effect by (10)\n    change [color v] effect by (5)\n    change [ghost v] effect by (5)\nend\ndelete this clone\n\nwhen I receive [白くなる v]\nstop [other scripts in sprite v]\n\n@設定画面\n\nwhen I receive [設定へ v]\nset [設定画面 v] to [1]\nswitch costume to (戻るボタン v)\ncreate clone of (_myself_ v)\nswitch costume to (姿変更\(右\) v)\ncreate clone of (_myself_ v)\nswitch costume to (姿変更\(左\) v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nset [設定画面 v] to [0]\nset [コスチューム v] to [1]\nhide\n\nwhen I start as a clone\nshow\nif <<[0] < (costume [number v])> and <(costume [number v]) < [6]>> then\n    go to x: (0) y: (0)\n    repeat until <(設定画面) = [0]>\n        switch costume to (コスチューム)\n    end\nend\nif < (costume [name v]) contains [右]?> then\n    go to x: (50) y: (0)\n    repeat until <(設定画面) = [0]>\n        if <touching (mouse-pointer v)?> then\n            set [brightness v] effect to (30)\n            if <mouse down?> then\n                change [コスチューム v] by (1)\n                if <(コスチューム) = [6]> then\n                    set [コスチューム v] to [1]\n                end\n                wait until <not <mouse down?>>\n            end\n        else\n            set [brightness v] effect to (0)\n        end\n    end\nend\nif < (costume [name v]) contains [左]?> then\n    go to x: (-50) y: (0)\n    repeat until <(設定画面) = [0]>\n        if <touching (mouse-pointer v)?> then\n            set [brightness v] effect to (30)\n            if <mouse down?> then\n                change [コスチューム v] by (-1)\n                if <(コスチューム) = [0]> then\n                    set [コスチューム v] to [5]\n                end\n                wait until <not <mouse down?>>\n            end\n        else\n            set [brightness v] effect to (0)\n        end\n    end\nend\nif < (costume [name v]) contains [戻る]?> then\n    go to x: (-170) y: (-150)\n    repeat until <(設定画面) = [0]>\n        if <touching (mouse-pointer v)?> then\n            set [brightness v] effect to (30)\n            if <mouse down?> then\n                set [設定画面 v] to [0]\n                broadcast (最初の画面 v)\n            end\n        else\n            set [brightness v] effect to (0)\n        end\n    end\nend\ndelete this clone\n\nif <(コスチューム) = [5]> then\nelse\nend\n\nsay (translate [「?」は選択できません] to ((language::translate) v)::translate) for (1) seconds\n\nwhen I receive [白くなる v]\nstop [other scripts in sprite v]\n\n@PixelMplus\n\ndefine 🖌 PDTE ( x= (x) , y= (y) , size= (size) , penSize= (pens) , color= (color) , L-C-R= (lcr) , text= (text) )\nset [len v] to [0]\nif < [lc] contains (lcr)?> then\n    set [counter-x v] to [0]\n    repeat (length of (text))\n        change [counter-x v] by (1)\n        if < [!"#$%&'\(\)*+,-./0123456789:;<=>?@\[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ] contains (letter (counter-x) of (text))?> then\n            change [len v] by (1)\n        end\n    end\nend\nif <(lcr) = [l]> then\n    go to x: ((x) - (((((length of (text)) - (len)) * (13)) + ((len) * (7))) * (size))) y: ((y) + ((size) * (6)))\nelse\n    if <(lcr) = [c]> then\n        go to x: (((x) + (size)) - ((((((length of (text)) - (len)) * (13)) + ((len) * (7))) * (size)) / (2))) y: ((y) + ((size) * (6)))\n    else\n        go to x: (x) y: ((y) + ((size) * (6)))\n    end\nend\nset pen size to (pens)\nset pen color to (color)\nset [pointer v] to [0]\nrepeat (length of (text))\n    change [pointer v] by (1)\n    set [in v] to (letter (pointer) of (text))\n    if <not < [ 　] contains (in)?>> then\n        set [l v] to [0]\n        set [r v] to [2420]\n        repeat until <(l) = (r)>\n            if <(letter ([floor v] of (((l) + (r)) / (2)) ) of (文字表)) < (in)> then\n                set [l v] to (([floor v] of (((l) + (r)) / (2)) ) + (1))\n            else\n                set [r v] to ([floor v] of (((l) + (r)) / (2)) )\n            end\n        end\n        set [out v] to (l)\n    else\n        if <(in) = [　]> then\n            set [out v] to [-1]\n        else\n            set [out v] to [0]\n        end\n    end\n    if <[32] < (out)> then\n        if <(out) < [65]> then\n            switch costume to (null v)\n            switch costume to (in)\n            if <(costume [name v]) = (in)> then\n                change [out v] by (26)\n            else\n                change [out v] by (-6)\n            end\n        else\n            change [out v] by (26)\n        end\n    end\n    if < [\[\\]^_`] contains (in)?> then\n        set [out v] to ((58) + (item # of (in) in [_p v]))\n    end\n    if <[0] < (out)> then\n        set [cn v] to (out)\n        if <(cn) < [95]> then\n            set [half v] to [True]\n        else\n            set [half v] to [False]\n        end\n        set [tmp v] to (item (cn) of [フォントデータ v])\n        set [counter-x v] to [1]\n        set [stack v] to []\n        set [switch v] to (letter (counter-x) of (tmp))\n        repeat until <(length of (tmp)) = (counter-x)>\n            change [counter-x v] by (1)\n            if <(letter (counter-x) of (tmp)) = [,]> then\n                change [counter-x v] by (1)\n                set [switch v] to (letter (counter-x) of (tmp))\n                change y by ((size) * (-1))\n                if <(cn) < [95]> then\n                    change x by ((size) * (-6))\n                else\n                    change x by ((size) * (-12))\n                end\n            else\n                if <(switch) = [1]> then\n                    pen down\n                else\n                    pen up\n                end\n                change x by ((join [0x] (letter (counter-x) of (tmp))) * (size))\n                if <(switch) = [1]> then\n                    set [switch v] to [0]\n                else\n                    set [switch v] to [1]\n                end\n            end\n        end\n        pen up\n        change y by ((size) * (11))\n        change x by ((size) * (1))\n    else\n        if <(out) = [-1]> then\n            change x by ((size) * (13))\n        else\n            change x by ((size) * (7))\n        end\n    end\nend\n\nwhen flag clicked\nbroadcast (最初の画面 v)\n\ndefine test\nset [pixelmplus: y v] to [0]\nrepeat (13)\n    change [pixelmplus: y v] by (1)\n    set [stack v] to []\n    repeat (20)\n        if <(pick random (0) to (1)) = [0]> then\n            set [stack v] to (join (stack) (letter (pick random (1) to (length of (文字表))) of (文字表)))\n        else\n            set [stack v] to (join (stack) (letter (pick random (95) to (271)) of (文字表)))\n        end\n    end\n    🖌 PDTE ( x= [-135] , y= ((140) + (() - ((PixelMplus: y) * (18)))) , size= [1] , penSize= [1] , color= ((pick random (0) to (255)) + (((256) * (pick random (0) to (255))) + ((65536) * (pick random (0) to (255))))) , L-C-R= [] , text= (stack) )\nend\n\ndefine set RGB ( R= (r) , G= (g) , B= (b) )\nset [rgb v] to ((join [0x] (b)) + (((256) * (join [0x] (g))) + ((65536) * (join [0x] (r)))))\n\nwhen I receive [最初の画面 v]\nerase all\nset RGB ( R= [ff] , G= [0] , B= [0] )\n🖌 PDTE ( x= [0] , y= [80] , size= [4] , penSize= [6] , color= (RGB) , L-C-R= [c] , text= [\[super easy\]] )\n🖌 PDTE ( x= [0] , y= [-70] , size= [2] , penSize= [3] , color= (RGB) , L-C-R= [c] , text= [-Spacebar or tap to advance-] )\n🖌 PDTE ( x= [0] , y= [150] , size= [2] , penSize= [2] , color= (RGB) , L-C-R= [c] , text= (join [world record / 世界記録　] (☁ 世界記録)) )\nset RGB ( R= [00] , G= [0] , B= [0] )\n🖌 PDTE ( x= [0] , y= [120] , size= [2] , penSize= [3] , color= (RGB) , L-C-R= [c] , text= [超超簡単!] )\n🖌 PDTE ( x= [0] , y= [0] , size= [6] , penSize= [8] , color= (RGB) , L-C-R= [c] , text= [<START>] )\n🖌 PDTE ( x= [100] , y= [-130] , size= [1.5] , penSize= [2] , color= (RGB) , L-C-R= [c] , text= [Click here for settings] )\nwait until <not <<key (space v) pressed?> or <mouse down?>>>\nwait until <<key (space v) pressed?> or <mouse down?>>\nif <<key (space v) pressed?> or <<mouse down?> and <not <<(mouse x) > [-30]> and <(mouse y) < [-120]>>>>> then\n    erase all\n    broadcast (スタート v)\nend\nif <<mouse down?> and <<(mouse x) > [-30]> and <(mouse y) < [-120]>>> then\n    erase all\n    broadcast (設定へ v)\nend\n\nwhen I receive [白くなる v]\nstop [other scripts in sprite v]\n\n@死の踊り\n\nwhen flag clicked\nset [確定 v] to [0]\nhide\n\nwhen I start as a clone\nshow\nclear graphic effects\ngo to [back v] layer\ngo to x: (pick random (-240) to (240)) y: (0)\npoint in direction (90)\nset size to (10) %\nrepeat until <[250] < (size)>\n    switch costume to (コスチューム2 v)\n    repeat (2)\n        wait (0.01) seconds\n        next costume\n    end\n    repeat (2)\n        wait (0.01) seconds\n        switch costume to ((costume [number v]) - (1))\n    end\n    wait (0.01) seconds\n    switch costume to (コスチューム5 v)\n    wait (0.01) seconds\n    switch costume to (コスチューム6 v)\n    wait (0.01) seconds\n    switch costume to (コスチューム5 v)\n    wait (0.01) seconds\n    switch costume to (コスチューム2 v)\nend\ndelete this clone\n\nwhen I receive [次のステージ v]\nhide\nset volume to (0) %\nset size to (70) %\ngo to x: (300) y: (-105)\nset language to ((language::translate) v)::tts\nrepeat until <not <(stage) = [3]>>\n    if <(stage) = [3]> then\n        switch costume to (コスチューム1 v)\n        set volume to (100) %\n        set [lock v] to [1]\n        show\n        glide (1) secs to x: (150) y: (-105)\n        set voice to (tenor v)::tts\n        say (translate [死で現実から救済するよ。] to ((language::translate) v)::translate)\n        speak (translate [死で現実から救済するよ。] to ((language::translate) v)::translate)::tts\n        say []\n        set [lock v] to [0]\n        start sound [yonhonnorecorder v]\n        wait (0.5) seconds\n        repeat (2)\n            switch costume to (コスチューム2 v)\n            repeat (2)\n                wait (pick random (0.01) to (0.1)) seconds\n                next costume\n            end\n            repeat (2)\n                wait (pick random (0.01) to (0.1)) seconds\n                switch costume to ((costume [number v]) - (1))\n            end\n            wait (pick random (0.01) to (0.1)) seconds\n            switch costume to (コスチューム5 v)\n            wait (pick random (0.01) to (0.1)) seconds\n            switch costume to (コスチューム6 v)\n            wait (pick random (0.01) to (0.1)) seconds\n            switch costume to (コスチューム5 v)\n            wait (pick random (0.01) to (0.1)) seconds\n            switch costume to (コスチューム2 v)\n        end\n        set [確定 v] to [1]\n    end\n    set volume to (0) %\n    switch costume to (コスチューム8 v)\n    glide (1) secs to x: (250) y: (-105)\n    hide\n    wait until <(復活してない) = [0]>\nend\n\nwhen I receive [白くなる v]\nstop [other scripts in sprite v]\n\n@白い膜\n\nwhen flag clicked\nhide\n\nwhen I receive [白くなる v]\nset [☁ 個人の記録 v] to (死んだ回数)\nif <(死んだ回数) < (☁ 世界記録)> then\n    set [☁ 世界記録 v] to (死んだ回数)\nend\nswitch costume to (コスチューム1 v)\nshow\ngo to [front v] layer\nset [ghost v] effect to (100)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nwait (1) seconds\nbroadcast (endロール v)\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen I receive [thanks v]\nswitch costume to (コスチューム2 v)\ngo to [front v] layer\nset [ghost v] effect to (100)\nshow variable [☁ 世界記録 v]\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\n@スタッフロール\n\nwhen flag clicked\nhide\n\nwhen I receive [endロール v]\nclear graphic effects\nhide\nswitch costume to (制作 v)\nrepeat (7)\n    wait (3.5) seconds\n    create clone of (_myself_ v)\n    next costume\nend\nwait (5) seconds\nshow\nswitch costume to (end v)\ngo to x: (0) y: (214)\nglide (4) secs to x: (0) y: (0)\nwait (1) seconds\nbroadcast (thanks v)\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen I start as a clone\nshow\ngo to x: (0) y: (214)\nglide (8) secs to x: (0) y: (-214)\ndelete this clone\n\n@サムネ\n\nwhen flag clicked\nhide\n\n@タボモは禁止ぃ\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nforever\n    reset timer\n    repeat (10)\n        switch costume to (コスチューム1 v)\n    end\n    if <[0.1] > (timer)> then\n        point in direction (90)\n        switch costume to (コスチューム2 v)\n        stop [all v]\n    else\n        switch costume to (コスチューム1 v)\n    end\nend\n\n
こっちも見てね\nhttps://scratch.mit.edu/projects/732351999/\n旗5回押し　使い方最後まで見てね　日本語は下\n。✧✧*。*。✧English✧*。✧*。✧*。✧✧*。*。✧。✧✧\nmobile compatible.\nYou can play with arrow keys or wasd keys, tap.\nThe number of deaths is saved in the cloud, not the goal time.\nIt's very easy. it's insanely easy.     enjoy!\n✧**。*。*。*日本語✧*。✧*。✧*。✧✧*。*✧*。✧*。✧✧\nモバイル対応。\n矢印キーまたはwasdキー、タップで遊ぶことができます。\nゴールタイムではなく、死亡回数がクラウドに保存されます。\nホームの右下を押すと衣装が変わります\nものすごく簡単です。では楽しんで！