TNTend platformer- / TNTend×hgwrs16

Instructions: さあ!このゲームに散りばめられた様々な要素を遊びつくそう!\n[この作品の楽しんで欲しい要素]\n1.細かく作ったステージのデザイン\n2.風景と合わせたステージやストーリー\n3.RPG風文字テキスト←時間かかったw\n4.☁クラウドで世界一の火山王\n(一番早くクリアした人)\n5.金曜日、日曜日にやるとタイム-1秒!\n火山王更新のチャンス!\n6.夜や昼によって時間が変わる!\n7.細度まで作ったモーション\n【操作方法】\n↑キー ジャンプ\n左右キー 移動\nkキー 統計情報表示\n※途中まで行くと良質な火山灰が手に入り、\n後ろに戻ります。

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景4 v) and wait\nforever\n    if <<(current [dayofweek v]) = [1]> or <(current [dayofweek v]) = [6]>> then\n        switch backdrop to (背景3 v) and wait\n    else\n        if <<[18] < (current [hour v])> or <(current [hour v]) < [5]>> then\n            switch backdrop to (背景2 v) and wait\n        else\n            switch backdrop to (背景1 v) and wait\n        end\n    end\nend\n\n@samune\n\nwhen flag clicked\nclear graphic effects\n\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [a v]\nswitch backdrop to (背景1 v)\nset [ghost v] effect to (100)\nshow\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nwait (1) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen I receive [start v]\nforever\n    play sound [darkmatter v] until done\nend\n\nset [☁ 世界一の火山王記録 v] to [500]\n\n@スプライト1\n\nwhen flag clicked\nswitch costume to (1 v)\nforever\n    if <touching (mouse-pointer v)?> then\n        if <(costume [number v]) = [3]> then\n            say [話をスキップ Click to skip the story.]\n            set size to (110) %\n        else\n            say [スキップ click to skip.]\n            set size to (110) %\n        end\n    else\n        set size to (100) %\n        say []\n    end\nend\n\nwhen flag clicked\nset [ジャンプ数 v] to [0]\nset [スキップ回数 v] to [0]\nset [モード切替 v] to [0]\nbroadcast (a v)\nhide\n\nwhen I receive [a v]\ngo to x: (185) y: (127)\nwait (1.2) seconds\n\nwhen this sprite clicked\nif <(costume [name v]) = [3]> then\n    broadcast (話終わり v) and wait\n    wait until <not <mouse down?>>\nelse\n    if <(costume [name v]) = [2]> then\n        change [追加score v] by (10)\n        change [ステージ v] by (-2)\n        change [スキップ回数 v] by (1)\n        broadcast (リセット2 v) and wait\n        wait until <not <mouse down?>>\n    else\n        change [追加score v] by (10)\n        change [スキップ回数 v] by (1)\n        broadcast (リセット v) and wait\n        wait until <not <mouse down?>>\n    end\nend\n\nwhen I receive [1チュートリアル終わり v]\nswitch costume to (1 v)\nshow\nset [ghost v] effect to (100)\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\nclear graphic effects\n\nwhen I receive [start v]\nswitch costume to (3 v)\nshow\n\nwhen I receive [話終わり v]\nswitch costume to (1 v)\nshow\nset [ghost v] effect to (100)\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\nclear graphic effects\n\nswitch costume to (1 v)\nshow\nset [ghost v] effect to (100)\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\nclear graphic effects\n\nwhen flag clicked\nforever\n    if <(モード切替) = [1]> then\n        show\n        switch costume to (2 v)\n    end\n    if <<not <(モード切替) = [1]>> and <(火山灰ゲットした？) = [1]>> then\n        show\n        switch costume to (1 v)\n    end\n    if <(ステージ) = [14]> then\n        if <<not <(モード切替) = [1]>> and <not <(火山灰ゲットした？) = [1]>>> then\n            switch costume to (2 v)\n            hide\n        end\n    end\nend\n\nwhen flag clicked\nset [1 v] to [0]\nhide variable [統計情報a v]\nhide variable [統計情報b v]\nhide variable [統計情報c v]\nforever\n    set [統計情報a v] to (join (join [ 統計情報 スキップした回数:] (スキップ回数)) [ ])\n    set [統計情報b v] to (join (join [ジャンプ回数:] (ジャンプ数)) [ ])\n    set [統計情報c v] to (join (join [☁火山王:] (☁ 世界一の火山王記録)) (join [ ] (join [スコア:] (score))))\nend\n\nwhen flag clicked\nswitch costume to (1 v)\nforever\n    if <touching (mouse-pointer v)?> then\nend\n\nwhen [k v] key pressed\nif <(1) = [0]> then\n    show variable [統計情報a v]\n    show variable [統計情報b v]\n    show variable [統計情報c v]\n    set [1 v] to [1]\nelse\n    hide variable [統計情報a v]\n    hide variable [統計情報b v]\n    hide variable [統計情報c v]\n    set [1 v] to [0]\nend\nwait until <not <key (k v) pressed?>>\n\nwhen flag clicked\nforever\n    if <<([costume # v] of [地面 v]) = [1]> and <<(ステージ) = [1]> and <(モード切替) = [1]>>> then\n        hide\n    end\nend\n\nshow variable [score v]\n\n@地面\n\nwhen I receive [a v]\nswitch costume to (1 v)\nwait (1.5) seconds\ngo to [back v] layer\nshow\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [ステージ v] to [1]\nhide\n\nwhen I receive [リセット v]\nif <not <<(火山灰ゲットした？) = [1]> and <(ステージ) = [1]>>> then\n    go to x: (0) y: (0)\n    change [ステージ v] by (1)\n    next costume\n    if <(ステージ) = [14]> then\n        broadcast (火山灰 v)\n    end\nend\nwait (0.01) seconds\nif <<([costume # v] of [地面 v]) = [1]> and <<(ステージ) = [1]> and <(モード切替) = [1]>>> then\n    start sound [people-stadium-cheer1 v]\nend\n\nwhen I receive [リセット2 v]\nif <not <<(火山灰ゲットした？) = [1]> and <<(ステージ) = [1]> and <(costume [number v]) = [1]>>>> then\n    go to x: (0) y: (0)\n    change [ステージ v] by (1)\n    switch costume to ((costume [number v]) - (1))\n    if <(ステージ) = [14]> then\n        broadcast (火山灰 v)\n    end\nend\n\n@スプライト4\n\ndefine clone\nstart sound [sceneswitch1 v]\nset [color v] effect to (0)\nrepeat (5)\n    change [color v] effect by (5)\n    create clone of (_myself_ v)\n    wait (0.05) seconds\nend\n\nwhen I start as a clone\ngo to x: (-150) y: (0)\nswitch costume to (コスチューム2 v)\nset [ghost v] effect to (0)\ngo to [front v] layer\nshow\nrepeat until <[499] < (x position)>\n    change [color v] effect by (2)\n    change [brightness v] effect by (1)\n    change x by (50)\nend\ndelete this clone\n\nwhen I receive [リセット v]\nclone\n\nwhen I receive [リセット2 v]\nclone\n\n@player\n\nwhen flag clicked\ngo to [front v] layer\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nset [y v] to [0]\nset [ステージ v] to [1]\npoint in direction (90)\n\nwhen flag clicked\ngo to x: (-217) y: (-100)\n\nwhen I receive [メッセージ1 v]\nif <(前へ後ろへ) = [1]> then\n    if <<(ステージ) = [2]> or <(ステージ) = [13]>> then\n        glide (0.3) secs to x: (219) y: (83)\n    else\n        glide (0.3) secs to x: (219) y: (-101)\n    end\nelse\n    glide (0.3) secs to x: (-217) y: (-100)\nend\n\nwhen I receive [リセット v]\nbroadcast (メッセージ1 v)\n\nwhen flag clicked\ngo to [front v] layer\nwait (0.01) seconds\nforever\n    if <touching (テレポーテーション v)?> then\n        wait until <touching (テレポーテーション v)?>\n        start sound [magic-worp1 v]\n        go to (テレポーテーション2 v)\n        broadcast (7 v)\n        wait until <not <touching (テレポーテーション2 v)?>>\n    end\n    if <touching (テレポーテーション2 v)?> then\n        wait until <touching (テレポーテーション2 v)?>\n        start sound [magic-worp1 v]\n        go to (テレポーテーション v)\n        broadcast (6 v)\n        wait until <not <touching (テレポーテーション v)?>>\n    end\nend\n\nwhen I receive [メッセージ1 v]\nstart sound [strike1 v]\n\nwhen I receive [3 v]\nstart sound [puyon1 v]\n\nwhen flag clicked\nhide\n\nwhen I receive [a v]\nwait (1.5) seconds\nbroadcast (START v)\n\nwhen I receive [start v]\nshow\nforever\n    if <<touching (マグマ v)?> or <touching (降ってきた火山灰 v)?>> then\n        broadcast (メッセージ1 v)\n        broadcast (4 v)\n        wait (0.3) seconds\n    end\n    if <<touching (スライム v)?> or <touching color (#00f03f)?>> then\n        set [y v] to [15]\n        broadcast (3 v)\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <(前へ後ろへ) = [0]> then\n        if <[239] < (x position)> then\n            if <(文字終わり) = [1]> then\n                if <not <([costume # v] of [地面 v]) = [19]>> then\n                    set x to (-217)\n                    switch backdrop to (背景1 v)\n                    start sound [sceneswitch1 v]\n                    broadcast (リセット v)\n                end\n            end\n        end\n    else\n        if <(x position) < [-244]> then\n            if <<(文字終わり) = [1]> or <[] = [1]>> then\n                if <not <([costume # v] of [地面 v]) = [19]>> then\n                    set x to (-190)\n                    change [ステージ v] by (-2)\n                    switch backdrop to (背景1 v)\n                    start sound [sceneswitch1 v]\n                    broadcast (リセット2 v)\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <not <<color (#232323) is touching (#d57878)?> and <touching (地面 v)?>>> then\n        if <<key (right arrow v) pressed?> or <<<(x position) < (mouse x)> and <mouse down?>> and <not <(マウス触れてます) = [1]>>>> then\n            change [x v] by (0.75)\n            switch costume to (コスチューム1 v)\n        end\n    end\n    if <not <<color (#232323) is touching (#d57878)?> and <touching (地面 v)?>>> then\n        if <<key (left arrow v) pressed?> or <<<(mouse x) < (x position)> and <mouse down?>> and <not <(マウス触れてます) = [1]>>>> then\n            change [x v] by (-0.75)\n            switch costume to (コスチューム1 v)\n        end\n    end\nend\n\nwhen I receive [start v]\nswitch backdrop to (背景1 v)\ngo to [front v] layer\nforever\n    change [y v] by (-0.5)\n    set [x v] to ((X) * (0.9))\n    change x by (X)\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                                if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n                                    set [y v] to [10]\n                                    if <(X) > [0]> then\n                                        set [x v] to [-10]\n                                    else\n                                        set [x v] to [10]\n                                    end\n                                else\n                                    change x by ((X) * (-1))\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 by (Y)\n    if <touching (地面 v)?> then\n        change y by ((Y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-0.5)\n    if <<<touching (地面 v)?> and <key (up arrow v) pressed?>> or <<touching (地面 v)?> and <<<(y position) < (mouse y)> and <mouse down?>> and <not <(マウス触れてます) = [1]>>>>> then\n        start sound [puyon1 v]\n        change [ジャンプ数 v] by (1)\n        set [y v] to [12]\n    end\n    change y by (0.5)\nend\n\nwhen I start as a clone\nsay []\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    wait (0.05) seconds\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nforever\n    if <(y position) < [-150]> then\n        broadcast (メッセージ1 v)\n        wait (0.3) seconds\n    end\nend\n\nwhen flag clicked\nset [前へ後ろへ v] to [0]\n\nwhen I receive [獲得！ v]\nsay [良質な火山灰を手に入れた！さあ戻ろう。] for (2) seconds\n\nwhen I receive [リセット v]\nsay []\n\nset [文字終わり v] to [1]\n\nwhen I receive [リセット2 v]\nsay []\n\nwhen I receive [リセット2 v]\nbroadcast (メッセージ1 v)\n\n@マグマ\n\nwhen flag clicked\nforever\n    if <(ステージ) = [3]> then\n        switch costume to (1 v)\n        go to x: (-12) y: (-187)\n        show\n    else\n        if <(ステージ) = [4]> then\n            switch costume to (4 v)\n            go to x: (-10) y: (-190)\n            show\n        else\n            hide\n        end\n    end\nend\n\n@スプライト2\n\nwhen flag clicked\nset volume to (100) %\nhide variable [標示世界記録 v]\nswitch costume to (コスチューム1 v)\nhide\nforever\n    if <<([costume # v] of [地面 v]) = [1]> and <<(ステージ) = [1]> and <(モード切替) = [1]>>> then\n        if <(score) < (☁ 世界一の火山王記録)> then\n            set [☁ 世界一の火山王記録 v] to (score)\n        end\n        show variable [標示世界記録 v]\n        switch costume to (コスチューム1 v)\n        show\n        broadcast (oto2 v) and wait\n    else\n        hide\n    end\nend\n\nwhen flag clicked\nforever\n    set [標示世界記録 v] to (join [☁世界一の火山王の記録:] (☁ 世界一の火山王記録))\nend\n\nwhen flag clicked\nset [追加score v] to [0]\nreset timer\nwait (1) seconds\nreset timer\nforever\n    if <not <<([costume # v] of [地面 v]) = [1]> and <<(ステージ) = [1]> and <(モード切替) = [1]>>>> then\n        if <<(current [dayofweek v]) = [1]> or <(current [dayofweek v]) = [6]>> then\n            set [score v] to (((timer) - (1)) + (追加score))\n        else\n            set [score v] to ((timer) + (追加score))\n        end\n    end\nend\n\nwhen I receive [oto2 v]\nplay sound [people-stadium-cheer1 v] until done\nset volume to (0) %\n\n@爆弾\n\nwhen I start as a clone\nif <<([costume # v] of [地面 v]) = [1]> and <<(ステージ) = [1]> and <(モード切替) = [1]>>> then\n    go to [front v] layer\n    show\n    clear graphic effects\n    go to x: (pick random (-224) to (237)) y: (206)\n    repeat until <<touching (地面 v)?> or <(y position) < [-200]>>\n        change y by (-11)\n    end\n    if <(pick random (1) to (4)) = [1]> then\n        start sound [bomb1 v]\n    else\n        start sound [bomb2 v]\n    end\n    repeat (5)\n        change [brightness v] effect by (-20)\n        change [ghost v] effect by (20)\n    end\n    clear graphic effects\n    hide\n    set [岩x v] to (x position)\n    set [岩y v] to (y position)\n    broadcast (爆発 v)\n    delete this clone\nelse\n    delete this clone\nend\n\nwhen flag clicked\nhide\nforever\n    if <<([costume # v] of [地面 v]) = [1]> and <<(ステージ) = [1]> and <(モード切替) = [1]>>> then\n        wait (pick random (1) to (2)) seconds\n        switch costume to (pick random (1) to (5))\n        create clone of (_myself_ v)\n    end\nend\n\nwhen flag clicked\ndelete this clone\n\n@降ってきた火山灰\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nclear graphic effects\ngo to x: (pick random (-224) to (237)) y: (206)\nrepeat until <<touching (地面 v)?> or <(y position) < [-200]>>\n    change y by (-11)\nend\nif <(pick random (1) to (4)) = [1]> then\n    start sound [wall-destruction1 v]\nelse\n    start sound [punch-real3 v]\nend\nrepeat (5)\n    change [brightness v] effect by (20)\n    change [ghost v] effect by (20)\nend\nclear graphic effects\nhide\nset [岩x v] to (x position)\nset [岩y v] to (y position)\nbroadcast (岩割れる v)\ndelete this clone\n\nwhen I receive [a v]\nforever\n    if <not <<(ステージ) = [1]> or <(ステージ) = [11]>>> then\n        wait (pick random (1) to (12)) seconds\n        switch costume to (pick random (1) to (3))\n        create clone of (_myself_ v)\n    end\n    if <(ステージ) = [11]> then\n        wait (pick random (0.5) to (2)) seconds\n        switch costume to (pick random (1) to (3))\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nwait until <not <touching (player v)?>>\nwait until <touching (player v)?>\nset [岩x v] to (x position)\nset [岩y v] to (y position)\nbroadcast (岩割れる v)\nwait (0.01) seconds\ndelete this clone\n\n@岩の散りもの\n\nwhen I start as a clone\n動作\n\nwhen I receive [岩割れる v]\nclone\n\ndefine 動作\ngo to [front v] layer\nshow\ngo to x: (岩x) y: (岩y)\nset [brightness v] effect to (pick random (0) to (15))\nset [color v] effect to (pick random (0) to (5))\nif <(pick random (1) to (2)) = [1]> then\n    point in direction (pick random (50) to (100))\nelse\n    point in direction (pick random (-50) to (-100))\nend\nrepeat (4)\n    turn right (pick random (-3) to (3)) degrees\n    move (4) steps\n    change y by (pick random (-1) to (4))\n    if <touching (地面 v)?> then\n        delete this clone\n    end\nend\nrepeat (6)\n    turn right (pick random (-3) to (3)) degrees\n    move (5) steps\n    change y by (pick random (1) to (-10))\n    if <touching (地面 v)?> then\n        delete this clone\n    end\nend\nrepeat (3)\n    change [ghost v] effect by (33)\nend\ndelete this clone\n\nwhen flag clicked\nset [岩x v] to [0]\nset [岩y v] to [0]\n\ndefine clone\nrepeat (pick random (12) to (8))\n    create clone of (_myself_ v)\nend\n\n@テルテルの文字\n\nwhen flag clicked\nclear graphic effects\nhide\n\nwhen I receive [start v]\nswitch costume to (1 v)\n表示\nbroadcast (クリックでスキップ v) and wait\nrepeat (10)\n    change [ghost v] effect by (10)\n    change [pixelate v] effect by (10)\nend\n\ndefine 表示\nif <not <<(ステージ) = [4]> or >> then\n    go to x: (0) y: (76)\n    set [ghost v] effect to (100)\n    set [pixelate v] effect to (100)\n    go to [front v] layer\n    show\n    set [滑らか v] to [-9]\n    start sound [High Whoosh v]\n    if <(costume [number v]) = [5]> then\n        switch costume to (7 v)\n    end\n    repeat (21)\n        change [ghost v] effect by (-5)\n        change [pixelate v] effect by (-5)\n        set [滑らか v] to ((滑らか) / (1.1))\n        change y by (滑らか)\n    end\n    clear graphic effects\n    if <not <(costume [number v]) = [6]>> then\n        if <[6] < (costume [number v])> then\n            if <not <(ステージ) = [3]>> then\n                if <not <(costume [number v]) = [7]>> then\n                    if <<(ステージ) = [1]> and <(火山灰ゲットした？) = [1]>> then\n                        next costume\n                    else\n                        if <<(ステージ) = [1]> and <(火山灰ゲットした？) = [1]>> then\n                            switch costume to (21 v)\n                        end\n                    end\n                end\n            end\n        end\n        if <(costume [number v]) = [7]> then\n            wait (1) seconds\n            broadcast (クリックでスキップ v)\n            wait (1) seconds\n            show\n        end\n    end\n    if <(costume [number v]) = [8]> then\n        broadcast (1チュートリアル終わり v)\n        set [a v] to [1]\n        set [文字終わり v] to [1]\n        show\n        clear graphic effects\n        wait (0.5) seconds\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        wait (0.01) seconds\n        hide\n        next costume\n    end\nend\n\nwhen I receive [次の文 v]\nif <not <(costume [number v]) = [1]>> then\n    broadcast (gamenn v)\nend\nif <(1回？それ以上？) = [0]> then\n    if <not <(costume [number v]) = [6]>> then\n        wait (0.5) seconds\n        next costume\n        表示\n        broadcast (クリックでスキップ v)\n    end\nelse\n    start sound [High Whoosh v]\n    set [文字終わり v] to [1]\n    show\n    clear graphic effects\n    wait (0.5) seconds\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    wait (0.01) seconds\n    hide\nend\n\nwhen this sprite clicked\nwait until <(A) = [0]>\nwait until <not <mouse down?>>\nif <(A) = [0]> then\n    set [a v] to [1]\n    broadcast (次の文 v) and wait\nend\n\nwhen flag clicked\nset [a v] to [1]\n\nwhen flag clicked\nset [1回？それ以上？ v] to [0]\nif <touching (mouse-pointer v)?> then\n    set [マウス触れてます v] to [1]\nelse\n    set [マウス触れてます v] to [0]\nend\n\nif <(costume [number v]) = [6]> then\n    broadcast (1チュートリアル終わり v)\n    set [文字終わり v] to [1]\n    show\n    clear graphic effects\n    wait (0.5) seconds\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    wait (0.01) seconds\n    hide\n    next costume\n    next costume\nend\n\nwhen flag clicked\nwait (0.01) seconds\nif <([costume # v] of [地面 v]) = [1]> then\n    set [1回？それ以上？ v] to [0]\nend\nforever\n    if <([costume # v] of [地面 v]) = [2]> then\n        set [1回？それ以上？ v] to [1]\n    end\nend\n\nset [文字終わり v] to [0]\n\n表示\n\nnext costume\n\nwhen I receive [表示moji v]\nclear graphic effects\nshow\n\nwhen I receive [リセット v]\nstart sound [High Whoosh v]\nset [文字終わり v] to [1]\nshow\nclear graphic effects\nset [ghost v] effect to (100)\nwait (0.01) seconds\n\nset [a v] to [0]\n\nwhen I receive [話終わり v]\nset [a v] to [1]\nswitch costume to (5 v)\nstart sound [High Whoosh v]\nset [文字終わり v] to [1]\nshow\nclear graphic effects\nwait (0.5) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nwait (0.01) seconds\nhide\n\nwhen flag clicked\nset [火山灰ゲットした？ v] to [0]\n\nwhen flag clicked\nforever\n    if <touching (mouse-pointer v)?> then\n        set [マウス触れてます v] to [1]\n    else\n        set [マウス触れてます v] to [0]\n    end\nend\n\n@スプライト5\n\ndefine 伸縮\nif <(文字終わり) = [1]> then\n    hide\nend\nif <(文字終わり) = [0]> then\n    show\n    clear graphic effects\n    go to [front v] layer\n    go to x: (71) y: (100)\n    set size to (75) %\n    repeat until <(A) = [1]>\n        repeat (14)\n            change size by (0.5)\n            if <(A) = [1]> then\n                hide\n                stop [this script v]\n            end\n            broadcast (表示moji v)\n        end\n        wait (0.1) seconds\n        repeat (14)\n            change size by (-0.5)\n            if <(A) = [1]> then\n                hide\n                stop [this script v]\n            end\n        end\n        wait (0.1) seconds\n    end\nend\n\nwhen I receive [次の文 v]\nhide\n\nwhen I receive [クリックでスキップ v]\nif <(文字終わり) = [1]> then\n    set [a v] to [1]\n    hide\nend\nif <(文字終わり) = [0]> then\n    set [a v] to [0]\n    wait (0.01) seconds\n    wait until <(A) = [0]>\n    伸縮\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    hide\nend\n\nwhen flag clicked\nset [文字終わり v] to [0]\nset [a v] to [0]\nhide\n\nhide\n\nwhen I receive [栗好き2 v]\nwait (0.01) seconds\n伸縮\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nhide\n\nbroadcast (栗好き2 v)\n\ndefine 伸縮2\nif <(文字終わり) = [1]> then\n    hide\nend\nif <(文字終わり) = [0]> then\n    show\n    clear graphic effects\n    go to [front v] layer\n    go to x: (71) y: (100)\n    set size to (75) %\n    repeat until <(A) = [1]>\n        repeat (14)\n            change size by (0.5)\n            if <(A) = [1]> then\n                hide\n                stop [this script v]\n            end\n        end\n        wait (0.1) seconds\n        repeat (14)\n            change size by (-0.5)\n            if <(A) = [1]> then\n                hide\n                stop [this script v]\n            end\n        end\n        wait (0.1) seconds\n    end\nend\n\n@綺麗な火山灰\n\nwhen I receive [火山灰 v]\ngo to x: (140) y: (-74)\ngo to [front v] layer\ngo [backward v] (1) layers\nclear graphic effects\nshow\nwait until <touching (player v)?>\nset [火山灰ゲットした？ v] to [1]\nset [前へ後ろへ v] to [1]\nset [モード切替 v] to [1]\nbroadcast (獲得！ v)\nstart sound [Collect v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [リセット v]\nif <(ステージ) = [14]> then\n    show\nend\nif <not <(ステージ) = [14]>> then\n    hide\nend\n\n@爆発\n\nwhen flag clicked\nswitch costume to (explode-05-june\[2 v)\nhide\n\nwhen I receive [爆発 v]\ngo to x: (岩x) y: (岩y)\nswitch costume to (explode-05-june\[2 v)\nshow\nrepeat (25)\n    next costume\nend\nhide\n\n@ソフト ターボストップ\n\n@ソフト ターボストップ2\n\nwhen flag clicked\nforever\n    set [ターボ対策 v] to [0]\n    wait (1) seconds\nend\n\nwhen flag clicked\nset [ターボ対策 v] to [0]\nwait (1) seconds\n\nwhen flag clicked\nset [ターボ対策 v] to [0]\nforever\n    repeat (50)\n        change [ターボ対策 v] by (1)\n        start sound [ポップ v]\n        wait (0) seconds\n    end\nend\n\nwhen flag clicked\nforever\n    if <[39] < (ターボ対策)> then\n        set [ターボ対策 v] to [0]\n        broadcast (最後 v)\n        stop [all v]\n    end\nend\n\nset [☁ 世界一の火山王記録 v] to [500]\n\n