Platformer Maker

Instructions: ▼お願い\nプログラムやコスチュームなどを借りる際は"必ず"リミックスでお願いします！\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \n▼オーバーワールド編(part1)のURLです！見てね！\nhttps://scratch.mit.edu/projects/676569542\n▼ネザー編(part2)のURLです！ぜひ見てね！\nhttps://scratch.mit.edu/projects/699572928\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \nマインクラフトの世界で冒険を楽しもう！\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \n▼遊び方\n矢印キー、WASDキーで操作。スペースキーで攻撃できます。\nモバイル対応しました！モバイルの操作は、画面の右左、上をタップで操作。左上の「attack」をタップで攻撃できます。\n ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \n▼タグ\n#minecraft#game #games #all #alt #platformer #minecraftplatformer #S_Fes #Game #Games #All \n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \n▼クレジット\nプレイヤープログラム参考･･･@TonSino様\nマイクラ素材(ゾンビ、プレイヤーなど) @-firstwave-\n地面、体力ゲージ 、効果音@griffpatch\nサムネの文字 @Kensuke17\nサムネの文字 @highpandapanda1\nピカー @Coltroc\nNEXT　@harukun19\n歩行音 、飛び散るやつ @TOMATONOHEYA\nターボ対策プログラム @sosukeyamakawa\n参考 @NAGI-nagi-\nBGM @TonyShark_TS\nサムネの文字 @TOMATONOHEYA 

