Typhoon Night  platformer

Instructions: ※旗は3回押す※pushing the flag three times.\n日本語は下\nUse arrow keys to operate\nFailure when it hits red\nIf it is even a little interesting, ♥ ☆ follow! !\n=========================================\n矢印キーで操作\n赤に当たると失敗\n少しでも面白かったら♥☆フォロー頼む‼

@Stage\n\nwhen I receive [ビントロ v]\nswitch backdrop to (背景2 v)\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\n@Cat\n\nif <<touching color (#ff0000)?> or <(y position) < [-175]>> then\n    go to x: (-222) y: (-100)\nend\n\nif <touching color (#f7f7f7)?> then\n\ngo to x: (-222) y: (-100)\n\nwhen flag clicked\nset size to (50) %\nhide\n\nwhen I receive [ビントロ v]\nshow\ngo to [front v] layer\nshow\nset size to (75) %\nswitch costume to (コスチューム3 v)\nset drag mode [not draggable v]\ngo to x: (-190) y: (-50)\npoint in direction (90)\nset [背景 v] to [1]\nforever\n    change [左右 v] by (-1)\n    create clone of (_myself_ v)\n    set rotation style [left-right v]\n    if <<<mouse down?> and <(x position) > (mouse x)>> or <key (left arrow v) pressed?>> then\n        change [左右 v] by (-1)\n        point in direction (-90)\n    end\n    if <<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>> then\n        change [左右 v] by (2)\n        point in direction (90)\n    end\n    set [左右 v] to ((左右) * (0.9))\n    change x by (左右)\n    if <touching (スプライト1 v)?> then\n        change y by (1)\n        if <touching (スプライト1 v)?> then\n            change y by (1)\n            if <touching (スプライト1 v)?> then\n                change y by (1)\n                if <touching (スプライト1 v)?> then\n                    change y by (1)\n                    if <touching (スプライト1 v)?> then\n                        change y by (1)\n                        if <touching (スプライト1 v)?> then\n                            change x by ((左右) * (-1))\n                            change y by (-5)\n                            if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n                                if <(左右) > [0]> then\n                                    set [左右 v] to [-7]\n                                else\n                                    set [左右 v] to [7]\n                                end\n                                set [上下 v] to [10]\n                                start sound [Crunch v]\n                            else\n                                set [左右 v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <touching (スプライト1 v)?> then\n        if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n            start sound [Jump v]\n            set [上下 v] to [15]\n            point in direction ((上下) * (0.5))\n        end\n    end\n    change y by (1)\n    change [上下 v] by (-1)\n    change y by (上下)\n    if <touching (スプライト1 v)?> then\n        change y by ((上下) * (-1))\n        set [上下 v] to [0]\n    end\n    hide variable [左右 v]\n    if <(y position) < [-170]> then\n        set [左右 v] to [0]\n        set [上下 v] to [0]\n        go to x: (-190) y: (-50)\n    end\n    if <<touching color (#ff0000)?> or <touching color (#b20000)?>> then\n        start sound [Pew v]\n        set [左右 v] to [0]\n        set [上下 v] to [0]\n        go to x: (-190) y: (-50)\n    end\n    if <[240] < (x position)> then\n        broadcast (tugi v)\n        change [背景 v] by (1)\n        set [左右 v] to [0]\n        set [上下 v] to [0]\n        go to x: (-190) y: (-50)\n    end\n    if <touching color (#00ffff)?> then\n        start sound [Jump2 v]\n        set [上下 v] to [20]\n    end\nend\n\nwhen I receive [ビントロ v]\nshow\n\nset [上下 v] to [0]\n\nwhen I receive [tugi v]\nshow\nset [左右 v] to [0]\nset [上下 v] to [0]\ngo to x: (-190) y: (-50)\n\nwhen I start as a clone\nrepeat (20)\n    change size by (-2)\n    change [ghost v] effect by (5)\nend\ndelete this clone\n\nwhen I receive [ビントロ v]\nforever\n    switch costume to (主人公 v)\n    if <key (right arrow v) pressed?> then\n        switch costume to (主人公2 v)\n    else\n        switch costume to (主人公 v)\n    end\n    if <key (left arrow v) pressed?> then\n        switch costume to (主人公2 v)\n    end\nend\n\n@イントロ\n\nwhen flag clicked\nplay sound [Jensation - Delicious v] until done\nwait (2) seconds\nbroadcast (ビントロ v)\nforever\n    play sound [Axol x Alex Skrindo - You \[NCS Release\].mp3 v] until done\nend\n\nwhen I start as a clone\nshow\nif <[0] = (イントロ制御1)> then\n    set size to (50) %\n    go to x: (1) y: (242)\n    repeat (15)\n        change y by (((-1) - (y position)) / (3))\n    end\n    wait until <[0.9] < (timer)>\n    go to x: (1) y: (0)\n    repeat until <(x position) = [280]>\n        change x by (x position)\n    end\n    delete this clone\nelse\n    if <[1] = (イントロ制御1)> then\n        go to [back v] layer\n        set size to (50) %\n        go to x: (1) y: (-338)\n        repeat (9)\n            change y by (((1) - (y position)) / (3))\n        end\n        wait until <[0.9] < (timer)>\n        go to x: (1) y: (0)\n        repeat until <(x position) = [312]>\n            change x by (x position)\n        end\n        delete this clone\n    else\n        if <[2] = (イントロ制御1)> then\n            go to x: (240) y: (0)\n            set size to (100) %\n            set [イントロ制御2 v] to [20]\n            repeat (8)\n                switch costume to (拡大用 v)\n                change size by (イントロ制御2)\n                set [イントロ制御2 v] to ((イントロ制御2) * (1.5))\n                switch costume to (まる v)\n                wait (0) seconds\n            end\n            wait until <[7.8] < (timer)>\n            delete this clone\n        else\n            if <[3] = (イントロ制御1)> then\n                go to x: (0) y: (0)\n                set size to (100) %\n                clear graphic effects\n                go to [front v] layer\n                repeat (10)\n                    change [ghost v] effect by (10)\n                end\n                wait until <[3.5] < (timer)>\n                clear graphic effects\n                go to [front v] layer\n                repeat (10)\n                    change [ghost v] effect by (10)\n                end\n                wait until <[5.2] < (timer)>\n                clear graphic effects\n                go to [front v] layer\n                repeat (10)\n                    change [ghost v] effect by (10)\n                end\n                delete this clone\n            else\n                if <[4] = (イントロ制御1)> then\n                    go to x: (0) y: (0)\n                    set size to (50) %\n                    repeat until <[5.2] < (timer)>\n                        go to [front v] layer\n                        set [イントロ制御2 v] to (((イントロ制御2) + (10)) mod (360))\n                        change y by (([sin v] of (イントロ制御2) ) * (1.1))\n                        point in direction ((([sin v] of (イントロ制御2) ) * (1.2)) + (90))\n                    end\n                    go to x: (0) y: (40)\n                    repeat until <[7] < (timer)>\n                        set [イントロ制御2 v] to (((イントロ制御2) + (-10)) mod (360))\n                        change y by (([sin v] of (イントロ制御2) ) * (1.1))\n                        point in direction ((([sin v] of (イントロ制御2) ) * (1.2)) + (90))\n                    end\n                    repeat (10)\n                        change y by (-5)\n                        change [ghost v] effect by (10)\n                    end\n                    delete this clone\n                else\n                    if <[5] = (イントロ制御1)> then\n                        set size to (20) %\n                        go to (random position v)\n                        set [イントロ制御2 v] to (pick random (0.5) to (1))\n                        point in direction (pick random (180) to (-180))\n                        repeat until <[7] < (timer)>\n                            move (イントロ制御2) steps\n                            if on edge, bounce\n                        end\n                        repeat (10)\n                            change y by (-5)\n                            change [ghost v] effect by (10)\n                        end\n                        delete this clone\n                    else\n                        if <[6] = (イントロ制御1)> then\n                            go to x: (0) y: (-110)\n                            repeat until <[7] < (timer)>\n                                set [イントロ制御2 v] to (((イントロ制御2) + (5)) mod (360))\n                                change y by (([sin v] of (イントロ制御2) ) * (1.1))\n                                point in direction ((([sin v] of (イントロ制御2) ) * (1.2)) + (90))\n                            end\n                            repeat (10)\n                                change y by (-5)\n                                change [ghost v] effect by (10)\n                            end\n                            delete this clone\n                        else\n                            if <[7] = (イントロ制御1)> then\n                                go to x: (-240) y: (0)\n                                set size to (100) %\n                                set [イントロ制御2 v] to [20]\n                                repeat (8)\n                                    switch costume to (拡大用 v)\n                                    change size by (イントロ制御2)\n                                    set [イントロ制御2 v] to ((イントロ制御2) * (1.5))\n                                    switch costume to (まる2 v)\n                                    wait (0) seconds\n                                end\n                                wait until <[7.8] < (timer)>\n                                repeat (50)\n                                    change [ghost v] effect by (2)\n                                end\n                                delete this clone\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine 後ろのふわふわ\nrepeat (20)\n    switch costume to (pick random (8) to (10))\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nreset timer\nset size to (100) %\nhide\nreset timer\nset [イントロ制御1 v] to [0]\nswitch costume to (1 v)\ncreate clone of (_myself_ v)\nwait until <[0.6] < (timer)>\nset [イントロ制御1 v] to [1]\nswitch costume to (2 v)\ncreate clone of (_myself_ v)\nwait until <[1.2] < (timer)>\nset [イントロ制御1 v] to [2]\nswitch costume to (まる v)\ncreate clone of (_myself_ v)\nwait until <[1.6] < (timer)>\nset [イントロ制御1 v] to [3]\nswitch costume to (フラッシュ v)\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [イントロ制御1 v] to [4]\nswitch costume to (フル v)\ncreate clone of (_myself_ v)\nwait until <[3.5] < (timer)>\nset [イントロ制御1 v] to [5]\n後ろのふわふわ\nwait until <[5.2] < (timer)>\nset [イントロ制御1 v] to [6]\nswitch costume to (ユザネ v)\ncreate clone of (_myself_ v)\nwait until <[7] < (timer)>\nset [イントロ制御1 v] to [7]\nswitch costume to (まる2 v)\ncreate clone of (_myself_ v)\n\n@スプライト1\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nset [あああああａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａ v] to [0]\nhide\n\nwhen I receive [ビントロ v]\nshow\nswitch costume to (背景)\n\nwhen I receive [tugi v]\nswitch costume to (背景)\n\nwhen flag clicked\nforever\n    if <(costume [name v]) = [くりあ]> then\n        set [あああああａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａ v] to [1]\n    end\nend\n\n@スプライト4\n\nwhen flag clicked\nset [ghost v] effect to (3500)\n\nhide\nshow\n\nwhen I receive [ビントロ v]\n\nforever\n\nreset timer\n\nwhen [timer v] > (0.1)\n\nwhen I receive [ビントロ v]\n\nforever\n    if <(timer) = [0.1]> then\n        repeat (35)\n            change [pixelate v] effect by (-100)\n        end\n        stop [all v]\n    end\nend\n\n@スプライト5\n\nwhen I start as a clone\nset [ghost v] effect to (30)\nshow\ngo to x: (330) y: (pick random (122) to (30))\nglide (pick random (5) to (7)) secs to x: (-330) y: (y position)\ndelete this clone\n\nwhen flag clicked\n\nwhen flag clicked\nhide\n\nwhen I receive [ビントロ v]\ngo [backward v] (1) layers\nhide\nforever\n    create clone of (_myself_ v)\n    wait (pick random (0.1) to (5)) seconds\nend\n\nshow\n\n@スプライト7\n\nwhen flag clicked\nhide\n\nwhen I receive [ビントロ v]\ngo to x: (-195) y: (-147)\nshow\nset [ghost v] effect to (50)\n\n@スプライト2\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nset [あああああａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａ v] to [0]\nhide\n\nwhen I receive [ビントロ v]\nshow\nswitch costume to (背景)\n\nwhen I receive [tugi v]\nswitch costume to (背景)\n\nwhen flag clicked\nforever\n    if <(costume [name v]) = [くりあ]> then\n        set [あああああａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａａ v] to [1]\n    end\n    repeat (12)\n        change y by (1)\n    end\n    repeat (12)\n        change y by (-1)\n    end\nend\n\n