WESTERN platformer
@Stage\n\nwhen flag clicked\nforever\n    play sound [free music v] until done\nend\n\n@player\n\nwhen flag clicked\nset [xv v] to [0]\nset [yv v] to [0]\npoint in direction (90)\nset size to (90) %\ngo to x: (-210) y: (-80)\nset rotation style [left-right v]\ngo to [front v] layer\nforever\n    if <not <(Move permission) = [1]>> then\n        if <<<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <<mouse down?> and <(mouse y) < [-50]>>> or <<<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [-50]>>> or <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <[50] < (mouse x)>>>>> then\n            if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <[50] < (mouse x)>>> then\n                switch costume to (コスチューム3 v)\n                change [xv v] by (1.5)\n            end\n            if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < [-50]>>> then\n                switch costume to (コスチューム4 v)\n                change [xv v] by (-1.5)\n            end\n            if <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <<mouse down?> and <(mouse y) < [-50]>>> then\n            end\n        else\n            switch costume to (コスチューム1 v)\n        end\n    end\n    set [xv v] to ((xv) * (0.8))\n    change x by (xv)\n    if <touching (stage v)?> then\n        change y by (1)\n        if <touching (stage v)?> then\n            change y by (1)\n            if <touching (stage v)?> then\n                change y by (1)\n                if <touching (stage v)?> then\n                    change y by (1)\n                    if <touching (stage v)?> then\n                        change x by ((xv) / (-1))\n                        change y by (-4)\n                        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <[50] < (mouse y)>>> then\n                            if <[0] < (xv)> then\n                                set [xv v] to [-8]\n                            else\n                                set [xv v] to [8]\n                            end\n                            set [yv v] to [12]\n                        else\n                            set [xv v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <touching (stage v)?> then\n        if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <[50] < (mouse y)>>> then\n            set [yv v] to [14]\n        end\n    end\n    change y by (1)\n    change [yv v] by (-1)\n    change y by (yv)\n    if <touching (stage v)?> then\n        change y by ((yv) / (-1))\n        set [yv v] to [0]\n    end\n    if <[240] < (x position)> then\n        broadcast (↺ v)\n        go to x: (-240) y: (y position)\n    end\n    if <touching (d v)?> then\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        go to x: (-210) y: (-30)\n        set [xv v] to [0]\n        set [yv v] to [0]\n        repeat (10)\n            change [ghost v] effect by (-10)\n        end\n    end\nend\n\nswitch costume to (コスチューム2 v)\n\n@stage\n\nwhen flag clicked\nswitch costume to (1 v)\n\nwhen I receive [↺ v]\nnext costume\n\n@D\n\nwhen flag clicked\nswitch costume to (1 v)\n\nwhen I receive [↺ v]\nnext costume\n\n@Heart, star and follow2\n\nwhen flag clicked\nhide\nforever\n    wait (pick random (20) to (40)) seconds\n    go to x: (0) y: (201)\n    show\n    repeat (40)\n        change y by (((142) - (y position)) / (10))\n    end\n    wait (1) seconds\n    glide (0.1) secs to x: (0) y: (201)\n    hide\nend\n\nwhen flag clicked\nforever\n    if <touching (player v)?> then\n        set [ghost v] effect to (50)\n    else\n        set [ghost v] effect to (0)\n    end\nend\n\n@ thumbnail\n\nwhen flag clicked\nhide\n\nshow\ngo to [front v] layer\n\n
☆矢印キーで操作\n☆とげに当たるとそのステージの最初から\n