Glacier || - a Scrolling platformer

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

@Stage\n\n@p1\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 [camera_x v] to [-200]\nset [camera _y v] to [-20]\nset [x v] to [-200]\nset [y v] to [-20]\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 (.5)\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 (-0.5)\nend\nset [xの力 v] to ((xの力) * (0.95))\nchange x by (xの力)\nrepeat (6)\n    if <touching (s v)?> then\n        change y by (1)\n    end\nend\nif <touching (s 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 ((5) - (<(xの力) > [0]> * (10)))\n    else\n        set [xの力 v] to [0]\n    end\nend\nchange y by (yの力)\nif <touching (s v)?> then\n    位置補正y (() - ((yの力) / ([abs v] of (yの力) ))) ([ceiling v] of ([abs v] of (yの力) ) )\nend\nchange y by (-1.1)\nif <<touching (s 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 (s2 v)?>> then\n    初期位置\nend\n処理\nbroadcast (プログラム2 v)\n\nwhen I receive [プログラム v]\n動作\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (Camera_x)))\nchange [y v] by ((y position) - (((Y) - (Camera _y)) - (20)))\nchange [camera_x v] by ([floor v] of (((X) - (Camera_x)) * (0.1)) )\nchange [camera _y v] by ([floor v] of (((Y) - (Camera _y)) * (0.2)) )\nset x to ((X) - (Camera_x))\nset y to (((Y) - (Camera _y)) - (20))\n\ndefine 位置補正x (向き) (回数)\nif <(xの力) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (s v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (s v)?>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(yの力) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <touching (s v)?>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <touching (s v)?>>)))\nset [yの力 v] to [0]\n\ndefine 初期位置\ngo to x: (0) y: (-20)\nset [xの力 v] to [0]\nset [yの力 v] to [0]\nset [camera_x v] to [0]\nset [camera _y v] to [0]\nset [x v] to [0]\nset [y v] to [0]\n\n@p2\n\nwhen flag clicked\nset [cx v] to [0]\nset [cy v] to [0]\nshow\n\nwhen I receive [プログラム2 v]\np\n\ndefine p\ngo to [front v] layer\nchange [cx v] by (((xの力) - (Cx)) / (5))\nchange [cy v] by (((yの力) - (Cy)) / (5))\nset x to (((X) - (Camera_x)) + ((Cx) * (.4)))\nset y to ((((Y) - (Camera _y)) - (20)) + ((Cy) * (.3)))\n\n@s\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) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\ndefine 準備\nrepeat (10)\n    ステージ配置 ((sx) * (480)) [0] ((sx) + (1))\nend\n\n@l\n\nwhen flag clicked\nset [cx v] to [0]\nset [cy v] to [0]\nshow\n\nwhen I receive [プログラム2 v]\np\n\ndefine p\ngo to [back v] layer\nchange [cx v] by (((xの力) - (Cx)) / (5))\nchange [cy v] by (((yの力) - (Cy)) / (5))\nchange [cm v] by (7)\nset size to ((50) + ([abs v] of (([sin v] of (Cm) ) * (10)) )) %\nset x to ((X) - (Camera_x))\nset y to (((Y) - (Camera _y)) - (20))\n\n@m\n\nwhen flag clicked\nset [ghost v] effect to (100)\nshow\nforever\n    go to [front v] layer\n    reset timer\nend\n\nwhen [timer v] > (0.1)\nforever\n    go to x: (pick random (-1) to (0)) y: (pick random (-1) to (0))\n    go to [front v] layer\n    reset timer\nend\n\n@pa\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 (22)) %\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 flag clicked\nforever\n    repeat (pick random (1) to (5))\n        create clone of (_myself_ v)\n        wait (.5) seconds\n    end\n    wait (pick random (1) to (3.3)) seconds\nend\n\n@s2\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) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\ndefine 準備\nrepeat (10)\n    ステージ配置 ((sx) * (480)) [0] ((sx) + (1))\nend\n\n