[石のプラットフォーマー] 2 stone platformer　

Instructions: オンラインバトルゲーム　https://scratch.mit.edu/projects/872139794\n@rinta520さんとコラボ！\n洞窟で石を採掘しよう！\n❤️と⭐を押すと感謝のメッセージが....\nーーーーーーーーーー操作方法ーーーーーーーーーーー\n・矢印キーまたは画面タップで操作\n・スペースキーまたは画面タップで採掘\n・ツルハシマークの看板の近くにある目立った石を採掘することで次のステージに行けます。\n・uキーで「ノーマルライトと「ブラックライト」を変換できます。\n・ブラックライトを当てることで色が変わる石があります。\nーーーーーーーーーー石の種類ーーーーーーーーーーー\n・石英\n・ウォーターメロントルマリン\n・ガーネット\n・オパール\n・黄鉄鉱\n・蛍石[uキーでブラックライトモードにして光を当ててみよう！]\n・黒曜石\n・エメラルド\n・コランダム、ルビー[uキーでブラックライトモードにして光を当ててみよう！]\nーーーーーーーーークレジットーーーーーーーーーーー\n企画及び協力：@hayatiburusu @rinta520\n石選び：@rinta520\n石の形：@rinta520\nプログラム：@hayatiburusu\nその他テクスチャ：@hayatiburusu\nーーーーーーーーー借りるときにーーーーーーーーーー\nプログラムのクレジットは@hayatiburusu\n石のテクスチャのクレジットは@rinta520\nにしてね。\nーーーーーーーーーーーーーーーーーーーーーーーーー

