Minecraft scroll platformer!

Instructions: https://scratch.mit.edu/projects/724488307/\n↑↑↑↑↑↑新作！見てね！星ハート押してくれたらフォロー！\n日本語説明は下\n続編出ました！\nhttps://scratch.mit.edu/projects/725060678/\n▲English▲\n▲▲●●How to operate●●▲▲\nArrow key operation!\nMobile ready ✅\nI will return the star heart!\n\n▲▲●●操作方法●●▲▲\n矢印キー操作です！\nモバイル対応✅\n

@Stage\n\nwhen flag clicked\nforever\n    play sound [c418-sweden-minecraft-volume-alpha v] until done\nend\n\n@Player\n\nwhen flag clicked\nset [無敵・ v] to [0]\nswitch costume to (idle v)\nset rotation style [left-right v]\ngo to x: (0) y: (-20)\nset [xの力 v] to [0]\nset [yの力 v] to [0]\nset [camera_x v] to [-200]\nset [camera _y v] to [-20]\nset [x v] to [-200]\nset [y v] to [-20]\nset [復活x v] to [-200]\nset [復活y v] to [-20]\n\ndefine 動作\nif <touching (水スプライト v)?> then\n    change [yの力 v] by (-0.2)\nelse\n    change [yの力 v] by (-1)\nend\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n    point in direction (90)\n    if <touching (水スプライト v)?> then\n        change [xの力 v] by (0.8)\n    else\n        change [xの力 v] by (1)\n    end\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n    point in direction (-90)\n    if <touching (水スプライト v)?> then\n        change [xの力 v] by (-0.8)\n    else\n        change [xの力 v] by (-1)\n    end\nend\nset [xの力 v] to ((xの力) * (0.88))\nchange x by (xの力)\nrepeat (6)\n    if <touching (ステージ v)?> then\n        change y by (1)\n    end\n    if <touching (ステージ v)?> then\n        change y by (-6)\n        位置補正x (() - ((xの力) / ([abs v] of (xの力) ))) ([ceiling v] of ([abs v] of (xの力) ) )\n        if <not <touching (水スプライト v)?>> then\n            if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n                set [yの力 v] to [12]\n                set [xの力 v] to ((7) - (<(xの力) > [0]> * (14)))\n            else\n                set [xの力 v] to [0]\n            end\n        end\n    end\nend\nchange y by (yの力)\nif <touching (ステージ v)?> then\n    位置補正y (() - ((yの力) / ([abs v] of (yの力) ))) ([ceiling v] of ([abs v] of (yの力) ) )\nend\nif <touching (水スプライト v)?> then\n    change y by (-0.2)\nelse\n    change y by (-1.1)\nend\nif <not <touching (水スプライト v)?>> then\n    if <<touching (ステージ v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n        set [yの力 v] to [15]\n    end\nelse\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n        set [yの力 v] to [6]\n    end\nend\nchange y by (1.1)\nif <<(Y) < [-400]> or <touching (障害物 v)?>> then\n    if <(無敵・) = [0]> then\n        broadcast (333 v)\n        set [無敵・ v] to [1]\n        start sound [A Elec Bass v]\n        if <<<touching color (#ffff54)?> or <touching color (#f3c633)?>> or <<touching color (#b92601)?> or <touching color (#a70f00)?>>> then\n            change [ライフ v] by (-2.5)\n            broadcast (111 v)\n        else\n            change [ライフ v] by (-1.5)\n            broadcast (222 v)\n            if <(ライフ) < [0.5]> then\n                初期位置\n            end\n        end\n    end\nend\n処理\nbroadcast (プログラム2 v)\n\nwhen I receive [プログラム v]\n動作\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (Camera_x)))\nchange [y v] by ((y position) - (((Y) - (Camera _y)) - (20)))\nchange [camera_x v] by ([floor v] of (((X) - (Camera_x)) * (0.1)) )\nchange [camera _y v] by ([floor v] of (((Y) - (Camera _y)) * (0.2)) )\nset x to ((X) - (Camera_x))\nset y to (((Y) - (Camera _y)) - (20))\n\ndefine 位置補正x (向き) (回数)\nif <(xの力) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (ステージ v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (ステージ v)?>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(yの力) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (ステージ v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (ステージ v)?>>)))\nset [yの力 v] to [0]\n\ndefine 初期位置\nset rotation style [left-right v]\nstart sound [_oof v]\nclear graphic effects\nwait (1) seconds\nshow\nset rotation style [left-right v]\nset [ghost v] effect to (0)\nswitch costume to (idle v)\ngo to x: (0) y: (-20)\nset [ライフ v] to [20]\nset [xの力 v] to [0]\nset [yの力 v] to [0]\nset [camera_x v] to (復活x)\nset [camera _y v] to (復活y)\nset [x v] to (復活x)\nset [y v] to (復活y)\n\nwhen flag clicked\nset size to (500) %\n\nwhen flag clicked\nforever\n    if <<<touching (ステージ v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> or <<<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> or <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>>>> then\nend\n\nwhen flag clicked\nforever\n    if <not <touching (水スプライト v)?>> then\n        if <<<<touching (ステージ v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> or <<<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> or <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>>>> and <not <touching (障害物 v)?>>> then\n            if <not <[7] = (costume [number v])>> then\n                wait (0.2) seconds\n                start sound (pick random (2) to (4))\n            end\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <<not <touching (ステージ v)?>> and <not <(yの力) = [0]>>> then\nend\n\nwhen flag clicked\nforever\n    wait (0.1) seconds\n    if <not <<<touching (ステージ v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> or <<<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> or <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>>>>> then\nend\n\nwhen flag clicked\nforever\n    if <<[1] < (y 過去)> or <(y 過去) < [-1]>> then\n        switch costume to (jump v)\n    end\nend\n\nwhen I receive [111 v]\nwait (0.3) seconds\nset [無敵・ v] to [0]\n\nwhen I receive [222 v]\nwait (0.05) seconds\nset [無敵・ v] to [0]\n\nwhen flag clicked\nforever\n    wait (0.1) seconds\n    set [y 過去 v] to (yの力)\nend\n\nwhen I receive [333 v]\nset [brightness v] effect to (-20)\nwait (0.1) seconds\nset [brightness v] effect to (0)\n\nwhen flag clicked\nforever\n    if <touching (水スプライト v)?> then\n        play sound [Swim3 v] until done\n    end\nend\n\nwhen flag clicked\nforever\n    if <<touching (チェックポイント v)?> or <touching (チェックポイント2 v)?>> then\n        set [yの力 v] to [15]\n    end\nend\n\nwhen flag clicked\nset size to (500) %\nforever\n    reset timer\n    if <touching (障害物 v)?> then\n        set [yの力 v] to [7]\n        if <(direction) = [90]> then\n            change [xの力 v] by (1)\n        else\n            change [xの力 v] by (-1)\n        end\n    end\nend\n\nwhen flag clicked\nset [水に触れた v] to [0]\nforever\n    if <touching (水スプライト v)?> then\n        set [水に触れた v] to [1]\n        forever\n            if <touching (水スプライト v)?> then\n                set [水に触れた v] to [1]\n            else\n                set [水に触れた v] to [0]\n            end\n        end\n    end\nend\n\nwhen [timer v] > (1)\nset rotation style [all around v]\nswitch costume to (jump v)\ngo to x: (-143) y: (112)\npoint in direction (90)\nturn left (15) degrees\nset size to (1110) %\ngo to [front v] layer\nclear graphic effects\n\n@Health2\n\nwhen flag clicked\ngo to x: (0) y: (-160)\nset [ライフ v] to [20]\ngo to [front v] layer\nforever\n    show\n    switch costume to ((ライフ) + (1))\nend\n\nplay sound [う v] until done\n\nwhen flag clicked\nforever\n    set [前ライフ v] to (ライフ)\n    wait (0.2) seconds\nend\n\nwhen flag clicked\nforever\n    if <(ライフ) < [4]> then\n        change y by (3)\n        wait (0.07) seconds\n        change y by (-3)\n    end\nend\n\nwhen [timer v] > (1)\nhide\n\n@障害物\n\nwhen flag clicked\nhide\nステージ配置 [1435] [-130] [1]\nステージ配置 [1435] [-180] [1]\nステージ配置 [1435] [-230] [1]\nステージ配置 [1435] [-280] [1]\nswitch costume to (none v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <not <(costume [number v]) = [1]>> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\n@ステージ\n\nwhen flag clicked\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [239] [0] [1]\nステージ配置 [478] [0] [1]\nステージ配置 [717] [0] [1]\nステージ配置 [1195] [0] [1]\nステージ配置 [1396] [0] [2]\nステージ配置 [1686] [0] [2]\nステージ配置 [1924] [0] [2]\nステージ配置 [2150] [0] [2]\nステージ配置 [2350] [-100] [2]\nステージ配置 [2700] [-100] [2]\nステージ配置 [3000] [-140] [2]\nステージ配置 [3300] [-200] [2]\nステージ配置 [3600] [-200] [2]\nステージ配置 [3900] [-100] [3]\nステージ配置 [4100] [0] [3]\nステージ配置 [4300] [100] [3]\nステージ配置 [4500] [200] [3]\nステージ配置 [4800] [300] [3]\nステージ配置 [5200] [200] [4]\nステージ配置 [5300] [200] [4]\nステージ配置 [5400] [200] [4]\nステージ配置 [5500] [200] [4]\nステージ配置 [5600] [200] [4]\nステージ配置 [5700] [200] [4]\nステージ配置 [5800] [200] [4]\nステージ配置 [5900] [200] [4]\nステージ配置 [6100] [250] [4]\nステージ配置 [6300] [300] [4]\nステージ配置 [6500] [350] [4]\nステージ配置 [6700] [400] [4]\nステージ配置 [6900] [450] [4]\nステージ配置 [7100] [500] [4]\nステージ配置 [7300] [550] [2]\nステージ配置 [7500] [600] [2]\nステージ配置 [7500] [800] [9]\nswitch costume to (netherportal v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\n@ステージ（背面）\n\nwhen flag clicked\nhide\nステージ配置 [-218] [-20] [4]\nステージ配置 [269] [-60] [4]\nステージ配置 [0] [0] [1]\nステージ配置 [600] [0] [2]\nステージ配置 [870] [-100] [3]\nステージ配置 [1000] [-20] [4]\nステージ配置 [1300] [-100] [5]\nステージ配置 [1760] [0] [2]\nステージ配置 [2100] [-77] [8]\nステージ配置 [3441] [-280] [6]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\ngo to [back v] layer\nshow\n\n@水スプライト\n\nwhen flag clicked\nhide\nステージ配置 [2400] [-300] [1]\nステージ配置 [2650] [-10] [1]\nステージ配置 [2650] [-100] [1]\nステージ配置 [2650] [-200] [1]\nステージ配置 [2950] [0] [1]\nステージ配置 [2500] [-200] [1]\nステージ配置 [2891] [-200] [1]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\ngo to [back v] layer\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    go to [back v] layer\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    go to [back v] layer\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\ngo to [back v] layer\nshow\n\n@スプライト1\n\n@スプライト2\n\nwhen [timer v] > (0)\ngo to [front v] layer\nclear graphic effects\nshow\n\nwhen flag clicked\nhide\nforever\n    reset timer\nend\n\n