UNDERTALE Platformer

Instructions: 日本語は下↓\nMove with the arrow keys!\nenemy? If you hit something like that, your physical strength will decrease!\nClear the stage and damage the ksi205202 (icon) (taken with a screenshot)!\nThe smaller the CLEAR time, the greater the damage done to ksi205202! After that, think for yourself! \n\n矢印キーで動かします！\n敵？みたいなのに当たると体力が減る！\nステージをクリアして(スクショで撮った)ksi205202(のアイコン)にダメージをあたえよう！\nCLEARタイムが小さいほどksi205202に与えるダメージは大きくなるよ！あとは、自分で考えてくれ！

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\nwhen I receive [次 v]\nwait (10) seconds\nswitch backdrop to (背景2 v)\n\nwhen I receive [ゲームオーバー v]\nswitch backdrop to (背景3 v)\n\nwhen I receive [clear v]\nswitch backdrop to (背景4 v)\n\nwhen I receive [ｒｒｇｔ v]\nswitch backdrop to (背景1 v)\n\n@ソウル\n\ndefine 初期設定\nset [動力\(y\) v] to [0]\nset [動力\(x\) v] to [0]\nif <(体力) < [1]> then\n    broadcast (ゲームオーバー v)\nend\ngo to x: (-201) y: (-80)\nwait (0.1) seconds\nif <<touching (スプライト1 v)?> or <touching (gasterintro2 v)?>> then\n    change [体力 v] by (5)\nend\n\nwhen flag clicked\nset [体力 v] to [100]\nhide variable [体力 v]\nhide\nforever\n    play sound [インクサンズBGM前半戦 v] until done\nend\n\nwhen I receive [ｒｒｇｔ v]\nwait (0.1) seconds\nswitch costume to (ソウル v)\nshow variable [体力 v]\nset [動力\(x\) v] to [0]\nset [動力\(y\) v] to [0]\nshow\nset size to (40) %\ngo to x: (-201) y: (-80)\npoint in direction (90)\nforever\n    set [動力\(x\) v] to ((動力\(x\)) * (0.9))\n    if <key (any v) pressed?> then\n        change [動力\(x\) v] by (<key (right arrow v) pressed?> - <key (left arrow v) pressed?>)\n        point in direction ((<key (right arrow v) pressed?> - <key (left arrow v) pressed?>) * (90))\n    else\n        change [動力\(x\) v] by (<<mouse down?> and <(mouse x) > [0]>> - <<mouse down?> and <[0] > (mouse x)>>)\n        point in direction ((<<mouse down?> and <(mouse x) > [0]>> - <<mouse down?> and <[0] > (mouse x)>>) * (90))\n    end\n    change x by (動力\(x\))\n    if <touching (バックパック 地面 v)?> then\n        change y by (1)\n    end\n    if <touching (バックパック 地面 v)?> then\n        change y by (1)\n    end\n    if <touching (バックパック 地面 v)?> then\n        change y by (1)\n    end\n    if <touching (バックパック 地面 v)?> then\n        change y by (1)\n    end\n    if <touching (バックパック 地面 v)?> then\n        change y by (1)\n    end\n    if <touching (バックパック 地面 v)?> then\n        change y by (1)\n    end\n    if <touching (バックパック 地面 v)?> then\n        change x by ((動力\(x\)) * (-1))\n        change y by (-6)\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n            if <(動力\(x\)) > [0]> then\n                set [動力\(x\) v] to [-7]\n            else\n                set [動力\(x\) v] to [7]\n            end\n            set [動力\(y\) v] to [10]\n        else\n            set [動力\(x\) v] to [0]\n        end\n    end\n    change y by (-1)\n    if <touching (バックパック 地面 v)?> then\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n            set [動力\(y\) v] to [15]\n        end\n    end\n    if <touching (バックパック 大ジャンプ v)?> then\n        set [動力\(y\) v] to [10]\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n            set [動力\(y\) v] to [20]\n        end\n    end\n    change y by (1)\n    change [動力\(y\) v] by (-1)\n    change y by (動力\(y\))\n    if <touching (バックパック 地面 v)?> then\n        change y by ((動力\(y\)) * (-1))\n        set [動力\(y\) v] to [0]\n    end\n    if <(x position) > [239]> then\n        初期設定\n        broadcast (次のステージ v)\n    end\n    if <(y position) < [-170]> then\n        初期設定\n    end\n    if <touching (gasterintro2 v)?> then\n        初期設定\n        change [体力 v] by (-5)\n    end\n    if <touching (スプライト1 v)?> then\n        change [体力 v] by (-5)\n        初期設定\n    end\n    if <touching (スプライト2 v)?> then\n        broadcast (CLEAR v)\n    end\n    switch costume to (ソウル2 v)\nend\n\nif <(costume [number v]) = [1]> then\nend\n\nwhen I receive [ゲームオーバー v]\nforever\n    hide\nend\n\nwhen I receive [clear v]\nhide\n\nwhen I receive [game clear v]\nforever\n    hide\nend\n\nwhen flag clicked\nforever\n    wait (0.1) seconds\nend\n\n@バックパック 地面\n\nwhen I receive [次のステージ v]\nnext costume\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [ｒｒｇｔ v]\nshow\n\nwhen I receive [ゲームオーバー v]\nforever\n    hide\nend\n\nwhen I receive [clear v]\nnext costume\nhide\n\nwhen I receive [game clear v]\nhide\n\nwhen I receive [game clear v]\nforever\n    hide\nend\n\n@GasterIntro2\n\nwhen flag clicked\ngo to [back v] layer\nswitch costume to (0 v)\nhide\n\nwhen I start as a clone\nswitch costume to (0 v)\nif <(番号) = [0]> then\n    go to x: (-160) y: (143)\n    repeat (5)\n        wait (0.05) seconds\n        next costume\n    end\n    set [番号 v] to [1]\n    create clone of (_myself_ v)\n    repeat (2)\n        wait (0.05) seconds\n        next costume\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(番号) = [2]> then\n    go to x: (-60) y: (143)\n    repeat (5)\n        wait (0.05) seconds\n        next costume\n    end\n    set [番号 v] to [3]\n    create clone of (_myself_ v)\n    repeat (2)\n        wait (0.05) seconds\n        next costume\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(番号) = [1]> then\n    go to x: (-108) y: (143)\n    repeat (5)\n        wait (0.05) seconds\n        next costume\n    end\n    set [番号 v] to [2]\n    create clone of (_myself_ v)\n    repeat (2)\n        wait (0.05) seconds\n        next costume\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(番号) = [3]> then\n    go to x: (-8) y: (143)\n    repeat (5)\n        wait (0.05) seconds\n        next costume\n    end\n    set [番号 v] to [4]\n    create clone of (_myself_ v)\n    repeat (2)\n        wait (0.05) seconds\n        next costume\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(番号) = [4]> then\n    go to x: (42) y: (143)\n    repeat (5)\n        wait (0.05) seconds\n        next costume\n    end\n    set [番号 v] to [5]\n    create clone of (_myself_ v)\n    repeat (2)\n        wait (0.05) seconds\n        next costume\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(番号) = [5]> then\n    go to x: (92) y: (143)\n    repeat (5)\n        wait (0.05) seconds\n        next costume\n    end\n    set [番号 v] to [6]\n    create clone of (_myself_ v)\n    repeat (2)\n        wait (0.05) seconds\n        next costume\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(番号) = [6]> then\n    go to x: (138) y: (143)\n    repeat (5)\n        wait (0.05) seconds\n        next costume\n    end\n    set [番号 v] to [7]\n    create clone of (_myself_ v)\n    repeat (2)\n        wait (0.05) seconds\n        next costume\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(番号) = [7]> then\n    go to x: (195) y: (143)\n    repeat (5)\n        wait (0.05) seconds\n        next costume\n    end\n    set [番号 v] to [8]\n    repeat (2)\n        wait (0.05) seconds\n        next costume\n    end\n    create clone of (_myself_ v)\n    delete this clone\nend\n\nwhen I receive [スタート v]\npoint in direction (180)\nwait (1) seconds\nshow\nset size to (100) %\ngo to x: (-213) y: (143)\nswitch costume to (0 v)\nrepeat (5)\n    wait (0.05) seconds\n    next costume\nend\nset [番号 v] to [0]\ncreate clone of (_myself_ v)\nrepeat (2)\n    wait (0.05) seconds\n    next costume\nend\nhide\n\nwhen I start as a clone\nif <(番号) = [8]> then\n    hide\n    wait (1) seconds\n    show\n    point in direction (90)\n    go to x: (-211) y: (-67)\n    create clone of (_myself_ v)\n    set [番号 v] to [9]\n    repeat (5)\n        wait (0.05) seconds\n        next costume\n    end\n    repeat (2)\n        wait (0.05) seconds\n        next costume\n    end\n    broadcast (次 v)\n    delete this clone\nend\n\nwhen I start as a clone\nif <(番号) = [9]> then\n    point in direction (-90)\n    go to x: (211) y: (-67)\n    repeat (5)\n        wait (0.05) seconds\n        next costume\n    end\n    repeat (2)\n        wait (0.05) seconds\n        next costume\n    end\n    delete this clone\nend\n\nwhen I receive [ゲームオーバー v]\nforever\n    hide\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [2]> then\n        play sound [Blaster Appear v] until done\n    end\nend\n\nwhen I start as a clone\nforever\n    if <(costume [number v]) = [2]> then\n        play sound [Blaster Appear v] until done\n    end\nend\n\nwhen I receive [game clear v]\nhide\n\nwhen I receive [game clear v]\nforever\n    hide\nend\n\n@Fight\n\nwhen flag clicked\nwait (0.2) seconds\ngo to [front v] layer\nswitch costume to (fight v)\nshow\nforever\n    if <touching (mouse-pointer v)?> then\n        switch costume to (fight2 v)\n    else\n        switch costume to (fight v)\n    end\nend\n\nwhen this sprite clicked\nbroadcast (ｒｒｇｔ v)\nbroadcast (スタート v)\nhide\n\nwhen I receive [clear v]\nshow\n\nwhen I receive [スタート v]\nhide\n\nwhen I receive [game clear v]\nhide\n\nwhen I receive [game clear v]\nforever\n    hide\nend\n\n@スプライト1\n\nwhen flag clicked\nset rotation style [left-right v]\ngo to [back v] layer\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [次 v]\nswitch costume to (コスチューム1 v)\nshow\ngo to x: (0) y: (27)\npoint in direction (90)\nrepeat until <(backdrop [number v]) = [2]>\n    move (10) steps\n    if <(x position) = [232]> then\n        point in direction (-90)\n    end\n    if <(x position) = [-232]> then\n        point in direction (90)\n    end\nend\nswitch costume to (コスチューム2 v)\ngo to x: (25) y: (155)\nbroadcast (次② v)\nrepeat until <<(y position) = [-180]> or <touching (ソウル v)?>>\n    change y by (-10)\nend\nhide\n\nwhen I start as a clone\nif <not <(backdrop [number v]) = [3]>> then\n    show\nend\nswitch costume to (コスチューム2 v)\ngo to x: (pick random (238) to (-238)) y: (155)\nrepeat until <<(y position) = [-180]> or <touching (ソウル v)?>>\n    change y by (-10)\nend\ndelete this clone\n\nwhen I receive [次② v]\nrepeat (40)\n    wait (0.25) seconds\n    create clone of (_myself_ v)\nend\ngo to x: (0) y: (0)\nshow\nswitch costume to (コスチューム3 v)\nset rotation style [all around v]\nrepeat (360)\n    turn right (1) degrees\nend\nswitch costume to (コスチューム4 v)\ngo to x: (0) y: (0)\nrepeat (20)\n    go to x: (0) y: (0)\n    point towards (ソウル v)\n    repeat until <<touching (ソウル v)?> or <touching (_edge_ v)?>>\n        move (7) steps\n    end\nend\nhide\nbroadcast (スタート v)\n\nwhen I receive [ゲームオーバー v]\nhide variable [体力 v]\nforever\n    hide\nend\n\nwhen I receive [game clear v]\nhide\n\nwhen I receive [game clear v]\nforever\n    hide\nend\n\n@スプライト2\n\nwhen flag clicked\ngo to [back v] layer\nswitch costume to (コスチューム2 v)\n\nwhen I receive [次のステージ v]\nnext costume\n\nwhen I receive [clear v]\nnext costume\nhide\n\nwhen I receive [スタート v]\nshow\n\nwhen I receive [game clear v]\nhide\n\nwhen I receive [ゲームオーバー v]\nhide\n\n@スプライト3\n\nwhen I receive [clear v]\nshow\n\nwhen I receive [ｒｒｇｔ v]\nhide\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nshow\ngo to [front v] layer\nwait (0.1) seconds\ngo [backward v] (1) layers\n\nwhen I receive [game clear v]\nshow\n\nwhen I receive [ゲームオーバー v]\nswitch costume to (コスチューム2 v)\nforever\n    show\nend\n\n@スプライト4\n\nwhen I receive [clear v]\nshow variable [ksi205202の体力 v]\nshow\nif <[-1] < (タイム)> then\n    set [ダメージ v] to ((100) - (タイム))\n    say (join (ダメージ) [ダメージ！])\nend\nif <[100] < (タイム)> then\n    set [ダメージ v] to ((100) - (タイム))\n    say (join ((ダメージ) * (-1)) [ksi205202は回復した！])\nend\nchange [ksi205202の体力 v] by ((ダメージ) * (-1))\n\nwhen I receive [ｒｒｇｔ v]\nhide\nwait (1) seconds\ngo to [front v] layer\n\nwhen flag clicked\nhide variable [ksi205202の体力 v]\nhide\nwait (1) seconds\ngo to [front v] layer\n\nwhen I receive [ｒｒｇｔ v]\nwait (0.01) seconds\nhide variable [ksi205202の体力 v]\nset [タイム v] to [0]\nrepeat until <(backdrop [number v]) = [4]>\n    wait (1) seconds\n    change [タイム v] by (1)\nend\n\nwhen flag clicked\nset [ksi205202の体力 v] to [200]\nforever\n    if <(ksi205202の体力) < [1]> then\n        set [ksi205202の体力 v] to [2]\n        hide variable [ksi205202の体力 v]\n        broadcast (game clear v)\n    end\nend\n\nwhen I receive [game clear v]\nshow\nsay [僕の負けだ。] for (3) seconds\nsay [負けを認める。だが、♡と☆を押せえええ！] for (4) seconds\nhide\nstop [all v]\n\nwhen I receive [game clear v]\nhide variable [体力 v]\nshow\n\n@サムネ\n\nwhen flag clicked\ngo to [front v] layer\nswitch costume to (コスチューム1 v)\nset [ghost v] effect to (100)\nwait (0.21) seconds\ngo to [front v] layer\n\n