First platformer!　(Mobile Friendly)

Instructions: 《日本語説明は下です!》\n\n《PC》\nUp arrow & w key ,,, jump\nLeft and right arrow & a.d key ,,, horizontal movement\n\n"Tablet"\nUpper tap ... Jump\nLeft and right tap ... Horizontal movement\n\nTouch the magma and you're out!\n\n《PC》\n上矢印&wキー､､､ジャンプ\n左右矢印&a.dキー､､､横移動\n\n\n《タブレット》\n上部分タップ､､､ジャンプ\n左右タップ､､､横移動\nsキー､､､スキップ\n\nマグマに触れるとアウトです!

@Stage\n\nwhen flag clicked\nset [color v] effect to (0)\nswitch backdrop to (背景3 v)\n\nwhen I receive [→ v]\nchange [color v] effect by (1)\n\n@スプライト1\n\nwhen I start as a clone\nrepeat (12)\n    change size by (-1.2)\n    change [ghost v] effect by (5)\nend\nwait (0.1) seconds\nset [ghost v] effect to (0)\ndelete this clone\n\nwhen I receive [op v]\nforever\n    play sound [marbletechno1 v] until done\nend\n\nwhen I receive [op v]\nforever\n    if <(x position) > [224]> then\n        broadcast (→ v)\n        go to x: (-210) y: (50)\n        next backdrop\n        wait (1) seconds\n    end\nend\n\nwhen I receive [op v]\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-210) y: (50)\npoint in direction (90)\nif on edge, bounce\nswitch costume to (1 v)\nset size to (20) %\ngo to [front v] layer\nset drag mode [not draggable v]\nshow\nforever\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 ((x) * (-1.1))\n                                change y by (-6)\n                                if <<<<(y position) < (mouse y)> and <mouse down?>> or <key (w v) pressed?>> or <key (up arrow v) pressed?>> then\n                                    set [y v] to [12]\n                                    if <[0] < (x)> then\n                                        set [x v] to [-10]\n                                    else\n                                        set [x v] to [10]\n                                    end\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 by (-1)\nend\n\nwhen I receive [op v]\nforever\n    if <<touching (マグマ v)?> or <<(y position) < [-164]> or <touching color (#ff0000)?>>> then\n        start sound [punch-middle2 \(1\) v]\n        repeat (20)\n            change size by (1)\n            change [ghost v] effect by (10)\n        end\n        set [ghost v] effect to (0)\n        set size to (20) %\n        set [x v] to [0]\n        set [y v] to [0]\n        go to x: (-210) y: (50)\n    else\n        if <<<(mouse x) < (x position)> and <mouse down?>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n            change [x v] by (-1)\n            switch costume to (2 v)\n            create clone of (_myself_ v)\n        end\n        if <<<(x position) < (mouse x)> and <mouse down?>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n            change [x v] by (1)\n            switch costume to (1 v)\n            create clone of (_myself_ v)\n        end\n        set [x v] to ((x) * (0.9))\n        change x by (x)\n    end\nend\n\nwhen I receive [op v]\nforever\n    if <touching (地面 v)?> then\n        if <<<(y position) < (mouse y)> and <mouse down?>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n            start sound [nyu2 v]\n            set [y v] to [14]\n            create clone of (_myself_ v)\n        end\n    end\n    change y by (1)\n    change [y v] by (-1)\n    change y by (y)\n    if <touching color (#00ff2a)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [op v]\nforever\n    if <key (s v) pressed?> then\n        go to x: (-210) y: (50)\n        broadcast (→ v)\n        wait (1) seconds\n    end\nend\n\n@地面\n\nwhen I receive [→ v]\nnext costume\nforever\n    if <(costume [number v]) = [4]> then\n        broadcast (4 v)\n    else\n        if <(costume [number v]) = [5]> then\n            broadcast (5 v)\n        else\n            if <(costume [number v]) = [6]> then\n                broadcast (6 v)\n            else\n                if <(costume [number v]) = [7]> then\n                    broadcast (7 v)\n                else\n                    if <(costume [number v]) = [9]> then\n                        broadcast (9 v)\n                    else\n                        if <(costume [number v]) = [10]> then\n                            broadcast (10 v)\n                        else\n                            if <(costume [number v]) = [12]> then\n                                broadcast (12  v)\n                            else\n                                if <(costume [number v]) = [14]> then\n                                    broadcast (14 v)\n                                else\n                                    if <(costume [number v]) = [15]> then\n                                        broadcast (15 v)\n                                    else\n                                        if <(costume [number v]) = [16]> then\n                                            broadcast (16 v)\n                                        else\n                                            broadcast (1 v)\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\nhide\nswitch costume to (1 v)\n\nwhen I receive [op v]\nshow\n\nwhen I receive [→ v]\nif <(costume [number v]) = [17]> then\n    stop [all v]\nend\n\n@マグマ\n\nwhen flag clicked\nhide\nswitch costume to (4 v)\n\nwhen I receive [4 v]\nswitch costume to (4 v)\nshow\n\nwhen I receive [5 v]\nswitch costume to (5 v)\nshow\n\nwhen I receive [6 v]\nswitch costume to (6 v)\nshow\n\nwhen I receive [7 v]\nswitch costume to (7 v)\nshow\n\nwhen I receive [9 v]\nswitch costume to (9 v)\nshow\n\nwhen I receive [10 v]\nswitch costume to (10 v)\nshow\n\nwhen I receive [1 v]\nhide\n\nwhen I receive [12  v]\nswitch costume to (12  v)\nshow\n\nwhen I receive [14 v]\nswitch costume to (14  v)\nshow\n\nwhen I receive [15 v]\nswitch costume to (15 v)\nshow\n\nwhen flag clicked\nforever\n    go to x: (0) y: (0)\n    set drag mode [not draggable v]\nend\n\nwhen I receive [16 v]\nswitch costume to (16 v)\nshow\n\n@雲\n\nwhen I start as a clone\nshow\nforever\n    repeat until <(x position) < [-240]>\n        change x by (-1)\n    end\n    go to x: (250) y: (pick random (140) to (155))\n    set size to (pick random (15) to (20)) %\nend\n\nwhen I receive [op v]\nhide\nrepeat (3)\n    go to x: (250) y: (pick random (140) to (155))\n    set size to (pick random (15) to (23)) %\n    switch costume to (pick random (1) to (3))\n    create clone of (_myself_ v)\n    wait (pick random (4) to (7)) seconds\nend\n\n@サムネ\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\ngo to [front v] layer\nshow\n\n@intro\n\nwhen flag clicked\nset [1 v] to [0]\nhide\nstart sound [Ikson - Last Summer v]\nwait (2) seconds\nswitch costume to (a v)\ncreate clone of (_myself_ v)\n\ndefine ﾍｪｯ!\nset [変数 v] to [4]\nrepeat (40)\n    switch costume to (pick random (2) to (4))\n    create clone of (_myself_ v)\nend\nswitch costume to (a v)\n\nwhen I start as a clone\nif <[1] < (costume [number v])> then\n    go to x: (0) y: (0)\n    show\n    set size to (pick random (10) to (15)) %\n    set [xxx v] to (pick random (-15) to (15))\n    set [yyy v] to (pick random (5) to (17))\n    go to [front v] layer\n    repeat until <touching (_edge_ v)?>\n        change x by (xxx)\n        change y by (yyy)\n        if <[1] < (xxx)> then\n            change [xxx v] by (-0.5)\n        end\n        if <(xxx) < [-1]> then\n            change [xxx v] by (0.5)\n        end\n        turn right ((size) / (7)) degrees\n        change [yyy v] by (-1)\n    end\n    delete this clone\nelse\n    set size to (5) %\n    show\n    go to x: (0) y: (300)\n    point in direction (0)\n    repeat (35)\n        change y by (((0) - (y position)) / (5))\n        change size by (((100) - (size)) / (5))\n        turn right (((90) - (direction)) / (5)) degrees\n    end\n    point in direction (90)\n    repeat until <[200] < (x position)>\n        change [1 v] by (1)\n        change x by (1)\n        change size by (((0) - (1)) / (2))\n    end\n    go to x: (-250) y: (0)\n    repeat (35)\n        change x by (((0) - (x position)) / (5))\n        change size by (((100) - (size)) / (5))\n    end\n    set [1 v] to [0]\n    turn right (1) degrees\n    repeat until <(round (direction)) = [90]>\n        change [1 v] by (4)\n        point in direction ((90) + (([tan v] of (1) ) * (10)))\n    end\n    wait (1) seconds\n    set [1 v] to [0]\n    repeat until <[180] < (y position)>\n        change [1 v] by (1)\n        change y by (1)\n        change size by (((0) - (1)) / (2))\n    end\n    broadcast (op v)\n    delete this clone\nend\n\nwhen flag clicked\nwait (2.1) seconds\nﾍｪｯ!\nwait (1) seconds\nﾍｪｯ!\nwait (1.8) seconds\nﾍｪｯ!\n\n