Factory ~platformer~ 2!!

Instructions: <English>\nOperate with the arrow keys! If you touch red, it is out!\n<日本語>\n矢印キーで操作します！赤色に触れてしまうとアウトです！\n赤い六角形を押すと…?

@Stage\n\nwhen I receive [start! v]\nswitch backdrop to (背景1 v)\nwait (1) seconds\nforever\n    play sound [Different Heaven - Safe And Sound NCS Release.mp3 v] until done\nend\n\nwhen I receive [start! v]\nset [sin v] to [0]\n\nwhen flag clicked\nswitch backdrop to (背景2 v)\nbroadcast (start! v)\n\nwhen [timer v] > (0)\nif <(sin) = [0]> then\n    broadcast (Outro v)\n    change [sin v] by (4545)\nend\n\n@ \n\n@chara\n\nwhen flag clicked\nhide\ngo to x: (-200) y: (0)\n\nwhen I receive [ステージかえる v]\nstop [other scripts in sprite v]\nrepeat until <(round (x position)) = [-200]>\n    change x by (((-200) - (x position)) / (speed))\n    change y by (((-70) - (y position)) / (speed))\nend\n移動\n\ndefine 移動\nshow\nset [x v] to [0]\nset [y v] to [0]\nforever\n    if <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>> then\n        change [x v] by (-1)\n        switch costume to (コスチューム2 v)\n    end\n    if <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n        change [x v] by (1)\n        switch costume to (コスチューム1 v)\n    end\n    change y by (-1)\n    if <touching (stage v)?> then\n        set [x v] to ((x) * (0.93))\n    else\n        set [x v] to ((x) * (0.9))\n    end\n    change y by (1)\n    change x by (x)\n    if <touching (stage v)?> then\n        change y by (1)\n        if <touching (stage v)?> then\n            change y by (1)\n            if <touching (stage v)?> then\n                change y by (1)\n                if <touching (stage v)?> then\n                    change y by (1)\n                    if <touching (stage v)?> then\n                        change y by (1)\n                        if <touching (stage v)?> then\n                            change x by ((x) * (-1))\n                            change y by (-5)\n                            if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> 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                                start sound [Basketball Bounce v]\n                            else\n                                set [x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    change y by (-1)\n    if <<<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> or <touching (jump v)?>> then\n        if <touching (stage v)?> then\n            start sound [Jump v]\n            set [y v] to [15]\n        end\n    end\n    change y by (Y)\n    change [y v] by (-1)\n    if <<touching (stage v)?> or <touching (stage v)?>> then\n        change y by ((Y) * (-1))\n        set [y v] to [0]\n    end\n    if <[235] < (x position)> then\n        broadcast (ステージかえる v)\n    end\n    if <touching (jump v)?> then\n        start sound [Big Boing v]\n        set [y v] to [20]\n        broadcast (jump v)\n    end\n    if <<(y position) < [-180]> or <<touching color (#ff0000)?> or <touching color (#ab0000)?>>> then\n        go to x: (-200) y: (0)\n        start sound [Rip v]\n        set [x v] to [0]\n        set [y v] to [0]\n    end\n    if <touching color (#00cdff)?> then\n        start sound [Zoop v]\n        set y to (220)\n    end\n    if <<touching (red v)?> and <touching color (#ffffff)?>> then\n        broadcast (ステージかえる v)\n    end\nend\n\nwhen I receive [start! v]\nshow\nwait (1) seconds\n移動\n\n@stage\n\nwhen flag clicked\nhide\n\nwhen I receive [start! v]\nset [ステージ v] to [1]\ncreate clone of (_myself_ v)\nswitch costume to (0 v)\n\nwhen I start as a clone\nshow\nswitch costume to ((ステージ) + (1))\nif <(ステージ) = [1]> then\n    go to x: (0) y: (0)\nelse\n    go to x: (500) y: (0)\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (speed))\n    end\nend\n\nwhen I receive [ステージかえる v]\nif <(costume [number v]) = [1]> then\n    change [ステージ v] by (1)\n    create clone of (_myself_ v)\n    switch costume to (0 v)\nelse\n    限度を測る\n    repeat until <(round (x position)) = (限度)>\n        go to [back v] layer\n        change x by (((限度) - (x position)) / (speed))\n    end\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\ndefine 限度を測る\ngo to x: (-500) y: (0)\nset [限度 v] to (x position)\ngo to x: (0) y: (0)\n\n@red\n\nwhen flag clicked\nhide\n\nwhen I receive [start! v]\nwait () seconds\ncreate clone of (_myself_ v)\nswitch costume to (0 v)\n\nwhen I start as a clone\nshow\nswitch costume to ((ステージ) + (1))\nif <(ステージ) = [1]> then\n    go to x: (0) y: (0)\nelse\n    go to x: (500) y: (0)\n    repeat until <(round (x position)) = [0]>\n        change x by (((0) - (x position)) / (speed))\n    end\nend\n\nwhen I receive [ステージかえる v]\nif <(costume [number v]) = [1]> then\n    wait () seconds\n    create clone of (_myself_ v)\n    switch costume to (0 v)\nelse\n    限度を測る\n    repeat until <(round (x position)) = (限度)>\n        go to [back v] layer\n        change x by (((限度) - (x position)) / (speed))\n    end\n    repeat (20)\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\ndefine 限度を測る\ngo to x: (-500) y: (0)\nset [限度 v] to (x position)\ngo to x: (0) y: (0)\n\nwhen I start as a clone\nforever\n    go to [back v] layer\nend\n\n@tumbnail\n\nwhen flag clicked\nhide\nforever\n    go to [front v] layer\nend\n\nwhen I receive [start! v]\nforever\n    reset timer\nend\n\n@Outro\n\nchange size by (10)\n\nwhen I start as a clone\nshow\nif <(ID) = [1]> then\n    go to x: (0) y: (0)\n    switch costume to (背景 v)\n    set size to (0) %\n    switch costume to (アイコン3 v)\n    repeat (13)\n        switch costume to (背景 v)\n        change size by (((100) - (size)) / (4))\n        switch costume to (アイコン3 v)\n    end\n    repeat (13)\n        switch costume to (無 v)\n        change size by (((1000) - (size)) / (4))\n        switch costume to (アイコン3 v)\n    end\n    repeat (13)\n        switch costume to (無 v)\n        change size by (((4000) - (size)) / (4))\n        switch costume to (アイコン3 v)\n    end\n    くろーん [Thanks for watching!]\n    repeat (14)\n        switch costume to (無 v)\n        change size by (((4000) - (size)) / (4))\n        switch costume to (アイコン3 v)\n    end\n    set [brightness v] effect to (-100)\n    switch costume to (背景 v)\n    show\n    wait until <(A) = [1]>\n    set [a v] to [2]\n    set [1 v] to [100]\n    くろーん [枠]\n    くろーん [icon]\n    forever\n        set size to (110) %\n        set [brightness v] effect to (1)\n        change [1 v] by (((0) - (1)) / (5))\n        go to x: ((([sin v] of (((timer) - (5)) * (100)) ) * (15)) + (0)) y: ((([sin v] of (((timer) - (3)) * (90)) ) * (15)) + (0))\n        point in direction ((([sin v] of (((timer) - (1)) * (70)) ) * (5)) + (90))\n    end\nend\n\ndefine くろーん (あいでぃー)\nset [id記録用 v] to (ID)\nset [id v] to (あいでぃー)\ncreate clone of (_myself_ v)\nset [id v] to (ID記録用)\n\nwhen flag clicked\nhide\n\nwait (0) seconds\n\nwhen I receive [outro v]\nset [a v] to [0]\nclear graphic effects\nくろーん [1]\n\nwhen I start as a clone\nif <(ID) = [Thanks for watching!]> then\n    go to [front v] layer\n    go to x: (0) y: (0)\n    switch costume to (背景 v)\n    set size to (0) %\n    switch costume to (thanks for watching! v)\n    repeat (14)\n        switch costume to (背景 v)\n        change size by (((130) - (size)) / (4))\n        switch costume to (thanks for watching! v)\n    end\n    set [brightness v] effect to (100)\n    くろーん [☆]\n    くろーん [♡]\n    くろーん [コメント]\n    くろーん [フォロー]\n    repeat (14)\n        switch costume to (背景 v)\n        change size by (((130) - (size)) / (4))\n        change y by (((30) - (y position)) / (4))\n        switch costume to (thanks for watching! v)\n    end\n    set [a v] to [1]\nend\n\nwhen I start as a clone\nif <(ID) = [☆]> then\n    go to [front v] layer\n    go to x: (0) y: (0)\n    switch costume to (背景 v)\n    set [1 v] to [0]\n    set size to (0) %\n    switch costume to (星 v)\n    set [brightness v] effect to (100)\n    repeat (40)\n        switch costume to (背景 v)\n        set [1 v] to (((1) * (0.75)) + (((130) - (size)) * (0.3)))\n        change size by (1)\n        change y by (((-30) - (y position)) / (4))\n        change x by (((-120) - (x position)) / (4))\n        switch costume to (星 v)\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [♡]> then\n    go to [front v] layer\n    go to x: (0) y: (0)\n    switch costume to (背景 v)\n    set [1 v] to [0]\n    set size to (0) %\n    switch costume to (ハート v)\n    set [brightness v] effect to (100)\n    repeat (40)\n        switch costume to (背景 v)\n        set [1 v] to (((1) * (0.75)) + (((130) - (size)) * (0.3)))\n        change size by (1)\n        change y by (((-30) - (y position)) / (4))\n        change x by (((-40) - (x position)) / (4))\n        switch costume to (ハート v)\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [コメント]> then\n    go to [front v] layer\n    go to x: (0) y: (0)\n    switch costume to (背景 v)\n    set size to (0) %\n    set [1 v] to [0]\n    switch costume to (コメント v)\n    set [brightness v] effect to (100)\n    repeat (40)\n        switch costume to (背景 v)\n        set [1 v] to (((1) * (0.75)) + (((130) - (size)) * (0.3)))\n        change size by (1)\n        change y by (((-30) - (y position)) / (4))\n        change x by (((40) - (x position)) / (4))\n        switch costume to (コメント v)\n    end\nend\n\nwhen I start as a clone\nif <(ID) = [フォロー]> then\n    go to [front v] layer\n    go to x: (0) y: (0)\n    switch costume to (背景 v)\n    set [1 v] to [0]\n    set size to (0) %\n    switch costume to (フォロー v)\n    set [brightness v] effect to (100)\n    repeat (40)\n        switch costume to (背景 v)\n        set [1 v] to (((1) * (0.75)) + (((130) - (size)) * (0.3)))\n        change size by (1)\n        change y by (((-30) - (y position)) / (4))\n        change x by (((120) - (x position)) / (4))\n        switch costume to (フォロー v)\n    end\nend\n\nwhen I start as a clone\nforever\n    if <not <(ID) = [1]>> then\n        if <(A) = [1]> then\n            delete this clone\n        end\n    end\nend\n\nwhen I start as a clone\nshow\nif <(ID) = [枠]> then\n    go to [front v] layer\n    switch costume to (無 v)\n    set size to (100) %\n    switch costume to (コスチューム1 v)\n    set [1 v] to [100]\n    forever\n        switch costume to (無 v)\n        set size to (((1) / (1.5)) + (150)) %\n        switch costume to (コスチューム1 v)\n        set [brightness v] effect to (1)\n        change [1 v] by (((0) - (1)) / (5))\n        go to x: ((([sin v] of (((timer) - (5)) * (100)) ) * (7.5)) + (0)) y: ((([sin v] of (((timer) - (3)) * (90)) ) * (7.5)) + (0))\n        point in direction ((([sin v] of (((timer) - (1)) * (70)) ) * (2.5)) + (90))\n    end\nend\n\nstop [all v]\n\nwhen I start as a clone\nshow\nif <(ID) = [icon]> then\n    go to [front v] layer\n    switch costume to (無 v)\n    set size to (100) %\n    switch costume to (アイコン2 v)\n    set [1 v] to [100]\n    clear graphic effects\n    forever\n        repeat (14)\n            switch costume to (無 v)\n            set size to (((1) / (1.5)) + (100)) %\n            switch costume to (アイコン2 v)\n            set [brightness v] effect to ((1) * (2))\n            change [1 v] by (((0) - (1)) / (5))\n            go to x: ((([sin v] of (((timer) - (5)) * (100)) ) * (7.5)) + (0)) y: ((([sin v] of (((timer) - (3)) * (90)) ) * (7.5)) + (0))\n            point in direction ((([sin v] of (((timer) - (1)) * (70)) ) * (2.5)) + (90))\n        end\n        set [1 v] to [50]\n    end\nend\n\nwhen I receive [outro v]\nplay sound [Raven & Kreyn - So Happy \[NCS Release\]2 v] until done\nforever\n    play sound [Raven & Kreyn - So Happy \[NCS Release\]\(FULL\) v] until done\nend\n\n