マイクラ・プラットフォーマー　♯❓ Myra Platformer ♯❓

Instructions: ・矢印操作・マウスも使える！\nイントロ：kn_nyoko様\n地面　　：-firstwave-様\n\n\n\n・Arrow operation\n・Intro reference: Mr. kn_nyoko\n\nI made a Minecraft style platformer for the first time

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nbroadcast (outro! v)\n\nwhen flag clicked\nwait (8) seconds\nforever\n    play sound [魔王魂  8bit24 \(1\) v] until done\nend\n\n@ステージ\n\nwhen flag clicked\nforever\n    if <<<(backdrop [number v]) = [9]> or <(backdrop [number v]) = [10]>> or <(backdrop [number v]) = [11]>> then\n        show variable [タイム v]\n    end\nend\n\nwhen flag clicked\nhide variable [タイム v]\nset [タイム v] to [0]\nwait (8) seconds\nforever\n    repeat until <<<(backdrop [number v]) = [9]> or <(backdrop [number v]) = [10]>> or <(backdrop [number v]) = [11]>>\n        wait (1) seconds\n        change [タイム v] by (1)\n    end\nend\n\nwhen flag clicked\nswitch costume to (line v)\nif <(backdrop [number v]) = [10]> then\n    switch costume to (コスチューム1 v)\nend\n\n@イントロ\n\nwhen I start as a clone\nif <(Clone) = [Particles]> then\n    switch costume to (pick random (23) to (25))\n    set size to (pick random (50) to (150)) %\n    set [ghost v] effect to (25)\n    set [brightness v] effect to (pick random (-25.) to (100.))\n    point in direction (pick random (-180) to (180))\n    set [x v] to (pick random (10.) to (12.))\n    set [i v] to (pick random (2.) to (9.))\n    go to [front v] layer\n    show\n    repeat until <touching (_edge_ v)?>\n        move (X) steps\n        change y by (I)\n        change [i v] by (-0.4)\n        set [x v] to ((X) * (0.95))\n    end\n    delete this clone\nend\n\ndefine Particles\ngo to x: (0) y: (0)\nset [clone v] to [Particles]\nrepeat (50)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nif <(Clone) = [Name]> then\n    set size to (0) %\n    go to [front v] layer\n    point in direction (0)\n    show\n    repeat (25)\n        go to [front v] layer\n        change size by (((130) - (size)) / (8))\n        change y by (((0) - (y position)) / (8))\n        turn right (((90) - (direction)) / (8)) degrees\n    end\n    point in direction (90)\n    set [i v] to [-1]\n    set [intro: y v] to [5]\n    repeat (25)\n        change [intro: y v] by (-1)\n        change y by (Intro: y)\n    end\n    set y to (300)\n    set [intro: y v] to [0]\n    repeat (19)\n        change [intro: y v] by (-1)\n        change y by (Intro: y)\n    end\n    wait (0.5) seconds\n    set [intro: y v] to [25]\n    repeat (11)\n        change [intro: y v] by (-1)\n        change y by (Intro: y)\n    end\n    set y to (-300)\n    set [intro: y v] to [21]\n    repeat (21)\n        change [intro: y v] by (-1)\n        change y by (Intro: y)\n    end\n    wait until <(timer) > [6]>\n    set [intro: y v] to [0]\n    if <(costume [name v]) = [k]> then\n        wait (0.3) seconds\n        repeat (25)\n            change [intro: y v] by (-1)\n            change y by (Intro: y)\n        end\n    else\n        if <(costume [name v]) = [n]> then\n            wait (0.2) seconds\n            repeat (25)\n                change [intro: y v] by (-1)\n                change y by (Intro: y)\n            end\n        else\n            if <(costume [name v]) = [_]> then\n                wait (0.1) seconds\n                repeat (25)\n                    change [intro: y v] by (-1)\n                    change y by (Intro: y)\n                end\n            else\n                if <(costume [name v]) = [n2]> then\n                    repeat (25)\n                        change [intro: y v] by (-1)\n                        change y by (Intro: y)\n                    end\n                else\n                    if <(costume [name v]) = [y]> then\n                        repeat (25)\n                            change [intro: y v] by (-1)\n                            change y by (Intro: y)\n                        end\n                    else\n                        if <(costume [name v]) = [o]> then\n                            wait (0.1) seconds\n                            repeat (25)\n                                change [intro: y v] by (-1)\n                                change y by (Intro: y)\n                            end\n                        else\n                            if <(costume [name v]) = [k2]> then\n                                wait (0.2) seconds\n                                repeat (25)\n                                    change [intro: y v] by (-1)\n                                    change y by (Intro: y)\n                                end\n                            else\n                                if <(costume [name v]) = [o2]> then\n                                    wait (0.3) seconds\n                                    repeat (25)\n                                        change [intro: y v] by (-1)\n                                        change y by (Intro: y)\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\n    delete this clone\nend\n\nwhen flag clicked\nclear graphic effects\nreset timer\nhide\nstart sound [intro v]\nset volume to (100) %\nset size to (100) %\npoint in direction (90)\ngo to x: (0) y: (0)\nwait (0.5) seconds\nset [clone v] to [cube]\ncreate clone of (_myself_ v)\nwait (1) seconds\ngo to x: (-105) y: (-100)\nswitch costume to (k v)\nrepeat (8)\n    set [clone v] to [Name]\n    create clone of (_myself_ v)\n    next costume\n    change x by (30)\nend\nwait (0.5) seconds\nParticles\nset [clone v] to [line]\npoint in direction (90)\nline\nwait (0.575) seconds\nrepeat (10)\n    set [clone v] to [particle]\n    particle\nend\nwait (0.3) seconds\nset [clone v] to [line]\npoint in direction (join [22.5] [])\nline\nwait (0.575) seconds\nrepeat (10)\n    set [clone v] to [particle]\n    particle\nend\nwait (0.5) seconds\nset [clone v] to [line]\npoint in direction (90)\nline\nwait (0.575) seconds\nrepeat (10)\n    set [clone v] to [particle]\n    particle\nend\nwait (0.3) seconds\nset [clone v] to [line]\npoint in direction (join [22.5] [])\nline\nwait (5) seconds\nchange [color v] effect by (40)\n\nwhen I start as a clone\nif <(Clone) = [cube]> then\n    show\n    set size to (0) %\n    go to x: (0) y: (300)\n    point in direction (0)\n    switch costume to (cube1 v)\n    repeat (20)\n        change size by (((100) - (size)) / (5))\n        turn right (((90) - (direction)) / (5)) degrees\n        change y by (((0) - (y position)) / (5))\n    end\n    point in direction (90)\n    repeat (12)\n        next costume\n    end\n    repeat (20)\n        switch costume to (blank v)\n        change size by (((2000) - (size)) / (5))\n        switch costume to (cube13 v)\n    end\n    wait (4.5) seconds\n    repeat (20)\n        switch costume to (blank v)\n        change size by (((100) - (size)) / (5))\n        switch costume to (cube13 v)\n    end\n    repeat (12)\n        switch costume to ((costume [number v]) - (1))\n        change size by (-5)\n    end\n    set [i v] to [-1]\n    repeat (20)\n        change size by ((I) / (3))\n        change [i v] by (join [-] (([abs v] of (I) ) / (4)))\n        turn right ((I) / (-3)) degrees\n        change y by ((I) / (3))\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone) = [line]> then\n    set size to (50) %\n    switch costume to (line1 v)\n    go to [front v] layer\n    go [backward v] (1) layers\n    show\n    repeat (13)\n        move (10) steps\n        change [ghost v] effect by ((100) / (13))\n        next costume\n    end\n    delete this clone\nend\n\ndefine line\ngo to x: (-120) y: (-100)\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\ngo to x: (-120) y: (100)\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\ngo to x: (120) y: (-100)\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\ngo to x: (120) y: (100)\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(Clone) = [particle]> then\n    set size to (50) %\n    switch costume to (circle v)\n    show\n    repeat (20)\n        change size by (-2.5)\n        move (10) steps\n        turn left (5) degrees\n        change [ghost v] effect by (5)\n        if <touching (_edge_ v)?> then\n            delete this clone\n        end\n    end\n    delete this clone\nend\n\ndefine particle\ngo to x: (-120) y: (-100)\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\ngo to x: (-120) y: (100)\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\ngo to x: (120) y: (-100)\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\ngo to x: (120) y: (100)\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\nturn right (45) degrees\ncreate clone of (_myself_ v)\n\n@サムネ\n\nwhen flag clicked\nforever\n    go to [front v] layer\nend\n\nwhen flag clicked\nforever\n    change [ghost v] effect by (15)\nend\n\n@E\n\nwhen flag clicked\nwait (8) seconds\nforever\n    if <touching color (#b82501)?> then\n        go to x: (-208) y: (0)\n    end\n    if <touching (ステージ v)?> then\n        go to x: (-208) y: (-42)\n        next backdrop\n    end\nend\n\nwhen flag clicked\nhide\nwait (8) seconds\nwait (0.1) seconds\nset [yy v] to [0]\nset [xx v] to [0]\ngo to x: (-220) y: (0)\nswitch backdrop to (ステージ v)\nshow\nset rotation style [left-right v]\nrepeat until <([costume # v] of [button3 v]) = [2]>\n    if <<key (right arrow v) pressed?> or <<mouse down?> and <(mouse x) > [0]>>> then\n        point in direction (90)\n        change [xx v] by (1)\n    end\n    if <<key (left arrow v) pressed?> or <<mouse down?> and <[0] > (mouse x)>>> then\n        point in direction (-90)\n        change [xx v] by (-1)\n    end\n    set [xx v] to ((Xx) * (0.9))\n    change x by (Xx)\n    if <<<touching color (#593d29)?> or <touching color (#a07f40)?>> or <touching color (#000000)?>> then\n        change y by (6)\n        if <<<touching color (#593d29)?> or <touching color (#a07f40)?>> or <touching color (#000000)?>> then\n            change y by (-6)\n            change x by ((Xx) * (-1))\n            if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n                set [yy v] to [15]\n                if <(Xx) > [0]> then\n                    set [xx v] to [-10]\n                else\n                    set [xx v] to [10]\n                end\n            else\n                set [xx v] to [0]\n            end\n        end\n    end\n    change [yy v] by (-1)\n    change y by (Yy)\n    if <<<touching color (#593d29)?> or <touching color (#a07f40)?>> or <touching color (#000000)?>> then\n        change y by (() - (Yy))\n        set [yy v] to [0]\n        if <<key (up arrow v) pressed?> or <<mouse down?> and <(mouse y) > [0]>>> then\n            set [yy v] to [15]\n        end\n    end\nend\n\ndefine 初期化\n\nwhen flag clicked\nwait (8) seconds\nforever\n    if <key (right arrow v) pressed?> then\n        next costume\n    end\n    if <key (left arrow v) pressed?> then\n        next costume\n    end\n    if <key (up arrow v) pressed?> then\n        next costume\n    end\nend\n\n@移動する地面\n\nwhen flag clicked\ngo to x: (-249) y: (-141)\n\nwhen backdrop switches to [背景1 v]\nhide\n\nwhen backdrop switches to [背景11 v]\nshow\nforever\n    repeat (100)\n        change x by (3)\n    end\n    repeat (100)\n        change x by (-3)\n    end\nend\n\nwhen backdrop switches to [背景10 v]\nhide\n\n@スプライト1\n\n