Sandy beach at night platformer

Instructions: 日本語は下\n短くてごめんw\n\nthe flag twice\n→↑←↓or click \nmobile=Tap\nIt ’s very easy\n\n旗２回押し推奨\n→↑←↓またはクリック\nmobile = Tap\n超簡単です

@Stage\n\nwhen flag clicked\nforever\n    play sound [BGM v] until done\nend\n\n@Player\n\nwhen flag clicked\nshow\ngo to x: (0) y: (50)\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 <not <key (any v) pressed?>> then\n    switch costume to (2 v)\nend\nset rotation style [left-right v]\npoint in direction (90)\nchange [yの力 v] by (-1)\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n    switch costume to (1 v)\n    point in direction (90)\n    change [xの力 v] by (1)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n    switch costume to (1 v)\n    point in direction (-90)\n    change [xの力 v] by (-1)\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\nend\nif <touching (ステージ v)?> then\n    change y by (-6)\n    位置補正x (() - ((xの力) / ([abs v] of (xの力) ))) ([ceiling v] of ([abs v] of (xの力) ) )\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\nend\nchange y by (yの力)\nif <touching (ステージ v)?> then\n    位置補正y (() - ((yの力) / ([abs v] of (yの力) ))) ([ceiling v] of ([abs v] of (yの力) ) )\nend\nchange y by (-1.1)\nif <<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]\nend\nchange y by (1.1)\nif <<(Y) < [-400]> or <touching (障害物 v)?>> then\n    初期位置\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 初期位置\ngo to x: (0) y: (50)\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\n@海\n\nwhen flag clicked\ngo to x: (0) y: (-182)\nshow\nforever\n    show\n    repeat (16)\n        change y by (([sin v] of (5) ) * (10))\n    end\n    repeat (16)\n        change y by (([sin v] of (5) ) * (-10))\n    end\nend\n\nif <([y position v] of [ステージ v]) < [-30]> then\nelse\n    hide\nend\n\nwhen flag clicked\nforever\n    play sound [海岸1 v] until done\nend\n\nwhen flag clicked\nforever\n    play sound [風が吹く1 v] until done\nend\n\nwhen flag clicked\nforever\n    if <[100] < (Y)> then\n        hide\n    else\n        show\n    end\nend\n\n@スプライト2\n\nwhen flag clicked\nset [ghost v] effect to (30)\ngo to [back v] layer\nforever\n    go to (player v)\n    set size to ((100) + (([cos v] of ((timer) * (180)) ) * (10))) %\nend\n\n@スプライト3\n\nwhen flag clicked\ngo to x: (205) y: (143)\nforever\n    set size to ((100) + (([cos v] of ((timer) * (180)) ) * (10))) %\n    set [ghost v] effect to ((size) / (3.5))\nend\n\n@スプライト4\n\nwhen flag clicked\nhide\nforever\n    go to x: (pick random (-50) to (250)) y: (pick random (-180) to (180))\n    wait (pick random (0.5) to (2)) seconds\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nset volume to (60) %\nset [brightness v] effect to (0)\nstart sound [star2 v]\nshow\nrepeat until <<<[-225] > (x position)> or <[-180] > (y position)>> or <touching (海 v)?>>\n    change x by (-10)\n    change y by (-10)\nend\nrepeat (4)\n    wait (0.1) seconds\n    change [ghost v] effect by (25)\nend\ndelete this clone\n\n@障害物\n\nwhen flag clicked\nhide\nステージ配置 [100] [100] [1]\nswitch costume to (none v)\n\nステージ配置 [-200] [420] [2]\nステージ配置 [625] [2050] [3]\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\nset [チェックポイント到達 v] to [0]\nswitch costume to (a v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((1020) - (Camera_x)) ((235) - (Camera _y))\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\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\n    if <<touching (player v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [1050]\n        set [復活y v] to [238]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\n@チェックポイント2\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (a v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((2550) - (Camera_x)) ((655) - (Camera _y))\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\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\n    if <<touching (player v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [2550]\n        set [復活y v] to [658]\n        broadcast (クリアだよん v)\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\n@スプライト1\n\nwhen flag clicked\nset size to (100) %\ngo to x: (36) y: (186)\nhide\nswitch costume to (コスチューム1 v)\nforever\n    wait (pick random (10) to (25)) seconds\n    show\n    broadcast (トントントン v)\n    go to x: (36) y: (186)\n    repeat (11)\n        wait (0.1) seconds\n        next costume\n    end\nend\n\nwhen I receive [トントントン v]\nset size to (100) %\nshow\nrepeat (2)\n    change y by (-5)\n    change y by (-3)\nend\nrepeat (2)\n    change y by (-5)\n    change y by (-3)\nend\nchange size by (5)\nchange y by (2)\nchange size by (-5)\nchange y by (-2)\nwait (2) seconds\nhide\n\nwhen I receive [クリアだよん v]\nshow\nbroadcast (トントントン v)\ngo to x: (36) y: (186)\nrepeat (11)\n    wait (0.1) seconds\n    next costume\nend\n\nwhen I receive [トントントン v]\nwait (0.2) seconds\nstart sound [click v]\nwait (0.4) seconds\nstart sound [click v]\nwait (0.4) seconds\nstart sound [click v]\n\nwhen I receive [クリアだよん v]\nwait (0.2) seconds\nstart sound [click v]\nwait (0.4) seconds\nstart sound [click v]\nwait (0.4) seconds\nstart sound [click v]\nwait (0.1) seconds\n\n@ステージ\n\nwhen flag clicked\nhide\nステージ配置 [0] [100] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [0] [4]\nステージ配置 [1920] [300] [5]\nステージ配置 [2300] [300] [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\nshow\n\n@サムネ\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\n