@Stage\n\nwhen flag clicked\n\nwait (9) seconds\n\nstart sound [level1 v]\n\nforever\n\nwhen I receive [start v]\nplay sound [level1 v] until done\nplay sound [level2 v] until done\nplay sound [level3 v] until done\nplay sound [Stay Inside Me v] until done\nplay sound [sound1 v] until done\n\n@Intro\n\nwhen I start as a clone\nif <(Clone ID) = [Beginning]> then\n    set [color v] effect to (0)\n    go to [front v] layer\n    go to x: (0) y: (0)\n    point in direction (90)\n    set [val1 v] to [0]\n    switch costume to (scaling dot v)\n    set size to (300) %\n    switch costume to (beginning v)\n    hide\n    set [val1 v] to [76]\n    repeat (70)\n        stamp\n        change [val1 v] by (((425) - (Val1)) / (12))\n        point in direction (Val1)\n    end\n    erase all\n    delete this clone\nend\n\ndefine Shake with an amplitude of: (amount)\nchange size by (50)\nrepeat (amount)\n    point in direction ((([cos v] of ((1000) * (timer)) ) * (((size) - (100)) * (0.1))) + (90))\n    go to x: (([sin v] of ((1000) * (timer)) ) * (((size) - (100)) * (0.5))) y: (([sin v] of ((800) * (timer)) ) * (((size) - (100)) * (0.5)))\n    change size by (((100) - (size)) / (9))\nend\n\ndefine Shake x: (x-) y: (y-) direction: (dirc---) Speed: (sd)\ngo to x: ((x-) + (([sin v] of ((timer) * (1000)) ) * ((sd) * (1)))) y: ((y-) + (([sin v] of ((timer) * (800)) ) * ((sd) * (0.6))))\npoint in direction ((dirc---) + (([sin v] of ((timer) * (1000)) ) * ((sd) * (1))))\n\nwhen I start as a clone\nif <(Clone ID) = [Shockwave]> then\n    clear graphic effects\n    Frame Animation x [0] y [0] sz [100] dir (Rotation) spd [1]\n    Set effects: color [90] brightness [0] transparency [0]\n    set [v v] to [1]\n    go to [front v] layer\n    switch costume to (checker shockwave 1 v)\n    show\n    repeat until <[21] < (V)>\n        switch costume to (blank v)\n        change size by (((500) - (size)) / (5))\n        switch costume to (V)\n        change [v v] by (((22) - (V)) / (5))\n    end\n    repeat (10)\n        switch costume to (blank v)\n        change [ghost v] effect by (10)\n        change size by (((500) - (size)) / (5))\n        switch costume to (V)\n        change [v v] by (((22) - (V)) / (5))\n    end\n    delete this clone\nend\n\ndefine Shockwave\nset [rotation v] to [0]\nSet x [0] y [0]\nClone Sprite ID [Shockwave] # [1]\nset [rotation v] to [180]\nSet x [0] y [0]\nClone Sprite ID [Shockwave] # [1]\nwait (0.15) seconds\nset [rotation v] to [-90]\nSet x [0] y [0]\nClone Sprite ID [Shockwave] # [1]\nset [rotation v] to [90]\nSet x [0] y [0]\nClone Sprite ID [Shockwave] # [1]\n\ndefine Clone Sprite ID (id) # (#)\nset [clone id v] to (id)\nrepeat (#)\n    create clone of (_myself_ v)\nend\n\ndefine Frame Animation x (x) y (y) sz (sz) dir (dir) spd (spd)\nchange x by (((round (x)) - (round (x position))) / (spd))\nchange y by (((round (y)) - (round (y position))) / (spd))\nchange size by (((round (sz)) - (round (size))) / (spd))\nturn right (((round (dir)) - (round (direction))) / (spd)) degrees\n\ndefine Set effects: color (color) brightness (brightness) transparency (transparency)\nset [intro template 3: color v] to (color)\nset [brightness v] to (brightness)\nset [transparency v] to (transparency)\nset [color v] effect to (Intro TEMPLATE 3: Color)\nset [brightness v] effect to (Brightness)\nset [ghost v] effect to (Transparency)\n\ndefine Line Explode (degree) with start (start)\nset [rotation v] to (start)\nrepeat ((360) / (degree))\n    Clone Sprite ID [Burst] # [1]\n    change [rotation v] by (degree)\nend\n\ndefine Set x (x) y (y)\n\nwhen I start as a clone\nif <(Clone ID) = [Burst]> then\n    set [value 1 v] to [20]\n    switch costume to (checker shockwave 23 v)\n    go to [front v] layer\n    go [backward v] (2) layers\n    show\n    Set effects: color (Intro TEMPLATE 3: Color) brightness [100] transparency (pick random (0) to (10))\n    Frame Animation x [0] y [0] sz [0] dir (Rotation) spd [1]\n    repeat until <(Value 1) < [2]>\n        set [value 1 v] to ((Value 1) * (0.9))\n        switch costume to (((Value 1) * (-0.5)) + (34))\n        Frame size [100] spd [5]\n        move ((Value 1) * (1.2)) steps\n    end\n    repeat (10)\n        set [value 1 v] to ((Value 1) * (0.9))\n        switch costume to (((Value 1) * (-0.5)) + (34))\n        Frame size [100] spd [5]\n        move ((Value 1) * (1.2)) steps\n        change [ghost v] effect by (10)\n    end\n    delete this clone\nend\n\ndefine Frame size (sz) spd (spd)\nchange size by (((round (sz)) - (round (size))) / (spd))\n\ndefine Diminish Shake at x (x) y (y) spd (spd) shake size (size)\nset [v v] to ([abs v] of (size) )\nrepeat until <[0] = (round (V))>\n    go to x: (pick random ((x) + (V)) to ((x) - (V))) y: (pick random ((y) + (V)) to ((y) - (V)))\n    change [v v] by (((0) - (round (V))) / (spd))\nend\n\ndefine Bounce to size (size)\nset [bounce v] to [0]\nrepeat until <([abs v] of (((0.85) * (Bounce)) + (((size) - (size)) / (8))) ) < [0.05]>\n    set [bounce v] to (((0.85) * (Bounce)) + (((size) - (size)) / (8)))\n    change size by (Bounce)\n    go to [front v] layer\nend\n\ndefine Shake (.5) | (end)\nrepeat until <(round (size)) = (round (end))>\n    go to x: (([sin v] of ((timer) * (1000)) ) * (((size) - (end)) * (.5))) y: (([sin v] of ((timer) * (800)) ) * (((size) - (end)) * (.5)))\n    change size by (((end) - (size)) / (4))\nend\n\ndefine Square Clones (x) (y) (c) (b)\nset [color v] effect to (c)\nset [brightness v] effect to (b)\ngo to x: (x) y: (y)\nset [value v] to [90]\nrepeat (10)\n    change [value v] by (36)\n    Clone Sprite ID [Square] # [1]\nend\nclear graphic effects\ngo to x: (0) y: (0)\n\nwhen I start as a clone\nif <(Clone ID) = [Square]> then\n    show\n    set size to (100) %\n    go to [front v] layer\n    point in direction (value)\n    switch costume to (square anim1 v)\n    set [value v] to [18]\n    repeat (5)\n        go to [front v] layer\n        turn right (-90) degrees\n        move (value) steps\n        change [value v] by ((value) / (-12))\n        turn right (90) degrees\n    end\n    repeat (19)\n        go to [front v] layer\n        next costume\n        turn right (-90) degrees\n        move (value) steps\n        change [value v] by ((value) / (-12))\n        turn right (90) degrees\n    end\n    delete this clone\nend\n\ndefine Dot explosion (x) (y) (c) (b)\nset [color v] effect to (c)\nset [brightness v] effect to (b)\ngo to x: (x) y: (y)\nset [clone id v] to [Dots]\nset [value v] to [90]\nrepeat (10)\n    change [value v] by (36)\n    create clone of (_myself_ v)\nend\nclear graphic effects\ngo to x: (0) y: (0)\n\nwhen I start as a clone\nif <(Clone ID) = [Dots]> then\n    show\n    set size to (250) %\n    go to [front v] layer\n    point in direction (value)\n    switch costume to (explosion dot v)\n    set [value v] to [25]\n    repeat (10)\n        go to [front v] layer\n        change size by (((25) - (size)) / (4))\n        turn right (-90) degrees\n        move (value) steps\n        change [value v] by ((value) / (-7))\n        turn right ((90) + ((value) / (2))) degrees\n    end\n    repeat (20)\n        go to [front v] layer\n        change size by (((25) - (size)) / (12))\n        turn right (-90) degrees\n        move (value) steps\n        change [value v] by ((value) / (-12))\n        turn right ((90) + ((value) / (2))) degrees\n        change [ghost v] effect by (5)\n    end\n    delete this clone\nend\n\ndefine Rotator\nClone Sprite ID [rotator] # [1]\n\nwhen I start as a clone\nif <(Clone ID) = [rotator]> then\n    clear graphic effects\n    set rotation style [all around v]\n    switch costume to (rotator13 v)\n    go to x: (0) y: (0)\n    set [turn! v] to [0]\n    set [brightness v] effect to (100)\n    point in direction (90)\n    set size to (100) %\n    show\n    repeat (6)\n        turn left (Turn!) degrees\n        switch costume to ((costume [number v]) - (1))\n        change [turn! v] by (.3)\n    end\n    repeat (6)\n        turn left (Turn!) degrees\n        switch costume to ((costume [number v]) - (1))\n        change [turn! v] by (.8)\n    end\n    repeat (7)\n        turn left (Turn!) degrees\n        change [turn! v] by (2)\n    end\n    turn left (5) degrees\n    repeat (8)\n        turn left (Turn!) degrees\n        change [turn! v] by (-1.9)\n    end\n    repeat (2)\n        turn left (Turn!) degrees\n        change [turn! v] by (-1)\n    end\n    repeat (7)\n        turn left (Turn!) degrees\n        change [turn! v] by (-.5)\n    end\n    set rotation style [left-right v]\n    point in direction (-90)\n    repeat (12)\n        next costume\n    end\n    delete this clone\nend\n\nwhen flag clicked\nreset timer\nset [keyframes check v] to [1]\nhide\nswitch costume to (scaling dot v)\nset size to (100) %\ngo to x: (0) y: (0)\npoint in direction (90)\nset up keyframes\nerase all\nwait (1) seconds\nstart sound [we don't talk anymore v]\nClone Sprite ID [Beginning] # [1]\nwait (2.3) seconds\nClone Sprite ID [bars] # [1]\nClone Sprite ID [flash] # [1]\nClone Sprite ID [back] # [1]\nClone Sprite ID [chevron] # [1]\nClone Sprite ID [name] # [1]\nwait (1.3) seconds\nchange [keyframes check v] by (1)\nClone Sprite ID [chevron] # [1]\nwait (1.1) seconds\nchange [keyframes check v] by (1)\nClone Sprite ID [chevron] # [1]\nwait (1.3) seconds\nchange [keyframes check v] by (1)\nClone Sprite ID [chevron] # [1]\nwait (1) seconds\nchange [keyframes check v] by (1)\nClone Sprite ID [chevron] # [1]\nwait (3) seconds\nbroadcast (Start v)\n\nwhen I start as a clone\nif <(Clone ID) = [back]> then\n    go to [back v] layer\n    switch costume to (back v)\n    show\nend\nif <(Clone ID) = [name]> then\n    go to x: (0) y: (0)\n    point in direction (90)\n    switch costume to (template v)\n    show\n    Shake with an amplitude of: [40]\n    Dot explosion [0] [0] [0] [100]\n    Shake with an amplitude of: [35]\n    Square Clones [0] [0] [0] [100]\n    Shake with an amplitude of: [40]\n    Line Explode [45] with start [7]\n    Shake with an amplitude of: [20]\n    Rotator\n    set [own v] to [0]\n    repeat (15)\n        turn right (OWN) degrees\n        change [own v] by (2)\n    end\n    Dot explosion [0] [0] [0] [100]\n    set [own v] to [-180]\n    repeat (35)\n        point in direction (OWN)\n        change [own v] by (((90) - (OWN)) / (8))\n    end\n    Square Clones [0] [0] [0] [100]\n    Shake with an amplitude of: [45]\n    set [own v] to [0]\n    repeat (20)\n        point in direction ((OWN) + (90))\n        change y by ((0) - (OWN))\n        change [own v] by (2)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [flash]> then\n    show\n    set [brightness v] effect to (100)\n    set [ghost v] effect to (100)\n    switch costume to (back v)\n    repeat (1)\n        change [ghost v] effect by (-100)\n        go to [front v] layer\n    end\n    repeat (10)\n        change [ghost v] effect by (10)\n        go to [front v] layer\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [chevron]> then\n    go to x: (0) y: (0)\n    point in direction (90)\n    switch costume to (chevron v)\n    go to [back v] layer\n    go [forward v] (1) layers\n    show\n    set size to (50) %\n    repeat (30)\n        switch costume to (scaling dot v)\n        change size by (((200) - (size)) / (8))\n        switch costume to (chevron v)\n    end\n    wait (item (Keyframes check) of [keyframes v]) seconds\n    repeat (30)\n        switch costume to (scaling dot v)\n        change size by (((400) - (size)) / (8))\n        switch costume to (chevron v)\n    end\n    wait (item (Keyframes check) of [keyframes v]) seconds\n    repeat (30)\n        switch costume to (scaling dot v)\n        change size by (((900) - (size)) / (8))\n        switch costume to (chevron v)\n    end\n    delete this clone\nend\n\ndefine set up keyframes\ndelete all of [keyframes v]\nadd [0.3] to [keyframes v]\nadd [0.2] to [keyframes v]\nadd [0.3] to [keyframes v]\nadd [0] to [keyframes v]\nadd [0.3] to [keyframes v]\n\nwhen I start as a clone\nif <(Clone ID) = [name]> then\n    forever\n        set [\[intro\] direction v] to (x position)\n        set [\[intro\] direction v] to (y position)\n        set [\[intro\] direction v] to (direction)\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [chevron]> then\n    forever\n        go to x: (\[intro\] x) y: (\[intro\] y)\n        point in direction (\[intro\] direction)\n    end\nend\n\nwhen I start as a clone\nif <(Clone ID) = [bars]> then\n    go to x: (0) y: (0)\n    show\n    go to [front v] layer\n    switch costume to (bars v)\n    wait (8) seconds\n    repeat (45)\n        switch costume to (scaling dot v)\n        change size by (((138) - (size)) / (5))\n        switch costume to (bars v)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [back]> then\n    go to x: (0) y: (0)\n    show\n    go to [back v] layer\n    switch costume to (back v)\n    wait (8) seconds\n    repeat (60)\n        Frame Animation x [0] y [-500] sz [100] dir [90] spd [10]\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [splines2]> then\n    switch costume to (partical v)\n    show\n    go to [back v] layer\n    go [forward v] (3) layers\n    go to x: (-250) y: (-130)\n    point in direction (90)\n    repeat (10)\n        move (8) steps\n    end\n    repeat (55)\n        move (8) steps\n        turn left (2) degrees\n    end\n    delete this clone\nend\nif <(Clone ID) = [splines1]> then\n    switch costume to (partical v)\n    show\n    go to [back v] layer\n    go [forward v] (3) layers\n    go to x: (250) y: (130)\n    point in direction (-90)\n    repeat (10)\n        move (8) steps\n    end\n    repeat (55)\n        move (8) steps\n        turn left (2) degrees\n    end\n    delete this clone\nend\n\nwhen flag clicked\nwait (5) seconds\nrepeat (25)\n    Clone Sprite ID [splines1] # [1]\n    Clone Sprite ID [splines2] # [1]\nend\n\nwhen flag clicked\nwait (7) seconds\nrepeat (25)\n    Clone Sprite ID [splines3] # [1]\n    Clone Sprite ID [splines4] # [1]\nend\nClone Sprite ID [pulse] # [1]\n\nwhen I start as a clone\nif <(Clone ID) = [splines3]> then\n    switch costume to (partical v)\n    show\n    go to [back v] layer\n    go [forward v] (3) layers\n    go to x: (-250) y: (-130)\n    point in direction (90)\n    repeat (4)\n        repeat (7)\n            move (8) steps\n            turn left (4) degrees\n        end\n        repeat (7)\n            move (8) steps\n            turn right (4) degrees\n        end\n    end\n    repeat (7)\n        move (8) steps\n        turn left (4) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [splines4]> then\n    switch costume to (partical v)\n    show\n    go to [back v] layer\n    go [forward v] (3) layers\n    go to x: (250) y: (130)\n    point in direction (-90)\n    repeat (4)\n        repeat (7)\n            move (8) steps\n            turn left (4) degrees\n        end\n        repeat (7)\n            move (8) steps\n            turn right (4) degrees\n        end\n    end\n    repeat (7)\n        move (8) steps\n        turn left (4) degrees\n    end\n    delete this clone\nend\n\nwhen I start as a clone\nif <(Clone ID) = [pulse]> then\n    switch costume to (pulse1 v)\n    show\n    go to [front v] layer\n    go [backward v] (3) layers\n    set [ghost v] effect to (100)\n    repeat (5)\n        change [ghost v] effect by (-20)\n    end\n    repeat (5)\n        change [ghost v] effect by (20)\n    end\n    switch costume to (pulse2 v)\n    go to [front v] layer\n    go [backward v] (3) layers\n    repeat (5)\n        change [ghost v] effect by (-20)\n    end\n    repeat (5)\n        change [ghost v] effect by (20)\n    end\n    delete this clone\nend\n\n@Player\n\nwhen flag clicked\nhide\n\nwait (9) seconds\n\nwhen flag clicked\nbroadcast (1 v)\nforever\n    if <touching (portal v)?> then\n        go to x: (-194) y: (-108)\n        broadcast (next v)\n    end\n    if <key (r v) pressed?> then\n        go to x: (-197) y: (-108)\n    end\n    if <touching (spike v)?> then\n        go to x: (-194) y: (-108)\n    end\nend\n\nif <touching color (#d6d6d6)?> then\n    go to x: (-197) y: (-108)\nend\n\n\n    go to x: (-194) y: (-108)\nend\n\nwhen I start as a clone\nswitch costume to (costume1 v)\nrepeat (10)\n    change [ghost v] effect by (10)\n    change size by (-10)\nend\ndelete this clone\n\nwhen flag clicked\nwait (12) seconds\nforever\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\n\nwhen flag clicked\nif <touching (spike v)?> then\n    go to x: (-197) y: (-108)\nend\n\nbroadcast (Death v)\n\nwhen flag clicked\nwait (9) seconds\nforever\n\nwhen flag clicked\n\nforever\n\nplay sound [Cloud 10 v] until done\n\nplay sound [EXPLORING THE DARK - 3:28:19, 10 v] until done\n\nwhen I receive [start v]\nshow\nswitch costume to (costume1 v)\ngo to [back v] layer\nset rotation style [left-right v]\ngo to x: (-197) y: (-108)\nforever\n    change [y v] by (-0.5)\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(mouse x) < (x position)>>> then\n        change [x v] by (-1)\n        point in direction (90)\n    end\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n        change [x v] by (1)\n        point in direction (90)\n    end\n    set [x v] to ((x) * (0.9))\n    change x by (x)\n    if <touching (ground v)?> then\n        change y by (1)\n    end\n    change y by (y)\n    if <touching (ground v)?> then\n        change y by ((y) * (-1))\n        set [y v] to [0]\n    end\n    change y by (-0.5)\n    if <<touching (ground v)?> and <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <((mouse y) - (y position)) > [50]>>>>> then\n        set [y v] to [10]\n    end\n    if <touching (ground v)?> then\n        change y by (1)\n        if <touching (ground v)?> then\n            change y by (1)\n            if <touching (ground v)?> then\n                change y by (1)\n                if <touching (ground v)?> then\n                    change y by (1)\n                    if <touching (ground v)?> then\n                        change y by (1)\n                        if <touching (ground v)?> then\n                            change y by (1)\n                            if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <((mouse y) - (y position)) > [50]>>>> then\n                                set [y v] to [10]\n                                if <(x) > [0]> then\n                                    set [x v] to [-10]\n                                else\n                                    set [x v] to [10]\n                                end\n                            else\n                                change x by ((x) * (-1))\n                                set [x v] to [0]\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\n@Ground\n\nwhen I receive [1 v]\nswitch costume to (costume1 v)\n\nwhen I receive [next v]\nnext costume\n\nwhen flag clicked\nhide\n\nwait (9) seconds\n\nwhen I receive [start v]\nshow\n\n@Portal\n\nwhen flag clicked\nhide\n\nwait (9) seconds\n\nwhen I receive [start v]\nshow\nforever\n    switch costume to ([costume # v] of [ground v])\nend\n\nshow\n\n@Spike\n\nwhen flag clicked\nhide\n\nwait (9) seconds\n\nwhen I receive [death v]\ngo to x: (-194) y: (-108)\n\nwhen I receive [start v]\nshow\ngo to [back v] layer\nforever\n    switch costume to ([costume # v] of [ground v])\nend\n\nshow\n\n@Thumb\n\nwhen flag clicked\nshow\ngo to [front v] layer\nforever\n    repeat (10)\n        change [ghost v] effect by (100)\n    end\nend\n\n@Sprite1\n\nwhen flag clicked\nhide\nwait (9) seconds\nshow\nforever\n    switch costume to ([costume # v] of [ground v])\nend\n\n