Slime Adventure (Platformer)
@Stage\n\nwhen flag clicked\nstop all sounds\nforever\n    play sound [ｊ  v] until done\nend\n\nwhen flag clicked\nset [朝になるまでの時間 v] to [600]\nforever\n    if <not <(すてじ) = [9]>> then\n        wait (1) seconds\n        change [朝になるまでの時間 v] by (-1)\n        if <(朝になるまでの時間) < [0]> then\n            stop [all v]\n        end\n    end\nend\n\nwhen flag clicked\nswitch backdrop to (背景1 v)\nwait until <(すてじ) = [9]>\nswitch backdrop to (洞窟 \(1\) v)\nforever\n    change [朝になるまでの時間 v] by (0)\nend\n\n@player\n\nwhen flag clicked\nset [すてじ v] to [1]\n初期\nforever\n    [1] [14] [-1] [0]\n    if <(costume [number v]) = [3]> then\nend\n\ndefine 初期\nset [x v] to [0]\nset [y v] to [0]\ngo to x: (-200) y: (100)\nif <<(♥) = [1]> and <(★) = [1]>> then\n\ndefine (x) (y) (地) (壁)\nif <<key (right arrow v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>> then\n    point in direction (90)\n    change [x v] by (x)\nend\nif <<key (left arrow v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>> then\n    point in direction (-90)\n    change [x v] by ((x) - ((x) + (x)))\nend\nset [x v] to ((X) * (0.9))\nchange x by (X)\nchange [y v] by (地)\nchange y by (Y)\nif <touching (地面 v)?> then\n    change y by ((Y) * (-1))\n    set [y v] to [0]\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>> then\n        set [y v] to (y)\n    end\nend\nif <touching (地面 v)?> then\n    repeat (5)\n        change y by (1)\n    end\nend\nif <touching (地面 v)?> then\n    repeat (5)\n        change y by (-1)\n    end\n    change x by ((X) * (-1))\n    \nend\nif <key (space v) pressed?> then\n    broadcast (メッセージ1 v)\n    set [変数 v] to [1]\nend\nif <[230] < (x position)> then\n    初期\n    change [すてじ v] by (1)\n    set [hp v] to [20]\nend\nif <touching (クリアになるよ\(笑\) v)?> then\n    stop [all v]\nend\n\nchange [x v] by (1)\n\nwhen I receive [♥と★ v]\nswitch costume to (ぞんび2 v)\n\n@地面\n\nwhen flag clicked\nforever\n    switch costume to (すてじ)\nend\n\n@health20\n\nwhen flag clicked\nset [hp v] to [20]\nforever\n    switch costume to ((HP) + (1))\nend\n\n@さ、ムネムネ\n\nwhen flag clicked\nshow variable [朝になるまでの時間 v]\nhide\nforever\n    go to [front v] layer\n    reset timer\nend\n\nwhen [timer v] > (0)\nhide variable [朝になるまでの時間 v]\nset [samuney v] to [0]\nshow\ngo to x: (0) y: (555)\nif <(pick random (1) to (2)) = [1]> then\n    repeat (50)\n        change y by (((0) - (y position)) / (10))\n    end\nelse\n    repeat until <(y position) < [2]>\n        change [samuney v] by (-1)\n        change y by (samuneY)\n    end\nend\ngo to x: (0) y: (0)\nset [samuney v] to [0]\n\n@ぞんび\n\nwhen flag clicked\nhide\nset [ゾンビ存在 v] to [0]\nset rotation style [left-right v]\nforever\n    if <(すてじ) = [5]> then\n        set [ゾンビ存在 v] to [1]\n        go to x: (220) y: (0)\n        set [ゾンビ hp v] to [10]\n        show\n        set rotation style [left-right v]\n        forever\n            if <(x position) < ([x position v] of [player v])> then\n                if <touching (おみず v)?> then\n                    change [ゾンビx v] by (0.5)\n                    point in direction (90)\n                else\n                    change [ゾンビx v] by (0.8)\n                    point in direction (90)\n                end\n            end\n            if <([x position v] of [player v]) < (x position)> then\n                if <touching (おみず v)?> then\n                    change [ゾンビx v] by (-0.5)\n                    point in direction (-90)\n                else\n                    change [ゾンビx v] by (-0.8)\n                    point in direction (-90)\n                end\n            end\n            set [ゾンビx v] to ((ゾンビX) * (0.8))\n            change x by (ゾンビX)\n            if <touching (地面 v)?> then\n                change y by ((() + (1)) * (5))\n                if <touching (地面 v)?> then\n                    change x by ((ゾンビX) * (-1))\n                    change y by (-5)\n                    if <(y position) < ([x position v] of [player v])> then\n                        if <(ゾンビX) < [0]> then\n                            set [ゾンビx v] to [6]\n                        else\n                            set [ゾンビx v] to [-6]\n                        end\n                        set [ゾンビy v] to [11]\n                    else\n                        set [ゾンビx v] to [0]\n                    end\n                end\n            end\n            change [ゾンビy v] by (-1)\n            change y by (ゾンビY)\n            if <touching (地面 v)?> then\n                change y by ((ゾンビY) * (-1))\n                set [ゾンビy v] to [0]\n                if <(y position) < ([x position v] of [player v])> then\n                    set [ゾンビy v] to [14]\n                end\n            end\n        end\n    else\n        set [ゾンビ存在 v] to [0]\n        hide\n    end\nend\n\nwhen I start as a clone\n\nwhen I receive [しんじゃった v]\ngo to x: (220) y: (0)\n\nwhen I receive [メッセージ1 v]\nif <touching (毒玉 v)?> then\n    change [ゾンビ hp v] by (-2)\n    if <(x position) < ([x position v] of [player v])> then\n        set [ゾンビx v] to [-10]\n        set [ゾンビy v] to [12]\n    else\n        set [ゾンビx v] to [10]\n        set [ゾンビy v] to [12]\n    end\n    if <(ゾンビ HP) < [0]> then\n        start sound [しｎ v]\n        switch costume to (スティーブ やられた v)\n        set [ゾンビ存在 v] to [0]\n        hide\n    else\n        start sound (pick random (1) to (2))\n        switch costume to (スティーブ やられた v)\n        wait (0) seconds\n        switch costume to (普通 v)\n    end\nend\n\nrepeat (4)\n    change [ghost v] effect by (25)\nend\n\ndelete this clone\n\nwhen flag clicked\nswitch costume to (普通 v)\n\nrepeat (2)\n    create clone of (_myself_ v)\nend\nwait until <(すてじ) = [10]>\ncreate clone of (_myself_ v)\nwait until <(すてじ) = [18]>\ncreate clone of (_myself_ v)\n\n@ぞんび2\n\nwhen flag clicked\nhide\nset [ゾンビ存在 v] to [0]\nset rotation style [left-right v]\nforever\n    if <(すてじ) = [7]> then\n        set [ゾンビ存在 v] to [1]\n        go to x: (220) y: (0)\n        set [ゾンビ hp v] to [10]\n        show\n        set rotation style [left-right v]\n        forever\n            if <(x position) < ([x position v] of [player v])> then\n                if <touching (おみず v)?> then\n                    change [ゾンビx v] by (0.5)\n                    point in direction (90)\n                else\n                    change [ゾンビx v] by (0.8)\n                    point in direction (90)\n                end\n            end\n            if <([x position v] of [player v]) < (x position)> then\n                if <touching (おみず v)?> then\n                    change [ゾンビx v] by (-0.5)\n                    point in direction (-90)\n                else\n                    change [ゾンビx v] by (-0.8)\n                    point in direction (-90)\n                end\n            end\n            set [ゾンビx v] to ((ゾンビX) * (0.8))\n            change x by (ゾンビX)\n            if <touching (地面 v)?> then\n                change y by ((() + (1)) * (5))\n                if <touching (地面 v)?> then\n                    change x by ((ゾンビX) * (-1))\n                    change y by (-5)\n                    if <(y position) < ([x position v] of [player v])> then\n                        if <(ゾンビX) < [0]> then\n                            set [ゾンビx v] to [6]\n                        else\n                            set [ゾンビx v] to [-6]\n                        end\n                        set [ゾンビy v] to [11]\n                    else\n                        set [ゾンビx v] to [0]\n                    end\n                end\n            end\n            change [ゾンビy v] by (-1)\n            change y by (ゾンビY)\n            if <touching (地面 v)?> then\n                change y by ((ゾンビY) * (-1))\n                set [ゾンビy v] to [0]\n                if <(y position) < ([x position v] of [player v])> then\n                    set [ゾンビy v] to [14]\n                end\n            end\n        end\n    else\n        set [ゾンビ存在 v] to [0]\n        hide\n    end\nend\n\nwhen I start as a clone\n\nwhen I receive [しんじゃった v]\ngo to x: (220) y: (0)\n\nwhen I receive [メッセージ1 v]\nif <touching (毒玉 v)?> then\n    change [ゾンビ hp v] by (-2)\n    if <(x position) < ([x position v] of [player v])> then\n        set [ゾンビx v] to [-10]\n        set [ゾンビy v] to [12]\n    else\n        set [ゾンビx v] to [10]\n        set [ゾンビy v] to [12]\n    end\n    if <(ゾンビ HP) < [0]> then\n        start sound [しｎ v]\n        switch costume to (スティーブ やられた v)\n        set [ゾンビ存在 v] to [0]\n        hide\n    else\n        start sound (pick random (1) to (2))\n        switch costume to (スティーブ やられた v)\n        wait (0) seconds\n        switch costume to (普通 v)\n    end\nend\n\nrepeat (4)\n    change [ghost v] effect by (25)\nend\n\ndelete this clone\n\nwhen flag clicked\nswitch costume to (普通 v)\n\nrepeat (2)\n    create clone of (_myself_ v)\nend\nwait until <(すてじ) = [10]>\ncreate clone of (_myself_ v)\nwait until <(すてじ) = [18]>\ncreate clone of (_myself_ v)\n\n@毒玉\n\nwhen flag clicked\nset [変数 v] to [0]\nforever\n    if <(変数) = [0]> then\n        clear graphic effects\n        hide\n        go to x: ([x position v] of [player v]) y: ([y position v] of [player v])\n    else\n        show\n        glide (0.5) secs to (mouse-pointer v)\n        broadcast (メッセージ1 v)\n        wait (0.1) seconds\n        set [変数 v] to [0]\n    end\nend\n\n@クリアになるよ(笑)\n\nwhen flag clicked\nforever\n    if <(すてじ) = [9]> then\n        show\n    else\n        hide\n    end\nend\n\n@Detector\n\nwhen flag clicked\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\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\n@スプライト3\n\nwhen flag clicked\nrepeat until <<(♥) = [1]> and <(★) = [1]>>\n    hide\n    go to x: (0) y: (-150)\n    show\n    glide (1) secs to x: (0) y: (0)\n    wait (pick random (1) to (10)) seconds\n    glide (1) secs to x: (0) y: (-150)\n    hide\nend\nhide\n\n