@Stage\n\nwhen I receive [スタート v]\nforever\n    set volume to (50) %\n    play sound [いお \(1\) v] until done\nend\n\n@キャラクター\n\nwhen flag clicked\nforever\n    if <(ok) = [1]> then\n        set rotation style [left-right v]\n        if <<key (right arrow 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 <<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    end\nend\n\nwhen I receive [next v]\nshow\nset size to (55) %\nset [y v] to [0]\nset [x v] to [0]\nset [ジャンプ v] to [1]\ngo to x: (-213) y: (-40)\nwait (0.4) seconds\nset [ok v] to [1]\n\nwhen backdrop switches to [背景10 v]\nbroadcast (ゴール v)\n\nwhen flag clicked\n\nforever\n    if <touching (障害物 v)?> then\n        change [y v] by (8)\n    end\nend\n\nwhen flag clicked\nforever\n    set [製作者記録producer record v] to [128]\nend\n\nwhen I receive [wa-i v]\nstop [other scripts in sprite v]\nif <<[] > [50]> and <(秒Seconds) > [0]>> then\n    wait (1) seconds\nend\n\nwhen I receive [wa-i v]\nshow\nset size to (55) %\nset [y v] to [0]\nset [x v] to [0]\nset [ジャンプ v] to [1]\ngo to x: (-213) y: (-40)\npoint in direction (-90)\nwait (0.4) seconds\nset [ok v] to [1]\n\nwhen I receive [スタート v]\n\nwhen I receive [スタート v]\ngo to x: (-213) y: (-40)\nshow\nset [ジャンプ v] to [1]\nset [ok v] to [1]\nset [y v] to [0]\nset [x v] to [0]\nforever\n    if <(ok) = [1]> then\n        change x by (x)\n        if <<touching (地面 v)?> or <touching (石 v)?>> then\n            change y by (1)\n            if <<touching (地面 v)?> or <touching (石 v)?>> then\n                change y by (1)\n                if <<touching (地面 v)?> or <touching (石 v)?>> then\n                    change y by (1)\n                    if <<touching (地面 v)?> or <touching (石 v)?>> then\n                        change y by (1)\n                        if <<touching (地面 v)?> or <touching (石 v)?>> then\n                            change y by (1)\n                            if <<touching (地面 v)?> or <touching (石 v)?>> then\n                                change y by (-4)\n                                change x by ((0) - (x))\n                                if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n                                    set [y v] to [13]\n                                    if <[0] < (x)> then\n                                        start sound [革靴で歩く v]\n                                        set [x v] to [-7]\n                                    else\n                                        set [x v] to [7]\n                                    end\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change [y v] by (-1)\n        change y by (y)\n        if <<touching (地面 v)?> or <touching (石 v)?>> then\n            if <[0] > (y)> then\n                set [ジャンプ v] to [0]\n            else\n                set [ジャンプ v] to [1]\n            end\n            change y by ((0) - (y))\n            set [y v] to [0]\n        end\n        change y by (-1)\n        if <<<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> and <<(ジャンプ) = [0]> and <<touching (地面 v)?> or <touching (石 v)?>>>> then\n            set [ジャンプ v] to [1]\n            set [y v] to [13]\n        end\n        if <<[230] < (x position)> or <(y position) < [-170]>> then\n            if <(げっちゅー) = [1]> then\n                broadcast (次 v)\n                go to x: (-190) y: (-20)\n                set [y v] to [0]\n                set [x v] to [0]\n                hide\n                set [ok v] to [0]\n                set [げっちゅー v] to [0]\n            end\n        end\n        if  then\n            repeat (20)\n                change [ghost v] effect by (5)\n            end\n            hide\n            set [ghost v] effect to (0)\n            set size to (55) %\n            go to x: (-190) y: (-20)\n            set [ok v] to [1]\n            set [y v] to [0]\n            set [x v] to [0]\n            show\n        end\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    if <key (up arrow v) pressed?> then\n        if <touching (地面 v)?> then\n            play sound [革靴で歩く v] until done\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    set [製作者記録producer record v] to [82]\nend\n\nwhen I receive [消す v]\nset [ok v] to [0]\nwait (2) seconds\nset [ok v] to [1]\n\nwhen flag clicked\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\npoint in direction (90)\nforever\n    if <not <key (any v) pressed?>> then\n        switch costume to (コスチューム1 v)\n    end\n    if <key (right arrow v) pressed?> then\n        switch costume to (コスチューム3 v)\n        if <key (up arrow v) pressed?> then\n            switch costume to (コスチューム4 v)\n        end\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (コスチューム3 v)\n        if <key (up arrow v) pressed?> then\n            switch costume to (コスチューム4 v)\n        end\n    end\n    if <<key (up arrow v) pressed?> and <not <<key (right arrow v) pressed?> or <key (left arrow v) pressed?>>>> then\n        switch costume to (コスチューム6 v)\n    end\nend\n\nwhen flag clicked\nset [げっちゅー v] to [0]\n\nwhen flag clicked\nforever\n    if <touching (水 v)?> then\n        set [y v] to [-1]\n        if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n            set [y v] to [6]\n        end\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    go to [front v] layer\n    go [backward v] (6) layers\nend\n\n@地面\n\nwhen flag clicked\nswitch costume to (コスチューム24 v)\ngo to x: (0) y: (0)\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\n\ngo to [front v] layer\n\nforever\n    point in direction (90)\n    erase all\n    go to x: (0) y: (0)\n    stamp\n    change y by (2)\n    stamp\n    change y by (2)\n    stamp\n    change y by (2)\n    stamp\n    change y by (2)\n    stamp\n    change y by (2)\n    stamp\n    change y by (2)\n    stamp\nend\n\nforever\n    point towards (mouse-pointer v)\nend\n\nwhen flag clicked\n\nerase all\n\ngo to x: (0) y: (0)\n\nshow\nforever\n    if <key (right arrow v) pressed?> then\n        change [x v] by (0.5)\n    end\n    if <key (left arrow v) pressed?> then\n        change [x v] by (-0.5)\n    end\n    if <(x) < [-460]> then\n        next costume\n    end\nend\n\nbroadcast (wa-i v)\n\nwhen flag clicked\nhide variable [☁ 記録record v]\nhide variable [☁ 世界記録world record v]\n\nwhen flag clicked\nforever\n    if <<(costume [number v]) = [1]> or <<(costume [number v]) = [2]> or <<(costume [number v]) = [12]> or <(costume [number v]) = [13]>>>> then\n        set [げっちゅー v] to [1]\n    end\nend\n\nwhen flag clicked\nforever\n    if <<(costume [number v]) = [1]> or <<(costume [number v]) = [12]> or <(costume [number v]) = [13]>>> then\n        switch backdrop to (コスチューム6 v)\n    else\n        switch backdrop to (背景3 v)\n    end\nend\n\nset [げっちゅー v] to [1]\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [13]> then\n        broadcast (ゴール v)\n        stop [this script v]\n    end\nend\n\ngo to [front v] layer\n\n@スプライト1\n\nwhen I receive [次 v]\ngo to [front v] layer\nhide\nshow\ngo to x: (591) y: (0)\nglide (0.5) secs to x: (0) y: (0)\nglide (0.5) secs to x: (-2) y: (0)\nwait (0.2) seconds\nbroadcast (NEXT v)\nglide (0.5) secs to x: (-591) y: (0)\nhide\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\nend\n\nwhen flag clicked\n\nbroadcast (スタート v)\n\n@障害物2\n\n@スプライト3\n\nwhen I receive [xd v]\nset [ghost v] effect to (0)\nshow\nwait (3) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nhide\n\nwhen flag clicked\nhide\nforever\n    go to (石2 v)\n    turn right (4) degrees\nend\n\nshow\n\n@障害物\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\n\n@石\n\nwhen I receive [ぬ v]\nif <(costume [number v]) = [8]> then\n    set [color v] effect to (50)\nelse\n    set [color v] effect to (0)\n    if <(costume [number v]) = [11]> then\n        set [brightness v] effect to (20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen I receive [next v]\nnext costume\nshow\nset [げっちゅー v] to [0]\n\nwhen flag clicked\nswitch costume to (コスチューム2 v)\n\nwhen flag clicked\nforever\n    set [brightness v] effect to (0)\n    set [color v] effect to (0)\n    if <<<mouse down?> or <key (space v) pressed?>> and <touching (ツルハシ v)?>> then\n        broadcast (XD v)\n        set [げっちゅー v] to [1]\n    end\nend\n\nwhen I receive [xd v]\nhide\n\nwhen I receive [ぬ v]\n\nnext costume\n\nset [color v] effect to (0)\nset [color v] effect to (0)\n\n\n\n@ツルハシ\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\npoint in direction (75)\ngo to x: (110) y: (-15)\nset size to (60) %\nrepeat until <touching (キャラクター v)?>\n    change [動き v] by (5)\n    turn right ([sin v] of (動き) ) degrees\nend\nset [秒seconds v] to [0]\nbroadcast (w v)\nforever\n    go to (キャラクター v)\n    set size to (30) %\nend\n\nwhen I receive [w v]\nforever\n    if <<mouse down?> or <key (space v) pressed?>> then\n        change [動き v] by (30)\n        turn right (([cos v] of (動き) ) * (10)) degrees\n    else\n        point towards (mouse-pointer v)\n        if <(x position) < (mouse x)> then\n            switch costume to (コスチューム2 v)\n        else\n            switch costume to (コスチューム3 v)\n        end\n        go to (キャラクター v)\n        set size to (30) %\n    end\nend\n\nset rotation style [all around v]\npoint towards (mouse-pointer v)\n\nwhen flag clicked\nforever\n    if <<<touching (地面 v)?> or <touching (石 v)?>> and <<mouse down?> or <key (space v) pressed?>>> then\n        start sound (pick random (1) to (4))\n        create clone of (飛び散り石 v)\n        wait (0.4) seconds\n    end\nend\n\nif <(x position) < (mouse x)> then\n    switch costume to (コスチューム2 v)\nelse\n    switch costume to (コスチューム3 v)\nend\n\nwhen flag clicked\nforever\n    if <touching (_edge_ v)?> then\n        if <[-138] < (y position)> then\n            point in direction (90)\n        end\n    else\n        set rotation style [all around v]\n    end\nend\n\nhide\nshow\n\n@Things\n\nwhen I start as a clone\nset [お v] to [0]\nif <(お) = [0]> then\n    set [お v] to [25]\nend\nrepeat (50)\n    change y by (お)\n    change [お v] by (-1)\n    turn right (みい) degrees\nend\ndelete this clone\n\nwhen I start as a clone\nset [みい v] to (pick random (-3) to (5))\ngo to x: (pick random (-235) to (235)) y: (-195)\nset size to (pick random (50) to (60)) %\ngo [backward v] (50) layers\nshow\n\nwhen flag clicked\nhide\n\nwhen I receive [ゴール v]\nforever\n    create clone of (_myself_ v)\n    wait (0.1) seconds\n    next costume\nend\n\n@飛び散り石\n\nwhen I start as a clone\nswitch costume to (pick random (1) to (2))\nset [ghost v] effect to (30)\ngo to (ツルハシ v)\nset size to (pick random (5) to (40)) %\nset [tu v] to [1]\nshow\nif <(pick random (1) to (2)) = [1]> then\n    set [飛び散り石: x v] to (pick random (-7) to (7))\n    set [g v] to (pick random (-5) to (5))\nelse\n    if <(pick random (0) to (1)) = [1]> then\n        set [飛び散り石: x v] to (pick random (9) to (14))\n        set [g v] to (pick random (10) to (20))\n    else\n        set [飛び散り石: x v] to (pick random (-9) to (-14))\n        set [g v] to (pick random (-10) to (-20))\n    end\nend\nset [飛び散り石: y v] to (pick random (14.0) to (16.0))\nrepeat until <touching (_edge_ v)?>\n    change x by (飛び散り石: x)\n    change y by (飛び散り石: y)\n    turn right (g) degrees\n    set [飛び散り石: x v] to ((飛び散り石: x) * (0.92))\n    change [飛び散り石: y v] by (-1)\nend\ndelete this clone\n\nwhen flag clicked\nswitch costume to (1 v)\nset [color v] effect to (0)\nforever\n    if <(costume [number v]) = [6]> then\n        change [color v] effect by (3)\n    end\nend\n\n@水\n\nwhen flag clicked\nset [ghost v] effect to (50)\nswitch costume to (コスチューム3 v)\nforever\n    go to [front v] layer\n    go [backward v] (2) layers\nend\n\nwhen I receive [next v]\nnext costume\n\n@スプライト2\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nforever\n    go to (キャラクター v)\n    point towards (mouse-pointer v)\n    if <(costume [number v]) = [1]> then\n        go to [back v] layer\n    else\n        go to [front v] layer\n        go [backward v] (13) layers\n        if <<touching (石 v)?> or <touching (蛍石 v)?>> then\n            broadcast (ぬ v)\n        end\n    end\nend\n\nwhen [u v] key pressed\nnext costume\n\n@石2\n\nwhen I receive [xd v]\nstart sound [決定ボタンを押す40 v]\ngo to [front v] layer\nshow\nset size to (1) %\nset [大きさ v] to [0]\nrepeat (16)\n    change [大きさ v] by (1)\n    change size by (大きさ)\nend\nwait (3) seconds\nset [大きさ v] to [0]\nrepeat (16)\n    change [大きさ v] by (-1)\n    change size by (大きさ)\nend\nhide\n\nwhen flag clicked\nswitch costume to (水晶？2 v)\nhide\n\nwhen I receive [次 v]\nhide\nnext costume\n\nwhen I receive [ぬ v]\nif <(costume [number v]) = [8]> then\n\nset [color v] effect to (0)\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\n@はじめ\n\nwhen flag clicked\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム3 v)\ncreate clone of (_myself_ v)\ngo to x: (240) y: (-120)\nswitch costume to (コスチューム4 v)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nforever\n    if <(表示) = [1]> then\n        play sound [Water \(1\) v] until done\n    end\nend\n\nwhen I start as a clone\ngo to [front v] layer\nset [表示 v] to [1]\nshow\nforever\n    if <(costume [number v]) = [1]> then\n        change y by (([cos v] of (動き) ) / (3))\n    end\n    if <(costume [number v]) = [2]> then\n        change y by (([sin v] of (動き) ) / (1.5))\n        change [動き v] by (5)\n        go to [front v] layer\n    end\n    if <(costume [number v]) = [3]> then\n        change y by ([cos v] of (動き) )\n    end\n    if <(costume [number v]) = [4]> then\n        set [ghost v] effect to (10)\n        if <<touching (mouse-pointer v)?> and <mouse down?>> then\n            start sound [決定ボタンを押す2 v]\n            repeat (20)\n                change [ghost v] effect by (5)\n                change size by (5)\n            end\n            wait (0.8) seconds\n            stop all sounds\n            broadcast (スタート v)\n            set [表示 v] to [0]\n            stop [this script v]\n        end\n    end\nend\n\nstart sound [決定ボタンを押す2 v]\nrepeat (20)\n    change [ghost v] effect by (5)\n    change size by (5)\nend\nwait (0.8) seconds\nstop all sounds\nbroadcast (スタート v)\nset [表示 v] to [0]\nstop [this script v]\n\nwhen I start as a clone\nforever\n    go to [front v] layer\n    go [backward v] (1) layers\n    if <(表示) = [0]> then\n        delete this clone\n    end\nend\n\nbroadcast (スタート v)\n\nchange y by ([sin v] of (動き) )\n\nshow\n\nwhen I start as a clone\nif <(costume [number v]) = [4]> then\n    set [r v] to [-10]\n    repeat (20)\n        change [r v] by (0.5)\n        change x by (r)\n    end\nend\n\ngo to x: (240) y: (-60)\nswitch costume to (コスチューム4 v)\ncreate clone of (_myself_ v)\n\n@かざり\n\nwhen flag clicked\nswitch costume to (コスチューム24 v)\ngo to x: (0) y: (0)\n\nwhen I receive [next v]\nnext costume\n\ngo to x: (0) y: (0)\n\ngo to [back v] layer\n\n@蛍石\n\nwhen flag clicked\nhide\nforever\n    set [color v] effect to (0)\nend\n\nwhen I receive [ゴール v]\ngo to [front v] layer\nshow\n\nwhen I receive [ぬ v]\nset [color v] effect to (50)\n\nforever\n\n@サムネ\n\nwhen flag clicked\nhide\nset [brightness v] effect to (200)\nset [ghost v] effect to (100)\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.1)\ngo to [front v] layer\nshow\nset [brightness v] effect to (200)\nrepeat (20)\n    change [ghost v] effect by (-5)\n    change [brightness v] effect by (-5)\nend\n\n@Thanks\n\nwhen flag clicked\nhide\nset [ゆ v] to [0]\npoint in direction (90)\n\nwhen I receive [ゴール v]\nforever\n    go to [front v] layer\n    show\n    change [ゆ v] by (6.5)\n    point in direction ((([sin v] of (ゆ) ) * (6)) + (90))\n    set size to ((([sin v] of ((ゆ) * (2)) ) * (7)) + (130)) %\nend\n\n@時間\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nforever\n    go to [front v] layer\n    if <(letter (1) of (時間の流れ)) = [-]> then\n        switch costume to (コスチューム10 v)\n    end\n    switch costume to (letter (時間) of (時間の流れ))\n    if <(letter (時間) of (時間の流れ)) = [.]> then\n        switch costume to (コスチューム12 v)\n    end\n    if <(letter (時間) of (時間の流れ)) = [e]> then\n        switch costume to (コスチューム13 v)\n    end\n    if <(letter (時間) of (時間の流れ)) = [+]> then\n        switch costume to (コスチューム14 v)\n    end\n    if <(letter (時間) of (時間の流れ)) = [G]> then\n        switch costume to (コスチューム15 v)\n    end\n    if <(length of (時間の流れ)) < (時間)> then\n        hide\n    else\n        show\n    end\n    go to [front v] layer\nend\n\nwhen I receive [スタート v]\nset [brightness v] effect to (100)\nset [ghost v] effect to (0)\nset size to (70) %\nset [時間の流れ v] to [0]\nhide\nset [時間 v] to [0]\ngo to x: (-180) y: (167)\nrepeat (37)\n    change [時間 v] by (1)\n    create clone of (_myself_ v)\n    change x by (((size) / (100)) * (12))\nend\n\nwhen I receive [スタート v]\nrepeat until <([costume # v] of [地面 v]) = [13]>\n    wait (1) seconds\n    change [時間の流れ v] by (1)\nend\n\nwhen I receive [ゴール v]\nset [☁ 確認 v] to (時間の流れ)\n\nstop [other scripts in sprite v]\n\n@スプライト4\n\nwhen flag clicked\nforever\n    go to [front v] layer\n    go [backward v] (1) layers\nend\n\n@飛び散り石2\n\nwhen I start as a clone\nset [ghost v] effect to (30)\nif <<<([costume # v] of [地面 v]) = [1]> or > or <<([costume # v] of [地面 v]) = [12]> or <([costume # v] of [地面 v]) = [13]>>> then\n    set size to (pick random (10) to (30)) %\n    switch costume to (pick random (3) to (5))\nelse\n    set size to (pick random (5) to (20)) %\n    switch costume to (pick random (1) to (2))\nend\nset [tu v] to [1]\nshow\nif <(pick random (1) to (2)) = [1]> then\n    set [飛び散り石: x v] to (pick random (-2) to (2))\n    set [g v] to (pick random (-5) to (8))\nelse\n    if <(pick random (0) to (1)) = [1]> then\n        set [飛び散り石: x v] to (pick random (3) to (5))\n        set [g v] to (pick random (10) to (20))\n    else\n        set [飛び散り石: x v] to (pick random (-3) to (-4))\n        set [g v] to (pick random (-10) to (-20))\n    end\nend\nset [飛び散り石: y v] to (pick random (2) to (10))\nrepeat until <touching (_edge_ v)?>\n    change x by (飛び散り石: x)\n    change y by (飛び散り石: y)\n    turn right (g) degrees\n    set [飛び散り石: x v] to ((飛び散り石: x) * (0.1))\n    change [飛び散り石: y v] by (-1)\nend\ndelete this clone\n\nwhen flag clicked\nswitch costume to (1 v)\nset [color v] effect to (0)\nforever\n    if <(costume [number v]) = [6]> then\n        change [color v] effect by (3)\n    end\nend\n\nwhen flag clicked\nforever\n    wait (0.1) seconds\n    if <(y) = [0]> then\n        if <key (right arrow v) pressed?> then\n            go to (キャラクター v)\n            change y by (-30)\n            create clone of (_myself_ v)\n        end\n        if <key (left arrow v) pressed?> then\n            go to (キャラクター v)\n            change y by (-30)\n            create clone of (_myself_ v)\n        end\n    end\nend\n\ngo to (ツルハシ v)\n\nswitch costume to (pick random (3) to (5))\n\n@感謝\n\nwhen flag clicked\nbroadcast (♡&☆ v)\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    show\n    forever\n        if <touching (mouse-pointer v)?> then\n            wait (0.05) seconds\n            if <touching (mouse-pointer v)?> then\n                set [xd v] to (join [1] (letter (2) of (XD)))\n                delete this clone\n            end\n        end\n    end\nelse\n    if <(costume [number v]) = [2]> then\n        show\n        forever\n            if <touching (mouse-pointer v)?> then\n                wait (0.05) seconds\n                if <touching (mouse-pointer v)?> then\n                    set [xd v] to (join (letter (1) of (XD)) [1])\n                    delete this clone\n                end\n            end\n        end\n    else\n        go to x: (0) y: (0)\n        set size to (5) %\n        go to [front v] layer\n        show\n        repeat (8)\n            change size by (((size) + (5)) / (4))\n        end\n        repeat (25)\n            change size by (((100) - (size)) / (4))\n        end\n        repeat (10)\n            switch costume to (大 v)\n            change size by ((((0) - (size)) + (-5)) / (4))\n            switch costume to (ありがとう v)\n        end\n        delete this clone\n    end\nend\n\nwhen I receive [♡&☆ v]\nwait until <not <(XD) = [11]>>\ngo to x: (-15) y: (0)\nswitch costume to (はーと v)\ncreate clone of (_myself_ v)\nswitch costume to (星 v)\ncreate clone of (_myself_ v)\nwait until <(XD) = [11]>\nwait (0.1) seconds\nswitch costume to (ありがとう v)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    go to [front v] layer\nend\n\nset [xd v] to [0]\n\nwhen I start as a clone\nforever\n    go to [front v] layer\nend\n\n