Lava  - A platformer game - （スマホ対応）
@Stage\n\nwhen flag clicked\nforever\n    play sound [seikan bussitu v] until done\nend\n\n@Player\n\nwhen flag clicked\npoint in direction (90)\nswitch costume to (a v)\nset [xの力 v] to [0]\nset [yの力 v] to [0]\ngo to x: (-200) y: (-100)\n動作\n\ndefine 動作\nforever\n    change [yの力 v] by (-1)\n    if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<<<(mouse x) > (x position)> and <not <[-200] > (mouse x)>>> or <(mouse x) > [200]>> and <mouse down?>>> then\n        change [xの力 v] by (0.75)\n        point in direction (90)\n    end\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<<<(x position) > (mouse x)> and <not <(mouse x) > [200]>>> or <[-200] > (mouse x)>> and <mouse down?>>> then\n        change [xの力 v] by (-0.75)\n        point in direction (-90)\n    end\n    set [xの力 v] to ((xの力) * (0.9))\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 (-4)\n                        change x by ((xの力) * (-1))\n                        if <<<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <key (space v) pressed?>> or <<<(mouse y) > [-50]> or <(mouse y) > [150]>> and <mouse down?>>> then\n                            set [yの力 v] to [10]\n                            if <(xの力) > [0]> then\n                                set [xの力 v] to [-6]\n                            else\n                                set [xの力 v] to [6]\n                            end\n                        else\n                            set [xの力 v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (yの力)\n    if <touching (ステージ v)?> then\n        change y by ((yの力) * (-1))\n        set [yの力 v] to [0]\n    end\n    change y by (-1)\n    if <<touching (ステージ v)?> and <<<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <key (space v) pressed?>> or <<<(mouse y) > [-50]> or <(mouse y) > [150]>> and <mouse down?>>>> then\n        set [yの力 v] to [13]\n    end\n    change y by (1)\n    if <<<<touching (マグマ v)?> or <touching (🔥  v)?>> or <touching (湧き出るマグマ v)?>> or <(y position) < [-177]>> then\n        go to x: ((<(Level) = [11]> * (200)) - (200)) y: (-100)\n        point in direction (90)\n        set [yの力 v] to [0]\n        set [xの力 v] to [0]\n        set [restart v] to [0]\n    end\nend\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (b v)\nclear graphic effects\nset [ghost v] effect to (60)\nshow\nrepeat (5)\n    change [ghost v] effect by (8)\nend\ndelete this clone\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nset [level v] to [1]\nforever\n    if <<[239] < (x position)> and <not <(Level) = [11]>>> then\n        Next >>\n    end\n    if <(restart) = [1]> then\n        go to x: (-200) y: (-100)\n        point in direction (90)\n        set [xの力 v] to [0]\n        set [yの力 v] to [0]\n        set [restart v] to [0]\n    end\nend\n\ndefine Next >>\nchange [level v] by (1)\nset [xの力 v] to [0]\nset [yの力 v] to [0]\nswitch backdrop to (Level)\ngo to x: ((<(Level) = [11]> * (200)) - (200)) y: (-100)\npoint in direction (90)\n\n@ボタン\n\nwhen this sprite clicked\nset [restart v] to [1]\n\nwhen flag clicked\nforever\n    if <(Level) = [13]> then\n        hide\n    else\n        show\n    end\nend\n\n@ステージ\n\nwhen flag clicked\nforever\n    switch costume to (Level)\nend\n\n@マグマ\n\nwhen flag clicked\nforever\n    switch costume to (Level)\nend\n\n@噴石\n\nwhen flag clicked\nset [level v] to [0]\nset [i v] to [1]\nset [_ v] to [1]\nhide\nforever\n    プログラム\n    wait until <(Level) = (I)>\n    change [_ v] by (1)\nend\n\ndefine プログラム\nchange [i v] by (1)\nrepeat (item (Level) of [数リスト v])\n    create clone of (_myself_ v)\n    change [_ v] by (1)\nend\n\nwhen I start as a clone\ngo to [front v] layer\nset size to (item (_) of [大きさリスト v]) %\nshow\nforever\n    point in direction (pick random (1) to (180))\n    switch costume to (pick random (1) to (2))\n    go to x: (item (_) of [位置リスト v]) y: (280)\n    repeat until <(y position) < [-300]>\n        change y by (() - (item (_) of [スピードリスト v]))\n        turn right (3) degrees\n        replace item (_) of [y v] with (y position)\n    end\n    wait (item (_) of [待機リスト v]) seconds\nend\n\nwhen I start as a clone\nwait (0) seconds\nforever\n    if <not <(I) = ((Level) + (1))>> then\n        delete this clone\n    end\nend\n\nrepeat (100)\n    add [] to [y v]\nend\n\nadd [8] to [スピードリスト v]\nadd [-120] to [位置リスト v]\nadd [0.5] to [待機リスト v]\nadd [40] to [大きさリスト v]\n\n@湧き出るマグマ\n\nwhen flag clicked\nset [n v] to [0]\nset [j v] to [1]\nforever\n    クローン\n    change [j v] by (1)\n    wait until <(Level) = (j)>\nend\n\ndefine クローン\nset [a v] to [1]\nrepeat (item (j) of [クローン数 v])\n    change [n v] by (1)\n    create clone of (_myself_ v)\n    set [a v] to ((3) - (a))\nend\n\nwhen I start as a clone\nswitch costume to (item (n) of [クローンタイプ v])\ngo to x: (item (n) of [クローンx v]) y: (item (n) of [クローンy v])\nshow\nif <(a) = [1]> then\n    set y to (((item (n) of [クローンy v]) + (item (n) of [移動距離 v])) - (10))\n    repeat (10)\n        change y by (((y position) - ((item (n) of [クローンy v]) + (item (n) of [移動距離 v]))) / (8))\n    end\n    repeat (10)\n        change y by ((item (n) of [移動距離 v]) / (-14))\n    end\n    set y to (item (n) of [クローンy v])\n    wait (item (n) of [間隔リスト v]) seconds\nend\nforever\n    repeat (10)\n        change y by ((item (n) of [移動距離 v]) / (16))\n    end\n    repeat (10)\n        change y by ((((item (n) of [クローンy v]) + (item (n) of [移動距離 v])) - (y position)) / (9))\n    end\n    set [i v] to [0]\n    repeat (item (n) of [回数リスト v])\n        change [i v] by (20)\n        change y by ([sin v] of (i) )\n    end\n    change y by (-1)\n    repeat (10)\n        change y by (((y position) - ((item (n) of [クローンy v]) + (item (n) of [移動距離 v]))) / (8))\n    end\n    repeat (10)\n        change y by ((item (n) of [移動距離 v]) / (-17))\n    end\n    set y to (item (n) of [クローンy v])\n    wait (item (n) of [間隔リスト v]) seconds\nend\n\nwhen I start as a clone\nwait until <(Level) = ((j) + (1))>\ndelete this clone\n\nadd [160] to [クローンx v]\nadd [-202] to [クローンy v]\nadd [180] to [移動距離 v]\nadd [1] to [クローンタイプ v]\nadd [1.5] to [間隔リスト v]\nadd [72] to [回数リスト v]\n\n@🔥 \n\nwhen flag clicked\nset [level v] to [1]\nset [i v] to [1]\nset [_ v] to [1]\nhide\nforever\n    プログラム\n    wait until <(Level) = (I)>\n    change [_ v] by (1)\nend\n\ndefine プログラム\nchange [i v] by (1)\nrepeat (item (Level) of [数リスト v])\n    create clone of (_myself_ v)\n    change [_ v] by (1)\nend\n\nwhen I start as a clone\nset size to (item (_) of [大きさリスト v]) %\nshow\nforever\n    switch costume to (pick random (1) to (2))\n    go to x: (item (_) of [位置リスト v]) y: (item (_) of [y v])\nend\n\nwhen I start as a clone\nwait (0) seconds\nforever\n    if <not <(I) = ((Level) + (1))>> then\n        delete this clone\n    end\nend\n\nwhen I start as a clone\nforever\n    set size to (item (_) of [大きさリスト v]) %\n    set [ghost v] effect to (10)\n    repeat (pick random (5) to (8))\n        change [ghost v] effect by (pick random (-0.5) to (2))\n        change size by (pick random (0.2) to (-0.7))\n    end\n    repeat (pick random (5) to (8))\n        change [ghost v] effect by (pick random (0.5) to (-2))\n        change size by (pick random (0.2) to (-0.7))\n    end\n    repeat (2)\n        change size by (pick random (1) to (2))\n    end\nend\n\n@サムネ\n\nwhen flag clicked\nhide\n\n
>>>My studio\n◇hiron0413's platformer◇\nhttps://scratch.mit.edu/studios/27006005/\n\n---------------操作方法---------------\n\n　　〔パソコン〕\nA,Dキー or ←,→キー で移動\nWキー or ↑キーでジャンプ\nUse A,D keys or ←,→ keys to move\nUse W key or ↑key to jump\n\n〔スマホ・タブレット〕\n左側・右側をタップして移動、\n上側をタップしてジャンプ\nTap left / right side to move\nTap on the top to jump\n