LONG platformer  Ｉ  ロングプラットフォーマー

Instructions: ー日本語・クレジットは下にー\n【LONG】\n\n▶︎Tap or operate with the arrow keys!\n▶︎A very long platformer!\n▶︎If you clear it until the end...?\n▶︎Let's aim for the world record!\n▶︎タップまたは矢印キーで操作！\n▶︎とっても長〜いプラットフォーマー！\n▶︎最後までクリアすると…？\n▶︎世界記録を目指そう！\nーーーーーーーーーーー\n難しさ★★★☆☆\nーーーーーーーーーーー\nークレジットー\n▼intro @kako-ken 様\n▼BGM：-Xaf-　様\nFar Out - Strangers ( Cut by @trident-　様)\n▼SE：効果音ラボ\n▼プログラム参考：@mikankundazo　様\n\n重い方はこちら\nhttps://turbowarp.org/718085238\n\n別の作品もヨロシク！\nhttps://scratch.mit.edu/projects/738558639/

@Stage\n\nwhen flag clicked\nswitch backdrop to (サムネ v)\n\nwhen I receive [すたーと！ v]\nrepeat (20)\n    change volume by (-5)\nend\n\nwhen I receive [15 v]\nswitch backdrop to (洞窟 v)\n\nwhen I receive [22 v]\nswitch backdrop to (昼 v)\n\nwhen I receive [23 v]\nswitch backdrop to (夕方 v)\n\nwhen I receive [intro end v]\nset volume to (0) %\nswitch backdrop to (昼 v)\nwait (1) seconds\nforever\n    play sound [魔王魂  8bit24 v] until done\nend\n\nwhen I receive [intro end v]\nwait (0.5) seconds\nrepeat (90)\n    change volume by (1)\nend\n\nwhen I receive [35 v]\nswitch backdrop to (夜 v)\n\nwhen I receive [47 v]\nswitch backdrop to (夜2 v)\n\n@地面\n\nwhen flag clicked\ngo to [front v] layer\nforever\n    change [time v] by (1)\n    wait (1) seconds\nend\n\nwhen I receive [suta-to  v]\n\nwhen flag clicked\nset [time v] to [0]\nhide variable [time v]\nhide variable [☁ world record v]\ngo to x: (0) y: (7)\n\nwhen flag clicked\nset volume to (100) %\nshow\ngo to [front v] layer\nswitch costume to (0 v)\nset [洞窟か v] to [0]\nset [夜か v] to [0]\nhide\n\nwhen I receive [next stage v]\nwait (0.1) seconds\nnext costume\nif <(costume [number v]) = [1]> then\n    broadcast (1 v)\nend\nif <(costume [number v]) = [2]> then\n    broadcast (2 v)\nend\nif <(costume [number v]) = [3]> then\n    broadcast (3 v)\nend\nif <(costume [number v]) = [4]> then\n    broadcast (4 v)\nend\nif <(costume [number v]) = [5]> then\n    broadcast (5 v)\nend\nif <(costume [number v]) = [6]> then\n    broadcast (6 v)\nend\nif <(costume [number v]) = [7]> then\n    broadcast (7 v)\nend\nif <(costume [number v]) = [8]> then\n    broadcast (8 v)\nend\nif <(costume [number v]) = [9]> then\n    broadcast (9 v)\nend\nif <(costume [number v]) = [10]> then\n    broadcast (10 v)\nend\nif <(costume [number v]) = [11]> then\n    broadcast (11 v)\nend\nif <(costume [number v]) = [15]> then\n    broadcast (15 v)\nend\nif <(costume [number v]) = [21]> then\n    broadcast (光 v)\nend\nif <(costume [number v]) = [22]> then\n    broadcast (22 v)\nend\nif <(costume [number v]) = [23]> then\n    broadcast (23 v)\nend\nif <(costume [number v]) = [35]> then\n    broadcast (35 v)\nend\nif <(costume [number v]) = [46]> then\n    broadcast (47 v)\nend\n\nwhen I receive [スタート v]\nswitch costume to (コスチューム1 v)\n\nwhen I receive [15 v]\nset [洞窟か v] to [1]\nforever\n    play sound [Inferno2 v] until done\nend\n\nwhen I receive [22 v]\nset [洞窟か v] to [0]\nset volume to (0) %\n\nwhen I receive [intro end v]\nshow\n\nwhen I receive [35 v]\nset [夜か v] to [1]\n\nwhen I receive [ゴール！！ v]\nshow variable [☁ world record v]\nshow variable [time v]\n\nwhen I receive [ゴール！！ v]\nif <(time) > (☁ world record)> then\n    set [☁ world record v] to (time)\nend\n\n@プレイヤー\n\nwhen I receive [suta-to  v]\nset volume to (100) %\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nrepeat (10)\n    change [ghost v] effect by (11)\n    change size by (-4)\nend\ndelete this clone\n\nwhen [z v] key pressed\n\nstart sound [Rip v]\n\nwait (0.5) seconds\n\nwhen flag clicked\n\nwhen I receive [next stage v]\n\nwhen I receive [スタート v]\nset size to (70) %\ngo to x: (-220) y: (50)\ngo to [back v] layer\nshow\nset rotation style [left-right v]\npoint in direction (90)\nset [x v] to [0]\nset [y v] to [0]\nforever\n    if <[-180] > (y position)> then\n        start sound [Low Whoosh v]\n        clear graphic effects\n        go to x: (-210) y: (100)\n    end\n    if <touching (障害物 v)?> then\n        start sound [ポカンとげんこつ v]\n        repeat (10)\n            change [ghost v] effect by (7)\n        end\n        clear graphic effects\n        go to x: (-210) y: (100)\n    end\n    \n    if <<<(x position) > (mouse x)> and <mouse down?>> or <key (left arrow v) pressed?>> then\n        create clone of (_myself_ v)\n        change [x座標 v] by (-1)\n        point in direction (-90)\n        broadcast (い v)\n    end\n    if <<<(mouse x) > (x position)> and <mouse down?>> or <key (right arrow v) pressed?>> then\n        create clone of (_myself_ v)\n        change [x座標 v] by (1)\n        point in direction (90)\n        broadcast (あ v)\n    end\n    set [x座標 v] to ((x座標) * (0.9))\n    change x by (x座標)\n    if <touching (地面 v)?> then\n        change y by (1)\n        if <touching (地面 v)?> then\n            change y by (1)\n            if <touching (地面 v)?> then\n                change y by (1)\n                if <touching (地面 v)?> then\n                    change y by (1)\n                    if <touching (地面 v)?> then\n                        change y by (1)\n                        if <touching (地面 v)?> then\n                            change x by ((x座標) * (-1))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> then\n                                start sound [ジャンプの着地 v]\n                                if <(x座標) > [0]> then\n                                    set [x座標 v] to [-7]\n                                else\n                                    set [x座標 v] to [7]\n                                end\n                                set [y座標 v] to [15]\n                            else\n                                set [x座標 v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <touching (地面 v)?> then\n        if <<key (up arrow v) pressed?> or <<(mouse y) > (y position)> and <mouse down?>>> then\n            set [y座標 v] to [16.3]\n            start sound [ニュッ v]\n        end\n    end\n    change y by (1)\n    change [y座標 v] by (-1)\n    change y by (y座標)\n    if <touching (地面 v)?> then\n        change y by ((y座標) * (-1))\n        set [y座標 v] to [0]\n    end\n    if <touching (ジャンプ台 v)?> then\n        set [y座標 v] to [23]\n        start sound [Big Boing v]\n    end\n    if <(x position) > [230]> then\n        broadcast (next v)\n        hide\n        wait (2) seconds\n        show\n        go to x: (-216) y: (100)\n    end\nend\n\nwhen I receive [次のコスチュームにする v]\nnext costume\nset size to (5) %\n滑らかに [100]\n\ndefine 滑らかに (number or text)\nrepeat until <(round (size)) = (number or text)>\n    change size by (((number or text) - (size)) / (4))\nend\n\nchange y by (10)\n\nwhen I receive [前のコスチュームにする v]\nswitch costume to ((costume [number v]) - (1))\nset size to (5) %\n滑らかに [100]\n\nwhen I receive [音量 v]\nset volume to (0) %\n\nwhen I receive [量音 v]\nset volume to (100) %\n\nrepeat (10)\n    change [ghost v] effect by (7)\nend\n\nwhen I receive [intro end v]\nset volume to (100) %\nhide\ngo to x: (-220) y: (-22)\nswitch costume to (player v)\nset size to (100) %\nwait (0.5) seconds\nshow\nglide (1) secs to x: (0) y: (-22)\n\nwhen I receive [intro end v]\n\n@もわもわ\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nhide\nset size to (120) %\nwait (0.5) seconds\nshow\ngo to [back v] layer\nforever\n    go to [back v] layer\n    go to (プレイヤー v)\nend\n\nwhen I receive [next v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen I receive [next stage v]\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\n\nwhen I receive [next v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen I receive [もわもわ色 v]\nnext costume\n\n@障害物\n\nwhen flag clicked\ngo to x: (5) y: (91)\nshow\ngo to [back v] layer\nswitch costume to (costume9 v)\n\nforever\n\nwhen I receive [next stage v]\nnext costume\n\n@ジャンプ台\n\nwhen I receive [next stage v]\ngo to x: (0) y: (0)\nnext costume\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム1 v)\n\n@雲\n\nwhen flag clicked\n\nwhen I start as a clone\nshow\nset [ghost v] effect to (5)\ngo to x: (271) y: (pick random (141) to (117))\ngo to [front v] layer\nrepeat (572)\n    go to [back v] layer\n    change x by (-1)\n    if <(洞窟か) = [1]> then\n        hide\n    end\nend\ndelete this clone\n\nwhen I receive [intro end v]\nhide\nforever\n    wait (pick random (7) to (15)) seconds\n    create clone of (_myself_ v)\nend\n\n@next\n\nブロック名 [-620]\n\ndefine ブロック名 (number or text)\nrepeat until <(round (x position)) = (number or text)>\n    change x by (((number or text) - (x position)) / (5))\nend\n\nwhen flag clicked\nhide\nrepeat (10)\n    go to [front v] layer\nend\n\nwhen I receive [next v]\nshow\nclear graphic effects\ngo to [front v] layer\nset [ghost v] effect to (20)\ngo to x: (579) y: (0)\nブロック名 [0]\nbroadcast (表示 v)\nwait (1) seconds\nhide\n\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\n\nbroadcast (next Stage v)\n\n@サムネ\n\nwhen flag clicked\nset volume to (100) %\nhide\nset [ghost v] effect to (100)\n\nwhen I receive [スタート v]\nwait (1) seconds\nforever\n    play sound [Inferno v] until done\nend\n\nbroadcast (next Stage v)\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nhide\n\nwhen I receive [表示 v]\nshow\nrepeat (20)\n    go to [front v] layer\n    change [ghost v] effect by (-5)\nend\nwait (0.3) seconds\nbroadcast (next Stage v)\nwait (0.2) seconds\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nset [ghost v] effect to (100)\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\nwhen I receive [15 v]\nset volume to (0) %\n\nwhen I receive [22 v]\nset volume to (100) %\n\nwhen I receive [35 v]\nset volume to (0) %\n\nwhen I receive [ゴール！！ v]\nrepeat (100)\n    change volume by (1)\nend\n\n@スタート\n\nwhen flag clicked\nhide\n\ndefine 滑らかに (number or text)\nrepeat until <(round (y position)) = (number or text)>\n    change y by (((number or text) - (y position)) / (5))\nend\n\nwhen this sprite clicked\n\nwhen I receive [start！ v]\n\nwhen I receive [すたーと！ v]\n滑らかに [-217]\nhide\n\nwhen flag clicked\n\nwhen flag clicked\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\nchange [わい v] by (1)\n\nwhen I receive [音量 v]\nset volume to (0) %\n\nwhen I receive [量音 v]\nset volume to (100) %\n\nwhen I receive [intro end v]\nset volume to (100) %\nhide\nset size to (80) %\ngo to x: (0) y: (-280)\nwait (3) seconds\nshow\n滑らかに [-128]\nforever\n    if <<touching (mouse-pointer v)?> and <mouse down?>> then\n        start sound [決定ボタンを押す8 v]\n        broadcast (すたーと！ v)\n        stop [this script v]\n    end\nend\n\n@名前\n\ndefine 滑らかに (number or text)\nrepeat until <(round (y position)) = (number or text)>\n    change y by (((number or text) - (y position)) / (5))\nend\n\nwhen flag clicked\n\nturn right (15) degrees\n\nwhen flag clicked\nforever\n    change [向き v] by (7)\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [すたーと！ v]\n滑らかに [265]\nhide\n\nwhen I receive [すたーと！ v]\nwait (1.2) seconds\nbroadcast (スタート v)\n\nwhen I receive [intro end v]\ngo to x: (0) y: (270)\nwait (2) seconds\nshow\n滑らかに [129]\nglide (1) secs to x: (0) y: (129)\n\nwhen I receive [intro end v]\nset [向き v] to [0]\npoint in direction (90)\nwait (3) seconds\nforever\n    change y by ([cos v] of (向き) )\nend\n\n@文字\n\nwhen flag clicked\ngo to [front v] layer\nhide\n\nwhen I receive [suta-to  v]\n\nwhen flag clicked\nset [time v] to [0]\nhide variable [time v]\nhide variable [☁ world record v]\ngo to x: (0) y: (7)\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\n\nwhen I receive [スタート v]\nshow\nswitch costume to (コスチューム1 v)\n\nwhen I receive [6 v]\nhide\n\nwhen I receive [next stage v]\nnext costume\n\n@(没)影\n\nwhen I receive [suta-to  v]\nset volume to (100) %\n\nwhen flag clicked\nhide\nwait (1) seconds\nforever\n    go to (プレイヤー v)\n    go to [back v] layer\n    set rotation style [left-right v]\nend\n\nwhen I start as a clone\nrepeat (10)\n    change [ghost v] effect by (11)\n    change size by (-4)\nend\ndelete this clone\n\nwhen [z v] key pressed\n\nstart sound [Rip v]\n\nwait (0.5) seconds\n\nwhen I receive [next stage v]\n\nwhen I receive [あ v]\npoint in direction (90)\n\nwhen I receive [い v]\npoint in direction (-90)\n\nwhen [a v] key pressed\nshow\n\n@左\n\nset size to (40) %\n\nwhen flag clicked\nset volume to (100) %\nhide\n\nwhen this sprite clicked\nstart sound [Finger Snap v]\nbroadcast (前のコスチュームにする v)\n\nwhen I receive [旗が押された時 v]\n\nwhen I receive [☆と♡ v]\nhide\n\ndefine 滑らかに (number or text)\n\ndefine なめらかに (　るきゆえめここりけ)\nrepeat until <(round (y position)) = (　るきゆえめここりけ)>\n    change y by (((　るきゆえめここりけ) - (y position)) / (5))\nend\n\nwhen I receive [すたーと！ v]\nなめらかに [185]\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [音量 v]\nset volume to (0) %\n\nwhen I receive [量音 v]\nset volume to (100) %\n\nwhen I receive [intro end v]\nshow\nset [ghost v] effect to (100)\nwait (2) seconds\nshow\nswitch costume to (コスチューム1 v)\ngo to x: (-70) y: (-20)\nset size to (55) %\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\n@右\n\nset size to (40) %\n\nwhen flag clicked\nset volume to (100) %\nhide\n\nwhen this sprite clicked\nstart sound [Finger Snap v]\nbroadcast (次のコスチュームにする v)\n\nwhen I receive [旗が押された時 v]\n\nwhen I receive [☆と♡ v]\nhide\n\ndefine 滑らかに (number or text)\nrepeat until <(round (y position)) = (number or text)>\n    change y by (((number or text) - (y position)) / (5))\nend\n\nwhen I receive [すたーと！ v]\nwait (0.01) seconds\n滑らかに [185]\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [音量 v]\nset volume to (0) %\n\nwhen I receive [量音 v]\nset volume to (100) %\n\nwhen I receive [intro end v]\nshow\nset [ghost v] effect to (100)\nwait (2) seconds\nshow\nset size to (55) %\nswitch costume to (コスチューム1 v)\ngo to x: (70) y: (-20)\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\n@効果音量変更\n\ndefine 滑らかに (number or text)\nrepeat until <(round (y position)) = (number or text)>\n    change y by (((number or text) - (y position)) / (5))\nend\n\ngo to x: (-171) y: (-123)\n\nwhen flag clicked\nhide\n\nwhen this sprite clicked\nif <(costume [number v]) = [1]> then\n    broadcast (音量 v)\n    wait (0.1) seconds\n    switch costume to (コスチューム2 v)\n    stop [this script v]\nend\nif <(costume [number v]) = [2]> then\n    broadcast (量音 v)\n    wait (0.1) seconds\n    switch costume to (コスチューム1 v)\n    stop [this script v]\nend\n\nwhen flag clicked\nforever\n    go to [front v] layer\n    set size to (50) %\nend\n\nwhen I receive [すたーと！ v]\n滑らかに [-200]\nhide\n\nwhen I receive [intro end v]\nswitch costume to (コスチューム1 v)\ngo to x: (-171) y: (-214)\nwait (3) seconds\nshow\n滑らかに [-123]\n\n@もわもわ変更\n\ndefine 滑らかに (number or text)\nrepeat until <(round (y position)) = (number or text)>\n    change y by (((number or text) - (y position)) / (5))\nend\n\ngo to x: (-171) y: (-123)\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    go to [front v] layer\n    set size to (50) %\nend\n\nwhen I receive [すたーと！ v]\n滑らかに [-200]\nhide\n\nwhen this sprite clicked\nbroadcast (もわもわ色 v)\n\nwhen I receive [intro end v]\nswitch costume to (コスチューム1 v)\ngo to x: (171) y: (-214)\nwait (3) seconds\nshow\n滑らかに [-123]\n\n@洞窟光\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nshow\nset [ghost v] effect to (0)\ngo to (random position v)\ngo to [front v] layer\nset size to (pick random (80) to (120)) %\npoint in direction (pick random (0) to (360))\nrepeat (100)\n    go to [front v] layer\n    change [ghost v] effect by (2)\n    if <(洞窟か) = [0]> then\n        hide\n    end\n    move (3) steps\nend\ndelete this clone\n\nwhen I receive [15 v]\nforever\n    repeat until <not <(洞窟か) = [1]>>\n        wait (pick random (1) to (0.5)) seconds\n        create clone of (_myself_ v)\n    end\nend\n\n@暗闇\n\nwhen flag clicked\nhide\nforever\n    go to (プレイヤー v)\nend\n\nwhen I receive [15 v]\nshow\n\nwhen I receive [next v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen I receive [next stage v]\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen flag clicked\n\nwhen flag clicked\nrepeat (50)\n    go to [front v] layer\nend\n\nwhen I receive [光 v]\nrepeat (100)\n    change [ghost v] effect by (1)\nend\nhide\n\nwhen I receive [22 v]\nhide\n\n@外の光\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\nend\n\nwhen I receive [光 v]\nshow\n\nwhen I receive [22 v]\nhide\n\n@夜光\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nshow\nset [ghost v] effect to (pick random (0) to (10))\ngo to x: (pick random (-220) to (220)) y: (220)\ngo to [front v] layer\nset size to (pick random (80) to (120)) %\nrepeat (100)\n    go to [front v] layer\n    change y by (-3)\n    change [ghost v] effect by (1)\n    if <(夜か) = [0]> then\n        hide\n    end\nend\ndelete this clone\n\nmove (3) steps\n\nwhen I receive [35 v]\nforever\n    wait (pick random (1) to (0.5)) seconds\n    create clone of (_myself_ v)\nend\n\n@暗闇2\n\nwhen flag clicked\nhide\nforever\n    go to (プレイヤー v)\nend\n\nwhen I receive [35 v]\nshow\nforever\n    play sound [魔王魂  アコースティック52 v] until done\nend\n\nwhen I receive [next v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen I receive [next stage v]\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\n\nwhen flag clicked\nset volume to (0) %\n\nwhen flag clicked\nrepeat (50)\n    go to [front v] layer\nend\n\nwhen I receive [ゴール！！ v]\nrepeat (100)\n    change [ghost v] effect by (1)\n    change volume by (-1)\nend\nhide\n\nwhen I receive [22 v]\nhide\n\nwhen I receive [35 v]\nrepeat (100)\n    change volume by (1)\nend\n\nwhen I receive [47 v]\nbroadcast (ゴール！！ v)\n\n@Intro (by @kako-ken)\n\ndefine | Setting\npen up\nerase all\nswitch costume to (size hack v)\nset size to (Infinity) %\nclear graphic effects\nhide\ndelete all of [| sc v]\ndelete all of [| effect v]\ndelete all of [| fractal burst v]\ndelete all of [| data v]\nrepeat (9)\n    add [0] to [| data v]\nend\ndelete all of [| text v]\nrepeat (5)\n    add [0] to [| text v]\nend\ninsert [90] at (3) of [| text v] \ndelete all of [| logo v]\nadd [180] to [| logo v]\nrepeat (3)\n    add [0] to [| logo v]\nend\ndelete all of [| chevron v]\ndelete all of [| camera v]\nrepeat (8)\n    add [0] to [| camera v]\nend\nset [| 回数 v] to [0]\nreset timer\nstop all sounds\nset volume to (100) %\nstart sound [Far Out - Strangers v]\n\nwhen I receive [intro v]\nset [| shutter v] to [450]\n| Setting\nrepeat until <<[12.8] < (timer)> or <<[0] < (item (9) of [| data v])> and <((item (9) of [| data v]) + (1.3)) < (timer)>>>\n    pen up\n    erase all\n    if <(item (9) of [| data v]) = [0]> then\n        if <(timer) < [3.6]> then\n            | SC\n            | Logo\n        end\n        if <[2.76] < (timer)> then\n            if <[11.01] < (timer)> then\n                | Text\n            else\n                | BG\n                | Chevron\n                | Pinwheel\n                | Effect\n                | Text\n                | Light\n                | Fractal Burst\n                | Shutter\n            end\n        end\n    end\n    if <<<mouse down?> and <(timer) < [10.13]>> and <(item (6) of [| data v]) = [0]>> then\n        replace item (6) of [| data v] with [1]\n        replace item (8) of [| data v] with (timer)\n    end\n    if <(item (6) of [| data v]) = [1]> then\n        | Skip\n    end\nend\nstop [other scripts in sprite v]\nstop all sounds\nbroadcast (Intro end v)\n\ndefine | +SC (pattern) (x) (y) (size) (time) (color) (feelings)\nset [| 計算用2 v] to [0]\nrepeat (9)\n    change [| 計算用2 v] by (1)\n    if < (color) contains (| 計算用2)?> then\n        add (pattern) to [| sc v]\n        add (x) to [| sc v]\n        add (y) to [| sc v]\n        add (size) to [| sc v]\n        add ((time) + (((| 計算用2) - (1)) * (feelings))) to [| sc v]\n        add (| 計算用2) to [| sc v]\n        add [0] to [| sc v]\n    end\nend\n\ndefine | SC\nset [| 計算用1 v] to [0]\nrepeat ((length of [| sc v]) / (7))\n    | SC2 (item ((1) + ((| 計算用1) * (7))) of [| sc v]) ((| 計算用1) * (7))\n    change [| 計算用1 v] by (1)\nend\n\ndefine | Movement (x) (y) (d) (s)\nswitch costume to (size hack v)\nset size to (Infinity) %\nset x to (((((x) + ((item (1) of [| camera v]) + (item (5) of [| camera v]))) * ((((item (4) of [| camera v]) + (item (8) of [| camera v])) + (100)) / (100))) * ([cos v] of ((item (3) of [| camera v]) + (item (7) of [| camera v])) )) - ((((y) + ((item (2) of [| camera v]) + (item (6) of [| camera v]))) * ((((item (4) of [| camera v]) + (item (8) of [| camera v])) + (100)) / (100))) * ([sin v] of ((item (3) of [| camera v]) + (item (7) of [| camera v])) )))\nset y to (((((x) + ((item (1) of [| camera v]) + (item (5) of [| camera v]))) * ((((item (4) of [| camera v]) + (item (8) of [| camera v])) + (100)) / (100))) * ([sin v] of ((item (3) of [| camera v]) + (item (7) of [| camera v])) )) + ((((y) + ((item (2) of [| camera v]) + (item (6) of [| camera v]))) * ((((item (4) of [| camera v]) + (item (8) of [| camera v])) + (100)) / (100))) * ([cos v] of ((item (3) of [| camera v]) + (item (7) of [| camera v])) )))\npoint in direction ((d) - ((item (3) of [| camera v]) + (item (7) of [| camera v])))\nif <((s) * ((1) + (((item (4) of [| camera v]) + (item (8) of [| camera v])) / (100)))) < [100]> then\n    switch costume to (pos hack v)\nend\nset size to ((s) * ((1) + (((item (4) of [| camera v]) + (item (8) of [| camera v])) / (100)))) %\n\ndefine | SC2 (pattern) (saving)\nif <(item ((5) + (saving)) of [| sc v]) < (timer)> then\n    if <(item ((6) + (saving)) of [| sc v]) = [1]> then\n        set pen color to (#fbff2a)\n        set pen (transparency v) to (70)\n    else\n        set pen (transparency v) to (0)\n        if <((item ((6) + (saving)) of [| sc v]) mod (2)) = [0]> then\n            set pen color to (#00cbff)\n        else\n            set pen color to (#ffffff)\n        end\n    end\n    | Movement ((item ((2) + (saving)) of [| sc v]) + (<[4] < (pattern)> * (-550))) ((item ((3) + (saving)) of [| sc v]) + (<(pattern) = [2]> * (600))) [] []\n    set pen size to (item ((7) + (saving)) of [| sc v])\n    if <(item ((7) + (saving)) of [| sc v]) < ((item ((4) + (saving)) of [| sc v]) / (2.1))> then\n        replace item ((7) + (saving)) of [| sc v] with ((((item ((7) + (saving)) of [| sc v]) + (2)) / ((3) / (item (5) of [| data v]))) + (item ((7) + (saving)) of [| sc v]))\n    else\n        replace item ((7) + (saving)) of [| sc v] with ((((item ((4) + (saving)) of [| sc v]) - (item ((7) + (saving)) of [| sc v])) / ((3) / (item (5) of [| data v]))) + (item ((7) + (saving)) of [| sc v]))\n    end\n    pen down\n    | Movement ((item ((2) + (saving)) of [| sc v]) - (<[4] < (pattern)> * (-550))) ((item ((3) + (saving)) of [| sc v]) - (<(pattern) = [2]> * (360))) [] []\n    if <((item ((4) + (saving)) of [| sc v]) - (item ((7) + (saving)) of [| sc v])) < [0.00001]> then\n        repeat (7)\n            delete (1) of [| sc v]\n        end\n        change [| 計算用1 v] by (-1)\n    end\n    pen up\nend\n\nwhen I receive [intro v]\n| +SC [5] [0] [0] [361] [0] [1234567] [0.2]\n| +SC [2] [0] [0] [481] [1.4] [1234] [0.2]\n| Wait [2.76]\ndelete all of [| sc v]\n| Wait [3.6]\n| +Effect   Pattern [FW1] x [8] y [-8] Direction [0] Size [60] Color [0] Brightness [-100] Ghost [70] Count [6] +Number [60] +Pattern [Direction] Mosaic? [0]\n| +Effect   Pattern [FW1] x [0] y [0] Direction [0] Size [60] Color [114] Brightness [0] Ghost [0] Count [3] +Number [120] +Pattern [Direction] Mosaic? [0]\n| +Effect   Pattern [FW1] x [0] y [0] Direction [60] Size [60] Color [0] Brightness [100] Ghost [0] Count [3] +Number [120] +Pattern [Direction] Mosaic? [0]\n| Shake   Time [4.38] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/1] x [8] y [-8] Direction [90] Size [200] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [0] y [0] Direction [90] Size [200] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [8] y [-8] Direction [90] Size [400] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [0] y [0] Direction [90] Size [400] Color [Infinity] Brightness [80] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| Shake   Time [4.81] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [FW1] x [8] y [-8] Direction [0] Size [50] Color [0] Brightness [-100] Ghost [70] Count [10] +Number [36] +Pattern [Direction] Mosaic? [0]\n| +Effect   Pattern [FW1] x [0] y [0] Direction [0] Size [50] Color [0] Brightness [100] Ghost [0] Count [10] +Number [36] +Pattern [Direction] Mosaic? [0]\n| Shake   Time [5.62] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/2] x [8] y [-8] Direction [0] Size [150] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [0] y [0] Direction [0] Size [150] Color [Infinity] Brightness [70] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [8] y [-8] Direction [0] Size [300] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [0] y [0] Direction [0] Size [300] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| Shake   Time [6.02] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/2] x [8] y [-8] Direction [90] Size [150] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [0] y [0] Direction [90] Size [150] Color [Infinity] Brightness [70] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [8] y [-8] Direction [90] Size [300] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/2] x [0] y [0] Direction [90] Size [300] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| Shake   Time [6.42] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/1] x [-172] y [142] Direction [90] Size [85] Color [0] Brightness [-100] Ghost [70] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-180] y [150] Direction [90] Size [85] Color [0] Brightness [100] Ghost [0] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-172] y [42] Direction [90] Size [85] Color [0] Brightness [-100] Ghost [70] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-180] y [50] Direction [90] Size [85] Color [0] Brightness [100] Ghost [0] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-172] y [-58] Direction [90] Size [85] Color [0] Brightness [-100] Ghost [70] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-180] y [-50] Direction [90] Size [85] Color [0] Brightness [100] Ghost [0] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-172] y [-158] Direction [90] Size [85] Color [0] Brightness [-100] Ghost [70] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-180] y [-150] Direction [90] Size [85] Color [0] Brightness [100] Ghost [0] Count [4] +Number [120] +Pattern [x] Mosaic? [0]\n| Shake   Time [6.85] Power [20] Speed [7] Limit [1111]\nadd (timer) to [| fractal burst v]\n| +Effect   Pattern [FW1] x [488] y [-8] Direction [0] Size [50] Color [0] Brightness [-100] Ghost [70] Count [10] +Number [36] +Pattern [Direction] Mosaic? [1]\n| +Effect   Pattern [FW1] x [480] y [0] Direction [0] Size [50] Color [0] Brightness [100] Ghost [0] Count [5] +Number [72] +Pattern [Direction] Mosaic? [1]\n| +Effect   Pattern [FW1] x [480] y [0] Direction [36] Size [50] Color [114] Brightness [0] Ghost [0] Count [5] +Number [72] +Pattern [Direction] Mosaic? [1]\n| Shake   Time [7.67] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/1] x [488] y [-8] Direction [90] Size [120] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/1] x [480] y [0] Direction [90] Size [120] Color [Infinity] Brightness [50] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/1] x [488] y [-8] Direction [90] Size [220] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/1] x [480] y [0] Direction [90] Size [220] Color [0] Brightness [-100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/1] x [488] y [-8] Direction [90] Size [320] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/1] x [480] y [0] Direction [90] Size [320] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| Shake   Time [8.08] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [FW1] x [488] y [-8] Direction [0] Size [50] Color [0] Brightness [-100] Ghost [70] Count [10] +Number [36] +Pattern [Direction] Mosaic? [1]\n| +Effect   Pattern [FW1] x [480] y [0] Direction [0] Size [50] Color [114] Brightness [0] Ghost [0] Count [5] +Number [72] +Pattern [Direction] Mosaic? [1]\n| +Effect   Pattern [FW1] x [480] y [0] Direction [36] Size [50] Color [0] Brightness [100] Ghost [0] Count [5] +Number [72] +Pattern [Direction] Mosaic? [1]\n| Shake   Time [8.91] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/2] x [480] y [0] Direction [90] Size [210] Color [114] Brightness [0] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/2] x [488] y [-8] Direction [90] Size [200] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/2] x [480] y [0] Direction [90] Size [200] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| Shake   Time [9.32] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/2] x [480] y [0] Direction [0] Size [210] Color [114] Brightness [0] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/2] x [488] y [-8] Direction [0] Size [200] Color [0] Brightness [-100] Ghost [70] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| +Effect   Pattern [SW1/2] x [480] y [0] Direction [0] Size [200] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [1]\n| Shake   Time [9.72] Power [20] Speed [7] Limit [1111]\n| +Effect   Pattern [SW1/1] x [-472] y [0] Direction [90] Size [250] Color [114] Brightness [0] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| +Effect   Pattern [SW1/1] x [-480] y [0] Direction [90] Size [500] Color [0] Brightness [100] Ghost [0] Count [1] +Number [] +Pattern [] Mosaic? [0]\n| Shake   Time [10.13] Power [20] Speed [7] Limit [1111]\nstart sound [Whoosh SFX v]\n| Shake   Time [15] Power [20] Speed [7] Limit [1111]\n\ndefine | Logo\nreplace item (1) of [| logo v] with ((((90) - (item (1) of [| logo v])) / ((18) / (item (5) of [| data v]))) + (item (1) of [| logo v]))\nif <[1.5] < (timer)> then\n    if <(item (4) of [| logo v]) = [0]> then\n        replace item (3) of [| logo v] with (item (2) of [| logo v])\n        replace item (4) of [| logo v] with [1]\n    end\n    replace item (2) of [| logo v] with ((((item (2) of [| logo v]) - ((item (3) of [| logo v]) - (1))) / ((4.5) / (item (5) of [| data v]))) + (item (2) of [| logo v]))\nelse\n    replace item (2) of [| logo v] with ((((150) - (item (2) of [| logo v])) / ((20) / (item (5) of [| data v]))) + (item (2) of [| logo v]))\nend\n| Movement [0] [0] (item (1) of [| logo v]) (item (2) of [| logo v])\nswitch costume to (logo v)\nset [ghost v] effect to ((100) - ((timer) * (250)))\nstamp\n\ndefine | BG\ngo to x: (0) y: (0)\npoint in direction (90)\nswitch costume to (size hack v)\nset size to (600) %\nswitch costume to (diamond v)\nif <[11.01] < (timer)> then\n    set [brightness v] effect to (100)\n    set [ghost v] effect to (((timer) - (11.01)) * (220))\nelse\n    set [ghost v] effect to ((100) - (((timer) - (2.76)) * (220)))\nend\nstamp\nclear graphic effects\n\ndefine | Text\nclear graphic effects\nif <[9.72] < (timer)> then\n    if <(timer) < [11.01]> then\n        if <(item (5) of [| text v]) = [0]> then\n            replace item (6) of [| text v] with (item (4) of [| text v])\n            replace item (5) of [| text v] with [1]\n        end\n        replace item (3) of [| text v] with ((((90) - (item (3) of [| text v])) / ((7) / (item (5) of [| data v]))) + (item (3) of [| text v]))\n        replace item (4) of [| text v] with ((((item (4) of [| text v]) + ((0) - ((item (6) of [| text v]) - (1)))) / ((2.5) / (item (5) of [| data v]))) + (item (4) of [| text v]))\n    else\n        set [ghost v] effect to (((timer) - (11.01)) * (200))\n    end\nelse\n    if <[8.91] < (timer)> then\n        | 便利品 [1] [1] [50] [92] [3] [0.86] [大きさ] [ [8.91] ]\n    else\n        if <[8.08] < (timer)> then\n            | 便利品 [1] [1] [92] [50] [3] [0.86] [大きさ] [ [8.08] ]\n        else\n            if <[6.86] < (timer)> then\n                | 便利品 [1] [1] [17] [92] [3] [0.9] [大きさ] [ [6.86] ]\n            else\n                if <[6.43] < (timer)> then\n                    replace item (4) of [| text v] with ((((item (4) of [| text v]) - (94)) / ((3.1) / (item (5) of [| data v]))) + (item (4) of [| text v]))\n                else\n                    | 便利品 [1] [1] [200] [92] [3] [0.78] [大きさ] [ [2.76] ]\n                    | 便利品 [1] [1] [-230] [0] [3] [0.78] [y] [ [2.76] ]\n                    if <[3.6] < (timer)> then\n                        replace item (3) of [| text v] with ((((450) - (item (3) of [| text v])) / ((7) / (item (5) of [| data v]))) + (item (3) of [| text v]))\n                    end\n                    set [ghost v] effect to ((100) - (((timer) - (2.76)) * (300)))\n                end\n            end\n        end\n    end\nend\nset [| 計算用1 v] to [-960]\nrepeat ((1) + (<(timer) < [10.1]> * (2)))\n    change [| 計算用1 v] by (480)\n    | Movement ((item (1) of [| text v]) + (| 計算用1)) (item (2) of [| text v]) (item (3) of [| text v]) (item (4) of [| text v])\n    switch costume to (text v)\n    stamp\nend\n\ndefine | 便利品 (種類) (数値1) (数値2) (数値3) (数値4) (数値5) (数値6) [ (time) ]\nif <(種類) = [1]> then\n    replace item (数値1) of [| data v] with (((([cos v] of ((((timer) * (60)) - ((time) * (60.1))) * ((3) * (数値4))) ) * ((数値2) - (数値3))) * ([e ^ v] of (((((timer) * (60)) - ((time) * (60.1))) / (2)) * ([ln v] of (数値5) )) )) + (数値3))\n    if <(数値6) = [大きさ]> then\n        replace item (4) of [| text v] with (item (数値1) of [| data v])\n    else\n        if <(数値6) = [y]> then\n            replace item (2) of [| text v] with (item (数値1) of [| data v])\n        end\n    end\nelse\n    if <(種類) = [2]> then\n        replace item (数値1) of [| camera v] with ((((数値2) - (item (数値1) of [| camera v])) / ((数値3) / (item (5) of [| data v]))) + (item (数値1) of [| camera v]))\n    else\n        replace item (数値1) of [| camera v] with ((((item (数値1) of [| camera v]) + (数値2)) / ((数値3) / (item (5) of [| data v]))) + (item (数値1) of [| camera v]))\n    end\nend\n\ndefine | Shake   Time (time) Power (power) Speed (speed) Limit (limit)\nset [| チェック v] to [0]\n| +Chevron\nrepeat until <(time) < (timer)>\n    replace item (5) of [| camera v] with (([sin v] of ((timer) * (400)) ) * ((| Beat) * (letter (1) of (limit))))\n    replace item (6) of [| camera v] with (([sin v] of ((timer) * (400)) ) * ((| Beat) * (letter (2) of (limit))))\n    replace item (7) of [| camera v] with (([cos v] of ((timer) * (300)) ) * (((| Beat) * (0.4)) * (letter (3) of (limit))))\n    replace item (8) of [| camera v] with (((| Beat) * (0.8)) * (letter (4) of (limit)))\n    if <<((power) - (0.5)) < (| Beat)> and <(| チェック) = [0]>> then\n        set [| チェック v] to [1]\n    end\n    if <(| チェック) = [1]> then\n        change [| beat v] by (((0) - (| Beat)) / ((speed) / (item (5) of [| data v])))\n    else\n        change [| beat v] by ((((power) + (0.5)) - (| Beat)) / ((2) / (item (5) of [| data v])))\n    end\nend\n\ndefine | Shutter\nswitch costume to (size hack v)\nset size to (Infinity) %\nif <[10.13] < (timer)> then\n    change [| shutter v] by (((455) - (| Shutter)) / ((9) / (item (5) of [| data v])))\nelse\n    change [| shutter v] by (((385) - (| Shutter)) / ((12) / (item (5) of [| data v])))\nend\nset pen color to (#000000)\npen up\nset pen size to (480)\ngo to x: (-480) y: ((| Shutter) - ((| Beat) * (0.8)))\npen down\ngo to x: (480) y: ((| Shutter) - ((| Beat) * (0.8)))\npen up\ngo to x: (-480) y: (((0) - (| Shutter)) + ((| Beat) * (0.8)))\npen down\ngo to x: (480) y: (((0) - (| Shutter)) + ((| Beat) * (0.8)))\n\ndefine | Chevron\nset [| 計算用1 v] to [0]\nrepeat ((length of [| chevron v]) / (4))\n    replace item ((4) + ((| 計算用1) * (4))) of [| chevron v] with ((item ((4) + ((| 計算用1) * (4))) of [| chevron v]) + ((1.1) * ((| Beat) * (item (5) of [| data v]))))\n    | Movement (item ((1) + ((| 計算用1) * (4))) of [| chevron v]) (item ((2) + ((| 計算用1) * (4))) of [| chevron v]) [90] (item ((4) + ((| 計算用1) * (4))) of [| chevron v])\n    switch costume to (diamond v)\n    if <(item ((3) + ((| 計算用1) * (4))) of [| chevron v]) = [1]> then\n        set [brightness v] effect to (100)\n    else\n        if <(item ((3) + ((| 計算用1) * (4))) of [| chevron v]) = [2]> then\n            set [brightness v] effect to (-20)\n        end\n    end\n    stamp\n    clear graphic effects\n    if <[750] < (item (4) of [| chevron v])> then\n        repeat (4)\n            delete (1) of [| chevron v]\n        end\n        change [| 計算用1 v] by (-1)\n    end\n    change [| 計算用1 v] by (1)\nend\n\ndefine | +Chevron\nset [| 計算用4 v] to [0]\nrepeat (3)\n    set [| 計算用2 v] to [-960]\n    repeat (3)\n        change [| 計算用2 v] by (480)\n        add (| 計算用2) to [| chevron v]\n        add [0] to [| chevron v]\n        add (((| 計算用4) mod (3)) + (1)) to [| chevron v]\n        if <(| 計算用4) = [1]> then\n            add ((0) - ((| 計算用4) * (55))) to [| chevron v]\n        else\n            add ((0) - ((| 計算用4) * (40))) to [| chevron v]\n        end\n    end\n    change [| 計算用4 v] by (1)\nend\n\nwhen I receive [intro v]\n| Wait [6.85]\nrepeat until <(item (1) of [| camera v]) < [-220]>\n    | 便利品 [3] [1] [-1] [3] [] [] [] [ [] ]\nend\nrepeat until <[8.91] < (timer)>\n    | 便利品 [2] [1] [-480] [5] [] [] [] [ [] ]\nend\nrepeat until <[0] < (item (1) of [| camera v])>\n    | 便利品 [3] [1] [481] [3] [] [] [] [ [] ]\nend\n\n    | 便利品 [2] [1] [480] [5] [] [] [] [ [] ]\nend\n\ndefine | Wait (time)\nwait until <(time) < (timer)>\n\nwhen I receive [intro v]\n| Wait [6.85]\nrepeat until <(item (3) of [| camera v]) < [-180]>\n    | 便利品 [3] [3] [-1] [3] [] [] [] [ [] ]\nend\n\n    | 便利品 [2] [3] [-360] [7] [] [] [] [ [] ]\nend\n\ndefine | Light\nclear graphic effects\nset [| 計算用1 v] to [-960]\nrepeat (3)\n    change [| 計算用1 v] by (480)\n    | Movement (| 計算用1) [160] [90] [100]\n    switch costume to (light v)\n    if <[9.72] < (timer)> then\n        set [ghost v] effect to (((timer) - (9.72)) * (100))\n    else\n        set [ghost v] effect to ((100) - (((timer) - (2.76)) * (220)))\n    end\n    stamp\nend\nclear graphic effects\n\ndefine | Pinwheel\nset [| 計算用1 v] to [-960]\nset [ghost v] effect to ((100) - (((timer) - (2.76)) * (250)))\nrepeat (3)\n    change [| 計算用1 v] by (480)\n    | Movement (| 計算用1) (item (2) of [| text v]) ((90) + (((timer) - (2.76)) * (100))) (item (4) of [| text v])\n    switch costume to (pinwheel v)\n    stamp\nend\n\ndefine | +Effect   Pattern (p) x (x) y (y) Direction (d) Size (s) Color (co) Brightness (b) Ghost (g) Count (cu) +Number (+n) +Pattern (+p) Mosaic? (m)\nset [| 計算用2 v] to [0]\nset [| 計算用4 v] to ((0) - ((m) * (960)))\nrepeat ((1) + ((m) * (2)))\n    repeat (cu)\n        add (p) to [| effect v]\n        add (((| 計算用4) + (x)) + (((+n) * (| 計算用2)) * < (+p) contains [x]?>)) to [| effect v]\n        add ((y) + (((+n) * (| 計算用2)) * < (+p) contains [y]?>)) to [| effect v]\n        add ((d) + (((+n) * (| 計算用2)) * < (+p) contains [Dir]?>)) to [| effect v]\n        add ((s) + (((+n) * (| 計算用2)) * < (+p) contains [Size]?>)) to [| effect v]\n        add (co) to [| effect v]\n        add (b) to [| effect v]\n        add (g) to [| effect v]\n        add [0] to [| effect v]\n        add (< (p) contains [SW]?> * (20)) to [| effect v]\n        add [20] to [| effect v]\n        add [0] to [| effect v]\n        change [| 計算用2 v] by (1)\n    end\n    change [| 計算用4 v] by (480)\nend\n\ndefine | Effect\nset [| 計算用1 v] to [0]\nrepeat ((length of [| effect v]) / (12))\n    | Effect2 ((| 計算用1) * (12))\n    change [| 計算用1 v] by (1)\nend\n\ndefine | Effect2 (saving)\nclear graphic effects\nset [color v] effect to (item ((6) + (saving)) of [| effect v])\nset [brightness v] effect to (item ((7) + (saving)) of [| effect v])\nset [ghost v] effect to (item ((8) + (saving)) of [| effect v])\nif < (item ((1) + (saving)) of [| effect v]) contains [SW]?> then\n    | Movement (item ((2) + (saving)) of [| effect v]) (item ((3) + (saving)) of [| effect v]) (item ((4) + (saving)) of [| effect v]) (item ((11) + (saving)) of [| effect v])\n    switch costume to (item ((1) + (saving)) of [| effect v])\n    replace item ((9) + (saving)) of [| effect v] with (((item ((10) + (saving)) of [| effect v]) * (item (5) of [| data v])) + (item ((9) + (saving)) of [| effect v]))\n    replace item ((10) + (saving)) of [| effect v] with (((item ((10) + (saving)) of [| effect v]) * ((0.2) * (item (5) of [| data v]))) + (item ((10) + (saving)) of [| effect v]))\n    replace item ((11) + (saving)) of [| effect v] with ((((item ((5) + (saving)) of [| effect v]) - (item ((11) + (saving)) of [| effect v])) / ((6) / (item (5) of [| data v]))) + (item ((11) + (saving)) of [| effect v]))\n    set [fisheye v] effect to (item ((9) + (saving)) of [| effect v])\n    if <[1000000] < (item ((9) + (saving)) of [| effect v])> then\n        repeat (12)\n            delete ((1) + (saving)) of [| effect v]\n        end\n        change [| 計算用1 v] by (-1)\n    end\nend\nif < (item ((1) + (saving)) of [| effect v]) contains [FW]?> then\n    | Movement ((item ((2) + (saving)) of [| effect v]) + (item ((9) + (saving)) of [| effect v])) ((item ((3) + (saving)) of [| effect v]) + (item ((10) + (saving)) of [| effect v])) (item ((4) + (saving)) of [| effect v]) (item ((5) + (saving)) of [| effect v])\n    replace item ((12) + (saving)) of [| effect v] with ((item ((12) + (saving)) of [| effect v]) + (item (5) of [| data v]))\n    replace item ((1) + (saving)) of [| effect v] with (join [FW] ((round (item ((12) + (saving)) of [| effect v])) - (10)))\n    if <(item ((12) + (saving)) of [| effect v]) < [11]> then\n        switch costume to (fw1 v)\n    else\n        switch costume to (item ((1) + (saving)) of [| effect v])\n    end\n    replace item ((9) + (saving)) of [| effect v] with (((item ((11) + (saving)) of [| effect v]) * (([sin v] of (item ((4) + (saving)) of [| effect v]) ) * (item (5) of [| data v]))) + (item ((9) + (saving)) of [| effect v]))\n    replace item ((10) + (saving)) of [| effect v] with (((item ((11) + (saving)) of [| effect v]) * (([cos v] of (item ((4) + (saving)) of [| effect v]) ) * (item (5) of [| data v]))) + (item ((10) + (saving)) of [| effect v]))\n    replace item ((11) + (saving)) of [| effect v] with ((((0) - (item ((11) + (saving)) of [| effect v])) / ((5) / (item (5) of [| data v]))) + (item ((11) + (saving)) of [| effect v]))\n    if <[26] < (item ((12) + (saving)) of [| effect v])> then\n        repeat (12)\n            delete ((1) + (saving)) of [| effect v]\n        end\n        change [| 計算用1 v] by (-1)\n    end\nend\nstamp\n\ndefine | Skip\nclear graphic effects\npen up\nif <<[593.4] < (item (7) of [| data v])> and <(item (9) of [| data v]) = [0]>> then\n    replace item (9) of [| data v] with (timer)\nend\nif <(item (9) of [| data v]) = [0]> then\n    if <(item (7) of [| data v]) < [280]> then\n        replace item (7) of [| data v] with ((((item (7) of [| data v]) + (2)) / ((4) / (item (5) of [| data v]))) + (item (7) of [| data v]))\n    else\n        replace item (7) of [| data v] with ((((594) - (item (7) of [| data v])) / ((5) / (item (5) of [| data v]))) + (item (7) of [| data v]))\n    end\nelse\n    if <(item (7) of [| data v]) < [280]> then\n        replace item (7) of [| data v] with ((((0) - (item (7) of [| data v])) / ((5) / (item (5) of [| data v]))) + (item (7) of [| data v]))\n    else\n        replace item (7) of [| data v] with ((((item (7) of [| data v]) - (596)) / ((4) / (item (5) of [| data v]))) + (item (7) of [| data v]))\n    end\nend\ngo to x: (0) y: (0)\npoint in direction (90)\nset [brightness v] effect to (100)\nif <(item (7) of [| data v]) < [100]> then\n    switch costume to (pos hack v)\nelse\n    switch costume to (size hack v)\nend\nset size to (item (7) of [| data v]) %\nswitch costume to (diamond v)\nif <[0.5] < (item (7) of [| data v])> then\n    stamp\nend\nclear graphic effects\n\ndefine | Fractal Burst\npen up\nset [| 計算用1 v] to [0]\nrepeat (length of [| fractal burst v])\n    change [| 計算用1 v] by (1)\n    | Movement [0] [0] (((timer) - (item (| 計算用1) of [| fractal burst v])) * (100)) (((timer) - (item (| 計算用1) of [| fractal burst v])) * (900))\n    switch costume to (fractal burst v)\n    set [ghost v] effect to ((((timer) - (0.35)) - (item (| 計算用1) of [| fractal burst v])) * (300))\n    stamp\n    if <((item (| 計算用1) of [| fractal burst v]) + (2)) < (timer)> then\n        delete (| 計算用1) of [| fractal burst v]\n        change [| 計算用1 v] by (-1)\n    end\nend\n\ndefine | FPSI (time)\nwait (0) seconds\nreplace item (5) of [| data v] with (((days since 2000) * (2592000)) - (time))\n\nwhen I receive [intro v]\nforever\n    | FPSI ((days since 2000) * (2592000))\nend\n\nwhen I receive [intro v]\nforever\n    if <(item (6) of [| data v]) = [1]> then\n        set volume to ((100) - (((timer) - (item (8) of [| data v])) * (100))) %\n        | Skip\n    end\nend\n\nwhen flag clicked\nbroadcast (Intro v)\n\nset pen color to (#000000)\n\nset pen color to (#276aff)\n\n@ロゴ\n\n@ロゴ2\n\n@Cat Flying\n\n@スプライト1\n\n