online platformer plants /オンライン　プラットフォーマー　植物　#games #game #all #a platformer #online #ゲーム　

Instructions: ---オンラインが普及しました---\n       ---Online is popular---\n一時的にオンラインプレイが出来なかったこと、誠に申し訳ありませんでした。\nWe apologize for the temporary inability to play online.\n\nどうも、purizuramuです。\nHello, this is purizuramu\n今回は、初めてオンラインプラットフォーマーに挑戦してみました。\nThis time, I tried an online platformer for the first time.\n何か致命的なバグや、追加してほしいものがあったら教えて下さい。\nPlease let me know if there are any fatal bugs or things                      \n you want me to add.\n\nEnglish---------------------------------------------------------------\nOperate with W,A,D,S keys or tap or arrow keys.\nIf you hit a thorn or fall down, you have to start over.\nYou can shop with coins by pressing the shop\nUp to 10 people can play online.\n\n日本語----------------------------------------------------------------\nW、A、D、Sキーまたはタップまたは矢印キーで操作します。\nとげに当たったり下に落ちたりするとやり直しです。\nショップを押すとコインで買い物ができます。\n最大10人でオンラインプレイができます。\n-------------------------------------------------------------------------\n本当に頑張って作ったので良かったら★や♥お願いします!!\nI really worked hard to make it, if so it's good, please ★ and ♥!!\n\n主なプログラム参考\n・@YY-H様\n音\n・@YY-H様\nBGM\n・@suiren_t様\nコイン\n・@kuri-pa-2様\nプレイヤー\n・@YY-H様\nタイム表示プログラム参考\n・@KeniPoppo様

