Snow platformer/雪のプラットフォーマー

Instructions: 日本語は下⇓\nMethod of operation\n\nOperate with arrow keys, WASD key, or screen tap\n\nIf you touch or fall, it will be returned to the initial position. Also, the icicle moves\n\nEven if you touch it from below, it will be returned to the initial position\n\nYou can jump high when you touch the spring\n\nPlease be careful as it will slip on the ice\n\n操作方法\n\n矢印キー、WASDキー、または画面タップで操作する\n\n棘に触れたり落下すると初期位置に戻されます。また、氷柱が動い\n\nているときに下から触れてしまっても初期位置に戻されます\n\nバネに触れると高くジャンプできます\n\n氷の上にのると滑るので気をつけてください

@Stage\n\nwhen I receive [start v]\nset volume to (80) %\nforever\n    play sound [You_and_Me v] until done\nend\n\nwhen I receive [start v]\nhide variable [time v]\nhide variable [☁ world record v]\nset [time v] to [0]\nset [☁ world record v] to [80]\nrepeat until <(ステージ) = [19]>\n    change [time v] by (0.1)\n    wait (0.1) seconds\nend\nwait (2.5) seconds\nshow variable [time v]\nshow variable [☁ world record v]\n\nwhen I receive [start v]\nforever\n    if <(ステージ) = [19]> then\n        if <(time) < (☁ World record)> then\n            set [☁ world record v] to (time)\n        else\n            set [☁ world record v] to (☁ World record)\n        end\n    end\nend\n\nwhen flag clicked\nswitch backdrop to (背景2 v)\nwait (8.2) seconds\nbroadcast (START v)\nswitch backdrop to (背景1 v)\n\nwhen flag clicked\nhide variable [time v]\nhide variable [☁ world record v]\nset [time v] to [0]\nset [☁ world record v] to [80]\n\n@Player\n\nwhen I receive [動いていいよ v]\nif <(ステージ) = [17]> then\n    go to x: (-200) y: (150)\n    show\nelse\n    go to x: (-200) y: (20)\n    show\nend\n\ndefine ミス\nbroadcast (i v)\nstart sound [Rip v]\nset [x v] to [0]\nset [y v] to [0]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nif <(ステージ) = [17]> then\n    go to x: (-200) y: (150)\nelse\n    go to x: (-200) y: (20)\nend\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nset [ステージ v] to [1]\npoint in direction (90)\nswitch costume to (コスチューム v)\nset size to (60) %\nshow\nhide variable [x v]\nhide variable [y v]\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-200) y: (40)\nforever\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > [0]>>> then\n        change [x v] by (1.1)\n        switch costume to (player右 v)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>> then\n        change [x v] by (-1)\n        switch costume to (player左 v)\n    end\n    if <not <<<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [０]>>> or <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <[０] < (mouse x)>>>>> then\n        switch costume to (player v)\n    end\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> then\n        switch costume to (player上 v)\n    end\n    if <<<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> and <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > [0]>>>> then\n        switch costume to (player上右 v)\n    end\n    if <<<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> and <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>>> then\n        switch costume to (player上左 v)\n    end\n    set [x v] to ((x) * (0.89))\n    change x by (x)\n    if <<<touching (stage v)?> or <touching (氷 v)?>> or <touching (つらら v)?>> then\n        change y by (1)\n        if <<<touching (stage v)?> or <touching (氷 v)?>> or <touching (つらら v)?>> then\n            change y by (1)\n            if <<<touching (stage v)?> or <touching (氷 v)?>> or <touching (つらら v)?>> then\n                change y by (1)\n                if <<<touching (stage v)?> or <touching (氷 v)?>> or <touching (つらら v)?>> then\n                    change y by (1)\n                    if <<<touching (stage v)?> or <touching (氷 v)?>> or <touching (つらら v)?>> then\n                        change y by (1)\n                        if <<<touching (stage v)?> or <touching (氷 v)?>> or <touching (つらら v)?>> then\n                            change y by (1)\n                            if <<<touching (stage v)?> or <touching (氷 v)?>> or <touching (つらら v)?>> then\n                                change x by ((x) * (-1))\n                                change y by (-6)\n                                if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> then\n                                    if <(x) > [0]> then\n                                        set [x v] to [-7]\n                                    else\n                                        set [x v] to [7]\n                                    end\n                                    set [y v] to [14]\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <<<touching (stage v)?> or <touching (氷 v)?>> or <touching (つらら v)?>> then\n        if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> then\n            start sound [パパッ v]\n            set [y v] to [14]\n        end\n    end\n    change y by (1)\n    change [y v] by (-1)\n    change y by (y)\n    if <<<touching (stage v)?> or <touching (氷 v)?>> or <touching (つらら v)?>> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    if <(x position) > [240]> then\n        go to x: (-200) y: (20)\n        set [x v] to [0]\n        set [y v] to [0]\n        broadcast (next v) and wait\n    end\n    if <<<(y position) < [-180]> or <touching (障害物 v)?>> or <<touching (つらら v)?> and <(Player y) < ([y position v] of [つらら v])>>> then\n        ミス\n    end\n    if <touching (判定 v)?> then\n        change [x v] by (pick random (1) to (-1))\n        if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > [0]>>> then\n            change [x v] by (1)\n        end\n        if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>> then\n            change [x v] by (-1)\n        end\n    end\n    if <touching (バネ v)?> then\n        set [y v] to [18]\n    end\nend\n\nwhen I receive [start v]\nforever\n    set [player y v] to (y position)\n    set [player x v] to (x position)\nend\n\n@stage\n\nwhen flag clicked\nhide\n\nwhen I receive [next v]\nchange [ステージ v] by (1)\nif <(ステージ) = [12]> then\n    broadcast (つらら v)\nend\nif <(ステージ) = [15]> then\n    broadcast (バネ v)\nend\n\nwhen I receive [start v]\nshow\nswitch costume to (コスチューム1 v)\nforever\n    switch costume to (ステージ)\nend\n\n@雪\n\nwhen I start as a clone\ngo to [back v] layer\nswitch costume to (pick random (1) to (3))\nset [a v] to (pick random (1) to (3))\nset size to (pick random (20) to (80)) %\nset [ghost v] effect to (pick random (30) to (50))\nshow\nif <(a) = [1]> then\n    go to x: (pick random (400) to (0)) y: (200)\nend\nif <(a) = [2]> then\n    go to x: (pick random (0) to (-270)) y: (200)\nend\nif <(a) = [3]> then\n    go to x: (pick random (400) to (-270)) y: (200)\nend\nrepeat until <(y position) < [-170]>\n    change y by (-3)\n    change x by (-1)\n    turn right (3) degrees\nend\ndelete this clone\n\nwhen I receive [start v]\nhide\nforever\n    create clone of (_myself_ v)\nend\n\n@NEXT\n\nwhen flag clicked\nhide\n\nwhen I receive [next v]\nclone [1]\nwait (0.2) seconds\nclone [2]\nwait (0.2) seconds\nclone [3]\nwait (0.2) seconds\nclone [4]\nwait (2.4) seconds\nbroadcast (動いていいよ v)\n\nwhen I start as a clone\nhide\ngo to [front v] layer\nif <(clone) = [1]> then\n    start sound [High Whoosh v]\n    go to x: (-488) y: (0)\n    switch costume to (コスチューム4 v)\n    show\n    go to [front v] layer\n    clear graphic effects\n    point in direction (90)\n    repeat (50)\n        change x by (((-1) - (x position)) / (6))\n    end\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\nif <(clone) = [2]> then\n    go to x: (-488) y: (0)\n    switch costume to (コスチューム2 v)\n    show\n    go to [front v] layer\n    clear graphic effects\n    point in direction (90)\n    repeat (50)\n        change x by (((-1) - (x position)) / (6))\n    end\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\nif <(clone) = [3]> then\n    go to x: (-488) y: (0)\n    switch costume to (コスチューム3 v)\n    show\n    go to [front v] layer\n    point in direction (90)\n    clear graphic effects\n    repeat (50)\n        change x by (((-1) - (x position)) / (6))\n    end\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\nif <(clone) = [4]> then\n    go to x: (-488) y: (0)\n    switch costume to (コスチューム1 v)\n    show\n    go to [front v] layer\n    point in direction (90)\n    clear graphic effects\n    repeat (50)\n        change x by (((-1) - (x position)) / (6))\n    end\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\ndefine clone (id)\nset [clone v] to (id)\ncreate clone of (_myself_ v)\n\n@氷\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム1 v)\ngo to [front v] layer\nforever\n    switch costume to (ステージ)\nend\n\n@障害物\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nforever\n    switch costume to (ステージ)\nend\n\n@つらら\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nforever\n    switch costume to (ステージ)\nend\n\nwhen I start as a clone\nif <(つららclone) = [1]> then\n    set [つらら v] to [0]\n    set size to (100) %\n    show\n    repeat (10)\n        change x by (2)\n        wait (0.05) seconds\n        change x by (-2)\n        wait (0.05) seconds\n    end\n    set [つらら v] to [1]\n    repeat (27)\n        change y by (((-170) - (y position)) / (13))\n    end\n    set [つらら v] to [0]\nend\nif <(つららclone) = [2]> then\n    set [つらら v] to [0]\n    set size to (150) %\n    show\n    wait until <[-20] < (Player x)>\n    repeat (10)\n        change x by (2)\n        wait (0.05) seconds\n        change x by (-2)\n        wait (0.05) seconds\n    end\n    set [つらら v] to [1]\n    repeat (27)\n        change y by (((-170) - (y position)) / (13))\n    end\n    set [つらら v] to [0]\nend\nif <(つららclone) = [3]> then\n    set [つらら v] to [0]\n    set size to (150) %\n    show\n    wait until <[-50] < (Player x)>\n    repeat (10)\n        change x by (2)\n        wait (0.05) seconds\n        change x by (-2)\n        wait (0.05) seconds\n    end\n    set [つらら v] to [1]\n    repeat (13)\n        change y by (((-130) - (y position)) / (13))\n    end\n    set [つらら v] to [0]\nend\nif <(つららclone) = [4]> then\n    set [つらら v] to [0]\n    set size to (150) %\n    show\n    wait until <[-100] < (Player x)>\n    repeat (10)\n        change x by (2)\n        wait (0.05) seconds\n        change x by (-2)\n        wait (0.05) seconds\n    end\n    set [つらら v] to [1]\n    repeat (70)\n        change y by (((-200) - (y position)) / (30))\n    end\n    set [つらら v] to [0]\nend\n\nwhen I receive [つらら v]\nwait (3) seconds\nhide\ngo to x: (-100) y: (122)\nrepeat (9)\n    つらら [1]\n    change x by (50)\nend\nwait until <(ステージ) = [13]>\nbroadcast (clone削除 v)\ngo to x: (30) y: (10)\nつらら [2]\nhide\nwait until <(ステージ) = [14]>\nbroadcast (clone削除 v)\ngo to x: (-19) y: (95)\nつらら [3]\nhide\nwait until <(ステージ) = [15]>\nbroadcast (clone削除 v)\nwait until <(ステージ) = [17]>\ngo to x: (-61) y: (50)\nつらら [4]\nhide\nwait () seconds\ngo to x: (84) y: (50)\nつらら [4]\nhide\nwait until <(ステージ) = [18]>\nbroadcast (clone削除 v)\n\ndefine つらら (つらら)\nset [つららclone v] to (つらら)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\ndelete this clone\n\nwhen I receive [clone削除 v]\ndelete this clone\n\nwhen I receive [i v]\nbroadcast (clone削除 v)\nwait (0.1) seconds\nbroadcast (reset v)\n\nwhen I receive [reset v]\nif <(ステージ) = [12]> then\n    wait (2) seconds\n    hide\n    go to x: (-100) y: (122)\n    repeat (9)\n        つらら [1]\n        change x by (50)\n    end\n    wait until <(ステージ) = [13]>\nend\nif <(ステージ) = [13]> then\n    wait (1) seconds\n    broadcast (clone削除 v)\n    go to x: (30) y: (10)\n    つらら [2]\n    hide\n    wait until <(ステージ) = [14]>\nend\nif <(ステージ) = [14]> then\n    wait (1) seconds\n    broadcast (clone削除 v)\n    go to x: (-19) y: (95)\n    つらら [3]\n    hide\n    wait until <(ステージ) = [15]>\nend\nif <(ステージ) = [15]> then\n    broadcast (clone削除 v)\n    wait until <(ステージ) = [17]>\nend\nif <(ステージ) = [17]> then\n    wait (1) seconds\n    broadcast (clone削除 v)\n    go to x: (-61) y: (50)\n    つらら [4]\n    hide\n    wait () seconds\n    go to x: (84) y: (50)\n    つらら [4]\n    hide\n    wait until <(ステージ) = [18]>\n    broadcast (clone削除 v)\nend\n\n@判定\n\nwhen flag clicked\ngo to x: (28) y: (-121)\nset [ghost v] effect to (100)\nshow\nswitch costume to (コスチューム1 v)\nforever\n    switch costume to (ステージ)\nend\n\n@バネ\n\nwhen flag clicked\nhide\n\nwhen I receive [バネ v]\ngo to x: (-111) y: (-38)\nバネ [1]\nhide\nwait until <(ステージ) = [16]>\nbroadcast (削除 v)\ngo to x: (-130) y: (-38)\nバネ [2]\nhide\nwait until <(ステージ) = [17]>\nbroadcast (削除 v)\nwait until <(ステージ) = [18]>\ngo to x: (-145) y: (-38)\nバネ [3]\nhide\nwait until <(ステージ) = [19]>\nbroadcast (削除 v)\n\nwhen I start as a clone\nif <(バネclone) = [1]> then\n    switch costume to (コスチューム1 v)\n    set size to (70) %\n    point in direction (90)\n    show\n    repeat until <(ステージ) = [16]>\n        wait until <touching (player v)?>\n        if <touching (player v)?> then\n            repeat (10)\n                next costume\n            end\n            switch costume to (コスチューム1 v)\n        end\n    end\nend\nif <(バネclone) = [2]> then\n    switch costume to (コスチューム1 v)\n    set size to (70) %\n    point in direction (90)\n    show\n    repeat until <(ステージ) = [17]>\n        wait until <touching (player v)?>\n        if <touching (player v)?> then\n            repeat (10)\n                next costume\n            end\n            switch costume to (コスチューム1 v)\n        end\n    end\nend\nif <(バネclone) = [3]> then\n    switch costume to (コスチューム1 v)\n    set size to (70) %\n    point in direction (90)\n    show\n    repeat until <(ステージ) = [19]>\n        wait until <touching (player v)?>\n        if <touching (player v)?> then\n            repeat (10)\n                next costume\n            end\n            switch costume to (コスチューム1 v)\n        end\n    end\nend\nif <(バネclone) = [2]> then\n    switch costume to (コスチューム1 v)\n    set size to (70) %\n    point in direction (90)\n    show\n    repeat until <(ステージ) = [17]>\n        wait until <touching (player v)?>\n        if <touching (player v)?> then\n            repeat (10)\n                next costume\n            end\n            switch costume to (コスチューム1 v)\n        end\n    end\nend\n\ndefine バネ (バネ)\nset [バネclone v] to (バネ)\ncreate clone of (_myself_ v)\n\nwhen I receive [削除 v]\ndelete this clone\n\n@判定3\n\nwhen flag clicked\nset [ghost v] effect to (100)\nshow\nswitch costume to (コスチューム1 v)\nforever\n    switch costume to (ステージ)\n    if <<(ステージ) = [17]> and <touching (player v)?>> then\n        set [つらら触れた？ v] to [2]\n    else\n        set [つらら触れた？ v] to [0]\n    end\nend\n\n@判定2\n\nwhen flag clicked\ngo to x: (28) y: (-121)\nset [ghost v] effect to (100)\nshow\nswitch costume to (コスチューム1 v)\nforever\n    switch costume to (ステージ)\n    if <<(ステージ) = [17]> and <touching (player v)?>> then\n        set [つらら触れた？ v] to [3]\n    else\n        set [つらら触れた？ v] to [0]\n    end\nend\n\n@Thank you for playing\n\nwhen flag clicked\nhide\nforever\n    if <(ステージ) = [19]> then\n        show\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\ngo to x: (145) y: (160)\nswitch costume to (コスチューム1 v)\nset size to (100) %\nclear graphic effects\nshow\nwait (10) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ngo to x: (145) y: (200)\nwait (4) seconds\nrepeat (7)\n    start sound [ポップ v]\n    repeat (10)\n        change [ghost v] effect by (-10)\n        change y by (((150) - (y position)) / (7))\n    end\n    repeat (5)\n        change y by (((160) - (y position)) / (7))\n    end\n    wait (3) seconds\n    repeat (10)\n        change [ghost v] effect by (10)\n        change y by (((200) - (y position)) / (7))\n    end\n    wait (7) seconds\nend\n\n@スプライト2\n\nwhen flag clicked\nhide\nswitch costume to (サムネ v)\n\nwhen [timer v] > (タイマー)\nforever\n    set [タイマー v] to (timer)\nend\n\nwhen flag clicked\nforever\n    set [タイマー v] to (timer)\nend\n\nwhen [timer v] > (タイマー)\ngo to [front v] layer\nset size to (100) %\nshow\nif <(costume [number v]) = [2]> then\n    go to x: (-40) y: (0)\n    set [brightness v] effect to (100)\n    set [縦 v] to [35]\n    set [横 v] to [20]\n    repeat (10)\n        change [brightness v] effect by (-10)\n        change size by (((130) - (size)) / (5))\n        set [縦 v] to (((縦) * (0.75)) + (((0) - (x position)) / (8.5)))\n        set [横 v] to (((横) * (0.75)) + (((0) - (y position)) / (7)))\n        change x by (縦)\n        change y by (横)\n    end\n    repeat (20)\n        change size by (((100) - (size)) / (5))\n        set [縦 v] to (((縦) * (0.75)) + (((0) - (x position)) / (8.5)))\n        set [横 v] to (((横) * (0.75)) + (((0) - (y position)) / (5)))\n        change x by (縦)\n        change y by (横)\n    end\nend\n\n@intro by @-VEF-\n\ndefine cc\nif <[99] < ((item (4) of [\[remon\] v]) + (クローンsize))> then\n    set [その他 v] to (costume [name v])\n    switch costume to (\[\] v)\n    set size to ((1) / ()) %\n    go to x: (item (1) of [\[remon\] v]) y: (item (2) of [\[remon\] v])\n    point in direction (item (3) of [\[remon\] v])\n    move (((item (4) of [\[remon\] v]) / (100)) * (クローンx)) steps\n    turn right (-90) degrees\n    move (((item (4) of [\[remon\] v]) / (100)) * (クローンy)) steps\n    point in direction ((item (3) of [\[remon\] v]) + (クローンdi))\n    set size to ((item (4) of [\[remon\] v]) + (クローンsize)) %\n    switch costume to (その他)\nelse\n    set [その他 v] to (costume [name v])\n    switch costume to (fill v)\n    go to x: (item (1) of [\[remon\] v]) y: (item (2) of [\[remon\] v])\n    point in direction (item (3) of [\[remon\] v])\n    move (((item (4) of [\[remon\] v]) / (100)) * (クローンx)) steps\n    turn right (-90) degrees\n    move (((item (4) of [\[remon\] v]) / (100)) * (クローンy)) steps\n    point in direction ((item (3) of [\[remon\] v]) + (クローンdi))\n    set size to ((item (4) of [\[remon\] v]) + (クローンsize)) %\n    switch costume to (その他)\nend\n\nwhen I start as a clone\nforever\n    cc\n    cc\n    cc\n    cc\nend\n\ndefine clone (x) (y) (di) (size) (name) (color)\nset [color v] effect to (color)\nset [クローンx v] to (x)\nset [クローンy v] to (y)\nset [クローンdi v] to (di)\nset [クローンsize v] to (size)\nswitch costume to (name)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(costume [name v]) = [chev]> then\n    go to [front v] layer\n    show\n    repeat (200)\n        change [クローンsize v] by (40)\n        set [fisheye v] effect to (size)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [chev2]> then\n    show\n    repeat (200)\n        change [クローンsize v] by (200)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [start]> then\n    go to [back v] layer\n    set [クローンその他 v] to [1]\n    show\n    repeat (50)\n        change [クローンその他 v] by ((クローンその他) / (4))\n        change [クローンsize v] by (クローンその他)\n    end\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [text5]> then\n    show\n    set [クローンsize v] to [-100]\n    set [クローンx v] to [-50]\n    set [brightness v] effect to (item (5) of [\[remon\] v])\n    repeat (10)\n        change [クローンx v] by (((160) - (クローンx)) / (25))\n        change [クローンその他 v] by (1)\n        change [クローンsize v] by (クローンその他)\n    end\n    repeat (100)\n        change [クローンsize v] by (((25) - (クローンsize)) / (10))\n        change [クローンx v] by (((160) - (クローンx)) / (25))\n    end\nend\n\nwhen I receive [intro:boom v]\nif << (costume [name v]) contains [text]?> and <<not <(costume [name v]) = [text4]>> and <not <(costume [name v]) = [text5]>>>> then\n    set [スプライトその他 v] to [0]\n    repeat (10)\n        set [brightness v] effect to (スプライトその他)\n        change [スプライトその他 v] by (10)\n    end\nelse\n    set [スプライトその他2 v] to [0]\n    repeat (10)\n        set [brightness v] effect to (スプライトその他2)\n        change [スプライトその他2 v] by (-10)\n    end\nend\nwait (1) seconds\nset [スプライトその他2 v] to [0]\nrepeat (100)\n    change [スプライトその他2 v] by (-0.02)\n    change [cc size v] by (スプライトその他2)\nend\n\nwhen I start as a clone\nif <<(costume [name v]) = [text2]> or <(costume [name v]) = [text]>> then\n    set [brightness v] effect to (item (5) of [\[remon\] v])\n    show\n    set [クローンsize v] to [-100]\n    repeat (10)\n        change [クローンその他 v] by (1)\n        change [クローンsize v] by (クローンその他)\n    end\n    repeat (100)\n        change [クローンsize v] by (((25) - (クローンsize)) / (10))\n    end\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [text4]> then\n    show\n    set [brightness v] effect to (item (5) of [\[remon\] v])\n    set [クローンsize v] to [-100]\n    set [クローンx v] to [50]\n    repeat (10)\n        change [クローンx v] by (((-160) - (クローンx)) / (25))\n        change [クローンその他 v] by (1)\n        change [クローンsize v] by (クローンその他)\n    end\n    repeat (100)\n        change [クローンsize v] by (((25) - (クローンsize)) / (10))\n        change [クローンx v] by (((-150) - (クローンx)) / (25))\n    end\nend\n\nwhen I receive [intro:boom v]\nrepeat (50)\n    change [cc y v] by (((20) - (cc y)) / (10))\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [text3]> then\n    go [backward v] (3) layers\n    set [brightness v] effect to (item (5) of [\[remon\] v])\n    show\n    set [ghost v] effect to (100)\n    repeat (5)\n        change [クローンsize v] by (((25) - (クローンsize)) / (10))\n        change [クローンy v] by (((-75) - (クローンy)) / (5))\n    end\n    repeat (80)\n        change [ghost v] effect by (-10)\n        change [クローンsize v] by (((25) - (クローンsize)) / (10))\n        change [クローンy v] by (((-75) - (クローンy)) / (5))\n    end\nend\n\nwhen I receive [intro:end v]\nstop [other scripts in sprite v]\nif <(costume [name v]) = [end]> then\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nelse\n    set [スプライトその他 v] to [0]\n    delete all of [\[remon\] v]\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [text7]> then\n    go to [front v] layer\n    show\n    repeat (300)\n        set [brightness v] effect to (item (5) of [\[remon\] v])\n        change [クローンx v] by ((size) / (50))\n        change [クローンy v] by ((size) / (50))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [name v]) = [end]> then\n    show\n    set [クローンy v] to [-20]\n    set [クローンその他 v] to [0.1]\n    repeat (55)\n        go to [front v] layer\n        change [クローンその他 v] by ((クローンその他) / (4))\n        change [クローンsize v] by (クローンその他)\n    end\n    broadcast (Intro:end v)\nend\n\nwhen I receive [intro:start v]\nwait (1) seconds\nrepeat (400)\n    change [cc di v] by (((90) - (cc di)) / (35))\nend\n\nwhen I receive [intro:start v]\nclone [] [-20] [] [-100] [start] []\nwait (1.5) seconds\nclone [] [-20] [] [-100] [text2] []\nclone [] [-20] [] [-100] [text] []\nclone [] [-20] [] [-100] [text5] []\nclone [] [-20] [] [-100] [text4] []\nwait (2) seconds\nclone [] [] [] [] [text3] []\nbroadcast (Intro:boom v)\nwait (2) seconds\nclone [] [] [] [-100] [end] []\n\nwhen I receive [intro:start v]\nset volume to (60) %\nstart sound [SICKOTOY & IRAIDA - Maria  v]\n\nwhen I receive [intro:start v]\nset [スプライトその他2 v] to [0]\nset [スプライトその他 v] to [0]\nwait (1) seconds\nforever\n    clone (pick random (1000) to (-1000)) [-350] [] (pick random (-25) to (300)) [text7] []\nend\n\nwhen I receive [intro:start v]\nset [cc y v] to [0]\nset [cc x v] to [0]\nset [cc di v] to [0]\nset [cc size v] to [100]\nforever\n    delete all of [\[remon\] v]\n    insert (cc x) at (1) of [\[remon\] v] \n    insert (cc y) at (2) of [\[remon\] v] \n    insert (cc di) at (3) of [\[remon\] v] \n    insert (cc size) at (4) of [\[remon\] v] \n    insert (スプライトその他) at (5) of [\[remon\] v] \nend\n\nwhen flag clicked\nbroadcast (Intro:start v)\n\n