Rock　Platformer

Instructions: English sentences are written below.\nI'm using Google Translate, so the text may bestrange.\n-------------------------------------------------------------------------\nこのプラットフォーマー岩を動かしてゴールを目指します。岩なので動けば動くほど小さくなってしまい、いつかは消えてしまいます。この性質を生かしてゴールを目指しましょう！\n＜操作方法＞\n　右　　　　　Aキー、→キー\n　左　　　　　Dキー、←キー\nジャンプ　　　Wキー、↑キー\nタップ、クリックでも動きます\n\nMove this platformer rock to reach the goal. Since it is a rock, the more it moves, the smaller it becomes, and someday it disappears.Let's take advantage of this property and aim for the goal! \n<Operation method>\nRight A key, → key\nLeft D key, ← key\nJump W key, ↑ key\nIt also works by tapping and clicking 

@Stage\n\nwhen flag clicked\nforever\n    play sound [africa v] until done\nend\n\n@スプライト1\n\ndefine 着地\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 y by (-8)\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine リセット\ngo to x: (-190) y: (125)\nset rotation style [all around v]\npoint in direction (90)\nshow\nset size to (100) %\ngo to [front v] layer\nset [ジャンプ v] to [0]\nset [x v] to [0]\nset [リセットok？ v] to [0]\nset [岩サイズ v] to [100]\n\ndefine プログラム\nchange y by ((size) / (50))\nif <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > [0]>>> then\n    if <not <(x) > [16]>> then\n        change [x v] by (1)\n    end\nend\nif <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <[0] > (mouse x)>>> then\n    if <not <[-16] > (x)>> then\n        change [x v] by (-1)\n    end\nend\nset [x v] to ((x) * (0.9))\nif <(リセットOK？) = [0]> then\n    change x by (x)\n    turn right (x) degrees\n    change y by (-5)\n    if <touching (ステージ v)?> then\n        if <<(x) > [2]> or <[-2] > (x)>> then\n            if <(足音) = [1]> then\n                change size by (-2)\n                change [岩サイズ v] by (-1)\n                create clone of (スプライト3 v)\n            end\n            change [足音 v] by (1)\n            if <(足音) = [5]> then\n                set [足音 v] to [1]\n            end\n        end\n    end\n    change y by (5)\nend\nif <touching (トゲ v)?> then\n    set volume to (100) %\n    start sound [Crunch v]\n    リセット\nend\n着地\nif <touching (ステージ v)?> then\n    change x by ((x) * (-1.1))\n    set [x v] to [0]\nend\nchange y by (ジャンプ)\nchange [ジャンプ v] by (-1)\nif <touching (トゲ v)?> then\n    set volume to (100) %\n    start sound [Crunch v]\n    リセット\nend\nif <touching (ステージ v)?> then\n    change y by ((ジャンプ) * (-1))\n    set [ジャンプ v] to [0]\nend\nchange y by (-3)\nif <<<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [-10]>>> and <touching (ステージ v)?>> then\n    start sound [Jump v]\n    set [ジャンプ v] to [15]\nend\nchange y by (2)\nif <(x position) > [239]> then\n    hide\n    broadcast (next stage v)\n    set [リセットok？ v] to [1]\n    go to x: (0) y: (0)\nend\nif <(y position) < [-170]> then\n    if <(リセットOK？) = [0]> then\n        set volume to (100) %\n        start sound [Crunch v]\n        リセット\n    end\nend\nif <(size) < [25]> then\n    if <(リセットOK？) = [0]> then\n        set volume to (100) %\n        start sound [Crunch v]\n        リセット\n    end\nend\nif <(ジャンプ) = [0]> then\n    set [ジャンプ v] to [-2]\nend\nset [岩x v] to (x position)\nset [岩y v] to (y position)\nchange y by ((size) / (-50))\n\nstart sound [岩が真っ二つに割れる v]\n\nwhen flag clicked\nリセット\nforever\n    プログラム\nend\n\nwhen I receive [リセット v]\nリセット\n\n@ステージ\n\nwhen I receive [次のステージ v]\nnext costume\nif <(costume [name v]) = [ラスト]> then\n    broadcast (タイム v)\nend\n\nwhen flag clicked\nset [ステージ v] to [1]\nswitch costume to (コスチューム8 v)\nset [タイム v] to [0]\nrepeat until <(costume [name v]) = [ラスト]>\n    wait (1) seconds\n    change [タイム v] by (1)\nend\n\n@スプライト2\n\nwhen I start as a clone\nshow\nset [パワー v] to [-50]\ngo to [front v] layer\ngo to x: (600) y: (0)\nrepeat (25)\n    change x by ((パワー) * (0.9))\n    change [パワー v] by (2)\nend\nrepeat (20)\n    change x by (-0.5)\nend\nbroadcast (次のステージ v)\nrepeat (22)\n    change x by ((パワー) * (0.9))\n    change [パワー v] by (-2)\nend\nbroadcast (リセット v)\nrepeat (3)\n    change x by ((パワー) * (0.9))\n    change [パワー v] by (-2)\nend\ndelete this clone\n\nwhen flag clicked\nhide\n\nwhen I receive [next stage v]\ncreate clone of (_myself_ v)\nchange [ステージ v] by (1)\n\n@トゲ\n\nwhen flag clicked\nhide\nwait (1) seconds\nif <(ステージ) = [3]> then\n    switch costume to (コスチューム1 v)\n    show\nend\nif <(ステージ) = [7]> then\n    switch costume to (コスチューム2 v)\n    show\nend\nif <(ステージ) = [9]> then\n    switch costume to (コスチューム3 v)\n    show\nend\nif <(ステージ) = [8]> then\n    switch costume to (コスチューム4 v)\n    show\nend\n\nwhen I receive [次のステージ v]\nhide\nif <(ステージ) = [3]> then\n    switch costume to (コスチューム1 v)\n    show\nend\nif <(ステージ) = [7]> then\n    switch costume to (コスチューム2 v)\n    show\nend\nif <(ステージ) = [9]> then\n    switch costume to (コスチューム3 v)\n    show\nend\nif <(ステージ) = [8]> then\n    switch costume to (コスチューム4 v)\n    show\nend\n\nshow\n\n@スプライト3\n\ndefine 跳ねる (x) (y) (回転)\nset volume to (pick random (50) to (100)) %\nif <(岩ジャンプ) = [0]> then\n    set [岩ジャンプ v] to (y)\n    start sound [岩が真っ二つに割れる2 v]\n    repeat until <<touching (ステージ v)?> or <touching (_edge_ v)?>>\n        change x by (x)\n        turn right (回転) degrees\n        change y by (岩ジャンプ)\n        change [岩ジャンプ v] by (-1)\n        if <(岩ジャンプ) = [0]> then\n            change [岩ジャンプ v] by (-1)\n        end\n    end\n    set [岩ジャンプ v] to [0]\n    delete this clone\nelse\n    if <(岩ジャンプ２) = [0]> then\n        start sound [岩が真っ二つに割れる2 v]\n        set [岩ジャンプ２ v] to (y)\n        repeat until <<touching (ステージ v)?> or <touching (_edge_ v)?>>\n            change x by (x)\n            turn right (回転) degrees\n            change y by (岩ジャンプ２)\n            change [岩ジャンプ２ v] by (-1)\n            if <(岩ジャンプ２) = [0]> then\n                change [岩ジャンプ２ v] by (-1)\n            end\n        end\n        set [岩ジャンプ２ v] to [0]\n        delete this clone\n    else\n        if <(岩ジャンプ３) = [0]> then\n            start sound [岩が真っ二つに割れる2 v]\n            set [岩ジャンプ３ v] to (y)\n            repeat until <<touching (ステージ v)?> or <touching (_edge_ v)?>>\n                change x by (x)\n                turn right (回転) degrees\n                change y by (岩ジャンプ３)\n                change [岩ジャンプ３ v] by (-1)\n                if <(岩ジャンプ３) = [0]> then\n                    change [岩ジャンプ３ v] by (-1)\n                end\n            end\n            set [岩ジャンプ３ v] to [0]\n            delete this clone\n        else\n            if <(岩ジャンプ４) = [0]> then\n                start sound [岩が真っ二つに割れる2 v]\n                set [岩ジャンプ４ v] to (y)\n                repeat until <<touching (ステージ v)?> or <touching (_edge_ v)?>>\n                    change x by (x)\n                    turn right (回転) degrees\n                    change y by (岩ジャンプ４)\n                    change [岩ジャンプ４ v] by (-1)\n                    if <(岩ジャンプ４) = [0]> then\n                        change [岩ジャンプ４ v] by (-1)\n                    end\n                end\n                set [岩ジャンプ４ v] to [0]\n                delete this clone\n            end\n        end\n    end\nend\nif <(回転) = [0]> then\ndelete this clone\n\nwhen I start as a clone\ngo to x: (岩x) y: (岩y)\nshow\ngo to [back v] layer\nset size to ((岩サイズ) + (pick random (0) to (20))) %\n跳ねる (((岩サイズ) * (0.05)) + (pick random (-3) to (3))) (((岩サイズ) * (0.1)) + (pick random (-3) to (3))) (pick random (-15) to (15))\n\nwhen flag clicked\nhide\nset [岩ジャンプ v] to [0]\nset [岩ジャンプ２ v] to [0]\nset [岩ジャンプ２ v] to [0]\nset [岩ジャンプ４ v] to [0]\nforever\n    go to x: (岩x) y: (岩y)\nend\n\nwait ((pick random (1) to (100)) / (100)) seconds\n\n@スプライト4\n\nwhen I receive [タイム v]\nset [分 v] to [0]\nset [秒の1の位 v] to [0]\nset [秒の10の位 v] to [0]\nset [分の1の位 v] to [0]\nset [分の10の位 v] to [0]\nrepeat ([floor v] of ((タイム) / (60)) )\n    change [タイム v] by (-60)\n    change [分 v] by (1)\nend\nset [計算の分 v] to (分)\nset [秒 v] to (タイム)\nrepeat ([floor v] of ((タイム) / (10)) )\n    change [タイム v] by (-10)\n    change [秒の10の位 v] by (1)\nend\nset [秒の1の位 v] to (タイム)\nrepeat ([floor v] of ((計算の分) / (10)) )\n    change [計算の分 v] by (-10)\n    change [分の10の位 v] by (1)\nend\nset [分の1の位 v] to (計算の分)\ngo to x: (-70) y: (-20)\nshow\nswitch costume to ((分の10の位) + (1))\ncreate clone of (_myself_ v)\nchange x by (35)\nswitch costume to ((分の1の位) + (1))\ncreate clone of (_myself_ v)\nchange x by (25)\nswitch costume to (コスチューム11 v)\nchange y by (4)\ncreate clone of (_myself_ v)\nchange y by (-4)\nchange x by (30)\nswitch costume to ((秒の10の位) + (1))\ncreate clone of (_myself_ v)\nchange x by (35)\nswitch costume to ((秒の1の位) + (1))\ncreate clone of (_myself_ v)\nchange x by (-65)\nset [ghost v] effect to (85)\nswitch costume to (コスチューム12 v)\nchange y by (3)\n\nwhen flag clicked\nerase all\nhide\n\n@スプライト5\n\nwhen flag clicked\nset [ghost v] effect to (100)\ngo to [front v] layer\n\n