long platformer
@Stage\n\nwhen I receive [{intro} v]\nhide variable [時間 v]\nwait (11) seconds\nbroadcast (スタート v)\nreset timer\nshow variable [時間 v]\nforever\n    play sound [nagagutsudeodekake v] until done\nend\n\nwhen I receive [turbowarp link v]\nshow variable [時間 v]\nbroadcast (スタート v)\nbroadcast (\[INTRO\]end v)\nrepeat (10)\n    play sound [nagagutsudeodekake v] until done\nend\n\nwhen I receive [ゴール v]\nset [a v] to [0]\n\nwhen flag clicked\nhide variable [時間 v]\nset [a v] to [1]\n\nwhen flag clicked\nforever\n    repeat until <(a) = [0]>\n        change [時間 v] by (0.1)\n        wait (0.1) seconds\n    end\nend\n\n@スキップ\n\nwhen flag clicked\nhide\n\nwhen I receive [♥と★ v]\n\nwait (1) seconds\nshow\ngo to [back v] layer\nforever\n    if <(ステージ) = [26]> then\n        hide\n    end\n    if <(ステージ) = [27]> then\n        hide\n    end\n    if <touching (mouse-pointer v)?> then\n        if <<mouse down?> and <not <<(ステージ) = [26]> or <(ステージ) = [27]>>>> then\n            change [ステージ v] by (1)\n            wait until <not <mouse down?>>\n        end\n    end\nend\n\nwhen I receive [スタート v]\nhide\n\nwhen I receive [停止 v]\nhide\n\nwhen I receive [アウトロ　スタート v]\nhide\n\nwhen flag clicked\nbroadcast (Start Intro v)\n\nbroadcast (スタート v)\nforever\n    play sound [nagagutsudeodekake v] until done\nend\n\nset [イントロ2回目スキップ v] to [0]\n\nwhen I receive [スタート v]\nset [時間 v] to [0]\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nhide\nforever\n    if <(ステージ) = [17]> then\n        show\n        if <touching (プレイヤー v)?> then\n            set [ghost v] effect to (60)\n        else\n            set [ghost v] effect to (0)\n        end\n    else\n        hide\n    end\nend\n\nwhen I receive [スタート v]\nhide\ngo to [front v] layer\nforever\n    if <(ステージ) = [17]> then\n        show\n    else\n        hide\n    end\nend\n\nwhen I receive [隠し発見!! v]\nforever\n    hide\nend\n\nwhen I receive [アウトロ　スタート v]\nhide\n\n@Detector\n\nwhen I start as a clone\nif <(どっち) = [0]> then\n    go to x: (-15) y: (0)\n    set [♥ v] to [0]\n    switch costume to (love v)\n    forever\n        set [♥? v] to <touching (mouse-pointer v)?>\n        if <touching (mouse-pointer v)?> then\n            set [♥ v] to [1]\n        end\n    end\nend\nif <(どっち) = [1]> then\n    go to x: (0) y: (0)\n    switch costume to (fave v)\n    set [★ v] to [0]\n    forever\n        set [星? v] to <touching (mouse-pointer v)?>\n        if <touching (mouse-pointer v)?> then\n            set [★ v] to [1]\n        end\n    end\nend\n\nwhen I receive [スタート v]\nhide\nset [★ v] to [0]\nset [♥ v] to [0]\nset [どっち v] to [0]\ncreate clone of (_myself_ v)\nwait (0.2) seconds\nset [どっち v] to [1]\ncreate clone of (_myself_ v)\nwait until <<(♥) = [1]> and <(★) = [1]>>\nbroadcast (♥と★ v)\n\nwhen I receive [アウトロ　スタート v]\nhide\n\n@トゲ\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\npoint in direction (90)\nshow\ngo to [back v] layer\nforever\n    switch costume to (ステージ)\n    if <(ステージ) = [12]> then\n        turn left (5) degrees\n    end\n    if <(ステージ) = [13]> then\n        point in direction (90)\n    end\nend\n\nwhen I receive [隠し発見!! v]\nforever\n    hide\nend\n\nwhen I receive [アウトロ　スタート v]\nhide\n\n@地面\n\nwhen I receive [スタート v]\nshow\nforever\n    switch costume to (ステージ)\nend\n\nwhen flag clicked\nhide\nset [ステージ v] to [1]\n\nwhen I receive [ネクスト v]\nchange [ステージ v] by (1)\nforever\n\nwhen flag clicked\nswitch costume to (1 v)\nrepeat until <(costume [number v]) = [13]>\n    if <(costume [number v]) = [13]> then\n        set [ステージ v] to [1]\n    end\nend\n\nwhen flag clicked\nwait (5) seconds\nwait until <(costume [number v]) = [38]>\nbroadcast (ゴール v)\nwait (10) seconds\nbroadcast (アウトロ　スタート v)\n\nwhen I receive [アウトロ　スタート v]\nhide\n\n@プレイヤー\n\ndefine 初期設定プログラム\nshow\nset [x v] to [0]\nset [y v] to [0]\nset rotation style [left-right v]\ngo to x: (-210) y: (-30)\nset size to (90) %\nswitch costume to (コスチューム1 v)\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nshow\n初期設定プログラム\nforever\n    if <<key (right arrow v) pressed?> or <<<mouse down?> and <(x position) < (mouse x)>> or <key (d v) pressed?>>> then\n        switch costume to (コスチューム1 v)\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<<mouse down?> and <(mouse x) < (x position)>> or <key (a v) pressed?>>> then\n        switch costume to (コスチューム2 v)\n        change [x v] by (-1)\n    end\n    set [x v] to ((X) * (0.89))\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 y by (-5)\n                            change x by ((X) * (-1))\n                            if <<key (up arrow v) pressed?> or <<<mouse down?> and <(y position) < (mouse y)>> or <key (w v) pressed?>>> then\n                                if <(X) < [0]> then\n                                    start sound [壁キック v]\n                                    set [x v] to [10]\n                                else\n                                    start sound [壁キック v]\n                                    set [x v] to [-10]\n                                end\n                                set [y v] to [15]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\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    change y by (-1)\n    if <<key (up arrow v) pressed?> or <<<mouse down?> and <(y position) < (mouse y)>> or <key (w v) pressed?>>> then\n        if <touching (地面 v)?> then\n            start sound [可愛いジャンプ v]\n            set [y v] to [15]\n        end\n    end\n    change y by (1)\n    if <[242] < (x position)> then\n        初期設定プログラム\n        broadcast (ネクスト v)\n        wait (3) seconds\n    end\n    if <<(y position) < [-180]> and <not <(ステージ) = [17]>>> then\n        初期設定プログラム\n    end\n    if <touching (トゲ v)?> then\n        初期設定プログラム\n    end\n    if <<(y position) < [-180]> and <(ステージ) = [17]>> then\n        broadcast (隠し発見!! v)\n        初期設定プログラム\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (コスチューム3 v)\nrepeat (6)\n    change size by (-6)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen flag clicked\nhide\n\nwhen I receive [\[intro\]end v]\nwait (2) seconds\nbroadcast (スタート v)\n\nwhen flag clicked\nhide variable [time v]\n\nwhen I receive [スタート v]\nset [time v] to [0]\nrepeat until <(ステージ) = [30]>\n    wait (1) seconds\n    change [time v] by (1)\nend\n\nwhen I receive [スタート v]\nforever\n    if <(ステージ) = [30]> then\n        show variable [time v]\n    else\n        hide variable [time v]\n    end\nend\n\nwhen I receive [アウトロ　スタート v]\nhide\n\n@☆と❤\n\nwhen I receive [♥と★ v]\nshow\ngo to x: (0) y: (0)\nglide (1) secs to x: (0) y: (-32)\nwait (1) seconds\nglide (0.8) secs to x: (0) y: (0)\nhide\n\nwhen flag clicked\nhide\n\nwhen I receive [アウトロ　スタート v]\nhide\n\n@Next!\n\nwhen I receive [次！ v]\ngo to [front v] layer\nset [color v] effect to (pick random (-250) to (250))\nhide\nstart sound [High Whoosh 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\ndefine clone (cloneid)\nswitch costume to (cloneid)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\ngo to [front v] layer\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\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    delete this clone\nend\n\nwhen I receive [ネクスト v]\nbroadcast (次！ v)\n\nwhen I receive [アウトロ　スタート v]\nhide\n\n@Intro\n\ndefine fillRect (x1) (x2) (y1) (y2)\ndelete all of [temp v]\nset pen size to (1)\ngo to x: (x1) y: (y1)\npen down\nset x to (x2)\nset y to (y2)\nset x to (x1)\nset y to (y1)\npen up\nadd ((x2) - (x1)) to [temp v]\nadd ((y2) - (y1)) to [temp v]\nif <<(item (1) of [temp v]) < [1]> or <(item (2) of [temp v]) < [1]>> then\n    stop [this script v]\nend\nif <(item (2) of [temp v]) < (item (1) of [temp v])> then\n    replace item (1) of [temp v] with ([floor v] of (item (2) of [temp v]) )\n    replace item (2) of [temp v] with ((item (1) of [temp v]) / (2))\n    set pen size to (item (1) of [temp v])\n    go to x: ((x1) + (item (2) of [temp v])) y: (((y1) + (y2)) / (2))\n    pen down\n    set x to ((x2) - (item (2) of [temp v]))\n    pen up\nelse\n    replace item (1) of [temp v] with ([floor v] of (item (1) of [temp v]) )\n    replace item (2) of [temp v] with ((item (1) of [temp v]) / (2))\n    set pen size to (item (1) of [temp v])\n    go to x: (((x1) + (x2)) / (2)) y: ((y1) + (item (2) of [temp v]))\n    pen down\n    set y to ((y2) - (item (2) of [temp v]))\n    pen up\nend\nrepeat until <(item (1) of [temp v]) < [2]>\n    replace item (1) of [temp v] with ((0.146446609) * (item (1) of [temp v]))\n    replace item (2) of [temp v] with ((item (1) of [temp v]) / (2))\n    set pen size to (item (1) of [temp v])\n    go to x: ((x1) + (item (2) of [temp v])) y: ((y1) + (item (2) of [temp v]))\n    pen down\n    set x to ((x2) - (item (2) of [temp v]))\n    set y to ((y2) - (item (2) of [temp v]))\n    set x to ((x1) + (item (2) of [temp v]))\n    set y to ((y1) + (item (2) of [temp v]))\n    pen up\nend\n\ndefine Tri Filler (x1) (y1) (x2) (y2) (x3) (y3)\ndelete all of [temp v]\nGo to (x1) (y1)\nadd (x position) to [temp v]\nadd (y position) to [temp v]\nGo to (x2) (y2)\nadd (x position) to [temp v]\nadd (y position) to [temp v]\nGo to (x3) (y3)\nadd (x position) to [temp v]\nadd (y position) to [temp v]\nztri Filler (item (1) of [temp v]) (item (2) of [temp v]) (item (3) of [temp v]) (item (4) of [temp v]) (item (5) of [temp v]) (item (6) of [temp v])\n\ndefine Draw Text (size) (zrot) (xrot)\nset [#2 v] to (zrot)\npoint in direction ((zrot) + (90))\nif <(xrot) > [180]> then\n    switch costume to (join [Text] ((94) - (round ((xrot) / ((180) / (47))))))\nelse\n    switch costume to (join [Text] (round ((xrot) / ((180) / (47)))))\nend\nif <(xrot) > [90]> then\n    if <(xrot) > [270]> then\n        Text [1] (size)\n        Text [2] (size)\n    else\n        Text [2] (size)\n        Text [1] (size)\n    end\nelse\n    Text [1] (size)\n    Text [2] (size)\nend\n\ndefine Draw BG\nswitch costume to (pos v)\nset size to ([10 ^ v] of ([10 ^ v] of ([10 ^ v] of (10) ) ) ) %\npen up\ngo to x: (0) y: (0)\nset pen size to (2000)\nset pen color to (#410001)\nset pen (transparency v) to (75)\npen down\npen up\nset [#1 v] to [0]\nset pen color to (#ffffff)\nrepeat ((length of [stars v]) / (3))\n    Go to (item ((#1) + (1)) of [stars v]) (item ((#1) + (2)) of [stars v])\n    Set Pen Size to (item ((#1) + (3)) of [stars v])\n    pen down\n    pen up\n    change [#1 v] by (3)\nend\nset pen color to (#7e0303)\nset [#1 v] to [-2200]\nset [#2 v] to [-220]\nSet Pen Size to [3]\nrepeat (11)\n    Go to (#2) [0]\n    pen down\n    Go to (#1) [-500]\n    pen up\n    change [#1 v] by (400)\n    change [#2 v] by (40)\nend\nset [#1 v] to [0]\nrepeat ((length of [lines v]) / (2))\n    Set Pen Size to (((0) - (item ((#1) + (1)) of [lines v])) / (20))\n    Go to [-500] (item ((#1) + (1)) of [lines v])\n    pen down\n    Go to [500] (item ((#1) + (1)) of [lines v])\n    pen up\n    replace item ((#1) + (1)) of [lines v] with ((((timer) - (item ((#1) + (2)) of [lines v])) * ((timer) - (item ((#1) + (2)) of [lines v]))) * (-50))\n    if <(item ((#1) + (1)) of [lines v]) < [-500]> then\n        repeat (2)\n            delete ((#1) + (1)) of [lines v]\n        end\n    else\n        change [#1 v] by (2)\n    end\nend\nset [#1 v] to ((length of [mountains v]) - (6))\nrepeat ((length of [mountains v]) / (6))\n    set pen color to (#de0102)\n    Tri Filler ((item ((#1) + (1)) of [mountains v]) + ((item ((#1) + (3)) of [mountains v]) * (-1))) [0] ((item ((#1) + (1)) of [mountains v]) + (item ((#1) + (3)) of [mountains v])) [0] (item ((#1) + (1)) of [mountains v]) (item ((#1) + (2)) of [mountains v])\n    if <(item ((#1) + (6)) of [mountains v]) > [0]> then\n        set pen color to (#bb1f1b)\n        Tri Filler ((item ((#1) + (1)) of [mountains v]) + ((item ((#1) + (3)) of [mountains v]) * (-0.5))) [0] ((item ((#1) + (1)) of [mountains v]) - (item ((#1) + (3)) of [mountains v])) [0] (item ((#1) + (1)) of [mountains v]) (item ((#1) + (2)) of [mountains v])\n    else\n        set pen color to (#bb1f1b)\n        Tri Filler ((item ((#1) + (1)) of [mountains v]) + ((item ((#1) + (3)) of [mountains v]) * (0.5))) [0] ((item ((#1) + (1)) of [mountains v]) + (item ((#1) + (3)) of [mountains v])) [0] (item ((#1) + (1)) of [mountains v]) (item ((#1) + (2)) of [mountains v])\n    end\n    set [#2 v] to (((timer) - (item ((#1) + (5)) of [mountains v])) / (4))\n    replace item ((#1) + (1)) of [mountains v] with (((#2) * (#2)) * (item ((#1) + (6)) of [mountains v]))\n    replace item ((#1) + (2)) of [mountains v] with ([abs v] of ((((#2) + (0.5)) / (2)) * (item ((#1) + (4)) of [mountains v])) )\n    replace item ((#1) + (3)) of [mountains v] with ([abs v] of ((((#2) + (0.5)) / (2)) * (item ((#1) + (4)) of [mountains v])) )\n    if <(((timer) - (item ((#1) + (5)) of [mountains v])) / (4)) > [1]> then\n        repeat (6)\n            delete ((#1) + (1)) of [mountains v]\n        end\n    else\n        change [#1 v] by (-6)\n    end\nend\nset [#1 v] to [0]\nset pen color to (#ffffff)\npen up\nrepeat ((length of [particles v]) / (5))\n    Set Pen Size to ((item ((#1) + (1)) of [particles v]) / (75))\n    set [#2 v] to (item ((#1) + (5)) of [particles v])\n    repeat ((item ((#1) + (3)) of [particles v]) + (1))\n        Go to ((([sin v] of (item ((#1) + (2)) of [particles v]) ) * (item ((#1) + (1)) of [particles v])) + (([sin v] of (#2) ) * ((item ((#1) + (1)) of [particles v]) / (30)))) ((([cos v] of (item ((#1) + (2)) of [particles v]) ) * (item ((#1) + (1)) of [particles v])) + (([cos v] of (#2) ) * ((item ((#1) + (1)) of [particles v]) / (30))))\n        pen down\n        change [#2 v] by ((360) / (item ((#1) + (3)) of [particles v]))\n    end\n    pen up\n    set [#2 v] to (((timer) - (item ((#1) + (4)) of [particles v])) / (4))\n    replace item ((#1) + (1)) of [particles v] with ((((#2) * (#2)) * ((#2) * ((#2) * (#2)))) * (500))\n    if <(((timer) - (item ((#1) + (4)) of [particles v])) / (4)) > [1]> then\n        repeat (5)\n            delete ((#1) + (1)) of [particles v]\n        end\n    else\n        change [#1 v] by (5)\n    end\nend\nSet Pen Size to [3]\nset pen color to (#fbc7ca)\nGo to [-500] [0]\npen down\nGo to [500] [0]\npen up\n\ndefine Go to (x) (y)\ngo to x: (((x) + (TX)) * (TZ)) y: (((y) + (TY)) * (TZ))\n\ndefine Set Pen Size to (size)\nset pen size to ((size) * (TZ))\n\ndefine Setup\nset [spline # v] to [0]\nhide\nswitch costume to (pos v)\nset size to ([10 ^ v] of ([10 ^ v] of (10) ) ) %\nerase all\nreset timer\nset [tx v] to [0]\nset [ty v] to [0]\ndelete all of [line explosions v]\ndelete all of [splines v]\ndelete all of [lines v]\ndelete all of [mountains v]\ndelete all of [particles v]\ndelete all of [rectangles v]\ndelete all of [stars v]\ndelete all of [rec v]\ndelete all of [2-point splines v]\ndelete all of [text v]\nadd [0.75] to [text v]\nadd [0] to [text v]\nadd [0] to [text v]\nadd [0] to [text v]\ndelete all of [arcs v]\nrepeat (6)\n    add [0] to [rec v]\nend\nrepeat (50)\n    add (pick random (-300) to (300)) to [stars v]\n    add (pick random (0) to (200)) to [stars v]\n    add (pick random (1) to (3)) to [stars v]\nend\n\ndefine ztri Filler (x1) (y1) (x2) (y2) (x3) (y3)\ndelete all of [temp v]\nadd ([sqrt v] of ((((x3) - (x2)) * ((x3) - (x2))) + (((y3) - (y2)) * ((y3) - (y2)))) ) to [temp v]\nadd ([sqrt v] of ((((x3) - (x1)) * ((x3) - (x1))) + (((y3) - (y1)) * ((y3) - (y1)))) ) to [temp v]\nadd ([sqrt v] of ((((x1) - (x2)) * ((x1) - (x2))) + (((y1) - (y2)) * ((y1) - (y2)))) ) to [temp v]\nadd ((item (1) of [temp v]) + ((item (2) of [temp v]) + (item (3) of [temp v]))) to [temp v]\nadd ((((item (1) of [temp v]) * (x1)) + (((item (2) of [temp v]) * (x2)) + ((item (3) of [temp v]) * (x3)))) / (item (4) of [temp v])) to [temp v]\nadd ((((item (1) of [temp v]) * (y1)) + (((item (2) of [temp v]) * (y2)) + ((item (3) of [temp v]) * (y3)))) / (item (4) of [temp v])) to [temp v]\nadd ((item (4) of [temp v]) / (2)) to [temp v]\nadd ([sqrt v] of (((item (7) of [temp v]) * ((item (7) of [temp v]) - (item (1) of [temp v]))) * (((item (7) of [temp v]) - (item (2) of [temp v])) * ((item (7) of [temp v]) - (item (3) of [temp v])))) ) to [temp v]\nadd (((4) * (item (8) of [temp v])) / (item (4) of [temp v])) to [temp v]\nset pen size to (item (9) of [temp v])\ngo to x: (item (5) of [temp v]) y: (item (6) of [temp v])\npen down\npen up\nset [#2 v] to [0.5]\nrepeat (5)\n    set pen size to ((#2) * (item (9) of [temp v]))\n    go to x: ((x1) - ((#2) * ((x1) - (item (5) of [temp v])))) y: ((y1) - ((#2) * ((y1) - (item (6) of [temp v]))))\n    pen down\n    go to x: ((x2) - ((#2) * ((x2) - (item (5) of [temp v])))) y: ((y2) - ((#2) * ((y2) - (item (6) of [temp v]))))\n    go to x: ((x3) - ((#2) * ((x3) - (item (5) of [temp v])))) y: ((y3) - ((#2) * ((y3) - (item (6) of [temp v]))))\n    go to x: ((x1) - ((#2) * ((x1) - (item (5) of [temp v])))) y: ((y1) - ((#2) * ((y1) - (item (6) of [temp v]))))\n    pen up\n    set [#2 v] to ((#2) / (2))\n    if <((#2) * (item (9) of [temp v])) < [0.5]> then\n        stop [this script v]\n    end\nend\n\ndefine Draw Rectangles\nset [#1 v] to [0]\nrepeat ((length of [rectangles v]) / (4))\n    Calc Points/Set Color (Rec/Arc) (item ((#1) + (4)) of [rectangles v]) (item ((#1) + (3)) of [rectangles v])\n    change pen (brightness v) by (-10)\n    set [#3 v] to ((#3) * ((item ((#1) + (2)) of [rectangles v]) * (240)))\n    set [#4 v] to ((#4) * ((item ((#1) + (2)) of [rectangles v]) * (240)))\n    if <(item ((#1) + (2)) of [rectangles v]) = [1]> then\n        fillRect (#4) (#3) ((item ((#1) + (1)) of [rectangles v]) + (-30)) ((item ((#1) + (1)) of [rectangles v]) + (30))\n    else\n        fillRect (#3) (#4) ((item ((#1) + (1)) of [rectangles v]) + (-30)) ((item ((#1) + (1)) of [rectangles v]) + (30))\n    end\n    if <((timer) - (item ((#1) + (4)) of [rectangles v])) > [2.5]> then\n        repeat (4)\n            delete ((#1) + (1)) of [rectangles v]\n        end\n    else\n        change [#1 v] by (4)\n    end\nend\n\ndefine Create Rectangle (y) (dir\(-1/1\)) (color)\nadd (y) to [rectangles v]\nadd (dir\(-1/1\)) to [rectangles v]\nadd (color) to [rectangles v]\nadd (timer) to [rectangles v]\n\nwhen I receive [{intro} v]\nforever\n    add [0] to [lines v]\n    add (timer) to [lines v]\n    add [0] to [mountains v]\n    add [0] to [mountains v]\n    add [0] to [mountains v]\n    add (pick random (150) to (300)) to [mountains v]\n    add (timer) to [mountains v]\n    add [500] to [mountains v]\n    add [0] to [mountains v]\n    add [0] to [mountains v]\n    add [0] to [mountains v]\n    add (pick random (150) to (300)) to [mountains v]\n    add (timer) to [mountains v]\n    add [-500] to [mountains v]\n    wait (0.3) seconds\nend\n\nwhen I receive [{intro} v]\nforever\n    repeat (5)\n        add [0] to [particles v]\n        add (pick random (-180) to (180)) to [particles v]\n        add (pick random (1) to (5)) to [particles v]\n        add (timer) to [particles v]\n        add (pick random (-180) to (180)) to [particles v]\n    end\n    wait (0.04) seconds\nend\n\nwhen I receive [{intro} v]\nrepeat (4)\n    Create Rectangle (item (1) of [rec v]) [-1] [1]\n    Create Rectangle ((0) - (item (1) of [rec v])) [-1] [1]\n    Create Rectangle (item (1) of [rec v]) [1] [1]\n    Create Rectangle ((0) - (item (1) of [rec v])) [1] [1]\n    wait (0.1) seconds\n    replace item (1) of [rec v] with ((item (1) of [rec v]) + (60))\nend\n\nwhen I receive [{intro} v]\nwait (0.4) seconds\nrepeat (4)\n    Create Rectangle (item (2) of [rec v]) [-1] [2]\n    Create Rectangle ((0) - (item (2) of [rec v])) [-1] [2]\n    Create Rectangle (item (2) of [rec v]) [1] [2]\n    Create Rectangle ((0) - (item (2) of [rec v])) [1] [2]\n    wait (0.1) seconds\n    replace item (2) of [rec v] with ((item (2) of [rec v]) + (60))\nend\n\nwhen I receive [{intro} v]\nwait (0.8) seconds\nrepeat (4)\n    Create Rectangle (item (3) of [rec v]) [-1] [3]\n    Create Rectangle ((0) - (item (3) of [rec v])) [-1] [3]\n    Create Rectangle (item (3) of [rec v]) [1] [3]\n    Create Rectangle ((0) - (item (3) of [rec v])) [1] [3]\n    wait (0.1) seconds\n    replace item (3) of [rec v] with ((item (3) of [rec v]) + (60))\nend\n\nwhen I receive [{intro} v]\nwait (1.2) seconds\nrepeat (4)\n    Create Rectangle (item (4) of [rec v]) [-1] [1]\n    Create Rectangle ((0) - (item (4) of [rec v])) [-1] [1]\n    Create Rectangle (item (4) of [rec v]) [1] [1]\n    Create Rectangle ((0) - (item (4) of [rec v])) [1] [1]\n    wait (0.1) seconds\n    replace item (4) of [rec v] with ((item (4) of [rec v]) + (60))\nend\n\ndefine Draw Arcs\nset [#1 v] to [0]\nrepeat ((length of [arcs v]) / (4))\n    Calc Points/Set Color (Rec/Arc) (item ((#1) + (3)) of [arcs v]) (item ((#1) + (2)) of [arcs v])\n    set pen size to (((item ((#1) + (4)) of [arcs v]) + (50)) / (20))\n    set pen (transparency v) to (([10 ^ v] of ((5) * ([log v] of ([abs v] of ([cos v] of ((((timer) - (item ((#1) + (3)) of [arcs v])) / (2.5)) * (180)) ) ) )) ) * (100))\n    if <(item ((#1) + (1)) of [arcs v]) = [1]> then\n        set [#3 v] to (((#3) * ((item ((#1) + (1)) of [arcs v]) * (-180))) - (180))\n        set [#4 v] to (((#4) * ((item ((#1) + (1)) of [arcs v]) * (-180))) - (180))\n    else\n        set [#3 v] to ((#3) * ((item ((#1) + (1)) of [arcs v]) * (180)))\n        set [#4 v] to ((#4) * ((item ((#1) + (1)) of [arcs v]) * (180)))\n    end\n    if <(#3) > (#4)> then\n        set [#2 v] to (#4)\n    else\n        set [#2 v] to (#3)\n    end\n    pen up\n    repeat ([abs v] of ((#3) - (#4)) )\n        go to x: (([sin v] of (#2) ) * (item ((#1) + (4)) of [arcs v])) y: (([cos v] of (#2) ) * (item ((#1) + (4)) of [arcs v]))\n        pen down\n        go to x: (([sin v] of (#2) ) * ((item ((#1) + (4)) of [arcs v]) + (50))) y: (([cos v] of (#2) ) * ((item ((#1) + (4)) of [arcs v]) + (50)))\n        pen up\n        change [#2 v] by (1)\n    end\n    change [#1 v] by (4)\nend\n\ndefine Calc Points/Set Color (Rec/Arc) (start time) (color)\nif <(color) = [1]> then\n    set pen color to (#ffffff)\nend\nif <(color) = [2]> then\n    set pen color to (#fd3b3b)\nend\nif <(color) = [3]> then\n    set pen color to (#b13534)\nend\nset [#4 v] to [0]\nif <(((timer) - (start time)) / (2)) > [1]> then\n    set [#3 v] to [1]\nelse\n    set [#3 v] to (((timer) - (start time)) / (2))\nend\nif <((((timer) - (start time)) - (0.5)) / (2)) < [0]> then\n    set [#4 v] to [0]\nelse\n    if <((((timer) - (start time)) - (0.5)) / (2)) > [1]> then\n        set [#4 v] to [1]\n    else\n        set [#4 v] to ((((timer) - (start time)) - (0.5)) / (2))\n    end\nend\nif <(((timer) - (start time)) / (2)) > [0.5]> then\n    set [#3 v] to ((1) - (([10 ^ v] of ((4) * ([log v] of (((-2) * (#3)) + (2)) )) ) / (2)))\nelse\n    set [#3 v] to ((8) * ([10 ^ v] of ((4) * ([log v] of (#3) )) ))\nend\nif <((((timer) - (start time)) - (0.5)) / (2)) > [0.5]> then\n    set [#4 v] to ((1) - (([10 ^ v] of ((4) * ([log v] of (((-2) * (#4)) + (2)) )) ) / (2)))\nelse\n    set [#4 v] to ((8) * ([10 ^ v] of ((4) * ([log v] of (#4) )) ))\nend\n\nwhen I receive [{intro} v]\nwait (0.8) seconds\nset [arc v] to [0]\nrepeat (2)\n    add [-1] to [arcs v]\n    add [1] to [arcs v]\n    add (timer) to [arcs v]\n    add (Arc) to [arcs v]\n    add [1] to [arcs v]\n    add [1] to [arcs v]\n    add (timer) to [arcs v]\n    add (Arc) to [arcs v]\n    wait (0.1) seconds\n    change [arc v] by (50)\n    add [-1] to [arcs v]\n    add [2] to [arcs v]\n    add (timer) to [arcs v]\n    add (Arc) to [arcs v]\n    add [1] to [arcs v]\n    add [2] to [arcs v]\n    add (timer) to [arcs v]\n    add (Arc) to [arcs v]\n    wait (0.1) seconds\n    change [arc v] by (50)\n    add [-1] to [arcs v]\n    add [3] to [arcs v]\n    add (timer) to [arcs v]\n    add (Arc) to [arcs v]\n    add [1] to [arcs v]\n    add [3] to [arcs v]\n    add (timer) to [arcs v]\n    add (Arc) to [arcs v]\n    wait (0.1) seconds\n    change [arc v] by (50)\nend\n\nwhen I receive [{intro} v]\nwait (1.6) seconds\nrepeat (4)\n    Create Rectangle (item (5) of [rec v]) [-1] [2]\n    Create Rectangle ((0) - (item (5) of [rec v])) [-1] [2]\n    Create Rectangle (item (5) of [rec v]) [1] [2]\n    Create Rectangle ((0) - (item (5) of [rec v])) [1] [2]\n    wait (0.1) seconds\n    replace item (5) of [rec v] with ((item (5) of [rec v]) + (60))\nend\n\nwhen I receive [{intro} v]\nwait (2) seconds\nrepeat (4)\n    Create Rectangle (item (6) of [rec v]) [-1] [3]\n    Create Rectangle ((0) - (item (6) of [rec v])) [-1] [3]\n    Create Rectangle (item (6) of [rec v]) [1] [3]\n    Create Rectangle ((0) - (item (6) of [rec v])) [1] [3]\n    wait (0.1) seconds\n    replace item (6) of [rec v] with ((item (6) of [rec v]) + (60))\nend\n\ndefine Logo\nif <(timer) > [3]> then\n    point in direction (90)\n    set [#1 v] to ([10 ^ v] of ((2) * ([log v] of ((1) - (((timer) - (3)) / (1.5))) )) )\n    go to x: ((#1) * (-300)) y: ((#1) * (-200))\n    switch costume to (logo v)\n    set size to (((1) - (#1)) * (70)) %\n    stamp\n    switch costume to (pos v)\n    set size to ([10 ^ v] of ([10 ^ v] of (10) ) ) %\nend\n\ndefine Text (type) (size)\nif <(type) = [1]> then\n    set [brightness v] effect to (100)\n    set [#1 v] to [85]\n    repeat (15)\n        Go to [0] (((#1) - (100)) * (size))\n        set [#2 v] to (costume [number v])\n        if <(((#1) * (size)) * (TZ)) > [100]> then\n            switch costume to (pos v)\n        end\n        set size to (((#1) * (size)) * (TZ)) %\n        switch costume to (#2)\n        stamp\n        change [#1 v] by (1)\n    end\nend\nif <(type) = [2]> then\n    clear graphic effects\n    set [brightness v] effect to (item (4) of [text v])\n    Go to [0] [0]\n    set [#2 v] to (costume [number v])\n    if <(((100) * (size)) * (TZ)) > [100]> then\n        switch costume to (pos v)\n    end\n    set size to (((100) * (size)) * (TZ)) %\n    switch costume to (#2)\n    stamp\nend\n\ndefine Beat (end time)\nset [keyframe 2 v] to (timer)\nrepeat until <(timer) > (end time)>\n    set [keyframe v] to (((timer) - (Keyframe 2)) / (1))\n    set [keyframe v] to ((1) - ([10 ^ v] of ((2) * ([log v] of ((1) - (Keyframe)) )) ))\n    set [tz v] to ((((1) - (Keyframe)) / (4)) + (1))\n    set [tx v] to (([sin v] of ((timer) * (500)) ) * (((1) - (TZ)) * (100)))\n    set [ty v] to (([cos v] of ((timer) * (500)) ) * (((1) - (TZ)) * (100)))\nend\n\nwhen I receive [{intro} v]\nwait until <(timer) > [4.5]>\nBeat [5.2]\nBeat [5.7]\nBeat [6.2]\nBeat [6.48]\nBeat [7.2]\nBeat [7.8]\nBeat [8.4]\nBeat [8.9]\nBeat [9.2]\nBeat [9.9]\n\nwhen I start as a clone\nswitch costume to (flash v)\ngo to x: (0) y: (0)\nshow\nclear graphic effects\nset size to (100) %\npoint in direction (90)\ngo to [front v] layer\nrepeat until <(timer) > [5.5]>\n    set [ghost v] effect to ((((timer) - (4.5)) / (0.7)) * (100))\nend\ndelete this clone\n\ndefine Text Movement\nif <<(timer) > [4.5]> and <(timer) < [5.2]>> then\n    replace item (1) of [text v] with ((([10 ^ v] of (((-10) * (((timer) - (4.5)) / (2))) * ([log v] of (2) )) ) * ([sin v] of (((((((timer) - (4.5)) / (2)) * (10)) - (0.75)) * (360)) / (3)) )) + (1))\n    replace item (1) of [text v] with ((item (1) of [text v]) / (1.333333))\nend\nif <<(timer) > [6.2]> and <(timer) < [6.48]>> then\n    replace item (1) of [text v] with ((1) - ([10 ^ v] of ((3) * ([log v] of ((1) - (((timer) - (6.2)) / (0.5))) )) ))\n    replace item (1) of [text v] with ((0.75) - ((item (1) of [text v]) / (2)))\nend\nif <<(timer) > [6.48]> and <(timer) < [7.8]>> then\n    replace item (1) of [text v] with ((([10 ^ v] of (((-10) * (((timer) - (6.48)) / (2))) * ([log v] of (2) )) ) * ([sin v] of (((((((timer) - (6.48)) / (2)) * (10)) - (0.75)) * (360)) / (3)) )) + (1))\n    replace item (1) of [text v] with ((item (1) of [text v]) / (1.3333333))\n    set [#1 v] to (((timer) - (6.2)) / (2))\n    if <(#1) < [0.5]> then\n        replace item (2) of [text v] with (((4) * ([10 ^ v] of ((3) * ([log v] of (#1) )) )) * (720))\n    else\n        replace item (2) of [text v] with (((1) - (([10 ^ v] of ((3) * ([log v] of (((-2) * (#1)) + (2)) )) ) / (2))) * (720))\n    end\nend\nif <<(timer) > [7.8]> and <(timer) < [8.48]>> then\n    set [#1 v] to (((timer) - (6.2)) / (2))\n    if <(#1) < [0.5]> then\n        replace item (2) of [text v] with (((4) * ([10 ^ v] of ((3) * ([log v] of (#1) )) )) * (720))\n    else\n        replace item (2) of [text v] with (((1) - (([10 ^ v] of ((3) * ([log v] of (((-2) * (#1)) + (2)) )) ) / (2))) * (720))\n    end\nend\nif <<(timer) > [8.48]> and <(timer) < [9]>> then\n    replace item (2) of [text v] with [0]\nend\nif <<(timer) > [7.8]> and <(timer) < [8.55]>> then\n    set [#1 v] to (((timer) - (7.8)) / (0.75))\n    if <(#1) < [0.5]> then\n        replace item (3) of [text v] with (((2) * ([10 ^ v] of ((2) * ([log v] of (#1) )) )) * (360))\n    else\n        replace item (3) of [text v] with (((1) - (([10 ^ v] of ((2) * ([log v] of (((-2) * (#1)) + (2)) )) ) / (2))) * (360))\n    end\nend\nif <<(timer) > [8.55]> and <(timer) < [12]>> then\n    replace item (3) of [text v] with [0]\nend\nif <<(timer) > [8.5]> and <(timer) < [9.5]>> then\n    set [#1 v] to (((timer) - (8.5)) / (1))\n    if <(#1) < [0.5]> then\n        replace item (2) of [text v] with (((4) * ([10 ^ v] of ((3) * ([log v] of (#1) )) )) * (360))\n        replace item (1) of [text v] with (((1) - ((4) * ([10 ^ v] of ((3) * ([log v] of (#1) )) ))) / (1.6666666))\n        replace item (1) of [text v] with ((item (1) of [text v]) + (0.25))\n    else\n        replace item (2) of [text v] with (((1) - (([10 ^ v] of ((3) * ([log v] of (((-2) * (#1)) + (2)) )) ) / (2))) * (360))\n        replace item (1) of [text v] with ((([10 ^ v] of ((3) * ([log v] of (((-2) * (#1)) + (2)) )) ) / (2)) / (1.6666666))\n        replace item (1) of [text v] with ((item (1) of [text v]) + (0.25))\n    end\nend\nif <<(timer) > [9.9]> and <(timer) < [12]>> then\n    replace item (2) of [text v] with [0]\nend\nif <<(timer) > [9.5]> and <(timer) < [9.9]>> then\n    set [#1 v] to (((timer) - (9.5)) / (0.4))\n    replace item (1) of [text v] with ((0.25) + (([10 ^ v] of ((4) * ([log v] of (#1) )) ) * (30)))\n    replace item (4) of [text v] with ((item (1) of [text v]) * (10))\nend\nreplace item (3) of [text v] with [0]\n\ndefine || Create Spline || Thickness: (thickness) || Length: (length) || Ending Type: (et) || Color(1/2/3): (color) || Duration: (duration) || Ease: (ease) || In/Out: (in/out) ||\ndelete all of [spline data v]\nadd (thickness) to [spline data v]\nadd (length) to [spline data v]\nadd (et) to [spline data v]\nadd (color) to [spline data v]\nadd (duration) to [spline data v]\nadd (ease) to [spline data v]\nadd (in/out) to [spline data v]\n\ndefine || Add 3 Points || X1: (x1) || Y1: (y1) || X2: (x2) || Y2: (y2) || X3: (x3) || Y3: (y3) ||\nadd (x1) to [spline data v]\nadd (y1) to [spline data v]\nadd (x2) to [spline data v]\nadd (y2) to [spline data v]\nadd (x3) to [spline data v]\nadd (y3) to [spline data v]\n\ndefine || Implement Spline ||\nset [#1 v] to [1]\nadd (length of [spline data v]) to [splines v]\nadd [0] to [splines v]\nadd (timer) to [splines v]\nrepeat (length of [spline data v])\n    add (item (#1) of [spline data v]) to [splines v]\n    change [#1 v] by (1)\nend\nchange [spline # v] by (1)\n\ndefine Draw Splines\nset [#1 v] to [0]\nrepeat (Spline #)\n    Draw Spline (#1)\n    set [#2 v] to (((timer) - (item ((#1) + (3)) of [splines v])) / (item ((#1) + (8)) of [splines v]))\n    if <(item ((#1) + (10)) of [splines v]) = [In]> then\n        replace item ((#1) + (2)) of [splines v] with ([10 ^ v] of ((item ((#1) + (9)) of [splines v]) * ([log v] of (#2) )) )\n    end\n    if <(item ((#1) + (10)) of [splines v]) = [Out]> then\n        replace item ((#1) + (2)) of [splines v] with ((1) - ([10 ^ v] of ((item ((#1) + (9)) of [splines v]) * ([log v] of ((1) - (#2)) )) ))\n    end\n    if <(item ((#1) + (10)) of [splines v]) = [In/Out]> then\n        if <(#2) < [0.5]> then\n            replace item ((#1) + (2)) of [splines v] with (([10 ^ v] of (((item ((#1) + (9)) of [splines v]) - (1)) * ([log v] of (2) )) ) * ([10 ^ v] of ((item ((#1) + (9)) of [splines v]) * ([log v] of (#2) )) ))\n        else\n            replace item ((#1) + (2)) of [splines v] with ((1) - (([10 ^ v] of ((item ((#1) + (9)) of [splines v]) * ([log v] of (((-2) * (#2)) + (2)) )) ) / (2)))\n        end\n    end\n    if <(item ((#1) + (6)) of [splines v]) = [1]> then\n        replace item ((#1) + (2)) of [splines v] with (((item ((#1) + (2)) of [splines v]) * ((item ((#1) + (5)) of [splines v]) / ((100) / (3)))) * (((item ((#1) + (1)) of [splines v]) - (7)) / (((2) / (3)) * (10))))\n    end\n    if <(item ((#1) + (6)) of [splines v]) = [2]> then\n        replace item ((#1) + (2)) of [splines v] with ((item ((#1) + (2)) of [splines v]) * (((item ((#1) + (1)) of [splines v]) - (7)) / (((2) / (3)) * (6))))\n    end\n    if <(((timer) - (item ((#1) + (3)) of [splines v])) / (item ((#1) + (8)) of [splines v])) > [0.99]> then\n        repeat ((item ((#1) + (1)) of [splines v]) + (3))\n            delete ((#1) + (1)) of [splines v]\n        end\n        change [spline # v] by (-1)\n    else\n        change [#1 v] by ((item ((#1) + (1)) of [splines v]) + (3))\n    end\nend\nset [#1 v] to [0]\nset pen size to (20)\nset pen color to (#bfb669)\npen up\nrepeat ((length of [2-point splines v]) / (15))\n    if <(item ((#1) + (11)) of [2-point splines v]) = [1]> then\n        set pen color to (#ffffff)\n    end\n    if <(item ((#1) + (11)) of [2-point splines v]) = [2]> then\n        set pen color to (#fd3b3b)\n    end\n    if <(item ((#1) + (11)) of [2-point splines v]) = [3]> then\n        set pen color to (#b13534)\n    end\n    Set Pen Size to (item ((#1) + (10)) of [2-point splines v])\n    set [#5 v] to [0]\n    repeat (item ((#1) + (9)) of [2-point splines v])\n        set [#2 v] to (((timer) - (item ((#1) + (15)) of [2-point splines v])) / ((item ((#1) + (14)) of [2-point splines v]) - (#5)))\n        if <<(#2) > [0]> and <(#2) < [1]>> then\n            if <(item ((#1) + (13)) of [2-point splines v]) = [In]> then\n                set [#2 v] to ([10 ^ v] of ((item ((#1) + (12)) of [2-point splines v]) * ([log v] of (#2) )) )\n            end\n            if <(item ((#1) + (13)) of [2-point splines v]) = [Out]> then\n                set [#2 v] to ((1) - ([10 ^ v] of ((item ((#1) + (12)) of [2-point splines v]) * ([log v] of ((1) - (#2)) )) ))\n            end\n            if <(item ((#1) + (13)) of [2-point splines v]) = [In/Out]> then\n                if <(#2) < [0.5]> then\n                    set [#2 v] to (([10 ^ v] of (((item ((#1) + (12)) of [2-point splines v]) - (1)) * ([log v] of (2) )) ) * ([10 ^ v] of ((item ((#1) + (12)) of [2-point splines v]) * ([log v] of (#2) )) ))\n                else\n                    set [#2 v] to ((1) - (([10 ^ v] of ((item ((#1) + (12)) of [2-point splines v]) * ([log v] of (((-2) * (#2)) + (2)) )) ) / (2)))\n                end\n            end\n            set [#3 v] to ((item ((#1) + (1)) of [2-point splines v]) + ((#2) * ((item ((#1) + (3)) of [2-point splines v]) - (item ((#1) + (1)) of [2-point splines v]))))\n            set [#4 v] to ((item ((#1) + (2)) of [2-point splines v]) + ((#2) * ((item ((#1) + (4)) of [2-point splines v]) - (item ((#1) + (2)) of [2-point splines v]))))\n            change [#3 v] by (([sin v] of ((#2) * (item ((#1) + (5)) of [2-point splines v])) ) * (item ((#1) + (6)) of [2-point splines v]))\n            change [#4 v] by (([cos v] of ((#2) * (item ((#1) + (7)) of [2-point splines v])) ) * (item ((#1) + (8)) of [2-point splines v]))\n            Go to (#3) (#4)\n            pen down\n        end\n        change [#5 v] by (-0.04)\n    end\n    pen up\n    if <(#2) > [1]> then\n        repeat (15)\n            delete ((#1) + (1)) of [2-point splines v]\n        end\n    else\n        change [#1 v] by (15)\n    end\nend\n\ndefine Draw Spline (#)\nset [#2 v] to (item ((#) + (2)) of [splines v])\nif <(item ((#) + (7)) of [splines v]) = [1]> then\n    set pen color to (#ffffff)\nend\nif <(item ((#) + (7)) of [splines v]) = [2]> then\n    set pen color to (#ff3b3b)\nend\nif <(item ((#) + (7)) of [splines v]) = [3]> then\n    set pen color to (#ff5858)\nend\nif <(item ((#1) + (6)) of [splines v]) = [1]> then\n    Set Pen Size to (item ((#) + (4)) of [splines v])\nend\nif <(item ((#1) + (6)) of [splines v]) = [2]> then\n    Set Pen Size to ((item ((#) + (4)) of [splines v]) - (([10 ^ v] of ((5) * ([log v] of (((timer) - (item ((#1) + (3)) of [splines v])) / (item ((#1) + (8)) of [splines v])) )) ) * (item ((#) + (5)) of [splines v])))\nend\npen up\nrepeat ((item ((#) + (5)) of [splines v]) * (2))\n    if <(#2) < [0]> then\n        pen up\n        stop [this script v]\n    end\n    if <not <(#2) > ((((item ((#) + (1)) of [splines v]) - (7)) / (6)) - (0.001))>> then\n        delete all of [temp v]\n        add ((round ((#2) - (0.4999999))) * (6)) to [temp v]\n        add (item (((#) + (11)) + (item (1) of [temp v])) of [splines v]) to [temp v]\n        add (item (((#) + (12)) + (item (1) of [temp v])) of [splines v]) to [temp v]\n        add (item (((#) + (13)) + (item (1) of [temp v])) of [splines v]) to [temp v]\n        add (item (((#) + (14)) + (item (1) of [temp v])) of [splines v]) to [temp v]\n        add (item (((#) + (15)) + (item (1) of [temp v])) of [splines v]) to [temp v]\n        add (item (((#) + (16)) + (item (1) of [temp v])) of [splines v]) to [temp v]\n        delete (1) of [temp v]\n        add ((#2) - (round ((#2) - (0.4999999)))) to [temp v]\n        set [#3 v] to (((1) - (item (7) of [temp v])) * ((((1) - (item (7) of [temp v])) * (item (1) of [temp v])) + ((item (7) of [temp v]) * (item (3) of [temp v]))))\n        set [#3 v] to ((#3) + ((item (7) of [temp v]) * ((((1) - (item (7) of [temp v])) * (item (3) of [temp v])) + ((item (7) of [temp v]) * (item (5) of [temp v])))))\n        set [#4 v] to (((1) - (item (7) of [temp v])) * ((((1) - (item (7) of [temp v])) * (item (2) of [temp v])) + ((item (7) of [temp v]) * (item (4) of [temp v]))))\n        set [#4 v] to ((#4) + ((item (7) of [temp v]) * ((((1) - (item (7) of [temp v])) * (item (4) of [temp v])) + ((item (7) of [temp v]) * (item (6) of [temp v])))))\n        Go to (#3) (#4)\n        pen down\n    end\n    change [#2 v] by (-0.01)\nend\npen up\n\ndefine Create Cool Spline (x) (y) (color) (type)\nset [#2 v] to [0]\nset [#3 v] to [20]\n|| Create Spline || Thickness: [10] || Length: [50] || Ending Type: [2] || Color(1/2/3): (color) || Duration: [2] || Ease: [1] || In/Out: [Out] ||\nrepeat (10)\n    || Add 3 Points || X1: ((x) + (([sin v] of (#2) ) * ((#3) - (5)))) || Y1: ((y) + (([cos v] of (#2) ) * ((#3) - (5)))) || X2: ((x) + (([sin v] of ((#2) + (45)) ) * ((#3) * (1.3)))) || Y2: ((y) + (([cos v] of ((#2) + (45)) ) * ((#3) * (1.3)))) || X3: ((x) + (([sin v] of ((#2) + (90)) ) * (#3))) || Y3: ((y) + (([cos v] of ((#2) + (90)) ) * (#3))) ||\n    change [#2 v] by (90)\n    change [#3 v] by (5)\nend\n|| Implement Spline ||\n\nwhen I receive [{intro} v]\nwait until <(timer) > [7.2]>\nCreate Cool Spline [-100] [100] [1] [1]\nwait (0.1) seconds\nCreate Cool Spline [50] [-100] [2] [1]\nwait (0.1) seconds\nCreate Cool Spline [-200] [50] [1] [1]\nwait (0.1) seconds\nCreate Cool Spline [150] [0] [2] [1]\nwait (0.1) seconds\nCreate Cool Spline [0] [0] [1] [1]\nwait (0.1) seconds\n\ndefine || Create 2-Point Spline || X1: (x1) || Y1: (y1) || X2: (x2) || Y2: (y2) || XF: (xf) || XA: (xa) || YF: (yf) || YA: (ya) || Length: (l) || Thickness: (t) || Color: (c) || Ease: (ease) || In/Out: (in/out) || Duration: (d) ||\nadd (x1) to [2-point splines v]\nadd (y1) to [2-point splines v]\nadd (x2) to [2-point splines v]\nadd (y2) to [2-point splines v]\nadd (xf) to [2-point splines v]\nadd (xa) to [2-point splines v]\nadd (yf) to [2-point splines v]\nadd (ya) to [2-point splines v]\nadd (l) to [2-point splines v]\nadd (t) to [2-point splines v]\nadd (c) to [2-point splines v]\nadd (ease) to [2-point splines v]\nadd (in/out) to [2-point splines v]\nadd (d) to [2-point splines v]\nadd (timer) to [2-point splines v]\n\nwhen I receive [{intro} v]\nwait until <(timer) > [6.48]>\nset [arc v] to [150]\nrepeat (7)\n    || Create 2-Point Spline || X1: [-300] || Y1: (Arc) || X2: [300] || Y2: (Arc) || XF: [0] || XA: [0] || YF: [1000] || YA: [20] || Length: [25] || Thickness: [20] || Color: [1] || Ease: [3] || In/Out: [In/Out] || Duration: [2] ||\n    change [arc v] by (-50)\n    wait (0.1) seconds\nend\n\ndefine Shock\nif <<(timer) > [7.2]> and <(timer) < [8.7]>> then\n    point in direction (90)\n    set [#1 v] to ((1) - ([10 ^ v] of ((2) * ([log v] of ((1) - (((timer) - (7.2)) / (1.5))) )) ))\n    Go to [0] [0]\n    switch costume to (shock v)\n    set size to (((#1) * (200)) * (TZ)) %\n    set [#1 v] to (((timer) - (7.2)) / (1.5))\n    set [fisheye v] effect to ((((#1) * (50)) * ((#1) * (50))) * (((#1) * (8)) * (1)))\n    set [ghost v] effect to (([10 ^ v] of ((5) * ([log v] of (#1) )) ) * (100))\n    stamp\n    switch costume to (pos v)\n    set size to ([10 ^ v] of ([10 ^ v] of (10) ) ) %\n    clear graphic effects\nend\n\ndefine || Create Line Explosion || Size: (size) || Radius: (radius) || Pen Size: (ps) ||\nadd (size) to [line explosions v]\nadd (radius) to [line explosions v]\nadd (timer) to [line explosions v]\nadd (ps) to [line explosions v]\n\nwhen I receive [{intro} v]\nwait until <(timer) > [8.9]>\n|| Create Spline || Thickness: [15] || Length: [50] || Ending Type: [2] || Color(1/2/3): [1] || Duration: [1] || Ease: [3] || In/Out: [In/Out] ||\n|| Add 3 Points || X1: [-175] || Y1: [200] || X2: [-175] || Y2: [75] || X3: [0] || Y3: [75] ||\n|| Add 3 Points || X1: [0] || Y1: [75] || X2: [175] || Y2: [75] || X3: [175] || Y3: [200] ||\n|| Implement Spline ||\n|| Create Spline || Thickness: [15] || Length: [50] || Ending Type: [2] || Color(1/2/3): [2] || Duration: [1] || Ease: [3] || In/Out: [In/Out] ||\n|| Add 3 Points || X1: [-200] || Y1: [200] || X2: [-200] || Y2: [50] || X3: [0] || Y3: [50] ||\n|| Add 3 Points || X1: [0] || Y1: [50] || X2: [200] || Y2: [50] || X3: [200] || Y3: [200] ||\n|| Implement Spline ||\n|| Create Spline || Thickness: [15] || Length: [50] || Ending Type: [2] || Color(1/2/3): [1] || Duration: [1] || Ease: [3] || In/Out: [In/Out] ||\n|| Add 3 Points || X1: [-225] || Y1: [200] || X2: [-225] || Y2: [25] || X3: [0] || Y3: [25] ||\n|| Add 3 Points || X1: [0] || Y1: [25] || X2: [225] || Y2: [25] || X3: [225] || Y3: [200] ||\n|| Implement Spline ||\n|| Create Spline || Thickness: [15] || Length: [50] || Ending Type: [2] || Color(1/2/3): [1] || Duration: [1] || Ease: [3] || In/Out: [In/Out] ||\n|| Add 3 Points || X1: [175] || Y1: [-200] || X2: [175] || Y2: [-75] || X3: [0] || Y3: [-75] ||\n|| Add 3 Points || X1: [0] || Y1: [-75] || X2: [-175] || Y2: [-75] || X3: [-175] || Y3: [-200] ||\n|| Implement Spline ||\n|| Create Spline || Thickness: [15] || Length: [50] || Ending Type: [2] || Color(1/2/3): [2] || Duration: [1] || Ease: [3] || In/Out: [In/Out] ||\n|| Add 3 Points || X1: [200] || Y1: [-200] || X2: [200] || Y2: [-50] || X3: [0] || Y3: [-50] ||\n|| Add 3 Points || X1: [0] || Y1: [-50] || X2: [-200] || Y2: [-50] || X3: [-200] || Y3: [-200] ||\n|| Implement Spline ||\n|| Create Spline || Thickness: [15] || Length: [50] || Ending Type: [2] || Color(1/2/3): [1] || Duration: [1] || Ease: [3] || In/Out: [In/Out] ||\n|| Add 3 Points || X1: [225] || Y1: [-200] || X2: [225] || Y2: [-25] || X3: [0] || Y3: [-25] ||\n|| Add 3 Points || X1: [0] || Y1: [-25] || X2: [-225] || Y2: [-25] || X3: [-225] || Y3: [-200] ||\n|| Implement Spline ||\n\ndefine Draw Line Explosions\nset [#1 v] to [0]\nrepeat ((length of [line explosions v]) / (4))\n    set [#2 v] to ((1) - ([10 ^ v] of ((3) * ([log v] of ((1) - (((timer) - (item ((#1) + (3)) of [line explosions v])) / (2))) )) ))\n    Set Pen Size to (((1) - (#2)) * (item ((#1) + (4)) of [line explosions v]))\n    pen up\n    repeat (8)\n        set pen color to (#ff3939)\n        set pen (transparency v) to (([10 ^ v] of ((3) * ([log v] of (((timer) - (item ((#1) + (3)) of [line explosions v])) / (2)) )) ) * (100))\n        set [#3 v] to (([sin v] of (#5) ) * (item ((#1) + (1)) of [line explosions v]))\n        set [#4 v] to (([cos v] of (#5) ) * (item ((#1) + (1)) of [line explosions v]))\n        set [#3 v] to ((#3) * (#2))\n        set [#4 v] to ((#4) * (#2))\n        Go to (#3) (#4)\n        pen down\n        set [#3 v] to (([sin v] of (#5) ) * ((item ((#1) + (1)) of [line explosions v]) + (item ((#1) + (2)) of [line explosions v])))\n        set [#4 v] to (([cos v] of (#5) ) * ((item ((#1) + (1)) of [line explosions v]) + (item ((#1) + (2)) of [line explosions v])))\n        set [#3 v] to ((#3) * (#2))\n        set [#4 v] to ((#4) * (#2))\n        Go to (#3) (#4)\n        pen up\n        change [#5 v] by (22.5)\n        set pen color to (#ffffff)\n        set pen (transparency v) to (([10 ^ v] of ((3) * ([log v] of (((timer) - (item ((#1) + (3)) of [line explosions v])) / (2)) )) ) * (100))\n        set [#3 v] to (([sin v] of (#5) ) * (item ((#1) + (1)) of [line explosions v]))\n        set [#4 v] to (([cos v] of (#5) ) * (item ((#1) + (1)) of [line explosions v]))\n        set [#3 v] to ((#3) * (#2))\n        set [#4 v] to ((#4) * (#2))\n        Go to (#3) (#4)\n        pen down\n        set [#3 v] to (([sin v] of (#5) ) * ((item ((#1) + (1)) of [line explosions v]) + (item ((#1) + (2)) of [line explosions v])))\n        set [#4 v] to (([cos v] of (#5) ) * ((item ((#1) + (1)) of [line explosions v]) + (item ((#1) + (2)) of [line explosions v])))\n        set [#3 v] to ((#3) * (#2))\n        set [#4 v] to ((#4) * (#2))\n        Go to (#3) (#4)\n        pen up\n        change [#5 v] by (22.5)\n    end\n    if <(((timer) - (item ((#1) + (3)) of [line explosions v])) / (2)) > [1]> then\n        repeat (4)\n            delete ((#1) + (1)) of [line explosions v]\n        end\n    else\n        change [#1 v] by (4)\n    end\nend\n\nwhen I receive [{intro} v]\nwait until <(timer) > [4.5]>\n|| Create Line Explosion || Size: [300] || Radius: [100] || Pen Size: [20] ||\n|| Create Line Explosion || Size: [50] || Radius: [100] || Pen Size: [20] ||\nwait until <(timer) > [5.7]>\n|| Create Line Explosion || Size: [100] || Radius: [50] || Pen Size: [20] ||\n|| Create 2-Point Spline || X1: [-300] || Y1: [150] || X2: [300] || Y2: [150] || XF: [750] || XA: [50] || YF: [750] || YA: [50] || Length: [25] || Thickness: [20] || Color: [1] || Ease: [3] || In/Out: [In/Out] || Duration: [2] ||\n|| Create 2-Point Spline || X1: [-300] || Y1: [100] || X2: [300] || Y2: [100] || XF: [750] || XA: [50] || YF: [750] || YA: [50] || Length: [25] || Thickness: [20] || Color: [2] || Ease: [3] || In/Out: [In/Out] || Duration: [2] ||\n|| Create 2-Point Spline || X1: [300] || Y1: [-150] || X2: [-300] || Y2: [-150] || XF: [750] || XA: [-50] || YF: [750] || YA: [-50] || Length: [25] || Thickness: [20] || Color: [1] || Ease: [3] || In/Out: [In/Out] || Duration: [2] ||\n|| Create 2-Point Spline || X1: [300] || Y1: [-100] || X2: [-300] || Y2: [-100] || XF: [750] || XA: [-50] || YF: [750] || YA: [-50] || Length: [25] || Thickness: [20] || Color: [2] || Ease: [3] || In/Out: [In/Out] || Duration: [2] ||\nwait until <(timer) > [6.48]>\n|| Create Line Explosion || Size: [100] || Radius: [50] || Pen Size: [20] ||\n\nwhen I receive [start intro v]\nSetup\nstart sound [Koven x ROY - About Me v]\nset [tz v] to [1]\nwait until <(timer) > [1.5]>\nbroadcast ({Intro} v)\nrepeat until <(timer) > [4.5]>\n    erase all\n    Draw Rectangles\n    Draw Arcs\n    Logo\nend\ncreate clone of (_myself_ v)\nrepeat until <(timer) > [9.9]>\n    Draw BG\n    Shock\n    Draw Line Explosions\n    Draw Text (item (1) of [text v]) (item (2) of [text v]) (item (3) of [text v])\n    Text Movement\n    Draw Splines\nend\nrepeat until <(timer) > [10.9]>\n    erase all\n    go to x: (0) y: (0)\n    set pen color to (#f7f7f7)\n    set pen (transparency v) to (((timer) - (9.9)) * (100))\n    set pen size to (2000)\n    pen down\n    pen up\nend\nstop [other scripts in sprite v]\nerase all\n\ndefine Load Frames\nswitch costume to (pos v)\nset size to (100) %\nrepeat (53)\n    next costume\n    stamp\nend\nerase all\n\nLoad Frames\n\nwhen I receive [アウトロ　スタート v]\nhide\n\n@スプライト2\n\nwhen flag clicked\nset [時間 v] to [0]\nrepeat (25)\n    change [ghost v] effect by (4)\nend\n\nforever\n    reset timer\nend\n\nwhen I receive [アウトロ　スタート v]\n\nwhen I receive [スタート v]\n\nwhen I receive [🛑 v]\nbroadcast (アウトロ　スタート v)\n\nrepeat (50)\n    change [ghost v] effect by (-2)\nend\n\n@OUTRO by HAYAAKI\n\nwhen I receive [アウトロ　スタート v]\nhide variable [☁ タイム v]\nhide variable [時間 v]\nstop all sounds\nhide variable [☁ クリア者 v]\nchange [☁ クリア者 v] by (1)\nhide variable [メッセージ v]\nset [表示する？ v] to [N]\nbroadcast (止める v)\nwait (0.3) seconds\nreset timer\nhide\nstart sound [PIKASONIC - New Start2 v]\nset [id v] to [ber]\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [no. v] to [21]\nrepeat (20)\n    set [id v] to [text]\n    change [no. v] by (-1)\n    create clone of (_myself_ v)\nend\nset [id v] to [Li]\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [no. v] to [7]\nrepeat (6)\n    set [id v] to [mark]\n    change [no. v] by (-1)\n    create clone of (_myself_ v)\n    wait (0) seconds\nend\nwait [3.5]\nset [y v] to [-20]\nrepeat until <[-0.5] < (Y)>\n    change [y v] by (((-1) * (Y)) / (7))\nend\nwait [4]\nset [id v] to [1]\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [id v] to [2]\ncreate clone of (_myself_ v)\nwait (0) seconds\nset [id v] to [I]\ncreate clone of (_myself_ v)\nwait [5]\nset [id v] to [WT]\ncreate clone of (_myself_ v)\n\nwhen flag clicked\n\nwhen I start as a clone\nif <(ID) = [text]> then\n    set [保存する v] to (No.)\n    go to [front v] layer\n    switch costume to (join [文字] (保存する))\n    set size to (65) %\n    show\n    point in direction (90)\n    go to x: (-210) y: (0)\n    change x by (((保存する) * (20)) + (7))\n    repeat until <(y position) < [-180]>\n        change y by (((y position) - (50)) / (7))\n    end\n    set y to (180)\n    set size to (70) %\n    repeat until <(y position) < [16]>\n        change y by ((-1) * (((y position) - (15)) / (7)))\n    end\n    wait [3.5]\n    repeat until <[-0.5] < (Y)>\n        change y by ((-1) * (Y))\n    end\n    wait [5]\n    delete this clone\nend\n\nwhen I start as a clone\nif <(ID) = [ber]> then\n    show\n    switch costume to (back v)\n    go to [front v] layer\n    go to x: (480) y: (0)\n    point in direction (90)\n    set size to (130) %\n    start sound [slice v]\n    repeat until <[1] > (x position)>\n        change x by ((-1) * ((x position) / (10)))\n    end\nend\n\ndefine wait ()\nwait until <() < (timer)>\n\nwhen I start as a clone\nif <(ID) = [Li]> then\n    show\n    switch costume to (size hack v)\n    go to x: (900) y: (0)\n    switch costume to (line v)\n    go to [front v] layer\n    point in direction (90)\n    set size to (150) %\n    repeat until <[7] > (x position)>\n        change x by ((-1) * ((x position) / (15)))\n    end\n    wait [3.5]\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [mark]> then\n    set [保存する v] to (No.)\n    go to [front v] layer\n    switch costume to (join [マーク] (保存する))\n    set size to (80) %\n    show\n    point in direction (90)\n    go to x: (-240) y: (-30)\n    change x by (((保存する) * (60)) + (25))\n    wait [3.5]\n    repeat until <[-0.5] < (Y)>\n        change y by (Y)\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [1]> then\n    repeat (2)\n        wait (0) seconds\n    end\n    go to x: (120) y: (0)\n    switch costume to (あなたの作品 v)\n    go to [front v] layer\n    point in direction (90)\n    set size to (30) %\n    set [ghost v] effect to (100)\n    show\n    repeat (20)\n        change [ghost v] effect by (-5)\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [2]> then\n    wait (0) seconds\n    go to x: (-120) y: (0)\n    switch costume to (あなたの作品2 v)\n    go to [front v] layer\n    point in direction (90)\n    set size to (30) %\n    set [ghost v] effect to (100)\n    show\n    repeat (20)\n        change [ghost v] effect by (-5)\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [I]> then\n    go to x: (0) y: (0)\n    switch costume to (あなたのアイコン v)\n    go to [front v] layer\n    point in direction (90)\n    set size to (30) %\n    set [ghost v] effect to (100)\n    show\n    repeat (20)\n        change [ghost v] effect by (-5)\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [WT]> then\n    set size to (83) %\n    show\n    go to [front v] layer\n    switch costume to (text en v)\n    forever\n        go to x: (4) y: (133)\n        wait (3) seconds\n        repeat (10)\n            change [ghost v] effect by (10)\n        end\n        next costume\n        if <(costume [number v]) = [1]> then\n            switch costume to (text en v)\n            repeat (10)\n                change [ghost v] effect by (-10)\n            end\n        else\n            repeat (10)\n                change [ghost v] effect by (-10)\n            end\n        end\n    end\nend\n\nrepeat (5)\n    wait (0.2) seconds\nend\n\nset [記録 v] to (y position)\n\ngo to [front v] layer\npoint in direction (90)\n\nset [ghost v] effect to (100)\nshow\n\nclear graphic effects\n\nbroadcast (アウトロ　スタート v)\n\n@🛑ブロック\n\nwhen flag clicked\nforever\n    set [lasttime v] to (timer)\nend\n\nwhen [timer v] > ((LastTime) + (0.1))\nbroadcast (🛑 v)\nforever\n    set [lasttime v] to (timer)\nend\n\nwhen I receive [🛑 v]\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    else\n        hide\n        switch costume to (no turbo mode v)\n    end\nend\n\n