残念なプラットフォーマー  Disappointing Platformer
@Stage\n\nwhen flag clicked\nforever\n    play sound [笛の音楽 v] until done\nend\n\n@四角君\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nbroadcast (i v)\nshow\nset size to (50) %\ngo to x: (-200) y: (0)\nset [x v] to [0.1]\nset [y v] to [0]\nforever\n    if <<<mouse down?> and <(x position) < (mouse x)>> or <key (right arrow v) pressed?>> then\n        change [x v] by (1)\n    end\n    if <<<mouse down?> and <(x position) > (mouse x)>> or <key (left arrow v) pressed?>> then\n        change [x v] by (-1)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching color (#000000)?> then\n        change y by (1)\n        if <touching color (#000000)?> then\n            change y by (1)\n            if <touching color (#000000)?> then\n                change y by (1)\n                if <touching color (#000000)?> then\n                    change y by (1)\n                    if <touching color (#000000)?> then\n                        change y by (1)\n                        if <touching color (#000000)?> then\n                            change y by (1)\n                            if <touching color (#000000)?> then\n                                change y by (1)\n                                if <touching color (#000000)?> then\n                                    change x by ((x) * (-1))\n                                    change y by (-5)\n                                    if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n                                        start sound [ジャンプ v]\n                                        if <[0] < (x)> then\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        end\n    end\n    change y by (-1)\n    if <touching color (#000000)?> then\n        if <<<mouse down?> and <(y position) < (mouse y)>> or <key (up arrow v) pressed?>> then\n            start sound [ジャンプ v]\n            set [y v] to [15]\n        end\n    end\n    change y by (1)\n    change [y v] by (-1)\n    change y by (y)\n    if <touching color (#000000)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    point in direction ((90) + (x))\n    if <[238] < (x position)> then\n        set [x v] to [0.1]\n        set [x v] to [0]\n        go to x: (-200) y: (0)\n        next backdrop\n        stop [other scripts in sprite v]\n        broadcast (i v)\n    end\n    if <<touching color (#858585)?> or <[-178] > (y position)>> then\n        start sound [シュバッ v]\n        set [y v] to [10]\n        repeat until <touching (_edge_ v)?>\n            turn right (10) degrees\n            change y by (y)\n            change [y v] by (-1)\n        end\n        go to x: (-200) y: (0)\n        point in direction (90)\n        set [x v] to [0.1]\n        set [y v] to [0]\n        stop [other scripts in sprite v]\n        broadcast (i v)\n    end\n    if <touching color (#79ffa4)?> then\n        set [y v] to [15]\n    end\n    if <not <(x) = [0]>> then\n        if <[0] < (x)> then\n            switch costume to (コスチューム1 v)\n        else\n            switch costume to (コスチューム2 v)\n        end\n    end\nend\n\nwhen I receive [切り替え2 v]\ngo to x: (-200) y: (0)\npoint in direction (90)\n\nset [x v] to [0.1]\nset [x v] to [0]\ngo to x: (-200) y: (0)\nnext backdrop\nbroadcast (i v)\n\nsay (y position) for (1) seconds\n\nwhen flag clicked\n\n@スプライト1\n\nwhen I receive [i v]\nif <(backdrop [number v]) = [1]> then\n    wait until <[-130] < ([x position v] of [四角君 v])>\n    set [s v] to [11]\n    point in direction (90)\n    set [i v] to [0]\n    go to x: (-105) y: (-180)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    wait until <[100] < ([x position v] of [四角君 v])>\n    set [s v] to [20]\n    point in direction (-90)\n    set [i v] to [1]\n    go to x: (125) y: (180)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\nend\nif <(backdrop [number v]) = [2]> then\n    wait until <[-130] < ([x position v] of [四角君 v])>\n    set [s v] to [20]\n    point in direction (-90)\n    set [i v] to [1]\n    go to x: (-105) y: (180)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    wait until <[-30] < ([x position v] of [四角君 v])>\n    set [s v] to [5]\n    point in direction (90)\n    set [i v] to [0]\n    go to x: (3) y: (27)\n    create clone of (_myself_ v)\nend\nif <(backdrop [number v]) = [3]> then\n    wait until <[-100] < ([x position v] of [四角君 v])>\n    set [s v] to [20]\n    point in direction (-90)\n    set [i v] to [1]\n    go to x: (-85) y: (180)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\nend\nif <(backdrop [number v]) = [4]> then\n    wait until <[-100] < ([x position v] of [四角君 v])>\n    set [s v] to [13]\n    point in direction (90)\n    set [i v] to [0]\n    go to x: (-85) y: (-180)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\nend\nif <(backdrop [number v]) = [5]> then\n    wait until <[-80] < ([x position v] of [四角君 v])>\n    set [s v] to [13]\n    point in direction (90)\n    set [i v] to [0]\n    go to x: (-50) y: (-180)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    wait until <[20] < ([x position v] of [四角君 v])>\n    switch costume to (コスチューム2 v)\n    set [s v] to [13]\n    point in direction (90)\n    set [i v] to [0]\n    go to x: (50) y: (-180)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    switch costume to (コスチューム1 v)\nend\nif <(backdrop [number v]) = [6]> then\n    wait until <[-130] < ([x position v] of [四角君 v])>\n    set [s v] to [11]\n    point in direction (90)\n    set [i v] to [0]\n    go to x: (-105) y: (-180)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\n    create clone of (_myself_ v)\n    change x by (20)\nend\n\nwhen I start as a clone\nset [s v] to (S)\nshow\nif <(I) = [0]> then\n    repeat until <[170] < (y position)>\n        change y by (s)\n    end\n    delete this clone\nelse\n    repeat until <[-170] > (y position)>\n        change y by ((s) * (-1))\n    end\n    delete this clone\nend\ndelete this clone\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [i v]\ndelete this clone\n\nwait until <[100] < ([x position v] of [四角君 v])>\n\npoint in direction (90)\n\n
==================遊び方==================\n矢印キーで移動\n\nそれだけ\n================How to play================\nUse the arrow keys to move\n\nThat's it.\n=========================================