炎？氷？ Flame or Ice?  Platformer 2 !!


@Stage\n\nwhen flag clicked\nbroadcast (スタート v)\n\nwhen I receive [スタート v]\nforever\n    play sound [Illenium - Let You Go \(ft v] until done\nend\n\nwhen I receive [スタート v]\nset [ステージ v] to [1]\nset [敵キャラ召喚 v] to [1]\nset [召喚番号 v] to [1]\nset [乙返し v] to [0]\nwait (0) seconds\nforever\n    if <<(ステージ) = [2]> and <(敵キャラ召喚) < [2]>> then\n        set [敵キャラ召喚 v] to [2]\n        create clone of (動く系のやつ v)\n    else\n        if <<(ステージ) = [4]> and <(敵キャラ召喚) < [4]>> then\n            set [敵キャラ召喚 v] to [4]\n            set [召喚番号 v] to [1]\n            create clone of (動く系のやつ v)\n            wait (0) seconds\n            set [召喚番号 v] to [2]\n            create clone of (動く系のやつ v)\n        else\n            if <<(ステージ) = [5]> and <(敵キャラ召喚) < [5]>> then\n                set [敵キャラ召喚 v] to [5]\n                set [召喚番号 v] to [1]\n                create clone of (動く系のやつ v)\n            else\n                if <<(ステージ) = [6]> and <(敵キャラ召喚) < [6]>> then\n                    set [敵キャラ召喚 v] to [6]\n                    create clone of (動く系のやつ v)\n                else\n                    if <<(ステージ) = [7]> and <(敵キャラ召喚) < [7]>> then\n                        set [敵キャラ召喚 v] to [7]\n                        create clone of (動く系のやつ v)\n                    else\n                        if <<(ステージ) = [8]> and <(敵キャラ召喚) < [8]>> then\n                            set [敵キャラ召喚 v] to [8]\n                            set [召喚番号 v] to [1]\n                            create clone of (動く系のやつ v)\n                            wait (0) seconds\n                            set [召喚番号 v] to [2]\n                            create clone of (動く系のやつ v)\n                        else\n                            if <<(ステージ) = [10]> and <(敵キャラ召喚) < [10]>> then\n                                set [敵キャラ召喚 v] to [10]\n                                set [召喚番号 v] to [1]\n                                create clone of (動く系のやつ v)\n                            else\n                                if <<(ステージ) = [13]> and <(敵キャラ召喚) < [13]>> then\n                                    set [敵キャラ召喚 v] to [13]\n                                    create clone of (動く系のやつ v)\n                                else\n                                    if <<(ステージ) = [14]> and <(敵キャラ召喚) < [14]>> then\n                                        set [敵キャラ召喚 v] to [14]\n                                        create clone of (動く系のやつ v)\n                                    else\n                                        if <<(ステージ) = [15]> and <(敵キャラ召喚) < [15]>> then\n                                            set [敵キャラ召喚 v] to [15]\n                                            set [召喚番号 v] to [1]\n                                            create clone of (動く系のやつ v)\n                                            wait (0) seconds\n                                            set [召喚番号 v] to [2]\n                                            create clone of (動く系のやつ v)\n                                        else\n                                            if <<(ステージ) = [16]> and <(敵キャラ召喚) < [16]>> then\n                                                set [敵キャラ召喚 v] to [16]\n                                                create clone of (動く系のやつ v)\n                                            else\n                                                if <<(ステージ) = [17]> and <(敵キャラ召喚) < [17]>> then\n                                                    set [敵キャラ召喚 v] to [17]\n                                                    set [召喚番号 v] to [1]\n                                                    repeat (4)\n                                                        create clone of (動く系のやつ v)\n                                                        wait (0) seconds\n                                                        change [召喚番号 v] by (1)\n                                                    end\n                                                else\n                                                    if <<(ステージ) = [18]> and <(敵キャラ召喚) < [18]>> then\n                                                        set [敵キャラ召喚 v] to [18]\n                                                        set [召喚番号 v] to [1]\n                                                        create clone of (動く系のやつ v)\n                                                        wait (0) seconds\n                                                        set [召喚番号 v] to [2]\n                                                        create clone of (動く系のやつ v)\n                                                    else\n                                                        if <<(ステージ) = [19]> and <(敵キャラ召喚) < [19]>> then\n                                                            set [敵キャラ召喚 v] to [19]\n                                                            set [召喚番号 v] to [1]\n                                                            repeat (4)\n                                                                create clone of (動く系のやつ v)\n                                                                wait (0) seconds\n                                                                change [召喚番号 v] by (1)\n                                                            end\n                                                        end\n                                                    end\n                                                end\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@空白\n\n@プレイヤー\n\nwhen I receive [スタート v]\ngo to x: (-200) y: (-50)\nset rotation style [don't rotate v]\nswitch costume to (上前向き v)\nset drag mode [not draggable v]\ngo to [front v] layer\ngo [forward v] (1) layers\nset [x v] to [0]\nset [y v] to [0]\nset size to (75) %\npoint in direction (90)\nwait until <<mouse down?> or <key (any v) pressed?>>\nforever\n    if <<touching (障害物 v)?> and <<(モード) = [Flame]> and <touching color (#d80000)?>>> then\n        change [y v] by (-0.22)\n    else\n        change [y v] by (-0.9)\n    end\n    すぐやろうか。\n    if <(動けない？) = [0]> then\n        if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<[50] < (mouse x)> and <mouse down?>>>> then\n            set [左右 v] to [右]\n            change [x v] by (0.9)\n            point in direction (90)\n        else\n            if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<(mouse x) < [-50]> and <mouse down?>>>> then\n                set [左右 v] to [左]\n                change [x v] by (-0.9)\n                point in direction (-90)\n            else\n                set [左右 v] to [前]\n            end\n        end\n    else\n        set [左右 v] to [前]\n    end\n    change x by (x)\n    set [x v] to ((x) * (0.9))\n    if <<touching (地面 v)?> or <touching (固まったやつ v)?>> then\n        if <touching (地面 v)?> then\n            x座標補正 [地面]\n        end\n        if <touching (固まったやつ v)?> then\n            x座標補正 [固まったやつ]\n        end\n    end\n    change y by (y)\n    if <<touching (地面 v)?> or <touching (固まったやつ v)?>> then\n        if <touching (地面 v)?> then\n            y座標補正 [地面]\n        end\n        if <touching (固まったやつ v)?> then\n            y座標補正 [固まったやつ]\n        end\n    end\n    if <touching (バネ v)?> then\n        set [y v] to [20]\n        start sound [ジャンプ v]\n    end\n    if <<<<<(リトライ) = [1]> or <touching (障害物 v)?>> or <touching (動く系のやつ v)?>> or <(乙返し) = [1]>> or <<<(costume [number v]) < [4]> and <(y position) < [-178]>> or <<[3] < (costume [number v])> and <(y position) < [-165]>>>> then\n        初期位置\n        change [敵キャラ召喚 v] by (-1)\n        if <(リトライ) = [0]> then\n            start sound [crashed oof v]\n        end\n        set [判定 v] to [1]\n        wait until <(判定) = [0]>\n        set [リトライ v] to [0]\n    end\n    if <[239] < (x position)> then\n        if <(ステージ) < [20]> then\n            初期位置\n            start sound [High Whoosh v]\n            change [ステージ v] by (1)\n            set [判定 v] to [1]\n            wait until <(判定) = [0]>\n        end\n    end\nend\n\ndefine y座標補正 (誰？)\nif <[0] < (y)> then\n    repeat until <not <touching ((誰？) v)?>>\n        change y by (-1)\n    end\nelse\n    repeat until <not <touching ((誰？) v)?>>\n        change y by (1)\n    end\nend\nすぐやろうか。\nset [y v] to [0]\nif <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<[0] < (mouse y)> and <mouse down?>>> and <(動けない？) = [0]>> then\n    set [y v] to [14]\n    start sound [ジャンプ v]\nend\n\ndefine x座標補正 (誰？)\nset [回数 v] to [0]\nif <[0] < (x)> then\n    repeat until <<not <touching ((誰？) v)?>> or <[100] < (回数)>>\n        change x by (-1)\n        change [回数 v] by (1)\n        if <[100] < (回数)> then\n            初期位置\n            start sound [crashed oof v]\n        end\n    end\nelse\n    repeat until <<not <touching ((誰？) v)?>> or <[100] < (回数)>>\n        change x by (1)\n        change [回数 v] by (1)\n        if <[100] < (回数)> then\n            初期位置\n            start sound [crashed oof v]\n        end\n    end\nend\nすぐやろうか。\nif <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<[0] < (mouse y)> and <mouse down?>>> and <(動けない？) = [0]>> then\n    set [y v] to [13.5]\n    if <(x) < [0]> then\n        set [x v] to [9.5]\n    else\n        set [x v] to [-9.5]\n    end\n    start sound [壁キック v]\nelse\n    set [x v] to [0]\nend\n\nwhen I receive [スタート v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nrepeat (8)\n    change size by (-6)\n    change [ghost v] effect by (13)\nend\ndelete this clone\n\nwhen I start as a clone\nset [固有ステージ v] to (ステージ)\nwait until <not <(固有ステージ) = (ステージ)>>\nrepeat (2)\n    change size by (-10)\n    change [ghost v] effect by (30)\nend\ndelete this clone\n\nwhen I receive [スタート v]\nforever\n    switch costume to (join (join (上下) (左右)) [向き])\nend\n\nwhen I receive [スタート v]\nforever\n    if <<<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <<(mouse y) < [-120]> and <mouse down?>>> and <(動けない？) = [0]>> then\n        set [上下 v] to [下]\n    else\n        set [上下 v] to [上]\n    end\nend\n\nwhen I receive [スタート v]\nset [モード v] to [Flame]\nforever\n    if <<<touching (mouse-pointer v)?> and <mouse down?>> or <key (space v) pressed?>> then\n        if <(モード) = [Flame]> then\n            set [モード v] to [Ice]\n        else\n            set [モード v] to [Flame]\n        end\n        wait until <not <<mouse down?> or <key (space v) pressed?>>>\n    end\nend\n\nwhen I receive [スタート v]\nclear graphic effects\nforever\n    set [color v] effect to (<(モード) = [Ice]> * (100))\nend\n\nwhen I receive [スタート v]\nforever\n    if  then\n        broadcast (乙ベイベー v)\n    end\nend\n\nwhen I receive [スタート v]\nset [動けない？ v] to [0]\nforever\n    wait until <not <mouse down?>>\n    wait until <mouse down?>\n    if <<<[135] < (mouse y)> and <mouse down?>> or <touching (mouse-pointer v)?>> then\n        set [動けない？ v] to [1]\n    else\n        set [動けない？ v] to [0]\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    すぐやろうか。\nend\n\ndefine すぐやろうか。\nif <<<<<[135] < (mouse y)> and <<([abs v] of (mouse x) ) < [240]> and <(mouse x) < [50]>>> or <touching (mouse-pointer v)?>> and <mouse down?>> and <(ステージ) < [20]>> then\n    set [動けない？ v] to [1]\nelse\n    set [動けない？ v] to [0]\nend\n\ndefine 初期位置\nset [x v] to [0]\nset [y v] to [0]\nset [乙返し v] to [0]\ngo to x: (-200) y: (-50)\npoint in direction (90)\n\n@地面\n\nwhen I receive [スタート v]\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nset size to (100) %\npoint in direction (90)\nshow\nforever\n    switch costume to (ステージ)\nend\n\n@障害物\n\nwhen I receive [スタート v]\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nset size to (100) %\npoint in direction (90)\nshow\nforever\n    switch costume to (ステージ)\nend\n\nwhen I receive [スタート v]\nforever\n    set y to (([cos v] of ((timer) * (160)) ) * (5))\nend\n\n@バネ\n\nwhen I receive [スタート v]\ngo to x: (0) y: (0)\nswitch costume to (1 v)\nset size to (100) %\npoint in direction (90)\nshow\nforever\n    switch costume to (ステージ)\nend\n\n@動く系のやつ\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [クローンか v] to [0]\nswitch costume to (回るやつ v)\nhide\n\nwhen I start as a clone\nset [クローンか v] to [1]\nset [クローン v] to (敵キャラ召喚)\nset [固有召喚番号 v] to (召喚番号)\nset [動けないぜ v] to [0]\ngo [forward v] (5) layers\nset size to (75) %\nwait (0) seconds\nwait until <(判定) = [0]>\nif <<(ステージ) = [2]> or <<(ステージ) = [4]> and <(固有召喚番号) = [1]>>> then\n    switch costume to (普通 v)\n    show\n    行く     最初のx [200] ゴールx [-160] スピード [4]\nend\nif <<(ステージ) = [4]> and <(固有召喚番号) = [2]>> then\n    switch costume to (回るやつ v)\n    set rotation style [all around v]\n    go to [back v] layer\n    go [forward v] (5) layers\n    show\n    行く     x [0] 最初のy [-110] 最後のy [-110] スピード [0] 回転速度 [2]\nend\nif <<(ステージ) = [5]> or <(ステージ) = [10]>> then\n    switch costume to (回るやつ v)\n    set rotation style [all around v]\n    go to [back v] layer\n    go [forward v] (5) layers\n    show\n    行く     x [0] 最初のy [100] 最後のy [-110] スピード [4] 回転速度 [5]\nend\nif <(ステージ) = [6]> then\n    switch costume to (氷トゲ v)\n    show\n    行く     最初のx [160] ゴールx [-160] スピード [4]\nend\nif <(ステージ) = [7]> then\n    switch costume to (氷トゲ v)\n    set size to (85) %\n    show\n    行く     最初のx [215] ゴールx [195] スピード [2]\nend\nif <(ステージ) = [8]> then\n    switch costume to (回るやつ v)\n    set rotation style [all around v]\n    go to [back v] layer\n    go [forward v] (5) layers\n    show\n    行く     x ((-80) + (((固有召喚番号) - (1)) * (210))) 最初のy [100] 最後のy [-110] スピード [4] 回転速度 [5]\nend\nif <(ステージ) = [13]> then\n    switch costume to (炎トゲ v)\n    show\n    行く     最初のx [160] ゴールx [-160] スピード [4]\nend\nif <(ステージ) = [14]> then\n    switch costume to (炎トゲ v)\n    set size to (85) %\n    show\n    行く     最初のx [135] ゴールx [-155] スピード [4]\nend\nif <(ステージ) = [15]> then\n    switch costume to (無敵な回るやつ v)\n    set rotation style [all around v]\n    go to [back v] layer\n    go [forward v] (5) layers\n    show\n    行く     x ((-100) + (((固有召喚番号) - (1)) * (210))) 最初のy [-110] 最後のy [0] スピード [0] 回転速度 [8]\nend\nif <(ステージ) = [14]> then\n    switch costume to (炎トゲ v)\n    set size to (80) %\n    show\n    行く     最初のx [160] ゴールx [-50] スピード [3]\nend\nif <(ステージ) = [16]> then\n    switch costume to (炎トゲ v)\n    set size to (85) %\n    show\n    行く     最初のx [160] ゴールx [-155] スピード [4]\nend\nif <(ステージ) = [17]> then\n    switch costume to (無敵な回るやつ v)\n    set rotation style [all around v]\n    go to [back v] layer\n    go [forward v] (5) layers\n    set size to (65) %\n    show\n    if <(固有召喚番号) = [1]> then\n        行く     x [-90] 最初のy [145] 最後のy [25] スピード [3] 回転速度 [8]\n    end\n    if <(固有召喚番号) = [2]> then\n        行く     x [-110] 最初のy [-45] 最後のy [-165] スピード [3] 回転速度 [8]\n    end\n    if <(固有召喚番号) = [3]> then\n        行く     x [115] 最初のy [145] 最後のy [25] スピード [3] 回転速度 [8]\n    end\n    if <(固有召喚番号) = [4]> then\n        行く     x [95] 最初のy [-45] 最後のy [-165] スピード [3] 回転速度 [8]\n    end\nend\nif <(ステージ) = [18]> then\n    switch costume to (無敵な回るやつ v)\n    set rotation style [all around v]\n    go to [back v] layer\n    go [forward v] (5) layers\n    set size to (65) %\n    show\n    if <(固有召喚番号) = [1]> then\n        行く     x [-110] 最初のy [-45] 最後のy [-165] スピード [3] 回転速度 [8]\n    end\n    if <(固有召喚番号) = [2]> then\n        行く     x [95] 最初のy [-60] 最後のy [-180] スピード [3] 回転速度 [8]\n    end\nend\nif <(ステージ) = [19]> then\n    switch costume to (無敵な回るやつ v)\n    set rotation style [all around v]\n    go to [back v] layer\n    go [forward v] (5) layers\n    set size to (65) %\n    show\n    if <(固有召喚番号) = [1]> then\n        行く     x [-90] 最初のy [170] 最後のy [60] スピード [3] 回転速度 [8]\n    end\n    if <(固有召喚番号) = [2]> then\n        行く     x [-110] 最初のy [-20] 最後のy [-130] スピード [3] 回転速度 [8]\n    end\n    if <(固有召喚番号) = [3]> then\n        行く     x [125] 最初のy [170] 最後のy [60] スピード [3] 回転速度 [8]\n    end\n    if <(固有召喚番号) = [4]> then\n        行く     x [105] 最初のy [-20] 最後のy [-130] スピード [3] 回転速度 [8]\n    end\nend\n\nwhen I start as a clone\nwait (0) seconds\nwait until <(判定) = [0]>\nwait until <<not <(ステージ) = (クローン)>> or <(判定) = [1]>>\ndelete this clone\n\nwhen I start as a clone\nset [俺様y v] to [0]\nwait (0) seconds\nwait until <(判定) = [0]>\nif <not < (costume [name v]) contains [回るやつ]?>> then\n    forever\n        change [俺様y v] by (-1)\n        change y by (俺様y)\n        if <touching (地面 v)?> then\n            change y by ((0) - (俺様y))\n            set [俺様y v] to [0]\n        end\n        if <touching (バネ v)?> then\n            set [俺様y v] to [20]\n        end\n        確認！\n    end\nend\n\nwhen I receive [乙ベイベー v]\nif <(クローンか) = [1]> then\n    if <touching (プレイヤー v)?> then\n        if <(costume [name v]) = [トゲ]> then\n            set [乙返し v] to [1]\n        else\n            if <not <(costume [name v]) = [まわ〜る]>> then\n                if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<[0] < (mouse y)> and <mouse down?>>> then\n                    set [y v] to [14]\n                else\n                    set [y v] to [10]\n                end\n                start sound [Coin v]\n                delete this clone\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nwait (0) seconds\nforever\n    if <<touching (ファイアボール v)?> or <touching (アイスボール v)?>> then\n        if <(costume [name v]) = [氷トゲ]> then\n            if <touching (ファイアボール v)?> then\n                switch costume to (普通 v)\n                wait (0.4) seconds\n            end\n        else\n            if <(costume [name v]) = [炎トゲ]> then\n                if <touching (アイスボール v)?> then\n                    switch costume to (普通 v)\n                    wait (0.4) seconds\n                end\n            else\n                if <touching (ファイアボール v)?> then\n                    if <not < (costume [name v]) contains [回るやつ]?>> then\n                        start sound [Coin v]\n                        wait (0) seconds\n                        delete this clone\n                    end\n                else\n                    if <not <(costume [name v]) = [無敵な回るやつ]>> then\n                        set [動けないぜ v] to [1]\n                        set [a v] to (x position)\n                        set [b v] to (y position)\n                        set [c v] to (direction)\n                        set [d v] to (size)\n                        set [e v] to (join [固まった] (costume [name v]))\n                        create clone of (固まったやつ v)\n                        delete this clone\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine 確認！\nwait until <(動けないぜ) = [0]>\n\ndefine 行く     最初のx (x) ゴールx (x2) スピード (スピード)\ngo to x: (x) y: (-110)\npoint in direction (90)\nforever\n    repeat until <(x position) < (x2)>\n        確認！\n        change x by ((0) - (スピード))\n    end\n    repeat until <(x) < (x position)>\n        確認！\n        change x by (スピード)\n    end\nend\n\ndefine 行く     x (x) 最初のy (y) 最後のy (y2) スピード (スピード) 回転速度 (回る)\ngo to x: (x) y: (y)\npoint in direction (90)\nforever\n    repeat until <(y position) < (y2)>\n        確認！\n        change y by ((0) - (スピード))\n        turn right (回る) degrees\n    end\n    repeat until <(y) < (y position)>\n        確認！\n        change y by (スピード)\n        turn right (回る) degrees\n    end\nend\n\n@固まったやつ\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [クローンか v] to [0]\nswitch costume to (回るやつ v)\nset size to (75) %\nhide\n\nwhen I start as a clone\nset [クローンか v] to [1]\ngo to x: (A) y: (B)\nset rotation style [all around v]\npoint in direction (C)\nset size to (D) %\nswitch costume to (E)\nset [クローン v] to (敵キャラ召喚)\nset [固有召喚番号 v] to (召喚番号)\nset [動けないぜ v] to [0]\nif <(costume [number v]) = [2]> then\n    go to [back v] layer\n    go [forward v] (5) layers\nend\nwait (0) seconds\nshow\n\nwhen I start as a clone\nwait (0) seconds\nwait until <(判定) = [0]>\nwait until <<not <(ステージ) = (クローン)>> or <(判定) = [1]>>\ndelete this clone\n\nwhen I receive [乙ベイベー v]\nif <(クローンか) = [1]> then\n    if <touching (プレイヤー v)?> then\n        if <(costume [name v]) = [トゲ]> then\n            set [乙返し v] to [1]\n        else\n            if <not <(costume [name v]) = [まわ〜る]>> then\n                if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<[0] < (mouse y)> and <mouse down?>>> then\n                    set [y v] to [14]\n                else\n                    set [y v] to [10]\n                end\n                start sound [Coin v]\n                delete this clone\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nwait (0) seconds\nforever\n    if <touching (ファイアボール v)?> then\n        if <not <(costume [name v]) = [固まった回るやつ]>> then\n            start sound [Coin v]\n            wait (0) seconds\n            delete this clone\n        end\n    end\nend\n\ndefine 確認！\nwait until <(動けないぜ) = [0]>\n\ndefine 記憶喪失w\nset [君の名は v] to (costume [name v])\n\n@説明\n\nwhen I receive [スタート v]\ngo to x: (0) y: (0)\nswitch costume to (jp:1 v)\ngo to [front v] layer\ngo [backward v] (3) layers\nset size to (100) %\npoint in direction (90)\nshow\nforever\n    switch costume to ((ステージ) + (<not <(language::translate) = [日本語]>> * (20)))\nend\n\nwhen I receive [スタート v]\nforever\n    if <touching (プレイヤー v)?> then\n        set [ghost v] effect to (50)\n    else\n        clear graphic effects\n    end\nend\n\n@太陽\n\nwhen I receive [スタート v]\ngo to x: (210) y: (140)\nswitch costume to (太陽 v)\nset [cos v] to [0]\ngo to [back v] layer\nset size to (90) %\npoint in direction (90)\nforever\n    change [cos v] by (8)\n    change size by ([cos v] of (cos) )\nend\n\n@クローン\n\nwhen I receive [スタート v]\nswitch costume to (click to start v)\ngo to x: (0) y: (0)\nset drag mode [not draggable v]\nset size to (100) %\npoint in direction (90)\nhide\nset [id v] to [1]\n\nwhen I start as a clone\nif <(ID) = [1]> then\n    set [雑用 v] to [0]\n    go to [front v] layer\n    show\n    forever\n        change [雑用 v] by (8)\n        turn right ([cos v] of (雑用) ) degrees\n        change size by ([sin v] of (雑用) )\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [1]> then\n    set [ghost v] effect to (100)\n    repeat (2)\n        change [ghost v] effect by (-50)\n    end\n    wait until <<mouse down?> or <key (any v) pressed?>>\n    stop [other scripts in sprite v]\n    set [判定 v] to [0]\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    delete this clone\nelse\n    show\nend\n\nwhen I receive [スタート v]\nset [判定 v] to [1]\nforever\n    wait until <(判定) = [1]>\n    create clone of (_myself_ v)\n    wait until <(判定) = [0]>\nend\n\nwhen I receive [スタート v]\nset [time v] to [0]\nforever\n    if <(判定) = [0]> then\n        change [time v] by (1)\n        wait (1) seconds\n        if <(ステージ) = [20]> then\n            stop [this script v]\n        end\n    end\nend\n\nwhen I receive [スタート v]\nwait (0) seconds\nwait until <(ステージ) = [20]>\nif <<(Time) < (☁ Best Time)> and <(ハイスコアに掲載されないよ君) = [0]>> then\n    set [☁ best time v] to (Time)\nend\nset [id v] to [2]\nクローン (Time) [-155] [160]\nクローン (☁ Best Time) [-155] [138]\ngo to x: (-200) y: (160)\nswitch costume to ((11) + <(言語) = [English]>)\nset size to (60) %\nshow\n\ndefine クローン (何？) (x) (y)\ngo to x: (x) y: (y)\nset [雑用 v] to [0]\nset size to (50) %\nrepeat (length of (何？))\n    change [雑用 v] by (1)\n    switch costume to (letter (雑用) of (何？))\n    create clone of (_myself_ v)\n    change x by (13)\nend\n\n@いろいろカウンター\n\nwhen I receive [スタート v]\nset [ハイスコアに掲載されないよ君 v] to [0]\nset [リトライ v] to [0]\nif <(costume [name v]) = [日本語]> then\n    forever\n        if <(押された) = [1]> then\n            wait until <<not <mouse down?>> or <not <[135] < (mouse y)>>>\n            if <[135] < (mouse y)> then\n                if <<(mouse x) < [-175]> and <(玉発射数) < [2]>> then\n                    if <(モード) = [Flame]> then\n                        create clone of (ファイアボール v)\n                    else\n                        create clone of (アイスボール v)\n                    end\n                else\n                    if <<(mouse x) < [-75]> and <[-152] < (mouse x)>> then\n                        set [リトライ v] to [1]\n                    else\n                        if <<(mouse x) < [25]> and <[-52] < (mouse x)>> then\n                            set [ハイスコアに掲載されないよ君 v] to [1]\n                            change [敵キャラ召喚 v] by (1)\n                            set [リトライ v] to [1]\n                            wait (0) seconds\n                            change [ステージ v] by (1)\n                        end\n                    end\n                end\n            end\n        end\n    end\nelse\n    forever\n        if <(押された) = [1]> then\n            wait until <<not <mouse down?>> or <not <[135] < (mouse y)>>>\n            if <[135] < (mouse y)> then\n                if <<(mouse x) < [-108]> and <(玉発射数) < [2]>> then\n                    if <(モード) = [Flame]> then\n                        create clone of (ファイアボール v)\n                    else\n                        create clone of (アイスボール v)\n                    end\n                else\n                    if <<(mouse x) < [-30]> and <[-91] < (mouse x)>> then\n                        set [リトライ v] to [1]\n                    else\n                        if <<(mouse x) < [40]> and <[-11] < (mouse x)>> then\n                            set [ハイスコアに掲載されないよ君 v] to [1]\n                            change [敵キャラ召喚 v] by (1)\n                            set [リトライ v] to [1]\n                            wait (0) seconds\n                            change [ステージ v] by (1)\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [スタート v]\ngo to x: (0) y: (0)\nset [ghost v] effect to (5)\nset size to (100) %\nhide\nif <(costume [name v]) = [日本語]> then\n    forever\n        if <<<<[135] < (mouse y)> and <<([abs v] of (mouse x) ) < [240]> and <(mouse x) < [30]>>> and <mouse down?>> and <(ステージ) < [20]>> then\n            set [押された v] to [1]\n            show\n        else\n            set [押された v] to [0]\n            hide\n        end\n    end\nelse\n    forever\n        if <<<<[135] < (mouse y)> and <<([abs v] of (mouse x) ) < [240]> and <(mouse x) < [50]>>> and <mouse down?>> and <(ステージ) < [20]>> then\n            set [押された v] to [1]\n            show\n        else\n            set [押された v] to [0]\n            hide\n        end\n    end\nend\n\nwhen I receive [スタート v]\ngo to [back v] layer\nforever\n    go [forward v] (1) layers\nend\n\nwhen I receive [スタート v]\nforever\n    switch costume to ((1) + <(language::translate) = [日本語]>)\nend\n\n@ファイアボール\n\nwhen flag clicked\nset [玉発射数 v] to [0]\nhide\n\nwhen I start as a clone\nchange [玉発射数 v] by (1)\nstart sound [smb_fireball v]\ngo to (プレイヤー v)\nswitch costume to (flame ball v)\ngo to [front v] layer\nset size to (34) %\nshow\nif <([direction v] of [プレイヤー v]) = [90]> then\n    set [x v] to [6.5]\nelse\n    set [x v] to [-6.5]\nend\nset [俺様y v] to [6]\nrepeat until <<[238] < ([abs v] of (x position) )> or <<(y position) < [-178]> or <<<touching (障害物 v)?> or <touching (動く系のやつ v)?>> or <touching (固まったやつ v)?>>>>\n    change x by (x)\n    change y by (俺様y)\n    change [俺様y v] by (-1)\n    if <touching (地面 v)?> then\n        set [俺様y v] to [5.7]\n        めんどい\n    end\n    turn right (5) degrees\nend\nwait (0) seconds\nchange [玉発射数 v] by (-1)\nrepeat (4)\n    change [ghost v] effect by (25)\nend\ndelete this clone\n\ndefine めんどい\nset [回数 v] to [0]\nrepeat until <<not <touching (地面 v)?>> or <[178] < (y position)>>\n    change [回数 v] by (1)\n    change y by (1)\nend\nif <<[30] < (回数)> or <[178] < (y position)>> then\n    repeat (回数)\n        change y by (-1)\n    end\n    change [玉発射数 v] by (-1)\n    delete this clone\nend\n\nwhen I start as a clone\nwait (0) seconds\nwait until <(判定) = [1]>\nchange [玉発射数 v] by (-1)\ndelete this clone\n\n@アイスボール\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nchange [玉発射数 v] by (1)\nstart sound [smb_fireball v]\ngo to (プレイヤー v)\nswitch costume to (ice ball v)\ngo to [front v] layer\nset size to (34) %\nshow\nif <([direction v] of [プレイヤー v]) = [90]> then\n    set [x v] to [6.5]\nelse\n    set [x v] to [-6.5]\nend\nset [俺様y v] to [6]\nrepeat until <<[238] < ([abs v] of (x position) )> or <<(y position) < [-178]> or <<<touching (障害物 v)?> or <touching (動く系のやつ v)?>> or <touching (固まったやつ v)?>>>>\n    change x by (x)\n    change y by (俺様y)\n    change [俺様y v] by (-1)\n    if <touching (地面 v)?> then\n        set [俺様y v] to [5.7]\n        めんどい\n    end\n    turn right (5) degrees\nend\nwait (0) seconds\nchange [玉発射数 v] by (-1)\nrepeat (4)\n    change [ghost v] effect by (25)\nend\ndelete this clone\n\ndefine めんどい\nset [回数 v] to [0]\nrepeat until <<not <touching (地面 v)?>> or <[178] < (y position)>>\n    change [回数 v] by (1)\n    change y by (1)\nend\nif <[30] < (回数)> then\n    repeat (回数)\n        change y by (-1)\n    end\n    change [玉発射数 v] by (-1)\n    delete this clone\nend\n\nwhen I start as a clone\nwait (0) seconds\nwait until <(判定) = [1]>\nchange [玉発射数 v] by (-1)\ndelete this clone\n\n@雲\n\nwhen I receive [スタート v]\nforever\n    create clone of (_myself_ v)\n    wait (pick random (1.5) to (2)) seconds\nend\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nset [必需品 v] to (pick random (50) to (120))\ngo to x: (280) y: ((170) - (必需品))\nswitch costume to (pick random (1) to (2))\nset [ghost v] effect to (pick random (0) to (50))\ngo to [back v] layer\ngo [forward v] (5) layers\nset rotation style [left-right v]\npoint in direction (pick random (-90) to (90))\nset size to ((85) + ((必需品) / (2))) %\nshow\nrepeat until <(x position) < [-260]>\n    change x by ((0) - (round ((必需品) / (15))))\nend\nrepeat (5)\n    change [ghost v] effect by (20)\n    change x by ((0) - (round ((必需品) / (15))))\nend\ndelete this clone\n\n@サムネ\n\nwhen flag clicked\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\nswitch costume to (サムネ v)\nset size to (100) %\nshow\nforever\n    go to [front v] layer\nend\n\n