Desert Platformer

Instructions: バグあるけど直さないよ\n［日本語は下］　\nモバイル対応のプログラムを教えてください。\nI have not been putting out much artwork, so I decided to put out a platformer.\nI hope you enjoy it.\nI hope you spread the word.\nあまりにも作品を出していなかったので、プラットフォーマーを出してみました。\n楽しんでもらえると嬉しいです。\n拡散大希望

@Stage\n\nwhen flag clicked\nswitch backdrop to (blue sky 2  v)\n\nwhen I receive [イントロ終了 v]\nplay sound [Inferno v] until done\n\n@Intro template !!!2\n\ndefine go to (x) (y)\ngo to x: (x) y: (y)\n\nwhen I start as a clone\nif <(cloon ID) = [sii]> then\n    set size to (40) %\n    show\n    repeat (15)\n        change size by (4)\n        turn left (6) degrees\n    end\n    wait [11]\n    repeat (15)\n        change size by (-7)\n        turn left (-6) degrees\n    end\n    hide\nend\n\ndefine clone set||name: (name) ||size: (%)\nswitch costume to (name)\nset size to (%) %\ncloon [sii]\n\nwhen I start as a clone\nif <(cloon ID) = [sen]> then\n    repeat until <[10] < (timer)>\n        show\n        go to x: (([sin v] of ((timer) * (80)) ) * (200)) y: (([cos v] of ((timer) * (80)) ) * (100))\n        go to [front v] layer\n        set size to (80) %\n        switch costume to (コスチューム1 v)\n        cloon [sen2]\n        go to [back v] layer\n        switch costume to (コスチューム2 v)\n        set size to (120) %\n        cloon [sen2]\n        go to x: (() - (([sin v] of ((timer) * (80)) ) * (200))) y: (() - (([cos v] of ((timer) * (80)) ) * (100)))\n        go to [front v] layer\n        set size to (80) %\n        switch costume to (コスチューム1 v)\n        cloon [sen2]\n        go to [back v] layer\n        switch costume to (コスチューム2 v)\n        set size to (120) %\n        cloon [sen2]\n    end\nend\n\ndefine cloon (id)\nset [cloon id v] to (id)\ncreate clone of (_myself_ v)\n\ndefine wait (time)\nwait until <(time) < (timer)>\n\nwhen I receive [intro start v]\nintro start\n\ndefine intro start\nstart sound [ Electro-Light - Discovery v]\npoint in direction (180)\nreset timer\nhide\nwait [0.3]\ngo to [-230] [169]\nclone set||name: [1] ||size: [200]\ngo to [-150] [169]\nclone set||name: [1] ||size: [200]\ngo to [-90] [169]\nclone set||name: [1] ||size: [200]\ngo to [-30] [169]\nclone set||name: [1] ||size: [200]\ngo to [30] [169]\nclone set||name: [1] ||size: [100]\ngo to [90] [169]\nclone set||name: [1] ||size: [100]\ngo to [150] [169]\nclone set||name: [1] ||size: [100]\ngo to [210] [169]\nclone set||name: [1] ||size: [100]\nwait (0.1) seconds\ngo to [-230] [90]\nclone set||name: [1] ||size: [100]\ngo to [-150] [90]\nclone set||name: [1] ||size: [100]\ngo to [-90] [90]\nclone set||name: [1] ||size: [100]\ngo to [-30] [90]\nclone set||name: [1] ||size: [100]\ngo to [30] [90]\nclone set||name: [1] ||size: [100]\ngo to [90] [90]\nclone set||name: [1] ||size: [100]\ngo to [150] [90]\nclone set||name: [1] ||size: [100]\ngo to [210] [90]\nclone set||name: [1] ||size: [100]\nwait (0.1) seconds\ngo to [-230] [30]\nclone set||name: [1] ||size: [100]\ngo to [-150] [30]\nclone set||name: [1] ||size: [100]\ngo to [-90] [30]\nclone set||name: [1] ||size: [100]\ngo to [-30] [30]\nclone set||name: [1] ||size: [100]\ngo to [30] [30]\nclone set||name: [1] ||size: [100]\ngo to [90] [30]\nclone set||name: [1] ||size: [100]\ngo to [150] [30]\nclone set||name: [1] ||size: [100]\ngo to [210] [30]\nclone set||name: [1] ||size: [100]\nwait (0.1) seconds\ngo to [-230] [-30]\nclone set||name: [1] ||size: [100]\ngo to [-150] [-30]\nclone set||name: [1] ||size: [100]\ngo to [-90] [-30]\nclone set||name: [1] ||size: [100]\ngo to [-30] [-30]\nclone set||name: [1] ||size: [100]\ngo to [30] [-30]\nclone set||name: [1] ||size: [100]\ngo to [90] [-30]\nclone set||name: [1] ||size: [100]\ngo to [150] [-30]\nclone set||name: [1] ||size: [100]\ngo to [210] [-30]\nclone set||name: [1] ||size: [100]\nwait (0.1) seconds\ngo to [-230] [-90]\nclone set||name: [1] ||size: [100]\ngo to [-150] [-90]\nclone set||name: [1] ||size: [100]\ngo to [-90] [-90]\nclone set||name: [1] ||size: [100]\ngo to [-30] [-90]\nclone set||name: [1] ||size: [100]\ngo to [30] [-90]\nclone set||name: [1] ||size: [100]\ngo to [90] [-90]\nclone set||name: [1] ||size: [100]\ngo to [150] [-90]\nclone set||name: [1] ||size: [100]\ngo to [230] [-90]\nclone set||name: [1] ||size: [100]\nwait (0.1) seconds\ngo to [-230] [-150]\nclone set||name: [1] ||size: [100]\ngo to [-150] [-150]\nclone set||name: [1] ||size: [100]\ngo to [-90] [-150]\nclone set||name: [1] ||size: [100]\ngo to [-30] [-150]\nclone set||name: [1] ||size: [100]\ngo to [30] [-150]\nclone set||name: [1] ||size: [100]\ngo to [90] [-150]\nclone set||name: [1] ||size: [100]\ngo to [150] [-150]\nclone set||name: [1] ||size: [100]\ngo to [210] [-150]\nclone set||name: [1] ||size: [100]\ncloon [Logo]\nwait [2.3]\ncloon [FW1]\nwait (0.1) seconds\ncloon [TEXT]\ncloon [ban]\ncloon [FW2]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nwait (0.49) seconds\ncloon [ban]\nbroadcast (イントロ終了 v)\n\nwhen I start as a clone\nif <(cloon ID) = [sen2]> then\n    wait (0.6) seconds\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloon ID) = [Logo]> then\n    show\n    go to x: (0) y: (0)\n    point in direction (135)\n    switch costume to (logo v)\n    set size to (0) %\n    repeat until <[2.3] < (timer)>\n        turn right (((90) - (direction)) / (10)) degrees\n        change size by (((100) - (size)) / (10))\n    end\n    delete this clone\nend\n\nset [logo v] to [15]\nrepeat until <(size) < [20]>\n    change [logo v] by (-2)\n    change size by (logo)\nend\n\nwhen I start as a clone\nif <(cloon ID) = [FW1]> then\n    go to x: (0) y: (0)\n    show\n    set size to (100) %\n    set [fisheye v] effect to (-80)\n    set [ghost v] effect to (0)\n    switch costume to (sw v)\n    repeat (40)\n        change [ghost v] effect by (2)\n        change [fisheye v] effect by (100)\n    end\n    hide\n    set [ghost v] effect to (0)\n    delete this clone\nend\n\ndefine FW (!!!!!!)\nif <(!!!!!!) = [1]> then\n    go to x: (0) y: (0)\n    repeat (20)\n        turn right (22.5) degrees\n        cloon [FW2]\n    end\nelse\n    if <(!!!!!!) = [2]> then\n        go to x: (236) y: (176)\n        point in direction (67.5)\n        repeat (10)\n            turn right (22.5) degrees\n            cloon [FW2]\n        end\n        go to x: (-185) y: (177)\n        point in direction (67.5)\n        repeat (10)\n            turn right (22.5) degrees\n            cloon [FW2]\n        end\n    end\nend\n\nwhen I start as a clone\nif <(cloon ID) = [TEXT]> then\n    switch costume to (cooltext412345709220922 v)\n    go to x: (0) y: (-200)\n    set rotation style [all around v]\n    go to [front v] layer\n    point in direction (120)\n    set size to (100) %\n    show\n    repeat (20)\n        change y by (((0) - (y position)) / (4))\n        turn right ([abs v] of (((90) - (direction)) / (3)) ) degrees\n    end\n    repeat (6)\n        turn right (32) degrees\n    end\n    repeat until <(round (direction)) = [90]>\n        turn right (((90) - (direction)) / (3)) degrees\n    end\n    repeat (10)\n        change size by (((0) - (size)) / (5))\n        turn right (((45) - (direction)) / (5)) degrees\n    end\n    wait (0.1) seconds\n    repeat (15)\n        change size by (((100) - (size)) / (5))\n        turn right (((90) - (direction)) / (5)) degrees\n    end\n    wait (0.09) seconds\n    repeat (12)\n        change size by (((0) - (size)) / (5))\n        repeat (15)\n            change size by (((100) - (size)) / (5))\n        end\n    end\n    wait [11.6]\n    point in direction (91)\n    change y by (-1)\n    repeat until <(y position) < [-200]>\n        turn right (((direction) - (90)) * (0.1)) degrees\n        change y by ((y position) / (6))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloon ID) = [siroi]> then\n    show\n    point in direction (90)\n    set size to (100) %\n    switch costume to (コスチューム4 v)\n    go to x: (0) y: (0)\nend\n\nwhen I start as a clone\nif <(cloon ID) = [ban]> then\n    go to x: (0) y: (0)\n    switch costume to (コスチューム6 v)\n    go to [front v] layer\n    point in direction (90)\n    show\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    set [ghost v] effect to (0)\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloon ID) = [siroi2]> then\n    show\n    point in direction (90)\n    set size to (100) %\n    switch costume to (コスチューム7 v)\n    go to x: (0) y: (0)\nend\n\ndefine FWh\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\nwait (0.49) seconds\ncloon [FW1]\n\nwhen I start as a clone\nif <(cloon ID) = [FW2]> then\n    FWh\nend\n\nwhen flag clicked\nbroadcast (intro start v)\n\nwhen I receive [イントロ終了 v]\nstop [this script v]\n\n@スプライト2\n\nwhen flag clicked\ngo to [back v] layer\nhide\nswitch costume to (砂漠２3 v)\n\nwhen I receive [イントロ終了 v]\nshow\n\nwhen I receive [次のステージに進む v]\nnext costume\n\n@地面\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ終了 v]\nshow\ngo to x: (0) y: (0)\nswitch costume to (1 v)\n\nwhen I receive [次のステージに進む v]\nnext costume\n\n@とげ\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ終了 v]\nswitch costume to (コスチューム2 v)\ngo to [front v] layer\nshow\n\nwhen I receive [次のステージに進む v]\nnext costume\n\n@まぐーま\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ終了 v]\nswitch costume to (コスチューム1 v)\ngo to [front v] layer\nshow\n\nwhen I receive [次のステージに進む v]\nnext costume\n\n@NEXT\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\nset [変数 v] to [9999]\n\nwhen I receive [次のステージに進む v]\ngo to [front v] layer\nshow\nset [変数 v] to [0]\ngo to x: (0) y: (180)\nstart sound [Finger Snap v]\nrepeat (10)\n    change y by ((-1) - ((y position) / (3)))\nend\nwait (0.5) seconds\nrepeat until <(y position) > [179]>\n    change y by ((y position) / (3))\nend\nhide\nset [変数 v] to [9999]\n\n@サムネ\n\nwhen flag clicked\nhide\n\n@スプライト3\n\nwhen I receive [intro start v]\nhide\n\nwhen I receive [イントロ終了 v]\nset [動き v] to [!]\nset [x v] to [0]\n\nwhen flag clicked\nhide\n\nwhen I receive [イントロ終了 v]\nset [y v] to [0]\nshow\ngo to x: (-200) y: (100)\nset size to (80) %\nclear graphic effects\nswitch costume to (player v)\npoint in direction (90)\nset rotation style [left-right v]\nforever\n    if <not <touching (next v)?>> then\n        if <(動き) = [!]> then\n            if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(x position) < (mouse x)>>> then\n                change [x v] by (1.25)\n            end\n            if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n                change [x v] by (-1.25)\n            end\n            set [x v] to ((x) * (0.87))\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 x by ((x) / (-1))\n                                change y by (-4)\n                                if <<<key (up arrow v) pressed?> or <key (space v) pressed?>> or <<mouse down?> and <(y position) < (mouse y)>>> then\n                                    if <[0] < (x)> then\n                                        set [x v] to [-8]\n                                    else\n                                        set [x v] to [8]\n                                    end\n                                    set [y v] to [12]\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n            change y by (-1)\n            if <<touching (地面 v)?> and <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(y position) < (mouse y)>>>> then\n                set [y v] to [17]\n            end\n            change y by (1)\n            change [y v] by (-1)\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            if <(x position) > [200]> then\n                broadcast (次のステージに進む v)\n                go to x: (-200) y: (100)\n            end\n            if <<touching (とげ v)?> or <(y position) < [-180]>> then\n                go to x: (-200) y: (100)\n            end\n            if <touching (まぐーま v)?> then\n                go to x: (-200) y: (100)\n            end\n        end\n    end\nend\n\n