#3　NATURE platformer

Instructions: 最高自信作！\n\n日本語の説明はプロジェクト内\n【English】\nhow to play\nOperation method: w.a.b key or arrow key or tap\nImportant: If you touch a thorn, from the beginning of the stage\nBe careful not to float too much on the sea stage ❗️

@Stage\n\nwhen flag clicked\nswitch backdrop to (サムネ v)\nbroadcast (整列 v)\n\nwhen I receive [次のステージ2 v]\nstop all sounds\nswitch backdrop to (背景2 v)\nplay sound [Popsicle v] until done\n\nwhen I receive [プレイ v]\nstop all sounds\nswitch backdrop to (コスチューム2 v)\nplay sound [Popsicle v] until done\n\nwhen I receive [ステージ選択 v]\nswitch backdrop to (背景3 v)\n\nwhen I receive [整列 v]\nswitch backdrop to (サムネ v)\n\nwhen I receive [次のステージ v]\nstop all sounds\nplay sound [Popsicle v] until done\n\n@サムネ\n\nwhen flag clicked\nswitch costume to (サムネ v)\ngo to x: (0) y: (0)\nhide\nforever\n    reset timer\nend\n\n@プレイ\n\nwhen this sprite clicked\nstart sound [決定、ボタン押下47 v]\nrepeat (10)\n    change size by (-10)\nend\nbroadcast (ステージ選択 v)\nhide\n\nwhen I receive [整列 v]\nswitch costume to (コスチューム1 v)\nset size to (100) %\ngo to x: (155) y: (37)\nshow\n\nwhen I receive [遊び方 v]\nhide\n\nwhen I receive [クレジット v]\nhide\n\nwhen I receive [プレイ v]\nhide\n\nwhen I receive [次のステージ v]\nhide\n\n@遊び方\n\nwhen this sprite clicked\nif <(costume [number v]) = [1]> then\n    start sound [決定、ボタン押下47 v]\n    repeat (10)\n        change size by (-10)\n    end\n    broadcast (遊び方 v)\n    hide\nend\n\nwhen I receive [整列 v]\nswitch costume to (コスチューム2 v)\nset size to (100) %\ngo to x: (154) y: (-37)\nshow\n\nwhen this sprite clicked\nif <(costume [number v]) = [2]> then\n    broadcast (整列 v)\nend\n\nwhen I receive [ステージ選択 v]\nhide\n\nwhen I receive [クレジット v]\nhide\n\nwhen I receive [次のステージ v]\nhide\n\nwhen I receive [プレイ v]\nhide\n\nwhen I receive [遊び方 v]\ngo to x: (0) y: (0)\nset size to (100) %\nswitch costume to (コスチューム1 v)\nshow\n\n@ステージ選択\n\nwhen this sprite clicked\nif <(costume [number v]) = [1]> then\n    start sound [決定、ボタン押下47 v]\n    repeat (10)\n        change size by (-10)\n    end\n    broadcast (プレイ v)\n    hide\nend\n\nwhen this sprite clicked\nif <(costume [number v]) = [2]> then\n    start sound [決定、ボタン押下47 v]\n    repeat (10)\n        change size by (-10)\n    end\n    broadcast (次のステージ v)\n    hide\nend\n\nwhen I receive [ステージ選択 v]\nswitch costume to (コスチューム2 v)\nset size to (100) %\ngo to x: (-60) y: (-100)\nshow\n\nwhen I receive [右 v]\nnext costume\n\nwhen I receive [次のステージ v]\nhide\n\nwhen I receive [プレイ v]\nhide\n\nwhen I receive [遊び方 v]\nhide\n\nwhen I receive [クレジット v]\nhide\n\nwhen I receive [整列 v]\nhide\n\nwhen this sprite clicked\nif <(costume [number v]) = [3]> then\n    start sound [決定、ボタン押下47 v]\n    repeat (10)\n        change size by (-10)\n    end\n    broadcast (次のステージ2 v)\n    hide\nend\n\nwhen I receive [整列 v]\nhide\n\n@ステージ選択2\n\nwhen flag clicked\nhide\n\nwhen I receive [右 v]\nnext costume\n\nwhen I receive [ステージ選択 v]\nswitch costume to (コスチューム1 v)\ngo to x: (0) y: (50)\nset size to (100) %\nshow\n\nwhen I receive [プレイ v]\nhide\n\nwhen I receive [次のステージ v]\nhide\n\nwhen I receive [次のステージ2 v]\nhide\n\n@クレジット・右\n\nwhen this sprite clicked\nif <(costume [number v]) = [1]> then\n    start sound [決定、ボタン押下47 v]\n    repeat (10)\n        change size by (-10)\n    end\n    broadcast (クレジット v)\n    hide\nend\n\nwhen I receive [整列 v]\nswitch costume to (コスチューム2 v)\nset size to (100) %\ngo to x: (155) y: (-114)\nshow\n\nwhen I receive [遊び方 v]\nhide\n\nwhen I receive [ステージ選択 v]\nhide\n\nwhen this sprite clicked\nif <(costume [number v]) = [2]> then\n    broadcast (整列 v)\nend\n\nwhen I receive [クレジット v]\ngo to x: (0) y: (0)\nset size to (100) %\nswitch costume to (コスチューム1 v)\nshow\n\nwhen I receive [ステージ選択 v]\ngo to x: (120) y: (-100)\nset size to (100) %\nswitch costume to (コスチューム3 v)\nshow\n\nwhen this sprite clicked\nif <(costume [number v]) = [3]> then\n    broadcast (右 v)\nend\n\nwhen I receive [次のステージ v]\nhide\n\nwhen I receive [プレイ v]\nhide\n\nwhen I receive [次のステージ2 v]\nhide\n\n@Player\n\nwhen I receive [次のステージ v]\n初期位置\nhide\nwait (2) seconds\nbroadcast (プログラム v)\n\nwhen flag clicked\nhide\n\nwhen I receive [プレイ v]\npoint in direction (90)\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]\nset [復活x v] to [-200]\nset [復活y v] to [-20]\n\nwhen I receive [次のステージ2 v]\ngo to [back v] layer\n\nwhen I receive [次のステージ v]\ngo to [front v] layer\n\nwhen I receive [プレイ v]\ngo [backward v] (1) layers\n\nwhen I receive [次のステージ2 v]\n初期位置\nhide\nwait (2) seconds\nbroadcast (プログラム v)\n\nwhen I receive [整列 v]\nhide\n\ndefine 動作\nshow\nchange [yの力 v] by (-1)\nif <touching (海 v)?> then\n    change [yの力 v] by ((yの力) * (-0.3))\nend\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n    switch costume to (コスチューム1 v)\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    switch costume to (コスチューム2 v)\n    change [xの力 v] by (-1)\nend\nset [xの力 v] to ((xの力) * (0.88))\nchange x by (xの力)\nrepeat (6)\n    if <<touching (ステージ4 v)?> or <<touching (ステージ2 v)?> or <touching (ステージ3 v)?>>> then\n        change y by (1)\n    end\nend\nif <<touching (ステージ4 v)?> or <<touching (ステージ2 v)?> or <touching (ステージ3 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 (ステージ4 v)?> or <<touching (ステージ2 v)?> or <touching (ステージ3 v)?>>> then\n    位置補正y (() - ((yの力) / ([abs v] of (yの力) ))) ([ceiling v] of ([abs v] of (yの力) ) )\nend\nchange y by (-1.1)\nif <<<touching (ステージ4 v)?> or <<touching (ステージ2 v)?> or <touching (ステージ3 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\nif <<<touching (海 v)?> or <touching (ステージ2 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 [3]\nend\nchange y by (1.1)\nif <<(Y) < [-800]> or <<touching (障害物 v)?> or <touching (障害物2 v)?>>> then\n    start sound [Roblox Death Sound - OOF Sound Effect v]\n    初期位置\nend\nif <<touching (海 v)?> and <<(Y) > [250]> or <[-250] > (Y)>>> then\n    初期位置\nend\n処理\nbroadcast (プログラム2 v)\ngo to [front v] layer\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 (ステージ4 v)?> or <<touching (ステージ2 v)?> or <touching (ステージ3 v)?>>>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change x by (向き)\nend\nchange x by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <<touching (ステージ v)?> or <<touching (ステージ2 v)?> or <touching (ステージ3 v)?>>>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(yの力) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <<touching (ステージ4 v)?> or <<touching (ステージ3 v)?> or <touching (ステージ2 v)?>>>> or <(i) = ((回数) + (1))>>\n    change [i v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * (((回数) + (1)) * <<(i) = ((回数) + (1))> and <<touching (ステージ v)?> or <<touching (ステージ2 v)?> or <touching (ステージ3 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 (復活x)\nset [camera _y v] to (復活y)\nset [x v] to (復活x)\nset [y v] to (復活y)\n\n@チェックポイント\n\nwhen I receive [プログラム2 v]\n移動 ((1800) - (Camera_x)) ((700) - (Camera _y))\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nswitch costume to (a v)\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\n    if <<touching (player v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        broadcast (次のステージ v)\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [プレイ v]\nset [チェックポイント到達 v] to [0]\nswitch costume to (a v)\nhide\n\nwhen I receive [次のステージ2 v]\nhide\n\nwhen I receive [整列 v]\nhide\n\n@チェックポイント2\n\nwhen I receive [プログラム2 v]\n移動 ((3650) - (Camera_x)) ((0) - (Camera _y))\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nswitch costume to (a v)\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\n    if <<touching (player v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        broadcast (次のステージ2 v)\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [次のステージ v]\nset [チェックポイント到達 v] to [0]\nswitch costume to (a v)\nhide\n\nwhen I receive [整列 v]\nhide\n\n@障害物\n\nwhen I receive [プレイ v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [300] [4]\nステージ配置 [1300] [400] [5]\nステージ配置 [1440] [500] [6]\nswitch costume to (none v)\n\nwhen I receive [次のステージ v]\nhide\n\nwhen I receive [次のステージ2 v]\nhide\n\nwhen I receive [整列 v]\nhide\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)\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 <not <(costume [number v]) = [1]>> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [次のステージ v]\nhide\ndelete this clone\n\nwhen I receive [整列 v]\nhide\n\n@ステージ2\n\nwhen I receive [次のステージ v]\nhide\ngo to [front v] layer\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [0] [4]\nステージ配置 [1920] [0] [5]\nステージ配置 [2500] [0] [6]\nステージ配置 [2850] [0] [7]\nステージ配置 [3600] [0] [8]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen flag clicked\nhide\n\nwhen I receive [次のステージ2 v]\nhide\n\nwhen I receive [次のステージ2 v]\nhide\ndelete this clone\n\nwhen I receive [整列 v]\nhide\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)\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)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\n@障害物2\n\nwhen I receive [次のステージ v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [0] [4]\nステージ配置 [1920] [0] [5]\nステージ配置 [2500] [0] [6]\nステージ配置 [2850] [0] [7]\nステージ配置 [3600] [0] [8]\nswitch costume to (none v)\n\nwhen I receive [プレイ v]\nhide\n\nwhen I receive [整列 v]\nhide\n\nwhen I receive [次のステージ2 v]\nhide\n\nwhen I receive [次のステージ2 v]\nhide\ndelete this clone\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)\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 <not <(costume [number v]) = [1]>> then\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [整列 v]\nhide\n\n@太陽\n\nwhen flag clicked\nhide\n\nwhen I receive [プレイ v]\nshow\ngo to [back v] layer\ngo to x: (205) y: (137)\nset size to (100) %\nset [太陽 v] to [100]\nforever\n    change size by ([cos v] of (太陽) )\n    change [太陽 v] by (7)\nend\n\nwhen I receive [次のステージ2 v]\nshow\ngo to [back v] layer\ngo to x: (205) y: (137)\nset size to (100) %\nset [太陽 v] to [100]\nforever\n    change size by ([cos v] of (太陽) )\n    change [太陽 v] by (7)\nend\n\nwhen I receive [次のステージ v]\nhide\n\nwhen I receive [整列 v]\nhide\n\n@ステージ3\n\nwhen I receive [次のステージ2 v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [-200] [4]\nステージ配置 [1920] [-300] [5]\nステージ配置 [2500] [-300] [6]\nステージ配置 [2850] [-400] [7]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen flag clicked\nhide\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)\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)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [整列 v]\nhide\n\n@雲\n\nwhen I receive [次のステージ2 v]\ngo to [front v] layer\nset [ghost v] effect to (40)\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [-200] [4]\nステージ配置 [1920] [-300] [5]\nステージ配置 [2500] [-300] [6]\nステージ配置 [2850] [-400] [7]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen flag clicked\nhide\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)\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)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [整列 v]\nhide\n\n@スプライト4\n\nwhen flag clicked\nhide\n\nwhen I receive [ステージ選択 v]\ngo to x: (0) y: (0)\ngo to [front v] layer\nset [ghost v] effect to (0)\nshow\nrepeat (10)\n    change [ghost v] effect by (10)\n    wait (0.01) seconds\nend\n\nwhen I receive [プレイ v]\ngo to x: (0) y: (0)\ngo to [front v] layer\nset [ghost v] effect to (0)\nshow\nrepeat (10)\n    change [ghost v] effect by (10)\n    wait (0.01) seconds\nend\n\nwhen I receive [次のステージ2 v]\ngo to x: (0) y: (0)\ngo to [front v] layer\nset [ghost v] effect to (0)\nshow\nrepeat (10)\n    change [ghost v] effect by (10)\n    wait (0.01) seconds\nend\n\nwhen I receive [次のステージ v]\ngo to x: (0) y: (0)\ngo to [front v] layer\nset [ghost v] effect to (0)\nshow\nrepeat (10)\n    change [ghost v] effect by (10)\n    wait (0.01) seconds\nend\n\nwhen I receive [整列 v]\nhide\n\n@海\n\nwhen I receive [次のステージ v]\ngo to [back v] layer\ngo to x: (0) y: (0)\nshow\n\nwhen flag clicked\nhide\n\nwhen I receive [次のステージ2 v]\nhide\n\nwhen I receive [整列 v]\nhide\n\n@魚\n\nwhen I receive [次のステージ v]\nhide\nrepeat until <(backdrop [number v]) = [4]>\n    repeat (pick random (1) to (3))\n        create clone of (_myself_ v)\n    end\n    wait (pick random (4) to (8)) seconds\nend\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\ngo [backward v] (5) layers\nshow\nswitch costume to (pick random (1) to (3))\nset size to (pick random (80) to (100)) %\ngo to x: (600) y: (pick random (150) to (-150))\nset [ghost v] effect to (pick random (30) to (50))\nいけー！\ndelete this clone\n\ndefine いけー！\nrepeat until <[-300] > (x position)>\n    glide (7) secs to x: (-300) y: (pick random (150) to (-150))\n    if <[-230] > (x position)> then\n        hide\n    end\nend\n\nwhen backdrop switches to [背景2 v]\nhide\ndelete this clone\n\n@Decoration3\n\ndefine 移動 (x) (y)\ngo [backward v] (1) layers\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 [プレイ v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [300] [4]\nステージ配置 [1300] [400] [5]\nステージ配置 [1440] [500] [6]\nswitch costume to (コスチューム5 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)\n\nwhen I receive [次のステージ v]\nhide\ndelete this clone\n\nwhen I start as a clone\nshow\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I receive [整列 v]\nhide\n\n@Decoration4\n\ndefine 移動 (x) (y)\ngo to [back v] layer\ngo [forward v] (1) layers\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 [プレイ v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [300] [4]\nステージ配置 [1300] [400] [5]\nステージ配置 [1440] [500] [6]\nswitch costume to (コスチューム5 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)\n\nwhen I receive [次のステージ v]\nhide\ndelete this clone\n\nwhen I start as a clone\nshow\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I receive [整列 v]\nhide\n\n@ステージ4\n\nwhen I receive [次のステージ v]\nhide\ndelete this clone\n\nwhen flag clicked\nhide\n\nwhen I receive [プレイ v]\ngo to [front v] layer\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [300] [4]\nステージ配置 [1300] [400] [5]\nステージ配置 [1440] [500] [6]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen I receive [次のステージ2 v]\nhide\n\nwhen I receive [整列 v]\nhide\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)\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)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I start as a clone\nshow\n\n