Long Platformer!! 長いプラットフォーマー!! 【全部で30ステージ！】

Instructions: (日本語は下です↓)\n--English--\nOperate with arrow keys.\nDon't hit the thorns!\nMobile compatible!\ndifficulty \n★★☆☆☆\n\n--日本語--\n矢印キーで操作です！\n棘にあたらないようにしてね！\nモバイル対応！\n難易度\n★★☆☆☆\n\nクリア目指して頑張ってください！\n

@Stage\n\n@cube\n\ndefine ＃キー\nstart sound [Pew v]\nset [y v] to [0]\nset [x v] to [0]\nif <(コスチューム) = [6]> then\n    go to x: (-200) y: (85)\nelse\n    go to x: (-200) y: (0)\nend\n\ndefine 壁ジャンプ\nchange [y v] by (-1)\nchange y by (y)\nif <touching (スプライト1 v)?> then\n    change y by ((0) - (y))\n    set [y v] to [0]\nend\nchange y by (-2)\nif <<<key (up arrow v) pressed?> or <<[0] < (mouse y)> and <mouse down?>>> and <touching (スプライト1 v)?>> then\n    set [y v] to [15.5]\nend\nchange y by (1)\n\nwhen I receive [解除 v]\nshow\ngo to x: (-200) y: (46)\nset [x v] to [0]\nset [y v] to [0]\n\nwhen I receive [next v]\nset [シーン v] to [0]\n\nwhen I receive [解除 v]\nshow\nset [シーン v] to [1]\n\nwhen I receive [戻す v]\ngo to x: (-194) y: (85)\nset [x v] to [0]\nset [y v] to [0]\n\nwhen I receive [クリア v]\ngo to x: (-192) y: (-33)\n\nwhen I receive [game over v]\nhide\n\nwhen I receive [世界だー v]\nset [シーン v] to [0]\nhide\n\nwhen I start as a clone\nswitch costume to (コスチューム3 v)\nrepeat (10)\n    change [ghost v] effect by (15)\n    change size by (-5)\nend\ndelete this clone\n\nwhen I receive [隠す v]\nhide\n\nwhen I receive [y座標変更 v]\ngo to x: (-194) y: (85)\n\nwhen I receive [世界記録 v]\nif <(Time) > (☁ World Record)> then\n    show variable [time v]\n    show variable [☁ world record v]\nelse\n    show variable [time v]\n    show variable [☁ world record v]\n    set [☁ world record v] to (Time)\nend\n\nwhen I start as a clone\nswitch costume to (コスチューム3 v)\nrepeat (10)\n    change [ghost v] effect by (15)\n    change size by (-5)\nend\ndelete this clone\n\nforever\n    if <touching (スプライト6 v)?> then\n        change [y v] by (1)\n        set [y v] to ((y) * (0.8))\n    end\n    if <<touching (スプライト6 v)?> and <<<[0] < (mouse y)> and <mouse down?>> or <key (up arrow v) pressed?>>> then\n        change [y v] by (1)\n    end\nend\n\nwhen I receive [表示 v]\nset [time v] to [0]\nforever\n    wait (0.1) seconds\n    change [time v] by (0.1)\n    if <(ステージ) = [30]> then\n        repeat (90)\n        broadcast (世界記録 v)\n        stop [this script v]\n    end\nend\n\nwhen I receive [表示 v]\nforever\n    show\nend\n\nwhen I receive [表示 v]\ngo to [front v] layer\ngo [forward v] (2) layers\n\nwhen I receive [表示 v]\nforever\n    if <touching (ジャンプ台 v)?> then\n        change [y v] by (6)\n    end\nend\n\nwhen I receive [表示 v]\nforever\n    if <<<(y position) < [-180]> or <touching (棘 v)?>> or <touching (軽量化 v)?>> then\n        ＃キー\n    end\nend\n\nwhen I receive [表示 v]\nforever\n    if <[239] < (x position)> then\n        if <not <(ステージ) = [30]>> then\n            broadcast (NEXT v)\n            go to x: (-200) y: (-30)\n            change [ステージ v] by (1)\n            set [シーン v] to [1]\n            set [x v] to [0]\n            set [y v] to [0]\n        end\n    end\nend\n\nwhen I receive [表示 v]\ngo to x: (-194) y: (46)\nset [シーン v] to [1]\nshow\nclear graphic effects\nswitch costume to (コスチューム2 v)\nset size to (70) %\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-194) y: (-10)\nset rotation style [left-right v]\npoint in direction (90)\nshow\nforever\n    if <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>> then\n        wait until <not <touching (スプライト3 v)?>>\n        point in direction (-90)\n        change [x v] by ((-1) - ((coin) * (0.01)))\n        create clone of (_myself_ v)\n    end\n    if <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n        wait until <not <touching (スプライト3 v)?>>\n        point in direction (90)\n        change [x v] by ((1) + ((coin) * (0.01)))\n        create clone of (_myself_ v)\n    end\n    change x by (x)\n    if <touching (スプライト1 v)?> then\n        change y by (1)\n        if <touching (スプライト1 v)?> then\n            change y by (1)\n            if <touching (スプライト1 v)?> then\n                change y by (1)\n                if <touching (スプライト1 v)?> then\n                    change y by (1)\n                    if <touching (スプライト1 v)?> then\n                        change y by (1)\n                        if <touching (スプライト1 v)?> then\n                            change y by (1)\n                            if <touching (スプライト1 v)?> then\n                                change x by ((0) - (x))\n                                change y by (-5)\n                                if <<key (up arrow v) pressed?> or <<[0] < (mouse y)> and <mouse down?>>> then\n                                    start sound [ジャンプの着地 v]\n                                    if <[0] < (x)> then\n                                        set [x v] to [-10]\n                                    else\n                                        set [x v] to [10]\n                                    end\n                                    set [y v] to [13]\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.885))\n    壁ジャンプ\nend\n\nwhen flag clicked\nhide\nset [シーン v] to [0]\n\nwhen flag clicked\nset [ステージ v] to [1]\n\nwhen flag clicked\nbroadcast (start v)\n\nwhen I receive [next v]\nrepeat (90)\n    go to x: (-200) y: (-20)\n    set [x v] to [0]\n    set [y v] to [0]\nend\n\nif <(コスチューム) = [6]> then\n    go to x: (-194) y: (85)\n    set [x v] to [0]\n    set [y v] to [0]\nend\n\nwhen I receive [表示 v]\nhide variable [☁ world record v]\nhide variable [time v]\nforever\n    if <<key (up arrow v) pressed?> or <<[0] < (mouse y)> and <mouse down?>>> then\n        if <touching (スプライト1 v)?> then\n            play sound [Jump v] until done\n        end\n    end\nend\n\n@棘\n\nwhen I receive [next v]\nnext costume\n\nwhen [timer v] > (0)\nswitch costume to (コスチューム1 v)\n\nwhen I receive [表示 v]\nswitch costume to (コスチューム1 v)\nshow\ngo [forward v] (2) layers\n\nwhen flag clicked\nshow\ngo [forward v] (2) layers\nwait (1) seconds\nhide\nswitch costume to (コスチューム1 v)\n\n@サムネ\n\nwhen flag clicked\ngo to [front v] layer\nshow\nwait (1) seconds\nhide\ngo to x: (0) y: (0)\n\nwhen [timer v] > (0)\ngo to [front v] layer\nshow\nhide variable [☁ world record v]\nhide variable [time v]\nbroadcast (隠す v)\n\nwhen I receive [表示 v]\nshow variable [☁ world record v]\nshow variable [time v]\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nforever\n    go to [front v] layer\nend\n\n@スプライト5\n\nwhen [timer v] > (0)\nhide\n\nwhen I receive [表示 v]\ngo to [front v] layer\nhide\ngo to x: (151) y: (180)\nforever\n    wait (pick random (5) to (8)) seconds\n    show\n    start sound [ポップ v]\n    glide (1) secs to x: (151) y: (155)\n    wait (3) seconds\n    glide (1) secs to x: (151) y: (180)\n    hide\nend\n\n@スプライト1\n\nwhen I receive [next v]\nnext costume\nchange [コスチューム v] by (1)\nif <(コスチューム) = [5]> then\n    broadcast (回転 v)\nelse\n    broadcast (回転終了 v)\nend\nif <<(コスチューム) = [6]> or <(コスチューム) = [7]>> then\n    broadcast (画像変更 v)\nelse\n    broadcast (画面変更終わり v)\nend\nif <(コスチューム) = [11]> then\n    broadcast (棘 v)\nelse\n    broadcast (棘終わり v)\nend\nif <(コスチューム) = [6]> then\n    broadcast (y座標変更 v)\nend\n\nwhen I receive [隠す v]\n\nwait (1) seconds\nswitch costume to (コスチューム2 v)\ngo to [front v] layer\n\nwhen I receive [表示 v]\nforever\n    play sound [Insert Music Here! v] until done\nend\n\nwhen I receive [表示 v]\ngo to x: (2) y: (-27)\nswitch costume to (コスチューム2 v)\nshow\ngo to [front v] layer\nset [コスチューム v] to [0]\n\nwhen flag clicked\nshow\ngo to [front v] layer\nhide\nwait (1) seconds\nhide\n\nwhen [timer v] > (0)\ngo to [front v] layer\ngo [backward v] (1) layers\nswitch costume to (コスチューム1 v)\nshow\n\n@Next!\n\nwhen I receive [next v]\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\ndefine clone (cloneid)\nswitch costume to (cloneid)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\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)) / (7))\n    end\nend\n\nwhen I start as a clone\nif <(costume [number v]) = [1]> then\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    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    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    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    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 flag clicked\nhide\n\nwhen [timer v] > (0)\nhide\n\n@intro3\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)\nstart sound [Foxsky - Kirby Smash v]\nreset timer\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 [\( ;∀;\) 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 (((\( ;∀;\)) - (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 [\( ;∀;\) 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\nwait (1.6) seconds\nbroadcast (表示 v)\n\n@ばね\n\ndefine 動き\nshow\nif <touching (cube v)?> then\n    start sound [Zoop v]\n    switch costume to (2 v)\n    set [y v] to [22]\n    wait (0.1) seconds\nelse\n    switch costume to (1 v)\nend\n\nwhen I start as a clone\nforever\n    if <(クローン番号) = [1]> then\n        forever\n            set x to (100)\n            動き\n            if <(ステージ) = [22]> then\n                delete this clone\n            end\n        end\n    end\n    if <(クローン番号) = [2]> then\n        forever\n            set x to (230)\n            動き\n            if <(ステージ) = [22]> then\n                delete this clone\n            end\n        end\n    end\nend\n\nwhen flag clicked\nset [クローン番号 v] to [0]\nhide\nforever\n    if <(ステージ) = [19]> then\n        go to x: (0) y: (0)\n        動き\n    end\n    if <(ステージ) = [20]> then\n        set x to (63)\n        動き\n    end\n    if <(ステージ) = [21]> then\n        set x to (-30)\n        動き\n    end\n    if <(ステージ) = [22]> then\n        hide\n    end\nend\n\nwhen I receive [next v]\nif <(ステージ) = [21]> then\n    repeat (2)\n        create clone of (_myself_ v)\n        change [クローン番号 v] by (1)\n    end\nend\n\nwhen [timer v] > (0)\nhide\n\n@軽量化\n\n