Poison Pond Platformer!　(毒沼プラットフォーマー)

Instructions: 日本語は下だよ(読まないと損するよ)\n(English)\nI operate it with arrow key\nWe jump over a splinter, and let's advance!\nBecause there is the lava(？), let's be careful\nThere is a hidden stage\n(日本語)\n矢印キーで操作\nトゲを飛び越えてすすもう！\n溶岩(？)もあるから気をつけよう\n隠しステージがあるよ\n今回もいろいろな仕掛けがあるよ

@Stage\n\nwhen flag clicked\nswitch backdrop to (背景2 v)\n\nwhen I receive [special v]\nswitch backdrop to (背景3 v)\n\n@　\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    play sound [into the right v] until done\nend\n\nwhen I receive [メッセージ1 v]\nshow\n\nwhen [1 v] key pressed\nif <(username) = [anikix0902]> then\n    broadcast (おら v)\n    change [level v] by (1)\nend\n\nwhen I receive [おら v]\nset [time v] to [9999]\n\nwhen [timer v] > (0.01)\nshow\n\n@Player2\n\nwhen flag clicked\nshow\nreset  X [-200] Y [0]\nset [ok v] to [0]\nset [level v] to [1]\nforever\n    if <(ok) = [0]> then\n        Speed [1] Friction [0.88] Gravity [-1] Jump height [13]\n        if <touching (spikes v)?> then\n            set [ok v] to [1]\n            set rotation style [all around v]\n            set [y v] to [10]\n            start sound [Crunch v]\n            repeat (20)\n                change [y v] by (-1)\n                change [ghost v] effect by (5)\n                turn right (8) degrees\n                change y by (Y)\n            end\n            broadcast (reset v)\n            set [ok v] to [0]\n            reset  X [-200] Y [0]\n        end\n    end\n    if <[240] < (x position)> then\n        change [level v] by (1)\n        reset  X [-200] Y [0]\n        broadcast (next v)\n    end\nend\n\ndefine reset  X (x) Y (y)\ngo to x: (x) y: (y)\nset [y v] to [0]\nset [x v] to [0]\nset rotation style [left-right v]\npoint in direction (90)\nclear graphic effects\n\ndefine Speed (speed) Friction (friction) Gravity (gravity) Jump height (jump height)\nchange [y v] by (gravity)\nif <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(x position) < (mouse x)>>>> then\n    change [x v] by (speed)\n    point in direction (90)\nend\nif <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < (x position)>>>> then\n    change [x v] by ((speed) * (-1))\n    point in direction (-90)\nend\nset [x v] to ((X) * (friction))\nchange x by (X)\nrepeat (8)\n    change y by <touching (platform v)?>\nend\nif <touching (platform v)?> then\n    change x by (() - (X))\n    change y by (-8)\n    if <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>>> then\n        set [y v] to ((jump height) - (3))\n        set [x v] to ((5) - ((14) * <[0] < (X)>))\n    end\nend\nchange y by (Y)\nif <touching (platform v)?> then\n    change y by ((Y) * (-1))\n    set [y v] to [0]\nend\nchange y by (-1)\nif <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(y position) < (mouse y)>>>> then\n    if <touching (platform v)?> then\n        start sound [Jump v]\n        set [y v] to (jump height)\n    end\nend\nchange y by (1)\nif <<key (down arrow v) pressed?> or <<key (s v) pressed?> or <<mouse down?> and <(mouse y) < (y position)>>>> then\n    switch costume to (player2 v)\nelse\n    switch costume to (player v)\nend\n\nwhen I receive [メッセージ1 v]\nhide\n\nwhen [timer v] > (0.01)\nhide\n\nwhen flag clicked\nforever\n    if <touching (スプライト5 v)?> then\n        set [y v] to [17]\n    end\nend\n\nwhen flag clicked\nforever\n    if <(ok) = [0]> then\n        if <touching (スプライト3 v)?> then\n            set [ok v] to [1]\n            set rotation style [all around v]\n            set [y v] to [10]\n            start sound [Crunch v]\n            repeat (20)\n                change [y v] by (-1)\n                change [ghost v] effect by (5)\n                turn right (8) degrees\n                change y by (Y)\n            end\n            set [ok v] to [0]\n            reset  X [-200] Y [0]\n            broadcast (reset v)\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <touching (スプライト2 v)?> then\n        change x by ((X) * (-1))\n        set [x v] to [0]\n    end\nend\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nset [x v] to [0]\nset [y v] to [0]\n\nwhen flag clicked\n\nwhen flag clicked\nforever\n    if <(ok) = [0]> then\n        if <touching (スプライト8 v)?> then\n            set [ok v] to [1]\n            set rotation style [all around v]\n            set [y v] to [10]\n            start sound [Crunch v]\n            repeat (20)\n                change [y v] by (-1)\n                change [ghost v] effect by (5)\n                turn right (8) degrees\n                change y by (Y)\n            end\n            set [ok v] to [0]\n            reset  X [-200] Y [0]\n            broadcast (reset v)\n        end\n    end\nend\n\n@spikes\n\nwhen flag clicked\nforever\n    switch costume to (level)\nend\n\nwhen flag clicked\nshow\n\n@Platform\n\nwhen flag clicked\nshow\ngo to [front v] layer\nforever\n    switch costume to (level)\nend\n\nwhen flag clicked\nshow\n\nwhen flag clicked\nset [time v] to [0]\n\nwhen flag clicked\nforever\n    change [time v] by (1)\n    wait (1) seconds\nend\n\nwhen flag clicked\nshow variable [☁ world record v]\nshow variable [time v]\n\nwhen I receive [メッセージ1 v]\nhide\n\nwhen [timer v] > (0.01)\nhide\n\n@Green Flag\n\nwhen flag clicked\ngo to x: (142) y: (-60)\nshow\n\nwhen flag clicked\nforever\n    if <touching (player2 v)?> then\n        if <(time) < (☁ World record)> then\n            set [☁ world record v] to (time)\n        end\n    end\nend\n\nwhen flag clicked\nforever\n    if <touching (player2 v)?> then\n        broadcast (メッセージ1 v)\n        stop all sounds\n        forever\n            wait (1) seconds\n            change [time v] by (-1)\n        end\n    end\nend\n\nwhen I receive [メッセージ1 v]\nhide variable [☁ world record v]\nshow variable [time v]\n\nwhen I receive [メッセージ1 v]\nforever\n    hide\nend\n\nwhen flag clicked\nforever\n    switch costume to (level)\nend\n\nset [☁ world record v] to [999]\n\n@タボフィー\n\nwhen flag clicked\nforever\n    set [turbo v] to [0]\n    wait (0.001) seconds\n    if <[3] < (Turbo)> then\n        show\n    else\n        hide\n    end\nend\n\nwhen flag clicked\ngo to [front v] layer\ngo [forward v] (2) layers\ngo to x: (0) y: (0)\nforever\n    change [turbo v] by (1)\nend\n\n@スプライト1\n\nwhen flag clicked\nforever\n    if <touching (player2 v)?> then\n        broadcast (open v)\n        glide (0.5) secs to x: (0) y: (30)\n        hide\n    end\nend\n\nwhen I receive [open v]\nrepeat (10)\n    change [ghost v] effect by (10)\nend\n\nwhen flag clicked\ngo to x: (0) y: (0)\nshow\nforever\n    switch costume to (Level)\nend\n\nwhen I receive [reset v]\nshow\ngo to x: (0) y: (0)\nset [ghost v] effect to (0)\n\n@スプライト2\n\nwhen I receive [open v]\nrepeat (50)\n    change [ghost v] effect by (2)\nend\nhide\n\nwhen flag clicked\nshow\nforever\n    switch costume to (Level)\nend\n\nwhen I receive [reset v]\nset [ghost v] effect to (0)\nshow\n\n@スプライト5\n\nwhen flag clicked\nforever\n    switch costume to (Level)\nend\n\n@スプライト6\n\nwhen flag clicked\ngo to x: (0) y: (0)\nforever\n    switch costume to (level)\nend\n\n@スプライト7\n\nwhen I start as a clone\nswitch costume to (コスチューム2 v)\nset [☆2 v] to [NO]\nforever\n    set [☆1 v] to <touching (mouse-pointer v)?>\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [☆2 v] to [YES]\n        wait (0.6) seconds\n        broadcast (SPECIAL v)\n        wait until <(Level) = [100]>\n    end\nend\n\nwhen flag clicked\ncreate clone of (_myself_ v)\nset [♡2 v] to [NO]\nforever\n    set [♡1 v] to <touching (mouse-pointer v)?>\n    if <touching (mouse-pointer v)?> then\n        wait (0.5) seconds\n        set [♡2 v] to [YES]\n        wait (0.6) seconds\n        broadcast (SPECIAL v)\n    end\nend\n\n@スプライト3\n\nwhen flag clicked\nforever\n    switch costume to (level)\nend\n\nwhen flag clicked\ngo to [back v] layer\ngo to x: (0) y: (0)\nforever\n    repeat (5)\n        change y by (10)\n    end\n    wait (1) seconds\n    repeat (25)\n        change y by (-2)\n    end\n    wait (1.5) seconds\nend\n\n@スプライト4\n\nwhen flag clicked\nforever\n    switch costume to (level)\nend\n\nwhen flag clicked\nwait (0.00000001) seconds\ngo to [back v] layer\ngo to x: (0) y: (0)\n\n@スプライト8\n\nwhen flag clicked\nforever\n    switch costume to (level)\nend\n\nwhen flag clicked\ngo to [back v] layer\ngo to x: (0) y: (0)\nwait (1.7) seconds\nforever\n    repeat (5)\n        change y by (10)\n    end\n    wait (1) seconds\n    repeat (25)\n        change y by (-2)\n    end\n    wait (1.5) seconds\nend\n\n