Jungle Adventure || A scrolling platformer

Instructions: Jungle | Platformer | Banana\n\n◣操作方法 / How to play◢\n←→で移動 / ←→keys to move\n↑でジャンプ / ↑key to jump\nモバイル対応 / Mobile friendly\nバナナを集めよう / Collect bananas\n\nPlz ♥&★! \n\n\n\n半年ぶりのゲームです()

@Stage\n\nwhen I receive [プログラム6 v]\nset [clear? v] to [1]\nstop all sounds\nstart sound [win v]\n\nwhen I receive [ゲームok v]\nswitch backdrop to (game v)\nset volume to (60) %\n\nwhen I receive [ゲームok v]\nplay sound [Xaf - Unlimited v] until done\nif <(Clear?) = [0]> then\n    play sound [Xaf - Unlimited v] until done\nend\nif <(Clear?) = [0]> then\n    play sound [Xaf - Unlimited v] until done\nend\n\nwhen flag clicked\nset [clear? v] to [0]\nswitch backdrop to (intro v)\n\n@player\n\ndefine 位置補正y (向き) (回数)\nif <(Yv) = [0]> then\n    stop [this script v]\nend\nset [α v] to [0]\nrepeat until <<not <touching (ステージ v)?>> or <(α) = (回数)>>\n    change [α v] by (1)\n    change y by (向き)\nend\nchange y by (() - ((向き) * ((回数) * <<(α) = (回数)> and <touching (ステージ v)?>>)))\nset [yv v] to [0]\n\nwhen flag clicked\nset size to (80) %\nshow\npoint in direction (90)\ngo to [front v] layer\ngo to x: (0) y: (-20)\nset [動作 v] to [1]\nset [xv v] to [0]\nset [yv v] to [0]\nset [x v] to [0]\nset [y v] to [20]\nset [スクロールx v] to [0]\nset [スクロールy v] to [20]\nset [復活x v] to [0]\nset [復活y v] to [20]\nset [プログラム3　送った？ v] to [1]\nset [ステージ v] to [1]\nset [プログラム3　送った？ v] to [0]\n\nwhen I receive [プログラム1 v]\nshow\n動作\n\ndefine 動作\nset rotation style [left-right v]\nif <(動作) = [1]> then\n    switch costume to (player v)\n    change [yv v] by (-1.2)\n    if <<<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> or <key (d v) pressed?>> then\n        change [xv v] by (1.3)\n        point in direction (90)\n    end\n    if <<<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> or <key (a v) pressed?>> then\n        change [xv v] by (-1.3)\n        point in direction (-90)\n        if <(X) < [1]> then\n            change [xv v] by (1.3)\n            set [xv v] to [0]\n        end\n    end\n    set [xv v] to ((Xv) * (0.88))\n    change x by (Xv)\n    repeat (6)\n        if <touching (ステージ v)?> then\n            change y by (1)\n        end\n    end\n    if <touching (ステージ v)?> then\n        change y by (-6)\n        change x by ((0) - (Xv))\n        if <<<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> or <key (w v) pressed?>> then\n            set [xv v] to ((7) - (<[0] < (Xv)> * (14)))\n            set [yv v] to [12]\n        else\n            set [xv v] to [0]\n        end\n    end\n    if <[-20] < (Yv)> then\n        change y by (Yv)\n        if <touching (ステージ v)?> then\n            位置補正y ((0) - ((Yv) / ([abs v] of (Yv) ))) ([ceiling v] of ([abs v] of (Yv) ) )\n        end\n    else\n        change y by ((Yv) / (2))\n        if <touching (ステージ v)?> then\n            位置補正y ((0) - ((Yv) / ([abs v] of (Yv) ))) ([ceiling v] of ([abs v] of (Yv) ) )\n        end\n        change y by ((Yv) / (2))\n        if <touching (ステージ v)?> then\n            位置補正y ((0) - ((Yv) / ([abs v] of (Yv) ))) ([ceiling v] of ([abs v] of (Yv) ) )\n        end\n    end\n    if <<<<(Y) < [-400]> or <touching (障害物 v)?>> or <touching (障害物2 v)?>> or <touching (障害物3 v)?>> then\n        start sound [Hurt v]\n        初期位置\n    end\n    change y by (-1)\n    if <<touching (ステージ v)?> and <<<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> or <key (w v) pressed?>>> then\n        set [yv v] to [16]\n    end\n    change y by (1)\n    if <touching (チェックポイント v)?> then\n        if <(プログラム3　送った？) = [0]> then\n            broadcast (プログラム3 v)\n            set [プログラム3　送った？ v] to [1]\n        end\n    end\n    if <touching (ばね v)?> then\n        set [yv v] to [25]\n    end\n    処理\n    broadcast (プログラム2 v)\nend\n\ndefine 初期位置\ngo to x: (0) y: (-20)\nset [xv v] to [0]\nset [yv v] to [0]\nset [x v] to (復活X)\nset [y v] to (復活Y)\nset [スクロールx v] to (復活X)\nset [スクロールy v] to (復活Y)\n\ndefine 処理\nchange [x v] by ((x position) - ((X) - (スクロールX)))\nchange [y v] by ((y position) - (((Y) - (スクロールY)) - (20)))\nchange [スクロールx v] by ([floor v] of (((X) - (スクロールX)) * (0.1)) )\nchange [スクロールy v] by ([floor v] of (((Y) - (スクロールY)) * (0.3)) )\nset x to ((X) - (スクロールX))\nset y to (((Y) - (スクロールY)) - (20))\n\nwhen I receive [プログラム5 v]\nchange y by (Y　記憶　送信)\n\nwhen I receive [プログラム6 v]\nset [動作 v] to [0]\nhide\n\nwhen flag clicked\nhide\n\nset [スクロールy v] to [400]\n\nwhen I receive [ゲームok v]\nshow variable [time v]\nhide variable [☁ worldrecord v]\nhide variable [your record v]\nset [time v] to [0]\nreset timer\nrepeat until <(クリあ？) = [1]>\n    set [time v] to ([floor v] of (timer) )\nend\nset [your record v] to (Time)\nhide variable [time v]\nif <(Your Record) < (☁ WorldRecord)> then\n    set [☁ worldrecord v] to (Your Record)\nend\nshow variable [your record v]\nshow variable [☁ worldrecord v]\n\nset [☁ worldrecord v] to [100]\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\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム1 v)\nelse\n    移動 ((my x) - (スクロールX)) ((my y) - (スクロールY))\nend\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<(([abs v] of (x) ) - (0)) > ([abs v] of (x position) )> or <(([abs v] of (y) ) - (0)) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nswitch costume to (my n)\n\nwhen I start as a clone\nshow\n\nwhen I receive [プログラム6 v]\nhide\n\nwhen I receive [ゲームok v]\ngo to [front v] layer\ngo [backward v] (3) layers\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 ((480) * (3)) [0] [4]\nステージ配置 ((480) * (4)) [0] [5]\nステージ配置 ((480) * (5)) [0] [6]\nステージ配置 ((480) * (6)) [0] [7]\nステージ配置 ((480) * (7)) [0] [8]\nステージ配置 ((480) * (8)) [0] [9]\nステージ配置 ((480) * (9)) [0] [10]\nステージ配置 ((480) * (10)) [0] [11]\nステージ配置 ((480) * (11)) [0] [12]\nステージ配置 ((480) * (12)) [0] [13]\nステージ配置 ((480) * (13)) [0] [14]\nswitch costume to (none v)\nbroadcast (プログラム1 v)\n\nwhen flag clicked\nhide\n\nステージ配置 ((480) * ()) [0] []\n\n@bananas\n\ndefine バナナ配置 (x座標) (y座標)\nswitch costume to (none v)\nset [my x v] to (x座標)\nset [my y v] to (y座標)\nswitch costume to (bananas v)\ncreate clone of (_myself_ v)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\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 (bananas v)\nif <<touching (player v)?> and <(触れてますよ～) = [0]>> then\n    set [触れてますよ～ v] to [1]\n    start sound [Coin v]\n    change [score v] by (1)\n    delete this clone\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [プログラム6 v]\nhide\n\nwhen I receive [ゲームok v]\ngo to [front v] layer\nset [触れてますよ～ v] to [0]\nset [score v] to [0]\nhide\nバナナ配置 ((100) * (1)) [-45]\nバナナ配置 ((100) * (2)) [-45]\nバナナ配置 ((100) * (3)) [-45]\nバナナ配置 ((100) * (4)) [-45]\nバナナ配置 ((100) * (5)) [-45]\nバナナ配置 [800] [-200]\nバナナ配置 [940] [110]\nバナナ配置 [1040] [280]\nバナナ配置 [1150] [110]\nバナナ配置 [1150] [-135]\nバナナ配置 [1080] [-135]\nバナナ配置 [1115] [-90]\nバナナ配置 [1450] [-35]\nバナナ配置 [1585] [-35]\nバナナ配置 [1900] [-35]\nバナナ配置 [2220] [-30]\nバナナ配置 [2340] [230]\nバナナ配置 [2645] [180]\nバナナ配置 [2840] [-35]\nバナナ配置 [2940] [-35]\nバナナ配置 [2975] [-240]\nバナナ配置 [2900] [-280]\nバナナ配置 [3050] [-280]\nバナナ配置 [3560] [-35]\nバナナ配置 [3740] [80]\nバナナ配置 [4000] [80]\nバナナ配置 [4190] [80]\nバナナ配置 [4350] [80]\nバナナ配置 [4530] [80]\nバナナ配置 [4670] [-30]\nバナナ配置 [4800] [40]\nバナナ配置 [4930] [-30]\nバナナ配置 [5235] [240]\nバナナ配置 [5390] [-30]\nバナナ配置 [5620] [30]\nバナナ配置 [5690] [240]\nバナナ配置 [5835] [60]\nバナナ配置 [5960] [60]\nバナナ配置 [6085] [60]\nバナナ配置 [6220] [60]\nswitch costume to (none v)\n\nバナナ配置 ((100) * (-)) [-45]\n\nバナナ配置 [-] [-]\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\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<(([abs v] of (x) ) - (0)) > ([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 start as a clone\nshow\n\nwhen I receive [プログラム6 v]\nhide\n\nwhen I receive [ゲームok v]\nhide\nステージ配置 [-120] [-33] [1]\nステージ配置 [960] [0] [4]\nステージ配置 ((480) * (6)) [0] [5]\nswitch costume to (none v)\n\n@チェックポイント\n\ndefine ステージ配置 (x座標) (y座標) (clone id) (ステージ番号)\nswitch costume to (none v)\nset [my x v] to (x座標)\nset [my y v] to (y座標)\nadd (x座標) to [checkpoints x v]\nadd (y座標) to [checkpoints y v]\nset [clone id v] to (clone id)\nswitch costume to ((ステージ番号) + (1))\ncreate clone of (_myself_ v)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<(([abs v] of (x) ) - (0)) > ([abs v] of (x position) )> or <([abs v] of (y) ) > ([abs v] of (y position) )>> then\n    hide\nelse\n    show\nend\nif <[4] > (clone ID)> then\n    if <(item (clone ID) of [ステージ　クリア状況 v]) = [1]> then\n        switch costume to (stage2 v)\n    else\n        switch costume to (stage1 v)\n    end\nelse\n    if <[5] > (clone ID)> then\n        if <[40] > (SCORE)> then\n            switch costume to (stage5 v)\n        else\n            switch costume to (stage3 v)\n        end\n    else\n        switch costume to (stage4 v)\n    end\nend\n\nwhen I start as a clone\nshow\n\nwhen I receive [プログラム3 v]\nif <<(costume [number v]) = [2]> and <<([abs v] of ((0) - (x position)) ) < [200]> and <([abs v] of ((0) - (y position)) ) < [200]>>> then\n    start sound [Collect v]\n    switch costume to (stage2 v)\n    if <(clone ID) > (ステージクリア状況)> then\n        set [復活x v] to (item (clone ID) of [checkpoints x v])\n        set [復活y v] to ((item (clone ID) of [checkpoints y v]) + (40))\n        set [ステージクリア状況 v] to (clone ID)\n    end\n    replace item (clone ID) of [ステージ　クリア状況 v] with [1]\n    set [パーティクル用　チェックポイントx v] to (x position)\n    set [パーティクル用　チェックポイントy v] to (y position)\n    set [プログラム3　送った？ v] to [0]\n    broadcast (プログラム4 v)\nelse\n    if <<(costume [number v]) = [4]> and <<([abs v] of ((0) - (x position)) ) < [200]> and <([abs v] of ((0) - (y position)) ) < [200]>>> then\n        set [プログラム3　送った？ v] to [0]\n        set [クリア裏か？ v] to [0]\n        broadcast (プログラム6 v)\n    else\n        if <<(costume [number v]) = [5]> and <<([abs v] of ((0) - (x position)) ) < [200]> and <([abs v] of ((0) - (y position)) ) < [200]>>> then\n            set [プログラム3　送った？ v] to [0]\n            set [クリア裏か？ v] to [1]\n            broadcast (プログラム6 v)\n        end\n    end\nend\nset [プログラム3　送った？ v] to [0]\n\nwhen I receive [プログラム6 v]\nhide\n\nwhen I receive [ゲームok v]\nset [ステージクリア状況 v] to [0]\nset [プログラム3　送った？ v] to [0]\nset [パーティクル用　チェックポイントx v] to [0]\nset [パーティクル用　チェックポイントy v] to [0]\ndelete all of [checkpoints x v]\ndelete all of [checkpoints y v]\ndelete all of [ステージ　クリア状況 v]\nrepeat (4)\n    add [0] to [ステージ　クリア状況 v]\nend\nset [2 v] to [0]\nhide\nステージ配置 [1780] [-25] [1] [1]\nステージ配置 [3440] [-25] [2] [1]\nステージ配置 [5000] [-25] [3] [1]\nステージ配置 [6360] [-25] [4] [3]\nswitch costume to (none v)\n\nステージ配置 [-] [-] [5] [4]\n\nステージ配置 [1780] [-20] [1] [1]\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 (舞わーん v)\ncreate clone of (_myself_ v)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\n    broadcast (プログラム1 v)\nelse\n    移動 ((my x) - (スクロールX)) ((my y) - (スクロールY))\nend\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<(([abs v] of (x) ) - (0)) > ([abs v] of (x position) )> or <(([abs v] of (y) ) - (0)) > ([abs v] of (y position) )>> then\n    hide\nend\nswitch costume to (舞わーん v)\n\nwhen I start as a clone\nshow\n\nwhen I receive [プログラム4 v]\nif <(costume [number v]) = [1]> then\n\nwhen I receive [プログラム6 v]\nhide\n\nwhen I receive [ゲームok v]\nset size to (20) %\nhide\nステージ配置 [1780] [-20]\nステージ配置 [3440] [-20]\nステージ配置 [5000] [-20]\nswitch costume to (none v)\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\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\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 start as a clone\nshow\n\nwhen I receive [プログラム6 v]\nhide\n\nwhen I receive [ゲームok v]\nhide\nステージ配置 [960] [0] [1]\nステージ配置 ((480) * (3)) [0] [2]\nステージ配置 ((480) * (6)) [0] [3]\nステージ配置 ((480) * (12)) [0] [4]\nステージ配置 ((480) * (13)) [0] [5]\nswitch costume to (none v)\n\n@障害物2\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 [プログラム2 v]\nif <(costume [number v]) = [1]> then\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 start as a clone\nshow\n\nwhen I receive [プログラム6 v]\nhide\n\nwhen I receive [ゲームok v]\nhide\nステージ配置 ((480) * (4)) [0] [1]\nステージ配置 ((480) * (8)) [0] [2]\nステージ配置 ((480) * (9)) [0] [3]\nswitch costume to (none v)\n\n@障害物3\n\nwhen flag clicked\n\nbroadcast (プログラム1 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 (ぐるぐる v)\ncreate clone of (_myself_ v)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\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 (ぐるぐる v)\n\nwhen I start as a clone\nshow\n\nbroadcast (プログラム1 v)\n\nwhen I start as a clone\nforever\n    turn right (5) degrees\nend\n\nwhen I receive [プログラム6 v]\nhide\n\nwhen I receive [ゲームok v]\nhide\nset size to (120) %\nステージ配置 [4800] [-80]\nステージ配置 [5640] [-80]\nswitch costume to (none v)\n\n@a\n\nwhen [1 v] key pressed\nif <(username) = [pokosuke0825]> then\n    set [スクロールx v] to [-]\n    set [スクロールy v] to [-]\nend\n\nwhen [2 v] key pressed\nif <(username) = [pokosuke0825]> then\n    set [スクロールx v] to [700]\n    set [スクロールy v] to [-]\nend\n\nwhen [3 v] key pressed\nif <(username) = [pokosuke0825]> then\n    set [スクロールx v] to [1430]\n    set [スクロールy v] to [-]\nend\n\nwhen [4 v] key pressed\nif <(username) = [pokosuke0825]> then\n    set [スクロールx v] to [1792]\n    set [スクロールy v] to [-]\nend\n\nwhen [5 v] key pressed\nif <(username) = [pokosuke0825]> then\n    set [スクロールx v] to [2340]\n    set [スクロールy v] to [230]\nend\n\nwhen [6 v] key pressed\nif <(username) = [pokosuke0825]> then\n    set [スクロールx v] to [3730]\n    set [スクロールy v] to [100]\nend\n\nwhen [7 v] key pressed\nif <(username) = [pokosuke0825]> then\n    set [スクロールx v] to [4650]\n    set [スクロールy v] to [100]\nend\n\nwhen [8 v] key pressed\nif <(username) = [pokosuke0825]> then\n    set [スクロールx v] to [5400]\n    set [スクロールy v] to [100]\nend\n\nwhen [9 v] key pressed\nif <(username) = [pokosuke0825]> then\n    set [スクロールx v] to [5750]\n    set [スクロールy v] to [100]\nend\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 v)\ncreate clone of (_myself_ v)\n\nwhen I receive [プログラム2 v]\nif <(costume [number v]) = [1]> then\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 (コスチューム1 v)\n\nwhen I start as a clone\nshow\n\nwhen I receive [プログラム6 v]\nhide\n\nwhen I receive [ゲームok v]\nhide\nswitch costume to (none v)\n\n@end\n\nwhen I receive [プログラム6 v]\nswitch costume to ((クリア裏か？) + (1))\ngo to [front v] layer\nshow\nrepeat (4)\n    change [ghost v] effect by (-25)\n    set x to (-10)\n    set y to (10)\n    wait (0.1) seconds\n    set x to (10)\n    set y to (-10)\n    wait (0.1) seconds\nend\nrepeat (3)\n    set x to (-10)\n    set y to (10)\n    wait (0.1) seconds\n    set x to (10)\n    set y to (-10)\n    wait (0.1) seconds\nend\n\nwhen flag clicked\nclear graphic effects\nset [ghost v] effect to (100)\nhide\n\nwhen flag clicked\nforever\n    change x by (((0) - (x position)) / (1.2))\n    change y by (((0) - (y position)) / (1.2))\nend\n\n@tn\n\nwhen flag clicked\ngo to x: (0) y: (0)\nset [ghost v] effect to (100)\nforever\n    go to [front v] layer\nend\n\n@背景\n\nwhen I receive [ゲームok v]\ngo to [back v] layer\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\n\nwhen I start as a clone\nforever\n    if <(costume [number v]) = [2]> then\n        switch costume to (none v)\n        go to x: (((スクロールX) - ((γ) * (1600))) * (-0.3)) y: (0)\n        if <<(((スクロールX) - ((γ) * (1600))) * (-0.3)) > (x position)> or <(x position) > (((スクロールX) - ((γ) * (1600))) * (-0.3))>> then\n            hide\n        else\n            show\n        end\n        switch costume to (1 v)\n    else\n        go to x: (((スクロールX) - ((γ) * (3200))) * (-0.15)) y: (0)\n        if <<(((スクロールX) - ((γ) * (3200))) * (-0.15)) > (x position)> or <(x position) > (((スクロールX) - ((γ) * (3200))) * (-0.15))>> then\n            hide\n        else\n            show\n        end\n        switch costume to (2 v)\n    end\nend\n\ndefine 高速\nswitch costume to (2 v)\nset [γ v] to [-2]\nrepeat (12)\n    change [γ v] by (1)\n    create clone of (_myself_ v)\nend\nswitch costume to (1 v)\nset [γ v] to [-2]\nrepeat (6)\n    change [γ v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I receive [ゲームok v]\n高速\n\n@tree\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 [プログラム2 v]\nif <(costume [number v]) = [1]> then\n\ndefine 移動 (x) (y)\nswitch costume to (none v)\ngo to x: (x) y: (y)\nif <<(([abs v] of (x) ) - (0)) > ([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 start as a clone\nshow\n\nwhen I receive [プログラム6 v]\nhide\n\nwhen I receive [ゲームok v]\nhide\nステージ配置 [0] [0] [1]\nステージ配置 [480] [0] [2]\nステージ配置 [960] [0] [3]\nステージ配置 [960] [360] [4]\nステージ配置 [1440] [0] [5]\nステージ配置 [1920] [0] [6]\nステージ配置 ((480) * (6)) [0] [7]\nステージ配置 ((480) * (7)) [0] [8]\nステージ配置 ((480) * (8)) [0] [9]\nステージ配置 ((480) * (9)) [0] [10]\nステージ配置 ((480) * (10)) [0] [11]\nステージ配置 ((480) * (11)) [0] [12]\nswitch costume to (none v)\n\n@count\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nif <(β) = [1]> then\n    go to [front v] layer\n    show\n    go to x: (-160) y: (145)\n    forever\n        if <(SCORE) < [10]> then\n            switch costume to (0 v)\n        else\n            switch costume to (letter (1) of (SCORE))\n        end\n    end\nend\nif <(β) = [2]> then\n    go to [front v] layer\n    show\n    go to x: (-130) y: (145)\n    forever\n        if <(SCORE) < [10]> then\n            switch costume to (letter (1) of (SCORE))\n        else\n            switch costume to (letter (2) of (SCORE))\n        end\n    end\nend\n\nwhen I receive [ゲームok v]\nset size to (60) %\nswitch costume to (0 v)\nset [β v] to [1]\ncreate clone of (_myself_ v)\nset [β v] to [2]\ncreate clone of (_myself_ v)\n\n@banana\n\nwhen I receive [ゲームok v]\ngo to x: (-205) y: (145)\nshow\nwait (1) seconds\ngo to [front v] layer\n\nwhen flag clicked\nhide\n\nforever\nend\n\n@Intro\n\nwhen I start as a clone\nshow\nif <<[1] < (costume [number v])> and <(costume [number v]) < [10]>> then\n    go to x: (500) y: (0)\n    set [variable v] to [0]\n    repeat (30)\n        set [brightness v] effect to (Variable)\n        change [variable v] by (((-200) - (Variable)) / (50))\n        change x by (((0) - (x position)) / (4))\n    end\n    clear graphic effects\n    wait until <[2.25] < (timer)>\n    set size to (0) %\n    go to [front v] layer\n    point in direction (91)\n    repeat (45)\n        change size by (((100) - (size)) / (6))\n        turn right ([abs v] of (((90) - (direction)) / (4)) ) degrees\n    end\n    wait (((costume [number v]) - (1)) * (0.08)) seconds\n    repeat until <(y position) < [-240]>\n        change y by (((y position) - (1)) / (4))\n    end\n    delete this clone\nelse\n    if <(costume [number v]) = [14]> then\n        set y to (500)\n        repeat (30)\n            change y by (((0) - (y position)) / (4))\n        end\n        wait until <[3] < (timer)>\n        delete this clone\n    else\n        if <(costume [number v]) = [1]> then\n            set size to (0) %\n            set [variable v] to [0]\n            point in direction (0)\n            repeat (30)\n                change size by (((100) - (size)) / (4))\n                turn right (Variable) degrees\n                set [variable v] to (((Variable) * (0.65)) + (((90) - (direction)) / (4)))\n            end\n            repeat until <[225] < (y position)>\n                change y by (((y position) - (-1)) / (4))\n            end\n            delete this clone\n        else\n            if <(costume [number v]) = [12]> then\n                go to x: (0) y: (500)\n                set [brightness v] effect to (100)\n                set size to (0) %\n                repeat until <[100] < (size)>\n                    change size by (((2500) - (size)) / (8))\n                end\n                repeat until <[2499] < (size)>\n                    switch costume to (blank v)\n                    change size by (((2500) - (size)) / (8))\n                    switch costume to (circle v)\n                end\n                wait until <[5] < (timer)>\n                go to x: (0) y: (0)\n                set [variable v] to [100]\n                repeat (40)\n                    change size by (((100) - (size)) / (6))\n                    change [variable v] by (((0) - (Variable)) / (6))\n                    set [brightness v] effect to (Variable)\n                end\n                set size to (100) %\n                set [variable v] to [12]\n                repeat (30)\n                    change size by (Variable)\n                    change [variable v] by (-1)\n                end\n                delete this clone\n            else\n                if <<[15] < (costume [number v])> and <(costume [number v]) < [20]>> then\n                    go to x: (0) y: (-240)\n                    set size to (pick random (30) to (50)) %\n                    point in direction (pick random (1) to (360))\n                    set [variable v] to (pick random (-5) to (5))\n                    set [y v] to ((size) * (0.5))\n                    repeat (y)\n                        change x by (Variable)\n                        change y by (y)\n                        turn right (Variable) degrees\n                        change [y v] by (-1)\n                    end\n                    repeat until <touching (_edge_ v)?>\n                        change x by (Variable)\n                        change y by (y)\n                        turn right (Variable) degrees\n                        change [y v] by (-1)\n                    end\n                    delete this clone\n                end\n            end\n        end\n    end\nend\n\ndefine Particle\nrepeat (20)\n    switch costume to (pick random (16) to (19))\n    create clone of (_myself_ v)\nend\n\nParticle\n\nwhen flag clicked\nif <(Intro?) = [0]> then\n    broadcast (Intro v)\n    wait (10) seconds\nend\nbroadcast (ゲームok v)\n\nwhen I receive [intro v]\nset [intro? v] to [1]\nreset timer\nhide\nswitch costume to (p v)\nrepeat (8)\n    create clone of (_myself_ v)\n    next costume\nend\nwait until <[0.75] < (timer)>\nreset timer\nstart sound [Diviners - Savannah \(feat. Philly K\) \[NCS Release\] v]\nset x to (-160)\nrepeat (3)\n    switch costume to (card v)\n    create clone of (_myself_ v)\n    change x by (160)\n    wait (0) seconds\nend\ngo to x: (0) y: (0)\nwait until <[0.5] < (timer)>\nswitch costume to (logo v)\ncreate clone of (_myself_ v)\nset [brightness v] effect to (100)\nParticle\nwait until <[2.25] < (timer)>\nswitch costume to (circle v)\ncreate clone of (_myself_ v)\nclear graphic effects\nParticle\n\nset [intro? v] to [0]\n\n@スプライト1\n\nwhen I receive [ゲームok v]\nshow\nset [ghost v] effect to (100)\ngo to x: (0) y: (0)\nwait (2) seconds\nrepeat (25)\n    change [ghost v] effect by (-2)\nend\ngo to [front v] layer\n\nwhen flag clicked\nhide\n\n