✰ Meadow / 草原 ✰ platformer


@Stage\n\nwhen flag clicked\nforever\n    play sound [Get Outside! – Jason Farnham \(No Copyright Music\)  v] until done\nend\n\n@prayer\n\nwhen flag clicked\nshow\nswitch costume to (prayer v)\nset rotation style [left-right v]\npoint in direction (90)\ngo to x: (-180) y: (50)\nset [x v] to [0]\nset [y v] to [0]\nset [jump v] to [2]\nforever\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <[0] < (mouse x)>>> then\n        change [x v] by (1)\n        point in direction (90)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>> then\n        change [x v] by (-1)\n        point in direction (-90)\n    end\n    change x by (x)\n    set [x v] to ((x) * (0.9))\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 y by (1)\n                        if <touching (stage v)?> then\n                            change x by ((x) * (-1.2))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>> then\n                                if <(x) > [0]> then\n                                    set [x v] to [-6]\n                                else\n                                    set [x v] to [6]\n                                end\n                                set [y v] to [10]\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 <<key (up arrow v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>> then\n        if <touching (stage v)?> then\n            start sound [ジャンプ　効果音 v]\n            set [y v] to [15]\n            set [jump v] to [1]\n        end\n    end\n    change y by (y)\n    change [y v] by (-1)\n    if <touching (stage v)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n        set [jump v] to [2]\n    end\n    if <<<touching (_edge_ v)?> and <[240] < (x position)>> and <not <([costume name v] of [stage v]) = [8]>>> then\n        broadcast (next v)\n        reset\n        wait (3.2) seconds\n        clear graphic effects\n    end\n    if <<touching (thorn v)?> or <<touching (_edge_ v)?> and <[-190] > (y position)>>> then\n        start sound [やられた　効果音 v]\n        reset\n        clear graphic effects\n    end\n    if <<<key (right arrow v) pressed?> or <<mouse down?> and <[0] < (mouse x)>>> and <(Jump) = [2]>> then\n        set [clone v] to [1]\n        create clone of (_myself_ v)\n    end\n    if <<<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>> and <(Jump) = [2]>> then\n        set [clone v] to [2]\n        create clone of (_myself_ v)\n    end\nend\n\ndefine reset\nrepeat (10)\n    change [ghost v] effect by (10)\nend\ngo to x: (-180) y: (50)\nset [x v] to [0]\nset [y v] to (x)\nset [jump v] to [1]\n\nwhen I start as a clone\nset rotation style [all around v]\nif <(clone) = [1]> then\n    change x by (-20)\n    change y by (-30)\n    go to [front v] layer\n    switch costume to (pick random (2) to (4))\n    show\n    set [clone.1 v] to (pick random (-5.0) to (-10.0))\n    set [clone.2 v] to (pick random (2.0) to (10.0))\n    set [clone.3 v] to (clone.2)\n    repeat until <(y position) < [-185]>\n        set [clone.1 v] to ((clone.1) * (0.9))\n        change [clone.2 v] by (-1)\n        change x by (clone.1)\n        change y by (clone.2)\n        turn right ((clone.1) * ((clone.3) / (2))) degrees\n    end\n    delete this clone\nend\nif <(clone) = [2]> then\n    change x by (20)\n    change y by (-30)\n    go to [front v] layer\n    switch costume to (pick random (2) to (4))\n    show\n    set [clone.1 v] to (pick random (5.0) to (10.0))\n    set [clone.2 v] to (pick random (2.0) to (10.0))\n    set [clone.3 v] to (clone.2)\n    repeat until <(y position) < [-185]>\n        set [clone.1 v] to ((clone.1) * (0.9))\n        change [clone.2 v] by (-1)\n        change x by (clone.1)\n        change y by (clone.2)\n        turn right ((clone.1) * ((clone.3) / (2))) degrees\n    end\n    delete this clone\nend\n\n@stage\n\nwhen I receive [next stage v]\nnext costume\n\nwhen flag clicked\nswitch costume to (1 v)\n\n@next\n\nwhen I receive [next v]\nstart sound [シーン切り替え v]\nclone [2]\nwait (0.5) seconds\nclone [3]\nwait (0.2) seconds\nclone [4]\nwait (0.2) seconds\nclone [5]\nwait (0.2) seconds\nclone [6]\nhide\n\ndefine clone ()\nswitch costume to ()\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    go to x: (-999) y: (0)\n    go to [front v] layer\n    show\n    repeat (50)\n        set x to ((x position) * (0.85))\n    end\n    broadcast (next stage v)\n    wait (1) seconds\n    set x to (-0.1)\n    repeat (10)\n        set x to ((x position) * (1.4))\n    end\n    start sound [シーン切り替え v]\n    repeat (60)\n        set x to ((x position) * (1.4))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [3]> then\n    next [-90] 座標\nend\n\ndefine next (x) 座標\ngo to [front v] layer\nset size to (130) %\ngo to x: (x) y: (-999)\nshow\nrepeat (30)\n    set y to ((y position) * (0.79))\n    point in direction (((y position) * (0.8)) + (90))\nend\nset y to (0.1)\nrepeat (30)\n    set y to ((y position) * (1.3))\n    point in direction (((y position) * (0.8)) + (90))\nend\ndelete this clone\n\nwhen I start as a clone\nif <(costume [number v]) = [4]> then\n    next [-30] 座標\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [5]> then\n    next [30] 座標\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [6]> then\n    next [90] 座標\nend\n\nwhen flag clicked\nhide\n\n@background\n\nwhen flag clicked\ngo to [back v] layer\nhide\nbackground [3]\nbackground [2]\nbackground [1]\n\ndefine background (a)\nswitch costume to (a)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    forever\n        go to x: (([sin v] of ((timer) * (10)) ) * (2)) y: (([cos v] of ((timer) * (100)) ) * (2))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    forever\n        go to x: (([cos v] of (((timer) * (10)) + (30)) ) * (2)) y: (([sin v] of (((timer) * (50)) + (30)) ) * (2))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [3]> then\n    forever\n        go to x: (([sin v] of ((timer) * (30)) ) * (2)) y: (([cos v] of ((timer) * (120)) ) * (2))\n    end\nend\n\nwhen I start as a clone\ngo to [back v] layer\ngo to x: (0) y: (0)\nshow\n\n@Thorn\n\nwhen I receive [next stage v]\nnext costume\n\nwhen flag clicked\nswitch costume to (1 v)\ngo to [back v] layer\n\n@light\n\nwhen flag clicked\npoint in direction (90)\ngo to [front v] layer\nshow\nforever\n    point in direction ((([cos v] of ((timer) * (20)) ) * (10)) + (90))\nend\n\n@thumbnail\n\nwhen flag clicked\nset [ghost v] effect to (100)\n\n