TOWN platformer 

Instructions: English：英語\n▶Press the flag twice\n▶arrow key operation\n▶If you touch the thorn, it will be from the beginning of \n　the stage.\n-------------------------------------------------------------------------\nJapanese：日本語\n▶旗は2回押してください\n▶矢印キー操作\n▶とげに触れるとそのステージの最初からになります

@Stage\n\n@player\n\nwhen flag clicked\nset [ghost v] effect to (0)\nset rotation style [left-right v]\ngo to x: (0) y: (-60)\npoint in direction (90)\nforever\n    if <<(next) = [0]> and <(stop) = [0]>> then\n        if <touching (gool v)?> then\n            broadcast (t次 v)\n            wait (1.2) seconds\n        end\n        if <touching (out v)?> then\n            start sound [gool v]\n            broadcast (a- v)\n        end\n    end\nend\n\nwhen I receive [t次 v]\nset [xv v] to [0]\nset [yv v] to [0]\n\nwhen I receive [a- v]\nset [yv v] to [0]\nset [xv v] to [0]\ngo to [front v] layer\nset [ghost v] effect to (50)\nwait (2) seconds\nset [ghost v] effect to (0)\n\nwhen I receive [落下 v]\nset [yv v] to [0]\nset [xv v] to [0]\ngo to [front v] layer\nset [ghost v] effect to (50)\nwait (2) seconds\nset [ghost v] effect to (0)\n\n@stage\n\nwhen flag clicked\nswitch costume to (stage1 v)\npoint in direction (90)\nset [stop v] to [0]\nset [xv v] to [0]\nhide variable [xv v]\nset [yv v] to [0]\nhide variable [yv v]\nset [next v] to [0]\nhide variable [next v]\ngo to x: (1070) y: (300)\nforever\n    if <(stop) = [0]> then\n        if <(next) = [0]> then\n            if <<key (right arrow v) pressed?> or <<mouse down?> and <(mouse x) > [0]>>> then\n                change [xv v] by (2)\n            end\n            if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>> then\n                change [xv v] by (-2)\n            end\n        end\n        set [xv v] to ((XV) * (0.8))\n        change x by ((XV) / (-1))\n        if <touching (player v)?> then\n            broadcast (Riset v)\n            change y by (-1)\n            if <touching (player v)?> then\n                change y by (-1)\n                if <touching (player v)?> then\n                    change y by (-1)\n                    if <touching (player v)?> then\n                        change y by (-1)\n                        if <touching (player v)?> then\n                            change y by (-1)\n                            if <touching (player v)?> then\n                                change x by (XV)\n                                change y by (5)\n                                if <(next) = [0]> then\n                                    if <<key (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>> then\n                                        if <[0] < (XV)> then\n                                            set [xv v] to [-15]\n                                        else\n                                            set [xv v] to [15]\n                                        end\n                                        start sound [氷 v]\n                                        set [yv v] to [15]\n                                    else\n                                        set [xv v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        change y by (1)\n        if <<touching (player v)?> and <(next) = [0]>> then\n            if <<key (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>> then\n                set [yv v] to [15]\n            end\n        end\n        change y by (-1)\n        change [yv v] by (-1)\n        change y by ((YV) / (-1))\n        if <touching (player v)?> then\n            change y by (YV)\n            set [yv v] to [0]\n        end\n        if <[1000] < (y position)> then\n            broadcast (落下 v)\n        end\n    end\nend\n\nwhen I receive [stage v]\nnext costume\ngo to x: (1070) y: (300)\n\nwhen I receive [a- v]\nset [stop v] to [1]\nglide (2) secs to x: (1070) y: (300)\nset [stop v] to [0]\n\nwhen I receive [落下 v]\nset [stop v] to [1]\nglide (2) secs to x: (1070) y: (300)\nset [stop v] to [0]\n\n@NEXT\n\nwhen flag clicked\nhide\ngo to x: (500) y: (0)\ngo to [front v] layer\n\nwhen I receive [t次 v]\nset [next v] to [1]\nswitch costume to (コスチューム1 v)\nstart sound [gool v]\nrepeat (2)\n    create clone of (_myself_ v)\n    wait (0.7) seconds\n    next costume\nend\n\nwhen I start as a clone\ngo to [front v] layer\nshow\ngo to x: (500) y: (0)\nshow\nif <(costume [number v]) = [1]> then\n    go to x: (500) y: (0)\n    show\n    repeat until <(x position) < [2]>\n        go to [front v] layer\n        change x by (((0) - (x position)) * (0.15))\n    end\n    wait (0.7) seconds\n    glide (0.2) secs to x: (-470) y: (0)\n    hide\n    delete this clone\nelse\n    go to x: (500) y: (0)\n    show\n    repeat until <(x position) < [2]>\n        go to [front v] layer\n        change x by (((0) - (x position)) * (0.15))\n    end\n    set [next v] to [0]\n    broadcast (stage v)\n    glide (0.2) secs to x: (-470) y: (0)\n    hide\n    delete this clone\nend\ndelete this clone\n\n@samuneeeeeeeee\n\nwhen flag clicked\nhide\n\n@back stage\n\nwhen flag clicked\nhide\ngo to x: (-3) y: (26)\nswitch costume to (コスチューム1 v)\nrepeat (4)\n    go to x: (-3) y: (26)\n    create clone of (_myself_ v)\n    next costume\nend\n\nwhen I receive [d v]\ngo to x: (-3) y: (26)\n\nwhen I start as a clone\nshow\ngo to [back v] layer\nforever\n    set [brightness v] effect to (0)\n    go to [back v] layer\n    if <(costume [number v]) = [1]> then\n        Coordinate down [4] +x? [no]\n    else\n        if <(costume [number v]) = [2]> then\n            Coordinate down [6] +x? [no]\n        else\n            if <(costume [number v]) = [3]> then\n                Coordinate down [8] +x? [no]\n            else\n                Coordinate down [9] +x? [no]\n            end\n        end\n    end\nend\n\ndefine Coordinate down (xy) +x? (yes or no)\nif <(yes or no) = [no]> then\n    change x by ((XV) / ((xy) - ((xy) * (2))))\n    change y by ((YV) / ((xy) - ((xy) * (2))))\nelse\n    if <(yes or no) = [yes]> then\n        change y by ((YV) / ((xy) - ((xy) * (2))))\n    end\nend\n\nwhen I receive [a- v]\nglide (2) secs to x: (-3) y: (26)\n\nwhen I receive [stage v]\nwait (0.1) seconds\nhide\ngo to x: (-3) y: (26)\nswitch costume to (コスチューム1 v)\nrepeat (4)\n    go to x: (-3) y: (26)\n    create clone of (_myself_ v)\n    next costume\nend\n\nwhen I receive [stage v]\ndelete this clone\n\nwhen I receive [落下 v]\nglide (2) secs to x: (-3) y: (26)\n\n@♡＆☆\n\nwhen flag clicked\nhide\ngo to x: (319) y: (151)\nforever\n    wait (pick random (20) to (40)) seconds\n    start sound [登場！ v]\n    show\n    go to x: (319) y: (151)\n    repeat until <(x position) = [0]>\n        change x by (((0) - (x position)) * (0.1))\n        repeat until <[1] > (x position)>\n            change x by (((0) - (x position)) * (0.1))\n        end\n        glide (0.2) secs to x: (-319) y: (151)\n        hide\n    end\nend\n\n@out\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\npoint in direction (90)\nset [xv v] to [0]\nhide variable [xv v]\nset [yv v] to [0]\nhide variable [yv v]\nset [next v] to [0]\nhide variable [next v]\ngo to x: (1070) y: (300)\nforever\n    if <(next) = [0]> then\n        go to (stage v)\n        go to x: ([x position v] of [stage v]) y: ([y position v] of [stage v])\n    end\nend\n\nwhen I receive [stage v]\nnext costume\ngo to x: (1070) y: (300)\n\nwhen I receive [a- v]\nset [next v] to [1]\nshow\nglide (2) secs to x: (1070) y: (300)\nset [next v] to [0]\n\n@gool\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\npoint in direction (90)\nset [xv v] to [0]\nhide variable [xv v]\nset [yv v] to [0]\nhide variable [yv v]\nset [next v] to [0]\nhide variable [next v]\ngo to x: (1070) y: (300)\nforever\n    if <(next) = [0]> then\n        go to (stage v)\n        go to x: ([x position v] of [stage v]) y: ([y position v] of [stage v])\n    end\nend\n\nwhen I receive [stage v]\nshow\nnext costume\ngo to x: (1070) y: (300)\n\nwhen I receive [a- v]\nset [next v] to [1]\nshow\nglide (2) secs to x: (1070) y: (300)\nset [next v] to [0]\n\nwhen I receive [t次 v]\nhide\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nshow\ngo to [front v] layer\n\n