炎？氷？ Flame or Ice?  Platformer!

Instructions: English is below!\n一応タイムあるから速くゴールしてね！\nステージ少なくてごめん。\nちなみにスキップ使うとクラウド変数に\n保存されないよ。　　続編作りました↓\nhttps://scratch.mit.edu/projects/636618311/\nI have time, so please finish immediately!\nI'm sorry I didn't have enough stages.\nI made a sequel↓\nhttps://scratch.mit.edu/projects/636618311/

@Stage\n\nwhen flag clicked\nbroadcast (スタート v)\n\nwhen I receive [スタート v]\nforever\n    play sound [Unlimited v] until done\nend\n\nwhen I receive [スタート v]\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        set [召喚番号 v] to [1]\n        create clone of (敵キャラ v)\n    else\n        if <<(ステージ) = [3]> and <(敵キャラ召喚) < [3]>> then\n            set [敵キャラ召喚 v] to [3]\n            create clone of (敵キャラ v)\n        else\n            if <<(ステージ) = [4]> and <(敵キャラ召喚) < [4]>> then\n                set [敵キャラ召喚 v] to [4]\n                create clone of (敵キャラ v)\n            else\n                if <<(ステージ) = [5]> and <(敵キャラ召喚) < [5]>> then\n                    set [敵キャラ召喚 v] to [5]\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 <<(ステージ) = [8]> and <(敵キャラ召喚) < [8]>> then\n                            set [敵キャラ召喚 v] to [8]\n                            create clone of (敵キャラ v)\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 (100) %\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.25)\n    else\n        change [y v] by (-1)\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 (1)\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 (-1)\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)?> and <touching color (#33edff)?>> 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)?> and <touching color (#33edff)?>> then\n            y座標補正 [敵キャラ]\n        end\n    end\n    if <touching (バネ v)?> then\n        set [y v] to [22]\n    end\n    if <<<<<(リトライ) = [1]> or <<touching (障害物 v)?> and <not <<(モード) = [Flame]> and <touching color (#d80000)?>>>>> or <<touching (敵キャラ v)?> and <touching color (#000000)?>>> or <(乙返し) = [1]>> or <<<(costume [number v]) < [4]> and <(y position) < [-180]>> or <<[3] < (costume [number v])> and <(y position) < [-165]>>>> then\n        set [x v] to [0]\n        set [y v] to [0]\n        set [乙返し v] to [0]\n        change [敵キャラ召喚 v] by (-1)\n        if <(リトライ) = [0]> then\n            start sound [crashed oof 2 v]\n        end\n        go to x: (-200) y: (-50)\n        point in direction (90)\n        set [判定 v] to [1]\n        wait until <(判定) = [0]>\n        set [リトライ v] to [0]\n    end\n    if <[240] < (x position)> then\n        set [x v] to [0]\n        set [y v] to [0]\n        change [ステージ v] by (1)\n        start sound [High Whoosh v]\n        go to x: (-200) y: (-50)\n        point in direction (90)\n        if <(ステージ) < [8]> then\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 [15]\nend\n\ndefine x座標補正 (誰)\nif <[0] < (x)> then\n    repeat until <not <touching ((誰) v)?>>\n        change x by (-1)\n    end\nelse\n    repeat until <not <touching ((誰) v)?>>\n        change x by (1)\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 [14]\n    if <(x) < [0]> then\n        set [x v] to [10]\n    else\n        set [x v] to [-10]\n    end\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 (10)\n    change size by (-5)\n    change [ghost v] effect by (10)\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    if <<touching (障害物 v)?> and <<(モード) = [Flame]> and <touching color (#d80000)?>>> then\n        if <<[0] < (mouse y)> and <mouse down?>> then\n            set [y v] to [8]\n        end\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    すぐやろうか。\nend\n\ndefine すぐやろうか。\nif <<<<<[135] < (mouse y)> and <([abs v] of (mouse x) ) < [240]>> or <touching (mouse-pointer v)?>> and <mouse down?>> and <(ステージ) < [9]>> then\n    set [動けない？ v] to [1]\nelse\n    set [動けない？ v] to [0]\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 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: (5)\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 (1 v)\nset size to (100) %\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\nwait (0) seconds\nwait until <(判定) = [0]>\nif <<(ステージ) = [2]> or <<(ステージ) = [3]> or <(ステージ) = [4]>>> then\n    go to x: (200) y: (-100)\n    switch costume to (普通 v)\n    記憶喪失w\n    show\n    forever\n        point in direction (-90)\n        repeat (90)\n            change x by (-4)\n            確認！\n        end\n        point in direction (90)\n        repeat (90)\n            change x by (4)\n            確認！\n        end\n    end\nelse\n    if <(ステージ) = [5]> then\n        go to x: (200) y: (-100)\n        switch costume to (トゲ v)\n        記憶喪失w\n        show\n        forever\n            point in direction (-90)\n            repeat (85)\n                change x by (-4)\n                確認！\n            end\n            point in direction (90)\n            repeat (85)\n                change x by (4)\n                確認！\n            end\n        end\n    else\n        if <(ステージ) = [6]> then\n            go to x: (160) y: (-100)\n            switch costume to (トゲ v)\n            show\n            forever\n                point in direction (-90)\n                repeat (80)\n                    change x by (-4)\n                end\n                point in direction (90)\n                repeat (80)\n                    change x by (4)\n                end\n            end\n        else\n            go to x: (175) y: (-100)\n            switch costume to (トゲ v)\n            show\n            forever\n                point in direction (-90)\n                repeat (70)\n                    change x by (-4)\n                end\n                point in direction (90)\n                repeat (70)\n                    change x by (4)\n                end\n            end\n        end\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]>\nforever\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    確認！\nend\n\nwhen I receive [乙ベイベー v]\nif <(クローンか) = [1]> then\n    if <touching (プレイヤー v)?> then\n        if <(costume [number v]) = [3]> then\n            set [乙返し v] to [1]\n        else\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\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            if <(モード) = [Flame]> then\n                start sound [Coin v]\n                wait (0) seconds\n                delete this clone\n            else\n                switch costume to (join [固まった] (君の名は))\n                set [動けないぜ v] to [1]\n            end\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 (1 v)\ngo to [front v] layer\ngo [backward v] (1) layers\nset size to (100) %\npoint in direction (90)\nshow\n言語は？\nforever\n    switch costume to ((ステージ) + (<(言語) = [English]> * (9)))\nend\n\ndefine 言語は？\nif <(language::translate) = [日本語]> then\n    set [言語 v] to [日本語]\nelse\n    set [言語 v] to [English]\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    end\nend\n\nwhen I receive [スタート v]\nwait (0) seconds\nwait until <(ステージ) = [9]>\nstop [other scripts in sprite v]\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]\nforever\n    if <<<<[135] < (mouse y)> and <([abs v] of (mouse x) ) < [240]>> and <mouse down?>> and <(ステージ) < [9]>> 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                broadcast (技 v)\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                        change [ステージ v] by (1)\n                        set [リトライ v] to [1]\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [スタート v]\ngo to x: (0) y: (0)\nswitch costume to (色々カウンター v)\nset [ghost v] effect to (5)\nset size to (100) %\nhide\nforever\n    if <<<<[135] < (mouse y)> and <([abs v] of (mouse x) ) < [240]>> and <mouse down?>> and <(ステージ) < [9]>> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [スタート v]\ngo to [back v] layer\nforever\n    go [forward v] (1) layers\nend\n\n@技\n\nwhen flag clicked\nset [クローンか v] to [0]\nset [玉発射数 v] to [0]\nhide\n\nwhen I receive [技 v]\nif <(クローンか) = [0]> then\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nset [クローンか v] to [1]\nchange [玉発射数 v] by (1)\ngo to (プレイヤー v)\nif <(モード) = [Flame]> then\n    switch costume to (flame ball v)\nelse\n    switch costume to (ice ball v)\nend\ngo to [front v] layer\nset size to (40) %\nshow\nif <([direction v] of [プレイヤー v]) = [90]> then\n    set [x v] to [7]\nelse\n    set [x v] to [-7]\nend\nset [俺様y v] to [6]\nrepeat until <<[238] < ([abs v] of (x position) )> or <<(y position) < [-178]> 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 [6]\n        めんどい\n    end\n    turn right (5) degrees\nend\nchange [玉発射数 v] by (-1)\nrepeat (2)\n    change [ghost v] effect by (50)\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