Rolling platformer!

Instructions: 絶対見て↓↓↓↓↓↓↓↓↓↓↓↓↓\n\nhttps://scratch.mit.edu/projects/780866208/\n\n量産型が嫌いな場合はお引き取りください

@Stage\n\n@player\n\ndefine jump\nchange [y v] by (-1)\nchange y by (Y)\nif <touching color (#55f200)?> then\n    change y by ((Y) * (-1))\n    set [y v] to [0]\nend\nchange y by (-1)\nif <touching color (#55f200)?> then\n    if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <[0] < (mouse y)>>> then\n        set [y v] to [14]\n        start sound [効果音//ジャンプ v]\n    end\nend\nchange y by (1)\n\ndefine 準備\nset drag mode [not draggable v]\ngo to [front v] layer\nclear graphic effects\nshow\nswitch backdrop to (1 v)\nswitch costume to (め v)\ngo to x: (-212) y: (-113)\nset size to (75) %\nstop all sounds\nset volume to (60) %\nset [x v] to [0]\nset [y v] to [0]\nset [time v] to [0]\n初期設定\n\nwhen flag clicked\nswitch backdrop to (1 v)\nhide variable [time v]\nhide variable [☁ time v]\nhide\nwait until <[12] < (timer)>\nbroadcast (ゲームスタート v)\n\ndefine 初期設定\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-212) y: (-113)\nclear graphic effects\n\nwhen I receive [ゲームスタート v]\n準備\nrepeat ((1) / ())\n    if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        change [x v] by (-1)\n    end\n    if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<mouse down?> and <(x position) < (mouse x)>>> then\n        change [x v] by (1)\n    end\n    if <<touching color (#39a300)?> or <touching color (#55f200)?>> then\n        change y by (4)\n    end\n    if <touching color (#663b00)?> then\n        change x by ((X) * (-2))\n        set [x v] to [0]\n        if <<<key (w v) pressed?> or <key (up arrow v) pressed?>> or <<mouse down?> and <[0] < (mouse y)>>> then\n            set [y v] to [11]\n            start sound [効果音//壁キック v]\n            if <<<key (a v) pressed?> or <key (left arrow v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n                set [x v] to [6]\n            end\n            if <<<key (d v) pressed?> or <key (right arrow v) pressed?>> or <<mouse down?> and <(x position) < (mouse x)>>> then\n                set [x v] to [-6]\n            end\n        end\n    end\n    if <<touching color (#9f9f9f)?> and <<touching (描画 v)?> and <(backdrop [number v]) = [9]>>> then\n        broadcast (ジャンプ台 v)\n        set [y v] to [22.35]\n        start sound [効果音//ジャンプ v]\n    end\n    if <<(x position) > [242]> and <not <(backdrop [name v]) = [goal]>>> then\n        broadcast (次！ v)\n        start sound [効果音//next v]\n        wait (0.85) seconds\n        next backdrop\n        初期設定\n        wait (1.25) seconds\n    end\n    if <<touching color (#cb0000)?> or <touching color (#ff0000)?>> then\n        start sound [効果音//ﾀﾋ v]\n        repeat (10)\n            change [ghost v] effect by (7)\n        end\n        初期設定\n    end\n    if <key (r v) pressed?> then\n        start sound [効果音//ﾀﾋ v]\n        repeat (10)\n            change [ghost v] effect by (7)\n        end\n        初期設定\n    end\n    if <(y position) < [-181]> then\n        start sound [効果音//ﾀﾋ v]\n        repeat (10)\n            change [ghost v] effect by (7)\n        end\n        初期設定\n    end\n    if <<(backdrop [name v]) = [goal]> and <(x position) > [242]>> then\n        stop [all v]\n    end\n    set [x v] to ((X) * (0.875))\n    change x by (X)\n    turn right ((X) * (2.2)) degrees\n    jump\nend\n\nwhen I receive [ゲームスタート v]\nwait (0.075) seconds\nrepeat ((1) / ())\n    wait (0.01) seconds\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (くろ v)\nrepeat (20)\n    change [ghost v] effect by (5)\n    change size by (-1.5)\nend\ndelete this clone\n\nwhen I receive [ゲームスタート v]\nrepeat ((1) / ())\n    if <(backdrop [name v]) = [goal]> then\n        broadcast (goal v)\n        show variable [time v]\n        show variable [☁ time v]\n        if <<(time) < (☁ time)> and <not << (username) contains [oira-edu]?> or < (username) contains [yakochite]?>>>> then\n            set [☁ time v] to (time)\n            say (join (join (username) [のタイムは]) (join (time) [秒]))\n        end\n    else\n        wait (1) seconds\n        change [time v] by (1)\n    end\nend\n\nwhen [space v] key pressed\nif <(username) = [oira-edu]> then\n    ask [] and wait\n    switch backdrop to (answer)\nend\n\nwhen I receive [ゲームスタート v]\nrepeat ((1) / ())\n    play sound [bgm//Cloud 9 \[NCS\] v] until done\nend\n\nwhen [e v] key pressed\nbroadcast (サムネ v)\nstop [all v]\n\n@描画\n\nwhen I receive [ゲームスタート v]\nrepeat ((1) / ())\n    if <(backdrop [number v]) = [8]> then\n        set size to (100) %\n        go to x: (-125) y: (-40)\n        switch costume to (赤色//刃 v)\n        show\n        turn left (2) degrees\n    end\n    if <(backdrop [number v]) = [9]> then\n        switch costume to (jump//1 v)\n        point in direction (90)\n        show\n        set size to (45) %\n        go to x: (-43) y: (-109)\n    end\n    if <(backdrop [number v]) = [21]> then\n        go to x: (-205) y: (-159)\n        set size to (100) %\n        point in direction (90)\n        switch costume to (地面//大 v)\n        show\n        repeat until <not <(backdrop [number v]) = [21]>>\n            go to x: (-205) y: (-159)\n            repeat until <<[369] < (x position)> or <(X) = [0]>>\n                glide (0.01) secs to x: ((x position) + (4.92)) y: (-159)\n            end\n        end\n    end\n    if <(backdrop [number v]) = [22]> then\n        go to x: (0) y: (0)\n        set size to (100) %\n        point in direction (90)\n        switch costume to (地面//地面/小 v)\n        show\n        repeat until <not <(backdrop [number v]) = [22]>>\n            go to x: (-205) y: (-159)\n            repeat until <<[369] < (x position)> or <(X) = [0]>>\n                glide (0.01) secs to x: ((x position) + (6)) y: (-159)\n            end\n        end\n    end\n    if <not <<<<<(backdrop [number v]) = [8]> or <(backdrop [number v]) = [9]>> or <(backdrop [number v]) = [11]>> or <(backdrop [number v]) = [21]>> or <(backdrop [number v]) = [22]>>> then\n        hide\n    end\nend\n\nwhen I receive [goal v]\nhide\n\nwhen I receive [サムネ v]\nhide\n\nwhen I receive [goal v]\nhide\n\nwhen I receive [サムネ v]\nhide\n\nwhen flag clicked\nhide\n\n@太陽\n\nwhen I receive [ゲームスタート v]\nset [sun v] to [0]\ngo to x: (-216) y: (157)\nshow\nset size to (100) %\nswitch costume to (太陽 v)\ngo to [front v] layer\nrepeat ((1) / ())\n    if <(backdrop [name v]) = [goal]> then\n        go to x: (-216) y: (157)\n        hide\n    else\n        go to x: (-216) y: (157)\n        switch costume to (たいよう v)\n        go to [back v] layer\n        change [sun v] by (4)\n        change size by ([cos v] of (sun) )\n    end\nend\n\nwhen flag clicked\nhide\n\n@NEXT\n\nwhen I receive [旗 v]\nhide\nswitch backdrop to (1 v)\n\nwhen I receive [サムネ v]\nhide variable [time v]\nhide variable [☁ time v]\nswitch costume to (さむね2 v)\ngo to [front v] layer\ngo [forward v] (1) layers\ngo to x: (1) y: (0)\nset size to (100) %\nshow\nstop [all v]\n\ndefine clone (cloneid)\nswitch costume to (cloneid)\ncreate clone of (_myself_ v)\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\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)) / (5))\n    end\nend\n\nwhen I start as a clone\ngo to [front v] layer\nif <(costume [number v]) = [1]> then\n    wait (1.8) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (3)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [2]> then\n    wait (1.7) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (3)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [3]> then\n    wait (1.6) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (3)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [4]> then\n    wait (1.5) seconds\n    repeat until <[465] < (x position)>\n        change x by ((1) + ((x position) / (3)))\n    end\n    delete this clone\nend\nif <(costume [number v]) = [5]> then\n    wait (1.4) seconds\n    repeat until <[330] < (x position)>\n        change x by ((1) + ((x position) / (3)))\n    end\n    delete this clone\nend\n\nwhen I receive [star true v]\nhide\n\nwhen I receive [ゲームスタート v]\nhide\n\nwhen flag clicked\nhide\n\n@intro\n\nwhen I start as a clone\nif <(cloneID) = [logo]> then\n    show\n    set [clone_dir v] to [360]\n    switch costume to (bit v)\n    set size to (1200) %\n    switch costume to (logo v)\n    repeat until <[101] > (size)>\n        switch costume to (bit v)\n        change size by (((65) - (size)) / (6.9))\n        change [clone_dir v] by (((90) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n        switch costume to (logo v)\n    end\n    repeat until <[66] > (size)>\n        change size by (((65) - (size)) / (6.9))\n        change [clone_dir v] by (((90) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n    end\n    set [clone_dir v] to [0.5]\n    repeat until <(size) > [100]>\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        turn right ((clone_dir) / (-12)) degrees\n    end\n    repeat (7)\n        switch costume to (bit v)\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        turn right ((clone_dir) / (-12)) degrees\n        switch costume to (logo v)\n    end\n    hide\n    switch costume to (square1 v)\n    set [cloneid v] to [square2]\n    create clone of (_myself_ v)\n    switch costume to (square2 v)\n    set [cloneid v] to [square3]\n    create clone of (_myself_ v)\n    set [cloneid v] to [kirbyzaz]\n    create clone of (_myself_ v)\n    set [cloneid v] to [back3]\n    create clone of (_myself_ v)\n    repeat (8)\n        set [clone_size v] to [50]\n        set [cloneid v] to [square1]\n        create clone of (_myself_ v)\n        set [cloneid v] to [back2]\n        create clone of (_myself_ v)\n        broadcast (\[INTRO\]size v)\n        switch costume to (square1 v)\n        wait (0.561) seconds\n    end\n    broadcast (\[INTRO\]spin v)\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back]> then\n    show\n    set [clone_dir v] to [360]\n    switch costume to (bit v)\n    set size to (1200) %\n    switch costume to (blackbar1 v)\n    repeat until <[175] > (size)>\n        switch costume to (bit v)\n        change size by (((174) - (size)) / (6.9))\n        change [clone_dir v] by (((65) - (clone_dir)) / (6.9))\n        point in direction (clone_dir)\n        switch costume to (back v)\n    end\n    set [clone_dir v] to [0.5]\n    repeat (15)\n        switch costume to (bit v)\n        change [clone_dir v] by ((clone_dir) / (2))\n        change size by (clone_dir)\n        switch costume to (back v)\n        turn right ((clone_dir) / (12)) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [b1]> then\n    switch costume to (blackbar1 v)\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    show\n    repeat (10)\n        set size to (100) %\n        go to [front v] layer\n        change [ghost v] effect by (-10)\n    end\n    wait (0.1) seconds\n    repeat until <(timer) > [9]>\n        go to [front v] layer\n        change y by (((125) - (y position)) / (5))\n        switch costume to (blackbar1 v)\n        show\n    end\n    repeat until <(timer) > [10]>\n        go to [front v] layer\n        change y by (((-1) - (y position)) / (5))\n        switch costume to (blackbar1 v)\n        show\n    end\n    broadcast (\[INTRO\]end v)\nend\n\nwhen I start as a clone\nif <(cloneID) = [b2]> then\n    switch costume to (blackbar2 v)\n    set [ghost v] effect to (100)\n    go to x: (0) y: (0)\n    show\n    repeat (10)\n        set size to (100) %\n        go to [front v] layer\n        change [ghost v] effect by (-10)\n    end\n    wait (0.1) seconds\n    repeat until <(timer) > [9]>\n        go to [front v] layer\n        change y by (((-125) - (y position)) / (5))\n        switch costume to (blackbar2 v)\n        show\n    end\n    repeat until <(timer) > [10]>\n        go to [front v] layer\n        change y by (((1) - (y position)) / (5))\n        switch costume to (blackbar2 v)\n        show\n    end\nend\n\nwhen flag clicked\npoint in direction (90)\nreset timer\nstart sound [Foxsky - Kirby Smash v]\nwait (0.7) seconds\nhide\nset [cloneid v] to [b1]\ncreate clone of (_myself_ v)\nset [cloneid v] to [b2]\ncreate clone of (_myself_ v)\nwait (0.3) seconds\nset [cloneid v] to [back]\ncreate clone of (_myself_ v)\nset [cloneid v] to [logo]\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(cloneID) = [square1]> then\n    go to [back v] layer\n    go [forward v] (3) layers\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    repeat until <(size) > [100]>\n        change size by (((clone_size) - (size)) / (5))\n        turn right (((clone_dir) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by (((clone_size) - (size)) / (5))\n        switch costume to (clone_cos)\n        turn right (((clone_dir) - (direction)) / (5)) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back2]> then\n    switch costume to (back2 v)\n    clear graphic effects\n    set [ghost v] effect to (50)\n    show\n    go to [front v] layer\n    repeat (25)\n        change [ghost v] effect by (2)\n    end\n    hide\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [back3]> then\n    go to x: (0) y: (0)\n    show\n    switch costume to (back3 v)\n    set [clone1 v] to [90]\n    show\n    set [clone_dir v] to [90]\n    \n        switch costume to (bit v)\n        set size to (100) %\n        go to [back v] layer\n        change [clone_dir v] by (((clone1) - (clone_dir)) / (5))\n        point in direction (clone_dir)\n        switch costume to (back3 v)\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [square3]> then\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    go to x: (0) y: (0)\n    repeat until <(size) > [100]>\n        change size by ((((clone_size) * ((2.25) * (2.25))) - (size)) / (5))\n        turn right ((((clone_dir) * ((2.25) * (2.25))) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by ((((clone_size) * ((2.25) * (2.25))) - (size)) / (5))\n        turn right ((((clone_dir) * ((2.25) * (2.25))) - (direction)) / (5)) degrees\n        switch costume to (clone_cos)\n        turn right (0.1) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(cloneID) = [square2]> then\n    set [clone_dir v] to [0]\n    show\n    set [clone_cos v] to (costume [number v])\n    set size to (0) %\n    go to x: (0) y: (0)\n    repeat until <(size) > [100]>\n        change size by ((((clone_size) * (2.25)) - (size)) / (5))\n        turn right ((((clone_dir) * (2.25)) - (direction)) / (5)) degrees\n    end\n    repeat until <(size) > [1500]>\n        switch costume to (bit v)\n        change size by ((((clone_size) * (2.25)) - (size)) / (5))\n        turn right ((((clone_dir) * (2.25)) - (direction)) / (5)) degrees\n        switch costume to (clone_cos)\n        turn right (0.1) degrees\n    end\n    delete this clone\nend\n\nwhen I receive [\[intro\]size v]\nif < (cloneID) contains [square]?> then\n    if <[350] < (clone_dir)> then\n        set [clone_dir v] to [0]\n    end\n    change [clone_size v] by ((clone_size) * (1.5))\n    change [clone_dir v] by (22.5)\nend\nif <(cloneID) = [back3]> then\n    change [clone1 v] by (90)\nend\n\nwhen I receive [\[intro\]spin v]\nif <<(cloneID) = [b1]> or <(cloneID) = [b2]>> then\n\nwhen I receive [\[intro\]size v]\nif <(cloneID) = [kirbyzaz]> then\n    set [clone_cos v] to (pick random (5) to (10))\n    change size by (30)\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\nend\n\nwhen I start as a clone\nif <(cloneID) = [kirbyzaz]> then\n    show\n    set [clone_dir v] to [90]\n    point in direction (90)\n    go to x: (0) y: (0)\n    switch costume to (bit v)\n    set size to (200) %\n    switch costume to (yourname v)\n    \n        switch costume to (bit v)\n        change size by (((120) - (size)) / (5))\n        switch costume to (yourname v)\n        go to [front v] layer\n        go [backward v] (2) layers\n    end\nend\n\nwhen I receive [\[intro\]size v]\nif <(cloneID) = [b1]> then\n    set [clone_cos v] to [2]\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\nend\nif <(cloneID) = [b2]> then\n    set [clone_cos v] to [-5]\n    repeat (35)\n        set [clone_cos v] to (((clone_cos) * (0.75)) + (((90) - (direction)) * (0.3)))\n        turn right (clone_cos) degrees\n    end\nend\n\nwhen I receive [\[intro\]end v]\nif <<(cloneID) = [b1]> or <(cloneID) = [b2]>> then\n    wait (1) seconds\n    if <(cloneID) = [b1]> then\n        change y by (1.5)\n        repeat until <(y position) > [200]>\n            switch costume to (back2 v)\n            change y by ((y position) / (3))\n            switch costume to (blackbar1 v)\n        end\n    else\n        change y by (-1.5)\n        repeat until <[-200] > (y position)>\n            switch costume to (back2 v)\n            change y by ((y position) / (3))\n            switch costume to (blackbar2 v)\n        end\n    end\n    delete this clone\nelse\n    hide\n    delete this clone\nend\n\n@icon\n\n