チーズプラットフォーマー/Cheese platformer

Instructions: ランキング復活！（嘘、ターボモードだと判断した場合は載せません）\n何かバグがあったら教えてください\nPlease let me know if there are any bugs\n日本語は下！\n～English～\nThe main character has wandered into the country of cheese! Avoid the thorns and escape! enjoy!\n～日本語～\n主人公はチーズの国に迷い込んでしまった…\n華麗にトゲをよけて脱出しよう！\n楽しんでね！

@Stage\n\nwhen I receive [スタート v]\nforever\n    play sound [チーズ v] until done\nend\n\n@プ・ラットフォーマーくん\n\ndefine 初期設定プログラム\nshow\nset [x v] to [0]\nset [y v] to [0]\nset rotation style [left-right v]\ngo to x: (-210) y: (-30)\nset size to (90) %\nswitch costume to (みぎ v)\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nshow\n初期設定プログラム\nforever\n    if <<key (right arrow v) pressed?> or <<<mouse down?> and <(x position) < (mouse x)>> or <key (d v) pressed?>>> then\n        switch costume to (みぎ v)\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<<mouse down?> and <(mouse x) < (x position)>> or <key (a v) pressed?>>> then\n        switch costume to (ひだり v)\n        change [x v] by (-1)\n    end\n    set [x v] to ((X) * (0.89))\n    change x by (X)\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 (-5)\n                            change x by ((X) * (-1))\n                            if <<key (up arrow v) pressed?> or <<<mouse down?> and <(y position) < (mouse y)>> or <key (w v) pressed?>>> then\n                                if <(X) < [0]> then\n                                    start sound [壁キック v]\n                                    set [x v] to [10]\n                                else\n                                    start sound [壁キック v]\n                                    set [x v] to [-10]\n                                end\n                                set [y v] to [15]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v] by (-0.9)\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    change y by (-1)\n    if <<key (up arrow v) pressed?> or <<<mouse down?> and <(y position) < (mouse y)>> or <key (w v) pressed?>>> then\n        if <touching (ステージ v)?> then\n            start sound [可愛いジャンプ v]\n            set [y v] to [15]\n        end\n    end\n    change y by (1)\n    if <[242] < (x position)> then\n        初期設定プログラム\n        broadcast (ネクスト v)\n        wait (1.3) seconds\n    end\n    if <<(y position) < [-180]> and <not <(ステージ) = [17]>>> then\n        初期設定プログラム\n    end\n    if <touching (トゲ v)?> then\n        初期設定プログラム\n    end\n    if <<(y position) < [-180]> and <(ステージ) = [17]>> then\n        broadcast (隠し発見!! v)\n        初期設定プログラム\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (コスチューム3 v)\nrepeat (6)\n    change size by (-6)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nset [time v] to [0]\nrepeat until <(ステージ) = [18]>\n    wait (1) seconds\n    change [time v] by (1)\nend\n\nwhen flag clicked\nbroadcast (スタート v)\n\n@ステージ\n\nwhen I receive [スタート v]\nshow\nforever\n    switch costume to (ステージ)\nend\n\nwhen flag clicked\nhide\nset [ステージ v] to [1]\n\nwhen I receive [ネクスト v]\nchange [ステージ v] by (1)\n\n@トゲ\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\npoint in direction (90)\nshow\ngo to [back v] layer\nforever\n    switch costume to (ステージ)\n    if <(ステージ) = [7]> then\n        turn left (2) degrees\n    end\n    if <(ステージ) = [8]> then\n        point in direction (90)\n    end\nend\n\n@NEXT\n\nwhen flag clicked\nhide\n\nwhen I receive [ネクスト v]\ngo to [front v] layer\nshow\ngo to x: (465) y: (0)\nglide (0.2) secs to x: (0) y: (0)\nwait (0.6) seconds\nglide (0.2) secs to x: (-465) y: (0)\nhide\n\n@おサムネですわ～～～\n\nwhen flag clicked\nforever\n    show\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    go to [front v] layer\nend\n\n@太陽\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nshow\nset size to (100) %\nset [三角関数 v] to [0]\nforever\n    go to [back v] layer\n    change [三角関数 v] by (5)\n    change size by ([sin v] of (三角関数) )\nend\n\n@雲ピッピｗｗ\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nshow\nset size to (100) %\nset [三角関数 v] to [0]\nforever\n    go to [back v] layer\n    change [三角関数 v] by (5)\n    change size by ([sin v] of (三角関数) )\nend\n\n