Sunrise platformer   朝焼けのプラットフォーマー　#platformer

Instructions: 日本語は下にあります。\n\n<English>\nYou can move the character with the arrow keys, wads, and screen taps.\n\nIf you touch the magma or thorns or fall down, you will have to start over.\n\nPlease do your best to reach the goal!\n\nPlease let us know in the comments how many seconds you have reached the goal!\n\n<日本語>\n矢印キー、wads、画面タップでキャラクターを動かすことができます。\n\nマグマやトゲに触れたり、下に落ちたりすると、やり直しです。\n\nゴールを目指して頑張ってください！\n

@Stage\n\n@地面\n\nwhen I receive [次のステージ v]\nif <<(動いていい?) = [0]> and <not <(costume [name v]) = [最後]>>> then\n    wait (1) seconds\n    broadcast (uuu v)\n    next costume\n    if <(costume [number v]) = [14]> then\n        wait (2) seconds\n        broadcast (クリアするよ v)\n    end\nend\n\nwhen I receive [メッセージ1 v]\nrepeat (10)\n    switch costume to (地面1 v)\nend\n\nwhen I receive [メッセージ1 v]\nshow\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nrepeat (50)\n    switch costume to (地面1 v)\nend\n\nwhen flag clicked\nset [タイマー v] to [0]\nhide\n\n@Next!\n\nwhen I receive [次のステージ v]\nset [次のステージ v] to [1]\nset [動いていい? v] to [0]\nhide\nstart sound [Collect v]\nclone [1]\nwait (0.05) seconds\nclone [2]\nwait (0.05) seconds\nclone [3]\nwait (0.05) seconds\nclone [4]\nwait (0.05) seconds\nclone [5]\n\nwhen I start as a clone\nshow\nif <<(costume [number v]) = [1]> or <<(costume [number v]) = [2]> or <<(costume [number v]) = [3]> or <<(costume [number v]) = [4]> or <(costume [number v]) = [5]>>>>> then\n    go to x: (468) y: (0)\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (7))\n    end\nend\n\nwhen I start as a clone\nset [動いていい? v] to [0]\ngo to [front v] layer\nif <(costume [number v]) = [1]> then\n    wait (2.2) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [2]> then\n    wait (2.1) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [3]> then\n    wait (2) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [4]> then\n    wait (1.9) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [5]> then\n    wait (1.8) seconds\n    repeat until <[330] < (x position)>\n        change x by ((1) + ((x position) / (4)))\n    end\n    set [次のステージ v] to [2]\n    repeat (10)\n        set [動いていい? v] to [0]\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nforever\n    go to [front v] layer\nend\n\ndefine clone (cloneid)\nswitch costume to (cloneid)\ncreate clone of (_myself_ v)\n\nwhen I receive [メッセージ1 v]\nforever\n    set volume to (音量) %\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\n\n@スプライト5\n\nwhen this sprite clicked\nbroadcast (初期設定 v)\n\nwhen I receive [設定 v]\nset [動いていい? v] to [0]\nshow\nset [設定中 v] to [1]\n\nwhen I receive [設定を閉じる v]\nset [設定中 v] to [0]\nhide\n\nwhen flag clicked\nhide variable [音量 v]\nhide\n\nwhen flag clicked\nhide\n\n@スプライト1\n\nwhen I receive [メッセージ1 v]\nset [次のステージ v] to [0]\nhide\nset [動いていい? v] to [0]\n\nwhen I receive [次のステージ v]\nwait (3) seconds\nshow\nbroadcast (表示した v)\nset [next終わり v] to [0]\n\nwhen I receive [表示した v]\nforever\n    wait until <<mouse down?> or <key (any v) pressed?>>\n    wait until <<not <mouse down?>> or <key (any v) pressed?>>\n    wait until <<mouse down?> or <key (any v) pressed?>>\n    set [次のステージ v] to [0]\n    set [動いていい? v] to [1]\n    hide\nend\n\nwhen I receive [メッセージ1 v]\nstart sound [Coin v]\nshow\nforever\n    wait until <<mouse down?> or <key (any v) pressed?>>\n    wait until <<not <mouse down?>> or <key (any v) pressed?>>\n    set [次のステージ v] to [0]\n    set [動いていい? v] to [1]\n    hide\nend\n\nwhen I receive [aaa v]\nshow\nset [動いていい? v] to [0]\nforever\n    wait until <<mouse down?> or <key (any v) pressed?>>\n    wait until <<not <mouse down?>> or <key (any v) pressed?>>\n    set [次のステージ v] to [0]\n    set [動いていい? v] to [1]\n    hide\nend\n\nwhen I receive [iii v]\nshow\nset [動いていい? v] to [0]\nforever\n    wait until <<mouse down?> or <key (any v) pressed?>>\n    wait until <<not <mouse down?>> or <key (any v) pressed?>>\n    set [次のステージ v] to [0]\n    set [動いていい? v] to [1]\n    hide\nend\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\n\n@障害物たち\n\nwhen I receive [メッセージ1 v]\nforever\n    switch costume to ([costume # v] of [地面 v])\nend\n\nwhen I receive [メッセージ1 v]\nforever\n    if <touching (プログラム v)?> then\n        if <[1] = (触れても大丈夫)> then\n    end\nend\n\nwhen I receive [メッセージ1 v]\nshow\n\nwhen flag clicked\nhide\n\n@スプライト3\n\nwhen I receive [メッセージ1 v]\nset [ghost v] effect to (50)\n\nwhen flag clicked\nhide\n\nwhen I receive [設定 v]\nset [動いていい? v] to [0]\nshow\nset [設定中 v] to [1]\n\nwhen I receive [設定を閉じる v]\nset [設定中 v] to [0]\nhide\nset [動いていい? v] to [1]\n\nwhen I receive [メッセージ1 v]\nforever\n    if <(設定中) = [1]> then\n        set [動いていい? v] to [0]\n    end\nend\n\nwhen flag clicked\nhide\n\n@スプライト4\n\nwhen I receive [設定 v]\ngo to [front v] layer\nshow variable [音量 v]\nset [動いていい? v] to [0]\nshow\nset [設定中 v] to [1]\n\nwhen I receive [設定を閉じる v]\nhide variable [音量 v]\nset [設定中 v] to [0]\nhide\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nhide\n\n@クラウドリスト\n\ndefine 読み込み\ndelete all of [クリアした人 v]\nset [i v] to [0]\nset [雑用 v] to []\nrepeat until <(i) = (length of (☁ てんてん♪))>\n    change [i v] by (2)\n    if <(join (letter ((i) - (1)) of (☁ てんてん♪)) (letter (i) of (☁ てんてん♪))) = [00]> then\n        add (雑用) to [クリアした人 v]\n        set [雑用 v] to []\n    else\n        set [雑用 v] to (join (雑用) (item (join (letter ((i) - (1)) of (☁ てんてん♪)) (letter (i) of (☁ てんてん♪))) of [文字表 v]))\n    end\nend\n\ndefine () をクラウドリストに追加\nset [i v] to [0]\nset [雑用 v] to []\nrepeat (length of ())\n    if <[文字表 v] contains (letter (i) of ())?> then\n        change [i v] by (1)\n        set [雑用 v] to (join (雑用) (item # of (letter (i) of ()) in [文字表 v]))\n    else\n        say [文字表に含まれていない文字があります。] for (2) seconds\n        stop [this script v]\n    end\nend\nset [☁ てんてん♪ v] to (join (☁ てんてん♪) (join (雑用) [00]))\n\ndefine 文字登録\ndelete all of [文字表 v]\nrepeat (10)\n    add [] to [文字表 v]\nend\nadd [-] to [文字表 v]\nadd [_] to [文字表 v]\nadd [1] to [文字表 v]\nadd [2] to [文字表 v]\nadd [3] to [文字表 v]\nadd [4] to [文字表 v]\nadd [5] to [文字表 v]\nadd [6] to [文字表 v]\nadd [7] to [文字表 v]\nadd [8] to [文字表 v]\nadd [9] to [文字表 v]\nadd [0] to [文字表 v]\nadd [a] to [文字表 v]\nadd [b] to [文字表 v]\nadd [c] to [文字表 v]\nadd [d] to [文字表 v]\nadd [e] to [文字表 v]\nadd [f] to [文字表 v]\nadd [g] to [文字表 v]\nadd [h] to [文字表 v]\nadd [i] to [文字表 v]\nadd [j] to [文字表 v]\nadd [k] to [文字表 v]\nadd [l] to [文字表 v]\nadd [m] to [文字表 v]\nadd [n] to [文字表 v]\nadd [o] to [文字表 v]\nadd [p] to [文字表 v]\nadd [q] to [文字表 v]\nadd [r] to [文字表 v]\nadd [s] to [文字表 v]\nadd [t] to [文字表 v]\nadd [u] to [文字表 v]\nadd [v] to [文字表 v]\nadd [w] to [文字表 v]\nadd [x] to [文字表 v]\nadd [y] to [文字表 v]\nadd [z] to [文字表 v]\nadd [タイマー] to [文字表 v]\nadd [.] to [文字表 v]\nadd [と] to [文字表 v]\nadd [:] to [文字表 v]\nadd [秒] to [文字表 v]\nadd [　] to [文字表 v]\n\nwhen I receive [クリア！ v]\nhide list [クリアした人 v]\n読み込み\nif <<not < (クリアした人) contains (username)?>> and <not <(username) = []>>> then\n    (join (username) (join [:] (join (タイマー) [秒]))) をクラウドリストに追加\nend\n読み込み\n\nwhen I receive [メッセージ1 v]\nshow\n\nwhen flag clicked\nshow list [クリアした人 v]\n\nwhen I receive [クリアするよ v]\nset [kuria v] to [1]\nif <(kuria) = [1]> then\n    broadcast (クリア！ v)\nend\n\nwhen I receive [メッセージ1 v]\nreset timer\nset [タイマー v] to []\nforever\n    set [タイマー v] to (timer)\nend\n\nwhen flag clicked\nhide\n\n@スプライト6\n\nwhen this sprite clicked\nif <(現在) = [0]> then\n    set [現在 v] to [1]\n    broadcast (設定 v)\nelse\n    set [現在 v] to [0]\n    broadcast (設定を閉じる v)\n    wait (0.01) seconds\n    set [動いていい? v] to [1]\nend\n\nwhen flag clicked\ngo to [front v] layer\nhide\n\nwhen I receive [メッセージ1 v]\nshow\n\nwhen flag clicked\nhide\n\n@ばね\n\nwhen flag clicked\nhide\n\nwhen I receive [メッセージ1 v]\nswitch costume to (コスチューム1 v)\n\nwhen I receive [メッセージ1 v]\nhide\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\n\nwhen I receive [メッセージ1 v]\nforever\n    if <([costume # v] of [地面 v]) = [7]> then\n        go to x: (-60) y: (-21)\n        show\n        if <touching (プログラム v)?> then\n            switch costume to (コスチューム1 v)\n            wait (0.01) seconds\n            switch costume to (コスチューム2 v)\n            wait (0.01) seconds\n            switch costume to (コスチューム3 v)\n            wait (0.01) seconds\n            switch costume to (コスチューム4 v)\n            wait (0.01) seconds\n            switch costume to (コスチューム5 v)\n            wait (0.01) seconds\n            switch costume to (コスチューム6 v)\n            wait (0.01) seconds\n            switch costume to (コスチューム7 v)\n            wait (0.01) seconds\n            switch costume to (コスチューム8 v)\n            wait (0.01) seconds\n            switch costume to (コスチューム9 v)\n        end\n    else\n        if <([costume # v] of [地面 v]) = [11]> then\n            go to x: (-182) y: (117)\n            show\n            if <touching (プログラム v)?> then\n                switch costume to (コスチューム1 v)\n                wait (0.01) seconds\n                switch costume to (コスチューム2 v)\n                wait (0.01) seconds\n                switch costume to (コスチューム3 v)\n                wait (0.01) seconds\n                switch costume to (コスチューム4 v)\n                wait (0.01) seconds\n                switch costume to (コスチューム5 v)\n                wait (0.01) seconds\n                switch costume to (コスチューム6 v)\n                wait (0.01) seconds\n                switch costume to (コスチューム7 v)\n                wait (0.01) seconds\n                switch costume to (コスチューム8 v)\n                wait (0.01) seconds\n                switch costume to (コスチューム9 v)\n            end\n        else\n            if <([costume # v] of [地面 v]) = [12]> then\n                go to x: (0) y: (-94)\n                show\n                if <touching (プログラム v)?> then\n                    switch costume to (コスチューム1 v)\n                    wait (0.01) seconds\n                    switch costume to (コスチューム2 v)\n                    wait (0.01) seconds\n                    switch costume to (コスチューム3 v)\n                    wait (0.01) seconds\n                    switch costume to (コスチューム4 v)\n                    wait (0.01) seconds\n                    switch costume to (コスチューム5 v)\n                    wait (0.01) seconds\n                    switch costume to (コスチューム6 v)\n                    wait (0.01) seconds\n                    switch costume to (コスチューム7 v)\n                    wait (0.01) seconds\n                    switch costume to (コスチューム8 v)\n                    wait (0.01) seconds\n                    switch costume to (コスチューム9 v)\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [uuu v]\nforever\n    if <not <<([costume # v] of [地面 v]) = [7]> or <<([costume # v] of [地面 v]) = [11]> or <([costume # v] of [地面 v]) = [12]>>>> then\n        hide\n    end\nend\n\nwhen flag clicked\nhide\n\n@No turbo mode\n\nwhen flag clicked\nhide\nswitch costume to (no turbo mode v)\ngo to x: (0) y: (0)\nset rotation style [left-right v]\npoint in direction (90)\nforever\n    turn right (0.0001) degrees\n    wait (0) seconds\nend\n\nwhen flag clicked\nforever\n    wait (1) seconds\n    point in direction (90)\nend\n\nwhen flag clicked\nforever\n    if <[90.1] < (direction)> then\n        show\n        switch costume to (ターボモードになりました v)\n        go to x: (0) y: (0)\n        stop [all v]\n    else\n        hide\n        switch costume to (no turbo mode v)\n    end\nend\n\n@プログラム\n\ndefine 初期設定\npoint in direction (90)\ngo to x: (-200) y: (0)\nset [x v] to [0]\nset [y v] to [0]\nset [死んでしまった v] to [0]\nset [触れても大丈夫 v] to [0]\nset [次のステージ v] to [0]\nset [kuria v] to [0]\nset [音量変えちゃダメ v] to [0]\nset [設定中 v] to [0]\n\ndefine 動く\nset rotation style [left-right v]\nif <<<[0] < (mouse x)> and <mouse down?>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n    change [x v] by (1)\n    point in direction (90)\nend\nif <<<(mouse x) < [0]> and <mouse down?>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n    change [x v] by (-1)\n    point in direction (0)\nend\nset [x v] to ((x) * (0.9))\nchange x by (x)\nrepeat (6)\n    if <touching (地面 v)?> then\n        change y by (1)\n    end\nend\nif <touching (地面 v)?> then\n    change y by (-5)\n    change x by ((0) - (x))\n    if <<<[50] < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n        start sound [Jump v]\n        if <(x) > [0]> then\n            set [x v] to [-5]\n        else\n            set [x v] to [5]\n        end\n        set [y v] to [10]\n    else\n        set [x v] to [0]\n    end\nend\nchange [y v] by (-1)\nchange y by (y)\nif <touching (地面 v)?> then\n    change y by ((0) - (y))\n    set [y v] to [0]\nend\nchange y by (-3)\nif <<touching (地面 v)?> and <<<[50] < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>>> then\n    start sound [Jump v]\n    set [y v] to [15]\nend\nchange y by (3)\n\nwhen I receive [メッセージ1 v]\nset volume to (100) %\n初期設定\nshow\n\nwhen flag clicked\nset [音量変えちゃダメ v] to [0]\nset [設定中 v] to [0]\nhide\n\nwhen I receive [メッセージ1 v]\nforever\n    if <[245] < (x position)> then\n        set [音量変えちゃダメ v] to [1]\n        set volume to ((音量) / (2)) %\n        broadcast (次のステージ v)\n        wait (3) seconds\n        set [音量変えちゃダメ v] to [0]\n        set volume to (音量) %\n    end\nend\n\nwhen I receive [メッセージ1 v]\nforever\n    if <(y position) < [-183]> then\n        start sound [Oops v]\n        repeat (4)\n            change [ghost v] effect by (25)\n        end\n        初期設定\n        broadcast (iii v)\n        repeat (4)\n            change [ghost v] effect by (-25)\n        end\n    end\nend\n\nwhen I receive [メッセージ1 v]\nset [音量 v] to [100]\nforever\n    if <<(設定中) = [0]> and <<<(死んでしまった) = [0]> and <not <(x position) = [246]>>> and <(動いていい?) = [1]>>> then\n        show\n        動く\n    end\nend\n\nwhen I receive [死んじゃうよ v]\nset [動いていい? v] to [0]\nデス\n\nwhen I receive [メッセージ1 v]\nforever\n    if <(音量変えちゃダメ) = [1]> then\nend\n\nwhen I receive [メッセージ1 v]\nforever\n    if <(設定中) = [1]> then\n        set volume to ((音量) / (2)) %\n    end\nend\n\nwhen I receive [初期設定 v]\n初期設定\n\nwhen I receive [次のステージ v]\nset [動いていい? v] to [0]\nhide\nwait (3) seconds\n初期設定\nshow\nrepeat (10)\n    set [動いていい? v] to [0]\nend\n\nwhen I receive [メッセージ1 v]\nforever\n    set rotation style [all around v]\nend\n\ndefine デス\nstart sound [Oops v]\nset [死んでしまった v] to [1]\nset [動いていい? v] to [0]\nset [触れても大丈夫 v] to [1]\nset rotation style [all around v]\npoint in direction (90)\nset rotation style [all around v]\nset [範囲 v] to (pick random (10) to (14))\nrepeat until <[-130] > (y position)>\n    show\n    turn right (範囲) degrees\n    change y by (範囲)\n    change [範囲 v] by (-1)\nend\ngo to x: (-200) y: (0)\npoint in direction (90)\nset [触れても大丈夫 v] to [0]\n初期設定\nbroadcast (aaa v)\n\nwhen I receive [メッセージ1 v]\nset [現在 v] to [0]\n\nwhen I receive [メッセージ1 v]\nshow\n\nwhen flag clicked\nhide\n\nwhen I receive [メッセージ1 v]\nforever\n    play sound [Illenium - Let You Go \(ft v] until done\nend\n\nwhen I receive [メッセージ1 v]\nforever\n    if <touching (ばね v)?> then\n        set [y v] to [18]\n        play sound [High Whoosh v] until done\n    end\nend\n\nwhen I receive [メッセージ1 v]\nforever\n    if <touching (逆バネ v)?> then\n        set [y v] to [-18]\n        play sound [High Whoosh v] until done\n    end\nend\n\nwhen I receive [イントロ終わり/intro finish v]\nbroadcast (メッセージ1 v)\n\n@Intro/イントロ\n\nwhen flag clicked\nerase all\nbroadcast (Intro/イントロ v)\n\nwhen I receive [intro/イントロ v]\nset [終わりですかね？ v] to [0]\nset [スキップ押された？ v] to [0]\nset [とめいど v] to [100]\nset [バー高さ v] to [-450]\nset [z v] to [1]\nset [c3dx v] to [1]\nset [c3dy v] to [1]\nset [シェイク向き v] to [0]\nset [動くy v] to [0]\nset [シェイクよう v] to [0]\nset [シェイク v] to [0]\nset [動く向き v] to [0]\nset [動くx v] to [0]\nset [シェイクx v] to [0]\nset [線x v] to [-500]\nset [カメラy v] to [0]\nset [カメラx v] to [0]\nset [アイコン大きさ v] to [0]\ndelete all of [四角 v]\ndelete all of [バー v]\nset [線太さー v] to [0]\ndelete all of [画面切り替え v]\ndelete all of [テキスト v]\ndelete all of [透明度 v]\ndelete all of [ぐるぐる回る丸 v]\ndelete all of [テキストに関すること v]\ndelete all of [図形 v]\ndelete all of [フラッシュ v]\nadd [115] to [フラッシュ v]\nadd [115] to [フラッシュ v]\nadd [0] to [テキストに関すること v]\nadd [0] to [テキストに関すること v]\nadd [0] to [テキストに関すること v]\nadd [0] to [テキストに関すること v]\nreset timer\nwait (0) seconds\nstart sound [Distrion & Alex Skrindo - Entropy v]\nbroadcast (Aaaaaaaaaaaaaa v)\n\ndefine 描画\nswitch costume to (無限 v)\nset size to ((1) / (0)) %\npen up\nset [aカウント1 v] to [1]\nrepeat ((length of [ぐるぐる回る丸 v]) / (5))\n    set pen size to ((20) / (Z))\n    pen up\n    set [向きサイン v] to [0]\n    set pen color to (#2b568a)\n    set pen (transparency v) to ((item (Aカウント1) of [透明度 v]) + (75))\n    repeat ((round ((60) - (([abs v] of ((item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v]) - (180)) ) / (3)))) + (1))\n        とてもぐるぐる [1]\n        pen down\n        change [向きサイン v] by (6)\n    end\n    pen up\n    set pen size to ((20) / (Z))\n    pen up\n    set [向きサイン v] to [0]\n    repeat ((round ((60) - (([abs v] of ((item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v]) - (180)) ) / (3)))) + (1))\n        とてもぐるぐる [0]\n        set pen color to (#ffffff)\n        set pen (transparency v) to (item (Aカウント1) of [透明度 v])\n        pen down\n        change [向きサイン v] by (6)\n    end\n    pen up\n    set pen size to ((10) / (Z))\n    pen up\n    set [向きサイン v] to [0]\n    repeat ((round ((60) - (([abs v] of ((item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v]) - (180)) ) / (3)))) + (1))\n        とてもぐるぐる [0]\n        set pen color to (#5098ff)\n        set pen (transparency v) to (item (Aカウント1) of [透明度 v])\n        pen down\n        change [向きサイン v] by (6)\n    end\n    pen up\n    if <[180] < (item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v])> then\n        replace item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v] with ((item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v]) + ((fps✖️うごきゅ) * (((360) - (item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v])) / (10))))\n    else\n        replace item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v] with ((item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v]) + ((fps✖️うごきゅ) * (((item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v]) + (15)) / (10))))\n    end\n    if <[355] < (item ((Aカウント1) * (5)) of [ぐるぐる回る丸 v])> then\n        replace item (Aカウント1) of [透明度 v] with ((item (Aカウント1) of [透明度 v]) + ((fps✖️うごきゅ) * (((112) - (item (Aカウント1) of [透明度 v])) / (10))))\n    end\n    if <[110] < (item (Aカウント1) of [透明度 v])> then\n        delete (((Aカウント1) * (5)) - (0)) of [ぐるぐる回る丸 v]\n        delete (((Aカウント1) * (5)) - (1)) of [ぐるぐる回る丸 v]\n        delete (((Aカウント1) * (5)) - (2)) of [ぐるぐる回る丸 v]\n        delete (((Aカウント1) * (5)) - (3)) of [ぐるぐる回る丸 v]\n        delete (((Aカウント1) * (5)) - (4)) of [ぐるぐる回る丸 v]\n        delete (Aカウント1) of [透明度 v]\n    else\n        change [aカウント1 v] by (1)\n    end\nend\n\ndefine ぐる丸追加　X (x) Y (y) 半径 (半径) 向き (向き) 初期向き (初期向き) 透明度 (透明度)\nadd (x) to [ぐるぐる回る丸 v]\nadd (y) to [ぐるぐる回る丸 v]\nadd (半径) to [ぐるぐる回る丸 v]\nadd (初期向き) to [ぐるぐる回る丸 v]\nadd (向き) to [ぐるぐる回る丸 v]\nadd (透明度) to [透明度 v]\n\nwait (0.5) seconds\n\nwhen I receive [aaaaaaaaaaaaaa v]\nset [ういい v] to [0]\nset [ういい2 v] to [150]\nchange [ういい2 v] by (-15)\nset [aカウント2 v] to [1]\nrepeat (3)\n    wait until <(item (Aカウント2) of [音ハメ v]) < ((timer) + (0.2))>\n    ぐる丸追加　X [0] Y [0] 半径 (ういい2) 向き [0] 初期向き (pick random (1) to (360)) 透明度 [0]\n    change [ういい2 v] by (-30)\n    change [aカウント2 v] by (1)\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nhide\nrepeat until <(終わりですかね？) = [1]>\n    erase all\n    後ろ背景\n    四角描画\n    線\n    テキスト\n    アイコン\n    図形\n    描画\n    バー\n    Sunlight\n    フラッシュ\n    ぼやぼや\n    画面切り替え\nend\nrepeat until <[110] < (最後の透明度)>\n    erase all\n    set pen color to (#000000)\n    set pen (transparency v) to (最後の透明度)\n    set pen size to (5000)\n    pen down\n    pen up\n    change [最後の透明度 v] by ((((115) - (最後の透明度)) / (10)) * (fps✖️うごきゅ))\nend\nerase all\nbroadcast (イントロ終わり/intro finish v)\n\ndefine ごーごーfps (今の時間？)\nwait (0) seconds\nset [fps✖️うごきゅ v] to ((((days since 2000) * (86400)) * (30)) - (今の時間？))\n\nwhen I receive [aaaaaaaaaaaaaa v]\nforever\n    ごーごーfps (((days since 2000) * (86400)) * (30))\nend\n\nwhen this sprite clicked\n\nadd (timer) to [音ハメ2 v]\n\ndefine アイコン\nswitch costume to (無限 v)\nset size to ((1) / (0)) %\ngo to x: (カメラX) y: (カメラY)\nif <(アイコン隠す？) = [0]> then\n    set [ghost v] effect to (0)\n    if <[100] < ((アイコン大きさ) / (Z))> then\n        switch costume to (無限 v)\n        set size to (((アイコン大きさ) + ()) / (Z)) %\n        switch costume to (あなたのアイコン/logo v)\n    else\n        switch costume to (無限2 v)\n        set size to (((アイコン大きさ) + ()) / (Z)) %\n        switch costume to (あなたのアイコン/logo v)\n    end\n    point in direction (全体むき)\n    stamp\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nset [アイコン隠す？ v] to [1]\nwait (1) seconds\nset [アイコン隠す？ v] to [0]\nrepeat until <([abs v] of ((アイコン大きさ) - (100)) ) < [1]>\n    if <(アイコン大きさ) < [50]> then\n        change [アイコン大きさ v] by ((((アイコン大きさ) + (10)) / (10)) * (fps✖️うごきゅ))\n    else\n        change [アイコン大きさ v] by ((((100) - (アイコン大きさ)) / (10)) * (fps✖️うごきゅ))\n    end\nend\nrepeat until <([abs v] of ((アイコン大きさ) - (0)) ) < [1]>\n    if <(アイコン大きさ) < [50]> then\n        change [アイコン大きさ v] by ((((0) - (アイコン大きさ)) / (10)) * (fps✖️うごきゅ))\n    else\n        change [アイコン大きさ v] by ((((アイコン大きさ) + (-110)) / (10)) * (fps✖️うごきゅ))\n    end\nend\nset [アイコン隠す？ v] to [1]\n\ndelete all of [音ハメ2 v]\nshow\nswitch costume to (コスチューム1 v)\nset size to (100) %\nwait (3) seconds\nstart sound [Distrion & Alex Skrindo - Entropy v]\nreset timer\n\ndefine 計算\nset [aカウント1 v] to [1]\nset [平均値 v] to [0]\nrepeat ((length of [音ハメ2 v]) - (1))\n    set [平均値 v] to ((平均値) + ((item ((Aカウント1) + (1)) of [音ハメ2 v]) - (item (Aカウント1) of [音ハメ2 v])))\n    change [aカウント1 v] by (1)\nend\nset [平均値 v] to ((平均値) / ((length of [音ハメ2 v]) - (1)))\n\ndefine 後ろ背景\npen up\nswitch costume to (無限 v)\nset size to ((1) / (0)) %\nset pen size to (線太さー)\nset pen color to (#50a0ff)\npen up\ngo to x: ((-240) + (線X)) y: (0)\npen down\ngo to x: ((240) + (線X)) y: (0)\npen up\n\nwhen I receive [aaaaaaaaaaaaaa v]\nrepeat until <([abs v] of ((線X) - (0)) ) < [1]>\n    if <(線X) < [-240]> then\n        change [線x v] by ((((線X) + (520)) / (8)) * (fps✖️うごきゅ))\n    else\n        change [線x v] by ((((0) - (線X)) / (8)) * (fps✖️うごきゅ))\n    end\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[1] < (timer)>\nrepeat until <([abs v] of ((線太さー) - (375)) ) < [1]>\n    if <(線太さー) < [188]> then\n        change [線太さー v] by ((((線太さー) + (10)) / (8)) * (fps✖️うごきゅ))\n    else\n        change [線太さー v] by ((((375) - (線太さー)) / (8)) * (fps✖️うごきゅ))\n    end\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nforever\n    set [シェイクx v] to (([sin v] of ((timer) * (400)) ) * ((シェイク) * (0.3)))\n    set [シェイクy v] to (([cos v] of ((timer) * (400)) ) * ((シェイク) * (0.3)))\n    set [シェイク向き v] to (((([sin v] of ((timer) * (400)) ) * ((シェイク) * (0.3))) / (3)) + (90))\n    set [サイズ v] to ((30) + ((([abs v] of ([sin v] of (([sin v] of ((timer) * (366)) ) * (90)) ) ) * (-1)) * (30)))\n    set [カメラx v] to ((シェイクX) + ((動くX) * (-1)))\n    set [カメラy v] to ((シェイクY) + ((動くY) * (-1)))\n    change [シェイク v] by ((fps✖️うごきゅ) * (シェイクよう))\n    change [シェイクよう v] by (((((0) - (シェイク)) / (10)) - ((シェイクよう) / (4))) * (fps✖️うごきゅ))\n    set [全体むき v] to ((シェイク向き) + (動く向き))\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nset [aカウント3 v] to [1]\nrepeat (length of [音ハメ2 v])\n    wait until <(item (Aカウント3) of [音ハメ2 v]) < ((timer) + (0.2))>\n    set [シェイクよう v] to [40]\n    change [aカウント3 v] by (1)\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <(item (1) of [音ハメ2 v]) < ((timer) + (0.2))>\nforever\n    モザイク用です [100] [0]\n    モザイク用です [0] [-50]\n    wait (0.45) seconds\n    モザイク用です [100] [0]\n    モザイク用です [-10] [-50]\n    モザイク用です [0] [-75]\n    wait (0.45) seconds\nend\n\nモザイク用です [-10] [-50]\n\ndefine 四角作る　X (x) Y (y) 明るさ (明るさ) 大きさ (大きさ)\nadd (x) to [四角 v]\nadd (y) to [四角 v]\nadd (明るさ) to [四角 v]\nadd (大きさ) to [四角 v]\n\ndefine ここへいけ (オプションx) (オプションy) X (x) Y (y) (陰？)\nset [向き用 v] to (((全体むき) - (90)) * (-1))\nif <(陰？) = [線]> then\n    if <(陰？) = [1]> then\n        go to x: ((((オプションx) + (((カメラX) + (((x) * ([cos v] of (向き用) )) - ((y) * ([sin v] of (向き用) )))) * (1))) + (20)) / (Z)) y: ((((オプションy) + (((カメラY) + (((x) * ([sin v] of (向き用) )) + ((y) * ([cos v] of (向き用) )))) * (1))) + (0)) / (Z))\n    else\n        go to x: (((オプションx) + (((カメラX) + (((x) * ([cos v] of (向き用) )) - ((y) * ([sin v] of (向き用) )))) * (1))) / (Z)) y: (((オプションy) + (((カメラY) + (((x) * ([sin v] of (向き用) )) + ((y) * ([cos v] of (向き用) )))) * (1))) / (Z))\n    end\nelse\n    if <(陰？) = [1]> then\n        go to x: ((((オプションx) + (((カメラX) + (((x) * ([cos v] of (向き用) )) - ((y) * ([sin v] of (向き用) )))) * (C3DX))) + (20)) / (Z)) y: ((((オプションy) + (((カメラY) + (((x) * ([sin v] of (向き用) )) + ((y) * ([cos v] of (向き用) )))) * (C3DY))) + (0)) / (Z))\n    else\n        go to x: (((オプションx) + (((カメラX) + (((x) * ([cos v] of (向き用) )) - ((y) * ([sin v] of (向き用) )))) * (C3DX))) / (Z)) y: (((オプションy) + (((カメラY) + (((x) * ([sin v] of (向き用) )) + ((y) * ([cos v] of (向き用) )))) * (C3DY))) / (Z))\n    end\nend\npoint in direction (全体むき)\n\ndefine 四角描画\nset [aカウント1 v] to [1]\npen up\nrepeat ((length of [四角 v]) / (4))\n    set [ghost v] effect to (0)\n    switch costume to (無限 v)\n    set size to ((1) / (0)) %\n    ここへいけ (item (((Aカウント1) * (4)) - (3)) of [四角 v]) (item (((Aカウント1) * (4)) - (2)) of [四角 v]) X [0] Y [0] []\n    if <(item (((Aカウント1) * (4)) - (1)) of [四角 v]) < [-3]> then\n        if <[100] < ((item (((Aカウント1) * (4)) - (0)) of [四角 v]) / (Z))> then\n            switch costume to (無限 v)\n            set size to ((item (((Aカウント1) * (4)) - (0)) of [四角 v]) / (Z)) %\n            switch costume to (コスチューム2 v)\n        else\n            switch costume to (無限2 v)\n            set size to ((item (((Aカウント1) * (4)) - (0)) of [四角 v]) / (Z)) %\n            switch costume to (コスチューム2 v)\n        end\n    else\n        if <[100] < ((item (((Aカウント1) * (4)) - (0)) of [四角 v]) / (Z))> then\n            switch costume to (無限 v)\n            set size to ((item (((Aカウント1) * (4)) - (0)) of [四角 v]) / (Z)) %\n            if <(item (((Aカウント1) * (4)) - (1)) of [四角 v]) = [0]> then\n                switch costume to (無題の図形描画 71 v)\n            else\n                if <(item (((Aカウント1) * (4)) - (1)) of [四角 v]) = [50]> then\n                    switch costume to (無題の図形描画 2 v)\n                else\n                    switch costume to (コスチューム1 v)\n                end\n            end\n        else\n            switch costume to (無限2 v)\n            set size to ((item (((Aカウント1) * (4)) - (0)) of [四角 v]) / (Z)) %\n            if <(item (((Aカウント1) * (4)) - (1)) of [四角 v]) = [0]> then\n                switch costume to (無題の図形描画 71 v)\n            else\n                if <(item (((Aカウント1) * (4)) - (1)) of [四角 v]) = [50]> then\n                    switch costume to (無題の図形描画 2 v)\n                else\n                    switch costume to (コスチューム1 v)\n                end\n            end\n        end\n    end\n    if <(item (((Aカウント1) * (4)) - (1)) of [四角 v]) = [0]> then\n        set [ghost v] effect to (0)\n    else\n        set [ghost v] effect to (0)\n    end\n    set [brightness v] effect to (item (((Aカウント1) * (4)) - (1)) of [四角 v])\n    if <[0] < (item (((Aカウント1) * (4)) - (0)) of [四角 v])> then\n        stamp\n    end\n    replace item (((Aカウント1) * (4)) - (0)) of [四角 v] with ((item (((Aカウント1) * (4)) - (0)) of [四角 v]) + ((fps✖️うごきゅ) * (((サイズ) / (0.7)) + (3))))\n    set [ghost v] effect to (0)\n    set [brightness v] effect to (0)\n    if <[500] < (item (((Aカウント1) * (4)) - (0)) of [四角 v])> then\n        delete (((Aカウント1) * (4)) - (0)) of [四角 v]\n        delete (((Aカウント1) * (4)) - (1)) of [四角 v]\n        delete (((Aカウント1) * (4)) - (2)) of [四角 v]\n        delete (((Aカウント1) * (4)) - (3)) of [四角 v]\n    else\n        change [aカウント1 v] by (1)\n    end\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[3.8] < (timer)>\nrepeat until <([abs v] of ((動くY) - (360)) ) < [45]>\n    if <(動くY) < [180]> then\n        change [動くy v] by ((((動くY) + (45)) / (5)) * (fps✖️うごきゅ))\n    else\n        change [動くy v] by ((((360) - (動くY)) / (5)) * (fps✖️うごきゅ))\n    end\nend\nrepeat until <([abs v] of ((動くY) - (-360)) ) < [1]>\n    if <(動くY) < [0]> then\n        change [動くy v] by ((((-360) - (動くY)) / (5)) * (fps✖️うごきゅ))\n    else\n        change [動くy v] by ((((動くY) + (-400)) / (5)) * (fps✖️うごきゅ))\n    end\nend\n\ndefine モザイク用です (明るさ) (大きさ)\nset [モザイク用2 v] to [360]\nrepeat (3)\n    set [モザイク用1 v] to [-480]\n    repeat (3)\n        四角作る　X (モザイク用1) Y (モザイク用2) 明るさ (明るさ) 大きさ (大きさ)\n        change [モザイク用1 v] by (480)\n    end\n    change [モザイク用2 v] by (-360)\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[2.7] < (timer)>\nset [動く向き v] to [0]\nrepeat until <([abs v] of ((動く向き) - (360)) ) < [0.5]>\n    if <(動く向き) < [180]> then\n        change [動く向き v] by ((((動く向き) + (10)) / (8)) * (fps✖️うごきゅ))\n    else\n        change [動く向き v] by ((((360) - (動く向き)) / (8)) * (fps✖️うごきゅ))\n    end\nend\nwait until <[6] < (timer)>\nset [動く向き v] to [0]\nrepeat until <([abs v] of ((動く向き) - (360)) ) < [0.5]>\n    if <(動く向き) < [180]> then\n        change [動く向き v] by ((((動く向き) + (10)) / (8)) * (fps✖️うごきゅ))\n    else\n        change [動く向き v] by ((((360) - (動く向き)) / (8)) * (fps✖️うごきゅ))\n    end\nend\n\nモザイク用です [100] [-75]\n\ndefine テキスト追加 (x) (y)\nadd (x) to [テキスト v]\nadd (y) to [テキスト v]\n\ndefine テキスト追加\nset [モザイク用2 v] to [360]\nrepeat (3)\n    set [モザイク用1 v] to [-480]\n    repeat (3)\n        テキスト追加 (モザイク用1) (モザイク用2)\n        change [モザイク用1 v] by (480)\n    end\n    change [モザイク用2 v] by (-360)\nend\n\nset pen color to (#848484)\nset pen size to (8000)\nset pen (transparency v) to (75)\npen down\npen up\n\ndefine ぼやぼや\ngo to x: (0) y: (0)\npen up\nset pen color to (#ffc09a)\nset pen size to (8000)\nset pen (transparency v) to (75)\npen down\npen up\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[3.5] < (timer)>\nテキスト追加\nrepeat until <([abs v] of ((item (2) of [テキストに関すること v]) - (100)) ) < [0.5]>\n    if <(item (2) of [テキストに関すること v]) < [50]> then\n        replace item (2) of [テキストに関すること v] with ((item (2) of [テキストに関すること v]) + ((((item (2) of [テキストに関すること v]) + (10)) / (8)) * (fps✖️うごきゅ)))\n    else\n        replace item (2) of [テキストに関すること v] with ((item (2) of [テキストに関すること v]) + ((item (3) of [テキストに関すること v]) * (fps✖️うごきゅ)))\n        replace item (3) of [テキストに関すること v] with ((item (3) of [テキストに関すること v]) + (((((100) - (item (2) of [テキストに関すること v])) / (10)) - ((item (3) of [テキストに関すること v]) / (4))) * (fps✖️うごきゅ)))\n    end\nend\n\ndefine テキスト\npen up\nset [aカウント1 v] to [1]\nrepeat ((length of [テキスト v]) / (2))\n    switch costume to (無限 v)\n    set size to ((1) / (0)) %\n    ここへいけ (item (((Aカウント1) * (2)) - (1)) of [テキスト v]) (item (((Aカウント1) * (2)) - (0)) of [テキスト v]) X (item (1) of [テキストに関すること v]) Y [0] []\n    set [ghost v] effect to (0)\n    if <[100] < ((((item (2) of [テキストに関すること v]) / (1.3)) + ((サイズ) / (1.2))) / (Z))> then\n        switch costume to (無限 v)\n        set size to ((((item (2) of [テキストに関すること v]) / (1.3)) + ((サイズ) / (1.2))) / (Z)) %\n        switch costume to (テキスト/text v)\n    else\n        switch costume to (無限2 v)\n        set size to ((((item (2) of [テキストに関すること v]) / (1.3)) + ((サイズ) / (1.2))) / (Z)) %\n        switch costume to (テキスト/text v)\n    end\n    point in direction ((全体むき) + (item (4) of [テキストに関すること v]))\n    stamp\n    change [aカウント1 v] by (1)\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[5.1] < (timer)>\nrepeat until <([abs v] of ((item (1) of [テキストに関すること v]) - (150)) ) < [45]>\n    if <(item (1) of [テキストに関すること v]) < [75]> then\n        replace item (1) of [テキストに関すること v] with ((item (1) of [テキストに関すること v]) + ((((item (1) of [テキストに関すること v]) + (22)) / (5)) * (fps✖️うごきゅ)))\n    else\n        replace item (1) of [テキストに関すること v] with ((item (1) of [テキストに関すること v]) + ((((150) - (item (1) of [テキストに関すること v])) / (5)) * (fps✖️うごきゅ)))\n    end\nend\nrepeat until <([abs v] of ((item (1) of [テキストに関すること v]) - (-150)) ) < [45]>\n    if <(item (1) of [テキストに関すること v]) < [0]> then\n        replace item (1) of [テキストに関すること v] with ((item (1) of [テキストに関すること v]) + ((((-150) - (item (1) of [テキストに関すること v])) / (5)) * (fps✖️うごきゅ)))\n    else\n        replace item (1) of [テキストに関すること v] with ((item (1) of [テキストに関すること v]) + ((((item (1) of [テキストに関すること v]) + (-175)) / (5)) * (fps✖️うごきゅ)))\n    end\nend\nrepeat until <([abs v] of ((item (1) of [テキストに関すること v]) - (-150)) ) < [1]>\n    replace item (1) of [テキストに関すること v] with ((item (1) of [テキストに関すること v]) + ((((0) - (item (1) of [テキストに関すること v])) / (5)) * (fps✖️うごきゅ)))\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[6] < (timer)>\nrepeat until <([abs v] of ((動くY) - (0)) ) < [1]>\n    if <(動くY) < [-180]> then\n        change [動くy v] by ((((動くY) + (400)) / (5)) * (fps✖️うごきゅ))\n    else\n        change [動くy v] by ((((0) - (動くY)) / (5)) * (fps✖️うごきゅ))\n    end\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[6] < (timer)>\nrepeat until <([abs v] of ((動くX) - (480)) ) < [45]>\n    if <(動くX) < [240]> then\n        change [動くx v] by ((((動くX) + (40)) / (5)) * (fps✖️うごきゅ))\n    else\n        change [動くx v] by ((((480) - (動くX)) / (5)) * (fps✖️うごきゅ))\n    end\nend\nrepeat until <([abs v] of ((動くX) - (0)) ) < [1]>\n    if <(動くX) < [240]> then\n        change [動くx v] by ((((0) - (動くX)) / (5)) * (fps✖️うごきゅ))\n    else\n        change [動くx v] by ((((動くX) + (-520)) / (5)) * (fps✖️うごきゅ))\n    end\nend\n\ndefine とてもぐるぐる (かげ？)\nここへいけ [0] [0] X ((item (((Aカウント1) * (5)) - (4)) of [ぐるぐる回る丸 v]) + (([sin v] of ((item (((Aカウント1) * (5)) - (0)) of [ぐるぐる回る丸 v]) + ((item (((Aカウント1) * (5)) - (1)) of [ぐるぐる回る丸 v]) + (向きサイン))) ) * (item (((Aカウント1) * (5)) - (2)) of [ぐるぐる回る丸 v]))) Y ((item (((Aカウント1) * (5)) - (4)) of [ぐるぐる回る丸 v]) + (([cos v] of ((item (((Aカウント1) * (5)) - (0)) of [ぐるぐる回る丸 v]) + ((item (((Aカウント1) * (5)) - (1)) of [ぐるぐる回る丸 v]) + (向きサイン))) ) * (item (((Aカウント1) * (5)) - (2)) of [ぐるぐる回る丸 v]))) (かげ？)\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[6.5] < (timer)>\nrepeat until <([abs v] of ((Z) - (3)) ) < [0.01]>\n    if <(Z) < [2]> then\n        change [z v] by ((((Z) + (-0.9)) / (10)) * (fps✖️うごきゅ))\n    else\n        change [z v] by ((((3) - (Z)) / (10)) * (fps✖️うごきゅ))\n    end\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nforever\n    if <[480] < (シェイクX)> then\n        set [シェイクx v] to [480]\n    end\n    if <(シェイクY) < [-480]> then\n        set [シェイクy v] to [-480]\n    end\n    if <[480] < (シェイクX)> then\n        set [シェイクx v] to [480]\n    end\n    if <(シェイクY) < [-480]> then\n        set [シェイクy v] to [-480]\n    end\n    if <(シェイク) < [-480]> then\n        set [シェイク v] to [-480]\n    end\n    if <[480] < (シェイク)> then\n        set [シェイク v] to [480]\n    end\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[5.4] < (timer)>\nrepeat until <([abs v] of ((item (4) of [テキストに関すること v]) - (360)) ) < [0.5]>\n    if <(item (4) of [テキストに関すること v]) < [180]> then\n        replace item (4) of [テキストに関すること v] with ((item (4) of [テキストに関すること v]) + ((((item (4) of [テキストに関すること v]) + (10)) / (8)) * (fps✖️うごきゅ)))\n    else\n        replace item (4) of [テキストに関すること v] with ((item (4) of [テキストに関すること v]) + ((((360) - (item (4) of [テキストに関すること v])) / (8)) * (fps✖️うごきゅ)))\n    end\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[1.9] < (timer)>\nset [ういい2 v] to [150]\nrepeat (2)\n    ぐる丸追加　X [0] Y [0] 半径 (ういい2) 向き [0] 初期向き (pick random (1) to (360)) 透明度 [0]\n    change [ういい2 v] by (-60)\n    wait (0.1) seconds\nend\n\ndefine バーをどうぞ\nset [モザイク用1 v] to [-260]\nrepeat (14)\n    add (モザイク用1) to [バー v]\n    add [1] to [バー v]\n    change [モザイク用1 v] by (40)\nend\nset [モザイク用1 v] to [-260]\nrepeat (14)\n    add (モザイク用1) to [バー v]\n    add [-1] to [バー v]\n    change [モザイク用1 v] by (40)\nend\n\ndefine バー\npen up\nset [aカウント1 v] to [1]\nswitch costume to (無限 v)\nset size to ((1) / (0)) %\nrepeat ((length of [バー v]) / (2))\n    set pen color to (#2b568a)\n    set pen (transparency v) to (75)\n    set pen size to (40)\n    バー一気に [1]\n    set pen color to (#ffffff)\n    set pen size to (40)\n    バー一気に []\n    set pen color to (#4b96ff)\n    set pen size to (30)\n    バー一気に []\n    change [aカウント1 v] by (1)\nend\npen up\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait (0.05) seconds\nバーをどうぞ\n\ndefine バー一気に (1)\nset x to ((item (((Aカウント1) * (2)) - (1)) of [バー v]) + (0))\nif <(1) = [1]> then\n    if <(item (((Aカウント1) * (2)) - (0)) of [バー v]) = [1]> then\n        set x to ((item (((Aカウント1) * (2)) - (1)) of [バー v]) + (5))\n        set y to ((((サイズ) * (-1)) + (0)) + (((バー高さ) * (-1)) + (([sin v] of (((timer) * (200)) + ((item (((Aカウント1) * (2)) - (1)) of [バー v]) * (2))) ) * (15))))\n        pen down\n        set y to ((((サイズ) * (-1)) + (0)) + ((((バー高さ) * (-1)) + (([sin v] of (((timer) * (200)) + ((item (((Aカウント1) * (2)) - (1)) of [バー v]) * (2))) ) * (15))) - (60)))\n        pen up\n    else\n        set x to ((item (((Aカウント1) * (2)) - (1)) of [バー v]) + (5))\n        set y to (((サイズ) + (0)) + (((バー高さ) * (1)) + (([sin v] of (((timer) * (200)) + ((item (((Aカウント1) * (2)) - (1)) of [バー v]) * (2))) ) * (15))))\n        pen down\n        set y to (((サイズ) + (0)) + ((((バー高さ) * (1)) + (([sin v] of (((timer) * (200)) + ((item (((Aカウント1) * (2)) - (1)) of [バー v]) * (2))) ) * (15))) - (-60)))\n        pen up\n    end\nelse\n    if <(item (((Aカウント1) * (2)) - (0)) of [バー v]) = [1]> then\n        set y to (((サイズ) * (-1)) + (((バー高さ) * (-1)) + (([sin v] of (((timer) * (200)) + ((item (((Aカウント1) * (2)) - (1)) of [バー v]) * (2))) ) * (15))))\n        pen down\n        set y to (((サイズ) * (-1)) + ((((バー高さ) * (-1)) + (([sin v] of (((timer) * (200)) + ((item (((Aカウント1) * (2)) - (1)) of [バー v]) * (2))) ) * (15))) - (45)))\n        pen up\n    else\n        set y to ((サイズ) + (((バー高さ) * (1)) + (([sin v] of (((timer) * (200)) + ((item (((Aカウント1) * (2)) - (1)) of [バー v]) * (2))) ) * (15))))\n        pen down\n        set y to ((サイズ) + ((((バー高さ) * (1)) + (([sin v] of (((timer) * (200)) + ((item (((Aカウント1) * (2)) - (1)) of [バー v]) * (2))) ) * (15))) - (-45)))\n        pen up\n    end\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <(item (1) of [音ハメ2 v]) < ((timer) + (0.2))>\nrepeat until <[8] < (timer)>\n    change [バー高さ v] by ((((-220) - (バー高さ)) / (10)) * (fps✖️うごきゅ))\nend\n\ndefine 線\nswitch costume to (無限 v)\nset size to ((1) / (0)) %\npen up\nset pen color to (#50a0ff)\nset pen (transparency v) to (とめいど)\nset pen size to ((10) / (Z))\nset [せんよう v] to [472.5]\nrepeat (24)\n    ここへいけ [0] [0] X [-720] Y (せんよう) [線]\n    pen down\n    ここへいけ [0] [0] X [720] Y (せんよう) [線]\n    pen up\n    change [せんよう v] by (-45)\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <(item (1) of [音ハメ2 v]) < ((timer) + (-0.15))>\nrepeat until <(とめいど) < [-10]>\n    change [とめいど v] by ((((-11) - (とめいど)) / (10)) * (fps✖️うごきゅ))\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[3] < (timer)>\nrepeat until <[3.45] < (timer)>\n    change [c3dx v] by ((((-1) - (C3DX)) / (10)) * (fps✖️うごきゅ))\nend\nrepeat until <[8] < (timer)>\n    change [c3dx v] by ((((1) - (C3DX)) / (10)) * (fps✖️うごきゅ))\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[2.55] < (timer)>\nrepeat until <[3] < (timer)>\n    change [c3dy v] by ((((-1) - (C3DY)) / (10)) * (fps✖️うごきゅ))\nend\nrepeat until <[8] < (timer)>\n    change [c3dy v] by ((((1) - (C3DY)) / (10)) * (fps✖️うごきゅ))\nend\n\ndefine 図形\nset size to ((1) / (0)) %\npen up\nset [aカウント1 v] to [1]\nrepeat ((length of [図形 v]) / (7))\n    pen up\n    set pen color to (#2b528a)\n    set pen (transparency v) to (75)\n    set pen size to ((item (((Aカウント1) * (7)) - (3)) of [図形 v]) * (1.3))\n    図形かげ [1]\n    set pen color to (#ffffff)\n    set pen size to ((item (((Aカウント1) * (7)) - (3)) of [図形 v]) * (1.3))\n    図形かげ [0]\n    set pen size to ((item (((Aカウント1) * (7)) - (3)) of [図形 v]) * (0.8))\n    set pen color to (#5099ff)\n    図形かげ [0]\n    replace item (((Aカウント1) * (7)) - (3)) of [図形 v] with ((item (((Aカウント1) * (7)) - (3)) of [図形 v]) + ((-1) * (fps✖️うごきゅ)))\n    replace item (((Aカウント1) * (7)) - (0)) of [図形 v] with ((item (((Aカウント1) * (7)) - (0)) of [図形 v]) + ((fps✖️うごきゅ) * ((item (((Aカウント1) * (7)) - (3)) of [図形 v]) / (5))))\n    if <(item (((Aカウント1) * (7)) - (3)) of [図形 v]) < [-1]> then\n        delete (((Aカウント1) * (7)) - (0)) of [図形 v]\n        delete (((Aカウント1) * (7)) - (1)) of [図形 v]\n        delete (((Aカウント1) * (7)) - (2)) of [図形 v]\n        delete (((Aカウント1) * (7)) - (3)) of [図形 v]\n        delete (((Aカウント1) * (7)) - (4)) of [図形 v]\n        delete (((Aカウント1) * (7)) - (5)) of [図形 v]\n        delete (((Aカウント1) * (7)) - (6)) of [図形 v]\n    else\n        change [aカウント1 v] by (1)\n    end\n    pen up\nend\n\ndefine 図形かげ (陰？)\npen up\nset [しぇいぷす v] to [0]\nwait (0) seconds\nここへいけ [0] (item (((Aカウント1) * (7)) - (6)) of [図形 v]) X (((0) + ((item (((Aカウント1) * (7)) - (5)) of [図形 v]) + ((item (((Aカウント1) * (7)) - (0)) of [図形 v]) * ([sin v] of (しぇいぷす) )))) - (0)) Y ((0) + (((item (((Aカウント1) * (7)) - (4)) of [図形 v]) - (0)) + ((item (((Aカウント1) * (7)) - (0)) of [図形 v]) * ([cos v] of (しぇいぷす) )))) (陰？)\npen down\nrepeat ((item (((Aカウント1) * (7)) - (2)) of [図形 v]) + (1))\n    change [しぇいぷす v] by ((360) / (item (((Aカウント1) * (7)) - (2)) of [図形 v]))\n    ここへいけ [0] (item (((Aカウント1) * (7)) - (6)) of [図形 v]) X (((0) + ((item (((Aカウント1) * (7)) - (5)) of [図形 v]) + ((item (((Aカウント1) * (7)) - (0)) of [図形 v]) * ([sin v] of (しぇいぷす) )))) - (0)) Y ((0) + (((item (((Aカウント1) * (7)) - (4)) of [図形 v]) - (0)) + ((item (((Aカウント1) * (7)) - (0)) of [図形 v]) * ([cos v] of (しぇいぷす) )))) (陰？)\nend\npen up\n\ndefine 図形追加x (x) Y (y) 太さ (太さ) 形 (形) いろ (いろ) おおきさ (おおきさ) モザイクy (モザイクy)\nadd (モザイクy) to [図形 v]\nadd (x) to [図形 v]\nadd (y) to [図形 v]\nadd (太さ) to [図形 v]\nadd (形) to [図形 v]\nadd (いろ) to [図形 v]\nadd (おおきさ) to [図形 v]\n\ndefine パターン (パターン) (モザイクy)\nif <(パターン) = [1]> then\n    図形追加x [0] Y [0] 太さ [30] 形 [5] いろ [90] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [-150] Y [0] 太さ [30] 形 [5] いろ [90] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [150] Y [0] 太さ [30] 形 [5] いろ [90] おおきさ [0] モザイクy (モザイクy)\nend\nif <(パターン) = [2]> then\n    図形追加x [0] Y [150] 太さ [30] 形 [3] いろ [30] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [-150] Y [150] 太さ [30] 形 [3] いろ [30] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [150] Y [150] 太さ [30] 形 [3] いろ [30] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [0] Y [-150] 太さ [30] 形 [3] いろ [30] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [-150] Y [-150] 太さ [30] 形 [3] いろ [30] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [150] Y [-150] 太さ [30] 形 [3] いろ [30] おおきさ [0] モザイクy (モザイクy)\nend\nif <(パターン) = [3]> then\n    repeat (30)\n        図形追加x (pick random (-300) to (300)) Y (pick random (-300) to (300)) 太さ [30] 形 [4] いろ [25] おおきさ [0] モザイクy (モザイクy)\n    end\nend\nif <(パターン) = [4]> then\n    図形追加x [-150] Y [150] 太さ [30] 形 [6] いろ [75] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [0] Y [150] 太さ [30] 形 [6] いろ [75] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [150] Y [150] 太さ [30] 形 [6] いろ [75] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [150] Y [0] 太さ [30] 形 [6] いろ [75] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [150] Y [-150] 太さ [30] 形 [6] いろ [75] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [0] Y [-150] 太さ [30] 形 [6] いろ [75] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [-150] Y [-150] 太さ [30] 形 [6] いろ [75] おおきさ [0] モザイクy (モザイクy)\n    図形追加x [-150] Y [0] 太さ [30] 形 [6] いろ [75] おおきさ [0] モザイクy (モザイクy)\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <(item (9) of [音ハメ2 v]) < ((timer) + (0.2))>\nパターン [1] [-360]\nwait until <(item (10) of [音ハメ2 v]) < ((timer) + (0.2))>\nパターン [2] [-360]\n\nwait until <(item (11) of [音ハメ2 v]) < ((timer) + (0.2))>\n\nパターン [4] [-360]\n\ndefine Sunlight\npen up\nswitch costume to (無限 v)\nset size to (400) %\ngo to x: (-240) y: (180)\nswitch costume to (コスチューム4 v)\nset [ghost v] effect to (0)\nstamp\n\ndefine フラッシュ\npen up\nswitch costume to (無限 v)\nset size to ((1) / (0)) %\nset pen color to (#ffffff)\nset pen size to (180)\nset pen (transparency v) to (item (1) of [フラッシュ v])\ngo to x: (-600) y: (90)\npen down\ngo to x: (600) y: (90)\npen up\npen up\nswitch costume to (無限 v)\nset size to ((1) / (0)) %\nset pen color to (#ffffff)\nset pen size to (180)\nset pen (transparency v) to (item (2) of [フラッシュ v])\ngo to x: (-600) y: (-90)\npen down\ngo to x: (600) y: (-90)\npen up\nreplace item (1) of [フラッシュ v] with ((item (1) of [フラッシュ v]) + ((((115) - (item (1) of [フラッシュ v])) / (10)) * (fps✖️うごきゅ)))\nreplace item (2) of [フラッシュ v] with ((item (2) of [フラッシュ v]) + ((((115) - (item (2) of [フラッシュ v])) / (10)) * (fps✖️うごきゅ)))\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <(item (7) of [音ハメ2 v]) < ((timer) + (0.2))>\nreplace item (1) of [フラッシュ v] with [20]\nwait until <(item (8) of [音ハメ2 v]) < ((timer) + (0.2))>\nreplace item (2) of [フラッシュ v] with [20]\n\nwhen I receive [aaaaaaaaaaaaaa v]\nwait until <[7.5] < (timer)>\nif <(スキップ押された？) = [0]> then\n    set [スキップ押された？ v] to [1]\n    repeat (2)\n        add [0] to [画面切り替え v]\n        add [100] to [画面切り替え v]\n        wait (0.1) seconds\n        add [0] to [画面切り替え v]\n        add [あ] to [画面切り替え v]\n        wait (0.1) seconds\n    end\n    add [0] to [画面切り替え v]\n    add [-100] to [画面切り替え v]\nend\n\nwait (0.1) seconds\n\ndefine 画面切り替え\nswitch costume to (無限 v)\nset size to ((1) / (0)) %\npen up\nset [aカウント1 v] to [1]\nrepeat ((length of [画面切り替え v]) / (2))\n    if <[あ] = (item (((Aカウント1) * (2)) - (0)) of [画面切り替え v])> then\n        set pen color to (#ffffff)\n    else\n        set pen color to (#4f98ff)\n        set pen (brightness v) to (item (((Aカウント1) * (2)) - (0)) of [画面切り替え v])\n    end\n    set pen size to (item (((Aカウント1) * (2)) - (1)) of [画面切り替え v])\n    go to x: (-300) y: (0)\n    pen down\n    go to x: (300) y: (0)\n    pen up\n    if <(item (((Aカウント1) * (2)) - (1)) of [画面切り替え v]) < [188]> then\n        replace item (((Aカウント1) * (2)) - (1)) of [画面切り替え v] with ((item (((Aカウント1) * (2)) - (1)) of [画面切り替え v]) + ((((item (((Aカウント1) * (2)) - (1)) of [画面切り替え v]) + (10)) / (8)) * (fps✖️うごきゅ)))\n    else\n        replace item (((Aカウント1) * (2)) - (1)) of [画面切り替え v] with ((item (((Aカウント1) * (2)) - (1)) of [画面切り替え v]) + ((((375) - (item (((Aカウント1) * (2)) - (1)) of [画面切り替え v])) / (8)) * (fps✖️うごきゅ)))\n    end\n    change [aカウント1 v] by (1)\nend\n\nwhen I receive [aaaaaaaaaaaaaa v]\nset [最後の透明度 v] to [0]\nwait until <[374] < (item (9) of [画面切り替え v])>\nset [終わりですかね？ v] to [1]\n\nwhen I receive [イントロ終わり/intro finish v]\nstop all sounds\nstop [other scripts in sprite v]\nset [終わりですかね？ v] to [0]\nset [スキップ押された？ v] to [0]\nset [とめいど v] to [100]\nset [バー高さ v] to [-450]\nset [z v] to [1]\nset [c3dx v] to [1]\nset [c3dy v] to [1]\nset [シェイク向き v] to [0]\nset [動くy v] to [0]\nset [シェイクよう v] to [0]\nset [シェイク v] to [0]\nset [動く向き v] to [0]\nset [動くx v] to [0]\nset [シェイクx v] to [0]\nset [線x v] to [-500]\nset [カメラy v] to [0]\nset [カメラx v] to [0]\nset [アイコン大きさ v] to [0]\ndelete all of [四角 v]\ndelete all of [バー v]\nset [線太さー v] to [0]\ndelete all of [画面切り替え v]\ndelete all of [テキスト v]\ndelete all of [透明度 v]\ndelete all of [ぐるぐる回る丸 v]\ndelete all of [テキストに関すること v]\ndelete all of [図形 v]\ndelete all of [フラッシュ v]\nadd [115] to [フラッシュ v]\nadd [115] to [フラッシュ v]\nadd [0] to [テキストに関すること v]\nadd [0] to [テキストに関すること v]\nadd [0] to [テキストに関すること v]\nadd [0] to [テキストに関すること v]\n\nwhen I receive [イントロ終わり/intro finish v]\n\nwhen I receive [aaaaaaaaaaaaaa v]\nset volume to (100) %\nwait until <not <<key (any v) pressed?> or <mouse down?>>>\nwait until <<<key (any v) pressed?> or <mouse down?>> and <(スキップ押された？) = [0]>>\nset volume to (20) %\nset [スキップ押された？ v] to [1]\nrepeat (2)\n    add [0] to [画面切り替え v]\n    add [100] to [画面切り替え v]\n    wait (0.1) seconds\n    add [0] to [画面切り替え v]\n    add [あ] to [画面切り替え v]\n    wait (0.1) seconds\nend\nadd [0] to [画面切り替え v]\nadd [-100] to [画面切り替え v]\n\n@サムネイル\n\nwhen flag clicked\nhide\ngo to x: (0) y: (0)\n\n