Long Platformer!!
@Stage\n\nwhen flag clicked\nforever\n    play sound [keijokyoku v] until done\nend\n\n@prayer\n\ndefine 動作\nset rotation style [left-right v]\nset size to (80) %\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>>> then\n    change [x v] by (-1)\n    point in direction (-90)\n    create clone of (_myself_ v)\nend\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>>> then\n    change [x v] by (1)\n    point in direction (90)\n    create clone of (_myself_ v)\nend\nif <touching (氷 v)?> then\n    set [x v] to ((x) * (0.97))\nelse\n    set [x v] to ((x) * (0.89))\nend\nchange x by (x)\nif <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 y by (1)\n                            if <touching (ステージ v)?> then\n                                change y by (1)\n                                if <touching (ステージ v)?> then\n                                    change x by ((x) * (-1))\n                                    change y by (-8)\n                                    if <<key (up arrow v) pressed?> or <<key (w 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                                        start sound [Pop v]\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    end\n    change y by (1)\nend\nchange y by (-1)\nif <touching (ステージ v)?> then\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>>> then\n        set [y v] to [12]\n        start sound [ニュッ v]\n    end\nend\nchange y by (1)\nchange [y v] by (-1)\nchange y by (y)\nif <touching (ステージ v)?> then\n    change y by ((y) * (-1))\n    set [y v] to [0]\nend\nif <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <<[0] > (mouse y)> and <mouse down?>>> then\n    switch costume to (player2 v)\nelse\n    switch costume to (player1 v)\nend\nif <<touching color (#2a2da5)?> or <touching color (#d5ff45)?>> then\n    set [y v] to [30]\nend\nif <<touching color (#252792)?> or <touching color (#ccf63e)?>> then\n    set [y v] to [-30]\nend\nif <<[13] < (ステージ)> and <touching (  v)?>> then\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>>> then\n        set [y v] to [2]\n    else\n        set [y v] to [-0.5]\n    end\nend\ngo [backward v] (1) layers\n\nwhen flag clicked\ngo to x: (-200) y: (0)\nclear graphic effects\nset [ステージ v] to [1]\nshow\nforever\n    動作\n    if <<<[-175] > (y position)> and <not <(ステージ) = [u1]>>> or <touching (❌ v)?>> then\n        if <not <(ステージ) = [15]>> then\n            start sound [crashed oof v]\n            repeat (20)\n                change [ghost v] effect by (5)\n            end\n            clear graphic effects\n            go to x: (-200) y: (0)\n        end\n    end\n    if <<[230] < (x position)> or <<(ステージ) = [15]> and <[-175] > (y position)>>> then\n        go to x: (-200) y: (0)\n        change [ステージ v] by (1)\n    end\n    if <<(ステージ) = [12]> and <[175] < (y position)>> then\n        set [ステージ v] to [u1]\n        set y to (-170)\n    end\n    if <<(ステージ) = [u1]> and <[-175] > (y position)>> then\n        set [ステージ v] to [12]\n        set y to (170)\n    end\nend\n\nwhen I start as a clone\nrepeat (9)\n    change [ghost v] effect by (7)\n    change size by (-7)\n    go to [back v] layer\nend\ndelete this clone\n\n@ステージ\n\nwhen flag clicked\nforever\n    go to x: (0) y: (0)\n    show\n    point in direction (90)\n    switch costume to (ステージ)\nend\n\nwhen flag clicked\nforever\n    if <<[10] > (ステージ)> or <[17] < (ステージ)>> then\n        switch backdrop to (山 v)\n    else\n        if <[9] < (ステージ)> then\n            if <(ステージ) = [u1]> then\n                switch backdrop to (山 v)\n            else\n                if <<[14] > (ステージ)> or <<[15] < (ステージ)> and <[18] > (ステージ)>>> then\n                    switch backdrop to (洞窟 v)\n                else\n                    switch backdrop to (海 v)\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\nwait (1) seconds\nforever\n    if <<(costume [name v]) = [18-1]> and <[125] < ([x position v] of [prayer v])>> then\n        start sound [門を開ける v]\n        change [ステージ v] by (1)\n    end\nend\n\n@❌\n\nwhen flag clicked\nforever\n    go to x: (0) y: (0)\n    show\n    point in direction (90)\n    switch costume to (ステージ)\nend\n\n@ \n\nwhen flag clicked\nforever\n    go to x: (0) y: (0)\n    point in direction (90)\n    if <(ステージ) = [11]> then\n        switch costume to (11 v)\n        show\n    else\n        if <(ステージ) = [12]> then\n            switch costume to (12 v)\n            show\n        else\n            if <<[13] < (ステージ)> and <<not <(ステージ) = [u1]>> and <[16] > (ステージ)>>> then\n                switch costume to (14~ v)\n                show\n            else\n                hide\n            end\n        end\n    end\nend\n\n@s\n\nwhen flag clicked\nforever\n    change [ghost v] effect by (100)\n    go to [front v] layer\n    show\nend\n\n