プラットフォーマー素材 / platformer素材 v0.3

Instructions:     --- ◆platformer / プラットフォーマー　素材◆ ---\n　　　　　　　　　　特別宣伝欄\n　　　　　　　　　　　　https://scratch.mit.edu/projects/824906324\n　　　　　　　　　　 [English]\n　　　　　　　◆platformer materials◆\n　　　　　　　　l Feel free to borrow l\n　　　　 ▼ Like "Player, Ground: @Zeck028"\n　　　　　　　 Please give me a credit.\n　　　  ⚠For those who borrow enemy program.\n　l Occasionally there is a bug where enemies go to　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 \n  　　　　　l   strange places  be careful  l\n　◇If there is anything you don't understand, tell me!!◇\n\n　　　　　　　　　　[日本語]\n　　　　　　　   ◆platformer 素材◆\n　　　　　　   l   自由に借りてどうぞ   l\n　　▼「プレイヤー、地面:@Zeck028」みたいに\n　　　　　　　クレジットお願いします。\n　　　　　  ⚠敵のプログラムを借りる人へ\n　  l  敵が変なところに行くバグがたまにあるので  l\n　　　　　　　  l 注意してください  l\n　　　◇わからないことがあったら言ってね!!◇\n\n　　　　　▼　ク　レ　ジ　ッ　ト　▼\n✎_全体参考@USAGI_games様&@game-Creator10様\n　　　　　　✎_背景参考@hati32様\n　　　　\n✎追記\nl 自分でプレイヤーを書くかサンプルを使用してください\n　　　　　　◇◆アップデート内容◆◇\n　　　　　　　　　 l v0.1/共有!!　　　　\n　　　　l v0.15/・プレイヤー変換\n　　　　　　　　・踏むプログラム追加\n　　　l v0.2/・踏んだとき跳ねるようした。\n　　　　　　　・バグ修正\n　　　l v0.25/・非量産化成功\n　　　　　(@game-Creator10様が助けてくれたおかげ)\n　　　　　　　l v 0.3・バグ修正

