smartphone platformer / スマホプラットフォーマー

Instructions: 日本語は下(作者は日本人です)\n~=~=~=~=~=~English~=~=~=~=~=~=~=~=~=~=~=~=~=~=\nsmartphone platformer ! \nMobile compatible ! \nMove with arrow keys, WASD or tap.\nWhen you press the smartphone on the bottom left, the screen will appear.\nATK: Attack\nterrain:Change terrain.\nchange: Can extinguish magma.\n|*|*|*|*|*|*|*日本語|~|~|~|~|~|~|~|~|~|~|~|~|~|~|~|~|~|~|~|~|~|~|\nスマホプラットフォーマー！\nモバイル対応！\n矢印キー、WASD、またはタップで移動します。\n左下のスマホを押すと画面が出てきます。\nATK: アタック\nterrain: 地形を変更します。\nchange: マグマを消すことができます。\n<<<<<<<<<<<<<<Enjoy / 楽しんで>>>>>>>>>>>>>>>>>>

@Stage\n\nwhen flag clicked\nforever\n    play sound [Goodbye v] until done\nend\n\n@プレイヤー\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    if <<key (any v) pressed?> or <mouse down?>> 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\ndefine 当たり判定\nswitch costume to (ヾ\(｡>﹏<｡\)ﾉﾞ✧*。 v)\nchange x by (x)\n\nwhen I receive [スタート v]\nswitch costume to (ヾ\(｡>﹏<｡\)ﾉﾞ✧*。 v)\nclear graphic effects\nset size to (70) %\nwait (0.01) seconds\nset rotation style [left-right v]\npoint in direction (90)\ngo to [front v] layer\nset [変数 v] to [0]\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        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        change [x v] by (1)\n        point in direction (90)\n    end\n    set [x v] to ((x) * (0.92))\n    当たり判定\n    if <<touching (地面 v)?> or <touching (お邪魔ステージ v)?>> then\n        change y by (1)\n        if <<touching (地面 v)?> or <touching (お邪魔ステージ v)?>> then\n            change y by (1)\n            if <<touching (地面 v)?> or <touching (お邪魔ステージ v)?>> then\n                change y by (1)\n                if <<touching (地面 v)?> or <touching (お邪魔ステージ v)?>> then\n                    change y by (1)\n                    if <<touching (地面 v)?> or <touching (お邪魔ステージ v)?>> then\n                        change y by (1)\n                        if <<touching (地面 v)?> or <touching (お邪魔ステージ v)?>> then\n                            change y by (1)\n                            if <<touching (地面 v)?> or <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)?> or <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)?> or <touching (お邪魔ステージ v)?>>> then\n        start sound [ジャンプ v]\n        set [y v] to [16]\n    end\n    change y by (1)\n    if <<(y position) < [-165]> or <touching (針など v)?>> then\n        start sound [やられた v]\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        show\n    end\n    if <<[239] < (x position)> and <not <(ステージ) = [10]>>> then\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        broadcast (next v) and wait\n        show\n    end\nend\n\n@地面\n\nwhen flag clicked\nswitch costume to (1 v)\ngo to [back v] layer\ngo to x: (0) y: (0)\nshow\nbroadcast (スタート v)\nforever\n    go to [back v] layer\nend\n\nwhen I receive [次のステージ v]\nswitch costume to (ステージ)\n\n@お邪魔ステージ\n\nwhen I receive [スマホの力 v]\nif <(ステージ) = [1]> then\n    if <(スマホで何選ぶ?) = [アタック]> then\n        broadcast (1ステのATK v)\n    end\n    if <(スマホで何選ぶ?) = [地形]> then\n        start sound [絶望 v]\n        repeat (118)\n            set x to (pick random (-10) to (10))\n            change y by (-2.5)\n        end\n        hide\n    end\nend\nif <(ステージ) = [2]> then\n    if <(スマホで何選ぶ?) = [アタック]> then\n        broadcast (1ステのATK v)\n        wait (0.5) seconds\n        start sound [Scream2 v]\n        repeat (60)\n            turn right (1) degrees\n            change x by (2)\n            change y by (5)\n        end\n        repeat (10)\n            change [brightness v] effect by (10)\n            change [ghost v] effect by (10)\n        end\n        clear graphic effects\n        hide\n    end\n    if <(スマホで何選ぶ?) = [地形]> then\nend\nif <(ステージ) = [3]> then\n    if <(スマホで何選ぶ?) = [アタック]> then\n        broadcast (3ステの攻撃 v)\n    end\n    if <(スマホで何選ぶ?) = [地形]> then\n        start sound [絶望 v]\n        show\n        go to x: (0) y: (603)\n        repeat (242)\n            change y by (-2.5)\n        end\n    end\nend\nif <(ステージ) = [4]> then\n    if <(スマホで何選ぶ?) = [アタック]> then\n        wait (1) seconds\n    end\nend\nif <(ステージ) = [5]> then\n    if <(スマホで何選ぶ?) = [地形]> then\n        wait (1) seconds\n    end\nend\nif <(ステージ) = [6]> then\n    if <(スマホで何選ぶ?) = [地形]> then\n        start sound [Tada v]\n        glide (1) secs to x: (0) y: (67)\n    end\nend\nif <(ステージ) = [7]> then\n    if <(スマホで何選ぶ?) = [アタック]> then\n        start sound [絶望 v]\n        repeat (5)\n            broadcast (1ステのATK v)\n            wait (0.35) seconds\n        end\n        repeat (55)\n            turn right (2) degrees\n            change x by (2)\n            change y by (-2)\n        end\n    end\n    if <(スマホで何選ぶ?) = [地形]> then\n        start sound [Tada v]\n        glide (1) secs to x: (0) y: (26)\n    end\nend\nif <(ステージ) = [8]> then\n    if <not <(y position) = [384]>> then\n        go to x: (0) y: (-50)\n        hide\n    end\n    if <(スマホで何選ぶ?) = [アタック]> then\n        start sound [絶望 v]\n        broadcast (8ステのATK v)\n    end\n    if <(スマホで何選ぶ?) = [地形]> then\n        if <(y position) = [384]> then\n            start sound [Tada2 v]\n            show\n            glide (3) secs to x: (0) y: (0)\n        end\n        if <(y position) = [-49]> then\n            start sound [Tada v]\n            show\n            glide (1) secs to x: (0) y: (384)\n            hide\n        end\n    end\nend\nif <(ステージ) = [9]> then\n    go to x: (0) y: (0)\n    show\n    if <(スマホで何選ぶ?) = [アタック]> then\n        broadcast (1ステのATK v)\n        wait (0.5) seconds\n    end\n    if <(スマホで何選ぶ?) = [地形]> then\n        start sound [絶望 v]\n        glide (3) secs to x: (-300) y: (0)\n        wait (1) seconds\n        glide (10) secs to x: (-400) y: (0)\n    end\nend\nset [スマホで何選ぶ? v] to [0]\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\npoint in direction (90)\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [次のステージ v]\nstop [other scripts in sprite v]\npoint in direction (90)\nshow\ngo to x: (0) y: (0)\nswitch costume to (ステージ)\nif <<(costume [number v]) = [3]> or <(costume [number v]) = [4]>> then\n    hide\nend\nset [スマホで何選ぶ? v] to [0]\n\nwhen I receive [スタート v]\nshow\n\n@スマホボタン\n\nwhen flag clicked\nswitch costume to (　ボタン v)\ngo to x: (-210) y: (-150)\nhide\n\nwhen I receive [スタート v]\nshow\n\nwhen flag clicked\nforever\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        go to [front v] layer\n        switch costume to (画面 v)\n        go to x: (0) y: (-380)\n        glide (0.5) secs to x: (0) y: (0)\n        switch costume to (画面2 v)\n        broadcast (スマホのメッセージ v) and wait\n        broadcast (スマホの力 v)\n        switch costume to (画面 v)\n        glide (0.2) secs to x: (0) y: (-380)\n        hide\n        wait until <(スマホで何選ぶ?) = [0]>\n        show\n        go to x: (-210) y: (-150)\n        switch costume to (　ボタン v)\n    end\nend\n\n@ボタン\n\nwhen flag clicked\nhide\n\nwhen I receive [スマホのメッセージ v]\nset [スマホで何選ぶ? v] to [0]\ngo to [front v] layer\nswitch costume to (atk v)\ncreate clone of (_myself_ v)\nswitch costume to (terrain v)\ncreate clone of (_myself_ v)\nswitch costume to (change v)\ncreate clone of (_myself_ v)\nwait until <not <(スマホで何選ぶ?) = [0]>>\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [1]> then\n    go to x: (-50) y: (50)\n    repeat until <not <(スマホで何選ぶ?) = [0]>>\n        if <<touching (mouse-pointer v)?> and <mouse down?>> then\n            set [スマホで何選ぶ? v] to [アタック]\n        end\n    end\nend\nif <(costume [number v]) = [2]> then\n    go to x: (50) y: (50)\n    repeat until <not <(スマホで何選ぶ?) = [0]>>\n        if <<touching (mouse-pointer v)?> and <mouse down?>> then\n            set [スマホで何選ぶ? v] to [地形]\n        end\n    end\nend\nif <(costume [number v]) = [3]> then\n    go to x: (0) y: (-30)\n    repeat until <not <(スマホで何選ぶ?) = [0]>>\n        if <<touching (mouse-pointer v)?> and <mouse down?>> then\n            set [スマホで何選ぶ? v] to [変える]\n        end\n    end\nend\ndelete this clone\n\n@針など\n\nwhen flag clicked\nhide\n\nwhen I receive [1ステのatk v]\nswitch costume to (針 v)\npoint in direction (180)\nshow\ngo to x: (-245) y: (100)\nrepeat (2)\n    change x by (50)\nend\nrepeat until <<touching (_edge_ v)?> or <touching (お邪魔ステージ v)?>>\n    change x by (50)\nend\nif <touching (_edge_ v)?> then\n    hide\nend\nif <touching (お邪魔ステージ v)?> then\n    start sound [デュクシ☆ v]\nend\nset [雑用 v] to [-30]\nrepeat (30)\n    turn right (雑用) degrees\n    change x by ((雑用) / (2))\n    change y by (((雑用) * (-1)) / (1.5))\n    change [雑用 v] by (1)\nend\nrepeat (35)\n    turn right ((雑用) * (-1)) degrees\n    change x by (-5)\n    change y by (((雑用) * (-1)) / (1.5))\n    change [雑用 v] by (1)\nend\nhide\n\nwhen I receive [3ステの攻撃 v]\npoint in direction (-90)\ngo to x: (-200) y: (200)\n(ﾟ∀ﾟ)\n\nwhen I start as a clone\nshow\nif <not <(ステージ) = [4]>> then\n    set [雑用 v] to [0]\n    repeat (10)\n        change y by (雑用)\n        change [雑用 v] by (-1)\n    end\n    repeat until <<touching (地面 v)?> or <<touching (お邪魔ステージ v)?> or <touching (_edge_ v)?>>>\n        change y by (雑用)\n        change [雑用 v] by (-1)\n    end\nend\nif <(ステージ) = [4]> then\n    point in direction (180)\n    switch costume to (針 v)\n    go to x: (-200) y: (-95)\n    clear graphic effects\n    glide (0.2) secs to x: (300) y: (-95)\nend\nstart sound [デュクシ☆ v]\ndelete this clone\n\ndefine (ﾟ∀ﾟ)\nrepeat (9)\n    create clone of (_myself_ v)\n    change x by (50)\nend\n\nwhen I receive [次のステージ v]\nhide\nif <(ステージ) = [4]> then\n    show\n    point in direction (90)\n    switch costume to (敵 v)\n    repeat until <<[200] < ([x position v] of [プレイヤー v])> or <(スマホで何選ぶ?) = [アタック]>>\n        glide (0.05) secs to x: (150) y: (150)\n        glide (0.05) secs to x: (150) y: (-95)\n    end\n    wait (1) seconds\n    create clone of (_myself_ v)\n    repeat (10)\n        change [pixelate v] effect by (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    clear graphic effects\nend\nif <(ステージ) = [5]> then\n    go to x: (0) y: (0)\n    show\n    point in direction (90)\n    switch costume to (マグマ1 v)\n    wait until <(スマホで何選ぶ?) = [変える]>\n    wait (1) seconds\n    start sound [Magic Spell v]\n    repeat (10)\n        change [pixelate v] effect by (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    clear graphic effects\nend\nif <(ステージ) = [6]> then\n    go to [back v] layer\n    go to x: (0) y: (0)\n    show\n    point in direction (90)\n    switch costume to (マグマ2 v)\n    wait until <(スマホで何選ぶ?) = [変える]>\n    wait (0.5) seconds\n    start sound [Magic Spell v]\n    repeat (10)\n        change [pixelate v] effect by (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    clear graphic effects\nend\nif <(ステージ) = [7]> then\n    go to [front v] layer\n    go to x: (0) y: (0)\n    show\n    point in direction (90)\n    switch costume to (マグマ3 v)\n    wait until <(スマホで何選ぶ?) = [0]>\n    wait until <(スマホで何選ぶ?) = [変える]>\n    wait (0.5) seconds\n    start sound [Magic Spell v]\n    repeat (10)\n        change [pixelate v] effect by (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    clear graphic effects\nend\nif <(ステージ) = [8]> then\n    go to [front v] layer\n    go to x: (0) y: (0)\n    show\n    point in direction (90)\n    switch costume to (マグマ4 v)\n    wait until <(スマホで何選ぶ?) = [0]>\n    wait until <(スマホで何選ぶ?) = [変える]>\n    wait (0.5) seconds\n    start sound [Magic Spell v]\n    repeat (10)\n        change [pixelate v] effect by (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    clear graphic effects\nend\nif <(ステージ) = [9]> then\n    go to [front v] layer\n    go to x: (0) y: (0)\n    show\n    point in direction (90)\n    switch costume to (コスチューム1 v)\n    wait until <(スマホで何選ぶ?) = [0]>\n    wait until <(スマホで何選ぶ?) = [変える]>\n    wait (0.5) seconds\n    start sound [Magic Spell v]\n    repeat (10)\n        change [pixelate v] effect by (10)\n        change [ghost v] effect by (10)\n    end\n    hide\n    clear graphic effects\nend\n\nwhen I receive [8ステのatk v]\npoint in direction (-90)\nswitch costume to (針 v)\nrepeat (30)\n    go to x: (-200) y: (200)\n    ｱﾋｬﾋｬ\n    wait (0.1) seconds\nend\n\ndefine ｱﾋｬﾋｬ\nrepeat (9)\n    create clone of (_myself_ v)\n    change x by (50)\nend\n\n@Next\n\nbroadcast (次のステージ v)\n\nwhen flag clicked\nhide\n\nwhen I receive [next v]\nhide\nstart sound [High Whoosh v]\nclear graphic effects\nset [color v] effect to (100)\nrepeat (10)\n    change [color v] effect by (-10)\n    create clone of (_myself_ v)\n    wait (0.03) seconds\nend\nbroadcast (次のステージ v)\nwait (1.5) seconds\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nset [a v] to [41]\ngo to x: (-465) y: (0)\nrepeat (15)\n    change x by (a)\n    change [a v] by (-2)\nend\nrepeat (5)\n    change x by (a)\n    change [a v] by (-1)\nend\nrepeat (3)\n    change x by (a)\n    change [a v] by (-0.5)\nend\nset [a v] to [0]\nrepeat (2)\n    change x by (a)\n    change [a v] by (-0.5)\nend\nrepeat (5)\n    change x by (a)\n    change [a v] by (-1)\nend\nrepeat (18)\n    change x by (a)\n    change [a v] by (-2)\nend\ndelete this clone\n\n@サムネ\n\nwhen flag clicked\ngo to [front v] layer\nhide\n\n