Soccer Platformer


@Stage\n\nwhen I receive [message1 v]\nswitch backdrop to (お気に入り v)\nforever\n    play sound [Unlimited v] until done\nend\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\n\n@プレイヤー\n\nwhen I receive [message1 v]\nforever\n    wait until <touching (水 v)?>\n    play sound [水1 v] until done\n    wait until <not <touching (水 v)?>>\n    start sound [水2 v]\nend\n\nwhen I receive [初期化して！ v]\n初期位置\n\ndefine 動作\nif <not <touching (水 v)?>> then\n    change [yの力 v] by (-1)\nelse\n    change [yの力 v] by (-0.1)\nend\nif <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> then\n    if <(Camera_x) < [3440]> then\n        switch costume to (緑上 v)\n    else\n        switch costume to (水上 v)\n    end\nend\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>> then\n    if <(Camera_x) < [3440]> then\n        switch costume to (緑右 v)\n    else\n        switch costume to (水右 v)\n    end\n    point in direction (90)\n    if <not <touching (水 v)?>> then\n        change [xの力 v] by (1)\n    else\n        change [xの力 v] by (0.5)\n    end\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>> then\n    if <(Camera_x) < [3440]> then\n        switch costume to (緑右 v)\n    else\n        switch costume to (水右 v)\n    end\n    point in direction (-90)\n    if <not <touching (水 v)?>> then\n        change [xの力 v] by (-1)\n    else\n        change [xの力 v] by (-0.5)\n    end\nend\nif <not <<<<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<(mouse y) > [0]> and <mouse down?>>>> or <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<(mouse x) > [0]> and <mouse down?>>>>> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<[0] > (mouse x)> and <mouse down?>>>>>> then\n    if <(Camera_x) < [3440]> then\n        switch costume to (緑中 v)\n    else\n        switch costume to (水中 v)\n    end\nend\nif <touching (バネ v)?> then\n    broadcast (バネ v)\n    start sound [バネ v]\n    set [yの力 v] to [18]\nend\nif <touching (バネ2 v)?> then\n    broadcast (バネ２ v)\n    start sound [バネ v]\n    set [yの力 v] to [18]\nend\nset [xの力 v] to ((xの力) * (0.88))\nchange x by (xの力)\nrepeat (6)\n    if <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n        change y by (1)\n    end\nend\nif <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n    change y by (-6)\n    位置補正x (() - ((xの力) / ([abs v] of (xの力) ))) ([ceiling v] of ([abs v] of (xの力) ) )\n    if <not <touching (水 v)?>> then\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            start sound [壁キック v]\n        else\n            set [xの力 v] to [0]\n        end\n    end\nend\nchange y by (yの力)\nif <<touching (地面 v)?> or <touching (動く地面 v)?>> then\n    位置補正y (() - ((yの力) / ([abs v] of (yの力) ))) ([ceiling v] of ([abs v] of (yの力) ) )\nend\nchange y by (-1.1)\nif <not <touching (水 v)?>> then\n    if <<<touching (地面 v)?> or <touching (動く地面 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]\n        start sound [ジャンプ  v]\n    end\nelse\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 [3]\n    end\nend\nchange y by (1.1)\nif <<touching (針 v)?> or <<touching (回る針 v)?> or <touching (回る針 v)?>>> then\n    if <(許してやってもいいだろう...) = [0]> then\n        初期位置\n    end\n    if <(触れたかい？) = [1]> then\n        broadcast (ええと v)\n    end\nend\nif <(Y) < [-450]> then\n    set [触れたかい？ v] to [0]\n    set [許してやってもいいだろう... v] to [0]\n    初期位置\nend\nif <touching (ゴール v)?> then\n    set [ゴール v] to [1]\n    broadcast (ゴール v)\n    wait until <(ゴール) = [0]>\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 (地面 v)?> or <touching (動く地面 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 (動く地面 v)?>>>)))\n\ndefine 位置補正y (向き) (回数)\nif <(yの力) = [0]> then\n    stop [this script v]\nend\nset [i v] to [0]\nrepeat until <<not <<touching (地面 v)?> or <touching (動く地面 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 (動く地面 v)?>>>)))\nset [yの力 v] to [0]\n\ndefine 初期位置\nstart sound [やられる  v]\nset [プラットフォーマー v] to [0]\nset [！ v] to [1]\nchange [hp v] by (-1)\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 [0]\nset [y v] to [0]\nset [！ v] to [0]\nset [プラットフォーマー v] to [1]\nbroadcast (初期化 v)\n\nwhen I receive [message1 v]\ngo to [back v] layer\nset size to (130) %\nshow\nset rotation style [left-right 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 [-50]\nset [camera _y v] to [10]\nset [x v] to [-50]\nset [y v] to [10]\n\nwhen flag clicked\nset [復活x v] to [0]\nset [復活y v] to [0]\nset [許してやってもいいだろう... v] to [0]\nset [触れたかい？ v] to [0]\nhide\n\nstop [this script v]\n\nbroadcast (プログラム2 v)\n\nwhen I receive [ええと v]\nrepeat (3)\n    repeat (10)\n        change [ghost v] effect by (10)\n    end\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\nend\nrepeat (3)\n    repeat (10)\n        change [ghost v] effect by (5)\n    end\n    repeat (10)\n        change [ghost v] effect by (-5)\n    end\nend\nwait (5) seconds\nset [触れたかい？ v] to [0]\nset [許してやってもいいだろう... v] to [0]\n\nwhen I receive [ええと v]\nrepeat (2)\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    repeat (20)\n        change [ghost v] effect by (-5)\n    end\nend\nrepeat (2)\n    repeat (15)\n        change [ghost v] effect by (4)\n    end\n    repeat (15)\n        change [ghost v] effect by (-4)\n    end\nend\n\nwhen I receive [ええと v]\n\nwhen I receive [ええと v]\nstart sound [power-down  v]\nset [触れたかい？ v] to [0]\nrepeat (2)\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    repeat (20)\n        change [ghost v] effect by (-5)\n    end\nend\nrepeat (2)\n    repeat (20)\n        change [ghost v] effect by (2)\n    end\n    repeat (20)\n        change [ghost v] effect by (-2)\n    end\nend\nset [許してやってもいいだろう... v] to [0]\n\nwhen I receive [隠す v]\nset [復活x v] to [0]\nset [復活y v] to [0]\nset [許してやってもいいだろう... v] to [0]\nset [触れたかい？ v] to [0]\n\nwhen I receive [ゴール v]\nstop [other scripts in sprite v]\n\nset [camera_x v] to [5500]\n\nbroadcast (message1 v)\n\n@地面\n\nwhen I receive [goal v]\ndelete this clone\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))\n    broadcast (プログラム v)\nend\n\nwhen I start as a clone\nshow\ngo to [front v] layer\ngo [backward v] (1) layers\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 [message1 v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [100] [4]\nステージ配置 [1700] [400] [5]\nステージ配置 [2100] [0] [6]\nステージ配置 [2600] [0] [7]\nステージ配置 [3200] [0] [8]\nステージ配置 [3800] [0] [9]\nステージ配置 [4320] [0] [10]\nステージ配置 [4800] [0] [11]\nステージ配置 [5280] [0] [12]\nステージ配置 [5740] [0] [13]\nステージ配置 [6220] [0] [14]\nステージ配置 [6700] [0] [15]\nステージ配置 [7180] [0] [16]\nステージ配置 [7660] [0] [17]\nステージ配置 [8120] [0] [18]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen flag clicked\nset [復活 v] to [0]\n\n@背景\n\nwhen I receive [goal v]\ndelete this clone\n\nwhen I start as a clone\nshow\ngo to [front v] layer\ngo [backward v] (2) layers\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 receive [message1 v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [0] [4]\nステージ配置 [1920] [0] [5]\nステージ配置 [2400] [0] [6]\nステージ配置 [2880] [0] [7]\nステージ配置 [3360] [0] [8]\nステージ配置 [3840] [0] [9]\nステージ配置 [4320] [0] [10]\nステージ配置 [4800] [0] [11]\nステージ配置 [5280] [0] [12]\nステージ配置 [5740] [0] [13]\nステージ配置 [6220] [0] [14]\nステージ配置 [6700] [0] [15]\nステージ配置 [7180] [0] [16]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen flag clicked\nset [復活 v] to [0]\n\n@サムネ\n\nwhen flag clicked\nshow\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\nbroadcast (message1 v)\n\n@影\n\nwhen flag clicked\nhide\n\nwhen backdrop switches to [お気に入り v]\ngo to [back v] layer\nshow\nforever\n    go to (プレイヤー v)\n    point towards (プレイヤー v)\nend\n\nwhen I receive [goal v]\nhide\n\n@針\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 receive [message1 v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [100] [4]\nステージ配置 [1920] [50] [5]\nステージ配置 [2400] [0] [6]\nステージ配置 [3000] [0] [7]\nステージ配置 [3360] [0] [8]\nステージ配置 [3840] [0] [9]\nステージ配置 [4320] [0] [10]\nステージ配置 [4800] [0] [11]\nステージ配置 [5280] [0] [12]\nステージ配置 [5740] [0] [13]\nステージ配置 [6220] [0] [14]\nステージ配置 [6700] [0] [15]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen flag clicked\nset [復活 v] to [0]\n\nwhen I receive [goal v]\ndelete this clone\n\n@バネ\n\nwhen I start as a clone\nshow\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to (ステージ5 v)\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\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\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 [message1 v]\nhide\nステージ配置 [1920] [0] [1]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen flag clicked\nset [復活 v] to [0]\n\nwhen flag clicked\nhide\n\nwhen I receive [2 v]\n\nwhen I receive [バネ v]\nswitch costume to (コスチューム1 v)\nwait (0.05) seconds\nswitch costume to (コスチューム2 v)\nwait (0.05) seconds\nswitch costume to (コスチューム1 v)\nwait (0.05) seconds\nswitch costume to (ステージ5 v)\n\nwhen I receive [goal v]\ndelete this clone\n\n@チェックポイント\n\nwhen flag clicked\nset [チェックポイント到達 v] to [0]\nswitch costume to (a v)\nhide\n\nwhen I receive [プログラム2 v]\n移動 ((3370) - (Camera_x)) ((50) - (Camera _y))\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nswitch costume to ((チェックポイント到達) + (2))\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 (プレイヤー v)?> and <(チェックポイント到達) = [0]>> then\n        set [チェックポイント到達 v] to [1]\n        set [復活x v] to [3370]\n        set [復活y v] to [100]\n        start sound [チェック v]\n    end\nend\nswitch costume to ((チェックポイント到達) + (2))\n\nwhen I receive [goal v]\ndelete this clone\n\nwhen I receive [隠す v]\nset [チェックポイント到達 v] to [0]\nswitch costume to (a v)\n\n@水\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))\n    broadcast (プログラム v)\nend\n\nwhen I receive [goal v]\ndelete this clone\n\nwhen I start as a clone\nshow\ngo to [front v] layer\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 [message1 v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [1440] [100] [4]\nステージ配置 [1920] [0] [5]\nステージ配置 [2400] [0] [6]\nステージ配置 [2880] [0] [7]\nステージ配置 [3360] [0] [8]\nステージ配置 [3840] [0] [9]\nステージ配置 [4320] [0] [10]\nステージ配置 [4800] [0] [11]\nステージ配置 [5280] [0] [12]\nステージ配置 [5740] [0] [13]\nステージ配置 [6220] [0] [14]\nステージ配置 [6700] [0] [15]\nステージ配置 [7180] [0] [16]\nステージ配置 [7660] [0] [17]\nステージ配置 [8120] [0] [18]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen flag clicked\nset [復活 v] to [0]\n\n@動く地面\n\nwhen I start as a clone\nforever\n    repeat (100)\n        change [my_x v] by (4)\n    end\n    wait (2.5) seconds\n    repeat (100)\n        change [my_x v] by (-4)\n    end\n    wait (2.5) seconds\nend\n\nwhen I receive [goal v]\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 <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\nend\n\nwhen I receive [message1 v]\nhide\nステージ配置 [4700] [230] [1]\nswitch costume to (none v)\n\nwhen flag clicked\nhide\nset [復活 v] to [0]\n\n@すいか\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) )>> or <(触れたかい？) = [1]>> 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 receive [message1 v]\nhide\nステージ配置 [1200] [10] [1]\nステージ配置 [4250] [400] [1]\nswitch costume to (none v)\nbroadcast (プログラム v)\n\nwhen I start as a clone\nforever\n    if <touching (プレイヤー v)?> then\n        start sound [new power-up v]\n        set [触れたかい？ v] to [1]\n        set [許してやってもいいだろう... v] to [1]\n    else\n        point in direction ((90) + (([sin v] of ((timer) * (250)) ) * (10)))\n    end\nend\n\nwhen flag clicked\nhide\nset [触れたかい？ v] to [0]\nset [許してやってもいいだろう... v] to [0]\n\nwhen I start as a clone\nforever\n    repeat (20)\n        change [my_y v] by (1)\n        wait (0.01) seconds\n    end\n    repeat (20)\n        change [my_y v] by (-1)\n        wait (0.01) seconds\n    end\nend\n\nwhen I receive [goal v]\ndelete this clone\n\nwhen I receive [隠す v]\nset [触れたかい？ v] to [0]\nset [許してやってもいいだろう... v] to [0]\n\n@Watermelon\n\nwhen flag clicked\nhide\n\nwhen I receive [message1 v]\nforever\n    if <(触れたかい？) = [1]> then\n        go to [front v] layer\n        show\n        repeat until <not <(触れたかい？) = [1]>>\n            go to (プレイヤー v)\n            point towards (プレイヤー v)\n        end\n    else\n        hide\n    end\nend\n\nwhen flag clicked\nforever\n    if <(Camera_x) > [3440]> then\n        switch costume to (2 v)\n    else\n        switch costume to (watermelon v)\n    end\nend\n\nwhen I receive [goal v]\nhide\n\n@コインのカウント\n\nwhen I receive [goal v]\ndelete this clone\n\nwhen I start as a clone\ngo to [front v] layer\nset [a v] to (桁)\nchange x by ((桁) * (16))\nshow\ngo to [front v] layer\nforever\n    go to [front v] layer\n    switch costume to (letter (桁) of (コインの枚数))\n    if <<((20) - (aa)) = ((20) - (a))> or <((20) - (aa)) < ((20) - (a))>> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [message1 v]\nset [桁 v] to [1]\ngo to x: (-20) y: (150)\nhide\nrepeat (5)\n    create clone of (_myself_ v)\n    change [桁 v] by (1)\nend\n\nwhen I receive [message1 v]\nset [変数 v] to [0]\nforever\n    set [aa v] to (length of (コインの枚数))\nend\n\n@敵\n\ndefine 配置 (x) (y) (コスチューム) (動かす距離)\nset [+ v] to (動かす距離)\nset [1 v] to (x)\nset [2 v] to (y)\nset [3 v] to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nforever\n    set size to (200) %\n    switch costume to (コスチューム1 v)\n    go to x: (((1) + (+X)) - (Camera_x)) y: ((2) - (Camera _y))\n    if <<(x position) = (((1) + (+X)) - (Camera_x))> and <<(OK？) = [0]> and <(y position) = ((2) - (Camera _y))>>> then\n        show\n    else\n        hide\n    end\n    switch costume to ((1) + (3))\n    if <[0] < (monster X)> then\n        switch costume to ((3) + (2))\n    else\n        switch costume to ((3) + (3))\n    end\nend\n\nwhen I start as a clone\nset [+x v] to [0]\nset [monster x v] to [0]\nforever\n    repeat (+)\n        change [monster x v] by (1)\n        set [monster x v] to ((monster X) * (0.85))\n        change [+x v] by (monster X)\n    end\n    repeat (+)\n        change [monster x v] by (-1)\n        set [monster x v] to ((monster X) * (0.85))\n        change [+x v] by (monster X)\n    end\nend\n\nwhen I start as a clone\nset [ok？ v] to [0]\nforever\n    if <touching (プレイヤー v)?> then\n        if <(yの力) < [0]> then\n            start sound [つぶれる v]\n            set [yの力 v] to [10]\n            set [monster coin x v] to ((1) + (+X))\n            set [monster coin y v] to (2)\n            broadcast (monster coin v)\n            change [ok？ v] by (1)\n        else\n            if <(許してやってもいいだろう...) = [0]> then\n                broadcast (初期化して！ v)\n            end\n            if <(触れたかい？) = [1]> then\n                broadcast (ええと v)\n            end\n        end\n    end\nend\n\nwhen I receive [初期化 v]\nset [ok？ v] to [0]\n\nwhen I receive [message1 v]\nhide\n配置 [1570] [40] [1] [50]\n配置 [3020] [150] [1] [30]\n\nwhen I receive [goal v]\ndelete this clone\n\n@かざり\n\nwhen flag clicked\nhide\n\nwhen I receive [message1 v]\nshow\n\nwhen I receive [2 v]\nwait (10) seconds\nstop [other scripts in sprite v]\n\nwhen I receive [goal v]\nhide\n\nwhen I receive [プログラム2 v]\nif <[1.1] > (制限時間・カウント)> then\n    go to [front v] layer\nend\n\n@回る針\n\nwhen I start as a clone\nshow\nforever\n    turn left (3) degrees\nend\n\nwhen I receive [goal v]\ndelete this clone\n\nwhen I start as a clone\nshow\nforever\n    if <(costume [number v]) = [3]> then\n        repeat (30)\n            change [my_x v] by (5)\n        end\n        wait (0.1) seconds\n        repeat (30)\n            change [my_x v] by (-5)\n        end\n        wait (0.1) seconds\n    end\n    if <(costume [number v]) = [4]> then\n        repeat (75)\n            change [my_y v] by (2)\n        end\n        wait (0.1) seconds\n        repeat (75)\n            change [my_y v] by (-2)\n        end\n    end\nend\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 receive [message1 v]\nhide\nステージ配置 [1825] [30] [1]\nステージ配置 [3730] [2] [2]\nステージ配置 [5745] [-100] [3]\nswitch costume to (none v)\n\nwhen flag clicked\nset [復活 v] to [0]\n\n@バネ2\n\nwhen flag clicked\nhide\n\nwhen I receive [2 v]\n\nwhen I receive [バネ２ v]\nswitch costume to (コスチューム5 v)\nwait (0.05) seconds\nswitch costume to (コスチューム6 v)\nwait (0.05) seconds\nswitch costume to (コスチューム5 v)\nwait (0.05) seconds\nswitch costume to (コスチューム4 v)\n\nwhen I receive [goal v]\ndelete this clone\n\nwhen I start as a clone\nshow\n\ndefine ステージ配置 (x座標) (y座標) (ステージ番号)\nset [my_x v] to (x座標)\nset [my_y v] to (y座標)\nswitch costume to (コスチューム4 v)\ncreate clone of (_myself_ v)\n\ndefine 移動 (x) (y)\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\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム v)\nelse\n    移動 ((5740) - (Camera_x)) ((0) - (Camera _y))\nend\n\nwhen I receive [message1 v]\nhide\nステージ配置 [5740] [0] [1]\nbroadcast (プログラム v)\n\nwhen flag clicked\nset [復活 v] to [0]\n\n@ゴール\n\nwhen flag clicked\nhide\n\ndefine clone at (x) (y) (costume)\nswitch costume to (costume)\nset [my_x v] to (x)\nset [my_y v] to (y)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nforever\n    go to x: ((My_x) - (Camera_x)) y: ((My_y) - (Camera _y))\n    if <<([abs v] of ((My_y) - (Camera _y)) ) > ([abs v] of (y position) )> or <([abs v] of ((My_x) - (Camera_x)) ) > ([abs v] of (x position) )>> then\n        hide\n    else\n        show\n    end\n    if <touching (プレイヤー v)?> then\n        broadcast (GOAL v)\n        broadcast (ゴール v)\n    end\nend\n\nwhen I receive [goal v]\ndelete this clone\n\nwhen I start as a clone\nforever\n    switch costume to (コスチューム1 v)\n    repeat (12)\n        next costume\n        wait (0.1) seconds\n    end\n    set size to (200) %\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [message1 v]\nclone at [6894] [-50] [1]\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [goal v]\nshow\nforever\n    if <(language::translate) = [日本語]> then\n        if <<(スター１) = [1]> and <<(スター２) = [1]> and <(スター３) = [1]>>> then\n            switch costume to (日star v)\n        else\n            switch costume to (日nonstar v)\n        end\n    else\n        if <<(スター１) = [1]> and <<(スター２) = [1]> and <(スター３) = [1]>>> then\n            switch costume to (外star v)\n        else\n            switch costume to (外nonstar v)\n        end\n    end\nend\n\nwhen I receive [隠す v]\nhide\n\n@リプレイ\n\nwhen flag clicked\ngo to x: (100) y: (-110)\nhide\n\nwhen I receive [goal v]\nshow\nforever\n    if <touching (mouse-pointer v)?> then\n        repeat (12)\n            change [brightness v] effect by (2.5)\n            change size by (2.5)\n        end\n        wait until <not <touching (mouse-pointer v)?>>\n    else\n        set size to (80) %\n        set [brightness v] effect to (-30)\n    end\nend\n\nwhen this sprite clicked\nbroadcast (隠す v)\nbroadcast (message1 v)\n\nwhen I receive [隠す v]\nhide\n\n@スターコイン3\n\nwhen I receive [goal v]\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen I receive [ゴール v]\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen flag clicked\nset [スター１ v] to [0]\nset [スター２ v] to [0]\nset [スター３ v] to [0]\n\nwhen I start as a clone\nforever\n    go to x: ((5250) - (Camera_x)) y: ((300) - (Camera _y))\n    if <<(x position) = ((5250) - (Camera_x))> and <(y position) = ((300) - (Camera _y))>> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [message1 v]\nset [スター１ v] to [0]\nset [スター２ v] to [0]\nset [スター３ v] to [0]\nhide\n配置 [5250] [300] []\n\nwhen I start as a clone\nforever\n    set size to (150) %\n    set volume to (80) %\n    if <touching (プレイヤー v)?> then\n        set [スター３ v] to [1]\n        start sound [Coin v]\n        stop [other scripts in sprite v]\n        change [2 v] by (30)\n        clear graphic effects\n        switch costume to (+1 v)\n        go to [front v] layer\n        set size to (100) %\n        repeat (20)\n            移動 ((1) - ()) ((2) - ())\n            change size by ((((0) - (size)) + (-5)) / (10))\n            change [ghost v] effect by (5)\n        end\n        delete this clone\n    end\nend\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム1 v)\n\nwhen I start as a clone\nforever\n    if <not <(costume [number v]) = [10]>> then\n        switch costume to (1 v)\n        repeat until <(costume [number v]) = [9]>\n            wait (0.05) seconds\n            next costume\n        end\n    end\nend\n\n@すたーせんたー\n\nwhen flag clicked\ngo to x: (-185) y: (158)\nhide\n\nwhen I receive [message1 v]\nshow\nforever\n    go to [front v] layer\n    if <<<(スター１) = [0]> and <(スター２) = [0]>> and <(スター３) = [0]>> then\n        switch costume to (ある,ある,ある v)\n    end\n    if <<<(スター１) = [0]> and <(スター２) = [0]>> and <(スター３) = [1]>> then\n        switch costume to (ある,ある,ない v)\n    end\n    if <<<(スター１) = [0]> and <(スター２) = [1]>> and <(スター３) = [0]>> then\n        switch costume to (ある,ない,ある v)\n    end\n    if <<<(スター１) = [1]> and <(スター２) = [0]>> and <(スター３) = [0]>> then\n        switch costume to (ない,ある,ある v)\n    end\n    if <<<(スター１) = [0]> and <(スター２) = [1]>> and <(スター３) = [1]>> then\n        switch costume to (ある,ない,ない v)\n    end\n    if <<<(スター１) = [1]> and <(スター２) = [0]>> and <(スター３) = [1]>> then\n        switch costume to (ない,ある,ない v)\n    end\n    if <<<(スター１) = [1]> and <(スター２) = [1]>> and <(スター３) = [0]>> then\n        switch costume to (ない,ない,ある v)\n    end\n    if <<<(スター１) = [1]> and <(スター２) = [1]>> and <(スター３) = [1]>> then\n        switch costume to (ない,ない,ない v)\n    end\nend\n\n@隠し地面\n\nwhen flag clicked\nhide\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\nelse\n    移動 ((My_x) - (Camera_x)) ((My_y) - (Camera _y))\n    if <touching (プレイヤー v)?> then\n        hide\n    else\n        show\n    end\nend\n\nshow\ngo to [front v] layer\nforever\nend\n\nrepeat (10)\n\nwhen I receive [goal v]\ndelete this clone\n\nwhen I receive [プログラム2 v]\nif <[1] > (制限時間・カウント)> then\n    go to [front v] layer\nelse\nend\n\nwhen I start as a 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\nwhen I receive [message1 v]\nhide\nステージ配置 [3036] [-50] [1]\nステージ配置 [680] [3] [2]\nswitch costume to (none v)\n\nwhen flag clicked\nset [復活 v] to [0]\n\n@スターコイン2\n\nwhen I receive [goal v]\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen I receive [ゴール v]\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen flag clicked\nset [スター１ v] to [0]\nset [スター２ v] to [0]\nset [スター３ v] to [0]\n\nwhen I start as a clone\nforever\n    go to x: ((3150) - (Camera_x)) y: ((-60) - (Camera _y))\n    if <<(x position) = ((3150) - (Camera_x))> and <(y position) = ((-60) - (Camera _y))>> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [message1 v]\nset [スター１ v] to [0]\nset [スター２ v] to [0]\nset [スター３ v] to [0]\nhide\n配置 [3150] [-60] []\n\nwhen I start as a clone\nforever\n    set size to (150) %\n    set volume to (80) %\n    if <touching (プレイヤー v)?> then\n        set [スター２ v] to [1]\n        start sound [Coin v]\n        stop [other scripts in sprite v]\n        change [2 v] by (30)\n        clear graphic effects\n        switch costume to (+1 v)\n        go to [front v] layer\n        set size to (100) %\n        repeat (20)\n            移動 ((1) - ()) ((2) - ())\n            change size by ((((0) - (size)) + (-5)) / (10))\n            change [ghost v] effect by (5)\n        end\n        delete this clone\n    end\nend\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム1 v)\n\nwhen I start as a clone\nforever\n    if <not <(costume [number v]) = [10]>> then\n        switch costume to (1 v)\n        repeat until <(costume [number v]) = [9]>\n            wait (0.05) seconds\n            next costume\n        end\n    end\nend\n\n@スターコイン1\n\nwhen I receive [goal v]\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen I receive [ゴール v]\nstop [other scripts in sprite v]\ndelete this clone\n\nwhen flag clicked\nset [スター１ v] to [0]\nset [スター２ v] to [0]\nset [スター３ v] to [0]\n\nwhen I start as a clone\nforever\n    go to x: ((550) - (Camera_x)) y: ((-20) - (Camera _y))\n    if <<(x position) = ((550) - (Camera_x))> and <(y position) = ((-20) - (Camera _y))>> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [message1 v]\nset [スター１ v] to [0]\nset [スター２ v] to [0]\nset [スター３ v] to [0]\nhide\n配置 [550] [-20] []\n\nwhen I start as a clone\nforever\n    set size to (150) %\n    set volume to (80) %\n    if <touching (プレイヤー v)?> then\n        set [スター１ v] to [1]\n        start sound [Coin v]\n        stop [other scripts in sprite v]\n        change [2 v] by (30)\n        clear graphic effects\n        switch costume to (+1 v)\n        go to [front v] layer\n        set size to (100) %\n        repeat (20)\n            移動 ((1) - (Camera_x)) ((2) - (Camera _y))\n            change size by ((((0) - (size)) + (-5)) / (10))\n            change [ghost v] effect by (5)\n        end\n    end\nend\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム1 v)\n\nwhen I start as a clone\nforever\n    if <not <(costume [number v]) = [10]>> then\n        switch costume to (1 v)\n        repeat until <(costume [number v]) = [9]>\n            wait (0.05) seconds\n            next costume\n        end\n    end\nend\n\n@コイン\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\n\nset [camera_x v] to [3370]\n\nwhen I receive [初期化 v]\nset [ok？ v] to [0]\nset [ok? v] to [0]\n\nwhen I receive [monster coin v]\nif <(costume [number v]) = [1]> then\n    wait (0.5) seconds\n    set [monster coin？ v] to [1]\n    配置 (monster coin X) ((monster coin Y) + (10)) [1]\nend\n\nwhen I start as a clone\nshow\nif <(monster coin？) = [1]> then\n    wait until <<(！) = [1]> and <(OK？) = [1]>>\n    wait until <(！) = [0]>\n    delete this clone\nend\n\nset [camera_x v] to [1950]\nset [camera _y v] to [30]\n\nwhen I receive [goal v]\ndelete this clone\n\nwhen flag clicked\nset [コインの枚数 v] to [0]\nset [ok? v] to [0]\nset [ok？ v] to [0]\n\nwhen I start as a clone\nforever\n    if <not <(costume [number v]) = [10]>> then\n        switch costume to (1 v)\n        repeat until <(costume [number v]) = [9]>\n            wait (0.05) seconds\n            next costume\n        end\n    end\nend\n\nwhen I start as a clone\nforever\n    go to x: ((1) - (Camera_x)) y: ((2) - (Camera _y))\n    if <<(x position) = ((1) - (Camera_x))> and <<(OK？) = [0]> and <(y position) = ((2) - (Camera _y))>>> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [message1 v]\nset [コインの枚数 v] to [0]\nhide\n配置 [100] [0] [1]\n配置 [150] [0] [1]\n配置 [335] [55] [1]\n配置 [385] [55] [1]\n配置 [455] [210] [1]\n配置 [534] [170] [1]\n配置 [620] [210] [1]\n配置 [735] [110] [1]\n配置 [735] [60] [1]\n配置 [735] [10] [1]\n配置 [835] [58] [1]\n配置 [965] [0] [1]\n配置 [1090] [58] [1]\n配置 [1280] [5] [1]\n配置 [1280] [55] [1]\n配置 [1425] [0] [1]\n配置 [1425] [50] [1]\n配置 [1425] [100] [1]\n配置 [1425] [150] [1]\n配置 [1425] [200] [1]\n配置 [1290] [206] [1]\n配置 [1240] [206] [1]\n配置 [1190] [206] [1]\n配置 [1140] [206] [1]\n配置 [1090] [206] [1]\n配置 [1040] [206] [1]\n配置 [990] [206] [1]\n配置 [940] [206] [1]\n配置 [890] [206] [1]\n配置 [975] [385] [1]\n配置 [1025] [385] [1]\n配置 [1100] [500] [1]\n配置 [1160] [500] [1]\n配置 [1220] [500] [1]\n配置 [1280] [500] [1]\n配置 [1340] [500] [1]\n配置 [1400] [500] [1]\n配置 [1460] [500] [1]\n配置 [2280] [40] [1]\n配置 [2350] [80] [1]\n配置 [2420] [40] [1]\n配置 [2500] [90] [1]\n配置 [2570] [130] [1]\n配置 [2640] [90] [1]\n配置 [2702] [130] [1]\n配置 [2772] [170] [1]\n配置 [2842] [130] [1]\n配置 [3450] [55] [1]\n配置 [3500] [105] [1]\n配置 [3550] [105] [1]\n配置 [3600] [105] [1]\n配置 [3650] [55] [1]\n配置 [3975] [33] [1]\n配置 [4025] [33] [1]\n配置 [4075] [33] [1]\n配置 [4125] [33] [1]\n配置 [1561] [380] [1]\n配置 [1561] [330] [1]\n配置 [1561] [280] [1]\n配置 [1561] [230] [1]\n配置 [1561] [180] [1]\n配置 [1561] [130] [1]\n配置 [1561] [80] [1]\n配置 [4000] [280] [1]\n配置 [4040] [310] [1]\n配置 [4080] [280] [1]\n配置 [4115] [380] [1]\n配置 [4165] [380] [1]\n配置 [4215] [380] [1]\n配置 [4265] [380] [1]\n配置 [4315] [380] [1]\n配置 [4365] [380] [1]\n配置 [4520] [274] [1]\n配置 [4570] [274] [1]\n配置 [4620] [274] [1]\n配置 [4670] [274] [1]\n配置 [4720] [274] [1]\n配置 [4770] [274] [1]\n配置 [4820] [274] [1]\n配置 [4870] [274] [1]\n配置 [4920] [274] [1]\n配置 [4970] [274] [1]\n配置 [5020] [274] [1]\n配置 [5070] [274] [1]\n配置 [5120] [274] [1]\n配置 [5542] [190] [1]\n配置 [5498] [140] [1]\n配置 [5442] [90] [1]\n配置 [5398] [40] [1]\n配置 [5542] [-60] [1]\n配置 [5498] [-10] [1]\n配置 [670] [5] [1]\n配置 [670] [-45] [1]\n配置 [620] [5] [1]\n配置 [620] [-45] [1]\n配置 [3065] [-55] [1]\n\nwhen I start as a clone\nforever\n    set size to (100) %\n    set volume to (80) %\n    if <touching (プレイヤー v)?> then\n        set [ok？ v] to [1]\n        set [ok? v] to [1]\n        start sound [Coin v]\n        change [コインの枚数 v] by (1)\n    end\nend\n\ndefine 配置 (x) (y) (コスチューム)\nset [1 v] to (x)\nset [2 v] to (y)\ncreate clone of (_myself_ v)\nswitch costume to (コスチューム1 v)\n\n@制限時間\n\nwhen I receive [message1 v]\nset [制限時間・カウント v] to [0]\nset [信仰具合（進行具合ですよｗｗｗ） v] to [Yes]\nset [制限時間・カウント v] to [0]\nif <<not <(信仰具合（進行具合ですよｗｗｗ）) = [No]>> and <(信仰具合（進行具合ですよｗｗｗ）) = [Yes]>> then\n    repeat until <(信仰具合（進行具合ですよｗｗｗ）) = [No]>\n        wait (1) seconds\n        change [制限時間・カウント v] by (1)\n    end\nend\n\nwhen I receive [ステージを消す v]\nset [信仰具合（進行具合ですよｗｗｗ） v] to [No]\n\nwhen flag clicked\nset [信仰具合（進行具合ですよｗｗｗ） v] to [No]\n\nwhen I receive [goal v]\nset [信仰具合（進行具合ですよｗｗｗ） v] to [No]\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\ngo to [front v] layer\nset [a v] to (桁)\nchange x by ((桁) * (16))\nshow\ngo to [front v] layer\nforever\n    go to [front v] layer\n    switch costume to (letter (桁) of (制限時間・カウント))\n    if <<((20) - (長さ)) = ((20) - (a))> or <((20) - (長さ)) < ((20) - (a))>> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [message1 v]\nset [桁 v] to [1]\ngo to x: (165) y: (130)\nhide\nrepeat (5)\n    create clone of (_myself_ v)\n    change [桁 v] by (1)\nend\n\nwhen I receive [message1 v]\nset [変数 v] to [0]\nforever\n    set [長さ v] to (length of (制限時間・カウント))\nend\n\nwhen I receive [goal v]\ndelete this clone\n\n@intro for @hinomaru\n\ndefine Clone (cos) (cc?)\nset [costume v] to (costume [name v])\nset [cam control? v] to (cc?)\nswitch costume to (cos)\ncreate clone of (_myself_ v)\nswitch costume to (costume)\n\ndefine wait (time)\nwait until <(time) < (timer)>\n\ndefine Position\npoint in direction (0)\nturn right (((direction) + (shake dir)) - (\[Intro\] Cam dir)) degrees\nset [costume v] to (costume [name v])\nswitch costume to (position v)\ngo to x: ((((((x) + (shake x)) + (\[Intro\] cam x)) * (((size) + (\[Intro\] cam zoom)) / (100))) * ([cos v] of (\[Intro\] Cam dir) )) - (((((y) + (shake y)) + (\[Intro\] cam y)) * (((size) + (\[Intro\] cam zoom)) / (100))) * ([sin v] of (\[Intro\] Cam dir) ))) y: ((((((x) + (shake x)) + (\[Intro\] cam x)) * (((size) + (\[Intro\] cam zoom)) / (100))) * ([sin v] of (\[Intro\] Cam dir) )) + (((((y) + (shake y)) + (\[Intro\] cam y)) * (((size) + (\[Intro\] cam zoom)) / (100))) * ([cos v] of (\[Intro\] Cam dir) )))\nif <(size) > [100]> then\n    switch costume to (blank v)\nelse\n    switch costume to (screen v)\nend\nset size to ((\[Intro\] cam zoom) + ((size) + (size++))) %\nswitch costume to (costume)\n\nwhen I start as a clone\nif <<(Cam control?) = [1]> or <<(Cam control?) = [y]> or <(Cam control?) = [yes]>>> then\n    Position\n    forever\n        Position\n    end\nend\n\ndefine Pos Reset\nset [x v] to [0]\nset [y v] to [0]\nset [size v] to [100]\nset [direction v] to [90]\n\ndefine Cam Reset\nset [\[intro\] cam x v] to [0]\nset [\[intro\] cam y v] to [0]\nset [\[intro\] cam zoom v] to [0]\nset [\[intro\] cam dir v] to [0]\n\ndefine FW (x) (y)\ndelete all of [memo_pos v]\nadd (x) to [memo_pos v]\nadd (y) to [memo_pos v]\nadd (direction) to [memo_pos v]\nadd (size) to [memo_pos v]\nset [fw i v] to [0]\nset [x v] to (x)\nset [y v] to (y)\nset [direction v] to [0]\nset [size v] to [50]\nrepeat (12)\n    set [color v] effect to (110)\n    Clone [FW1] [1]\n    change [direction v] by ((360) / (12))\n    set [fw i v] to ((1) - (FW i))\nend\nclear graphic effects\nPos Reset\nset [\[intro\] fw spd v] to [20]\nset [x v] to (item (1) of [memo_pos v])\nset [y v] to (item (2) of [memo_pos v])\nset [direction v] to (item (3) of [memo_pos v])\nset [size v] to (item (4) of [memo_pos v])\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [FW1]> then\n    if <(FW i) = [1]> then\n        set [brightness v] effect to (100)\n    end\n    repeat (8)\n        change [\[rocal\] fw spd v] by (\[Intro\] FW spd)\n        move (\[rocal\] FW spd) steps\n    end\n    repeat (14)\n        change [\[rocal\] fw spd v] by (\[Intro\] FW spd)\n        move (\[rocal\] FW spd) steps\n        next costume\n    end\n    delete this clone\nend\n\nwhen I receive [\[intro\] start v]\nforever\n    change [\[intro\] fw spd v] by (((0) - (\[Intro\] FW spd)) / (6))\nend\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [flash]> then\n    set size to (100) %\n    repeat (10)\n        go to [front v] layer\n        go [backward v] (1) layers\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\n\nwhen I receive [\[intro\] start v]\nswitch costume to (blank v)\nset size to (100) %\nhide\nCam Reset\nPos Reset\nreset timer\nClone [Icon] [1]\nwait [1.3]\nClone [Flash] [0]\nClone [BG] [1]\nClone [Light] [1]\nClone [Bar] [0]\nClone [Text] [1]\nClone [月\(?\)] [1]\nClone [山] [1]\nClone [ライト] [1]\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [Icon]> then\n    clear graphic effects\n    set [direction v] to [-90]\n    set [size v] to [1]\n    Position\n    repeat (20)\n        change [size v] by (((300) - (size)) / (5))\n        change [direction v] by (((90) - (direction)) / (8))\n    end\n    repeat (20)\n        change [size v] by (((50) - (size)) / (5))\n        change [direction v] by (((-90) - (direction)) / (8))\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [Bar]> then\n    repeat (30)\n        go to [front v] layer\n        go [backward v] (2) layers\n    end\n    forever\n        go to [front v] layer\n    end\nend\n\ndefine Shake (time)\nset [\[intro\] shake n v] to [8]\nrepeat until <(time) < (timer)>\n    set [shake x v] to (([sin v] of ((timer) * (1000)) ) * (\[Intro\] Shake n))\n    set [shake y v] to (([sin v] of ((timer) * (1000)) ) * (\[Intro\] Shake n))\n    set [shake dir v] to (([cos v] of ((timer) * (1000)) ) * ((\[Intro\] Shake n) / (2)))\n    change [\[intro\] shake n v] by ((() - (\[Intro\] Shake n)) / (5))\nend\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [Text]> then\n    set [text fin size v] to [80]\n    set [text dir fin v] to [90]\n    Shake [10]\n    wait [6]\n    change [text fin size v] by (-50)\n    Shake [13]\n    change [text fin size v] by (100)\n    Shake [15]\nend\n\nwhen I receive [\[intro\] start v]\nset [cam dir fin v] to [0]\nCam Reset\nPos Reset\ngo to x: (0) y: (0)\npoint in direction (90)\nset size to (100) %\nwait [1.3]\nrepeat until <(timer) > [8]>\n    Clone [Particle] [1]\n    wait (pick random (0.2) to (0.5)) seconds\nend\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [Particle]> then\n    set [size v] to (pick random (80) to (100))\n    set [x v] to (pick random ((-480) * ((100) / (size))) to (0))\n    set [y v] to [-180]\n    Position\n    forever\n        set [color v] effect to (130)\n        change [x v] by ((1.6) * (2))\n        change [y v] by ((1) * (2))\n    end\nend\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [Text]> then\n    forever\n        go to [front v] layer\n        go [backward v] (1) layers\n        change [size v] by (((text fin size) - (size)) / (6))\n        change [direction v] by (((text dir fin) - (direction)) / (6))\n    end\nend\n\nwhen I start as a clone\nshow\nif < (costume [name v]) contains [SW]?> then\n    set [size++ v] to [1]\n    set [fish eye v] to [20]\n    Position\n    repeat until <(round (size++)) = (SW Size)>\n        go to [front v] layer\n        go [backward v] (3) layers\n        set [fisheye v] effect to (fish eye)\n        change [size++ v] by (((SW Size) - (size++)) / (7))\n        set [fish eye v] to ((fish eye) * (1.3))\n    end\n    delete this clone\nend\n\ndefine SW Create (x) (y) (finsize) (dir) (type) (c) (b)\ndelete all of [memo_pos v]\nadd (x) to [memo_pos v]\nadd (y) to [memo_pos v]\nadd (dir) to [memo_pos v]\nset [color v] effect to (c)\nset [brightness v] effect to (b)\nset [x v] to (x)\nset [y v] to (y)\nset [direction v] to (dir)\nset [sw size v] to (finsize)\nClone (join [SW1/] (type)) [1]\nclear graphic effects\nset [x v] to (item (1) of [memo_pos v])\nset [y v] to (item (2) of [memo_pos v])\nset [direction v] to (item (3) of [memo_pos v])\n\nwhen I receive [\[intro\] start v]\nSW Create [0] [0] [150] [0] [1] [0] [100]\nwait [1.5]\nSW Create [0] [0] [150] [90] [2] [0] [100]\nwait [1.9]\nSW Create [0] [0] [150] [180] [2] [0] [100]\nwait [2.3]\nSW Create [0] [0] [150] [90] [1] [0] [100]\nFW [0] [0]\nwait [3.3]\nSW Create [0] [0] [150] [0] [4] [0] [100]\nwait [3.5]\nSW Create [0] [0] [150] [90] [4] [0] [100]\nwait [3.7]\nSW Create [0] [0] [150] [180] [4] [0] [100]\nwait [3.9]\nSW Create [0] [0] [150] [270] [4] [0] [100]\nwait [4.1]\nFW [] []\nwait [6]\nFW [0] [250]\nFW [0] [-250]\nwait [6.5]\nSW Create [100] [0] [110] [90] [2] [0] [100]\nSW Create [-100] [0] [110] [90] [2] [0] [100]\nwait [6.8]\nSW Create [100] [0] [110] [180] [2] [0] [100]\nSW Create [-100] [0] [110] [180] [2] [0] [100]\nwait [7.5]\nFW [200] [0]\nFW [-200] [0]\nFW [0] [200]\nFW [0] [-200]\n\nwhen I receive [\[intro\] start v]\nrepeat until <[8.18] < (timer)>\n    change [cam dir++ v] by (((Cam dir fin) - (Cam dir++)) / (6))\nend\nforever\n    change [cam dir++ v] by (((Cam dir fin) - (Cam dir++)) / (10))\nend\n\nwhen I start as a clone\nshow\nwait [8]\nrepeat (33)\n    change [ghost v] effect by (3)\nend\ndelete this clone\n\nwhen I receive [\[intro\] start v]\nwait [8]\nstop [other scripts in sprite v]\nbroadcast (\[Intro\] end v)\nstop [this script v]\n\nwhen I receive [\[intro\] start v]\nplay sound [TheFatRat & Slaydit - Solitude \[cut by_ @pokosuke0825\] v] until done\nbroadcast (\[Intro\] end v)\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [BG]> then\n    set [direction v] to [90]\n    switch costume to (size v)\n    set size to (100) %\n    switch costume to (bg v)\nend\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [月\(?\)]> then\n    set [x v] to [-250]\n    set [y v] to [100]\nend\n\nwhen I receive [\[intro\] start v]\nwait [3.3]\nchange [\[intro\] shake n v] by (30)\n\nwhen I receive [\[intro\] start v]\nwait [2.3]\nrepeat (30)\n    change [\[intro\] cam zoom v] by ((5) - ((\[Intro\] cam zoom) / (15)))\nend\nwait [4]\nrepeat (30)\n    change [\[intro\] cam zoom v] by ((0) - ((\[Intro\] cam zoom) / (15)))\nend\nwait [4.5]\nrepeat (30)\n    set [\[intro\] cam x v] to ((15) - ((\[Intro\] cam x) / (10)))\n    change [\[intro\] cam dir v] by ((15) - ((\[Intro\] Cam dir) / (15)))\n    change [\[intro\] cam zoom v] by ((-3) - ((\[Intro\] cam zoom) / (10)))\nend\nrepeat (30)\n    set [\[intro\] cam x v] to ((0) - ((\[Intro\] cam x) / (10)))\n    change [\[intro\] cam dir v] by ((-2) - ((\[Intro\] Cam dir) / (15)))\n    change [\[intro\] cam zoom v] by ((3) - ((\[Intro\] cam zoom) / (15)))\nend\n\nwhen I receive [\[intro\] start v]\nwait [4.5]\nrepeat (20)\n    change [\[intro\] cam y v] by ((5) - ((\[Intro\] cam y) / (5)))\nend\nrepeat (20)\n    change [\[intro\] cam y v] by ((-5) - ((\[Intro\] cam y) / (5)))\nend\nrepeat (20)\n    change [\[intro\] cam y v] by ((0) - ((\[Intro\] cam y) / (5)))\nend\nwait [7]\nrepeat (20)\n    change [\[intro\] cam zoom v] by ((-1) - ((\[Intro\] cam zoom) / (5)))\nend\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [山]> then\n    set [direction v] to [90]\n    set [x v] to [0]\n    set [y v] to [0]\nend\n\nwhen I start as a clone\nshow\nif <(costume [name v]) = [ライト]> then\n    set [direction v] to [90]\n    set [x v] to [0]\n    set [y v] to [0]\nend\n\nwhen flag clicked\nwait (1) seconds\nbroadcast (\[Intro\] start v)\n\nwhen I receive [\[intro\] end v]\nbroadcast (message1 v)\n\n