@Stage\n\nwhen I receive [水 v]\nswitch backdrop to (背景2 v)\n\nwhen I receive [水ではない v]\nswitch backdrop to (背景3 v)\n\nwhen I receive [死 v]\nif <(水検知) = [1]> then\n    switch backdrop to (背景3 v)\n    wait (1) seconds\n    if <(水検知) = [1]> then\n        switch backdrop to (背景2 v)\n    end\nend\n\nwhen I receive [死2 v]\nif <(水検知) = [1]> then\n    switch backdrop to (背景3 v)\n    wait (0.5) seconds\n    if <(水検知) = [1]> then\n        switch backdrop to (背景2 v)\n    end\nend\n\nwhen flag clicked\nswitch backdrop to (背景3 v)\n\n@目玉くん\n\ndefine y (y)\nrepeat until <not <touching (ステージ v)?>>\n    change y by (y)\nend\n\ndefine 初期位置\npoint in direction (90)\nset [x v] to [0]\nset [y v] to [0]\ngo to [front v] layer\nset rotation style [left-right v]\ngo to x: (-200) y: (0)\nshow\n\nwhen I receive [プログラム v]\ngo to [back v] layer\nswitch costume to (通常 v)\nset [動作 v] to [◯]\n初期位置\nforever\n    if <(動作) = [◯]> then\n        if <not <touching (水 v)?>> then\n            change [x v] by (<<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> - <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>>)\n            if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n                point in direction (90)\n            end\n            if <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> then\n                point in direction (-90)\n            end\n        end\n        if <touching (水 v)?> then\n            switch costume to (水中 v)\n        else\n            if <<key (down arrow v) pressed?> or <<key (s v) pressed?> or <<mouse down?> and <(mouse y) < (y position)>>>> then\n                switch costume to (下 v)\n            else\n                switch costume to (通常 v)\n                if <touching (ステージ v)?> then\n                    switch costume to (下 v)\n                end\n            end\n        end\n        set [x v] to ((x) * (0.88))\n        change x by (x)\n        if <touching (ステージ v)?> then\n            x (((x) / ([abs v] of (x) )) * (-1))\n        end\n        if <not <touching (水 v)?>> then\n            if <not > then\n                change [y v] by (-1)\n                if <(y) < [-19]> then\n                    set [y v] to [-20]\n                end\n                change y by (y)\n            end\n        end\n        change y by (1)\n        if <touching (ステージ v)?> then\n            if <(y) = [0]> then\n                y [1]\n            else\n                y (((y) / ([abs v] of (y) )) * (-1))\n            end\n            if <(y) < [0]> then\n                set [y v] to [0]\n                if <not <touching (水 v)?>> then\n                    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n                        if <(y) = [0]> then\n                            start sound [JUMP v]\n                            set [y v] to [15]\n                        end\n                    end\n                end\n            else\n                set [y v] to [-1]\n            end\n        end\n        if <[220] < (x position)> then\n            start sound [next v]\n            初期位置\n            broadcast (next v) and wait\n        end\n        if <<touching (針くん v)?> or > then\n            set [動作 v] to [×]\n            if <(direction) = [90]> then\n                set [90: v] to [90]\n            end\n            if <(direction) = [-90]> then\n                set [90: v] to [-90]\n            end\n            broadcast (死 v)\n            stop [this script v]\n        end\n        if <(y position) < [-183]> then\n            start sound [死 v]\n            set [動作 v] to [×]\n            broadcast (死2 v)\n            stop [this script v]\n        end\n        if <touching (水 v)?> then\n            if <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n                change [x v] by (0.5)\n                point in direction (90)\n            end\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 (-0.5)\n                point in direction (-90)\n            end\n            if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n                set [y v] to [4]\n            else\n                change [y v] by (-0.1)\n            end\n            change y by (y)\n        end\n        if <touching (バネ v)?> then\n            start sound [JUMP v]\n            set [y v] to [10]\n            if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n                start sound [JUMP v]\n                set [y v] to [18]\n            end\n        end\n    end\nend\n\nwhen I receive [死 v]\nstart sound [死 v]\nset [動作 v] to [×]\nif <(direction) = [90]> then\n    set [90: v] to [90]\nend\nif <(direction) = [-90]> then\n    set [90: v] to [-90]\nend\nif <(90:) = [90]> then\n    if <touching (水 v)?> then\n        switch costume to (水中死 v)\n    else\n        if <not <touching (水 v)?>> then\n            switch costume to (死 v)\n        end\n    end\n    set rotation style [left-right v]\n    point in direction (90)\n    set rotation style [all around v]\n    set [死:x v] to [0]\n    set [死*y v] to [0]\n    set [死*y v] to [12]\n    clear graphic effects\n    repeat (20)\n        change [死*y v] by (-1)\n        change y by (死*y)\n        change [死:x v] by (-0.2)\n        change x by (死:x)\n        change [ghost v] effect by (5)\n    end\n    wait (0.5) seconds\n    初期位置\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    clear graphic effects\n    set [動作 v] to [◯]\n    broadcast (プログラム v)\nend\n\nwhen I receive [死 v]\nif <(90:) = [90]> then\n    repeat (10)\n        turn left ((死*y) / (3)) degrees\n    end\nend\n\nwhen I receive [死 v]\nif <(90:) = [-90]> then\n    repeat (10)\n        turn right ((死*y) / (3)) degrees\n    end\nend\n\nwhen I receive [死 v]\nset [動作 v] to [×]\nif <(direction) = [90]> then\n    set [90: v] to [90]\nend\nif <(direction) = [-90]> then\n    set [90: v] to [-90]\nend\nif <(90:) = [-90]> then\n    if <touching (水 v)?> then\n        switch costume to (水中死 v)\n    else\n        if <not <touching (水 v)?>> then\n            switch costume to (死 v)\n        end\n    end\n    set rotation style [left-right v]\n    point in direction (-90)\n    set rotation style [all around v]\n    set [死:x v] to [0]\n    set [死*y v] to [0]\n    set [死*y v] to [12]\n    clear graphic effects\n    repeat (20)\n        change [死*y v] by (-1)\n        change y by (死*y)\n        change [死:x v] by (0.2)\n        change x by (死:x)\n        change [ghost v] effect by (5)\n    end\n    wait (0.5) seconds\n    初期位置\n    repeat (10)\n        change [ghost v] effect by (-10)\n    end\n    clear graphic effects\n    set [動作 v] to [◯]\n    broadcast (プログラム v)\nend\n\nwhen I receive [死2 v]\nclear graphic effects\nset [ghost v] effect to (100)\n初期位置\nwait (0.5) seconds\nrepeat (10)\n    change [ghost v] effect by (-10)\nend\nshow\nset [動作 v] to [◯]\nbroadcast (プログラム v)\n\nwhen flag clicked\nforever\n    if <touching (水 v)?> then\n        wait (0.5) seconds\n        create clone of (泡 v)\n    end\nend\n\nwhen I receive [死 v]\nif <(90:) = [90]> then\n    if <touching (水 v)?> then\n        repeat (10)\n            wait (0.01) seconds\n            create clone of (泡 v)\n        end\n    end\nend\n\nwhen I receive [死 v]\nif <(90:) = [-90]> then\n    if <touching (水 v)?> then\n        repeat (10)\n            wait (0.01) seconds\n            create clone of (泡 v)\n        end\n    end\nend\n\nwhen flag clicked\nset [水検知 v] to [0]\nforever\n    wait until <touching (水 v)?>\n    broadcast (水 v)\n    set [水検知 v] to [1]\n    wait until <not <touching (水 v)?>>\n    set [水検知 v] to [0]\n    broadcast (水ではない v)\nend\n\nwhen I receive [next v]\nwait (1.5) seconds\nchange [stage v] by (1)\n\nstart sound [死 v]\n\nwhen I receive [プログラム v]\nforever\n    set [プレイヤーx v] to (x position)\n    set [プレイヤーy v] to (y position)\nend\n\ndefine x (x)\nrepeat until <not <touching (ステージ v)?>>\n    change x by (x)\nend\n\n@針くん\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    switch costume to (STAGE)\nend\n\nwhen I receive [死 v]\nrepeat (5)\n    go to x: (pick random (2) to (-2)) y: (pick random (2) to (-2))\nend\ngo to x: (0) y: (0)\n\nwhen I receive [死2 v]\nrepeat (5)\n    go to x: (pick random (2) to (-2)) y: (pick random (2) to (-2))\nend\ngo to x: (0) y: (0)\n\n@ステージ\n\nwhen flag clicked\nset [stage v] to [1]\nshow\ngo to x: (0) y: (0)\nswitch costume to (コスチューム1 v)\nforever\n    switch costume to (STAGE)\nend\n\nwhen I receive [死 v]\nrepeat (5)\n    go to x: (pick random (2) to (-2)) y: (pick random (2) to (-2))\nend\ngo to x: (0) y: (0)\n\nwhen I receive [死2 v]\nrepeat (5)\n    go to x: (pick random (2) to (-2)) y: (pick random (2) to (-2))\nend\ngo to x: (0) y: (0)\n\n@飾り\n\nwhen flag clicked\nforever\n    switch costume to (STAGE)\nend\n\nwhen I receive [死 v]\nrepeat (5)\n    go to x: (pick random (2) to (-2)) y: (pick random (2) to (-2))\nend\ngo to x: (0) y: (0)\n\nwhen I receive [死2 v]\nrepeat (5)\n    go to x: (pick random (2) to (-2)) y: (pick random (2) to (-2))\nend\ngo to x: (0) y: (0)\n\n@タヒ\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\nforever\n    go to [front v] layer\nend\n\nwhen I receive [死 v]\nshow\nclear graphic effects\nswitch costume to (コスチューム1 v)\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nhide\n\nwhen I receive [死2 v]\nshow\nclear graphic effects\nswitch costume to (コスチューム1 v)\nrepeat (10)\n    change [ghost v] effect by (10)\nend\nhide\n\n@さむね\n\nwhen flag clicked\nbroadcast (プログラム v)\nforever\n    switch costume to (コスチューム1 v)\n    go to x: (0) y: (0)\n    go to [front v] layer\n    point in direction (90)\n    set [ghost v] effect to (100)\n    show\nend\n\n@溶岩\n\nwhen flag clicked\ngo to x: (0) y: (0)\nclear graphic effects\ngo to [back v] layer\nset [溶岩 v] to [0]\nforever\n    switch costume to (STAGE)\n    change y by ([sin v] of ((溶岩) * (3)) )\n    change [溶岩 v] by (-3)\nend\n\n@水\n\nwhen flag clicked\ngo to x: (0) y: (0)\nclear graphic effects\ngo to [front v] layer\nforever\n    switch costume to (STAGE)\n    change [水 v] by (-0.5)\n    change y by ([sin v] of (((水) * (5)) * (5)) )\nend\n\n@バネ\n\nwhen flag clicked\nforever\n    switch costume to (STAGE)\nend\n\nwhen I receive [死 v]\nrepeat (5)\n    go to x: (pick random (2) to (-2)) y: (pick random (2) to (-2))\nend\ngo to x: (0) y: (0)\n\nwhen I receive [死2 v]\nrepeat (5)\n    go to x: (pick random (2) to (-2)) y: (pick random (2) to (-2))\nend\ngo to x: (0) y: (0)\n\n@泡\n\nwhen I start as a clone\nset size to (pick random (50) to (60)) %\ngo to (目玉くん v)\nshow\nrepeat until <[140] < (y position)>\n    if <touching (水 v)?> then\n        change y by (5)\n    else\n        delete this clone\n    end\nend\ndelete this clone\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nset rotation style [left-right v]\nforever\n    if <([direction v] of [目玉くん v]) = [90]> then\n        point in direction (90)\n    end\n    if <([direction v] of [目玉くん v]) = [-90]> then\n        point in direction (-90)\n    end\nend\n\n@ぺん\n\nwhen I receive [水 v]\nforever\n    if <(水検知) = [1]> then\n        repeat until <<(水検知) = [0]> or <(pen) = [0]>>\n            wait (0.01) seconds\n            change [pen v] by (-1)\n        end\n        if <(pen) = [0]> then\n            broadcast (死 v)\n            erase all\n        end\n    else\n        erase all\n    end\n    if <(水検知) = [0]> then\n        erase all\n    end\nend\n\nwhen I receive [水ではない v]\nrepeat until <<(水検知) = [1]> or <(pen) = [100]>>\n    wait (0.01) seconds\n    change [pen v] by (1)\nend\nstop [this script v]\n\nwhen I receive [水 v]\nforever\n    erase all\n    if <(水検知) = [1]> then\n        set pen size to (10)\n        pen down\n        set pen color to (#52b4ff)\n        go to x: (-220) y: (160)\n        go to x: ((pen) + (-220)) y: (160)\n        pen up\n    end\nend\n\nwhen flag clicked\nset [pen v] to [100]\nerase all\n\nwhen I receive [死2 v]\nrepeat (25)\n    erase all\n    set [pen v] to [100]\nend\n\nwhen I receive [死 v]\nrepeat (50)\n    erase all\n    set [pen v] to [100]\nend\n\nwhen I receive [next v]\nrepeat (130)\n    set [pen v] to [100]\nend\n\n@next\n\nwhen flag clicked\nset [next:x v] to [0]\nhide\n\nwhen I receive [next v]\nset [next:id v] to [0]\nrepeat (3)\n    wait (0.1) seconds\n    change [next:id v] by (1)\n    create clone of (_myself_ v)\nend\nwait (0.2) seconds\nrepeat (3)\n    wait (0.1) seconds\n    change [next:id v] by (1)\n    create clone of (_myself_ v)\nend\nwait (0.2) seconds\nrepeat (7)\n    wait (0.1) seconds\n    change [next:id v] by (1)\n    create clone of (_myself_ v)\nend\nwait (0.5) seconds\nchange [next:id v] by (1)\ncreate clone of (_myself_ v)\nwait (0.9) seconds\nchange [next:id v] by (1)\ncreate clone of (_myself_ v)\n\nwhen I start as a clone\nif <(next:ID) = [1]> then\n    set [next:x v] to [0]\n    go to x: (-1000) y: (0)\n    set size to (100) %\n    point in direction (90)\n    switch costume to (コスチューム1 v)\n    show\n    repeat (20)\n        change x by (next:x)\n        change [next:x v] by (1)\n    end\n    repeat (30)\n        change x by (((0) - (x position)) / (5))\n    end\n    delete this clone\nend\nif <(next:ID) = [2]> then\n    set [next:x v] to [0]\n    go to x: (-1000) y: (0)\n    set size to (100) %\n    point in direction (90)\n    switch costume to (コスチューム3 v)\n    show\n    repeat (20)\n        change x by (next:x)\n        change [next:x v] by (1)\n    end\n    repeat (30)\n        change x by (((0) - (x position)) / (5))\n    end\n    delete this clone\nend\nif <(next:ID) = [3]> then\n    set [next:x v] to [0]\n    go to x: (-1000) y: (0)\n    set size to (100) %\n    point in direction (90)\n    switch costume to (コスチューム2 v)\n    show\n    repeat (20)\n        change x by (next:x)\n        change [next:x v] by (1)\n    end\n    repeat (30)\n        change x by (((0) - (x position)) / (5))\n    end\n    delete this clone\nend\nif <(next:ID) = [4]> then\n    set [next:x v] to [0]\n    go to x: (1000) y: (0)\n    set size to (100) %\n    point in direction (90)\n    switch costume to (コスチューム1 v)\n    show\n    repeat (20)\n        change x by (next:x)\n        change [next:x v] by (-1)\n    end\n    repeat (30)\n        change x by (((0) - (x position)) / (5))\n    end\n    delete this clone\nend\nif <(next:ID) = [5]> then\n    set [next:x v] to [0]\n    go to x: (1000) y: (0)\n    set size to (100) %\n    point in direction (90)\n    switch costume to (コスチューム3 v)\n    show\n    repeat (20)\n        change x by (next:x)\n        change [next:x v] by (-1)\n    end\n    repeat (30)\n        change x by (((0) - (x position)) / (5))\n    end\n    delete this clone\nend\nif <(next:ID) = [6]> then\n    set [next:x v] to [0]\n    go to x: (1000) y: (0)\n    set size to (100) %\n    point in direction (90)\n    switch costume to (コスチューム2 v)\n    show\n    repeat (20)\n        change x by (next:x)\n        change [next:x v] by (-1)\n    end\n    repeat (30)\n        change x by (((0) - (x position)) / (5))\n    end\n    delete this clone\nend\nif <(next:ID) = [7]> then\n    set [next:x v] to [0]\n    go to x: (0) y: (0)\n    set size to (100) %\n    point in direction (90)\n    switch costume to (コスチューム4 v)\n    show\n    repeat (20)\n        switch costume to (size hac v)\n        change size by (next:x)\n        change [next:x v] by (1)\n        switch costume to (コスチューム4 v)\n    end\n    repeat (30)\n        switch costume to (size hac v)\n        change size by (((600) - (size)) / (5))\n        switch costume to (コスチューム4 v)\n    end\n    delete this clone\nend\nif <(next:ID) = [8]> then\n    set [next:x v] to [0]\n    go to x: (0) y: (0)\n    set size to (100) %\n    point in direction (90)\n    switch costume to (コスチューム5 v)\n    show\n    repeat (20)\n        switch costume to (size hac v)\n        change size by (next:x)\n        change [next:x v] by (1)\n        switch costume to (コスチューム5 v)\n    end\n    repeat (30)\n        switch costume to (size hac v)\n        change size by (((600) - (size)) / (5))\n        switch costume to (コスチューム5 v)\n    end\n    delete this clone\nend\nif <(next:ID) = [9]> then\n    set [next:x v] to [0]\n    go to x: (0) y: (0)\n    set size to (100) %\n    point in direction (90)\n    switch costume to (コスチューム6 v)\n    show\n    repeat (20)\n        switch costume to (size hac v)\n        change size by (next:x)\n        change [next:x v] by (1)\n        switch costume to (コスチューム6 v)\n    end\n    repeat (30)\n        switch costume to (size hac v)\n        change size by (((600) - (size)) / (5))\n        switch costume to (コスチューム6 v)\n    end\n    delete this clone\nend\nif <(next:ID) = [10]> then\n    set [next:x v] to [0]\n    go to x: (-150) y: (0)\n    set size to (0) %\n    point in direction (90)\n    switch costume to (3adbe006b29746cb985f9e5c8d2cb9b5 v)\n    show\n    repeat (5)\n        change size by (next:x)\n        change [next:x v] by (1)\n    end\n    repeat (30)\n        change size by (((100) - (size)) / (5))\n    end\n    delete this clone\nend\nif <(next:ID) = [11]> then\n    set [next:x v] to [0]\n    go to x: (-50) y: (0)\n    set size to (0) %\n    point in direction (90)\n    switch costume to (コスチューム7 v)\n    show\n    repeat (5)\n        change size by (next:x)\n        change [next:x v] by (1)\n    end\n    repeat (30)\n        change size by (((100) - (size)) / (5))\n    end\n    delete this clone\nend\nif <(next:ID) = [12]> then\n    set [next:x v] to [0]\n    go to x: (50) y: (0)\n    set size to (0) %\n    point in direction (90)\n    switch costume to (コスチューム8 v)\n    show\n    repeat (5)\n        change size by (next:x)\n        change [next:x v] by (1)\n    end\n    repeat (30)\n        change size by (((100) - (size)) / (5))\n    end\n    delete this clone\nend\nif <(next:ID) = [13]> then\n    set [next:x v] to [0]\n    go to x: (150) y: (0)\n    set size to (0) %\n    point in direction (90)\n    switch costume to (コスチューム9 v)\n    show\n    repeat (5)\n        change size by (next:x)\n        change [next:x v] by (1)\n    end\n    repeat (30)\n        change size by (((100) - (size)) / (5))\n    end\n    delete this clone\nend\nif <(next:ID) = [14]> then\n    set [next:x v] to [0]\n    go to x: (0) y: (0)\n    set size to (0) %\n    point in direction (90)\n    switch costume to (コスチューム10 v)\n    show\n    repeat (30)\n        switch costume to (size hac v)\n        change size by (((1300) - (size)) / (5))\n        switch costume to (コスチューム10 v)\n    end\n    delete this clone\nend\nif <(next:ID) = [15]> then\n    set [next:x v] to [0]\n    go to x: (0) y: (0)\n    switch costume to (size hac v)\n    set size to (0) %\n    point in direction (90)\n    switch costume to (コスチューム11 v)\n    show\n    repeat (30)\n        switch costume to (size hac v)\n        change size by (((3000) - (size)) / (5))\n        switch costume to (コスチューム11 v)\n    end\n    delete this clone\nend\n\nwhen I start as a clone\ngo to [front v] layer\n\n@敵\n\nwhen I start as a clone\nclear graphic effects\nswitch costume to (敵 v)\nset size to (90) %\nshow\nforever\n    set rotation style [left-right v]\n    if <(プレイヤーx) < (x position)> then\n        point in direction (-90)\n        change [敵:x v] by (-0.8)\n    end\n    if <(x position) < (プレイヤーx)> then\n        point in direction (90)\n        change [敵:x v] by (0.8)\n    end\n    set [敵:x v] to ((敵:x) * (0.81))\n    change x by (敵:x)\n    if <<touching (ステージ v)?> or <<touching (水 v)?> or <touching (溶岩 v)?>>> then\n        change x by (() - (敵:x))\n        set [敵:x v] to [0]\n        if <<touching (ステージ v)?> or <<touching (水 v)?> or <touching (溶岩 v)?>>> then\n            set [敵y v] to [10]\n        else\n            set [敵:x v] to [0]\n        end\n    end\n    if <not <<touching (水 v)?> or <touching (溶岩 v)?>>> then\n        change [敵y v] by (-1)\n    end\n    change y by (敵y)\n    if <<touching (ステージ v)?> or <<touching (水 v)?> or <touching (溶岩 v)?>>> then\n        change y by (() - (敵y))\n        set [敵y v] to [0]\n        if <(敵y) > [0]> then\n            set [敵y v] to [-1]\n        else\n            set [敵y v] to [0]\n        end\n    end\n    if <(y position) < [-183]> then\n        delete this clone\n    end\n    if <<touching (水 v)?> or <touching (溶岩 v)?>> then\n        change y by (1)\n    end\n    if <touching (目玉くん v)?> then\n        if <[20] < (([y position v] of [目玉くん v]) - (y position))> then\n            start sound [Sneaker Squeak v]\n            set [y v] to [10]\n            clear graphic effects\n            switch costume to (コスチューム1 v)\n            repeat (10)\n                change [ghost v] effect by (10)\n            end\n            hide\n            delete this clone\n        else\n            broadcast (死 v)\n            delete this clone\n        end\n    end\nend\n\ndefine クローン (回数) (x) (y)\ngo to x: (x) y: (y)\nrepeat (回数)\n    wait (0.5) seconds\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nhide\nwait (0) seconds\nwait until <(STAGE) = [2]>\nwait (3) seconds\nクローン [2] [200] [0]\nwait until <(STAGE) = [4]>\nwait (3) seconds\nクローン [2] [200] [0]\n\nwhen flag clicked\n\nwhen I receive [死 v]\nhide\nwait (0) seconds\nrepeat (1)\n    delete this clone\nend\nif <(STAGE) = [2]> then\n    wait (2) seconds\n    クローン [2] [200] [0]\nend\nif <(STAGE) = [4]> then\n    wait (2) seconds\n    クローン [2] [200] [0]\nend\n\nwhen I receive [死2 v]\nhide\nwait (0) seconds\nrepeat (1)\n    delete this clone\nend\nif <(STAGE) = [2]> then\n    wait (2) seconds\n    クローン [2] [200] [0]\nend\nif <(STAGE) = [4]> then\n    wait (2) seconds\n    クローン [2] [200] [0]\nend\n\nwhen I receive [next v]\ndelete this clone\n\nif <<touching (水 v)?> or <touching (溶岩 v)?>> then\n    set [敵y v] to [1]\nend\n\n