アンダーテール！プラットフォーマー！ Under tale platformer!

Instructions: 矢印キーで移動\nパスワードは  　https://scratch.mit.edu/projects/432085922/ の裏ステージに書いてある半角英語で7文字のものです。\nあとこれ拡散してください\nhttps://www.youtube.com/watch?v=46jf8qxhptU

@Stage\n\nwhen flag clicked\nforever\n    play sound [Glitchtale OST - True LOVE \[Genocide Frisk's Theme\] v] until done\nend\n\n@ハート\n\nwhen flag clicked\nset [brightness v] effect to (0)\nset [ghost v] effect to (0)\nset size to (100) %\nset [自分のタイム v] to [0]\nforever\n    wait (0.01) seconds\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nrepeat (5)\n    change [brightness v] effect by (10)\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen flag clicked\nset [上？ v] to [ok]\nset size to (100) %\nclear graphic effects\nwait (0.01) seconds\nset rotation style [left-right v]\npoint in direction (90)\ngo to [front v] layer\nset [x v] to [0]\nset [y v] to [0]\nset [ステージ v] to [1]\nclear graphic effects\ngo to x: (-200) y: (0)\nshow\nforever\n    if <(動ける？) = [ok]> then\n        set [x v] to ((X) * (0.92))\n        change x by (X)\n        if <(上？) = [ok]> then\n            switch costume to (↑ v)\n            if <touching (枠 v)?> then\n                change y by (1)\n                if <touching (枠 v)?> then\n                    change y by (1)\n                    if <touching (枠 v)?> then\n                        change y by (1)\n                        if <touching (枠 v)?> then\n                            change y by (1)\n                            if <touching (枠 v)?> then\n                                change y by (1)\n                                if <touching (枠 v)?> then\n                                    change y by (1)\n                                    if <touching (枠 v)?> then\n                                        change x by ((0) - (X))\n                                        change y by (-5)\n                                        if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n                                            if <[0] < (X)> then\n                                                set [x v] to [-10]\n                                            else\n                                                set [x v] to [10]\n                                            end\n                                            set [y v] to [15]\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 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            change y by (-2)\n            if <<<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> and <touching (枠 v)?>> then\n                set [y v] to [17]\n                start sound [ジャンプ v]\n            end\n        end\n        if <(上？) = [no]> then\n            switch costume to (↓ v)\n            if <touching (枠 v)?> then\n                change y by (-1)\n                if <touching (枠 v)?> then\n                    change y by (-1)\n                    if <touching (枠 v)?> then\n                        change y by (-1)\n                        if <touching (枠 v)?> then\n                            change y by (-1)\n                            if <touching (枠 v)?> then\n                                change y by (-1)\n                                if <touching (枠 v)?> then\n                                    change y by (-1)\n                                    if <touching (枠 v)?> then\n                                        change x by ((0) - (X))\n                                        change y by (5)\n                                        if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n                                            if <[0] < (X)> then\n                                                set [x v] to [-10]\n                                            else\n                                                set [x v] to [10]\n                                            end\n                                            set [y v] to [-15]\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 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            change y by (2)\n            if <<<key (down arrow v) pressed?> or <<mouse down?> and <(mouse y) < (y position)>>> and <touching (枠 v)?>> then\n                start sound [ジャンプ v]\n                set [y v] to [-17]\n            end\n        end\n        if <<(y position) < [-180]> or <<touching (gaster blaster1 v)?> or <<touching (gaster blaster2 v)?> or <touching (bone enigine v)?>>>> then\n            start sound [死ぬ v]\n            repeat (15)\n                change [ghost v] effect by (5)\n            end\n            hide\n            clear graphic effects\n            go to x: (-200) y: (0)\n            set [x v] to [0]\n            set [y v] to [0]\n            show\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <[245.99999] < (x position)> then\n        if <not <(ステージ) = [11]>> then\n            broadcast (next！ v)\n            clear graphic effects\n            go to x: (-200) y: (0)\n            set [x v] to [0]\n            set [y v] to [0]\n            change [ステージ v] by (1)\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <(動ける？) = [ok]> then\n        show\n    else\n        hide\n    end\nend\n\nwhen flag clicked\nforever\n    if <(ステージ) = [5]> then\n        set [上？ v] to [ok]\n        if <[0] < (x position)> then\n            set [上？ v] to [no]\n        end\n    end\n    if <(ステージ) = [6]> then\n        wait (1) seconds\n        set [変数 v] to (pick random (1) to (2))\n        if <(変数) = [2]> then\n            set [上？ v] to [ok]\n        end\n        if <(変数) = [1]> then\n            set [上？ v] to [no]\n        end\n    end\n    if <(ステージ) = [7]> then\n        set [上？ v] to [ok]\n    end\n    if <(ステージ) = [10]> then\n        ask [パスワードは？] and wait\n        if <(answer) = [znxmpmm]> then\n            set [ステージ v] to [11]\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <(動ける？) = [ok]> then\n        if <not <(ステージ) = [10]>> then\n            if <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n                change [x v] by (0.6)\n            end\n            if <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>> then\n                change [x v] by (-0.6)\n            end\n        end\n        if <(ステージ) = [8]> then\n            if <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n                change [x v] by (0.8)\n            end\n            if <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>> then\n                change [x v] by (-0.8)\n            end\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <[245.99999] < (x position)> then\n        if <not <(ステージ) = [11]>> then\n            broadcast (next！ v)\n            clear graphic effects\n            go to x: (-200) y: (0)\n            set [x v] to [0]\n            set [y v] to [0]\n            change [ステージ v] by (1)\n        end\n    end\nend\n\nwhen flag clicked\ndelete all of [リンク v]\nshow list [リンク v]\nforever\n    if <(ステージ) = [10]> then\n        add [https://scratch.mit.edu/projects/432085922/] to [リンク v]\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nforever\n    if <(ステージ) = [10]> then\n        hide list [リンク v]\n    end\nend\n\n@枠\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    switch costume to (ステージ)\nend\n\n@Gaster Blaster2\n\nwhen flag clicked\nhide\npoint in direction (180)\ngo to x: (0) y: (50)\nswitch costume to (gaster blaster1 v)\nforever\n    if <(動ける？) = [ok]> then\n        if <(ステージ) = [2]> then\n            hide\n        end\n        if <(ステージ) = [3]> then\n            go to x: (30) y: (50)\n            start sound [GB Charge 高音質 v]\n            show\n            wait (0.02) seconds\n            switch costume to (gaster blaster2 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster9 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster10 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster11 v)\n            wait (1) seconds\n            start sound [GB FIre 高音質 v]\n            switch costume to (gaster blaster4 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster5 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster6 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster7 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster8 v)\n        end\n        if <(ステージ) = [4]> then\n            hide\n            set [上？ v] to [no]\n        end\n        if <(ステージ) = [7]> then\n            show\n            point in direction (-90)\n            go to x: (250) y: (-70)\n            start sound [GB Charge 高音質 v]\n            wait (0.02) seconds\n            switch costume to (gaster blaster2 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster9 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster10 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster11 v)\n            wait (1) seconds\n            start sound [GB FIre 高音質 v]\n            switch costume to (gaster blaster4 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster5 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster6 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster7 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster8 v)\n        end\n        if <(ステージ) = [8]> then\n            hide\n        end\n        if <(ステージ) = [9]> then\n            show\n            point in direction (180)\n            go to x: (0) y: (50)\n            start sound [GB Charge 高音質 v]\n            wait (0.02) seconds\n            switch costume to (gaster blaster2 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster9 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster10 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster11 v)\n            wait (1) seconds\n            start sound [GB FIre 高音質 v]\n            switch costume to (gaster blaster4 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster5 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster6 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster7 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster8 v)\n        end\n        if <(ステージ) = [10]> then\n            hide\n        end\n    end\nend\n\n@Gaster Blaster1\n\nwhen flag clicked\nhide\npoint in direction (180)\ngo to x: (0) y: (50)\nswitch costume to (gaster blaster1 v)\nforever\n    if <(動ける？) = [ok]> then\n        if <(ステージ) = [2]> then\n            show\n            start sound [GB Charge 高音質 v]\n            wait (0.02) seconds\n            switch costume to (gaster blaster2 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster9 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster10 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster11 v)\n            wait (1) seconds\n            start sound [GB FIre 高音質 v]\n            switch costume to (gaster blaster4 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster5 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster6 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster7 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster8 v)\n        end\n        if <(ステージ) = [3]> then\n            show\n            go to x: (-30) y: (50)\n            start sound [GB Charge 高音質 v]\n            wait (0.02) seconds\n            switch costume to (gaster blaster2 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster9 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster10 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster11 v)\n            wait (1) seconds\n            start sound [GB FIre 高音質 v]\n            switch costume to (gaster blaster4 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster5 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster6 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster7 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster8 v)\n        end\n        if <(ステージ) = [4]> then\n            hide\n        end\n        if <(ステージ) = [6]> then\n            show\n            go to x: (100) y: (60)\n            start sound [GB Charge 高音質 v]\n            wait (0.02) seconds\n            switch costume to (gaster blaster2 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster9 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster10 v)\n            wait (0.02) seconds\n            switch costume to (gaster blaster11 v)\n            wait (1) seconds\n            start sound [GB FIre 高音質 v]\n            switch costume to (gaster blaster4 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster5 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster6 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster7 v)\n            wait (0.01) seconds\n            switch costume to (gaster blaster8 v)\n        end\n        if <(ステージ) = [7]> then\n            hide\n        end\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nset [動ける？ v] to [ok]\ngo to x: (40) y: (0)\nhide\n\nwhen I receive [next！ v]\ngo to [front v] layer\nset [動ける？ v] to [no]\ngo to x: (40) y: (0)\nshow\nwait (1) seconds\nhide\nset [動ける？ v] to [ok]\n\n@bone enigine\n\nwhen I receive [ゲームオーバー v]\nhide\nerase all\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen I receive [game end v]\nforever\n    hide\n    erase all\n    stop [other scripts in sprite v]\n    delete this clone\nend\n\nwhen I receive [game end v]\nforever\n    hide\n    erase all\n    stop [other scripts in sprite v]\n    delete this clone\nend\n\nwhen I receive [game end v]\nforever\n    hide\n    erase all\n    stop [other scripts in sprite v]\n    delete this clone\nend\n\ndefine Attack bone;x (x) y (y) di (d)\nset [bone;start x v] to (x)\nset [bone;start y v] to (y)\nset [bone;direction v] to (d)\nset [clone v] to [Attack bone]\ncreate clone of (_myself_ v)\n\ndefine stab bone;x (x) y (y) di (di) size (s) ニョッキ度 (n) wait;1 (wa) wait;2 (wa2) color (c)\nset [bone;start x v] to (x)\nset [bone;start y v] to (y)\nset [bone;direction v] to (di)\nset [bone;size v] to (s)\nset [bone;nyokki v] to (n)\nset [bone;wait v] to (wa)\nset [bone;wait2 v] to (wa2)\nset [bone;color v] to (c)\nset [clone v] to [stab bone]\ncreate clone of (_myself_ v)\n\ndefine bone stab x (x) y (y) di (d) nyokki (n) wait1 (w) wait2 (wa) 回数 (c)\ngo to x: (x) y: (y)\nrepeat (c)\n    stab bone;x (x position) y (y) di [90] size [100] ニョッキ度 (n) wait;1 (w) wait;2 (wa) color []\n    change x by (15)\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [player turn v]\ndelete this clone\n\ndefine G bone x y sx sy di size nyo color bgm (x) (y) (sx) (sy) (di) (size) (nyo) (color) (bgm)\nset [bone;start x v] to (x)\nset [bone;start y v] to (y)\nset [bone;speed x v] to (sx)\nset [bone;speed y v] to (sy)\nset [bone;direction v] to (di)\nset [bone;size v] to (size)\nset [bone;nyokki v] to (nyo)\nset [bone;color v] to (color)\nset [bone;bgm v] to (bgm)\nset [clone v] to [g bone]\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nforever\n    if <(ステージ) = [8]> then\n        repeat until <(ステージ) = [9]>\n            normal bone:sx [-80] :sy [50] :di [180] :size [120] :speed x [0] :speed y [-8] :costume [18] :bgm [5] :color []\n            wait (0.35) seconds\n            normal bone:sx [200] :sy [-90] :di [0] :size [120] :speed x [0] :speed y [8] :costume [18] :bgm [5] :color []\n            wait (0.35) seconds\n            normal bone:sx [200] :sy [50] :di [0] :size [120] :speed x [0] :speed y [-8] :costume [18] :bgm [5] :color []\n            wait (0.35) seconds\n            normal bone:sx [-80] :sy [-90] :di [180] :size [120] :speed x [0] :speed y [8] :costume [18] :bgm [5] :color []\n            wait (0.35) seconds\n        end\n    end\n    if <(ステージ) = [9]> then\n        repeat until <(ステージ) = [10]>\n            normal bone:sx [200] :sy [-90] :di [90] :size [80] :speed x [-8] :speed y [0] :costume [18] :bgm [5] :color []\n            wait (0.8) seconds\n            normal bone:sx [200] :sy [-20] :di [90] :size [80] :speed x [-8] :speed y [0] :costume [18] :bgm [5] :color []\n            wait (0.8) seconds\n        end\n    end\nend\n\ndefine normal bone:sx (sx) :sy (sy) :di (di) :size (s) :speed x (spx) :speed y (spy) :costume (co) :bgm (b) :color (col)\nset [bone;start x v] to (sx)\nset [bone;start y v] to (sy)\nset [bone;speed x v] to (spx)\nset [bone;speed y v] to (spy)\nset [bone;direction v] to (di)\nset [bone;size v] to (s)\nset [bone;costume v] to (co)\nset [bone;color v] to (col)\nset [bone;bgm v] to (b)\nset [clone v] to [normal bone]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(clone) = [normal bone]> then\n    show\n    clear graphic effects\n    set size to (bone;size) %\n    switch costume to (bone;costume)\n    start sound (bone;bgm)\n    point in direction (bone;direction)\n    go to x: (bone;start x) y: (bone;start y)\n    repeat (15)\n        change x by (bone;speed x)\n        go to [back v] layer\n        change y by (bone;speed y)\n    end\n    repeat until <touching (_edge_ v)?>\n        change x by (bone;speed x)\n        go to [back v] layer\n        change y by (bone;speed y)\n    end\n    repeat (3)\n        change x by (bone;speed x)\n        go to [back v] layer\n        change y by (bone;speed y)\n    end\n    delete this clone\nelse\n    if <(clone) = [Attack bone]> then\n        switch costume to (attack bone v)\n        set size to (bone;size) %\n        go to [front v] layer\n        clear graphic effects\n        show\n        go to x: (bone;start x) y: (bone;start y)\n        start sound [ほわぁん v]\n        point in direction ((bone;direction) + (180))\n        set [cicle v] to [18.48]\n        repeat (cicle)\n            turn right (cicle) degrees\n            change [cicle v] by (-1)\n        end\n        set [move v] to [5]\n        start sound [しゅいん v]\n        if <touching (_edge_ v)?> then\n            repeat until <not <touching (_edge_ v)?>>\n                move (move) steps\n                change [move v] by (1)\n            end\n        else\n            repeat (5)\n                move (move) steps\n                change [move v] by (1)\n            end\n        end\n        set [move v] to [20]\n        repeat until <touching (_edge_ v)?>\n            move (move) steps\n            change [move v] by (2)\n        end\n        repeat (2)\n            move (move) steps\n            change [move v] by (2)\n        end\n        delete this clone\n    else\n        if <(clone) = [stab bone]> then\n            show\n            clear graphic effects\n            go to x: (bone;start x) y: (bone;start y)\n            point in direction (bone;direction)\n            set size to (bone;size) %\n            start sound [warning v]\n            repeat ((bone;wait) / (2))\n                switch costume to (wait v)\n                wait (0.1) seconds\n                switch costume to (wait2 v)\n                wait (0.1) seconds\n            end\n            switch costume to (bone 1 v)\n            start sound [stab v]\n            if <((bone;nyokki) mod (2)) = [0]> then\n                repeat ((bone;nyokki) / (2))\n                    next costume\n                    next costume\n                end\n            else\n                repeat (bone;nyokki)\n                    next costume\n                end\n            end\n            wait (bone;wait2) seconds\n            if <((bone;nyokki) mod (2)) = [0]> then\n                repeat ((bone;nyokki) / (2))\n                    switch costume to ((costume [number v]) - (2))\n                end\n            else\n                repeat (bone;nyokki)\n                    switch costume to ((costume [number v]) - (1))\n                end\n            end\n            delete this clone\n        else\n            if <(clone) = [g bone]> then\n                show\n                clear graphic effects\n                set size to (bone;size) %\n                switch costume to (bone;costume)\n                start sound (bone;bgm)\n                point in direction (bone;direction)\n                go to x: (bone;start x) y: (bone;start y)\n                repeat (15)\n                    change x by (bone;speed x)\n                    go to [back v] layer\n                    change y by (bone;speed y)\n                end\n                repeat until <<(x position) > [239]> or <<[-240] > (x position)> or <<(y position) > [185]> or <[-173] > (y position)>>>>\n                    change x by (bone;speed x)\n                    go to [back v] layer\n                    change y by (bone;speed y)\n                end\n                delete this clone\n            end\n        end\n    end\nend\n\nwhen I start as a clone\nif <(clone) = [g bone]> then\n    switch costume to (bone 1 v)\n    forever\n        repeat (bone;nyokki)\n            next costume\n        end\n        repeat (bone;nyokki)\n            switch costume to ((costume [number v]) - (1))\n        end\n    end\nend\n\nbroadcast (GB2 v) and wait\n\nwhen I start as a clone\nif <<(clone) = [normal bone]> or <(clone) = [g bone]>> then\n    if <(bone;color) = [orange]> then\n        set [brightness v] effect to (10)\n        set [color v] effect to (90)\n        forever\n            if <touching (ソウル v)?> then\n                broadcast (orange判定 v)\n            end\n        end\n    else\n        if <(bone;color) = [blue]> then\n            set [brightness v] effect to (20)\n            forever\n                if <touching (ソウル v)?> then\n                    broadcast (青判定 v)\n                end\n            end\n        else\n            set [brightness v] effect to (1000)\n            forever\n                if <touching (ソウル v)?> then\n                    broadcast (プレイヤー ダメージ v)\n                end\n            end\n        end\n    end\nend\nif <(clone) = [stab bone]> then\n    repeat ((bone;wait) / (2))\n        wait (0.1) seconds\n        wait (0.1) seconds\n    end\n    if <(bone;color) = [orange]> then\n        set [brightness v] effect to (10)\n        set [color v] effect to (90)\n        forever\n            if <touching (ソウル v)?> then\n                broadcast (orange判定 v)\n            end\n        end\n    else\n        if <(bone;color) = [blue]> then\n            set [brightness v] effect to (20)\n            forever\n                if <touching (ソウル v)?> then\n                    broadcast (青判定 v)\n                end\n            end\n        else\n            set [brightness v] effect to (1000)\n            forever\n                if <touching (ソウル v)?> then\n                    broadcast (プレイヤー ダメージ v)\n                end\n            end\n        end\n    end\nend\n\nbroadcast (オレンジ v)\n\nwait (1) seconds\n\nwhen I receive [最後 v]\n\n@スプライト2\n\nwhen flag clicked\nforever\n    hide\n    reset timer\nend\n\nwhen [timer v] > (0)\ngo to x: (0) y: (0)\ngo to [front v] layer\nshow\n\n