<New> Color platformer

Instructions: ※このゲームは遊び方を見ないと意味不になると思うので見ることをお勧めします!\n ステージ数が少なくてすみません...!(テスト作品のつもりです...!)\n\n<How to play>\n In this work, the color of the main character can be changed by pressing a button. (If you press the button too soon, it may not change...!) \n If you are wearing a red costume, you can pass through the red ground, but if you are wearing a blue costume, you cannot. The blue ground is passable when you are in a blue costume, but not when you are in a red costume. Press the buttons as needed to move forward!\n\n<遊び方>\nこの作品は主人公の色をボタンを押すことによって変えることができます。(早く押しすぎると変わらない場合があります...!)\n赤い地面は赤いコスチュームの時になら通れますが、青いコスチュームの時には通ることができません。逆に、青い地面は青いコスチュームの時には通れますが、赤いコスチュームの時には通ることができません。必要に応じてボタンを押して、進んでいきましょう!\n

@Stage\n\nwhen I receive [タイトルが〜めん v]\nforever\n    play sound [game_maoudamashii_4_field10 v] until done\nend\n\n@Hero\n\nwhen I receive [タイトルが〜めん v]\ngo to [front v] layer\nshow\ngo [backward v] (1) layers\nset size to (75) %\nswitch costume to (red v)\nset drag mode [not draggable v]\ngo to x: (-190) y: (-50)\npoint in direction (90)\nset [ステージ v] to [1]\nset [xvel v] to [0]\nset [yvel v] to [0]\nforever\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 [xv 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 [xv v] by (1)\n        point in direction (90)\n    end\n    set [xv v] to ((Xv) * (0.9))\n    change x by (Xv)\n    if <touching color (#f7a74a)?> then\n        change y by (1)\n        if <touching color (#f7a74a)?> then\n            change y by (1)\n            if <touching color (#f7a74a)?> then\n                change y by (1)\n                if <touching color (#f7a74a)?> then\n                    change y by (1)\n                    if <touching color (#f7a74a)?> then\n                        change y by (1)\n                        if <touching color (#f7a74a)?> then\n                            change x by ((Xv) * (-1))\n                            change y by (-5)\n                            if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n                                if <(Xv) > [0]> then\n                                    set [xv v] to [-7]\n                                else\n                                    set [xv v] to [7]\n                                end\n                                set [yv v] to [10]\n                            else\n                                set [xv 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 color (#f7a74a)?> then\n        if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n            set [yv v] to [15]\n            start sound [ぷよん v]\n            point in direction ((Yv) * (0.5))\n        end\n    end\n    change y by (1)\n    change [yv v] by (-1)\n    change y by (Yv)\n    if <touching color (#f7a74a)?> then\n        change y by ((Yv) * (-1))\n        set [yv v] to [0]\n    end\n    hide variable [xv v]\n    if <(x position) > [230]> then\n        broadcast (next level v)\n        change [ステージ v] by (1)\n        set [yv v] to [0]\n        set [xv v] to [0]\n        go to x: (-190) y: (-50)\n    end\n    if <(y position) < [-170]> then\n        set [xv v] to [0]\n        set [yv v] to [0]\n        go to x: (-190) y: (-50)\n    end\n    if <(costume [number v]) = [1]> then\n        if <touching color (#0042ff)?> then\n            set [xv v] to [0]\n            set [yv v] to [0]\n            go to x: (-190) y: (-50)\n        end\n    else\n        if <touching color (#ff0000)?> then\n            set [xv v] to [0]\n            set [yv v] to [0]\n            go to x: (-190) y: (-50)\n        end\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [change!! v]\nstart sound [Coin v]\nnext costume\nset [あ v] to [0]\n\n@Pen\n\ndefine Pen:position (x) (y) to (x1) (y1) color (beautiful) big? (fat!)\nif <(fat!) = []> then\n    set pen size to (30)\nelse\n    set pen size to (fat!)\nend\nif <(beautiful) = [1]> then\n    set pen color to (#f7a74b)\nelse\n    if <(beautiful) = [2]> then\n        set pen color to (#f78400)\n    else\n        if <(beautiful) = [3]> then\n            set pen color to (#b35f00)\n        else\n            if <(beautiful) = [4]> then\n                set pen color to (#b38653)\n            else\n                if <(beautiful) = [5]> then\n                    set pen color to (#ff0000)\n                else\n                    if <(beautiful) = [6]> then\n                        set pen color to (#0043ff)\n                    end\n                end\n            end\n        end\n    end\nend\npen up\ngo to x: (x) y: (y)\npen down\ngo to x: (x1) y: (y1)\npen up\n\nwhen flag clicked\nerase all\n\nwhen I receive [タイトルが〜めん v]\nerase all\nPen:position [-240] [-180] to [240] [-180] color [3] big? [100]\nPen:position [-240] [-135] to [240] [-135] color [2] big? [25]\nPen:position [-240] [-120] to [240] [-120] color [1] big? [15]\n\nwhen I receive [next level v]\nif <(ステージ) = [2]> then\n    erase all\n    Pen:position [-240] [-180] to [240] [-180] color [3] big? [100]\n    Pen:position [-240] [-135] to [240] [-135] color [2] big? [25]\n    Pen:position [-240] [-120] to [240] [-120] color [1] big? [15]\n    Pen:position [-100] [-97] to [240] [-97] color [5] big? []\nelse\n    if <(ステージ) = [3]> then\n        erase all\n        Pen:position [-240] [-180] to [240] [-180] color [3] big? [100]\n        Pen:position [-240] [-135] to [240] [-135] color [2] big? [25]\n        Pen:position [-100] [-97] to [240] [-97] color [6] big? []\n        Pen:position [-100] [-68] to [240] [-68] color [5] big? []\n        Pen:position [-100] [-105] to [-100] [60] color [6] big? []\n        Pen:position [-240] [-120] to [240] [-120] color [1] big? [15]\n        Pen:position [-75] [-105] to [-75] [60] color [1] big? []\n        Pen:position [190] [0] to [240] [0] color [1] big? []\n    else\n        if <(ステージ) = [4]> then\n            erase all\n            Pen:position [-240] [-180] to [240] [-180] color [3] big? [100]\n            Pen:position [-240] [-135] to [240] [-135] color [2] big? [25]\n            Pen:position [-100] [-105] to [-100] [40] color [6] big? []\n            Pen:position [130] [-105] to [130] [60] color [5] big? []\n            Pen:position [0] [180] to [0] [5] color [6] big? []\n            Pen:position [30] [180] to [30] [5] color [5] big? []\n            Pen:position [-75] [-105] to [-75] [40] color [1] big? []\n            Pen:position [15] [180] to [15] [5] color [1] big? []\n            Pen:position [145] [-105] to [145] [60] color [1] big? []\n            Pen:position [-240] [-120] to [240] [-120] color [1] big? [15]\n        else\n            if <(ステージ) = [5]> then\n                erase all\n                Pen:position [-240] [-180] to [240] [-180] color [3] big? [100]\n                Pen:position [-240] [-135] to [240] [-135] color [2] big? [25]\n                Pen:position [-100] [-105] to [240] [-105] color [6] big? []\n                Pen:position [120] [-65] to [240] [-65] color [5] big? []\n                Pen:position [-240] [-120] to [240] [-120] color [1] big? [15]\n            else\n                if <(ステージ) = [6]> then\n                    erase all\n                    Pen:position [-240] [-180] to [240] [-180] color [3] big? [100]\n                    Pen:position [-240] [-135] to [240] [-135] color [2] big? [25]\n                    Pen:position [240] [-110] to [240] [180] color [1] big? []\n                    Pen:position [-240] [-120] to [240] [-120] color [1] big? [15]\n                end\n            end\n        end\n    end\nend\n\n@ボタン\n\nwhen flag clicked\nhide\n\nwhen I receive [タイトルが〜めん v]\nshow\nset size to (50) %\ngo to x: (-171) y: (-146)\nset drag mode [not draggable v]\nforever\n    broadcast (ボタン v)\n    wait until <not <mouse down?>>\nend\n\nwhen I receive [ボタン v]\nwait until <(あ) = [0]>\nrepeat until <<touching (mouse-pointer v)?> and <mouse down?>>\n    set [あ v] to [0]\n    if <touching (mouse-pointer v)?> then\n        repeat (5)\n            change size by (((60) - (size)) / (5))\n        end\n        if <not <touching (mouse-pointer v)?>> then\n            repeat (5)\n                change size by (((size) - (50)) / (-5))\n            end\n        end\n    end\nend\nset [あ v] to [1]\nbroadcast (Change!! v)\n\n@サムネ\n\nwhen flag clicked\nswitch costume to ( v)\nset [ghost v] effect to (0)\nset volume to (100) %\nshow\nset size to (0) %\ngo to x: (0) y: (-180)\nstart sound [Boing v]\nset [縦 v] to [20]\nrepeat (39)\n    change [縦 v] by (-1)\n    change y by (縦)\n    change size by (0.5)\nend\ngo to x: (0) y: (-165)\nstart sound [Boing v]\nset [縦 v] to [20]\nrepeat (35)\n    change [縦 v] by (-1)\n    change y by (縦)\n    change size by (1)\nend\ngo to x: (0) y: (-140)\nstart sound [Boing v]\nset [縦 v] to [20]\nrepeat (32)\n    change [縦 v] by (-0.948)\n    change y by (縦)\n    change size by (1.35)\nend\nstart sound [Collect v]\nwait (.25) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nbroadcast (タイトルが〜めん v)\n\ngo to x: (0) y: (1)\n\n