"the Nature"　a platformer 


@Stage\n\nwhen flag clicked\nswitch backdrop to (1 v)\nwait until <(プログラム管理) = [1]>\nforever\n    switch backdrop to (プログラム管理)\nend\n\n@タイトル\n\nwhen flag clicked\nset [プログラム管理 v] to [オープニング]\nerase all\ngo to [front v] layer\nset [ghost v] effect to (0)\nset size to (100) %\nhide\npen up\nset pen size to (1)\nset pen color to (#1dff00)\ngo to x: (0) y: (0)\npen down\nrepeat (80)\n    change x by (0.1)\n    change x by (-0.1)\n    change pen size by (15)\nend\npen up\ngo to x: (0) y: (220)\nswitch costume to (琴 v)\nshow\nrepeat (10)\n    change y by (-22)\nend\nwait (1) seconds\nrepeat (26)\n    change x by (-6)\nend\nstamp\nhide\nswitch costume to (mikawakengyo v)\nwait (1) seconds\ngo to x: (80) y: (220)\nshow\nrepeat (10)\n    change y by (-22)\nend\nstamp\nwait (1.5) seconds\nhide\ngo to x: (0) y: (0)\nswitch costume to (黒 v)\nset [ghost v] effect to (100)\nshow\nrepeat (10)\n    change [ghost v] effect by (-10)\n    wait (0.1) seconds\nend\nerase all\nrepeat (50)\n    set [プログラム管理 v] to [1]\n    go to [front v] layer\nend\nrepeat (10)\n    go to [front v] layer\n    change [ghost v] effect by (10)\n    wait (0.1) seconds\nend\nhide\nforever\n    play sound [BGM素材ﾀﾞﾖｰ v] until done\nend\n\nswitch costume to (サムネ v)\nset [ghost v] effect to (0)\ngo to [front v] layer\nshow\n\n@キャラ\n\nwhen flag clicked\nhide\nwait (0.1) seconds\nwait until <not <(プログラム管理) = [オープニング]>>\nスポーン\nwait (1) seconds\nforever\n    go to [front v] layer\n    change [落ちる速さ v] by (-1)\n    change y by (落ちる速さ)\n    着地 <(落ちる速さ) > [0]>\n    移動\n    if <<[220] < (x position)> and <touching (_edge_ v)?>> then\n        次のステージへ\n    end\n    if <<<(y position) < [-180]> or <touching (触ってはいけないもの v)?>> or <touching (落石 v)?>> then\n        ヤラレチャッタ\n    end\nend\n\ndefine スポーン\nset [速さx v] to [0]\npoint in direction (90)\ngo to x: (-180) y: (-100)\nset size to (40) %\nshow\n\ndefine 着地 <上昇中ですか？>\nchange [落下していますか？ v] by (1)\nrepeat until <not <touching (地形 v)?>>\n    if <上昇中ですか？> then\n        change y by (-1)\n        set [落ちる速さ v] to [0]\n    else\n        change y by (1)\n        set [落下していますか？ v] to [0]\n        set [落ちる速さ v] to [0]\n    end\nend\n\ndefine 移動\nif <<<mouse down?> and <(x position) < (mouse x)>> or <<key (d v) pressed?> or <key (right arrow v) pressed?>>> then\n    if <<<mouse down?> and <(mouse x) < (x position)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n        減速\n    else\n        歩行 [1] [1]\n    end\nelse\n    if <<<mouse down?> and <(mouse x) < (x position)>> or <<key (a v) pressed?> or <key (left arrow v) pressed?>>> then\n        歩行 [2] [-1]\n    else\n        減速\n    end\nend\nif <touching (ジャンプ台 v)?> then\n    set [落ちる速さ v] to [20]\nelse\n    if <<(落下していますか？) < [3]> and <<<mouse down?> and <[50] < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>>> then\n        set [落ちる速さ v] to [14]\n    end\nend\nif <<<(落下していますか？) < [3]> and <(落ちる速さ) < [10]>> and <<<mouse down?> and <(mouse y) < [-30]>> or <<key (s v) pressed?> or <key (down arrow v) pressed?>>>> then\n    switch costume to (4 v)\nelse\n    if <touching (地形 v)?> then\n        switch costume to (4 v)\n    end\nend\n\ndefine 減速\nset [速さx v] to ((速さX) * (0.88))\n坂\nswitch costume to (3 v)\n\ndefine 歩行 (コスチューム) (向き)\nchange [速さx v] by ((1) * (向き))\nif <([abs v] of ((6) * (向き)) ) < ([abs v] of (速さX) )> then\n    set [速さx v] to ((6) * (向き))\nend\n坂\nswitch costume to (コスチューム)\n\ndefine 坂\nif <touching (加速器 v)?> then\n    set [加減速処理 v] to [1]\n    change [速さx v] by (4)\nelse\n    if <touching (減速機 v)?> then\n        set [加減速処理 v] to [2]\n        change [速さx v] by (-4)\n    else\n        set [加減速処理 v] to [0]\n    end\nend\nchange x by (速さX)\nset [坂 v] to [0]\nrepeat until <<not <touching (地形 v)?>> or <[7] < (坂)>>\n    change y by (1)\n    change [坂 v] by (1)\nend\nif <[7] < (坂)> then\n    change x by ((-1) * (速さX))\n    change y by ((-1) * (坂))\nend\nif <(加減速処理) = [1]> then\n    set [加減速処理 v] to [0]\n    change [速さx v] by (-4)\nelse\n    if <(加減速処理) = [2]> then\n        set [加減速処理 v] to [0]\n        change [速さx v] by (4)\n    else\n        set [加減速処理 v] to [0]\n    end\nend\nif <[7] < (坂)> then\n    if <<<mouse down?> and <[50] < (mouse y)>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> then\n        set [落ちる速さ v] to [14]\n        if <([abs v] of (速さX) ) < [6]> then\n            if <(速さX) > [0]> then\n                set [速さx v] to [-6]\n            else\n                set [速さx v] to [6]\n            end\n        end\n    end\n    if <not <(落下していますか？) < [3]>> then\n        set [速さx v] to ((速さX) * (-1))\n    else\n        set [速さx v] to [0]\n    end\n    坂\nend\n\ndefine ヤラレチャッタ\ngo to [front v] layer\nset [速さx v] to [0]\nset [落ちる速さ v] to [0]\npoint in direction (90)\nrepeat (10)\n    turn right (15) degrees\n    change y by (10)\nend\nset [回転 v] to [10]\nrepeat (20)\n    turn right (15) degrees\n    change y by (回転)\n    change [回転 v] by (-1)\nend\nset [やられる速度 v] to [-10]\nrepeat until <<touching (_edge_ v)?> and <(y position) < [0]>>\n    turn right (15) degrees\n    change y by (やられる速度)\n    change [やられる速度 v] by (-2)\nend\nhide\nwait (1) seconds\nスポーン\n\ndefine 次のステージへ\nset [速さx v] to [0]\nset [落ちる速さ v] to [0]\nbroadcast (NEXT v)\nwait (1) seconds\nスポーン\nwait (0.7) seconds\n\nwhen I start as a clone\nset [ghost v] effect to (0)\ngo to x: (x position) y: (y position)\nset size to (40) %\nrepeat (20)\n    change size by (-2)\n    change [ghost v] effect by (5)\nend\ndelete this clone\n\nwhen flag clicked\nwait (0.1) seconds\nwait until <not <(プログラム管理) = [オープニング]>>\nforever\n    wait (0) seconds\n    create clone of (_myself_ v)\nend\n\n@地形\n\nwhen flag clicked\nhide\nwait (0.1) seconds\nwait until <not <(プログラム管理) = [オープニング]>>\nshow\nforever\n    go to x: (0) y: (0)\n    switch costume to (プログラム管理)\nend\n\n@触ってはいけないもの\n\nwhen flag clicked\nhide\nwait (0.1) seconds\ngo to x: (0) y: (0)\nwait until <not <(プログラム管理) = [オープニング]>>\nshow\nforever\n    switch costume to (プログラム管理)\nend\n\ngo to [front v] layer\n\n@エフェクト\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\n\nwhen I receive [next v]\nset [brightness v] effect to (20)\nshow\nset x to (270)\nset [next 速さ v] to [-32]\nrepeat (16)\n    change x by (NEXT 速さ)\n    change [next 速さ v] by (2)\n    go to [front v] layer\nend\nchange [プログラム管理 v] by (1)\nwait (0.5) seconds\nrepeat (20)\n    change [next 速さ v] by (-2)\n    change x by (NEXT 速さ)\nend\nhide\n\nchange [プログラム管理 v] by (-1)\n\n@木\n\nwhen flag clicked\nhide\npoint in direction (90)\nwait (0.1) seconds\nwait until <not <(プログラム管理) = [オープニング]>>\ngo to x: (0) y: (0)\nshow\nforever\n    switch costume to (プログラム管理)\nend\n\n@飾り\n\nwhen I start as a clone\nif <(costume [number v]) = [4]> then\n    set y to (180)\n    set size to (pick random (30) to (50)) %\n    set x to (pick random (-240) to (240))\n    set [ghost v] effect to (pick random (10) to (40))\n    show\n    glide (pick random (0.3) to (0.8)) secs to x: (x position) y: (-180)\n    delete this clone\nelse\n    set y to (-180)\n    set size to (pick random (60) to (100)) %\n    set x to (pick random (-240) to (240))\n    set [ghost v] effect to (pick random (30) to (70))\n    show\n    glide (pick random (2) to (4)) secs to x: (pick random (-238) to (238)) y: (180)\nend\ndelete this clone\n\nwhen flag clicked\nwait (0.1) seconds\nwait until <not <(プログラム管理) = [オープニング]>>\ngo to x: (pick random (-240) to (240)) y: (-180)\nswitch costume to (pick random (1) to (3))\nhide\ngo to [back v] layer\nforever\n    if <(プログラム管理) < [3]> then\n        からふる\n    else\n        if <[15] = (プログラム管理)> then\n            からふる\n        else\n            if <<[15] < (プログラム管理)> and <(プログラム管理) < [32]>> then\n                みずのしたたり\n            else\n                if <(プログラム管理) < [33]> then\n                    からふる\n                else\n                    からふる\n                end\n            end\n        end\n    end\nend\n\ndefine からふる\nturn right (pick random (20) to (340)) degrees\nchange [color v] effect by (pick random (0) to (10))\nnext costume\nif <(costume [number v]) = [4]> then\n    next costume\nend\nwait (pick random (0.05) to (0.15)) seconds\ncreate clone of (_myself_ v)\n\ndefine みずのしたたり\npoint in direction (90)\nset [color v] effect to (0)\nswitch costume to (4 v)\nwait (pick random (0.2) to (0.8)) seconds\ncreate clone of (_myself_ v)\n\n