山のプラットフォーマー/mountain platformer

Instructions: 12/12追記：なぜかこの作品だけすごい伸びてる\n\n【操作方法】\n右矢印、画面右側タップ・・・右に移動\n左矢印、画面左側タップ・・・左に移動\n上矢印、画面上側タップ・・・ジャンプ\n\n最近プラフォばっか作ってる@kinopio99でーす\nそろそろ傾向載りたいなぁ～(=^・^=)

@Stage\n\nwhen flag clicked\nforever\n    play sound [Inferno v] until done\nend\n\n@プラフォ君\n\nwhen flag clicked\nset [x v] to [0]\nset [y v] to [0]\nset [ステージ v] to [1]\nset [動ける v] to [yes]\nswitch costume to (コスチューム1 v)\ngo to [front v] layer\nset size to (100) %\ngo to x: (-200) y: (0)\npoint in direction (90)\nset volume to (100) %\nshow\nforever\n    if <(動ける) = [yes]> then\n        show\n        if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>> then\n            change [x v] by (-1)\n            switch costume to (コスチューム2 v)\n        end\n        if <<key (right arrow v) pressed?> or <<mouse down?> and <[0] < (mouse x)>>> then\n            change [x v] by (1)\n            switch costume to (コスチューム1 v)\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 (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 (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> 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 (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse x)>>> and <touching (地面 v)?>> then\n            start sound [ジャンプ v]\n            set [y v] to [15]\n        end\n        change y by (1)\n        if <<(x position) > [245]> and <<<not <(ステージ) = [8]>> and <not <(ステージ) = [10]>>> and <not <(ステージ) = [12]>>>> then\n            broadcast (次 v)\n            hide\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            switch costume to (コスチューム1 v)\n        end\n        if <<(y position) > [183]> and <<(ステージ) = [8]> or <(ステージ) = [10]>>> then\n            broadcast (次 v)\n            hide\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            switch costume to (コスチューム1 v)\n        end\n        if <<[-175] > (y position)> or <touching (障害物 v)?>> then\n            start sound [やられた v]\n            point in direction (90)\n            set [やられた☆ v] to (pick random (15) to (18))\n            repeat until <[-183] > (y position)>\n                turn right (やられた☆) degrees\n                change y by (やられた☆)\n                change [やられた☆ v] by (-1)\n            end\n            go to x: (-200) y: (0)\n            set [x v] to [0]\n            set [y v] to [0]\n            point in direction (90)\n        end\n    else\n        hide\n    end\nend\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nhide\n\n@地面\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\nforever\n    switch costume to (ステージ)\nend\n\n@障害物\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\nforever\n    switch costume to (ステージ)\nend\n\n@Next!\n\nwhen I receive [次 v]\nset [動ける v] to [no]\nset [color v] effect to (pick random (-250) to (250))\nhide\nstart sound [High Whoosh v]\nclone [1]\nwait (0.05) seconds\nclone [2]\nwait (0.05) seconds\nclone [3]\nwait (0.05) seconds\nclone [4]\nwait (0.05) seconds\nclone [5]\nwait (2.4) seconds\nset [動ける v] to [yes]\n\ndefine clone (cloneid)\nswitch costume to (cloneid)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\ngo to [front v] layer\nshow\nif <<(costume [number v]) = [1]> or <<(costume [number v]) = [2]> or <<(costume [number v]) = [3]> or <<(costume [number v]) = [4]> or <(costume [number v]) = [5]>>>>> then\n    go to x: (468) y: (0)\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (7))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    wait (2.2) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [2]> then\n    wait (2.1) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [3]> then\n    wait (2) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [4]> then\n    wait (1.9) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [5]> then\n    wait (1.8) seconds\n    repeat until <[330] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\n\n@スプライト2\n\nwhen flag clicked\nswitch costume to (コスチューム2 v)\nset [ghost v] effect to (100)\nswitch costume to (コスチューム1 v)\ngo to [front v] layer\n\nswitch costume to (コスチューム2 v)\n\n