@Stage\n\nwhen flag clicked\nset [pan left/right v] effect to (0)\nset [pitch v] effect to (0)\nforever\n    play sound (pick random (1) to (3)) until done\nend\n\nwhen flag clicked\nshow list [利用者 v]\n\n@プレイヤー\n\nwhen I receive [スタート v]\n初期化\nshow\nset rotation style [left-right v]\n\ndefine 初期化\nclear graphic effects\nset [動ける？ v] to [0]\nset [x1 v] to [0]\nset [y1 v] to [0]\ngo to x: (0) y: (0)\npoint in direction (90)\nshow\n\nwhen I receive [初期化 v]\nset [なめらか v] to [16]\nset [ガガガガンマン v] to (なめらか)\nset [なめらか v] to ((0) - (なめらか))\nclear graphic effects\nwait (0.02) seconds\nrepeat (5)\n    set [ガガガガンマン v] to (なめらか)\n    wait (0.02) seconds\n    set [なめらか v] to (((0) - (なめらか)) / (2))\nend\nset [ガガガガンマン v] to [0]\n\nwhen I receive [初期化 v]\nswitch costume to (目氏　整 v)\ngo to [front v] layer\nset [y1 v] to [10]\nset [動ける？ v] to [1]\nstart sound [Crunch v]\nrepeat (20)\n    set rotation style [all around v]\n    change [y1 v] by (-1)\n    turn left (5) degrees\n    change y by (y1)\n    if <(y1) < [-5]> then\n        change [ghost v] effect by (20)\n    end\nend\nhide\ngo to [back v] layer\nrepeat (20)\n    change [スクロールｘ v] by (round (((x2) - (スクロールｘ)) / (4)))\n    change [スクロールｙ v] by (round (((y2) - (スクロールｙ)) / (4)))\nend\n初期化\n\nwhen I receive [スタート v]\nset [スクロールｘ v] to [0]\nset [スクロールｙ v] to [120]\nset [x2 v] to [0]\nset [y2 v] to [120]\n初期化\nsay []\nreset timer\nforever\n    if <(動ける？) = [0]> then\n        プログラム <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <[0] < (mouse y)>>>> <<key (down arrow v) pressed?> or <<key (s v) pressed?> or <<mouse down?> and <(mouse y) < [0]>>>> <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <[0] < (mouse x)>>>> <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>>> <<not <touching (水 v)?>> and <<<[アイテム v] contains [パラシュート]?> and <(y1) < [-3]>> and <<key (space v) pressed?> or <mouse down?>>>>\n        set [pitch v] effect to (0)\n    end\nend\n\ndefine プログラム <上> <下> <右> <左> <パラシュート>\nif <右> then\n    if <[アイテム v] contains [スピード]?> then\n        change [x1 v] by (1.5)\n    else\n        change [x1 v] by (1)\n    end\nend\nif <左> then\n    if <[アイテム v] contains [スピード]?> then\n        change [x1 v] by (-1.5)\n    else\n        change [x1 v] by (-1)\n    end\nend\nset [x1 v] to ((x1) * (0.9))\nchange x by (round ((x1) + (-)))\nrepeat (6)\n    if <<touching (地面 v)?> and <not <touching (水 v)?>>> then\n        change y by (1)\n    end\nend\nif <touching (水 v)?> then\n    if <上> then\n        change [y1 v] by (1.5)\n        if <[7] < (y1)> then\n            set [y1 v] to [7]\n        end\n    end\nend\nif <touching (地面 v)?> then\n    if <not <touching (水 v)?>> then\n        change y by (-5)\n    end\n    repeat until <not <touching (地面 v)?>>\n        change x by ((-1) * ((x1) / ([abs v] of (x1) )))\n    end\n    set x to (round (x position))\n    if <<(-) = [0]> and <上>> then\n        start sound [壁キック v]\n        set [y1 v] to [15]\n        set [x1 v] to ((7) - (<(x1) > [0]> * (14)))\n    else\n        set [x1 v] to [0]\n    end\nend\nif <touching (水 v)?> then\n    change [y1 v] by (-0.2)\nelse\n    change [y1 v] by (-0.8)\nend\nchange y by (round (y1))\nif <touching (地面 v)?> then\n    repeat until <not <touching (地面 v)?>>\n        change y by ((-1) * ((y1) / ([abs v] of (y1) )))\n    end\n    if <<(y1) < [0]> and <上>> then\n        if <not <touching (水 v)?>> then\n            start sound [ジャンプ v]\n            if <[アイテム v] contains [ジャンプ]?> then\n                set [y1 v] to [17]\n            else\n                set [y1 v] to [14]\n            end\n        end\n    else\n        set [y1 v] to [0]\n    end\nend\nif <touching (はしご v)?> then\n    if <<(はしご) = [0]> and <(y1) < [0]>> then\n        set [はしご v] to [1]\n    end\n    if <(y1) < [0]> then\n        repeat until <<not <touching (はしご v)?>> or <下>>\n            change y by (1)\n        end\n        if <上> then\n            set [y1 v] to [14]\n        else\n            if <下> then\n                set [y1 v] to [-3]\n            else\n                set [y1 v] to [0]\n            end\n        end\n    end\nelse\n    set [はしご v] to [0]\nend\nif <touching (バネ v)?> then\n    set [y1 v] to [25]\nend\nif <<touching (棘（致死率100％） v)?> or <<(y position) < [-160]> and <(スクロールｙ) = [0]>>> then\n    broadcast (初期化 v)\nend\nchange [スクロールｘ v] by (round ((x position) * (0.1)))\nif <not <<(スクロールｘ) < [0]> or <[6490] < (スクロールｘ)>>> then\n    change x by ((0) - (round ((x position) * (0.1))))\nend\nchange [スクロールｙ v] by (round ((y position) * (0.2)))\nif <not <(スクロールｙ) < [0]>> then\n    change y by ((0) - (round ((y position) * (0.2))))\nend\nif <(スクロールｘ) < [0]> then\n    set [スクロールｘ v] to [0]\nend\nif <(スクロールｙ) < [0]> then\n    set [スクロールｙ v] to [0]\nend\nswitch costume to (目氏　整 v)\nif <上> then\n    switch costume to (目氏　整4 v)\n    if <右> then\n        switch costume to (目氏　整2 v)\n    end\n    if <左> then\n        switch costume to (目氏　整3 v)\n    end\nelse\n    if <右> then\n        switch costume to (目氏　整5 v)\n    end\n    if <左> then\n        switch costume to (目氏　整6 v)\n    end\nend\n\nwhen flag clicked\nforever\n    go to [back v] layer\n    go [backward v] (10) layers\nend\n\nwhen I receive [yショック v]\nset [なめらか v] to [16]\nset [ガガガガンマン v] to (なめらか)\nset [なめらか v] to ((0) - (なめらか))\nclear graphic effects\nwait (0.02) seconds\nrepeat (5)\n    set [ガガガガンマン v] to (なめらか)\n    wait (0.02) seconds\n    set [なめらか v] to (((0) - (なめらか)) / (2))\nend\nset [ガガガガンマン v] to [0]\n\nwhen flag clicked\nforever\n    if <(チャット) = []> then\n        say (username)\n    else\n        say (join (username) (item (チャット) of [チャット v]))\n    end\nend\n\nwhen flag clicked\ndelete all of [チャット v]\nadd [　・こんにちは/Hello] to [チャット v]\nadd [　・一緒に行こう/Come with me.] to [チャット v]\nadd [　・ごめん、抜けるね/Sorry, I'm out.] to [チャット v]\nadd [　・凄い！/Amazing!] to [チャット v]\nadd [　・分かった/Okay] to [チャット v]\nadd [　・ありがとう！/Thank you!] to [チャット v]\nadd [　・いいね！/Nice!] to [チャット v]\nadd [　・頑張って！/With effort!] to [チャット v]\nadd [　・上手だね！/Good at it!] to [チャット v]\nadd [　・速いね！/Fast!] to [チャット v]\n\nwhen flag clicked\ndelete all of [アルファベット v]\ninsert [] at (1) of [アルファベット v] \ninsert [] at (2) of [アルファベット v] \ninsert [] at (3) of [アルファベット v] \ninsert [] at (4) of [アルファベット v] \ninsert [] at (5) of [アルファベット v] \ninsert [] at (6) of [アルファベット v] \ninsert [] at (7) of [アルファベット v] \ninsert [] at (8) of [アルファベット v] \ninsert [] at (9) of [アルファベット v] \ninsert [a] at (10) of [アルファベット v] \ninsert [b] at (11) of [アルファベット v] \ninsert [c] at (12) of [アルファベット v] \ninsert [d] at (13) of [アルファベット v] \ninsert [e] at (14) of [アルファベット v] \ninsert [f] at (15) of [アルファベット v] \ninsert [g] at (16) of [アルファベット v] \ninsert [h] at (17) of [アルファベット v] \ninsert [i] at (18) of [アルファベット v] \ninsert [j] at (19) of [アルファベット v] \ninsert [k] at (20) of [アルファベット v] \ninsert [l] at (21) of [アルファベット v] \ninsert [m] at (22) of [アルファベット v] \ninsert [n] at (23) of [アルファベット v] \ninsert [o] at (24) of [アルファベット v] \ninsert [p] at (25) of [アルファベット v] \ninsert [q] at (26) of [アルファベット v] \ninsert [r] at (27) of [アルファベット v] \ninsert [s] at (28) of [アルファベット v] \ninsert [t] at (29) of [アルファベット v] \ninsert [u] at (30) of [アルファベット v] \ninsert [v] at (31) of [アルファベット v] \ninsert [w] at (32) of [アルファベット v] \ninsert [x] at (33) of [アルファベット v] \ninsert [y] at (34) of [アルファベット v] \ninsert [z] at (35) of [アルファベット v] \ninsert [1] at (36) of [アルファベット v] \ninsert [2] at (37) of [アルファベット v] \ninsert [3] at (38) of [アルファベット v] \ninsert [4] at (39) of [アルファベット v] \ninsert [5] at (40) of [アルファベット v] \ninsert [6] at (41) of [アルファベット v] \ninsert [7] at (42) of [アルファベット v] \ninsert [8] at (43) of [アルファベット v] \ninsert [9] at (44) of [アルファベット v] \ninsert [0] at (45) of [アルファベット v] \ninsert [-] at (46) of [アルファベット v] \ninsert [_] at (47) of [アルファベット v] \n\nwhen flag clicked\nforever\n    if <[アイテム v] contains [レインボー]?> then\n        change [color v] effect by (2)\n        set [brightness v] effect to (30)\n    else\n        set [color v] effect to (0)\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen flag clicked\nforever\n    wait until <touching (水 v)?>\n    set [y1 v] to [-1]\n    start sound [トプン v]\n    wait until <not <touching (水 v)?>>\nend\n\nwhen flag clicked\nforever\n    change [たあぼたいさく v] by (1)\nend\n\nwhen flag clicked\nforever\n    set [たあぼたいさく v] to [0]\n    wait (0.001) seconds\n    if <[3] < (たあぼたいさく)> then\n        stop [all v]\n    end\nend\n\n@プレイヤー　\n\ndefine 配置\nset [プレーヤー v] to [0]\nrepeat (9)\n    change [プレーヤー v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nclear graphic effects\nforever\n    show\n    set [ghost v] effect to (0)\n    if <<(1p?) = (プレーヤー)> or <<(item (プレーヤー) of [1~10p2 v]) = [0]> or <(letter (53) of (item (プレーヤー) of [1~10p2 v])) = [1]>>> then\n        hide\n    end\n    go to x: (((join (letter (43) of (item (プレーヤー) of [1~10p2 v])) (join (letter (44) of (item (プレーヤー) of [1~10p2 v])) (join (letter (45) of (item (プレーヤー) of [1~10p2 v])) (letter (46) of (item (プレーヤー) of [1~10p2 v]))))) - (1500)) - (スクロールｘ)) y: (((join (letter (47) of (item (プレーヤー) of [1~10p2 v])) (join (letter (48) of (item (プレーヤー) of [1~10p2 v])) (join (letter (49) of (item (プレーヤー) of [1~10p2 v])) (letter (50) of (item (プレーヤー) of [1~10p2 v]))))) - (1500)) - (スクロールｙ))\n    switch costume to ((join (letter (41) of (item (プレーヤー) of [1~10p2 v])) (letter (42) of (item (プレーヤー) of [1~10p2 v]))) - (10))\n    if <((join (letter (51) of (item (プレーヤー) of [1~10p2 v])) (letter (52) of (item (プレーヤー) of [1~10p2 v]))) - (10)) = [0]> then\n        say (item (プレーヤー) of [利用者 v])\n    else\n        say (join (item (プレーヤー) of [利用者 v]) (item ((join (letter (51) of (item (プレーヤー) of [1~10p2 v])) (letter (52) of (item (プレーヤー) of [1~10p2 v]))) - (10)) of [チャット v]))\n    end\nend\n\ndefine 復元\ndelete all of [利用者 v]\nset [利用者復元2 v] to [0]\nrepeat (9)\n    change [利用者復元2 v] by (1)\n    set [利用者復元1 v] to [0]\n    set [4 v] to []\n    repeat (20)\n        if <not <(join (letter ((利用者復元1) + (1)) of (item (利用者復元2) of [1~10p2 v])) (letter ((利用者復元1) + (2)) of (item (利用者復元2) of [1~10p2 v]))) = [00]>> then\n            change [利用者復元1 v] by (2)\n            set [4 v] to (join (4) (item (join (letter ((利用者復元1) - (1)) of (item (利用者復元2) of [1~10p2 v])) (letter (利用者復元1) of (item (利用者復元2) of [1~10p2 v]))) of [アルファベット v]))\n        end\n    end\n    add (4) to [利用者 v]\nend\n\ndefine ユーザー名\nset [利用者文字 v] to [0]\nset [利用者② v] to []\nrepeat (length of (username))\n    change [利用者文字 v] by (1)\n    set [利用者② v] to (join (利用者②) (item # of (letter (利用者文字) of (username)) in [アルファベット v]))\nend\nrepeat ((40) - (length of (利用者②)))\n    set [利用者② v] to (join (利用者②) [0])\nend\n\nwhen I receive [online v]\nforever\n    復元\n    wait (1) seconds\nend\n\nwhen I receive [online v]\nset [☁ 1p v] to [0]\nset [☁ 2p v] to [0]\nset [☁ 3p v] to [0]\nset [☁ 4p v] to [0]\nset [☁ 5p v] to [0]\nset [☁ 6p v] to [0]\nset [☁ 7p v] to [0]\nset [☁ 8p v] to [0]\nset [☁ 9p v] to [0]\nset [1p? v] to [0]\nwait (1) seconds\nbroadcast (online! v)\n配置\nユーザー名\nif <(☁ 1p) = [0]> then\n    ユーザー名\n    forever\n        set [1p? v] to [1]\n        set [☁ 1p v] to (join (利用者②) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((スクロールｘ) + (([x position v] of [プレイヤー v]) + (1500))) (join ((スクロールｙ) + (([y position v] of [プレイヤー v]) + (1500))) (join ((チャット) + (10)) (join (動ける？) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))))\n    end\nelse\n    if <(☁ 2p) = [0]> then\n        ユーザー名\n        forever\n            set [1p? v] to [2]\n            set [☁ 2p v] to (join (利用者②) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((スクロールｘ) + (([x position v] of [プレイヤー v]) + (1500))) (join ((スクロールｙ) + (([y position v] of [プレイヤー v]) + (1500))) (join ((チャット) + (10)) (join (動ける？) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))))\n        end\n    else\n        if <(☁ 3p) = [0]> then\n            ユーザー名\n            forever\n                set [1p? v] to [3]\n                set [☁ 3p v] to (join (利用者②) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((スクロールｘ) + (([x position v] of [プレイヤー v]) + (1500))) (join ((スクロールｙ) + (([y position v] of [プレイヤー v]) + (1500))) (join ((チャット) + (10)) (join (動ける？) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))))\n            end\n        else\n            if <(☁ 4p) = [0]> then\n                ユーザー名\n                forever\n                    set [1p? v] to [4]\n                    set [☁ 4p v] to (join (利用者②) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((スクロールｘ) + (([x position v] of [プレイヤー v]) + (1500))) (join ((スクロールｙ) + (([y position v] of [プレイヤー v]) + (1500))) (join ((チャット) + (10)) (join (動ける？) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))))\n                end\n            else\n                if <(☁ 5p) = [0]> then\n                    ユーザー名\n                    forever\n                        set [1p? v] to [5]\n                        set [☁ 5p v] to (join (利用者②) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((スクロールｘ) + (([x position v] of [プレイヤー v]) + (1500))) (join ((スクロールｙ) + (([y position v] of [プレイヤー v]) + (1500))) (join ((チャット) + (10)) (join (動ける？) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))))\n                    end\n                else\n                    if <(☁ 6p) = [0]> then\n                        ユーザー名\n                        forever\n                            set [1p? v] to [6]\n                            set [☁ 6p v] to (join (利用者②) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((スクロールｘ) + (([x position v] of [プレイヤー v]) + (1500))) (join ((スクロールｙ) + (([y position v] of [プレイヤー v]) + (1500))) (join ((チャット) + (10)) (join (動ける？) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))))\n                        end\n                    else\n                        if <(☁ 7p) = [0]> then\n                            ユーザー名\n                            forever\n                                set [1p? v] to [7]\n                                set [☁ 7p v] to (join (利用者②) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((スクロールｘ) + (([x position v] of [プレイヤー v]) + (1500))) (join ((スクロールｙ) + (([y position v] of [プレイヤー v]) + (1500))) (join ((チャット) + (10)) (join (動ける？) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))))\n                            end\n                        else\n                            if <(☁ 8p) = [0]> then\n                                ユーザー名\n                                forever\n                                    set [1p? v] to [8]\n                                    set [☁ 8p v] to (join (利用者②) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((スクロールｘ) + (([x position v] of [プレイヤー v]) + (1500))) (join ((スクロールｙ) + (([y position v] of [プレイヤー v]) + (1500))) (join ((チャット) + (10)) (join (動ける？) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))))\n                                end\n                            else\n                                if <(☁ 9p) = [0]> then\n                                    ユーザー名\n                                    forever\n                                        set [1p? v] to [9]\n                                        set [☁ 9p v] to (join (利用者②) (join (([costume # v] of [プレイヤー v]) + (10)) (join ((スクロールｘ) + (([x position v] of [プレイヤー v]) + (1500))) (join ((スクロールｙ) + (([y position v] of [プレイヤー v]) + (1500))) (join ((チャット) + (10)) (join (動ける？) (letter (length of ([floor v] of (timer) )) of ([floor v] of (timer) ))))))))\n                                    end\n                                else\n                                    wait (0.1) seconds\n                                    broadcast (満員 v)\n                                    wait (1) seconds\n                                    stop [this script v]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [online! v]\nforever\n    delete all of [1~10p v]\n    add (☁ 1p) to [1~10p v]\n    add (☁ 2p) to [1~10p v]\n    add (☁ 3p) to [1~10p v]\n    add (☁ 4p) to [1~10p v]\n    add (☁ 5p) to [1~10p v]\n    add (☁ 6p) to [1~10p v]\n    add (☁ 7p) to [1~10p v]\n    add (☁ 8p) to [1~10p v]\n    add (☁ 9p) to [1~10p v]\n    wait (1.5) seconds\n    if <(letter (54) of (item (1) of [1~10p v])) = (letter (54) of (item (1) of [1~10p2 v]))> then\n        set [☁ 1p v] to [0]\n    end\n    if <(letter (54) of (item (2) of [1~10p v])) = (letter (54) of (item (2) of [1~10p2 v]))> then\n        set [☁ 2p v] to [0]\n    end\n    if <(letter (54) of (item (3) of [1~10p v])) = (letter (54) of (item (3) of [1~10p2 v]))> then\n        set [☁ 3p v] to [0]\n    end\n    if <(letter (54) of (item (4) of [1~10p v])) = (letter (54) of (item (4) of [1~10p2 v]))> then\n        set [☁ 4p v] to [0]\n    end\n    if <(letter (54) of (item (5) of [1~10p v])) = (letter (54) of (item (5) of [1~10p2 v]))> then\n        set [☁ 5p v] to [0]\n    end\n    if <(letter (54) of (item (6) of [1~10p v])) = (letter (54) of (item (6) of [1~10p2 v]))> then\n        set [☁ 6p v] to [0]\n    end\n    if <(letter (54) of (item (7) of [1~10p v])) = (letter (54) of (item (7) of [1~10p2 v]))> then\n        set [☁ 7p v] to [0]\n    end\n    if <(letter (54) of (item (8) of [1~10p v])) = (letter (54) of (item (8) of [1~10p2 v]))> then\n        set [☁ 8p v] to [0]\n    end\n    if <(letter (54) of (item (9) of [1~10p v])) = (letter (54) of (item (9) of [1~10p2 v]))> then\n        set [☁ 9p v] to [0]\n    end\nend\n\nwhen I receive [online! v]\nhide\n\nwhen flag clicked\nforever\n    delete all of [1~10p2 v]\n    add (☁ 1p) to [1~10p2 v]\n    add (☁ 2p) to [1~10p2 v]\n    add (☁ 3p) to [1~10p2 v]\n    add (☁ 4p) to [1~10p2 v]\n    add (☁ 5p) to [1~10p2 v]\n    add (☁ 6p) to [1~10p2 v]\n    add (☁ 7p) to [1~10p2 v]\n    add (☁ 8p) to [1~10p2 v]\n    add (☁ 9p) to [1~10p2 v]\nend\n\nwhen flag clicked\ndelete all of [利用者 v]\nset [☁ 1p v] to [0]\nset [☁ 2p v] to [0]\nset [☁ 3p v] to [0]\nset [☁ 4p v] to [0]\nset [☁ 5p v] to [0]\nset [☁ 6p v] to [0]\nset [☁ 7p v] to [0]\nset [☁ 8p v] to [0]\nset [☁ 9p v] to [0]\nset [1p? v] to [0]\n\nwhen flag clicked\nbroadcast (online v)\n\n@背景2\n\nwhen flag clicked\nhide\n[0] [0] [7]\n\ndefine (x) (y) (コスチューム)\ngo to x: (x) y: (y)\nswitch costume to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\ngo to [back v] layer\nforever\n    go to x: ((([x position v] of [プレイヤー v]) / (10)) * (1.5)) y: ((([y position v] of [プレイヤー v]) / (10)) * (1.5))\n    go to [back v] layer\n    show\nend\n\nwhen I start as a clone\nforever\n    if <(costume [number v]) = [6]> then\n        go to x: ((([x position v] of [プレイヤー v]) / (15)) * (1.5)) y: ((([y position v] of [プレイヤー v]) / (15)) * (1.5))\n        go to [back v] layer\n        go [forward v] (1) layers\n        show\n    end\nend\n\nif <(costume [number v]) = [5]> then\n\n[0] [0] [5]\n[0] [0] [6]\n\n@Trees\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nステージ [400] [0] [1]\nステージ [1730] [220] [2]\nステージ [2250] [630] [3]\nステージ [3070] [1120] [4]\nステージ [1000] [1800] [5]\nステージ [3770] [695] [6]\nステージ [2500] [1350] [7]\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\nwhen I start as a clone\nshow\nforever\n    go to [back v] layer\n    go [forward v] (1) layers\n    移動 ((1) - (スクロールｘ)) (((2) - (スクロールｙ)) + (ガガガガンマン))\nend\n\ndefine ステージ (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nswitch costume to (3)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nbroadcast (スタート v)\n\n@水\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nステージ [1200] [50] [1]\nステージ [2370] [1200] [2]\nステージ [1000] [1800] [3]\nステージ [0] [600] [4]\n\ndefine ステージ (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nswitch costume to (3)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\ngo to [back v] layer\ngo [forward v] (1) layers\nforever\n    if <(costume [number v]) = [1]> then\n        移動 ((1) - (スクロールｘ)) ((((2) - (スクロールｙ)) + (([sin v] of ((timer) * (150)) ) * (10))) + (ガガガガンマン))\n    else\n        if <(costume [number v]) = [4]> then\n            set [ghost v] effect to (99)\n        end\n        移動 ((1) - (スクロールｘ)) (((2) - (スクロールｙ)) + (ガガガガンマン))\n    end\nend\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    if <not <(costume [number v]) = [4]>> then\n        set [ghost v] effect to (45)\n    end\n    show\nelse\n    hide\nend\n\n@地面\n\nwhen flag clicked\nステージ [0] [0] [1]\nステージ [500] [0] [2]\nステージ [1000] [0] [3]\nステージ [1650] [0] [4]\nステージ [2250] [630] [5]\nステージ [2800] [630] [6]\nステージ [3400] [630] [7]\nステージ [3550] [900] [8]\nステージ [3070] [1120] [9]\nステージ [2500] [1350] [10]\nステージ [2300] [1000] [11]\nステージ [1800] [1200] [12]\nステージ [1200] [1300] [13]\nステージ [1000] [1800] [14]\nステージ [440] [1850] [15]\nステージ [0] [2300] [16]\n\ndefine ステージ (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nswitch costume to (3)\ncreate clone of (_myself_ v)\n\ndefine 動く (動き)\nswitch costume to (6 v)\nif <<touching (プレイヤー v)?> and <(y1) = [0]>> then\n    set [- v] to ((0) - ((+) - (動き)))\nelse\n    set [- v] to [0]\nend\nset [+ v] to (動き)\n移動 (((1) - (スクロールｘ)) + (+)) (((2) - (スクロールｙ)) + (ガガガガンマン))\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\nwhen I start as a clone\nshow\ngo to [front v] layer\ngo [backward v] (5) layers\nforever\n    if <(costume [number v]) = [6]> then\n        動く (([sin v] of (((days since 2000) * (86000)) * (70)) ) * (150))\n    else\n        if <(costume [number v]) = [9]> then\n            go [backward v] (10) layers\n        end\n        移動 ((1) - (スクロールｘ)) (((2) - (スクロールｙ)) + (ガガガガンマン))\n    end\nend\n\nwhen flag clicked\nhide\n\n@はしご\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nステージ [500] [200] [1]\nステージ [1740] [220] [2]\nステージ [2800] [1300] [3]\n\ndefine ステージ (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nswitch costume to (3)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\ngo to [front v] layer\nforever\n    移動 ((1) - (スクロールｘ)) (((2) - (スクロールｙ)) + (ガガガガンマン))\nend\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\n@棘（致死率100％）\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nステージ [300] [0] [1]\nステージ [2800] [630] [2]\nステージ [2300] [1000] [3]\n\ndefine ステージ (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nswitch costume to (3)\ncreate clone of (_myself_ v)\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\ndefine 動く (動き)\nswitch costume to (トゲ2 v)\nif <<touching (プレイヤー v)?> and <(y1) = [0]>> then\n    set [- v] to ((0) - ((+) - (動き)))\nelse\n    set [- v] to [0]\nend\nset [+ v] to (動き)\n移動 (((1) - (スクロールｘ)) + (+)) (((2) - (スクロールｙ)) + (ガガガガンマン))\n\nwhen I start as a clone\nshow\ngo to [front v] layer\ngo [backward v] (2) layers\nforever\n    if <(costume [number v]) = [2]> then\n        動く (([sin v] of (((days since 2000) * (86000)) * (70)) ) * (150))\n    else\n        移動 ((1) - (スクロールｘ)) (((2) - (スクロールｙ)) + (ガガガガンマン))\n    end\nend\n\n@チェックポイント\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nswitch costume to (旗 v)\nステージ [3650] [478] [1]\nステージ [2290] [1140] [2]\n\ndefine ステージ (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nswitch costume to (3)\ncreate clone of (_myself_ v)\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\nwhen I start as a clone\nshow\nforever\n    移動 ((1) - (スクロールｘ)) (((2) - (スクロールｙ)) + (ガガガガンマン))\nend\n\nwhen I start as a clone\nset size to (100) %\nset [ghost v] effect to (0)\nforever\n    if <touching (プレイヤー v)?> then\n        go to [front v] layer\n        set [x2 v] to ((1) - (90))\n        set [y2 v] to ((2) + (50))\n        repeat (20)\n            change size by (1)\n            change [ghost v] effect by (5)\n        end\n        delete this clone\n    end\nend\n\nwhen I start as a clone\nforever\n    go to [front v] layer\n    wait (0.08) seconds\n    go to [front v] layer\n    next costume\nend\n\n@ゴール\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nswitch costume to (旗 v)\nステージ [0] [2340] [1]\n\ndefine ステージ (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nswitch costume to (3)\ncreate clone of (_myself_ v)\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\nwhen I start as a clone\nshow\nforever\n    移動 ((1) - (スクロールｘ)) (((2) - (スクロールｙ)) + (ガガガガンマン))\nend\n\nwhen I start as a clone\nset size to (200) %\nset [ghost v] effect to (0)\nforever\n    if <touching (プレイヤー v)?> then\n        broadcast (Yショック v)\n        go to [front v] layer\n        set [x2 v] to [30]\n        set [y2 v] to ((2360) + (50))\n        repeat (20)\n            change size by (1)\n            change [ghost v] effect by (5)\n        end\n        delete this clone\n    end\nend\n\nwhen I start as a clone\nforever\n    go to [front v] layer\n    wait (0.08) seconds\n    go to [front v] layer\n    next costume\nend\n\nwhen I start as a clone\nrepeat until <touching (プレイヤー v)?>\n    set [time v] to ((round ((timer) * (10))) / (10))\nend\nbroadcast (☁time v)\nif <(time) < (☁ time)> then\n    set [☁ time v] to (time)\nend\n\n@バネ\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nステージ [1200] [1437] [1]\nステージ [180] [1960] [1]\n\ndefine ステージ (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nswitch costume to (3)\ncreate clone of (_myself_ v)\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\nwhen I start as a clone\nshow\ngo to [back v] layer\ngo [backward v] (2) layers\nforever\n    移動 ((1) - (スクロールｘ)) (((2) - (スクロールｙ)) + (ガガガガンマン))\nend\n\nwhen I start as a clone\nswitch costume to (bbbbbbane v)\ngo to [back v] layer\nforever\n    if <touching (プレイヤー v)?> then\n        switch costume to (bbbbbbane v)\n        start sound [バネ v]\n        repeat (7)\n            next costume\n        end\n        repeat (7)\n            switch costume to ((costume [number v]) - (1))\n        end\n    end\nend\n\n@コイン\n\nwhen flag clicked\nset volume to (100) %\nset [coin v] to [0]\nhide\n\nwhen flag clicked\nステージ [-172] [45] [1]\nステージ [410] [105] [1]\nステージ [545] [170] [1]\nステージ [705] [245] [1]\nステージ [1600] [10] [1]\nステージ [1600] [60] [1]\nステージ [2160] [630] [1]\nステージ [2230] [630] [1]\nステージ [2310] [630] [1]\nステージ [3240] [625] [1]\nステージ [3830] [445] [1]\nステージ [3385] [1028] [1]\nステージ [3320] [1055] [1]\nステージ [3000] [1130] [1]\nステージ [2540] [1420] [1]\nステージ [1310] [1395] [1]\nステージ [1100] [1395] [1]\nステージ [400] [1920] [1]\nステージ [0] [2370] [1]\nステージ [60] [2370] [1]\n\ndefine ステージ (1) (2) (3)\nset [1 v] to (1)\nset [2 v] to (2)\nswitch costume to (3)\ncreate clone of (_myself_ v)\n\ndefine 移動 (ｘ) (ｙ)\ngo to x: (ｘ) y: (ｙ)\nif <<(x position) = (ｘ)> and <(y position) = (ｙ)>> then\n    show\nelse\n    hide\nend\n\nwhen I start as a clone\nforever\n    移動 ((1) - (スクロールｘ)) (((2) - (スクロールｙ)) + (ガガガガンマン))\nend\n\nwhen I start as a clone\ngo to [back v] layer\nswitch costume to (9 v)\nset size to (100) %\nset [ghost v] effect to (0)\nshow\ngo to [back v] layer\ngo [backward v] (2) layers\nwait (0.01) seconds\nforever\n    if <touching (プレイヤー v)?> then\n        start sound [coin001 v]\n        change [coin v] by (1)\n        repeat (5)\n            change [ghost v] effect by (10)\n            change size by (((0) - (size)) / (4))\n        end\n        switch costume to (9 v)\n        clear graphic effects\n        go to [front v] layer\n        set size to (100) %\n        switch costume to (9 v)\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\nwhen I start as a clone\nswitch costume to (1 v)\nforever\n    if <(costume [number v]) = [9]> then\n        stop [this script v]\n    end\n    next costume\n    wait (0.05) seconds\n    if <(costume [number v]) = [8]> then\n        switch costume to (1 v)\n    end\nend\n\n@SHOP\n\nwhen flag clicked\nshow\ngo to x: (0) y: (0)\nforever\n    set [ghost v] effect to (30)\n    go to [front v] layer\n    if <touching (mouse-pointer v)?> then\n        set [brightness v] effect to (20)\n        if <mouse down?> then\n            broadcast (shop v)\n            hide\n            go to x: ((7) / (0)) y: ((7) / (0))\n        end\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen I receive [shop✖ v]\ngo to x: (0) y: (0)\nshow\n\nwhen [timer v] > (タイマー)\nhide\n\n@shop\n\nwhen I receive [shop v]\ngo to x: ((0) - ((1) / (0))) y: (0)\ngo to [front v] layer\nset size to (100) %\nshow\n[0] に行く [10]\nrepeat until <<touching (mouse-pointer v)?> and <mouse down?>>\n    go to [front v] layer\n    go [backward v] (3) layers\n    go to x: (0) y: (0)\nend\nbroadcast (shop✖ v)\nrepeat (10)\n    change size by ((((0) - (size)) + (5)) / (4))\nend\nhide\n\ndefine (x) に行く (スピード)\nrepeat until <(round (x position)) = (x)>\n    go to [front v] layer\n    go [backward v] (3) layers\n    change x by (((x) - (x position)) / (スピード))\nend\n\nwhen flag clicked\nhide\n\n@OK\n\nwhen I receive [shop v]\nwait (0.01) seconds\ngo to (shop v)\nshow\nrepeat until <(x position) = [0]>\n    go to (shop v)\n    go to [front v] layer\n    go [forward v] (10) layers\nend\nrepeat until <not <(x position) = [0]>>\n    go to [front v] layer\n    go [forward v] (10) layers\nend\n\nwhen flag clicked\ndelete all of [アイテム v]\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [shop✖ v]\ngo to x: (1) y: (0)\nhide\n\nwhen this sprite clicked\nif <(costume [number v]) = [1]> then\n    if <[4] < (coin)> then\n        switch costume to (コスチューム2 v)\n        change [coin v] by (-5)\n        add [ジャンプ] to [アイテム v]\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [1]> then\n        if <touching (mouse-pointer v)?> then\n            set [brightness v] effect to (10)\n        else\n            set [brightness v] effect to (0)\n        end\n    end\nend\n\n@OK2\n\nwhen I receive [shop v]\nwait (0.01) seconds\ngo to (shop v)\nshow\nrepeat until <(x position) = [0]>\n    go to (shop v)\n    go to [front v] layer\n    go [forward v] (10) layers\nend\nrepeat until <not <(x position) = [0]>>\n    go to [front v] layer\n    go [forward v] (10) layers\nend\n\nwhen flag clicked\ndelete all of [アイテム v]\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [shop✖ v]\ngo to x: (1) y: (0)\nhide\n\nwhen this sprite clicked\nif <(costume [number v]) = [1]> then\n    if <[9] < (coin)> then\n        switch costume to (コスチューム2 v)\n        change [coin v] by (-10)\n        add [スピード] to [アイテム v]\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [1]> then\n        if <touching (mouse-pointer v)?> then\n            set [brightness v] effect to (10)\n        else\n            set [brightness v] effect to (0)\n        end\n    end\nend\n\n@OK3\n\nwhen I receive [shop v]\nwait (0.01) seconds\ngo to (shop v)\nshow\nrepeat until <(x position) = [0]>\n    go to (shop v)\n    go to [front v] layer\n    go [forward v] (10) layers\nend\nrepeat until <not <(x position) = [0]>>\n    go to [front v] layer\n    go [forward v] (10) layers\nend\n\nwhen flag clicked\ndelete all of [アイテム v]\nswitch costume to (コスチューム1 v)\nhide\n\nwhen I receive [shop✖ v]\ngo to x: (1) y: (0)\nhide\n\nwhen this sprite clicked\nif <(costume [number v]) = [1]> then\n    if <[4] < (coin)> then\n        switch costume to (コスチューム2 v)\n        change [coin v] by (-5)\n        add [レインボー] to [アイテム v]\n    end\nend\n\nwhen flag clicked\nforever\n    if <(costume [number v]) = [1]> then\n        if <touching (mouse-pointer v)?> then\n            set [brightness v] effect to (10)\n        else\n            set [brightness v] effect to (0)\n        end\n    end\nend\n\n@Chat\n\nwhen flag clicked\nshow\nforever\n    go to [front v] layer\n    go to x: (0) y: (0)\nend\n\nwhen this sprite clicked\nif <(costume [number v]) = [1]> then\n    start sound [選択 v]\n    wait until <not <mouse down?>>\n    if <(チャットワーク) = [0]> then\n        set [チャットワーク v] to [1]\n        create clone of (_myself_ v)\n    end\nelse\n    wait until <not <mouse down?>>\n    if <not <(costume [name v]) = [0]>> then\n        stop [other scripts in sprite v]\n        wait (0.1) seconds\n        start sound [選択 v]\n        set [チャット v] to (costume [name v])\n        broadcast (チャット v)\n        set [チャットワーク v] to [0]\n    end\nend\ndelete this clone\n\nwhen flag clicked\nset [チャット v] to []\nset [チャットワーク v] to [0]\ngo to x: (0) y: (0)\nswitch costume to (chat/チャット v)\nset size to (100) %\nclear graphic effects\ngo to [front v] layer\nshow\nforever\n    if <touching (mouse-pointer v)?> then\n        set [brightness v] effect to (20)\n    else\n        set [brightness v] effect to (0)\n    end\nend\n\nwhen I receive [チャット v]\nif <(costume [number v]) = [1]> then\n    wait (7) seconds\n    set [チャット v] to []\nend\n\nwhen I start as a clone\nwait until <not <mouse down?>>\ngo to x: (-100) y: (-30)\nclear graphic effects\nswitch costume to (0 v)\nset size to (5) %\nrepeat (8)\n    go to [front v] layer\n    change size by (((size) + (5)) / (4))\nend\nrepeat (25)\n    go to [front v] layer\n    change size by (((100) - (size)) / (4))\nend\nforever\n    if <touching (mouse-pointer v)?> then\n        if <[72] < (mouse y)> then\n            switch costume to (1 v)\n        else\n            if <[50] < (mouse y)> then\n                switch costume to (2 v)\n            else\n                if <[22] < (mouse y)> then\n                    switch costume to (3 v)\n                else\n                    if <[-3] < (mouse y)> then\n                        switch costume to (4 v)\n                    else\n                        if <[-32] < (mouse y)> then\n                            switch costume to (5 v)\n                        else\n                            if <[-54] < (mouse y)> then\n                                switch costume to (6 v)\n                            else\n                                if <[-78] < (mouse y)> then\n                                    switch costume to (7 v)\n                                else\n                                    if <[-106] < (mouse y)> then\n                                        switch costume to (8 v)\n                                    else\n                                        if <[-141] < (mouse y)> then\n                                            switch costume to (9 v)\n                                        else\n                                            switch costume to (10 v)\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    else\n        switch costume to (0 v)\n        if <mouse down?> then\n            set [チャットワーク v] to [0]\n            repeat (10)\n                change size by ((((0) - (size)) + (5)) / (4))\n            end\n            delete this clone\n        end\n    end\nend\n\nwhen [timer v] > (タイマー)\nhide\n\n@オンライン素材2\n\nwhen flag clicked\nforever\n    wait until <<mouse down?> or <<key (up arrow v) pressed?> or <<key (down arrow v) pressed?> or <<key (right arrow v) pressed?> or <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<key (d v) pressed?> or <<key (s v) pressed?> or <key (w v) pressed?>>>>>>>>>\n    set [アウト～ v] to [0]\nend\n\nwhen flag clicked\nhide\nforever\n    wait (1) seconds\n    change [アウト～ v] by (1)\n    if <[60] < (アウト～)> then\n        broadcast (アウト～ v)\n        stop [all v]\n    end\nend\n\nwhen [timer v] > (タイマー)\nif <[59] < (アウト～)> then\n    forever\n        go to x: (0) y: (0)\n        switch costume to (満員 v)\n        show\n        go to [front v] layer\n    end\nend\n\nwhen flag clicked\nset [満員 v] to [0]\n\nwhen flag clicked\nset [new v] to [0]\nwait (1.1) seconds\nif <(username) = []> then\n    set [new v] to [1]\n    stop [all v]\nend\n\nwhen I receive [満員 v]\nset [満員 v] to [1]\nstop [all v]\n\n@サムネ\n\ndefine ブロック名 (x座標) (コスチューム) \ngo to x: (x座標) y: (0)\nswitch costume to (コスチューム)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nif <(costume [number v]) = [1]> then\n    go to [back v] layer\n    go [forward v] (10) layers\n    ブロック名 [0] に行く [10]\n    wait (0.2) seconds\nelse\n    if <(costume [number v]) = [2]> then\n        go to [back v] layer\n        go [forward v] (11) layers\n        ブロック名 [0] に行く [10]\n    else\n        if <(costume [number v]) = [3]> then\n            go to [back v] layer\n            go [forward v] (12) layers\n            ブロック名 [0] に行く [10]\n        else\n            if <(costume [number v]) = [4]> then\n                go to [back v] layer\n                go [forward v] (13) layers\n                ブロック名 [0] に行く [10]\n            else\n                if <(costume [number v]) = [5]> then\n                    go to [back v] layer\n                    go [forward v] (14) layers\n                    ブロック名 [0] に行く [10]\n                else\n                    if <(costume [number v]) = [6]> then\n                        go to [back v] layer\n                        go [forward v] (15) layers\n                        ブロック名 [0] に行く [10]\n                    else\n                        if <(costume [number v]) = [7]> then\n                            go to [front v] layer\n                            go [forward v] (16) layers\n                            ブロック名 [0] に行く [10]\n                        end\n                        if <(costume [number v]) = [19]> then\n                            go to [front v] layer\n                            go [forward v] (16) layers\n                            ブロック名 [0] に行く [15]\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine ブロック名 (x) に行く (スピード)\nrepeat until <(round (x position)) = (x)>\n    change x by (((x) - (x position)) / (スピード))\nend\n\nwhen flag clicked\nhide\nset [アウト～ v] to [0]\nforever\n    set [タイマー v] to (timer)\nend\n\nwhen [timer v] > (タイマー)\nhide\nif <<(アウト～) < [60]> or <<not <(満員) = [1]>> or <not <(NEW) = [1]>>>> then\n    ブロック名 ((1) / (0)) [1] \n    wait (0.5) seconds\n    ブロック名 ((0) - ((1) / (0))) [2] \n    wait (0.5) seconds\n    ブロック名 ((1) / (0)) [4] \n    wait (0.5) seconds\n    ブロック名 ((0) - ((1) / (0))) [3] \n    wait (0.5) seconds\n    ブロック名 ((1) / (0)) [5] \n    wait (0.5) seconds\n    ブロック名 ((0) - ((1) / (0))) [6] \n    wait (0.5) seconds\n    ブロック名 ((1) / (0)) [7] \n    wait (0.5) seconds\n    ブロック名 ((0) - ((1) / (0))) [19] \nend\n\nwhen I start as a clone\nif <(costume [number v]) = [5]> then\n    forever\n        if <(costume [number v]) = [5]> then\n            switch costume to (コスチューム7 v)\n        else\n            if <(costume [number v]) = [14]> then\n                switch costume to (コスチューム4 v)\n            else\n                next costume\n            end\n            wait (0.07) seconds\n        end\n    end\nend\n\nwhen [timer v] > (タイマー)\nif <[59] < (アウト～)> then\n    forever\n        go to x: (0) y: (0)\n        switch costume to (コスチューム14 v)\n        show\n        go to [front v] layer\n    end\nend\n\nwhen [timer v] > (タイマー)\nif <(満員) = [1]> then\n    forever\n        go to x: (0) y: (0)\n        switch costume to (コスチューム15 v)\n        show\n        go to [front v] layer\n    end\nend\n\nwhen [timer v] > (タイマー)\nif <(NEW) = [1]> then\n    forever\n        go to x: (0) y: (0)\n        switch costume to (コスチューム16 v)\n        show\n        go to [front v] layer\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [2]> then\n    forever\n        set y to ((0) + (([sin v] of ((100) * (sin2)) ) * (15)))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    forever\n        set y to ((0) + (([sin v] of ((100) * (sin)) ) * (15)))\n    end\nend\n\nwhen I start as a clone\nif <<(costume [number v]) = [3]> or <<(costume [number v]) = [7]> or <<(costume [number v]) = [8]> or <<(costume [number v]) = [9]> or <<(costume [number v]) = [10]> or <<(costume [number v]) = [11]> or <<(costume [number v]) = [12]> or <(costume [number v]) = [13]>>>>>>>> then\n    forever\n        set y to ((0) + (([sin v] of ((100) * (sin3)) ) * (15)))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [4]> then\n    forever\n        set y to ((0) + (([sin v] of ((100) * (sin3)) ) * (15)))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [5]> then\n    forever\n        set y to ((0) + (([sin v] of ((100) * (sin3)) ) * (15)))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [6]> then\n    forever\n        set y to ((0) + (([sin v] of ((100) * (sin6)) ) * (15)))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [7]> then\n    forever\n        set y to ((0) + (([sin v] of ((100) * (sin7)) ) * (15)))\n    end\nend\n\nwhen [timer v] > (タイマー)\nset [sin7 v] to [0]\nwait (0.5) seconds\nforever\n    change [sin7 v] by (0.05)\nend\n\nwhen [timer v] > (タイマー)\nset [sin6 v] to [0]\nforever\n    change [sin6 v] by (0.03)\nend\n\nwhen [timer v] > (タイマー)\nset [sin3 v] to [0]\nwait (0.2) seconds\nforever\n    change [sin3 v] by (0.04)\nend\n\nwhen [timer v] > (タイマー)\nset [sin2 v] to [0]\nwait (0.5) seconds\nforever\n    change [sin2 v] by (0.02)\nend\n\nwhen [timer v] > (タイマー)\nset [sin v] to [0]\nforever\n    change [sin v] by (0.01)\nend\n\n@☁\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\n    go [backward v] (1) layers\nend\n\nwhen I receive [☁time v]\nif <(☁ time) < [1000]> then\n    switch costume to (コスチューム3 v)\nend\nif <(☁ time) < [100]> then\n    switch costume to (コスチューム1 v)\nend\nif <(☁ time) < [10]> then\n    switch costume to (コスチューム2 v)\nend\ngo to x: ((1) / (0)) y: (0)\nshow\n[0] に行く [8]\n\ndefine (x) に行く (スピード)\nrepeat until <(round (x position)) = (x)>\n    change x by (((x) - (x position)) / (スピード))\nend\n\nwhen [timer v] > (タイマー)\nhide\n\n@装飾\n\nwhen flag clicked\nforever\n    go to [front v] layer\n    go to x: (0) y: (0)\n    show\n    if <(time) < [10]> then\n        switch costume to (コスチューム3 v)\n    else\n        if <(time) < [100]> then\n            switch costume to (コスチューム2 v)\n        else\n            if <(time) < [1000]> then\n                switch costume to (コスチューム1 v)\n            else\n                if <(time) < [10000]> then\n                    switch costume to (コスチューム4 v)\n                else\n                    if <(time) < [100000]> then\n                        switch costume to (コスチューム5 v)\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen [timer v] > (タイマー)\nhide\n\n@time表示プログラム\n\ndefine setup count\nswitch costume to (9 v)\nhide\nset size to (200) %\ngo to x: (-40) y: (142)\nset [clone id v] to [1]\nrepeat (10)\n    create clone of (_myself_ v)\n    change x by (20)\n    change [clone id v] by (1)\nend\n\nwhen flag clicked\nsetup count\n\nwhen I start as a clone\nshow\nforever\n    go to [front v] layer\n    change costume to (letter (clone id) of (coin))\nend\n\ndefine change costume to (cos)\nif <not <(cos) = (costume [name v])>> then\n    switch costume to (cos)\nend\n\n@time表示プログラム2\n\ndefine setup count\nswitch costume to (9 v)\nhide\nset size to (100) %\ngo to x: (80) y: (133)\nset [clone id v] to [1]\nrepeat (10)\n    create clone of (_myself_ v)\n    change x by (17)\n    change [clone id v] by (1)\nend\n\nwhen flag clicked\nhide\nsetup count\n\nwhen I start as a clone\nshow\nforever\n    go to [front v] layer\n    change costume to (letter (clone id) of (time))\nend\n\ndefine change costume to (cos)\nif <not <(cos) = (costume [number v])>> then\n    switch costume to (cos)\nend\n\n@time表示プログラム3\n\ndefine setup count\nswitch costume to (9 v)\nhide\nset size to (100) %\ngo to x: (80) y: (79)\nset [clone id v] to [1]\nrepeat (11)\n    create clone of (_myself_ v)\n    change x by (17)\n    change [clone id v] by (1)\nend\n\nwhen I start as a clone\nshow\nforever\n    if <(letter (clone id) of (☁ time)) = [.]> then\n        switch costume to ( v)\n    else\n        change costume to (letter (clone id) of (☁ time))\n    end\n    go to [front v] layer\n    go [forward v] (1) layers\nend\n\ndefine change costume to (cos)\nif <not <(cos) = (costume [number v])>> then\n    switch costume to (cos)\nend\n\nwhen I receive [☁time v]\nwait (1.2) seconds\nhide\nsetup count\n\nwhen flag clicked\nhide\n\n