TOKYO / Platformer ~Japanese capital~

Instructions: ~日本の首都、東京がテーマ~\n~The theme is Tokyo, the capital of Japan~\n<日本語>\nWASDキー、矢印キー、タップで操作。\nマグマか下に落ちるとゲームオーバーです。\n面白かったらぜひ❤と★を押してくださいね。\n<English>\nOperate with WASD key, arrow key, tap.\nThe game is over when the magma falls down.\nIf you find it interesting, please press ❤ and ★.

@Stage\n\n@player\n\nwhen flag clicked\ngo to [front v] layer\npoint in direction (90)\nset size to (100) %\nhide variable [タイム v]\nhide\nwait (12) seconds\nbroadcast (表示してくれー v)\ngo to x: (-186) y: (-8)\nshow\nbroadcast (ゆき降らせるぞ v)\nforever\n    操作\nend\n\ndefine 操作\nset rotation style [left-right v]\nforever\n    change [y v] by (-1)\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(x position) > (mouse x)>>> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    set [x v] to ((X) * (0.9))\n    change x by (X)\n    if <<touching (柱 v)?> or <touching (柱２ v)?>> then\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    \n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    \n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching (地面 v)?> then\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching (ufo v)?> then\n        set [y v] to [0]\n        change y by (Y)\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [-10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    if <touching (東京タワー v)?> then\n        change x by ((X) * (-1))\n        set [x v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [10]\n            if <(direction) = [-90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [10]\n                end\n            end\n            if <(direction) = [90]> then\n                if <(X) > [0]> then\n                    set [x v] to [10]\n                else\n                    set [x v] to [-10]\n                end\n            end\n        else\n            set [x v] to [0]\n        end\n    end\n    change y by (Y)\n    if <<touching (柱 v)?> or <touching (柱２ v)?>> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    if <touching (東京タワー v)?> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    \n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    if <touching (ufo v)?> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [15]\n        end\n    end\n    \n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    if <touching (地面 v)?> then\n        change y by (() - (Y))\n        set [y v] to [0]\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n            set [y v] to [13]\n        end\n    end\n    if <touching color (#a2a2a3)?> then\n        start sound [Rip v]\n        初期化\n    end\n    if <touching color (#8b8b8b)?> then\n        start sound [Rip v]\n        初期化\n    end\n    if <touching (マグマ v)?> then\n        start sound [Rip v]\n        初期化\n    end\n    if <(x position) > [240]> then\n        hide\n        broadcast (次！ v)\n        wait (3) seconds\n        初期化\n        show\n    end\n    if <(y position) = [-185]> then\n        start sound [Rip v]\n        初期化\n    end\n    if <touching (バネ v)?> then\n        start sound [ボヨン v]\n        set [y v] to [20]\n    end\n    if <touching (風 v)?> then\n        start sound [ピューンと逃げる v]\n        set [y v] to [15]\n    end\nend\n\ndefine 初期化\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-186) y: (-10)\n\nwhen [timer v] > (0)\nset rotation style [all around v]\nshow\npoint in direction (83)\ngo to x: (35) y: (-3)\nset size to (200) %\nhide variable [タイム v]\n\nwhen I receive [表示してくれー v]\nforever\n    start sound [Disfigure - Blank _NCS Release_ v]\n    wait (210) seconds\nend\n\nwhen I receive [最後 v]\nstop [other scripts in sprite v]\n\n@地面\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [次いくでー v]\nnext costume\nif <(costume [number v]) = [2]> then\n    broadcast (2表示 v)\nend\n\ndefine タイマースタート\nset [タイム v] to [0]\nrepeat until <(costume [number v]) = [10]>\n    wait (1) seconds\n    change [タイム v] by (1)\nend\nif <(☁ 世界記録) > (タイム)> then\n    set [☁ 世界記録 v] to (タイム)\nend\nbroadcast (タイム v)\nbroadcast (世界記録 v)\n\nwhen I receive [表示してくれー v]\nshow\nswitch costume to (block_2022_1_12-17_38_33 v)\nタイマースタート\n\nwhen flag clicked\nhide variable [☁ 世界記録 v]\nswitch costume to (block_2022_1_12-17_38_33 v)\nhide\nhide variable [タイム v]\ngo to x: (0) y: (-4)\npoint in direction (90)\nswitch backdrop to (コスチューム1 \(3\) v)\nset size to (100) %\n\nwhen [timer v] > (0)\nshow\npoint in direction (100)\ngo to [front v] layer\ngo to x: (-341) y: (65)\nset size to (130) %\nswitch costume to (block_2022_1_12-17_38_3 v)\ngo to [front v] layer\nhide variable [タイム v]\n\nwhen flag clicked\nforever\n    reset timer\nend\n\n@intro\n\nwhen I start as a clone\nif <(cloneID) = [logo]> then\n    show\n    set [clone_dir v] to [360]\n    switch costume to (bit v)\n    set size to (1200) %\n    switch costume to (rogo v)\n    repeat until <[101] > (size)>\n        switch costume to (bit v)\n        change size by (((65) - (size)) / (6.9))\n        change [clone_dir v] by (((90) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n        switch costume to (rogo v)\n    end\n    repeat until <[66] > (size)>\n        change size by (((65) - (size)) / (6.9))\n        change [clone_dir v] by (((90) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n    end\n    set [clone_dir v] to [0.5]\n    repeat until <(size) > [100]>\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        turn right ((clone_dir) / (-12)) degrees\n    end\n    repeat (7)\n        switch costume to (bit v)\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        turn right ((clone_dir) / (-12)) degrees\n        switch costume to (rogo v)\n    end\n    hide\n    switch costume to (square1 v)\n    set [cloneid v] to [square2]\n    create clone of (_myself_ v)\n    switch costume to (square2 v)\n    set [cloneid v] to [square3]\n    create clone of (_myself_ v)\n    set [cloneid v] to [kirbyzaz]\n    create clone of (_myself_ v)\n    set [cloneid v] to [back3]\n    create clone of (_myself_ v)\n    repeat (8)\n        set [clone_size v] to [50]\n        set [cloneid v] to [square1]\n        create clone of (_myself_ v)\n        set [cloneid v] to [back2]\n        create clone of (_myself_ v)\n        broadcast (\[INTRO\]size v)\n        switch costume to (square1 v)\n        wait (0.561) seconds\n    end\n    broadcast (\[INTRO\]spin v)\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back]> then\n    show\n    set [clone_dir v] to [360]\n    switch costume to (bit v)\n    set size to (1200) %\n    switch costume to (blackbar1 v)\n    repeat until <[175] > (size)>\n        switch costume to (bit v)\n        change size by (((174) - (size)) / (6.9))\n        change [clone_dir v] by (((65) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n        switch costume to (back v)\n    end\n    set [clone_dir v] to [0.5]\n    repeat (15)\n        switch costume to (bit v)\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        switch costume to (back v)\n        turn right ((clone_dir) / (12)) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [b1]> then\n    switch costume to (blackbar1 v)\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    show\n    repeat (10)\n        set size to (100) %\n        go to [front v] layer\n        change [ghost v] effect by (-10)\n    end\n    wait (0.1) seconds\n    repeat until <(timer) > [9]>\n        go to [front v] layer\n        change y by (((125) - (y position)) / (5))\n        switch costume to (blackbar1 v)\n        show\n    end\n    repeat until <(timer) > [10]>\n        go to [front v] layer\n        change y by (((-1) - (y position)) / (5))\n        switch costume to (blackbar1 v)\n        show\n    end\n    broadcast (\[INTRO\]end v)\nend\n\nwhen I start as a clone\nif <(cloneID) = [b2]> then\n    switch costume to (blackbar2 v)\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    show\n    repeat (10)\n        set size to (100) %\n        go to [front v] layer\n        change [ghost v] effect by (-10)\n    end\n    wait (0.1) seconds\n    repeat until <(timer) > [9]>\n        go to [front v] layer\n        change y by (((-125) - (y position)) / (5))\n        switch costume to (blackbar2 v)\n        show\n    end\n    repeat until <(timer) > [10]>\n        go to [front v] layer\n        change y by (((1) - (y position)) / (5))\n        switch costume to (blackbar2 v)\n        show\n    end\nend\n\nwhen flag clicked\ngo to [front v] layer\nswitch backdrop to (背景2 v)\npoint in direction (90)\nreset timer\nwait (0.7) seconds\nhide\nset [cloneid v] to [b1]\ncreate clone of (_myself_ v)\nset [cloneid v] to [b2]\ncreate clone of (_myself_ v)\nwait (0.3) seconds\nset [cloneid v] to [back]\ncreate clone of (_myself_ v)\nset [cloneid v] to [logo]\ncreate clone of (_myself_ v)\nswitch backdrop to (背景3 v)\nstart sound [DEAF KEV - Invincible _NCS Release_ v]\n\nwhen I start as a clone\nif <(cloneID) = [square1]> then\n    go to [back v] layer\n    go [forward v] (3) layers\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    repeat until <(size) > [100]>\n        change size by (((clone_size) - (size)) / (5))\n        turn right (((clone_dir) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by (((clone_size) - (size)) / (5))\n        switch costume to (clone_cos)\n        turn right (((clone_dir) - (direction)) / (5)) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back2]> then\n    switch costume to (back2 v)\n    clear graphic effects\n    set [ghost v] effect to (50)\n    show\n    go to [front v] layer\n    repeat (25)\n        change [ghost v] effect by (2)\n    end\n    hide\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back3]> then\n    go to x: (0) y: (0)\n    show\n    switch costume to (back3 v)\n    set [s v] to [90]\n    show\n    set [clone_dir v] to [90]\n    \n        switch costume to (bit v)\n        set size to (100) %\n        go to [back v] layer\n        change [clone_dir v] by (((s) - (clone_dir)) / (5))\n        point in direction (clone_dir)\n        switch costume to (back3 v)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [square3]> then\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    go to x: (0) y: (0)\n    repeat until <(size) > [100]>\n        change size by ((((clone_size) * ((2.25) * (2.25))) - (size)) / (5))\n        turn right ((((clone_dir) * ((2.25) * (2.25))) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by ((((clone_size) * ((2.25) * (2.25))) - (size)) / (5))\n        turn right ((((clone_dir) * ((2.25) * (2.25))) - (direction)) / (5)) degrees\n        switch costume to (clone_cos)\n        turn right (0.1) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [square2]> then\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    go to x: (0) y: (0)\n    repeat until <(size) > [100]>\n        change size by ((((clone_size) * (2.25)) - (size)) / (5))\n        turn right ((((clone_dir) * (2.25)) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by ((((clone_size) * (2.25)) - (size)) / (5))\n        turn right ((((clone_dir) * (2.25)) - (direction)) / (5)) degrees\n        switch costume to (clone_cos)\n        turn right (0.1) degrees\n    end\n    delete this clone\nend\n\nwhen I receive [\[intro\]size v]\nif < (cloneID) contains [square]?> then\n    if <[350] < (clone_dir)> then\n        set [clone_dir v] to [0]\n    end\n    change [clone_size v] by ((clone_size) * (1.5))\n    change [clone_dir v] by (22.5)\nend\nif <(cloneID) = [back3]> then\n    change [s v] by (90)\nend\n\nwhen I receive [\[intro\]spin v]\nif <<(cloneID) = [b1]> or <(cloneID) = [b2]>> then\n\nwhen I receive [\[intro\]size v]\nif <(cloneID) = [kirbyzaz]> then\n    set [clone_cos v] to (pick random (5) to (10))\n    change size by (30)\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\n    wait (1) seconds\n    broadcast (始まり v)\n    broadcast (表示してくれー v)\nend\n\nwhen I start as a clone\nif <(cloneID) = [kirbyzaz]> then\n    show\n    set [clone_dir v] to [90]\n    point in direction (90)\n    go to x: (0) y: (0)\n    switch costume to (bit v)\n    set size to (200) %\n    switch costume to (yourname v)\n    \n        switch costume to (bit v)\n        change size by (((120) - (size)) / (5))\n        switch costume to (yourname v)\n        go to [front v] layer\n        go [backward v] (2) layers\n    end\nend\n\nwhen I receive [\[intro\]size v]\nif <(cloneID) = [b1]> then\n    set [clone_cos v] to [2]\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\nend\nif <(cloneID) = [b2]> then\n    set [clone_cos v] to [-5]\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\n    broadcast (\[INTRO\]end v)\nend\n\nwhen I receive [\[intro\]end v]\nif <<(cloneID) = [b1]> or <(cloneID) = [b2]>> then\n    wait (1) seconds\n    if <(cloneID) = [b1]> then\n        change y by (1.5)\n        repeat until <(y position) > [200]>\n            switch costume to (back2 v)\n            change y by ((y position) / (3))\n            switch costume to (blackbar1 v)\n        end\n    else\n        change y by (-1.5)\n        repeat until <[-200] > (y position)>\n            switch costume to (back2 v)\n            change y by ((y position) / (3))\n            switch costume to (blackbar2 v)\n        end\n    end\n    delete this clone\nelse\n    hide\n    delete this clone\nend\n\nwhen [timer v] > (0)\nhide\n\nwhen I receive [最後 v]\nstop [other scripts in sprite v]\n\n@Next!\n\nwhen I receive [次！ v]\nhide\nstart sound [High Whoosh v]\nclone [1]\nwait (0.05) seconds\nclone [2]\nwait (0.05) seconds\nclone [3]\nwait (0.05) seconds\nclone [4]\nwait (0.05) seconds\nclone [5]\n\ndefine clone (cloneid)\nswitch costume to (cloneid)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <<(costume [number v]) = [1]> or <<(costume [number v]) = [2]> or <<(costume [number v]) = [3]> or <<(costume [number v]) = [4]> or <(costume [number v]) = [5]>>>>> then\n    go to x: (468) y: (0)\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (7))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    wait (2.2) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [2]> then\n    wait (2.1) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [3]> then\n    wait (2) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [4]> then\n    wait (1.9) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [5]> then\n    wait (1.8) seconds\n    repeat until <[330] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    broadcast (次いくでー v)\n    delete this clone\nend\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n@ぴょん\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (0)\ngo to x: (80) y: (-118)\nwait (0.0001) seconds\ngo to [front v] layer\nshow\n\n@Yzx\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (0)\ngo to [front v] layer\nshow\n\n@ラストの表示\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\ngo to [front v] layer\nhide\nforever\n    if <([costume # v] of [地面 v]) = [11]> then\n        show\n    end\nend\n\n@Love fave\n\nwhen flag clicked\nhide\n\nwhen I receive [表示してくれー v]\nset [costume v] to [0]\nhide\nforever\n    wait (pick random (15) to (20)) seconds\n    switch costume to (costume1 v)\n    go to x: (0) y: (50)\n    show\n    go to [front v] layer\n    start sound [pop v]\n    repeat (9)\n        change y by (-6)\n    end\n    repeat (5)\n        change y by (3)\n    end\n    repeat (5)\n        change y by (-1)\n    end\n    wait (2) seconds\n    repeat (15)\n        change y by (7)\n    end\n    hide\nend\n\nwhen [timer v] > (0)\nhide\n\n@ターボ対策⚡\n\nwhen flag clicked\nhide\ngo to [front v] layer\nset [ターボ対策 v] to [0]\nforever\n    change [ターボ対策 v] by (1)\nend\n\nwhen flag clicked\nhide\ngo to [front v] layer\nset [ターボ対策 v] to [0]\nforever\n    wait (0.000000001) seconds\n    set [ターボ対策 v] to [0]\nend\n\nwhen flag clicked\nforever\n    if <(ターボ対策) > [5]> then\n        wait (0.01) seconds\n        go to [front v] layer\n        show\n        broadcast (最後 v)\n        stop [all v]\n    end\nend\n\n@platformer(1)\n\nwhen [timer v] > (0)\nwait (0.0001) seconds\ngo to [front v] layer\nshow\n\nwhen flag clicked\nhide\n\n@tokyo\n\nwhen flag clicked\nhide\n\nwhen [timer v] > (0)\ngo to [front v] layer\nshow\n\n@送風機\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nhide\nforever\n    if <([costume # v] of [地面 v]) = [4]> then\n        show\n    else\n        hide\n    end\nend\n\n@風\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nhide\nforever\n    if <([costume # v] of [地面 v]) = [4]> then\n        repeat until <not <([costume # v] of [地面 v]) = [4]>>\n            wait (0.1) seconds\n            create clone of (_myself_ v)\n        end\n    else\n        hide\n    end\nend\n\nwhen I start as a clone\nshow\ngo to x: (pick random (11) to (81)) y: (-107)\nrepeat until <(y position) > [0]>\n    change y by (5)\n    next costume\n    if <not <([costume # v] of [地面 v]) = [4]>> then\n        delete this clone\n    end\nend\ndelete this clone\n\n@マグマ\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\n    if <([costume # v] of [地面 v]) = [2]> then\n        show\n        go to x: (-34) y: (-79)\n        set [速度 v] to [0]\n        repeat until <not <([costume # v] of [地面 v]) = [2]>>\n            set [速度 v] to [0]\n            repeat (7)\n                change [速度 v] by (0.4)\n                change y by (速度)\n                if <not <([costume # v] of [地面 v]) = [2]>> then\n                    hide\n                end\n            end\n            set [速度 v] to [0]\n            if <not <([costume # v] of [地面 v]) = [2]>> then\n                hide\n            end\n            wait (0.5) seconds\n            repeat (7)\n                change [速度 v] by (-0.4)\n                change y by (速度)\n                if <not <([costume # v] of [地面 v]) = [2]>> then\n                    hide\n                end\n            end\n            if <not <([costume # v] of [地面 v]) = [2]>> then\n                hide\n            end\n            wait (0.5) seconds\n        end\n    else\n        hide\n    end\nend\n\n@柱\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\n    if <([costume # v] of [地面 v]) = [6]> then\n        show\n        go to x: (46) y: (-110)\n        set [速度 v] to [0]\n        repeat until <not <([costume # v] of [地面 v]) = [6]>>\n            set [速度 v] to [0]\n            repeat (13)\n                change [速度 v] by (0.4)\n                change y by (速度)\n                if <not <([costume # v] of [地面 v]) = [6]>> then\n                    hide\n                end\n            end\n            set [速度 v] to [0]\n            if <not <([costume # v] of [地面 v]) = [6]>> then\n                hide\n            end\n            wait (0.5) seconds\n            repeat (13)\n                change [速度 v] by (-0.4)\n                change y by (速度)\n                if <not <([costume # v] of [地面 v]) = [6]>> then\n                    hide\n                end\n            end\n            if <not <([costume # v] of [地面 v]) = [6]>> then\n                hide\n            end\n            wait (0.5) seconds\n        end\n    else\n        hide\n    end\nend\n\nif <([costume # v] of [地面 v]) = [2]> then\n    show\n    go to x: (-34) y: (-79)\n    set [速度 v] to [0]\n    repeat until <not <([costume # v] of [地面 v]) = [2]>>\n        set [速度 v] to [0]\n        repeat (7)\n            change [速度 v] by (0.4)\n            change y by (速度)\n        end\n        set [速度 v] to [0]\n        wait (0.5) seconds\n        repeat (7)\n            change [速度 v] by (-0.4)\n            change y by (速度)\n        end\n        wait (0.5) seconds\n    end\nelse\n    hide\nend\n\n@柱２\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\n    if <([costume # v] of [地面 v]) = [6]> then\n        show\n        go to x: (180) y: (-47)\n        repeat until <not <([costume # v] of [地面 v]) = [6]>>\n            set [速度２ v] to [0]\n            repeat (13)\n                change [速度２ v] by (0.4)\n                change y by (速度２)\n                if <not <([costume # v] of [地面 v]) = [6]>> then\n                    hide\n                end\n            end\n            set [速度２ v] to [0]\n            if <not <([costume # v] of [地面 v]) = [6]>> then\n                hide\n            end\n            wait (0.6) seconds\n            repeat (13)\n                change [速度２ v] by (-0.4)\n                change y by (速度２)\n                if <not <([costume # v] of [地面 v]) = [6]>> then\n                    hide\n                end\n            end\n            if <not <([costume # v] of [地面 v]) = [6]>> then\n                hide\n            end\n            wait (0.6) seconds\n        end\n    else\n        hide\n    end\nend\n\nif <([costume # v] of [地面 v]) = [2]> then\n    show\n    go to x: (-34) y: (-79)\n    set [速度 v] to [0]\n    repeat until <not <([costume # v] of [地面 v]) = [2]>>\n        set [速度 v] to [0]\n        repeat (7)\n            change [速度 v] by (0.4)\n            change y by (速度)\n        end\n        set [速度 v] to [0]\n        wait (0.5) seconds\n        repeat (7)\n            change [速度 v] by (-0.4)\n            change y by (速度)\n        end\n        wait (0.5) seconds\n    end\nelse\n    hide\nend\n\n@東京タワー\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\ngo to [back v] layer\nhide\nforever\n    if <([costume # v] of [地面 v]) = [8]> then\n        show\n    else\n        hide\n    end\nend\n\n@1桁目\n\nwhen flag clicked\nhide\n\nwhen I receive [タイム v]\nshow\nforever\n    if <(length of (タイム)) = [1]> then\n        switch costume to (letter (1) of (タイム))\n    end\n    if <(length of (タイム)) = [2]> then\n        switch costume to (letter (2) of (タイム))\n    end\n    if <(length of (タイム)) = [3]> then\n        switch costume to (letter (3) of (タイム))\n    end\n    if <(length of (タイム)) = [4]> then\n        switch costume to (letter (4) of (タイム))\n    end\nend\n\nwhen [timer v] > (0)\nhide\n\n@2桁目\n\nwhen flag clicked\nhide\n\nwhen flag clicked\n\nwhen I receive [タイム v]\nshow\nforever\n    if <(length of (タイム)) = [2]> then\n        switch costume to (letter (1) of (タイム))\n    else\n        if <(length of (タイム)) = [3]> then\n            switch costume to (letter (2) of (タイム))\n        else\n            if <(length of (タイム)) = [4]> then\n                switch costume to (letter (3) of (タイム))\n            else\n                switch costume to (0 v)\n            end\n        end\n    end\nend\n\nbroadcast (タイム v)\n\nwhen [timer v] > (0)\nhide\n\n@3桁目\n\nwhen flag clicked\nhide\n\ngo to x: (-25) y: (0)\n\nwhen I receive [タイム v]\nshow\nforever\n    if <(length of (タイム)) = [3]> then\n        switch costume to (letter (1) of (タイム))\n    else\n        if <(length of (タイム)) = [4]> then\n            switch costume to (letter (2) of (タイム))\n        else\n            switch costume to (0 v)\n        end\n    end\nend\n\nwhen [timer v] > (0)\nhide\n\n@1桁目2\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [世界記録 v]\nshow\nforever\n    if <(length of (☁ 世界記録)) = [1]> then\n        switch costume to (letter (1) of (☁ 世界記録))\n    end\n    if <(length of (☁ 世界記録)) = [2]> then\n        switch costume to (letter (2) of (☁ 世界記録))\n    end\n    if <(length of (☁ 世界記録)) = [3]> then\n        switch costume to (letter (3) of (☁ 世界記録))\n    end\n    if <(length of (☁ 世界記録)) = [4]> then\n        switch costume to (letter (4) of (☁ 世界記録))\n    end\nend\n\nbroadcast (世界記録 v)\n\n@2桁目2\n\nwhen [timer v] > (0)\nhide\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nhide\n\nwhen flag clicked\n\nwhen I receive [世界記録 v]\nshow\nforever\n    if <(length of (☁ 世界記録)) = [2]> then\n        switch costume to (letter (1) of (☁ 世界記録))\n    else\n        if <(length of (☁ 世界記録)) = [3]> then\n            switch costume to (letter (2) of (☁ 世界記録))\n        else\n            if <(length of (☁ 世界記録)) = [4]> then\n                switch costume to (letter (3) of (☁ 世界記録))\n            else\n                switch costume to (0 v)\n            end\n        end\n    end\nend\n\n@3桁目2\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [世界記録 v]\nshow\nforever\n    if <(☁ 世界記録) = [3]> then\n        switch costume to (letter (1) of (☁ 世界記録))\n    else\n        if <(length of (☁ 世界記録)) = [4]> then\n            switch costume to (letter (2) of (☁ 世界記録))\n        else\n            switch costume to (0 v)\n        end\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\n    if <([costume # v] of [地面 v]) = [10]> then\n        show\n    else\n        hide\n    end\nend\n\nwhen [timer v] > (0)\nhide\n\n@スプライト2\n\nwhen flag clicked\nhide\n\n