New Platformer City

Instructions: 　　　　　　日本語は下にあるよ！\n\n------------------------ English------------------------------\nThis is an Action Game!!...lol lol\n※How to play is written in this work!!!\n\nIf you make a goal early, you may update the WORLD RECORD!!\n          ------------------日本語-----------------------\n矢印キーか、WASDキー。またはスマホでもOK！ その中のどれかの操作方法で遊んでね！ \n\n上下が逆になった時→スペースキーか、タップで何回でも空中で跳べるよ～\n\n速くゴールして、 タイムの世界記録にも挑戦してみよう！！

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景2 v)\nhide variable [☁ 世界記録 v]\nhide variable [コス v]\nhide variable [変数1 v]\nhide variable [スコア　　　　　　　　　　　　　　　　。 v]\nforever\n    play sound [　 v] until done\nend\n\nwhen I receive [ゲームスタート v]\nswitch backdrop to (背景1 v)\n\nwhen I receive [クリア v]\nswitch backdrop to (背景3 v)\n\nshow variable [☁ 世界記録 v]\n\n@死亡\n\nwhen flag clicked\nhide\n\nwhen I receive [メッセージ1 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [ゲームスタート v]\nshow\ngo to [front v] layer\nswitch costume to (1 v)\n\n@ポータル\n\nwhen flag clicked\nhide\n\nwhen I receive [メッセージ1 v]\nwait (0.5) seconds\nnext costume\n\nwhen I receive [メッセージ3 v]\ngo to [front v] layer\nshow\nswitch costume to (コスチューム1 v)\n\n@主人公(?)\n\nwhen flag clicked\nset [変数3 v] to [1]\n\nwhen flag clicked\nset size to (90) %\nhide\nforever\n    if <(costume [number v]) = [2]> then\n        set [コス v] to [2]\n    else\n        set [コス v] to [1]\n    end\nend\n\nset [変数1 v] to [2]\nif <(変数4) > [0]> then\n    set [変数4 v] to [-5]\nelse\n    set [変数4 v] to [5]\nend\n\ndefine (*^▽^*)\nrepeat (3)\n    change [brightness v] effect by (30)\nend\n\nwhen I receive [ゲームスタート v]\nswitch costume to (コスチューム3 v)\nshow\nclear graphic effects\ngo to x: (-226) y: (-80)\nset rotation style [left-right v]\nset [変数3 v] to [1]\nset [変数4 v] to [0]\nset [変数1 v] to [0]\nforever\n    change [変数1 v] by (-1)\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        point in direction (-90)\n        change [変数4 v] by (-1)\n    end\n    if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n        point in direction (90)\n        change [変数4 v] by (1)\n    end\n    set [変数4 v] to ((変数4) * (0.85))\n    change x by (変数4)\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 y by (-6)\n                                change x by ((変数4) * (-1))\n                                set [変数4 v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (変数1)\n    if <touching (フロア！ v)?> then\n        change y by ((変数1) * (-1))\n        set [変数1 v] to [0]\n    end\n    change y by (-1)\n    if <<touching (フロア！ v)?> and <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n        start sound [Water Drop v]\n        set [変数1 v] to [10]\n    end\n    if <<touching (跳ねる v)?> and <<key (space v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>>> then\n        set [変数1 v] to [13]\n    end\n    if <touching (触れると跳ねる v)?> then\n        set [変数1 v] to [13]\n    end\n    if <<<key (space v) pressed?> or <mouse down?>> and <(costume [number v]) = [2]>> then\n        set [変数1 v] to [13]\n    end\n    change y by (1)\n    if <touching (ゴール v)?> then\n        broadcast (メッセージ1 v)\n        hide\n        wait (0.7) seconds\n        change [変数3 v] by (1)\n        wait (3) seconds\n        show\n        go to x: (-226) y: (-80)\n    end\n    if <touching (スプライト3 v)?> then\n        switch costume to (コスチューム2 v)\n    end\n    if <touching (スプライト4 v)?> then\n        switch costume to (コスチューム3 v)\n    end\nend\n\nwhen I receive [ゲームスタート v]\nforever\n    if <<touching (スプライト2 v)?> or <touching (死亡 v)?>> then\n        (*^▽^*)\n        go to x: (-226) y: (-80)\n        clear graphic effects\n    end\nend\n\nif <touching (戻るポータル v)?> then\n\n\n\nif <(costume [number v]) = [2]> then\n    switch costume to (コスチューム3 v)\nend\n\nwait until <not <touching (スプライト3 v)?>>\n\nwait until \n\nswitch costume to (コスチューム2 v)\n\n@プレイ\n\nwhen I receive [メッセージ2 v]\ngo to [front v] layer\nforever\n    if <touching (mouse-pointer v)?> then\n        set size to (50) %\n    else\n        set size to (40) %\n    end\nend\n\nwhen flag clicked\nbroadcast (ゲームスタート v)\n\ngo to x: (0) y: (-120)\nset size to (100) %\nshow\n\nwhen I receive [スタート画面 v]\n\nset size to (0) %\nhide\ngo to x: (138) y: (400)\nshow\nrepeat (10)\n    change size by (10)\n    change y by (-25)\nend\nset size to (100) %\nforever\n    if <touching (mouse-pointer v)?> then\n        set size to (110) %\n        if <mouse down?> then\n            broadcast (ゲームスタート v)\n            hide\n            stop [this script v]\n        end\n    else\n        set size to (100) %\n    end\nend\n\n@ゴール\n\nwhen flag clicked\nset [ghost v] effect to (100)\nhide\n\nwhen I receive [メッセージ1 v]\n\nwait (0.5) seconds\nnext costume\nforever\n    if <(costume [number v]) = [10]> then\n        if on edge, bounce\n    end\nend\n\nwhen I receive [ゲームスタート v]\nshow\ngo [forward v] (1) layers\nswitch costume to (1 v)\n\n@戻るポータル\n\nwhen flag clicked\nhide\n\nwhen I receive [メッセージ1 v]\nwait (0.5) seconds\nnext costume\n\nwhen I receive [メッセージ3 v]\ngo to [front v] layer\nshow\nswitch costume to (1 v)\n\n@火\n\nwhen flag clicked\n\nwhen I start as a clone\nshow\nrepeat until <touching (_edge_ v)?>\n    change y by (-8)\nend\ndelete this clone\n\nwhen I receive [ゲームスタート v]\nforever\n    go to (主人公\(?\) v)\n    if <<(コス) = [2]> and <<mouse down?> or <key (space v) pressed?>>> then\n        create clone of (_myself_ v)\n        wait (0.1) seconds\n    else\n        hide\n    end\nend\n\nwhen I receive [スタート画面 v]\nhide\n\n@フロア！\n\nwhen I receive [メッセージ3 v]\nforever\n    if <(costume [number v]) = [10]> then\n        set [へんすう v] to [1]\n    end\nend\n\nwhen flag clicked\nset [へんすう v] to [0]\n\nwhen I receive [クリア v]\n\nforever\nend\n\nif <(☁ 世界記録) > (スコア　　　　　　　　　　　　　　　　。)> then\n    set [☁ 世界記録 v] to (スコア　　　　　　　　　　　　　　　　。)\nend\n\nshow variable [☁ 世界記録 v]\n\nwhen I receive [ゲームスタート v]\nset [スコア　　　　　　　　　　　　　　　　。 v] to [0]\nshow variable [スコア　　　　　　　　　　　　　　　　。 v]\nhide variable [スコア　　　　　　　　　　　　　　　　。 v]\nshow\nrepeat until <(costume [number v]) = [10]>\n    change [スコア　　　　　　　　　　　　　　　　。 v] by (1)\n    wait (1) seconds\nend\nbroadcast (クリア v)\n\nwhen flag clicked\nswitch costume to (1 v)\nhide\n\nwhen I receive [メッセージ1 v]\nwait (2) seconds\nnext costume\n\nwhen I receive [ゲームスタート v]\nforever\n    if <(costume [number v]) = [4]> then\n        set [変身 v] to [1]\n    else\n        if <(costume [number v]) = [9]> then\n            set [変身 v] to [2]\n        else\n            set [変身 v] to [0]\n        end\n    end\nend\n\nif  then\nend\n\nif  then\nend\n\nbroadcast (変身2 v)\nbroadcast (変身 v)\n\nstop [all v]\n\ngo to [front v] layer\n\nif <(costume [number v]) = [10]> then\n    set [変身 v] to [3]\nelse\nend\n\n@Sprite1\n\nwhen I start as a clone\nif <(ストップ) = [0]> then\n    set size to (0) %\n    wait until <(ストップ) = [1]>\n    create clone of (_myself_ v)\n    wait (0.2) seconds\n    set size to (0) %\n    set x to (-146)\n    create clone of (_myself_ v)\n    wait (0.2) seconds\n    set x to (-85)\n    create clone of (_myself_ v)\n    wait (0.2) seconds\n    set x to (-24)\n    create clone of (_myself_ v)\n    wait (0.2) seconds\n    set x to (35)\n    create clone of (_myself_ v)\n    wait (0.2) seconds\n    set x to (95)\n    create clone of (_myself_ v)\n    wait (0.2) seconds\n    set x to (152)\n    create clone of (_myself_ v)\n    wait (0.2) seconds\n    set x to (209)\n    create clone of (_myself_ v)\n    delete this clone\nelse\n    repeat (10)\n        change size by (10)\n    end\n    wait (2) seconds\n    repeat (10)\n        change size by (-10)\n    end\n    delete this clone\nend\n\nwhen flag clicked\nhide\n\ndefine ゲーム的演出\nset size to (0) %\nset [ストップ v] to [0]\nswitch costume to (costume2 v)\nshow\ngo to x: (-208) y: (151)\ncreate clone of (_myself_ v)\ngo to x: (-208) y: (91)\ncreate clone of (_myself_ v)\ngo to x: (-208) y: (31)\ncreate clone of (_myself_ v)\ngo to x: (-208) y: (-29)\ncreate clone of (_myself_ v)\ngo to x: (-208) y: (-89)\ncreate clone of (_myself_ v)\ngo to x: (-208) y: (-149)\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [ストップ v] to [1]\nhide\nwait (2) seconds\n\nif <key (space v) pressed?> then\nelse\nend\n\nswitch costume to (costume2 v)\nshow\ngo to x: (-208) y: (151)\ncreate clone of (_myself_ v)\ngo to x: (-208) y: (91)\ncreate clone of (_myself_ v)\ngo to x: (-208) y: (31)\ncreate clone of (_myself_ v)\ngo to x: (-208) y: (-29)\ncreate clone of (_myself_ v)\ngo to x: (-208) y: (-89)\ncreate clone of (_myself_ v)\ngo to x: (-208) y: (-149)\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [ストップ v] to [1]\nhide\nwait (2) seconds\nbroadcast (メッセージ1 v)\n\nbroadcast (メッセージ1 v)\n\nwhen I receive [メッセージ1 v]\nゲーム的演出\n\ngo to [front v] layer\n\n@スプライト2\n\nwhen flag clicked\nshow\ngo to x: (0) y: (-180)\nset [ghost v] effect to (100)\n\n@スプライト3\n\nwhen flag clicked\nhide variable [変身 v]\nhide\n\nwhen flag clicked\nhide\nforever\n    if <(変身) = [1]> then\n        go to x: (-172) y: (-107)\n        show\n    else\n        hide\n    end\nend\n\n@0\n\nwhen flag clicked\nset [スコア　　　　　　　　　　　　　　　　。 v] to [0]\nhide\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 I receive [ゲームスタート v]\nset size to (150) %\nclear graphic effects\nhide\nset [桁 v] to [0]\ngo to x: (-106) y: (152)\nrepeat (9)\n    change [桁 v] by (1)\n    create clone of (_myself_ v)\n    change x by (-20)\nend\n\n@スプライト4\n\nwhen flag clicked\nhide\nforever\n    if <(変身) = [2]> then\n        go to x: (-210) y: (-98)\n        show\n    else\n        hide\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [クリア v]\nshow\nset size to (0) %\nrepeat (24)\n    change size by (4)\n    turn right (15) degrees\nend\nset size to (100) %\nforever\n    glide (0.4) secs to x: (0) y: (5)\n    glide (0.2) secs to x: (0) y: (-3)\nend\n\n@3\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 I receive [クリア v]\nwait (2) seconds\nset size to (130) %\nclear graphic effects\nhide\nset [桁 v] to [0]\ngo to x: (146) y: (153)\nif <(☁ ワールド) > (スコア　　　　　　　　　　　　　　　　。)> then\n    set [☁ ワールド v] to (スコア　　　　　　　　　　　　　　　　。)\nend\nrepeat (9)\n    change [桁 v] by (1)\n    create clone of (_myself_ v)\n    change x by (-14)\nend\n\nwhen flag clicked\nhide variable [☁ ワールド v]\nhide\n\n@サイン\n\nwhen flag clicked\nhide\n\nwhen I receive [メッセージ1 v]\nwait (1) seconds\nnext costume\n\nwhen I receive [ゲームスタート v]\nshow\ngo to [front v] layer\nswitch costume to (1 v)\n\n@スプライト5\n\nwhen flag clicked\nforever\n    go to [front v] layer\n    set [ghost v] effect to (100)\n    show\nend\n\n