Platformer　〜天気が変わる！？〜

Instructions: 〜〜〜〜〜〜English〜〜〜〜〜〜〜\nLet's move the character and reach the goal!\nThe weather will change!\n\n〜〜〜〜〜〜日本語〜〜〜〜〜〜〜〜\nキャラクターを動かしてゴールしましょう！\n天気が変わります！

@Stage\n\n@ \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                        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                        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                end\n            end\n        end\n    end\nend\n\ndefine ◇\ngo to x: (-240) y: (180)\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\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\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\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 (icon 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 (-25)\n    wait (0.1) seconds\nend\n\nwhen flag clicked\nbroadcast (intro v)\n\nwhen flag clicked\nwait (13) seconds\nbroadcast (START v)\n\nwhen I receive [start v]\nhide\n\n@Player\n\nwhen flag clicked\nset [color v] effect to (0)\nhide\n\nwhen I receive [start v]\nset [brightness v] effect to (0)\nshow\nset rotation style [left-right v]\nhide variable [x v]\nhide variable [y v]\nset [y v] to [0]\nset [x v] to [0]\nswitch costume to (1 v)\nshow\nset size to (55) %\n最初の位置\ngo to x: (-217) y: (30)\npoint in direction (90)\nforever\n    if <(x position) > [240]> then\n        broadcast (NEXT v)\n        最初の位置\n    end\n    if <touching (    v)?> then\n        死\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <<key (a v) pressed?> or <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < [0]>>>> then\n        point in direction (-90)\n        change [x v] by (-1)\n    end\n    if <<key (d v) pressed?> or <<key (right arrow v) pressed?> or <<mouse down?> and <(mouse x) > [0]>>>> then\n        point in direction (90)\n        change [x v] by (1)\n    end\n    if <<touching color (#00ff6a)?> or <<touching color (#00cc55)?> or <<touching color (#009940)?> or <<touching color (#ba5700)?> or <<touching color (#00bf2a)?> or <<touching color (#008c15)?> or <<touching color (#005900)?> or >>>>>>> then\n        change y by (1)\n        if <<touching color (#00ff6a)?> or <<touching color (#00cc55)?> or <<touching color (#009940)?> or <<touching color (#ba5700)?> or <<touching color (#00bf2a)?> or <<touching color (#008c15)?> or <<touching color (#005900)?> or >>>>>>> then\n            change y by (1)\n            if <<touching color (#00ff6a)?> or <<touching color (#00cc55)?> or <<touching color (#009940)?> or <<touching color (#ba5700)?> or <<touching color (#00bf2a)?> or <<touching color (#008c15)?> or <<touching color (#005900)?> or >>>>>>> then\n                change y by (1)\n                if <<touching color (#00ff6a)?> or <<touching color (#00cc55)?> or <<touching color (#009940)?> or <<touching color (#ba5700)?> or <<touching color (#00bf2a)?> or <<touching color (#008c15)?> or <<touching color (#005900)?> or >>>>>>> then\n                    change y by (1)\n                    if <<touching color (#00ff6a)?> or <<touching color (#00cc55)?> or <<touching color (#009940)?> or <<touching color (#ba5700)?> or <<touching color (#00bf2a)?> or <<touching color (#008c15)?> or <<touching color (#005900)?> or >>>>>>> then\n                        change y by (1)\n                        if <<touching color (#00ff6a)?> or <<touching color (#00cc55)?> or <<touching color (#009940)?> or <<touching color (#ba5700)?> or <<touching color (#00bf2a)?> or <<touching color (#008c15)?> or <<touching color (#005900)?> or >>>>>>> then\n                            change y by (1)\n                            if <<touching color (#00ff6a)?> or <<touching color (#00cc55)?> or <<touching color (#009940)?> or <<touching color (#ba5700)?> or <<touching color (#00bf2a)?> or <<touching color (#008c15)?> or <<touching color (#005900)?> or >>>>>>> then\n                                change x by ((x) * (-1))\n                                change y by (-5)\n                                if <<key (w v) pressed?> or <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>>> then\n                                    if <(x) > [0]> then\n                                        set [x v] to [-6]\n                                    else\n                                        set [x v] to [6]\n                                    end\n                                    set [y v] to [10]\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    change [y v] by (-1)\n    change y by (y)\n    if <<touching color (#00ff6a)?> or <<touching color (#00cc55)?> or <<touching color (#009940)?> or <<touching color (#ba5700)?> or <<touching color (#00bf2a)?> or <<touching color (#008c15)?> or <<touching color (#005900)?> or >>>>>>> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n        change y by (y)\n    end\n    change y by (-1)\n    if <<touching color (#00ff6a)?> or <<touching color (#00cc55)?> or <<touching color (#009940)?> or <<touching color (#ba5700)?> or <<touching color (#00bf2a)?> or <<touching color (#008c15)?> or <<touching color (#005900)?> or >>>>>>> then\n        if <<key (w v) pressed?> or <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>>> then\n            set [y v] to [16]\n        end\n    end\n    change y by (1)\n    if <<(y position) < [-183]> or <<<touching color (#b5b5b5)?> or <touching color (#000000)?>> or <touching color (#757575)?>>> then\n        死\n    end\n    if <touching (障害物 v)?> then\n        死\n    end\nend\n\nchange y by (x)\n\ndefine 最初の位置\nshow\nswitch costume to (1 v)\ngo to x: (-360) y: (50)\nset [y v] to [10]\nset [ghost v] effect to (0)\nset rotation style [left-right v]\ngo to [front v] layer\n\nwhen I receive [start v]\nforever\n    play sound [Illenium - Let You Go \(ft v] until done\nend\n\ndefine 死\n死２\n\nchange [ghost v] effect by (5)\nrepeat (20)\n\nwhen I start as a clone\n\n死\n\ndefine 死２\nset rotation style [all around v]\nset [y v] to [15]\ngo to [back v] layer\ngo [forward v] (5) layers\nswitch costume to (1 v)\nset size to (60) %\nrepeat until <(y position) = [-187]>\n    turn right (15) degrees\n    change y by (y)\n    change [y v] by (-1)\nend\nstart sound [Rip v]\n最初の位置\n\nrepeat (10)\n    change y by (10)\nend\n\ngo to [back v] layer\n\nset rotation style [left-right v]\n\nwait (1) seconds\n\nset [y v] to [15]\n\nstart sound [水ドポン v]\n\nwhen I receive [復活 v]\n\nswitch costume to (2 v)\n\nplay sound [ v] until done\n\nbroadcast (ストップ v)\n\nwhen I receive [ストップ v]\nrepeat (40)\n    最初の位置\nend\n\nwhen I receive [start v]\n\nset [brightness v] effect to (-70)\n\nset size to (55) %\n\n@地面\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\ngo to [front v] layer\nhide\nswitch costume to (1 v)\ngo to x: (0) y: (0)\n\nwhen I receive [start v]\nshow\nforever\n    go to [front v] layer\n    if <(costume [name v]) = [3]> then\n        broadcast (🙏 v)\n        stop [this script v]\n    end\nend\n\nwhen I receive [雨 v]\nset [brightness v] effect to (-25)\n\nchange [brightness v] effect by (-25)\n\nwhen I receive [晴れ v]\nset [brightness v] effect to (0)\n\n@障害物\n\nwhen I receive [🙏 v]\nshow\ngo to x: (0) y: (-110)\ngo to [back v] layer\ngo [forward v] (5) layers\nforever\n    repeat (10)\n        turn right (15) degrees\n    end\n    repeat (10)\n        turn right (10) degrees\n    end\n    repeat (10)\n        turn right (5) degrees\n    end\n    repeat (10)\n        turn left (15) degrees\n    end\n    repeat (10)\n        turn left (10) degrees\n    end\n    repeat (10)\n        turn left (5) degrees\n    end\nend\n\ncreate clone of (_myself_ v)\n\nwhen flag clicked\nhide\n\nwhen I start as a clone\ngo to x: (117) y: (-110)\nforever\n    repeat (10)\n        turn right (15) degrees\n    end\n    repeat (10)\n        turn right (10) degrees\n    end\n    repeat (10)\n        turn right (5) degrees\n    end\n    repeat (10)\n        turn left (15) degrees\n    end\n    repeat (10)\n        turn left (10) degrees\n    end\n    repeat (10)\n        turn left (5) degrees\n    end\nend\n\n\n\nwhen I start as a clone\ngo to x: (117) y: (-110)\nforever\n    if <([costume name v] of [地面 v]) = [4]> then\n        delete this clone\n    end\nend\n\nwhen I receive [🙏 v]\nforever\n    if <([costume name v] of [地面 v]) = [4]> then\n        hide\n        stop [this script v]\n    end\nend\n\n@お天気\n\nwhen flag clicked\nhide\n\nshow\n\nwhen I receive [start v]\npoint in direction (90)\nswitch costume to (pick random (1) to (5))\nforever\n    if <<<<(costume [number v]) = [1]> or <(costume [number v]) = [2]>> or <(costume [number v]) = [3]>> or <(costume [number v]) = [6]>> then\n        broadcast (晴れ v)\n        stop [this script v]\n    end\n    if <<(costume [number v]) = [4]> or <(costume [number v]) = [5]>> then\n        broadcast (雨 v)\n        stop [this script v]\n    end\nend\n\nwhen I receive [晴れ v]\nswitch costume to (1 v)\ncreate clone of (_myself_ v)\nswitch costume to (2 v)\ncreate clone of (_myself_ v)\nswitch costume to (3 v)\ncreate clone of (_myself_ v)\nswitch costume to (6 v)\ncreate clone of (_myself_ v)\n\nwhen I receive [雨 v]\nswitch costume to (4 v)\ncreate clone of (_myself_ v)\nswitch costume to (5 v)\nforever\n    go to x: (pick random (-249) to (249)) y: (185)\n    wait (0.0001) seconds\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\n    show\n    forever\n        go to [back v] layer\n        go to x: (0) y: (0)\n        set size to (100) %\n    end\nend\nif <(costume [number v]) = [2]> then\n    go [backward v] (6) layers\n    set size to (60) %\n    forever\n        show\n        set x to (249)\n        set y to (pick random (110) to (140))\n        repeat (332)\n            change x by (-1.5)\n        end\n        hide\n    end\nend\nif <(costume [number v]) = [3]> then\n    go [backward v] (6) layers\n    set size to (60) %\n    wait (5) seconds\n    forever\n        show\n        set x to (249)\n        set y to (pick random (110) to (140))\n        repeat (332)\n            change x by (-1.5)\n        end\n        hide\n        wait (5) seconds\n    end\nend\nif <(costume [number v]) = [6]> then\n    show\n    set size to (60) %\n    go to x: (239) y: (182)\nend\nif <(costume [number v]) = [4]> then\n    show\n    forever\n        go to [back v] layer\n        go to x: (0) y: (0)\n        set size to (100) %\n    end\nend\nif <(costume [number v]) = [5]> then\n    show\n    forever\n        point in direction (105)\n        change x by (-5)\n        change y by (-10)\n        if <<touching color (#ba5700)?> or <<touching color (#009940)?> or <<touching color (#00cc55)?> or >>> then\n            delete this clone\n        end\n    end\nend\n\ngo to [back v] layer\ngo to x: (0) y: (0)\nset size to (100) %\n\nif <(costume [number v]) = [1]> then\n    set size to (100) %\n    go to [back v] layer\nend\n\nchange y by (-1.5)\n\nchange x by (-1.5)\n\nshow\nset size to (60) %\ngo to x: (239) y: (182)\n\npoint in direction (0)\n\nwhen I start as a clone\nif <(costume [number v]) = [5]> then\n    wait (0.5) seconds\n    delete this clone\nend\n\n@サムネ\n\nwhen flag clicked\ngo to [front v] layer\ngo to x: (0) y: (0)\nhide\n\n