black&White platformer   黒と白のプラットフォーマー！！

Instructions:               〜白と黒だけの世界で冒険しよう!!〜\n〜Let's adventure in a world of only black and white!〜\n\n《使い方》《How to use》\n/矢印キーで操作します\n Operate with arrow keys\n/画面の右端に着いたら次のステージへ行きます\n When you reach the right edge of the screen, go to the next stage\n/コースは全部で8個あります\n There are 8 courses in total\n/トゲに当たったら死にます\n If you hit a thorn, you will die\n

@Stage\n\nwhen flag clicked\nswitch backdrop to (サムネイル v)\nwait (2) seconds\nrepeat (20)\n    change [ghost v] effect by (5)\nend\nbroadcast (intro v)\nwait (5) seconds\nclear graphic effects\nswitch backdrop to (白 v)\n\nwhen I receive [スタート v]\nwait (2) seconds\nset volume to (100) %\nforever\n    play sound [MusMus-BGM-125 v] until done\nend\n\nwhen I receive [0 v]\nset volume to (0) %\n\nwhen I receive [30 v]\nset volume to (30) %\n\nwhen I receive [65 v]\nset volume to (65) %\n\nwhen I receive [100 v]\nset volume to (100) %\n\n@スプライト1\n\ndefine 初期化\nshow\ngo to x: (-202) y: (0)\nswitch costume to (cube1 v)\nset size to (100) %\nset [ghost v] effect to (100)\npoint in direction (90)\ngo to [front v] layer\ngo [backward v] (1) layers\nset [x v] to [0]\nset [y v] to [0]\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\n\nwhen flag clicked\nhide\nset [レベル v] to [0]\n\nwhen I receive [スタート v]\nshow\n初期化\nforever\n    switch costume to (cube1 v)\n    if <key (down arrow v) pressed?> then\n        switch costume to (cube2 v)\n    end\n    if <key (right arrow v) pressed?> then\n        point in direction (90)\n        change [x v] by (0.7)\n        if <key (down arrow v) pressed?> then\n            switch costume to (cube2 v)\n        else\n            switch costume to (cube1 v)\n        end\n    end\n    if <key (left arrow v) pressed?> then\n        point in direction (90)\n        change [x v] by (-0.7)\n        if <key (down arrow v) pressed?> then\n            switch costume to (cube2 v)\n        else\n            switch costume to (cube1 v)\n        end\n    end\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 (1)\n                            if <touching (地面 v)?> then\n                                change x by ((0) - (x))\n                                change y by (-5)\n                                if <key (up arrow v) pressed?> then\n                                    if <(x) > [0]> then\n                                        start sound [壁キック v]\n                                        set [x v] to [-6]\n                                    else\n                                        set [x v] to [6]\n                                    end\n                                    set [y v] to [12]\n                                else\n                                    set [x v] to [0]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    set [x v] to ((x) * (0.96))\n    change [y v] by (-1)\n    change y by (y)\n    if <touching (地面 v)?> then\n        change y by ((0) - (y))\n        set [y v] to [0]\n    end\n    change y by (-2)\n    if <key (up arrow v) pressed?> then\n        if <touching (地面 v)?> then\n            set [y v] to [15]\n            start sound [Jump v]\n        end\n    end\n    change y by (1)\n    if <(x position) > [217]> then\n        if <(レベル) < [9]> then\n            change [レベル v] by (1)\n            if <(レベル) = [1]> then\n                broadcast (next v)\n                hide\n                wait (3) seconds\n                初期化\n            end\n            if <(レベル) = [2]> then\n                broadcast (next2 v)\n                hide\n                wait (3) seconds\n                初期化\n            end\n            if <(レベル) = [3]> then\n                broadcast (next3 v)\n                hide\n                wait (3) seconds\n                初期化\n            end\n            if <(レベル) = [4]> then\n                broadcast (next4 v)\n                hide\n                wait (3) seconds\n                初期化\n            end\n            if <(レベル) = [5]> then\n                broadcast (next5 v)\n                wait (3) seconds\n                初期化\n            end\n            if <(レベル) = [6]> then\n                broadcast (next6 v)\n                wait (3) seconds\n                初期化\n            end\n            if <(レベル) = [7]> then\n                broadcast (next7 v)\n                wait (3) seconds\n                初期化\n            end\n            if <(レベル) = [8]> then\n                broadcast (next8 v)\n                wait (3) seconds\n                初期化\n            end\n        end\n    end\n    if <(y position) < [-164]> then\n        set rotation style [all around v]\n        set [x v] to [0]\n        set [y v] to [10]\n        初期化\n    end\n    if <touching (棘 v)?> then\n        start sound [Oops v]\n        switch costume to (cube1 v)\n        set rotation style [all around v]\n        change y by (4)\n        set [y v] to [15]\n        set [x v] to [10]\n        repeat until <(y position) < [-180]>\n            change y by (y)\n            change [y v] by (-1)\n            turn right (14) degrees\n        end\n        初期化\n    end\n    if <touching (ばね v)?> then\n        if <key (up arrow v) pressed?> then\n            set [y v] to [18]\n        else\n            set [y v] to [15]\n        end\n    end\nend\n\nwhen I receive [next7 v]\nset [終わり v] to [終わり]\n\nwhen flag clicked\nforever\n    if <(x position) > [217]> then\n        hide\n    end\nend\n\n@地面\n\nwhen flag clicked\nhide\nswitch costume to (line v)\nforever\n    go to x: (-54) y: (-67)\nend\n\nwhen I receive [スタート v]\nshow\n\nwhen I receive [next v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next2 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next3 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next4 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next5 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next6 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next7 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next8 v]\nwait (1.5) seconds\nnext costume\n\n@棘\n\nwhen I receive [next v]\nwait (1) seconds\nshow\n\nwhen flag clicked\nhide\nswitch costume to (コスチューム1 v)\nforever\n    go to x: (0) y: (0)\nend\n\nwhen I receive [next2 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next3 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next4 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next5 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next6 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next7 v]\nwait (1.5) seconds\nnext costume\n\nwhen I receive [next8 v]\nwait (1.5) seconds\nnext costume\n\n@time\n\nwhen I receive [表示 v]\nrepeat until <(終わり) = [終わり]>\n    time [-200] [-120] []\nend\n\ndefine time (x) (y) (桁)\ngo to [front v] layer\ngo [backward v] (5) layers\nshow\nbroadcast (削除 v)\nset [time表示用 v] to [0]\nset size to (大きさ) %\ngo to x: ((x) + ((0.425) * (size))) y: ((y) - ((0.25) * (size)))\nswitch costume to (time v)\ncreate clone of (_myself_ v)\nchange x by ((((42.5) + (10)) * (size)) / (100))\nrepeat (length of ([floor v] of (timer) ))\n    change x by (((11.5) * (size)) / (100))\n    change [time表示用 v] by (1)\n    switch costume to ((letter (time表示用) of (timer)) + (2))\n    create clone of (_myself_ v)\n    change x by (((11.5) * (size)) / (100))\nend\nif <not <((桁) * (1)) = [0]>> then\n    change x by ((0.065) * (size))\n    change [time表示用 v] by (1)\n    switch costume to (透明 v)\n    create clone of (_myself_ v)\n    change x by ((0.065) * (size))\n    repeat ((桁) - (letter (1) of ((桁) - (3))))\n        change x by (((11.5) * (size)) / (100))\n        change [time表示用 v] by (1)\n        switch costume to ((letter (time表示用) of (timer)) + (2))\n        create clone of (_myself_ v)\n        change x by (((11.5) * (size)) / (100))\n    end\nend\nhide\n\nwhen flag clicked\nhide\nset [brightness v] effect to (100)\nswitch costume to (透明 v)\nset [大きさ v] to [100]\nset [終わり v] to [始まり]\n\nwhen I receive [スタート v]\nreset timer\nbroadcast (表示 v)\n\nwhen I receive [削除 v]\ndelete this clone\n\nwhen I start as a clone\ngo to [front v] layer\ngo [backward v] (4) layers\n\nwhen [timer v] > (0)\nhide\n\n@イントロ\n\ndefine ◆\ngo to x: (-240) y: (185)\nswitch costume to (正方形 v)\nrepeat (11)\n    repeat (13)\n        create clone of (_myself_ v)\n        change x by (40)\n    end\n    set x to (-240)\n    change y by (-36)\nend\n\nwhen I start as a clone\npoint in direction (90)\nshow\nif <(costume [number v]) = [1]> then\n    set size to (0) %\n    point in direction (0)\n    hide\n    wait (((((x position) + (240)) / (240)) + (((y position) + (180)) / (180))) / (5)) seconds\n    show\n    repeat (30)\n        change size by (((105) - (size)) / (4))\n        turn right (((90) - (direction)) / (4)) degrees\n    end\n    wait until <[5] < (timer)>\n    delete this clone\nelse\n    if <(costume [number v]) = [2]> then\n        go to x: (0) y: (0)\n        set size to (0) %\n        set [variable v] to [0]\n        repeat (55)\n            set [variable v] to (((variable) * (0.75)) + (((100) - (size)) / (3)))\n            change size by (variable)\n        end\n        point in direction (180)\n        change x by (150)\n        repeat (20)\n            turn right (((90) - (direction)) / (3)) degrees\n            change x by (((0) - (x position)) / (3))\n        end\n        wait until <[4.5] < (timer)>\n        hide\n        go to x: (0) y: (500)\n        go to [front v] layer\n        wait until <[7] < (timer)>\n        show\n        set [variable v] to [0]\n        repeat (60)\n            set [variable v] to (((variable) * (0.75)) + (((25) - (y position)) / (3)))\n            change y by (variable)\n        end\n        wait until <[11] < (timer)>\n        delete this clone\n    else\n        if <(costume [number v]) = [3]> then\n            go to [front v] layer\n            if <(variable) = [3.14]> then\n                go to x: (0) y: (-500)\n                repeat (50)\n                    change y by (((0) - (y position)) / (6))\n                end\n                wait until <[11] < (timer)>\n                delete this clone\n            else\n                go to x: (0) y: (-500)\n                repeat (50)\n                    change y by (((0) - (y position)) / (6))\n                end\n                wait until <[12] < (timer)>\n                repeat (20)\n                    change [ghost v] effect by (5)\n                end\n                delete this clone\n            end\n        else\n            if <(costume [number v]) = [4]> then\n                go to [front v] layer\n                go to x: (0) y: (0)\n                set size to (0) %\n                repeat (50)\n                    change size by (((100) - (size)) / (6))\n                end\n                wait until <[7] < (timer)>\n                set [variable v] to [0]\n                repeat (60)\n                    set [variable v] to (((variable) * (0.75)) + (((-100) - (y position)) / (3)))\n                    change y by (variable)\n                end\n                wait until <[11] < (timer)>\n                delete this clone\n            else\n                if <<[4] < (costume [number v])> and <[10] > (costume [number v])>> then\n                    if <(variable) = [1]> then\n                        show\n                        go to x: (0) y: (0)\n                        set size to (pick random (80) to (150)) %\n                        set [ghost v] effect to (pick random (0) to (30))\n                        set [variable v] to (pick random (-20) to (20))\n                        set [?/? v] to (pick random (1) to (360))\n                        set [? v] to [0]\n                        repeat (60)\n                            go to [front v] layer\n                            point in direction (?/?)\n                            move (variable) steps\n                            change [? v] by (variable)\n                            point in direction ((?) + (?/?))\n                            if <touching (_edge_ v)?> then\n                                if on edge, bounce\n                                set [?/? v] to (direction)\n                            end\n                            set [variable v] to ((variable) * (0.95))\n                            change [ghost v] effect by (3.4)\n                        end\n                        delete this clone\n                    else\n                        go to (random position v)\n                        show\n                        set size to (pick random (80) to (150)) %\n                        set [ghost v] effect to (100)\n                        point in direction (pick random (1) to (360))\n                        repeat until <[6] < (timer)>\n                            move (0.2) steps\n                            if <(pick random (1) to (2)) = [1]> then\n                                turn right (2) degrees\n                            else\n                                turn left (2) degrees\n                            end\n                            change [ghost v] effect by (-4)\n                        end\n                        delete this clone\n                    end\n                else\n                    delete this clone\n                end\n            end\n        end\n    end\nend\ndelete this clone\n\ndefine Back Dust\nset [variable v] to [29]\nrepeat (40)\n    switch costume to (pick random (5) to (9))\n    create clone of (_myself_ v)\nend\n\ndefine Dust\nset [variable v] to [1]\nrepeat (20)\n    switch costume to (pick random (5) to (9))\n    create clone of (_myself_ v)\nend\n\nwhen I receive [intro v]\nreset timer\nstart sound [Lensko - Cetus \[NCS Release\] v]\n◆\nwait until <[1.8] < (timer)>\nBack Dust\nset [brightness v] effect to (-100)\nDust\nclear graphic effects\nswitch costume to (かっこいいイラスト v)\ncreate clone of (_myself_ v)\nwait until <[4] < (timer)>\nset [variable v] to [3.14]\nswitch costume to ( v)\nrepeat (3)\n    create clone of (_myself_ v)\n    change [brightness v] effect by (25)\n    wait (0.1) seconds\nend\nwait until <[5.25] < (timer)>\nclear graphic effects\nswitch costume to (name v)\ncreate clone of (_myself_ v)\nDust\nDust\nwait until <[9] < (timer)>\nset [variable v] to [8.97]\nswitch costume to ( v)\nrepeat (3)\n    create clone of (_myself_ v)\n    change [brightness v] effect by (-15)\n    wait (0.1) seconds\nend\nwait (3) seconds\nbroadcast (スタート v)\n\nwhen flag clicked\nhide\n\n@NEXT\n\ndefine クローン (クローンid)\nswitch costume to (クローンid)\ncreate clone of (_myself_ v)\n\nwhen [timer v] > (0)\nhide\n\nwhen I receive [next v]\nhide\nクローン [1]\nwait (0.05) seconds\nクローン [2]\nwait (0.05) seconds\nクローン [3]\nwait (0.05) seconds\nクローン [4]\nwait (0.05) seconds\nクローン [5]\n\nwhen I receive [next2 v]\nhide\nクローン [1]\nwait (0.05) seconds\nクローン [2]\nwait (0.05) seconds\nクローン [3]\nwait (0.05) seconds\nクローン [4]\nwait (0.05) seconds\nクローン [5]\n\nwhen I receive [next3 v]\nhide\nクローン [1]\nwait (0.05) seconds\nクローン [2]\nwait (0.05) seconds\nクローン [3]\nwait (0.05) seconds\nクローン [4]\nwait (0.05) seconds\nクローン [5]\n\nwhen I receive [next4 v]\nhide\nクローン [1]\nwait (0.05) seconds\nクローン [2]\nwait (0.05) seconds\nクローン [3]\nwait (0.05) seconds\nクローン [4]\nwait (0.05) seconds\nクローン [5]\n\nwhen I receive [next5 v]\nhide\nクローン [1]\nwait (0.05) seconds\nクローン [2]\nwait (0.05) seconds\nクローン [3]\nwait (0.05) seconds\nクローン [4]\nwait (0.05) seconds\nクローン [5]\n\nwhen I receive [next6 v]\nhide\nクローン [1]\nwait (0.05) seconds\nクローン [2]\nwait (0.05) seconds\nクローン [3]\nwait (0.05) seconds\nクローン [4]\nwait (0.05) seconds\nクローン [5]\n\nwhen I receive [next7 v]\nhide\nクローン [1]\nwait (0.05) seconds\nクローン [2]\nwait (0.05) seconds\nクローン [3]\nwait (0.05) seconds\nクローン [4]\nwait (0.05) seconds\nクローン [5]\n\nwhen I start as a clone\nshow\ngo to x: (468) y: (0)\nrepeat until <(round (x position)) = [0]>\n    go to [front v] layer\n    change x by (((0) - (x position)) / (7))\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    go to [front v] layer\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    go to [front v] layer\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    go to [front v] layer\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    go to [front v] layer\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    go to [front v] layer\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 flag clicked\nforever\n    go to [front v] layer\nend\n\nwhen I receive [next8 v]\nhide\nクローン [1]\nwait (0.05) seconds\nクローン [2]\nwait (0.05) seconds\nクローン [3]\nwait (0.05) seconds\nクローン [4]\nwait (0.05) seconds\nクローン [5]\n\n@サムネイル\n\nwhen flag clicked\nset y to (340)\nset x to (0)\nhide\nforever\n    go to [front v] layer\n    set [タイマー v] to (timer)\nend\n\nwhen [timer v] > (タイマー)\nhide\nset y to (340)\nset x to (0)\ngo to [front v] layer\nshow\nrepeat (36)\n    change y by (((-1) * (y position)) / (6))\n    set volume to ((-100) / (36)) %\nend\nforever\n    stop all sounds\n    go to x: (0) y: (0)\nend\n\n@ターボ対策\n\nwhen flag clicked\nforever\n    hide\n    change [ターボ v] by (1)\n    go to x: (0) y: (0)\nend\n\nwhen flag clicked\nforever\n    set [ターボ v] to [0]\n    wait (0.001) seconds\n    if <[3] < (ターボ)> then\n        stop [all v]\n    end\n    go to [back v] layer\nend\n\n@スプライト2\n\nwhen flag clicked\nif <not <[見た人 v] contains (username)?>> then\n    add (username) to [見た人 v]\nend\n\nwhen flag clicked\nhide\nchange [brightness v] effect by (-100)\nswitch costume to (100 v)\n\nwhen this sprite clicked\nnext costume\n\nwhen I receive [スタート v]\nshow\nforever\n    if <(costume [number v]) = [1]> then\n        broadcast (100 v)\n    else\n        if <(costume [number v]) = [2]> then\n            broadcast (65 v)\n        else\n            if <(costume [number v]) = [3]> then\n                broadcast (30 v)\n            else\n                if <(costume [number v]) = [4]> then\n                    broadcast (0 v)\n                end\n            end\n        end\n    end\nend\n\nwhen I receive [0 v]\nset volume to (0) %\n\nwhen I receive [30 v]\nset volume to (30) %\n\nwhen I receive [65 v]\nset volume to (65) %\n\nwhen I receive [100 v]\nset volume to (100) %\n\n@costume1\n\nwhen I receive [スタート v]\nforever\n    wait (pick random (15) to (20)) seconds\n    go to x: (120) y: (215)\nend\n\n