never die platformer!  #games #all

Instructions: ========================================\nhello!\nWelcome to my platformer!\nhave fun.\n\n▼Description\nOperate with the arrow keys.\nIt's a game that lives up to its title.\nPlease try playing!\n========================================\nこんにちは！\n僕のプラットフォーマーへようこそ！\n楽しんでください。\n\n▼説明\n矢印キーで操作します。\n\n絶対に死ねないプラットフォームです。\nぜひ遊んでみてください！

@Stage\n\nwhen I receive [スタート v]\nforever\n    play sound [lovelyflower v] until done\nend\n\n@プレイヤー\n\ndefine 初期設定プログラム\nshow\nset [x v] to [0]\nset [y v] to [0]\nset rotation style [left-right v]\ngo to x: (-210) y: (-30)\nset size to (90) %\nswitch costume to (コスチューム1 v)\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nshow\n初期設定プログラム\nforever\n    if <<key (right arrow v) pressed?> or <<<mouse down?> and <(x position) < (mouse x)>> or <key (d v) pressed?>>> then\n        switch costume to (コスチューム1 v)\n        change [x v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<<mouse down?> and <(mouse x) < (x position)>> or <key (a v) pressed?>>> then\n        switch costume to (コスチューム2 v)\n        change [x v] by (-1)\n    end\n    set [x v] to ((X) * (0.89))\n    change x by (X)\n    if <<touching (地面 v)?> or <touching (助けてくれる v)?>> then\n        change y by (1)\n        if <<touching (地面 v)?> or <touching (助けてくれる v)?>> then\n            change y by (1)\n            if <<touching (地面 v)?> or <touching (助けてくれる v)?>> then\n                change y by (1)\n                if <<touching (地面 v)?> or <touching (助けてくれる v)?>> then\n                    change y by (1)\n                    if <<touching (地面 v)?> or <touching (助けてくれる v)?>> then\n                        change y by (1)\n                        if <<touching (地面 v)?> or <touching (助けてくれる v)?>> then\n                            change y by (-5)\n                            change x by ((X) * (-1))\n                            if <<key (up arrow v) pressed?> or <<<mouse down?> and <(y position) < (mouse y)>> or <key (w v) pressed?>>> then\n                                if <(X) < [0]> then\n                                    start sound [小鼓（こつづみ） v]\n                                    set [x v] to [10]\n                                else\n                                    start sound [小鼓（こつづみ） v]\n                                    set [x v] to [-10]\n                                end\n                                set [y v] to [15]\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 (地面 v)?> or <touching (助けてくれる v)?>> then\n        change y by ((Y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-1)\n    if <<key (up arrow v) pressed?> or <<<mouse down?> and <(y position) < (mouse y)>> or <key (w v) pressed?>>> then\n        if <<touching (地面 v)?> or <touching (助けてくれる v)?>> then\n            start sound [可愛いジャンプ v]\n            set [y v] to [15]\n        end\n    end\n    change y by (1)\n    if <not <(ステージ) = [12]>> then\n        if <[242] < (x position)> then\n            初期設定プログラム\n            broadcast (ネクスト v)\n            wait (1.3) seconds\n        end\n    end\n    if <<(y position) < [-180]> or <touching (マグマ v)?>> then\n        if <not <(ステージ) = [12]>> then\n            初期設定プログラム\n        end\n    end\n    if <(ステージ) = [12]> then\n        if <(y position) < [-180]> then\n            set y to (180)\n            set [x v] to [0]\n            set [y v] to [0]\n            broadcast (ネクスト v)\n            hide\n            wait (1.3) seconds\n            show\n        end\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nswitch costume to (コスチューム3 v)\nrepeat (6)\n    change size by (-6)\n    change [ghost v] effect by (10)\nend\ndelete this clone\n\nwhen flag clicked\nhide\n\nwhen I receive [\[intro\]end v]\nwait (2) seconds\nbroadcast (スタート v)\n\nwhen flag clicked\nhide variable [time v]\nhide variable [☁ world record v]\n\nwhen I receive [スタート v]\nset [time v] to [0]\nrepeat until <(ステージ) = [11]>\n    wait (1) seconds\n    change [time v] by (1)\nend\n\nwhen I receive [スタート v]\nforever\n    if <(ステージ) = [11]> then\n        show variable [time v]\n        show variable [☁ world record v]\n        if <(time) < (☁ world record)> then\n            set [☁ world record v] to (time)\n        end\n    end\nend\n\n@地面\n\nwhen I receive [ネクスト v]\nchange [ステージ v] by (1)\n\nwhen I receive [スタート v]\nshow\ngo to [front v] layer\nset [ステージ v] to [1]\nforever\n    switch costume to (ステージ)\nend\n\nwhen flag clicked\nhide\n\n@太陽\n\nwhen flag clicked\nhide\n\nwhen flag clicked\ngo [backward v] (1) layers\nset [大きさ v] to [0]\nforever\n    change [大きさ v] by (5)\nend\n\nwhen I receive [スタート v]\nshow\nset size to (100) %\ngo to x: (217) y: (159)\nforever\n    change size by ([cos v] of (大きさ) )\nend\n\n@助けてくれる\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nhide\nforever\n    if <(ステージ) = [3]> then\n        if <([y position v] of [プレイヤー v]) < [-100]> then\n            show\n        else\n            hide\n        end\n    end\n    if <(ステージ) = [4]> then\n        if <([y position v] of [プレイヤー v]) < [-80]> then\n            show\n        else\n            hide\n        end\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    switch costume to (ステージ)\nend\n\n@マグマ\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nshow\nforever\n    switch costume to (ステージ)\nend\n\nwhen I receive [スタート v]\nshow\ngo to x: (0) y: (0)\nforever\n    if <(ステージ) = [5]> then\n        go to x: (0) y: (0)\n        if <(distance to [プレイヤー v]) < [120]> then\n            repeat (20)\n                change y by (-17)\n            end\n            stop [this script v]\n        end\n    end\nend\n\nwhen I receive [スタート v]\nshow\ngo to x: (0) y: (0)\nforever\n    if <(ステージ) = [6]> then\n        go to x: (0) y: (0)\n        if <(distance to [プレイヤー v]) < [160]> then\n            repeat (20)\n                change y by (-17)\n            end\n            stop [this script v]\n        end\n    end\nend\n\nwhen I receive [スタート v]\nshow\ngo to x: (0) y: (0)\nforever\n    if <(ステージ) = [7]> then\n        go to x: (0) y: (0)\n        if <(distance to [プレイヤー v]) < [80]> then\n            repeat (14)\n                change y by (-15)\n            end\n            stop [this script v]\n        end\n    end\nend\n\nwhen I receive [スタート v]\nshow\nforever\n    if <(ステージ) = [9]> then\n        go to x: (0) y: (0)\n    end\nend\n\nwhen I receive [スタート v]\nshow\nforever\n    if <(ステージ) = [14]> then\n        go to x: (0) y: (0)\n        if <(distance to [プレイヤー v]) < [170]> then\n            repeat (11)\n                change x by (12)\n            end\n            stop [this script v]\n        end\n    end\nend\n\nwhen I receive [スタート v]\nshow\nforever\n    if <(ステージ) = [10]> then\n        go to x: (0) y: (0)\n        if <(distance to [プレイヤー v]) < [78]> then\n            repeat (7)\n                change y by (8)\n            end\n            stop [this script v]\n        end\n    end\nend\n\n@サムネイル\n\nwhen flag clicked\nforever\n    go to x: (0) y: (0)\n    go to [front v] layer\n    set [ghost v] effect to (100)\nend\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 [s 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 (((s) - (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 [s 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@ダッシュ板\n\nwhen flag clicked\nhide\n\nwhen I receive [スタート v]\nshow\nforever\n    switch costume to (ステージ)\n    if <touching (プレイヤー v)?> then\n        change [x v] by (1.5)\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nhide\n\nwhen I receive [ネクスト v]\nshow\ngo to [front v] layer\ngo to x: (481) y: (0)\nglide (0.3) secs to x: (0) y: (0)\nwait (0.5) seconds\nglide (0.3) secs to x: (-481) y: (0)\nhide\n\n@Detector\n\nwhen I start as a clone\nif <(どっち) = [0]> then\n    go to x: (-15) y: (0)\n    set [♥ v] to [0]\n    switch costume to (love v)\n    forever\n        set [♥? v] to <touching (mouse-pointer v)?>\n        if <touching (mouse-pointer v)?> then\n            set [♥ v] to [1]\n        end\n    end\nend\nif <(どっち) = [1]> then\n    go to x: (0) y: (0)\n    switch costume to (fave v)\n    set [★ v] to [0]\n    forever\n        set [星? v] to <touching (mouse-pointer v)?>\n        if <touching (mouse-pointer v)?> then\n            set [★ v] to [1]\n        end\n    end\nend\n\nwhen I receive [スタート v]\nhide\nset [★ v] to [0]\nset [♥ v] to [0]\nset [どっち v] to [0]\ncreate clone of (_myself_ v)\nwait (0.2) seconds\nset [どっち v] to [1]\ncreate clone of (_myself_ v)\nwait until <<(♥) = [1]> and <(★) = [1]>>\nbroadcast (♥と★ v)\n\n@スプライト2\n\nwhen flag clicked\nhide\n\nwhen I receive [♥と★ v]\nshow\ngo to [front v] layer\ngo to x: (36) y: (28)\nglide (1) secs to x: (36) y: (60)\nwait (2) seconds\nglide (1) secs to x: (36) y: (31)\nhide\n\n@ターボストップ\n\nwhen flag clicked\nforever\n    point in direction (0)\n    wait (1) seconds\nend\n\nwhen flag clicked\nforever\n    turn right (1) degrees\n    wait () seconds\n    if <(direction) > [39]> then\n        stop [all v]\n    end\nend\n\n