Mysterious forest || - a Scrolling platformer

Instructions: 　English\nJump with the up key\nMove with the left and right keys\n　日本語\n上キーでジャンプ\n左右のキーで移動

@Stage\n\nwhen flag clicked\nswitch backdrop to (g v)\nforever\n    if <(X) < [1200]> then\n        switch backdrop to (g v)\n        wait until <[1200] < (X)>\n        change [l]\n    else\n        if <(X) < [2640]> then\n            switch backdrop to (l v)\n            wait until <<(X) < [1200]> or <[2640] < (X)>>\n            if <(X) < [1200]> then\n                change [g]\n            else\n                change [b]\n            end\n        else\n            if <(X) < [4080]> then\n                switch backdrop to (b v)\n                wait until <<(X) < [2640]> or <[4080] < (X)>>\n                if <(X) < [2640]> then\n                    change [l]\n                else\n                    change [b2]\n                end\n            else\n                if <(X) < [5520]> then\n                    switch backdrop to (b2 v)\n                    wait until <<(X) < [4080]> or <[5520] < (X)>>\n                    if <(X) < [4080]> then\n                        change [b]\n                    else\n                        change [h]\n                    end\n                else\n                    if <(X) < [6960]> then\n                        switch backdrop to (h v)\n                        wait until <<(X) < [5520]> or <[6960] < (X)>>\n                        if <(X) < [5520]> then\n                            change [b2]\n                        else\n                            change [h]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine change (#)\nrepeat (5)\n    change [brightness v] effect by (20)\nend\nswitch backdrop to (#)\nrepeat (5)\n    change [brightness v] effect by (-20)\nend\n\nclear graphic effects\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\nswitch backdrop to (背景1 v)\n\n@Stage\n\nwhen flag clicked\nset [sx v] to [0]\nhide\n準備\nswitch costume to (none v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\nchange [sx v] by (1)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\n    hide\nelse\n    移動 ((My_x) - (Cx)) ((My_y) - (Cy))\nend\n\nwhen I start as a clone\nshow\n\ndefine 準備\nrepeat (15)\n    ステージ配置 ((sx) * (480)) [0] ((sx) + (1))\nend\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\ndelete this clone\n\n@Obstacle\n\nwhen flag clicked\nset [sx v] to [0]\nhide\n準備\nswitch costume to (none v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\nchange [sx v] by (1)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    hide\nelse\n    移動 ((My_x) - (Cx)) ((My_y) - (Cy))\nend\n\nwhen I start as a clone\nshow\n\ndefine 準備\nrepeat (15)\n    ステージ配置 ((sx) * (480)) [0] ((sx) + (1))\nend\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\ndelete this clone\n\n@Background\n\nwhen flag clicked\nset [sx v] to [0]\nhide\n準備\nswitch costume to (none v)\nbroadcast (プログラム v)\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nswitch costume to (none v)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to ((ステージ番号) + (1))\nset [my_n v] to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\nchange [sx v] by (1)\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<([abs v] of (x) ) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (My_n)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    hide\nelse\n    移動 ((My_x) - (Cx)) ((My_y) - (Cy))\nend\n\nwhen I start as a clone\ngo to [back v] layer\nshow\n\ndefine 準備\nrepeat (15)\n    ステージ配置 ((sx) * (480)) [0] ((sx) + (1))\nend\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\ndelete this clone\n\n@Player\n\nwhen flag clicked\nshow\ngo to [front v] layer\ngo to x: (0) y: (-20)\nset [x_ v] to [0]\nset [y_ v] to [0]\nset [cx v] to [-200]\nset [cy v] to [120]\nset [x v] to [-200]\nset [y v] to [120]\nset [we v] to [1]\nset [s v] to [0]\npoint in direction (90)\nset size to (55) %\n\ndefine 動作\nchange [y_ v] by (-1)\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n    change [x_ v] by (1)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n    change [x_ v] by (-1)\nend\nset [x_ v] to ((x_) * (0.88))\nchange [s v] by ((((90) + (((x_) * (0.88)) + (((y_) * (-0.88)) * ((x_) / ([abs v] of (x_) ))))) - (S)) / (5))\npoint in direction (S)\nchange x by (x_)\nrepeat (6)\n    if <touching (stage v)?> then\n        change y by (1)\n    end\nend\nif <touching (stage v)?> then\n    change y by (-6)\n    位置補正x (() - ((x_) / ([abs v] of (x_) ))) ([ceiling v] of ([abs v] of (x_) ) )\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n        set [y_ v] to [12]\n        set [x_ v] to ((7) - (<(x_) > [0]> * (14)))\n    else\n        set [x_ v] to [0]\n    end\nend\nchange y by (y_)\nif <touching (stage v)?> then\n    位置補正y (() - ((y_) / ([abs v] of (y_) ))) ([ceiling v] of ([abs v] of (y_) ) )\nend\nchange y by (-1.1)\nif <<touching (stage v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>>> then\n    set [y_ v] to [15]\nend\nchange y by (1.1)\nif <<(Y) < [-400]> or <touching (obstacle v)?>> then\n    初期位置\nend\n処理\nif <(we) = [1]> then\n    broadcast (プログラム2 v)\nend\n\nwhen I receive [プログラム v]\n動作\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (Cx)))\nchange [y v] by ((y position) - (((Y) - (Cy)) - (20)))\nchange [cx v] by ([floor v] of (((X) - (Cx)) * (0.1)) )\nchange [cy v] by ([floor v] of (((Y) - (Cy)) * (0.2)) )\nset x to ((X) - (Cx))\nset y to (((Y) - (Cy)) - (20))\n\ndefine 位置補正x (向き) (回数)\nif <(x_) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (stage v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (stage v)?>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(y_) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (stage v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (stage v)?>>)))\nset [y_ v] to [0]\n\ndefine 初期位置\nset [x_ v] to [0]\nset [y_ v] to [0]\nset [cx v] to ((([floor v] of (((X) + (240)) / (1440)) ) * (1440)) + (-200))\nset [cy v] to [120]\nset [x v] to ((([floor v] of (((X) + (240)) / (1440)) ) * (1440)) + (-200))\nset [y v] to [120]\ngo to x: (0) y: (-20)\n\nwhen I receive [free intro #5 v]\nhide\n\n@Eye\n\nwhen I receive [プログラム2 v]\nchange [ex v] by (((x_) - (eX)) / (5))\nchange [ey v] by (((y_) - (eY)) / (5))\ngo to x: (((X) - (Cx)) + ((eX) * (.5))) y: ((((Y) - (Cy)) - (20)) + ((eY) * (.3)))\n\nwhen flag clicked\nshow\nrepeat (5)\n    go to [front v] layer\n    wait (0) seconds\nend\n\nwhen I receive [free intro #5 v]\nhide\n\n@[4]\n\nwhen I start as a clone\nswitch costume to ( v)\ngo to [front v] layer\nwait (1) seconds\nwait until <(cl) = [1]>\nset [sk v] to ((size) + (200))\nrepeat (33)\n    switch costume to (2 v)\n    change size by (((Sk) - (size)) / (8))\n    switch costume to ( v)\nend\n\nwhen flag clicked\nswitch costume to (2 v)\nset size to (500) %\nshow\nrepeat (4)\n    create clone of (_myself_ v)\n    change [ghost v] effect by (25)\n    change size by (-80)\nend\n\nwhen I receive [プログラム2 v]\np\n\ndefine p\nset x to (((X) - (Cx)) + ((eX) * ((size) / (-150))))\nset y to ((((Y) - (Cy)) - (20)) + ((eY) * ((size) / (-100))))\nif <(backdrop [number v]) = [4]> then\n    show\nelse\n    hide\nend\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\ndelete this clone\n\n@[6]\n\nwhen I start as a clone\ngo to x: (pick random (-240) to (240)) y: (180)\npoint in direction (pick random (85) to (95))\nset size to (pick random (44) to (77)) %\nset [ghost v] effect to (100)\nswitch costume to (↓ v)\nshow\nrepeat until <touching (stage v)?>\n    change [ghost v] effect by (-4)\n    change x by (pick random (3) to (5))\n    change y by ((size) / (-3))\nend\nrepeat (5)\n    change y by (.2)\n    next costume\nend\ndelete this clone\n\nwhen flag clicked\nforever\n    if <(backdrop [number v]) = [5]> then\n        create clone of (_myself_ v)\n        create clone of (_myself_ v)\n        wait (pick random (0) to (.2)) seconds\n    end\nend\n\nwhen I start as a clone\nset [cax v] to (Camera_x)\nset [cay v] to (Camera _y)\nrepeat until <(y position) < [-175]>\n    change x by ((caX) - (Camera_x))\n    change y by ((caY) - (Camera _y))\n    wait (0) seconds\n    set [cax v] to (Camera_x)\n    set [cay v] to (Camera _y)\n    go to [front v] layer\nend\ndelete this clone\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\ndelete this clone\n\n@ [1]\n\nwhen flag clicked\nset [ghost v] effect to (20)\nshow\n\nwhen I receive [プログラム2 v]\np\n\ndefine p\ngo to [back v] layer\nset size to ((([sin v] of (eM) ) * (3)) + (100)) %\nset x to (((X) - (Camera_x)) + ((eX) * (-1)))\nset y to ((((Y) - (Camera _y)) - (20)) + ((eY) * (-2)))\nif <(backdrop [number v]) = [1]> then\n    show\nelse\n    hide\nend\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\nhide\n\n@[1]\n\nwhen flag clicked\nset [em v] to [0]\nset [ghost v] effect to (40)\nshow\n\nwhen I receive [プログラム2 v]\np\n\ndefine p\ngo to [back v] layer\nset size to ((([sin v] of (eM) ) * (6)) + (106)) %\nchange [em v] by (20)\nset x to (((X) - (Cx)) + ((eX) * (-1)))\nset y to ((((Y) - (Cy)) - (20)) + ((eY) * (-2)))\nif <(backdrop [number v]) = [1]> then\n    show\nelse\n    hide\nend\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\nhide\n\n@s\n\nwhen flag clicked\nset [ghost v] effect to (100)\nshow\nforever\n    go to [front v] layer\nend\n\n@[2]\n\nwhen I start as a clone\ngo to (random position v)\npoint in direction (pick random (1) to (360))\nset size to (pick random (11) to (55)) %\nset [ghost v] effect to (100)\ngo to [back v] layer\nshow\nrepeat (10)\n    change [ghost v] effect by (-10)\n    move (pick random (1) to (0)) steps\nend\nrepeat (pick random (1) to (33))\n    move (pick random (1) to (0)) steps\nend\nrepeat (10)\n    change [ghost v] effect by (10)\n    move (pick random (1) to (0)) steps\nend\ndelete this clone\n\nwhen I start as a clone\nforever\n    switch costume to (backdrop [number v])\nend\n\nwhen flag clicked\nforever\n    repeat (pick random (1) to (3))\n        create clone of (_myself_ v)\n        wait (.2) seconds\n    end\n    wait (pick random (.5) to (2.2)) seconds\nend\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\ndelete this clone\n\n@p\n\nwhen flag clicked\nset [s v] to [0]\ngo to x: (-180) y: (-130)\nset [ghost v] effect to (80)\ngo to [front v] layer\nset size to (80) %\nshow\nforever\n    change [s v] by (21)\n    if <(distance to [mouse-pointer v]) < [50]> then\n        point in direction ((90) + (([sin v] of (s) ) * (5)))\n        change size by (((90) - (size)) / (5))\n    else\n        turn right (((90) - (direction)) / (5)) degrees\n        change size by (((80) - (size)) / (5))\n    end\nend\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\nhide\n\n@c\n\nwhen flag clicked\nhide\nforever\n    wait (pick random (8) to (10)) seconds\n    if <(a) = [0]> then\n        show\n        パターン (pick random (1) to (4))\n        hide\n    end\nend\n\ndefine パターン (　)\nif <(　) = [1]> then\n    clear graphic effects\n    set size to (100) %\n    go to x: (-300) y: (130)\n    point in direction (0)\n    repeat (50)\n        change x by (((-130) - (x position)) / (4))\n        turn right (((90) - (direction)) / (4)) degrees\n    end\n    repeat until <(x position) < [-280]>\n        change x by (((x position) - (-129)) / (4))\n        turn right (((direction) - (91)) / (4.8)) degrees\n    end\nend\nif <(　) = [2]> then\n    clear graphic effects\n    set size to (100) %\n    go to x: (130) y: (200)\n    point in direction (90)\n    repeat (50)\n        change y by (((130) - (y position)) / (4))\n    end\n    repeat until <[300] < (x position)>\n        change x by (((x position) - (129)) / (4))\n    end\nend\nif <(　) = [3]> then\n    clear graphic effects\n    set size to (0) %\n    go to x: (-300) y: (-300)\n    point in direction (90)\n    repeat (50)\n        change [bounce v] by ((((50) - (Bounce)) / (4)) + (((50) - (size)) / (4)))\n        change size by (Bounce)\n        change x by (((-130) - (x position)) / (4))\n        change y by (((-130) - (y position)) / (4))\n    end\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\nend\nif <(　) = [4]> then\n    clear graphic effects\n    set size to (100) %\n    go to x: (130) y: (-130)\n    point in direction (90)\n    set [ghost v] effect to (100)\n    set [bounce v] to [0.01]\n    repeat (50)\n        change [bounce v] by (0.08)\n        go to x: ((130) + ((Bounce) * (pick random (1) to (-1)))) y: ((-130) + ((Bounce) * (pick random (1) to (-1))))\n        point in direction ((90) + ((Bounce) * (pick random (2) to (-2))))\n        change [ghost v] effect by (-2.5)\n    end\n    repeat (10)\n        change [bounce v] by (0.08)\n        go to x: ((130) + ((Bounce) * (pick random (1) to (-1)))) y: ((-130) + ((Bounce) * (pick random (1) to (-1))))\n        point in direction ((90) + ((Bounce) * (pick random (2) to (-2))))\n        change [ghost v] effect by (10)\n    end\nend\n\nwhen I receive [free intro #5 v]\nstop [other scripts in sprite v]\nhide\n\n