【Cave Platformer】 【MASSA game 38】

Instructions: Cave Platformer!\n洞窟の中を探検しよう！\nExplore the inside of the cave!\n世界記録更新できるかな？\nCan you break the world record?\nたくさんコメントしてね！\nPlease comment a lot!

@Stage\n\nwhen I receive [日数リセット v]\nset [日数リセット v] to (days since 2000)\nforever\n    set [日数タイマー v] to (((days since 2000) - (日数リセット)) * (86400))\nend\n\nwhen flag clicked\nset [time v] to [0]\nforever\n    wait (1) seconds\n    change [time v] by (1)\nend\n\nwhen flag clicked\nswitch backdrop to (背景3 v)\n\nwhen flag clicked\nclear graphic effects\n\nwhen I receive [記録 v]\nstop [other scripts in sprite v]\nif <(TIME) < (☁ 世界記録)> then\n    set [☁ 世界記録 v] to (TIME)\nend\nwait (1) seconds\nshow variable [time v]\nshow variable [☁ 世界記録 v]\n\nwhen flag clicked\nhide variable [☁ 世界記録 v]\nhide variable [time v]\n\nwhen I receive [サムネ v]\nhide variable [☁ 世界記録 v]\nhide variable [time v]\n\nwhen flag clicked\nset [fps v] to [0]\nforever\n    set [fps測定 v] to [0]\n    repeat until <[1] < (日数タイマー)>\n        change [fps測定 v] by (1)\n    end\n    set [fps v] to (Fps測定)\n    broadcast (日数リセット v)\nend\n\nwhen flag clicked\nbroadcast (日数リセット v)\nforever\n    if <[35] < (FPS)> then\n        stop [all v]\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nset size to (75) %\nset rotation style [left-right v]\nshow\ngo to [front v] layer\ngo to x: (-174) y: (-80)\nforever\n    動け\n    死\nend\n\ndefine 動け\ngo to [front v] layer\nif <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n    switch costume to (左右 v)\n    point in direction (90)\n    change [x v] by (1.2)\nend\nif <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n    switch costume to (左右 v)\n    point in direction (-90)\n    change [x v] by (-1.2)\nend\nset [x v] to ((X) * (0.9))\nchange x by (X)\nif <touching color (#6f6f6f)?> then\n    change y by (1)\n    if <touching color (#6f6f6f)?> then\n        change y by (1)\n        if <touching color (#6f6f6f)?> then\n            change y by (1)\n            if <touching color (#6f6f6f)?> then\n                change y by (1)\n                if <touching color (#6f6f6f)?> then\n                    change y by (1)\n                    if <touching color (#6f6f6f)?> then\n                        change y by (1)\n                        if <touching color (#6f6f6f)?> then\n                            change y by (1)\n                            if <touching color (#6f6f6f)?> then\n                                change y by (-7)\n                                change x by ((X) * (-1))\n                                if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n                                    if <[0] < (X)> then\n                                        set [x v] to [-8]\n                                    else\n                                        set [x v] to [8]\n                                    end\n                                    set [y v] to [12]\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange y by (-1)\nif <touching color (#6f6f6f)?> then\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n        set [y v] to [15]\n    end\nend\nchange y by (1)\nchange [y v] by (-1)\nchange y by (Y)\nif <touching color (#6f6f6f)?> then\n    change y by ((Y) * (-1))\n    set [y v] to [0]\nend\n\ndefine 死\nif <[230] < (x position)> then\n    broadcast (次のステージ v)\n    リスポーン\nend\nif <(y position) < [-185]> then\n    死のリスポーン\nend\nif <<touching color (#ff4d4d)?> or <touching color (#ff0000)?>> then\n    死のリスポーン\nend\n\ndefine リスポーン\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-200) y: (-50)\n\ndefine 死のリスポーン\nset [x v] to [0]\nset [y v] to [0]\nglide (0.3) secs to x: (-200) y: (-50)\n\n@スプライト2\n\nwhen flag clicked\n\nwhen I receive [次のステージ v]\nif <(costume [number v]) < [12]> then\n    next costume\nend\n\nwhen flag clicked\nwait (2) seconds\nforever\n    if <(costume [number v]) = [12]> then\n        broadcast (記録 v)\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム1 v)\ngo to x: (0) y: (0)\n\n@スプライト3\n\nwhen I receive [サムネ v]\ngo to x: (0) y: (0)\nshow\ngo to [front v] layer\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen [timer v] > (0.0001)\nswitch costume to (コスチューム5 v)\nbroadcast (サムネ v)\nstop [all v]\n\nwhen flag clicked\nforever\n    play sound [Water v] until done\nend\n\n@スプライト4\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム2 v)\nset [ghost v] effect to (50)\ngo to [back v] layer\nforever\n    go to (スプライト1 v)\nend\n\n@スプライト5\n\nwhen flag clicked\nset rotation style [don't rotate v]\nhide\n\nwhen I receive [記録 v]\ngo to [back v] layer\nshow\ngo to x: (-316) y: (0)\nforever\n    point towards (スプライト6 v)\n    move ((distance to [スプライト6 v]) / (10)) steps\nend\n\nset [☁ 世界記録 v] to [100]\n\n@スプライト6\n\nwhen flag clicked\ngo to x: (0) y: (0)\n\n