#2 | Samurai Scroll Platformer ver1.1

Instructions: [日本語は下です！]\nYou can move with a crosshair or tap.\n\nThe button of the sword allows you to choose the sword,\n\nThe button on the setting mark can set the language.\n\nYou can swing down the sword with the lower key or the bottom tap.\n\nIf you want to make it Japanese, press the setting mark and then turn off the button.\n\nEnjoy :DD\n\nカーソルキーまたはタップで移動できます。\n\n剣のボタンで剣を選択でき、\n\n設定マークのボタンで言語を設定できます。\n\n下キーか下タップで剣を振り下ろすことができます。\n\n日本語にしたい場合は、設定マークを押してからボタンをオフにします。

@Stage\n\nset [memo v] to [ああああああ]\nchange [memo v] by (51)\nchange [memo v] by (518)\nchange [memo v] by (21)\n\nchange [memo v] by (518)\n\n@剣\n\nwhen flag clicked\nset [all v] to [1]\ngo to x: (0) y: (0)\nhide\nforever\n    wait until <(All) = [5]>\n    wait (1) seconds\n    go to [front v] layer\n    set [い v] to [0]\n    repeat until <(All) = [1]>\n        go to (player v)\n        point in direction (() - ([direction v] of [player v]))\n        move (-15) steps\n        if <[] = (K)> then\n            show\n        else\n            hide\n        end\n        if <[90] = (direction)> then\n            point in direction (-30)\n            turn right (う) degrees\n        else\n            point in direction (30)\n            turn right (() - (う)) degrees\n        end\n        switch costume to ((2) + ((剣) mod (3)))\n        set size to (150) %\n        change [い v] by ((い) / (-5))\n        change [う v] by ((う) / (-5))\n        change [う v] by (い)\n        set [今県降ってますか？ v] to (() + <[20] < ([abs v] of (う) )>)\n    end\n    wait (0.5) seconds\n    hide\nend\n\nwhen flag clicked\n\n    play sound [Kovan & Electro-Light - Skyline \[NCS Release\] v] until done\nend\n\nwhen flag clicked\nset [all v] to [1]\nforever\n    wait until <(All) = [5]>\n    wait (1) seconds\n    repeat until <(All) = [1]>\n        wait until <<key (down arrow v) pressed?> or <<mouse down?> and <(mouse y) < [-50]>>>\n        change [い v] by (-20)\n        start sound [剣の素振り2 v]\n        wait until <<not <key (down arrow v) pressed?>> and <not <<mouse down?> and <(mouse y) < [-50]>>>>\n    end\nend\n\nwhen flag clicked\nwait (5) seconds\nset [☁ en v] to []\n\n@BG\n\nwhen flag clicked\ngo to x: (0) y: ()\nset size to (100) %\ngo to [back v] layer\n\n    if <<(current [hour v]) < [18]> or <(current [hour v]) < [5]>> then\n        switch costume to (コスチューム2 v)\n    else\n        switch costume to (コスチューム3 v)\n    end\nend\n\n@スプライト2\n\nwhen flag clicked\nset [剣 v] to [0]\nif <<(language::translate) = [日本語]> or <(language::translate) = [にほんご]>> then\n    set [language v] to [J]\nelse\n    set [language v] to [E]\nend\nset [all v] to [1]\nset [難易度 v] to [e]\nshow\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\nset [1 v] to [1]\nrepeat (14)\n    create clone of (_myself_ v)\n    change [1 v] by (1)\nend\n\nwhen I start as a clone\nif <(1) = [1]> then\n    go to x: (0) y: (50)\n    switch costume to (samurai v)\n    set size to (0) %\n    repeat until <(All) = [4]>\n        change size by (((100) - (size)) / (8))\n    end\n    repeat (14)\n        change size by (((100) - (size)) / (8))\n    end\n    switch costume to (コスチューム1 v)\nend\nif <(1) = [2]> then\n    go to x: (0) y: (-50)\n    switch costume to (コスチューム2 v)\n    set size to (0) %\n    repeat until <<(All) = [1]> and <<mouse down?> and <touching (mouse-pointer v)?>>>\n        change size by (((100) - (size)) / (8))\n    end\n    start sound [クリック v]\n    create clone of (シーンチェンジ v)\n    set [all v] to [4]\n    repeat (10)\n        change size by (((100) - (size)) / (8))\n    end\n    switch costume to (コスチューム1 v)\nend\n\nwhen I start as a clone\nif <(1) = [3]> then\n    go to x: (100) y: (-50)\n    switch costume to (コスチューム3 v)\n    set size to (0) %\n    \n        repeat until <<<touching (mouse-pointer v)?> and <mouse down?>> or <(All) = [4]>>\n            change size by (((100) - (size)) / (8))\n        end\n        if <(All) = [1]> then\n            start sound [クリック v]\n            set [all v] to [3]\n            repeat until <(All) = [1]>\n                change size by (((100) - (size)) / (8))\n            end\n        end\n        if <(All) = [4]> then\n            repeat (15)\n                change size by (((100) - (size)) / (8))\n            end\n            switch costume to (コスチューム1 v)\n        end\n    end\nend\nif <(1) = [4]> then\n    go to x: (-100) y: (-50)\n    switch costume to (8234 v)\n    set size to (0) %\n    \n        repeat until <<(All) = [4]> or <<touching (mouse-pointer v)?> and <mouse down?>>>\n            change size by (((100) - (size)) / (8))\n        end\n        if <(All) = [1]> then\n            start sound [クリック v]\n            set [all v] to [2]\n            repeat until <(All) = [1]>\n                change size by (((100) - (size)) / (8))\n            end\n        end\n        if <(All) = [4]> then\n            repeat (15)\n                change size by (((100) - (size)) / (8))\n            end\n            switch costume to (コスチューム1 v)\n        end\n    end\nend\nif <(1) = [5]> then\n    \n        wait until <<(All) = [2]> or <(All) = [3]>>\n        clear graphic effects\n        set [ghost v] effect to ()\n        switch costume to (コスチューム1 2 v)\n        set size to () %\n        repeat (10)\n            change size by (((100) - (size)) / (8))\n        end\n        repeat until <<mouse down?> and <not <touching (mouse-pointer v)?>>>\n            change size by (((100) - (size)) / (8))\n        end\n        start sound [クリック v]\n        set [all v] to [1]\n        repeat (10)\n            change size by ((size) / (-8))\n            change [ghost v] effect by (10)\n        end\n    end\nend\n\nwhen I start as a clone\nif <(1) = [6]> then\n    \n        go to x: (0) y: (50)\n        wait until <(All) = [2]>\n        clear graphic effects\n        set [ghost v] effect to ()\n        switch costume to (english_英語 v)\n        set size to () %\n        repeat (10)\n            change size by (((100) - (size)) / (8))\n        end\n        repeat until <[1] = (All)>\n            change size by (((100) - (size)) / (8))\n        end\n        repeat (10)\n            change size by ((size) / (-8))\n            change [ghost v] effect by (10)\n        end\n        set [all v] to [1]\n    end\nend\n\nwhen I start as a clone\nif <(1) = [7]> then\n    \n        go to x: (0) y: (-50)\n        wait until <(All) = [2]>\n        clear graphic effects\n        set [ghost v] effect to ()\n        if <(Language) = [E]> then\n            switch costume to (コスチューム4 v)\n        else\n            switch costume to (コスチューム5 v)\n        end\n        set size to () %\n        repeat (10)\n            change size by (((175) - (size)) / (8))\n        end\n        repeat until <(All) = [1]>\n            change size by (((175) - (size)) / (8))\n            if <<touching (mouse-pointer v)?> and <mouse down?>> then\n                start sound [クリック v]\n                if <(Language) = [E]> then\n                    set [language v] to [J]\n                    switch costume to (コスチューム5 v)\n                else\n                    set [language v] to [E]\n                    switch costume to (コスチューム4 v)\n                end\n                wait until <not <mouse down?>>\n            end\n        end\n        repeat (10)\n            change size by ((size) / (-8))\n            change [ghost v] effect by (10)\n        end\n    end\nend\n\nwhen I start as a clone\nif <(1) = [8]> then\n    \n        hide\n        wait until <(All) = [3]>\n        show\n        clear graphic effects\n        set [ghost v] effect to ()\n        set size to () %\n        repeat (10)\n            change size by (((200) - (size)) / (8))\n        end\n        repeat until <(All) = [1]>\n            change size by (((200) - (size)) / (8))\n        end\n        repeat (10)\n            change size by ((size) / (-8))\n            change [ghost v] effect by (10)\n        end\n    end\nend\n\nwhen I start as a clone\nif <(1) = [8]> then\n    \n        go to x: () y: (0)\n        switch costume to ((11) + ((剣) mod (3)))\n    end\nend\n\nwhen I start as a clone\nif <(1) = [9]> then\n    \n        switch costume to (コスチューム7 v)\n        hide\n        wait until <(All) = [3]>\n        show\n        clear graphic effects\n        set [ghost v] effect to ()\n        set size to () %\n        repeat (10)\n            change size by (((100) - (size)) / (8))\n        end\n        repeat until <(All) = [1]>\n            change size by (((100) - (size)) / (8))\n            if <<mouse down?> and <touching (mouse-pointer v)?>> then\n                start sound [クリック v]\n                if <[0] < (mouse x)> then\n                    change [剣 v] by (1)\n                else\n                    change [剣 v] by (-1)\n                end\n                wait until <not <<touching (mouse-pointer v)?> and <mouse down?>>>\n            end\n        end\n        repeat (10)\n            change size by ((size) / (-8))\n            change [ghost v] effect by (10)\n        end\n    end\nend\n\nwhen I start as a clone\nif <(1) = [10]> then\n    hide\n    wait until <(All) = [4]>\n    wait (1) seconds\n    show\n    go to x: (-125) y: (-50)\n    if <(Language) = [E]> then\n        switch costume to (easy v)\n    else\n        switch costume to (簡単 v)\n    end\n    set size to (0) %\n    repeat until <<<mouse down?> and <touching (mouse-pointer v)?>> or <(All) = [5]>>\n        change size by (((100) - (size)) / (8))\n    end\n    if <<mouse down?> and <touching (mouse-pointer v)?>> then\n        set [all v] to [5]\n        start sound [クリック v]\n        set [難易度 v] to [e]\n    end\n    create clone of (シーンチェンジ v)\n    repeat (20)\n        change size by (((100) - (size)) / (8))\n    end\n    switch costume to (コスチューム1 v)\nend\n\nwhen I start as a clone\nif <(1) = [11]> then\n    hide\n    wait until <(All) = [4]>\n    wait (1) seconds\n    show\n    go to x: (0) y: (-50)\n    if <(Language) = [E]> then\n        switch costume to (normal v)\n    else\n        switch costume to (普通 v)\n    end\n    set size to (0) %\n    repeat until <<<mouse down?> and <touching (mouse-pointer v)?>> or <(All) = [5]>>\n        change size by (((100) - (size)) / (8))\n    end\n    if <<mouse down?> and <touching (mouse-pointer v)?>> then\n        set [all v] to [5]\n        start sound [クリック v]\n        set [難易度 v] to [n]\n    end\n    create clone of (シーンチェンジ v)\n    repeat (20)\n        change size by (((100) - (size)) / (8))\n    end\n    switch costume to (コスチューム1 v)\nend\n\nwhen I start as a clone\nif <(1) = [12]> then\n    hide\n    wait until <(All) = [4]>\n    wait (1) seconds\n    show\n    go to x: (125) y: (-50)\n    if <(Language) = [E]> then\n        switch costume to (hard v)\n    else\n        switch costume to (難しい v)\n    end\n    set size to (0) %\n    repeat until <<<mouse down?> and <touching (mouse-pointer v)?>> or <(All) = [5]>>\n        change size by (((100) - (size)) / (8))\n    end\n    if <<mouse down?> and <touching (mouse-pointer v)?>> then\n        set [all v] to [5]\n        start sound [クリック v]\n        set [難易度 v] to [h]\n    end\n    create clone of (シーンチェンジ v)\n    repeat (20)\n        change size by (((100) - (size)) / (8))\n    end\n    switch costume to (コスチューム1 v)\nend\n\nwhen I start as a clone\nif <(1) = [13]> then\n    hide\n    wait until <(All) = [4]>\n    wait (1) seconds\n    show\n    go to x: (0) y: (50)\n    if <(Language) = [E]> then\n        switch costume to (level v)\n    else\n        switch costume to (難易度 v)\n    end\n    set size to (100) %\n    repeat until <(All) = [5]>\n        change size by (((200) - (size)) / (8))\n    end\n    start sound [クリック v]\n    repeat (20)\n        change size by (((200) - (size)) / (8))\n    end\n    switch costume to (コスチューム1 v)\nend\n\nwhen I start as a clone\nif <(1) = [14]> then\n    hide\n    wait until <(All) = [6]>\n    go to [front v] layer\n    show\n    go to x: (0) y: (-100)\n    switch costume to (home v)\n    set size to (0) %\n    \n        repeat until <<<touching (mouse-pointer v)?> and <mouse down?>> or <(All) = [4]>>\n            change size by (((100) - (size)) / (8))\n        end\n        start sound [クリック v]\n        create clone of (シーンチェンジ v)\n        set [all v] to [1]\n        repeat (15)\n            change size by (((100) - (size)) / (8))\n        end\n        switch costume to (コスチューム1 v)\n        stop [other scripts in sprite v]\n        broadcast (メニューに戻る v)\n    end\nend\n\nwhen I receive [メニューに戻る v]\ndelete this clone\n\nwhen I receive [メニューに戻る v]\nset [1 v] to [1]\nrepeat (14)\n    create clone of (_myself_ v)\n    change [1 v] by (1)\nend\n\n@シーンチェンジ\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\ngo to x: (0) y: (0)\nshow\nswitch costume to (コスチューム1 v)\nset size to () %\nrepeat (10)\n    go to [front v] layer\n    change size by ((size) / (4))\nend\nrepeat (15)\n    go to [front v] layer\n    change size by (((100) - (size)) / (4))\nend\nrepeat (10)\n    go to [front v] layer\n    change size by (((100) - (size)) / (5))\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\n@羽田\n\nwhen flag clicked\ngo to [back v] layer\nset [all v] to [1]\nforever\n    wait until <(All) = [5]>\n    wait (1) seconds\n    delete all of [f v]\n    repeat (2)\n        add [0] to [f v]\n    end\n    hide\n    if <(難易度) = [E]> then\n        Clon ((480) * (3)) [-64] [2]\n        Clon ((120) + ((480) * (5))) [-64] [4]\n    end\n    if <(難易度) = [N]> then\n        Clon ((240) + ((480) * (4))) [-62] [2]\n        Clon ((480) * (8)) [-42] [4]\n    end\n    if <(難易度) = [H]> then\n        Clon [1100] [-12.5] [2]\n        Clon [3400] [-10] [4]\n    end\n    wait until <(All) = [1]>\nend\n\nwhen I start as a clone\nshow\nrepeat until <(All) = [1]>\n    point in direction (90)\n    switch costume to ( v)\n    set size to ((1) / ()) %\n    go to x: ((X) + (CX)) y: ((Y) + (CY))\n    set size to (150) %\n    switch costume to (C)\nend\nwait (0.5) seconds\ndelete this clone\n\ndefine Clon (x) (y) (c)\nset [x v] to (x)\nset [y v] to (y)\nset [c v] to (c)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <[2] = (C)> then\n    set [c v] to [2]\n    wait until <touching (player v)?>\n    start sound [Coin v]\n    set [c v] to [3]\n    replace item (1) of [f v] with (() - (X))\n    replace item (2) of [f v] with (() - (Y))\nend\nif <[4] = (C)> then\n    wait until <touching (player v)?>\n    start sound [ドラゴンの羽ばたき v]\n    set [all v] to [6]\n    create clone of (シーンチェンジ2 v)\n    if <(難易度) = [E]> then\n        replace item (1) of [難易度別クリア判定 v] with [1]\n    end\n    if <(難易度) = [N]> then\n        replace item (2) of [難易度別クリア判定 v] with [1]\n    end\n    if <(難易度) = [H]> then\n        replace item (3) of [難易度別クリア判定 v] with [1]\n    end\nend\n\nwait until <(All) = [1]>\n\nreplace item (1) of [難易度別クリア判定 v] with [1]\nreplace item (2) of [難易度別クリア判定 v] with [1]\nreplace item (3) of [難易度別クリア判定 v] with [1]\n\n@地面\n\nwhen flag clicked\nset [all v] to [1]\nforever\n    wait until <(All) = [5]>\n    wait (1) seconds\n    go to [front v] layer\n    hide\n    switch costume to ( v)\n    set size to (100) %\n    if <(難易度) = [E]> then\n        Clon [] [] [2]\n        Clon [-480] [] [3]\n        Clon [480] [] [4]\n        Clon [480] [320] [5]\n        Clon ((480) * (2)) [] [6]\n        Clon ((480) * (3)) [] [7]\n        Clon ((480) * (4)) [] [8]\n        Clon ((480) * (5)) [] [7]\n        Clon ((480) * (5)) [320] [9]\n        Clon ((480) * (5)) [] [10]\n    end\n    if <(難易度) = [N]> then\n        Clon [] [] [20]\n        Clon [480] [] [21]\n        Clon [960] [] [22]\n        Clon ((480) * (3)) [] [23]\n        Clon ((480) * (4)) [] [24]\n        Clon ((480) * (5)) [] [2]\n        Clon ((480) * (6)) [] [25]\n        Clon ((480) * (7)) [] [25]\n        Clon ((480) * (8)) [] [26]\n    end\n    if <(難易度) = [H]> then\n        Clon ((480) * (0)) [] [11]\n        Clon ((480) * (-1)) [] [12]\n        Clon ((480) * (1)) [] [13]\n        Clon ((480) * (2)) [] [14]\n        Clon ((480) * (3)) [] [15]\n        Clon ((480) * (4)) [] [16]\n        Clon ((480) * (5)) [] [17]\n        Clon ((480) * (6)) [] [18]\n        Clon ((480) * (7)) [] [19]\n    end\n    wait until <(All) = [1]>\nend\n\ndefine Clon (x) (y) (c)\nset [x v] to (x)\nset [y v] to (y)\nset [c v] to (c)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nset [px v] to [0]\nrepeat until <(All) = [1]>\n    switch costume to ( v)\n    set size to ((1) / ()) %\n    go to x: ((Px) + ((X) + (CX))) y: ((Y) + (CY))\n    set size to (100) %\n    switch costume to (C)\nend\nwait (0.75) seconds\ndelete this clone\n\n@Player\n\nwhen flag clicked\nset [all v] to [1]\nhide\ngo to x: () y: ()\nwait until <(All) = [5]>\nwait (1) seconds\n\nend\n\nwhen flag clicked\nset [all v] to [1]\nforever\n    wait until <(All) = [5]>\n    wait (1) seconds\n    set [cx v] to [0]\n    set [cy v] to [0]\n    set [p v] to [-10]\n    set [操作 v] to []\n    set [k v] to []\n    Re:\n    show\n    repeat until <(All) = [1]>\n        |a\n        set rotation style [left-right v]\n        switch costume to (コスチューム1 v)\n        set size to (120) %\n        if <(X) < [0]> then\n            change x by ([ceiling v] of ((x position) / (P)) )\n            change [cx v] by ([ceiling v] of ((x position) / (P)) )\n        else\n            change x by ([floor v] of ((x position) / (P)) )\n            change [cx v] by ([floor v] of ((x position) / (P)) )\n        end\n        change [cy v] by (((-10) - (y position)) / (() - (P)))\n        change y by (((-10) - (y position)) / (() - (P)))\n        set [cp v] to (X)\n        if <<[300] < (CY)> or <<touching (障害物 v)?> or <touching (敵 v)?>>> then\n            start sound [Basketball Bounce v]\n            hide\n            set [操作 v] to [0]\n            set [k v] to [0]\n            repeat until <<(round (item (1) of [f v])) = (round (CX))> and <(round (item (2) of [f v])) = (round ((CY) + (0.1)))>>\n                change [cy v] by (((item (2) of [f v]) - (CY)) / (5))\n                change [cx v] by (((item (1) of [f v]) - (CX)) / (5))\n                change y by (((-10) - (y position)) / (5))\n                change x by ((x position) / (-5))\n            end\n            show\n            Re:\n            set [k v] to []\n            set [操作 v] to []\n        end\n        set [pitch v] effect to ()\n    end\n    wait (0.5) seconds\n    hide\nend\n\ndefine |a\nif <[] = (操作)> then\n    if <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<not <(x position) < (mouse x)>> and <mouse down?>>> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    change [y v] by (-1)\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 (-4)\n                        change x by (() - (X))\n                        if <key (up arrow v) pressed?> then\n                            set [y v] to [12]\n                            if <[0] < (X)> then\n                                set [x v] to [-10]\n                            else\n                                set [x v] to [10]\n                            end\n                        else\n                            set [x v] to [0]\n                        end\n                    end\n                end\n            end\n        end\n    end\n    set [x v] to ((X) * (0.85))\n    change y by (Y)\n    if <touching (地面 v)?> then\n        change y by (() - (Y))\n        set [y v] to [0]\n    end\n    change y by (-2)\n    if <<<key (up arrow v) pressed?> or <<((y position) + (15)) < (mouse y)> and <mouse down?>>> and <touching (地面 v)?>> then\n        set [y v] to [16]\n    end\n    change y by (2)\nend\nif <[240] < (CX)> then\n    set [cx v] to [240]\nend\n\ndefine Re:\nset [x v] to [0]\nset [y v] to [0]\n\nwhen flag clicked\n\n    set [あ v] to (操作)\nend\n\nshow\n\n@障害物\n\nwhen flag clicked\nset [all v] to [1]\nhide\nforever\n    wait until <(All) = [5]>\n    wait (1) seconds\n    if <(難易度) = [E]> then\n        Clon [670] [220] [3]\n        Clon [990] [-90] [4]\n        Clon ((-100) + ((480) * (3))) [-62] [2]\n        Clon ((-200) + ((480) * (4))) [-95] [4]\n        Clon ((-200) + ((480) * (5))) [220] [3]\n    end\n    if <(難易度) = [N]> then\n        Clon [-210] [100] [4]\n        Clon [440] [120] [2]\n        Clon ((100) + ((480) * (4))) [170] [3]\n        Clon ((480) * (5)) [-62] [2]\n        Clon ((150) + ((480) * (5))) [-62] [2]\n        Clon ((-20) + ((480) * (6))) [-62] [2]\n    end\n    if <(難易度) = [H]> then\n        Clon [200] [-100] [4]\n        Clon [775] [-20] [2]\n        Clon [1500] [200] [3]\n        Clon [2050] [-150] [2]\n        Clon [2400] [200] [3]\n        Clon [1725] [-150] [2]\n        Clon [2900] [-20] [2]\n        Clon [2950] [-20] [2]\n    end\n    wait until <(All) = [1]>\nend\n\nwhen I start as a clone\npoint in direction (90)\nshow\nrepeat until <(All) = [1]>\n    switch costume to ( v)\n    set size to ((1) / ()) %\n    go to x: ((X) + (CX)) y: ((Y) + (CY))\n    set size to (100) %\n    switch costume to (C)\n    if <(C) = [3]> then\n        if <(難易度) = [H]> then\n            point in direction ((90) + ((40) * ([sin v] of ((timer) * (120)) )))\n        else\n            point in direction ((90) + ((20) * ([sin v] of ((timer) * (120)) )))\n        end\n    end\n    if <(C) = [4]> then\n        point in direction ((timer) * (120))\n    end\nend\ndelete this clone\n\ndefine Clon (x) (y) (c)\nset [x v] to (x)\nset [y v] to (y)\nset [c v] to (c)\ncreate clone of (_myself_ v)\n\nset [cx v] to (() - ((480) * (4.5)))\n\n@敵\n\ndefine Clon (x) (y) (c)\nset [x v] to (x)\nset [y v] to (y)\nset [c v] to (c)\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nset [all v] to [1]\nhide\nforever\n    wait until <(All) = [5]>\n    wait (1) seconds\n    if <[E] = (難易度)> then\n        set [拡張 v] to [75]\n        Clon [405] [41] [2]\n        Clon ((480) * (4)) [] [2]\n    end\n    if <[N] = (難易度)> then\n        set [拡張 v] to [75]\n        Clon ((100) + ((480) * (3))) [-50] [2]\n        Clon ((100) + ((480) * (6))) [-50] [2]\n    end\n    if <[H] = (難易度)> then\n        set [拡張 v] to [75]\n        Clon [900] [-19] [2]\n        set [拡張 v] to [150]\n        Clon [2400] [-90] [2]\n    end\n    wait until <(All) = [1]>\nend\n\nwhen I start as a clone\npoint in direction (90)\nshow\nrepeat until <<[1] = (今県降ってますか？)> and <touching (剣 v)?>>\n    switch costume to ( v)\n    set size to ((1) / ()) %\n    go to x: (((X) + (CX)) + ((拡張) * ([sin v] of ((timer) * (120)) ))) y: ((Y) + (CY))\n    switch costume to (C)\n    set size to (75) %\n    set rotation style [left-right v]\n    if <(保存) < ((拡張) * ([sin v] of ((timer) * (120)) ))> then\n        point in direction (90)\n    else\n        point in direction (-90)\n    end\n    set [保存 v] to ((拡張) * ([sin v] of ((timer) * (120)) ))\n    if <(All) = [1]> then\n        delete this clone\n    end\nend\nstart sound [NES-Shooter01-3\(Damage\)2 v]\nadd ((X) + ((拡張) * ([sin v] of ((timer) * (120)) ))) to [effects v]\nadd (Y) to [effects v]\ndelete this clone\n\n@高品質エフェクト\n\nwhen flag clicked\nset [all v] to [1]\nhide\nforever\n    wait until <(All) = [5]>\n    wait (1) seconds\n    delete all of [effects v]\n    repeat until <(All) = [6]>\n        repeat ((length of [effects v]) / (2))\n            start sound [Glass Breaking v]\n            すげえええええエフェクトたくさんすげええええ\n            repeat (2)\n                delete (1) of [effects v]\n            end\n        end\n    end\nend\n\ndefine Clon (x) (y) (c)\nset [x v] to (x)\nset [y v] to (y)\nset [c v] to (c)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nset [powerx v] to (pick random (-10.00000) to (10))\nset [powery v] to (pick random (2.0) to (10))\nset [powerbig v] to (pick random (100) to (50))\npoint in direction (pick random (1) to (360))\nrepeat (50)\n    switch costume to ( v)\n    set size to ((1) / ()) %\n    go to x: (((X) + (CX)) + ((拡張) * ([sin v] of ((timer) * (120)) ))) y: ((Y) + (CY))\n    switch costume to (コスチューム2 v)\n    set size to (PowerBig) %\n    change [powerbig v] by ((PowerBig) / (-8))\n    change [powerx v] by ((PowerX) / (-8))\n    change [powery v] by (-0.7)\n    change [x v] by (PowerX)\n    change [y v] by (PowerY)\n    turn right ((PowerX) + (PowerY)) degrees\nend\ndelete this clone\n\ndefine すげえええええエフェクトたくさんすげええええ\nrepeat (10)\n    Clon (item (1) of [effects v]) (item (2) of [effects v]) [2]\nend\n\n@サムネ\n\nwhen flag clicked\n\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\n\n@シーンチェンジ2\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\nshow\ngo to [front v] layer\nset [ghost v] effect to (50)\ngo to x: () y: ()\npoint in direction (90)\nswitch costume to (コスチューム1 v)\nset size to () %\nrepeat until <(All) = [1]>\n    change size by (((100) - (size)) / (8))\nend\nwait (0.75) seconds\ndelete this clone\n\n@タイム\n\nwhen flag clicked\nhide\nforever\n    wait (1) seconds\n    wait until <(All) = [6]>\n    if <(Language) = [E]> then\n        switch costume to (time v)\n    else\n        switch costume to (タイム v)\n    end\n    set size to (300) %\n    show\n    go to [front v] layer\n    set [ghost v] effect to (100)\n    go to x: (0) y: (100)\n    repeat (20)\n        change [ghost v] effect by (-5)\n    end\n    wait until <(All) = [1]>\n    wait (0.5) seconds\n    hide\nend\n\n@タイム表示\n\nwhen flag clicked\nhide\nwait (1) seconds\nforever\n    wait until <(All) = [6]>\n    wait (0.25) seconds\n    set [clone id v] to [1]\n    create clone of (_myself_ v)\n    set [clone id v] to [2]\n    create clone of (_myself_ v)\n    set [clone id v] to [3]\n    create clone of (_myself_ v)\n    wait until <(All) = [1]>\nend\n\nwhen I start as a clone\nif <(clone id) = [1]> then\n    set size to (300) %\n    show\n    switch costume to (letter (length of (タイム)) of (タイム))\n    go to [front v] layer\n    set [ghost v] effect to (100)\n    if <[99] < (timer)> then\n        go to x: (40) y: (0)\n    else\n        go to x: (20) y: (0)\n    end\n    repeat (20)\n        change [ghost v] effect by (-5)\n    end\nelse\n    if <(clone id) = [2]> then\n        set size to (300) %\n        show\n        switch costume to (letter ((length of (タイム)) - (1)) of (タイム))\n        go to [front v] layer\n        set [ghost v] effect to (100)\n        if <[99] < (timer)> then\n            go to x: (0) y: (0)\n        else\n            go to x: (-20) y: (0)\n        end\n        repeat (20)\n            change [ghost v] effect by (-5)\n        end\n    else\n        if <(clone id) = [3]> then\n            set size to (300) %\n            switch costume to (letter ((length of (タイム)) - (2)) of (タイム))\n            if <[99] < (タイム)> then\n                show\n            end\n            go to [front v] layer\n            set [ghost v] effect to (100)\n            go to x: (-40) y: (0)\n            repeat (20)\n                change [ghost v] effect by (-5)\n            end\n        end\n    end\nend\n\nwhen flag clicked\nreset timer\nset [タイマー v] to []\nforever\n    wait until <(All) = [1]>\n    wait until <(All) = [5]>\n    set [タイマー v] to (timer)\n    wait until <(All) = [6]>\n    set [タイム v] to (round ((timer) - (タイマー)))\nend\n\nwhen I start as a clone\nwait until <(All) = [1]>\nwait (0.5) seconds\ndelete this clone\n\n@スプライト1\n\nwhen flag clicked\nswitch costume to (コスチューム1 v)\nset size to ((1) / ()) %\ndelete all of [難易度別クリア判定 v]\nrepeat (3)\n    add [] to [難易度別クリア判定 v]\nend\nwait until <not <[難易度別クリア判定 v] contains []?>>\nset [id v] to [1]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nshow\nset [1 v] to [-260]\nrepeat (30)\n    switch costume to (コスチューム1 v)\n    set size to ((1) / ()) %\n    go to x: (1) y: (160)\n    う\n    set size to (70) %\n    change [1 v] by (((-163) - (1)) / (8))\nend\nrepeat (30)\n    switch costume to (コスチューム1 v)\n    set size to ((1) / ()) %\n    go to x: (1) y: (160)\n    う\n    set size to (70) %\n    change [1 v] by (((-330) - (1)) / (8))\nend\ndelete this clone\n\nreplace item (1) of [難易度別クリア判定 v] with [1]\nreplace item (2) of [難易度別クリア判定 v] with [1]\nreplace item (3) of [難易度別クリア判定 v] with [1]\n\ndefine う\ngo to [front v] layer\nif <(Id) = [1]> then\n    if <(Language) = [E]> then\n        switch costume to (all clear! v)\n    else\n        switch costume to (全てクリア！ v)\n    end\nend\nif <(Id) = [2]> then\n    if <(Language) = [E]> then\n        switch costume to (defeat the enemy v)\n    else\n        switch costume to (敵を倒す v)\n    end\nend\n\nwhen flag clicked\nwait until <not <[0] = (length of [effects v])>>\nset [id v] to [2]\ncreate clone of (_myself_ v)\n\n