Meadow platformer!

Instructions: <English>\nOperate with up / down / left / right keys or tap\n<japanese>\n上下左右キーまたはTapで操作します

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景2 v)\nwait until <not <(状況) = [intro]>>\nswitch backdrop to (背景1 v)\nforever\n    play sound [yt1s2 v] until done\nend\n\n@p\n\ndefine program\nchange [yv v] by (-1)\nif <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > [0]>>> then\n    change [xv v] by (1)\n    create clone of (_myself_ v)\n    point in direction (90)\nend\nif <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [0]>>> then\n    change [xv v] by (-1)\n    create clone of (_myself_ v)\n    point in direction (-90)\nend\nset [xv v] to ((Xv) * (0.88))\nchange x by (Xv)\nif <touching (ground v)?> then\n    change y by (1)\n    if <touching (ground v)?> then\n        change y by (1)\n        if <touching (ground v)?> then\n            change y by (1)\n            if <touching (ground v)?> then\n                change y by (1)\n                if <touching (ground v)?> then\n                    change y by (1)\n                    if <touching (ground v)?> then\n                        change x by ((Xv) * (-1))\n                        change y by (-5)\n                        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [0]>>> then\n                            set [xv v] to ((9) - ((18) * <(Xv) > [0]>))\n                            set [yv v] to [10]\n                        else\n                            set [xv v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange y by (-1)\nif <touching (ground v)?> then\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > [0]>>> then\n        set [yv v] to [12.5]\n    end\nend\nchange y by (1)\nchange y by (Yv)\nif <touching (ground v)?> then\n    change y by ((Yv) * (-1))\n    set [yv v] to [0]\nend\nif <(y position) < [-205]> then\n     \nend\nif <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <<mouse down?> and <(mouse y) < [-20]>>> then\n    switch costume to (θ v)\nelse\n    switch costume to (α v)\nend\n\nwhen flag clicked\ngo to [front v] layer\ngo [backward v] (1) layers\nset [ghost v] effect to (100)\nhide\nhide\nset size to (95) %\nset [状況 v] to [play]\nwait until <not <(状況) = [intro]>>\nreset\nshow\nclear graphic effects\nforever\n    repeat until <(状況) = [no]>\n        program\n        if <touching (spike v)?> then\n             \n        end\n        if <<(x position) > [239]> and <not <([costume name v] of [ground v]) = [コスチューム11]>>> then\n            broadcast (NEXT v)\n            wait until <(round ([x position v] of [next v])) = [0]>\n            reset\n            wait until <(round ([x position v] of [next v])) = [-558]>\n            reset\n        end\n    end\nend\n\ndefine reset\nswitch costume to (α v)\nset rotation style [left-right v]\nset [xv v] to [0]\nset [yv v] to [0]\ngo to x: (-210) y: (10)\npoint in direction (90)\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    switch costume to (　 v)\nelse\n    switch costume to (   v)\nend\nrepeat (8)\n    change [ghost v] effect by (9)\n    change size by (-4)\nend\ndelete this clone\n\nwhen [timer v] > (3)\nhide\n\ndefine  \nset [状況 v] to [no]\nset rotation style [all around v]\nstart sound [crashed oof v]\nswitch costume to (* v)\nset [yv v] to [14]\nrepeat until <(y position) < [-190]>\n    change [yv v] by (-1.2)\n    turn right (8) degrees\n    change y by (Yv)\nend\nset [状況 v] to [yes]\nreset\n\n@ground\n\nwhen flag clicked\nset [st v] to [1]\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\ngo to [back v] layer\ngo [forward v] (1) layers\nhide\nwait until <not <(状況) = [intro]>>\nshow\nclear graphic effects\nforever\n    switch costume to (st)\nend\n\nwhen [timer v] > (3)\nhide\n\n@spike\n\nwhen flag clicked\nset [cos v] to [0]\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\ngo to [back v] layer\ngo [forward v] (1) layers\nhide\nwait until <not <(状況) = [intro]>>\nshow\nclear graphic effects\nforever\n    switch costume to (st)\nend\n\nwhen [timer v] > (3)\nhide\n\n@^-=-^\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\nhide\ngo to [front v] layer\ngo [backward v] (2) layers\nwait until <not <(状況) = [intro]>>\nshow\nclear graphic effects\nforever\n    go to (spike v)\n    switch costume to (st)\nend\n\nwhen [timer v] > (3)\nhide\n\n@ \n\nwhen flag clicked\nhide\nwait (1) seconds\nwait until <not <(状況) = [intro]>>\nforever\n    repeat (pick random (2) to (6))\n        create clone of (_myself_ v)\n        wait (join [1.] (pick random (0) to (2))) seconds\n    end\n    wait (pick random (2) to (2.5)) seconds\nend\n\nwhen I start as a clone\ngo to x: (-220) y: (pick random (60) to (140))\nset size to (pick random (40) to (55)) %\nset [ghost v] effect to (pick random (15) to (40))\ngo to [back v] layer\nshow\nrepeat until <(x position) > [239]>\n    change x by (2)\nend\ndelete this clone\n\nwhen [timer v] > (3)\nhide\n\n@NEXT\n\nwhen flag clicked\ngo to x: (468) y: (0)\nhide\n\nwhen I receive [next v]\ngo to [front v] layer\nset [r v] to [0]\nshow\nrepeat until <(round (x position)) = [0]>\n    change x by (((0) - (x position)) / (6))\nend\nwait (0.2) seconds\nchange [st v] by (1)\nrepeat until <(round (x position)) = [-558]>\n    change x by (r)\n    change [r v] by (-1)\nend\ngo to x: (468) y: (0)\nhide\n\nwhen [timer v] > (3)\nhide\n\n@s\n\nwhen flag clicked\ngo to x: (0) y: (0)\ngo to [front v] layer\nhide\nset [ghost v] effect to (100)\nforever\n    set [3 v] to (timer)\nend\n\nwhen [timer v] > (3)\ngo to x: (0) y: (0)\nshow\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\n\n@sun\n\nwhen flag clicked\nset [size v] to [100]\nhide\ngo to x: (0) y: (0)\nset size to (100) %\ngo to [back v] layer\nwait until <not <(状況) = [intro]>>\nshow\nforever\n    change size by ([cos v] of (size) )\n    change [size v] by (5)\nend\n\n