災害プラットフォーマー！/disaster platformer! #games #all

Instructions: [日本語]\n災害が次々に起こる危険な道。それでもプラット君は行くのだ！ゴールするために！\n...めっちゃ頑張りました！ハートと星お願いします！\n（拡散もお願いします！）\n[English]\nA dangerous road where disasters occur one after another. Still, Pratt goes! To the finish line!\n... I worked so hard! Hearts and stars please!\n(Please spread the project!)\n〇クレジット/credit\n背景/background:\n@YY-Hさん（少しアレンジ/a little arrangement)\nNEXT:@gorira0612さん\n〇拡散してくれた人(〆切)/People who spread(finish)\n@doraemon-ks((((((((((((\n@tibitokaさん\n@comet_mahiteruさん\n@Lem777さん\n@penpen-loveさん\n@SKY-companyさん\n@strongman0さん\n@2022ota-13さん\n#games #all #game #all #games #all #game #all #all\n#games #all #game #all #games #all #game #all #all\n#games #all #game #all #games #all #game #all #all\n#games #all #game #all #games #all #game #all #all\n#platformer #disaster #platformer #disaster #platformer \n#platformer #disaster #platformer #disaster #platformer \n#platformer #disaster #platformer #disaster #platformer 

@Stage\n\nwhen flag clicked\nswitch backdrop to (朝 v)\nforever\n    wait (pick random (20) to (30)) seconds\n    next backdrop\nend\n\nwhen flag clicked\nhide variable [☁ fast time v]\nset [タイム v] to [0]\nrepeat until <(ステージ) = [15]>\n    wait (1) seconds\n    change [タイム v] by (1)\nend\nshow variable [☁ fast time v]\nshow variable [死んだ回数/dead times v]\nif <<(☁ fast time) > (タイム)> or <(☁ fast time) = [0]>> then\n    set [☁ fast time v] to (タイム)\nend\n\nwhen flag clicked\nforever\n    play sound [TheFatRat - Unity v] until done\nend\n\n@キャラクター\n\nwhen I start as a clone\nif <key (down arrow v) pressed?> then\n    switch costume to (キャラクター9 v)\nelse\n    switch costume to (キャラクター3 v)\nend\nrepeat (10)\n    change [ghost v] effect by (-5)\n    change size by (-7)\nend\ndelete this clone\n\nwhen I receive [ゲームスタート v]\nset [ステージ v] to [0]\nset [1 v] to [1]\npoint in direction (90)\ngo to x: (-209) y: (-13)\nset [ｘ v] to [0]\nset [ｙ v] to [0]\nset [1 v] to [1]\nset drag mode [not draggable v]\nswitch costume to (キャラクター2 v)\nset size to (100) %\nshow\nset rotation style [left-right v]\nclear graphic effects\nforever\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > [0]>>>> then\n        change [ｘ v] by (1)\n        if <<touching (災害 v)?> and <<([costume # v] of [災害 v]) < [7]> or <([costume # v] of [災害 v]) = [14]>>> then\n            change [ｘ v] by (-0.5)\n        end\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>> then\n        change [ｘ v] by (-1)\n        if <<touching (災害 v)?> and <<([costume # v] of [災害 v]) < [7]> or <([costume # v] of [災害 v]) = [14]>>> then\n            change [ｘ v] by (0.5)\n        end\n    end\n    if <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <<mouse down?> and <(mouse y) < (y position)>>> then\n        switch costume to (キャラクター8 v)\n        if <<touching (災害 v)?> and <<([costume # v] of [災害 v]) < [7]> or <([costume # v] of [災害 v]) = [14]>>> then\n            change y by ((ｙ) * (-2))\n            set [ｙ v] to [0]\n        end\n    end\n    set [ｘ v] to ((ｘ) * (0.9))\n    change x by (ｘ)\n    if <touching (地面 v)?> then\n        if <not <touching color (#875100)?>> then\n            change y by (1)\n        end\n        if <touching (地面 v)?> then\n            if <not <touching color (#875100)?>> then\n                change y by (1)\n            end\n            if <touching (地面 v)?> then\n                if <not <touching color (#875100)?>> then\n                    change y by (1)\n                end\n                if <touching (地面 v)?> then\n                    if <not <touching color (#875100)?>> then\n                        change y by (1)\n                    end\n                    if <touching (地面 v)?> then\n                        if <not <touching color (#875100)?>> then\n                            change y by (1)\n                        end\n                        if <touching (地面 v)?> then\n                            if <not <touching color (#875100)?>> then\n                                change y by (1)\n                            end\n                            if <touching (地面 v)?> then\n                                if <not <touching color (#875100)?>> then\n                                    change y by (1)\n                                end\n                            end\n                            if <touching (地面 v)?> then\n                                change x by ((ｘ) * (-1))\n                                change y by (-5)\n                                if <<<mouse down?> and <[0] < (mouse y)>> or <key (up arrow v) pressed?>> then\n                                    if <(ｘ) > [0]> then\n                                        set [ｘ v] to [-10]\n                                    else\n                                        set [ｘ v] to [10]\n                                    end\n                                    set [ｙ v] to [13]\n                                else\n                                    set [ｘ v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <<<[0] < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n        if <<touching (災害 v)?> and <<([costume # v] of [災害 v]) < [7]> or <([costume # v] of [災害 v]) = [14]>>> then\n            set [ｙ v] to [2]\n        else\n            if <touching (地面 v)?> then\n                start sound [Jump v]\n                set [ｙ v] to [13]\n            end\n        end\n    end\n    change y by (1)\n    change [ｙ v] by (-1)\n    change y by (ｙ)\n    if <touching (地面 v)?> then\n        change y by ((ｙ) * (-1))\n        set [ｙ v] to [0]\n    end\n    if <<touching (災害 v)?> and <<([costume # v] of [災害 v]) < [7]> or <([costume # v] of [災害 v]) = [14]>>> then\n        change y by ((ｙ) * (2))\n        set [ｙ v] to [0]\n    end\n    if <(x position) > [240]> then\n        if <not <([costume # v] of [地面 v]) = [16]>> then\n            go to x: (-209) y: (-13)\n            broadcast (NEXT v)\n            broadcast (クリア v)\n            change [ステージ v] by (1)\n            wait (2) seconds\n            set [ｘ v] to [0]\n        end\n    end\n    if <<touching (とげ・マグマ v)?> or <<touching (災害 v)?> and <<[6] < ([costume # v] of [災害 v])> and <([costume # v] of [災害 v]) < [14]>>>> then\n        set rotation style [all around v]\n        set [ｙ2 v] to [16]\n        set [1 v] to [0]\n        repeat until <(y position) < [-180]>\n            set rotation style [all around v]\n            go to [front v] layer\n            turn right (5) degrees\n            change y by (ｙ2)\n            change [ｙ2 v] by (-1)\n        end\n        point in direction (90)\n        go to [back v] layer\n        set rotation style [left-right v]\n        set [ｘ v] to [0]\n        go to x: (-209) y: (-13)\n        go to [front v] layer\n        set [1 v] to [1]\n        change [死んだ回数/dead times v] by (1)\n        broadcast (リセット v)\n    end\n    if <(y position) < [-175]> then\n        set rotation style [all around v]\n        set [ｙ2 v] to [16]\n        set [1 v] to [0]\n        repeat until <(y position) < [-180]>\n            set rotation style [all around v]\n            go to [front v] layer\n            turn right (5) degrees\n            change y by (ｙ2)\n            change [ｙ2 v] by (-1)\n        end\n        point in direction (90)\n        go to [back v] layer\n        set rotation style [left-right v]\n        set [ｘ v] to [0]\n        go to x: (-209) y: (-13)\n        go to [front v] layer\n        set [1 v] to [1]\n        change [死んだ回数/dead times v] by (1)\n        broadcast (リセット v)\n    end\n    if <touching (ばね v)?> then\n        set [ｙ v] to [19]\n    end\n    if <(x position) < [-241]> then\n        go to x: (-209) y: (-31)\n    end\nend\n\nwhen flag clicked\ngo to [back v] layer\ngo to x: (-209) y: (-31)\n\nwhen flag clicked\nforever\n    if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>>> then\n        switch costume to (キャラクター4 v)\n    else\n        if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n            switch costume to (キャラクター5 v)\n        else\n            switch costume to (キャラクター2 v)\n        end\n    end\n    if <<<<(y position) < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> and <<<(mouse x) < (x position)> and <mouse down?>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>>> then\n        switch costume to (キャラクター7 v)\n    end\n    if <<<<(y position) < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> and <<<(x position) < (mouse x)> and <mouse down?>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>>> then\n        switch costume to (キャラクター6 v)\n    end\nend\n\nwhen I receive [ゲームスタート v]\nforever\n    if <<touching (災害 v)?> and <(item (1) of [起きた災害 v]) = [津波]>> then\n        if <(1) = [1]> then\n            change x by (-10)\n        end\n    end\nend\n\nwhen I receive [ゲームスタート v]\nforever\n    if <(1) = [1]> then\n        create clone of (_myself_ v)\n    end\nend\n\nwhen flag clicked\n\nwhen this sprite clicked\ngo to x: (-209) y: (-30)\n\nwhen [space v] key pressed\ngo to x: (-209) y: (-30)\n\nwhen flag clicked\nbroadcast (ゲームスタート v)\n\nwhen [timer v] > (0.1)\nhide\n\nwhen flag clicked\nset [死んだ回数/dead times v] to [0]\n\n@地面\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset drag mode [not draggable v]\nswitch costume to (1 v)\n\nwhen I receive [クリア v]\ngo to x: (0) y: (0)\nnext costume\n地面が動く\n\nwhen I receive [リセット v]\ngo to x: (0) y: (0)\nwait (1) seconds\n地面が動く\n\ndefine 地面が動く\nif <(ステージ) = [6]> then\n    repeat until <touching (_edge_ v)?>\n        change x by (3)\n    end\n    change x by (-3)\n    repeat until <touching (_edge_ v)?>\n        change x by (-3)\n    end\n    change x by (3)\nend\n\n@とげ・マグマ\n\nwhen flag clicked\nshow variable [タイム v]\nset drag mode [not draggable v]\ngo to x: (0) y: (0)\nswitch costume to (1 v)\ngo to [back v] layer\nshow\n\nwhen I receive [クリア v]\nshow variable [タイム v]\nnext costume\n\n@NEXTだお\n\nwhen I start as a clone\nif <<(costume [name v]) = [1]> or <<(costume [name v]) = [2]> or <<(costume [name v]) = [3]> or <(costume [name v]) = [next]>>>> then\n    set [brightness v] effect to (0)\n    go to [front v] layer\n    set x to (-465)\n    set y to (0)\n    show\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (7))\n    end\n    wait (0.9) seconds\n    delete this clone\nend\nif <<(costume [name v]) = [4]> or <<(costume [name v]) = [5]> or <(costume [name v]) = [6]>>> then\n    go to [front v] layer\n    change [color v] effect by (10)\n    set x to (0)\n    set y to (345)\n    show\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (7))\n    end\nend\nif <<(costume [name v]) = [☆]> or <<(costume [name v]) = [♡]> or <(costume [name v]) = [👤]>>> then\n    set [color v] effect to (0)\n    go to [front v] layer\n    set x to (0)\n    set y to (345)\n    show\n    repeat until <(round (y position)) = [0]>\n        change y by (((0) - (y position)) / (7))\n    end\nend\nif <(costume [name v]) = [4]> then\n    wait (0.3) seconds\n    repeat until <[464] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [5]> then\n    wait (0.2) seconds\n    repeat until <[464] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [6]> then\n    wait (0.1) seconds\n    repeat until <[464] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [♡]> then\n    wait (0.2) seconds\n    repeat until <[319] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [👤]> then\n    wait (0.125) seconds\n    repeat until <[360] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [name v]) = [☆]> then\n    wait (0.2) seconds\n    repeat until <[185] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\n\ndefine クローン (名前)\nswitch costume to (名前)\ncreate clone of (_myself_ v)\n\nwhen I receive [next v]\nhide\nstart sound [High Whoosh v]\nクローン [1]\nwait (0.15) seconds\nクローン [2]\nwait (0.15) seconds\nクローン [3]\nwait (0.15) seconds\nクローン [next]\nwait (0.75) seconds\nクローン [5]\nwait (0.15) seconds\nクローン [6]\nwait (0.15) seconds\nクローン [7]\nクローン [☆]\nクローン [♡]\nクローン [👤]\nchange [color v] effect by (15)\n\nwhen flag clicked\nset [color v] effect to (pick random (-200) to (200))\n\nstart sound [Finger Snap v]\n\n@アラート\n\nwhen I receive [アラームを鳴らす v]\nshow\nrepeat (4)\n    switch costume to (コスチューム1 v)\n    start sound [Alert v]\n    repeat (5)\n        point in direction (90)\n        next costume\n        wait (0.04) seconds\n    end\n    repeat (5)\n        set rotation style [left-right v]\n        point in direction (-90)\n        switch costume to ((costume [number v]) - (1))\n        wait (0.04) seconds\n    end\nend\nhide\n\n@災害マーク\n\nwhen flag clicked\ndelete all of [災害注意報・警報・特別警報 v]\nhide\n\nwhen I receive [ゲームスタート v]\ngo to x: (-32) y: (147)\nset [災害マーク:x座標 v] to [-32]\nset [災害マーク:クローン数 v] to [0]\nforever\n    if <not <(ステージ) = [16]>> then\n        if <(pick random (1) to (3)) = [1]> then\n            set [警戒のランク v] to [注意報]\n            クローン\n        end\n        if <(pick random (1) to (5)) = [1]> then\n            set [警戒のランク v] to [警報]\n            クローン\n        end\n        if <(pick random (1) to (10)) = [1]> then\n            set [警戒のランク v] to [特別警報]\n            クローン\n        end\n        wait (7) seconds\n    end\nend\n\nwhen I start as a clone\nif <[163] < (x position)> then\n    delete this clone\nend\nif <([警戒のランク v] of [災害マーク v]) = [注意報]> then\n    clear graphic effects\n    災害に合う？判定 [1] から [3] までの乱数\nend\nif <([警戒のランク v] of [災害マーク v]) = [警報]> then\n    set [color v] effect to (-30)\n    災害に合う？判定 [1] から [2] までの乱数\nend\nif <([警戒のランク v] of [災害マーク v]) = [特別警報]> then\n    set [color v] effect to (-75)\n    災害に合う？判定 [1] から [1] までの乱数\nend\nchange [災害マーク:クローン数 v] by (-1)\nif <(災害マーク:クローン数) > [0]> then\n    if <((災害マーク:x座標) + (65)) > ((-32) + ((65) * ((災害マーク:x座標) - (1))))> then\n        set [災害マーク:x座標 v] to [-32]\n    else\n        set [災害マーク:x座標 v] to (x position)\n    end\nelse\n    set [災害マーク:x座標 v] to [-32]\nend\ndelete (item # of (costume [name v]) in [災害注意報・警報・特別警報 v]) of [災害注意報・警報・特別警報 v]\nchange [災害マーク:クローン数 v] by (-1)\ndelete this clone\n\ndefine クローン\nrepeat until <not <[災害注意報・警報・特別警報 v] contains (costume [name v])?>>\n    switch costume to (pick random (1) to (7))\nend\nadd (costume [name v]) to [災害注意報・警報・特別警報 v]\nset x to (災害マーク:x座標)\nchange [災害マーク:x座標 v] by (65)\nchange [災害マーク:クローン数 v] by (1)\ncreate clone of (_myself_ v)\n\ndefine 災害に合う？判定 (数1) から (数2) までの乱数\nshow\nrepeat (10)\n    if <(pick random (数1) to (数2)) = [1]> then\n        if <(length of [起きた災害 v]) = [0]> then\n            if <(costume [number v]) = [1]> then\n                broadcast (津波 v)\n            end\n            if <(costume [number v]) = [2]> then\n                broadcast (洪水 v)\n            end\n            if <(costume [number v]) = [3]> then\n                broadcast (がけ崩れ・地すべり v)\n            end\n            if <(costume [number v]) = [4]> then\n                broadcast (ひょう v)\n            end\n            if <(costume [number v]) = [5]> then\n                broadcast (雷 v)\n            end\n            if <(costume [number v]) = [6]> then\n                broadcast (大雨 v)\n            end\n            if <(costume [number v]) = [7]> then\n                broadcast (大雪 v)\n            end\n        end\n    end\n    wait (1) seconds\nend\n\nwhen flag clicked\ndelete all of [起きた災害 v]\n\nbroadcast (津波 v)\nadd [津波] to [災害注意報・警報・特別警報 v]\n\nwhen flag clicked\nforever\n    if <(災害マーク:クローン数) = [0]> then\n        delete all of [災害注意報・警報・特別警報 v]\n    end\nend\n\nif <not <(ステージ) = [16]>> then\nend\n\nif <(pick random (1) to (3)) = [1]> then\n    set [警戒のランク v] to [注意報]\n    クローン\nend\nif <(pick random (1) to (5)) = [1]> then\n    set [警戒のランク v] to [警報]\n    クローン\nend\nif <(pick random (1) to (10)) = [1]> then\n    set [警戒のランク v] to [特別警報]\n    クローン\nend\nwait (7) seconds\n\n@災害\n\nwhen I receive [津波 v]\nswitch costume to (津波1 v)\nクローン [津波]\n\nwhen I start as a clone\nif <(災害:クローンの性質) = [津波]> then\n    clear graphic effects\n    set size to (100) %\n    show\n    set [ghost v] effect to (40)\n    switch costume to (空白 v)\n    set x to (0)\n    repeat (5)\n        wait (0.1) seconds\n        next costume\n    end\n    repeat until <not <[災害注意報・警報・特別警報 v] contains [津波]?>>\n        set y to (0)\n        go to [front v] layer\n        go [backward v] (2) layers\n        change x by (-20)\n        if <(x position) = [-480]> then\n            set x to (0)\n        end\n    end\n    クローン削除\nend\nif <(災害:クローンの性質) = [洪水]> then\n    set y to (pick random (0) to (-100))\n    set size to (pick random (100) to (200)) %\n    switch costume to (空白 v)\n    repeat (5)\n        wait (0.1) seconds\n        next costume\n    end\n    repeat until <not <[災害注意報・警報・特別警報 v] contains [洪水]?>>\n        set x to (-80)\n        go to [front v] layer\n        go [backward v] (2) layers\n        show\n        set [ghost v] effect to (40)\n        switch costume to (津波5・洪水 v)\n    end\n    クローン削除\nend\nif <(災害:クローンの性質) = [がけ崩れ・地すべり]> then\n    clear graphic effects\n    switch costume to (岩 v)\n    repeat until <not <[災害注意報・警報・特別警報 v] contains [崖崩れ・地すべり]?>>\n        set [災害:クローンの性質 v] to [岩石]\n        create clone of (_myself_ v)\n        wait (pick random (0.5) to (1)) seconds\n    end\n    クローン削除\nend\nif <(災害:クローンの性質) = [岩石]> then\n    clear graphic effects\n    go to x: (pick random (-200) to (240)) y: (180)\n    point in direction (pick random (-180) to (180))\n    set size to (pick random (50) to (200)) %\n    show\n    repeat until <<touching (地面 v)?> or <<touching (とげ・マグマ v)?> or <<touching (キャラクター v)?> or <<touching (災害 v)?> or <(y position) < [-179]>>>>>\n        go to x: ((x position) - (3)) y: ((y position) - (10))\n    end\n    delete this clone\nend\nif <(災害:クローンの性質) = [ひょう]> then\n    clear graphic effects\n    switch costume to (ひょう v)\n    repeat until <not <[災害注意報・警報・特別警報 v] contains [ひょう]?>>\n        set [災害:クローンの性質 v] to [ひょうのつぶて]\n        create clone of (_myself_ v)\n        wait (pick random (0.5) to (1)) seconds\n    end\n    クローン削除\nend\nif <(災害:クローンの性質) = [ひょうのつぶて]> then\n    clear graphic effects\n    go to x: (pick random (-200) to (240)) y: (180)\n    point in direction (pick random (-180) to (180))\n    set size to (pick random (30) to (100)) %\n    show\n    repeat until <<touching (地面 v)?> or <<touching (とげ・マグマ v)?> or <<touching (キャラクター v)?> or <<touching (災害 v)?> or <(y position) < [-179]>>>>>\n        go to x: ((x position) - (3)) y: ((y position) - (10))\n    end\n    delete this clone\nend\nif <(災害:クローンの性質) = [雷]> then\n    clear graphic effects\n    switch costume to (雷1 v)\n    repeat until <not <[災害注意報・警報・特別警報 v] contains [雷]?>>\n        set [災害:クローンの性質 v] to [稲妻]\n        create clone of (_myself_ v)\n        wait (pick random (0.5) to (1)) seconds\n    end\n    クローン削除\nend\nif <(災害:クローンの性質) = [稲妻]> then\n    go to x: (pick random (-240) to (240)) y: (10)\n    show\n    clear graphic effects\n    switch costume to (空白2 v)\n    repeat (4)\n        next costume\n        wait (0.1) seconds\n    end\n    change [brightness v] effect by (100)\n    wait (pick random (1) to (2)) seconds\n    clear graphic effects\n    delete this clone\nend\nif <(災害:クローンの性質) = [大雨]> then\n    go to x: (-80) y: (-50)\n    show\n    clear graphic effects\n    switch costume to (津波5・洪水 v)\n    repeat until <not <[災害注意報・警報・特別警報 v] contains [大雨]?>>\n        set [ghost v] effect to (40)\n        雨を降らす\n    end\n    クローン削除\nend\nif <(災害:クローンの性質) = [雨]> then\n    go to x: (pick random (-240) to (240)) y: (180)\n    show\n    clear graphic effects\n    switch costume to (雨 v)\n    repeat until <<touching (地面 v)?> or <<touching (とげ・マグマ v)?> or <<touching (キャラクター v)?> or <(y position) < [-179]>>>>\n        change y by (-20)\n    end\n    delete this clone\nend\nif <(災害:クローンの性質) = [大雪]> then\n    clear graphic effects\n    switch costume to (雪 v)\n    repeat until <not <[災害注意報・警報・特別警報 v] contains [大雪]?>>\n        雪を降らす\n    end\n    delete (1) of [起きた災害 v]\n    クローン削除\nend\nif <(災害:クローンの性質) = [雪]> then\n    go to x: (pick random (-240) to (240)) y: (180)\n    show\n    clear graphic effects\n    switch costume to (雪 v)\n    repeat until <<touching (地面 v)?> or <(y position) < [-179]>>\n        change y by (-20)\n    end\n    wait (pick random (8) to (10)) seconds\n    repeat (5)\n        change [ghost v] effect by (-20)\n    end\n    delete this clone\nend\n\nwhen I receive [がけ崩れ・地すべり v]\nswitch costume to (岩 v)\nクローン [がけ崩れ・地すべり]\n\nwhen I receive [ひょう v]\nswitch costume to (ひょう v)\nクローン [ひょう]\n\ndefine クローン (災害)\nset [災害:クローンの性質 v] to (災害)\ncreate clone of (_myself_ v)\nadd (災害) to [起きた災害 v]\n\nwhen I receive [洪水 v]\nswitch costume to (津波5・洪水 v)\nクローン [洪水]\n\nwhen I receive [大雨 v]\nswitch costume to (雨 v)\nクローン [大雨]\n\nwhen I receive [大雪 v]\nswitch costume to (雪 v)\nクローン [大雪]\n\nwhen I receive [雷 v]\nswitch costume to (雷1 v)\nクローン [雷]\n\ndefine クローン削除\ndelete all of [起きた災害 v]\ndelete this clone\n\ndefine 雨を降らす\nset [災害:クローンの性質 v] to [雨]\ncreate clone of (_myself_ v)\nswitch costume to (津波5・洪水 v)\nif <(y position) < [0]> then\n    change y by (1)\nend\n\ndefine 雪を降らす\nset [災害:クローンの性質 v] to [雪]\ncreate clone of (_myself_ v)\n\nchange [ghost v] effect by (40)\n\nset y to (0)\n\nadd [雷] to [災害注意報・警報・特別警報 v]\nbroadcast (NEXT v)\n\n@ばね\n\nwhen flag clicked\nhide\nforever\n    if <(ステージ) = [3]> then\n        ばねを表示 [-130] [-82] [100]\n    else\n        if <(ステージ) = [4]> then\n            ばねを表示 [-155] [-82] [100]\n        else\n            if <(ステージ) = [8]> then\n                ばねを表示 [0] [-63] [150]\n            else\n                hide\n            end\n        end\n    end\nend\n\ndefine ばねを表示 (x) (y) (大きさ)\nset size to (大きさ) %\nshow\ngo to [back v] layer\ngo to x: (x) y: (y)\nif <(1) = [1]> then\n    if <touching (キャラクター v)?> then\n        repeat until <not <touching (キャラクター v)?>>\n            switch costume to (コスチューム2 v)\n        end\n    else\n        switch costume to (コスチューム1 v)\n    end\nend\n\nwhen flag clicked\nset [ステージ v] to [1]\n\n@看板\n\nwhen I receive [クリア v]\nhide\ngo to [back v] layer\nif <(ステージ) = [9]> then\n    show\n    wait until <touching (キャラクター v)?>\n    if <touching (キャラクター v)?> then\n        しゃべる [あともう少しです！頑張って！]\n        wait (1) seconds\n        しゃべる [避難小屋を用意しておいたのでぜひ使ってください！]\n    end\nend\n\ndefine しゃべる (テキスト)\nset [何文字目 v] to [0]\nset [テキスト v] to []\nrepeat (length of (テキスト))\n    change [何文字目 v] by (1)\n    say (join (テキスト) (letter (何文字目) of (テキスト)))\n    set [テキスト v] to (join (テキスト) (letter (何文字目) of (テキスト)))\n    wait (0.05) seconds\nend\nsay []\n\nbroadcast (ゲームスタート v)\n\nwhen flag clicked\nhide\n\n@サムネ\n\nwhen flag clicked\nhide\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.1)\nhide variable [☁ fast time v]\nhide variable [タイム v]\nhide variable [死んだ回数/dead times v]\ngo to x: (0) y: (350)\nshow\nrepeat (20)\n    change y by (-17.5)\nend\n\n@感謝感謝\n\nwhen flag clicked\nhide\n\nchange [ghost v] effect by (30)\n\n