SKY platformer! /　空のプラットフォーマー

Instructions: 4位まじでありがたいけど……\n"How to operate"\n・Arrow keys\n・Tap operation\n\n「操作方法」\n・矢印キー\n・タップ操作\n

@Stage\n\n@プレイヤー\n\ndelete this clone\n\nset [ステージ v] to [24]\n\nchange [x v] by (5)\n\nwhen flag clicked\nshow\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (join [コスチューム] ((costume [number v]) + (1)))\nrepeat (5)\n    change size by (-5)\nend\ndelete this clone\n\ndefine 初めに戻る\ngo to x: (-200) y: (0)\nset size to (80) %\nset [x v] to [0]\nset [y v] to [0]\ngo to [front v] layer\nshow\n\nwhen flag clicked\n\nwhen flag clicked\nset [ステージ v] to [1]\ngo to [front v] layer\nshow\nset size to (80) %\ngo to x: (-200) y: (0)\ngo to x: (-200) y: (0)\nswitch costume to (コスチューム1 v)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    if <(costume [number v]) = [1]> then\n        if <<key (right arrow v) pressed?> or <<mouse down?> and <(mouse x) > (x position)>>> then\n            point in direction (90)\n            change [x v] by (1)\n        end\n        if <<key (left arrow v) pressed?> or <<mouse down?> and <(x position) > (mouse x)>>> then\n            point in direction (-90)\n            change [x v] by (-1)\n        end\n        \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 x by ((x) * (-1))\n                                change y by (-5)\n                                if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n                                    if <(x) > [0]> then\n                                        start sound [壁キック v]\n                                        set [x v] to [-7]\n                                    else\n                                        set [x v] to [7]\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        change y by (-1)\n        if <touching (地面 v)?> then\n            if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n                start sound [ジャンプの音 v]\n                set [y v] to [15]\n            end\n        end\n        change y by (1)\n        if <not <touching (水 v)?>> then\n            change [y v] by (-1)\n        end\n        change y by (y)\n        if <<touching (地面 v)?> or <touching (氷 v)?>> then\n            change y by ((y) * (-1))\n            set [y v] to [0]\n        end\n        set rotation style [left-right v]\n        if <<touching (障害物 v)?> or <<touching (回る針 v)?> or <touching (行き止まり v)?>>> then\n            start sound [ﾀﾋ v]\n            初めに戻る\n            wait (0.1) seconds\n        end\n        if <[240] < (x position)> then\n            if <<(ステージ) < [21]> or <(ステージ) = [24]>> then\n                broadcast (next v)\n                初めに戻る\n                start sound [素振り v]\n                wait (3) seconds\n                change [ステージ v] by (1)\n                初めに戻る\n            end\n        end\n    end\n    if <(y position) < [-170]> then\n        start sound [ﾀﾋ v]\n        初めに戻る\n        wait (0.1) seconds\n    end\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > (y position)>>> then\n        if <touching (水 v)?> then\n            set [y v] to [3]\n        end\n    else\n        if <touching (水 v)?> then\n            change [y v] by (-0.2)\n        end\n    end\n    if <touching (バネ v)?> then\n        start sound [バネ踏む v]\n        set [y v] to [18]\n    end\n    set [x v] to ((x) * (0.9))\nend\n\n@地面\n\nwhen flag clicked\nshow\nforever\n    switch costume to (ステージ)\nend\n\n@障害物\n\nwhen flag clicked\nset [ステージ v] to [1]\nforever\n    switch costume to (ステージ)\nend\n\n@next\n\nwhen I receive [next v]\nset [ｏｋ v] to [✖]\nhide\ngo to [front v] layer\nchange [color v] effect by (30)\nswitch costume to (コスチューム1 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム2 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム3 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム4 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム5 v)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム6 v)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nrepeat (10)\n    hide\nend\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [1]> then\n    change [color v] effect by (25)\n    go to x: (36) y: (-400)\n    repeat until <[1] < (y position)>\n        change y by ((() - (y position)) / (10))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    change [color v] effect by (25)\n    hide\n    wait (0.25) seconds\n    show\n    go to x: (36) y: (400)\n    repeat until <(y position) < [1]>\n        change y by ((() - (y position)) / (10))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [3]> then\n    change [color v] effect by (25)\n    hide\n    wait (0.5) seconds\n    show\n    go to x: (500) y: (0)\n    repeat until <(x position) < [1]>\n        change x by ((() - (x position)) / (10))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [4]> then\n    change [color v] effect by (25)\n    hide\n    wait (0.75) seconds\n    show\n    go to x: (-500) y: (0)\n    repeat until <[1] < (x position)>\n        change x by ((() - (x position)) / (10))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [5]> then\n    hide\n    wait (1) seconds\n    show\n    go to x: (0) y: (400)\n    repeat until <(y position) < [1]>\n        change y by ((() - (y position)) / (10))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [6]> then\n    hide\n    wait (1) seconds\n    show\n    go to x: (0) y: (-400)\n    repeat until <[1] < (y position)>\n        change y by ((() - (y position)) / (10))\n    end\nend\n\nwhen I start as a clone\nwait (2.5) seconds\nrepeat (20)\n    change size by ((() - (size)) / (5))\nend\nset [ｏｋ v] to [◎]\ndelete this clone\n\nwhen flag clicked\nset [ステージ v] to [1]\n\nwhen flag clicked\nbroadcast (うへへ v)\n\nwhen I receive [うへへ v]\nwait (1) seconds\nbroadcast (ANEXT v)\n\nwhen flag clicked\nset [color v] effect to (-30)\n\n@スプライト2\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    set [ghost v] effect to (100)\n    go to [front v] layer\nend\n\n@バネ\n\nwhen flag clicked\nforever\n    switch costume to (ステージ)\nend\n\n@ターボ防止\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\nreset timer\nset [ターボ対策用の変数 v] to [0]\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\n    change [ターボ対策用の変数 v] by (1)\n    wait () seconds\nend\n\nwhen flag clicked\nforever\n    if <[25] < (ターボ対策用の変数)> then\n        switch costume to (コスチューム1 v)\n        go to [front v] layer\n        show\n        stop [all v]\n    end\nend\n\nwhen flag clicked\nforever\n    wait (0.6) seconds\n    set [ターボ対策用の変数 v] to [0]\nend\n\nwhen flag clicked\nforever\n    play sound [Nebula v] until done\nend\n\n@空の雲\n\nwhen I start as a clone\nshow\ngo to [back v] layer\nglide (pick random (3) to (10)) secs to x: (-276) y: (y position)\nhide\ndelete this clone\n\nwhen flag clicked\nhide\nforever\n    switch costume to (pick random (1) to (3))\n    set [ghost v] effect to (pick random (10) to (30))\n    wait (pick random (2) to (0.7)) seconds\n    create clone of (_myself_ v)\n    go to x: (276) y: (pick random (100) to (150))\nend\n\n