［モバイル対応］Don't move platformer when tatch laser！

Instructions:  https://scratch.mit.edu/studios/28537801/projects/\n日本語は下\nもし追加して欲しいステージがあったら言ってください！\nUse the arrow keys or wasd key to move.\nThe red one is the laser.\nYou don't die just by touching the laser, but you die when you move.\nGood luck!\n日本語\n矢印キーまたはwasdキーで移動。\n赤いのがレーザーです。\nレーザーに触れただけでは死にませんがうごくと死にます。\n頑張って！\n\n\n音楽はtntedさんから借りました

@Stage\n\nforever\n\n@プレイヤー\n\nwhen flag clicked\nset [うごく v] to [0]\nforever\n    if <touching color (#1c54ff)?> then\n        set [うごく v] to [1]\n        set [y v] to [22.5]\n    end\nend\n\nwhen flag clicked\nset [プレイヤ v] to [0]\nset [向き v] to [1]\nclear graphic effects\nset size to (50) %\nwait (0.01) seconds\nset rotation style [left-right v]\npoint in direction (90)\ngo to [front v] layer\nset [クローン v] to [1]\nset [x v] to [0]\nset [y v] to [0]\nset [ステージ v] to [1]\nclear graphic effects\ngo to x: (-200) y: (0)\nshow\nforever\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<(mouse x) < (x position)> and <mouse down?>>> then\n        set [向き v] to [2]\n        change [x v] by (-1)\n        point in direction (-90)\n    end\n    if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<(x position) < (mouse x)> and <mouse down?>>> then\n        set [向き v] to [1]\n        change [x v] by (1)\n        point in direction (90)\n    end\n    if <<(ステージ) = [1]> and <touching (地面 v)?>> then\n        set [x v] to ((x) * (0.92))\n    else\n        set [x v] to ((x) * (0.88))\n    end\n    change x by (x)\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 x by ((0) - (x))\n                                change y by (-5)\n                                if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<[0] < (mouse y)> and <mouse down?>>> then\n                                    if <[0] < (x)> then\n                                        set [x v] to [-10]\n                                    else\n                                        set [x v] to [10]\n                                    end\n                                    set [y v] to [15]\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change [y v] by (-1)\n    change y by (y)\n    if <touching (地面 v)?> then\n        change y by ((0) - (y))\n        set [y v] to [0]\n    end\n    change y by (-2)\n    if <<<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<[0] < (mouse y)> and <mouse down?>>> and <touching (地面 v)?>> then\n        set [y v] to [15]\n    end\n    change y by (1)\n    if <<(y position) < [-175]> or <<touching color (#ff0000)?> or <<<touching color (#ff7979)?> and <key (any v) pressed?>> or <<touching color (#ff7979)?> and <mouse down?>>>>> then\n        set [死 v] to [1]\n        repeat (15)\n            change [ghost v] effect by (5)\n            change [brightness v] effect by (5)\n        end\n        hide\n        clear graphic effects\n        go to x: (-200) y: (0)\n        set [x v] to [0]\n        set [y v] to [0]\n        set [死 v] to [0]\n        show\n    end\n    if <[239] < (x position)> then\n        if <not <(ステージ) = [13]>> then\n            broadcast (メッセージ1 v)\n            hide\n            clear graphic effects\n            go to x: (-200) y: (0)\n            set [x v] to [0]\n            set [y v] to [0]\n            change [ステージ v] by (1)\n            wait (3) seconds\n            show\n        end\n    end\nend\n\nstart sound [jump-cute1 v]\n\nwhen flag clicked\nset [クローン v] to [0]\nforever\n    if <(クローン) = [1]> then\n        wait (0.01) seconds\n        create clone of (_myself_ v)\n    end\nend\n\nwhen I start as a clone\nrepeat (20)\n    change [ghost v] effect by (5)\n    change size by (-1.5)\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    if <key (any v) pressed?> then\n        repeat (10)\n            set [うごく v] to [1]\n        end\n    else\n        set [うごく v] to [0]\n    end\nend\n\nwhen I receive [メッセージ1 v]\nhide\nset [プレイヤ v] to [1]\nwait (3) seconds\nset [プレイヤ v] to [0]\nshow\n\nwhen I receive [メッセージ1 v]\n\nshow\n\nwhen flag clicked\nforever\n    if <(プレイヤ) = [1]> then\n        hide\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nrepeat until <(ステージ) = [17]>\n    play sound [1234 v] until done\nend\n\n@地面\n\nwhen flag clicked\nshow\ngo to x: (0) y: (0)\nforever\n    switch costume to (ステージ)\nend\n\nwhen [z v] key pressed\n\nrepeat (1)\n    broadcast (メッセージ1 v)\n    change [ステージ v] by (1)\nend\n\nwhen I receive [メッセージ1 v]\nhide\nwait (3) seconds\nshow\n\n@レーザー\n\nwhen flag clicked\nset [死 v] to [0]\nforever\n    if <<(死) = [1]> or <(プレイヤ) = [1]>> then\n        wait (1) seconds\n    else\n        show\n        go to x: (-42) y: (0)\n        wait (0.5) seconds\n        repeat until <[436] < (x position)>\n            move (5) steps\n        end\n        hide\n    end\nend\n\nwhen I receive [メッセージ1 v]\nhide\nwait (3) seconds\nshow\ngo to x: (-42) y: (0)\nwait (2) seconds\nrepeat until <[436] < (x position)>\n    move (5) steps\nend\nhide\n\n@レーザー2\n\nwhen flag clicked\nset [死 v] to [0]\nforever\n    if <<(死) = [1]> or <(プレイヤ) = [1]>> then\n        wait (0.5) seconds\n    else\n        show\n        go to x: (3) y: (173)\n        wait (0.5) seconds\n        repeat until <(y position) < [-177]>\n            change y by (-5)\n        end\n        hide\n    end\nend\n\nwhen I receive [メッセージ1 v]\nhide\nwait (3) seconds\nshow\ngo to x: (3) y: (173)\nwait (2) seconds\nrepeat until <[-177] < (x position)>\n    change y by (-5)\nend\nhide\n\n@サムネ\n\nwhen flag clicked\nhide\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [メッセージ1 v]\nshow\ngo to x: (0) y: (316)\nglide (1) secs to x: (0) y: (0)\nwait (1) seconds\nglide (1) secs to x: (0) y: (-349)\nhide\n\nforever\nend\n\nchange x by (10)\n\nrepeat (20)\n    change y by (4)\nend\n\nrepeat (20)\n    change y by (-4)\nend\n\nchange y by (10)\n\nreset timer\n\n