銀世界 - Platformer
@Stage\n\nwhen flag clicked\nforever\n    play sound [Vexento-Northern-Lights v] until done\nend\n\n@Player\n\nwhen flag clicked\nforever\n    if <(xxx) = [1]> then\n        set rotation style [left-right v]\n        if <<key (right 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        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        set [x v] to ((x) * (0.9))\n    end\nend\n\nwhen I receive [next v]\nshow\nset size to (55) %\nset [aaa v] to [0]\nset [x v] to [0]\nset [jump v] to [1]\ngo to x: (-190) y: (-20)\npoint in direction (90)\nwait (0.5) seconds\nset [xxx v] to [1]\n\nwhen flag clicked\ngo to x: (-190) y: (-59)\nshow\nset [jump v] to [1]\nset [xxx v] to [1]\nset [aaa v] to [0]\nset [x v] to [0]\nforever\n    if <(xxx) = [1]> then\n        change x by (x)\n        if <<touching (ground v)?> or <touching (文字 v)?>> then\n            change y by (1)\n            if <<touching (ground v)?> or <touching (文字 v)?>> then\n                change y by (1)\n                if <<touching (ground v)?> or <touching (文字 v)?>> then\n                    change y by (1)\n                    if <<touching (ground v)?> or <touching (文字 v)?>> then\n                        change y by (1)\n                        if <<touching (ground v)?> or <touching (文字 v)?>> then\n                            change y by (1)\n                            if <<touching (ground v)?> or <touching (文字 v)?>> then\n                                change y by (-4)\n                                change x by ((0) - (x))\n                                if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n                                    start sound [jump v]\n                                    set [aaa v] to [13]\n                                    if <[0] < (x)> then\n                                        set [x v] to [-7]\n                                    else\n                                        set [x v] to [7]\n                                    end\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change [aaa v] by (-1)\n        change y by (aaa)\n        if <<touching (ground v)?> or <touching (文字 v)?>> then\n            if <[0] > (aaa)> then\n                set [jump v] to [0]\n            else\n                set [jump v] to [1]\n            end\n            change y by ((0) - (aaa))\n            set [aaa v] to [0]\n        end\n        change y by (-1)\n        if <<<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> and <<(Jump) = [0]> and <<touching (ground v)?> or <touching (文字 v)?>>>> then\n            start sound [jump v]\n            set [jump v] to [1]\n            set [aaa v] to [13]\n        end\n        if <[230] < (x position)> then\n            broadcast (o v)\n            go to x: (-190) y: (-20)\n            point in direction (90)\n            set [aaa v] to [0]\n            set [x v] to [0]\n            hide\n            set [xxx v] to [0]\n        end\n        if <<touching (needle v)?> or <touching (針を吐く v)?>> then\n            start sound [die v]\n            repeat (20)\n                change [ghost v] effect by (5)\n            end\n            hide\n            set [ghost v] effect to (0)\n            set size to (55) %\n            go to x: (-190) y: (-20)\n            point in direction (90)\n            set [xxx v] to [1]\n            set [aaa v] to [0]\n            set [x v] to [0]\n            show\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nrepeat (10)\n    change [ghost v] effect by (10)\n    change size by (-3)\nend\ndelete this clone\n\n@Needle\n\nwhen flag clicked\nshow\nswitch costume to (blank v)\ngo to [back v] layer\n\nwhen I receive [next v]\ngo to [back v] layer\nnext costume\nif < (costume [name v]) contains [針]?> then\n    clear graphic effects\nelse\n    set [pixelate v] effect to (80)\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    動き [0.3]\n    wait (0.7) seconds\n    動き [-0.3]\n    wait (0.7) seconds\nend\n\ndefine 動き (数値)\nrepeat (10)\n    change y by (数値)\nend\n\n@Ground\n\nwhen flag clicked\nswitch costume to (1 v)\ngo to x: (0) y: (0)\nset [pixelate v] effect to (80)\n\nwhen I receive [next v]\nif <(costume [number v]) = [6]> then\n    set [針吐く=? v] to [0]\n    broadcast (文字表示 v)\n    broadcast (削除 v)\nend\nnext costume\n\nwhen flag clicked\nset [針吐く=? v] to [0]\nwait until <(costume [number v]) = [6]>\nset [針吐く=? v] to [1]\n\n@Next\n\nwhen I receive [o v]\nswitch costume to (1 v)\ncreate clone of (_myself_ v)\nswitch costume to (2 v)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    set [pixelate v] effect to (150)\nend\ngo to x: (0) y: (0)\ngo to [front v] layer\nset size to (100) %\nset [ghost v] effect to (100)\nshow\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nwait (0.2) seconds\nif <(costume [number v]) = [1]> then\n    broadcast (NEXT v)\nend\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\n@針を吐く\n\nwhen flag clicked\npoint in direction (0)\ngo to x: (207) y: (-76)\nhide\nwait until <(針吐く=?) = [1]>\nforever\n    create clone of (_myself_ v)\n    wait (3) seconds\nend\n\nwhen I start as a clone\nshow\nrepeat until <touching (_edge_ v)?>\n    change x by (-2)\nend\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen I receive [削除 v]\nstop [other scripts in sprite v]\ndelete this clone\n\n@文字\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [文字表示 v]\nshow\n\n@サムネイル\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nrepeat (3)\n    go to [front v] layer\n    next costume\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [2]> then\n    set [pixelate v] effect to (80)\nend\n\n