Survival platformer!!

Instructions: 日本語は下↓(°▽°)\n【English】\n→ Press the key or d key to go to the right.\n← Press the key or a key to go to the right.\nUse the ↑ key or w key to jump.\nDo not touch needles or floating thorns\nIf you touch a fluffy black object, you will get 5 bonus points.\n\n【日本語】\n→キーまたはdキーを押して右に移動します。\n←キーまたはキーを押して右に移動します。\n↑キーまたはwキーを使用してジャンプします。\n針や浮いているトゲトゲに触れないでください\nふわふわした黒いものに触れるとボーナスポイントが5点もらえます。\n↓キーまたはsキーを押すと急降下できます。それを使うと低いジャンプをすることもできます。\n【中文】\n→ 按 键或 d 键向右移动。\n← 按 键 或 键向右。\n使用 ↑ 键或 w 键跳跃。\n请勿触摸针头或浮刺\n如果您触摸一个蓬松的黑色物体，您将获得 5 分奖励积分。

@Stage\n\nwhen I receive [start v]\nhide variable [凄くてえらいやつ v]\nhide variable [☁ セカイ v]\nset [凄くてえらいやつ v] to [0]\nhide variable [time v]\nset [time v] to [0]\nwait (1) seconds\nforever\n    if <(凄くてえらいやつ) = [0]> then\n        change [time v] by (1)\n        wait (1) seconds\n    end\nend\n\nwhen I receive [リザルト v]\nset [凄くてえらいやつ v] to [1]\n\nwhen I receive [start v]\nset volume to (50) %\nforever\n    play sound [ParagonX9 - Chaoz Fantasy v] until done\nend\n\nwhen I receive [リザルト v]\nif <(☁ セカイ) < (Time)> then\n    set [☁ セカイ v] to (Time)\nend\n\nwhen I receive [off v]\nset volume to (0) %\n\nwhen I receive [on v]\nset volume to (50) %\n\n@pl\n\ndefine Run physics (speed) (friction) (gravity) (jump height)\nchange [yvel v] by (gravity)\nif <not <(LEVEL) = [1]>> then\n    if <<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> then\n        set rotation style [left-right v]\n        point in direction (90)\n        change [xvel v] by (1)\n    end\n    if <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(x position) > (mouse x)>>> then\n        set rotation style [left-right v]\n        point in direction (-90)\n        change [xvel v] by ((1) * (-1))\n    end\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n        if <<touching (地面 v)?> or <<touching (coming soon v)?> or <touching (地面3 v)?>>> then\n            start sound [ジャンプ v]\n            set [yvel v] to [13]\n        end\n    end\n    if <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <<mouse down?> and <(y position) > (mouse y)>>> then\n        change [yvel v] by (-1)\n    end\n    change y by (1)\nend\nset [xvel v] to ((Xvel) * (friction))\nchange x by (Xvel)\nif <<touching (地面 v)?> or <<touching (coming soon v)?> or <touching (地面3 v)?>>> then\n    change y by (1)\nend\nif <<touching (地面 v)?> or <<touching (coming soon v)?> or <touching (地面3 v)?>>> then\n    change y by (1)\nend\nif <<touching (地面 v)?> or <<touching (coming soon v)?> or <touching (地面3 v)?>>> then\n    change y by (1)\nend\nif <<touching (地面 v)?> or <<touching (coming soon v)?> or <touching (地面3 v)?>>> then\n    change y by (1)\nend\nif <<touching (地面 v)?> or <<touching (coming soon v)?> or <touching (地面3 v)?>>> then\n    change y by (-4)\n    change x by ((Xvel) * (-1))\nend\nchange y by (Yvel)\nif <<touching (地面 v)?> or <<touching (coming soon v)?> or <touching (地面3 v)?>>> then\n    change y by ((Yvel) * (-1))\n    set [yvel v] to [0]\nend\n\nwhen I receive [next level v]\ngo to x: (-200) y: (70)\n\nwhen I receive [respawn v]\ngo to x: (-200) y: (70)\nset [ghost v] effect to (0)\npoint in direction (-90)\n\nwhen I receive [ded2 v]\nbroadcast (リザルト v) and wait\n\nchange x by (-2)\n\nwhen flag clicked\nforever\n    if <<<key (up arrow v) pressed?> or <key (w v) pressed?>> or <<mouse down?> and <(mouse y) > (y position)>>> then\n        switch costume to (上 v)\n    else\n        if <<<<key (right arrow v) pressed?> or <key (d v) pressed?>> or <<mouse down?> and <(mouse x) > (x position)>>> or <<<key (left arrow v) pressed?> or <key (a v) pressed?>> or <<mouse down?> and <(x position) > (mouse x)>>>> then\n            switch costume to (右 v)\n        else\n            if <<<key (down arrow v) pressed?> or <key (s v) pressed?>> or <<mouse down?> and <(y position) > (mouse y)>>> then\n                switch costume to (下 v)\n            else\n                switch costume to (通常 v)\n            end\n        end\n    end\nend\n\nwhen I receive [start v]\nrepeat until <(Level) = [22]>\n    if <<touching (針 v)?> or <<touching (ｱﾌﾞﾅｲﾖ v)?> or <touching (スプライト1 v)?>>> then\n        start sound [Crunch v]\n        broadcast (Ded2 v) and wait\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <touching (bouncy v)?> then\n        play sound [Mario_Jump_-_Gaming_Sound_Effect v] until done\n    end\nend\n\nwhen I receive [start v]\nset [xvel v] to [0]\nset [yvel v] to [0]\nset [level v] to [1]\nset size to (45) %\npoint in direction (90)\ngo to x: (-150) y: (-50)\nforever\n    Run physics [0.9] [0.9] [-1] [15]\n    if <not <(LEVEL) = [1]>> then\n        switch costume to (costume1 v)\n    end\nend\n\nwhen I receive [start v]\nforever\n    change y by (-1)\n    go to [front v] layer\n    go [backward v] (1) layers\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nwait (0.05) seconds\ngo to x: (-150) y: (-50)\nset [xvel v] to [0]\nset [ghost v] effect to (0)\nshow\n\nwhen I receive [リザルト v]\nwait (1) seconds\n\nwhen I receive [リザルト v]\nhide\n\nwhen I receive [え〜 v]\nshow\ngo to x: (-200) y: (-50)\nset size to (150) %\nsay [Thank you for playing!!] for (1.5) seconds\n\nwhen I receive [on2 v]\nset volume to (100) %\n\nwhen I receive [off2 v]\nset volume to (0) %\n\n@地面\n\nwhen I start as a clone\nshow\nswitch costume to (pick random (2) to (3))\ngo to [front v] layer\ngo [backward v] (10) layers\nset size to (75) %\ngo to x: (240) y: (pick random (0) to (115))\nrepeat until <touching (スプライト6 v)?>\n    change x by (-1.5)\n    if <(凄くてえらいやつ) = [1]> then\n        delete this clone\n    end\nend\nrepeat (40)\n    change x by (-1.5)\n    if <(凄くてえらいやつ) = [1]> then\n        delete this clone\n    end\nend\ndelete this clone\n\nwhen I receive [start v]\ngo to x: (0) y: (0)\nshow\ngo to [front v] layer\ngo [backward v] (5) layers\n\nwhen I receive [start v]\nshow\nswitch costume to (costume1 v)\nforever\n    if <(凄くてえらいやつ) = [0]> then\n        wait (pick random (2) to (4)) seconds\n        create clone of (_myself_ v)\n    end\nend\n\nwhen flag clicked\nhide\n\nwhen I receive [リザルト v]\nhide\n\nwhen flag clicked\nset size to (100) %\nswitch costume to (costume1 v)\n\nwhen I receive [リザルト v]\nhide\n\nwhen I receive [え〜 v]\nshow\nswitch costume to (コスチューム3 v)\ngo to x: (0) y: (0)\n\n@針\n\nwhen I start as a clone\nshow\ngo to [front v] layer\ngo [backward v] (10) layers\nset size to (75) %\ngo to x: (240) y: (-125)\nrepeat until <touching (スプライト6 v)?>\n    change x by (-2)\n    if <(凄くてえらいやつ) = [1]> then\n        hide\n    end\nend\nrepeat (10)\n    change x by (-2)\n    if <(凄くてえらいやつ) = [1]> then\n        hide\n    end\nend\ndelete this clone\n\nwhen I receive [start v]\nhide\nswitch costume to (1 v)\nset size to (1) %\nset x to (220)\nwait (2) seconds\nforever\n    create clone of (_myself_ v)\n    wait (0.4) seconds\nend\n\nwhen flag clicked\nhide\n\n@ThumbNail\n\nhide variable [time v]\n\nwhen flag clicked\nset volume to (100) %\ngo to x: (0) y: (0)\ngo to [front v] layer\nset size to (100) %\nset [ghost v] effect to (100)\nplay sound [Dance Chill Out v] until done\nhide\n\nwhen I receive [start v]\nset volume to (0) %\n\nwhen I receive [off v]\nset volume to (0) %\n\nforever\n    show\n    set size to (100) %\nend\n\n@スプライト6\n\nwhen flag clicked\nhide\n\nwhen I receive [start v]\nshow\n\nwhen I receive [リザルト v]\nhide\n\n@地面3\n\nwhen I start as a clone\nshow\nswitch costume to (pick random (1) to (2))\ngo to [front v] layer\ngo [backward v] (10) layers\nset size to (75) %\ngo to x: (240) y: (pick random (0) to (-115))\nrepeat until <touching (スプライト6 v)?>\n    change x by (-1.5)\n    if <(凄くてえらいやつ) = [1]> then\n        delete this clone\n    end\nend\nrepeat (40)\n    change x by (-1.5)\n    if <(凄くてえらいやつ) = [1]> then\n        delete this clone\n    end\nend\ndelete this clone\n\nwhen I receive [start v]\nhide\nforever\n    if <(凄くてえらいやつ) = [0]> then\n        repeat until <(凄くてえらいやつ) = [1]>\n            create clone of (_myself_ v)\n            wait (pick random (2) to (4)) seconds\n        end\n    end\nend\n\n@ｱﾌﾞﾅｲﾖ\n\nwhen I start as a clone\nshow\ngo to [front v] layer\ngo [backward v] (10) layers\nset size to (pick random (10) to (25)) %\ngo to x: (240) y: (pick random (150) to (-150))\nturn right (pick random (0) to (30)) degrees\nturn left (pick random (0) to (30)) degrees\nrepeat until <touching (スプライト6 v)?>\n    move (-3) steps\n    if <(凄くてえらいやつ) = [1]> then\n        delete this clone\n    end\nend\nrepeat (10)\n    move (-3) steps\n    if <(凄くてえらいやつ) = [1]> then\n        delete this clone\n    end\nend\ndelete this clone\n\nwhen I receive [start v]\nwait (2) seconds\nforever\n    wait (pick random (0.25) to (1.5)) seconds\n    create clone of (_myself_ v)\nend\n\nwhen flag clicked\nhide\n\n@2\n\nwhen I start as a clone\nshow\ngo to [front v] layer\ngo [backward v] (10) layers\nset size to (25) %\ngo to x: (240) y: (pick random (150) to (-150))\nturn right (pick random (0) to (30)) degrees\nturn left (pick random (0) to (30)) degrees\nrepeat until <touching (スプライト6 v)?>\n    if <not <touching (pl v)?>> then\n        move (-3) steps\n        if <(凄くてえらいやつ) = [1]> then\n            delete this clone\n        end\n    else\n        if <(凄くてえらいやつ) = [1]> then\n    end\nend\nrepeat (10)\n    move (-3) steps\n    if <(凄くてえらいやつ) = [1]> then\n        delete this clone\n    end\nend\ndelete this clone\n\nwhen I receive [start v]\nwait (2) seconds\nforever\n    create clone of (_myself_ v)\n    wait (pick random (0.25) to (1.5)) seconds\nend\n\nwhen flag clicked\nhide\n\n@スプライト1\n\nwhen flag clicked\ngo to x: (0) y: (0)\nhide\n\nwhen I receive [start v]\nshow\n\nwhen I receive [リザルト v]\nhide\n\n@スプライト3\n\nwhen I receive [リザルト v]\nhide\n\nwhen I receive [start v]\ngo to x: (172) y: (145)\nshow\n\n@スプライト4\n\nwhen flag clicked\nset [凄くてえらいやつ v] to [1]\nshow\ngo to x: (0) y: (-105)\npoint in direction (90)\nset size to (100) %\ngo to [front v] layer\n\nwhen this sprite clicked\nturn right (15) degrees\nrepeat (3)\n    turn left (5) degrees\nend\nhide\nbroadcast (start v)\nstart sound [決定音 v]\n\nwhen I receive [on2 v]\nset volume to (100) %\n\nwhen I receive [off2 v]\nset volume to (0) %\n\n@スプライト2\n\nwhen I receive [リザルト v]\nswitch costume to (コスチューム1 v)\nhide\nwait (1) seconds\ngo to x: (0) y: (0)\nshow\nset [ghost v] effect to (100)\nrepeat (20)\n    change [ghost v] effect by (-5)\nend\nbroadcast (え〜 v)\nbroadcast (Waxao v)\n\nwhen I receive [start v]\nhide\n\nwhen flag clicked\nshow\nswitch costume to (コスチューム2 v)\n\n@スコア\n\nwhen I start as a clone\nset [brightness v] effect to (100)\nswitch costume to (null v)\nset size to (100) %\ngo to x: ((200) - ((クローン番号) * (15))) y: (157)\nforever\n    go to [front v] layer\n    show\n    if <(クローン番号) > [0]> then\n        if <(length of (Time)) < (クローン番号)> then\n            switch costume to (0 v)\n        else\n            switch costume to ((letter (((length of (Time)) - (クローン番号)) + (1)) of (Time)) + (1))\n        end\n    end\nend\n\nwhen I receive [game over v]\nstop [other scripts in sprite v]\nset size to (100) %\nchange x by (-160)\nchange y by (-80)\nforever\n    repeat (10)\n        change size by (1)\n    end\n    repeat (10)\n        change size by (-1)\n    end\nend\n\nwhen I receive [start v]\nset [time v] to [0]\nhide\nset size to (100) %\nset [クローン番号 v] to [0]\nrepeat (6)\n    change [クローン番号 v] by (1)\n    create clone of (_myself_ v)\nend\n\n@スコア2\n\nwhen I start as a clone\nset [brightness v] effect to (0)\nswitch costume to (null v)\nset size to (100) %\ngo to x: ((45) - ((クローン番号) * (15))) y: (55)\nforever\n    go to [front v] layer\n    show\n    if <(クローン番号) > [0]> then\n        if <(length of (Time)) < (クローン番号)> then\n            switch costume to (0 v)\n        else\n            switch costume to ((letter (((length of (Time)) - (クローン番号)) + (1)) of (Time)) + (1))\n        end\n    end\nend\n\nwhen I receive [え〜 v]\nhide\nset size to (100) %\nset [クローン番号 v] to [0]\nrepeat (6)\n    change [クローン番号 v] by (1)\n    create clone of (_myself_ v)\nend\n\n@世界\n\nwhen I start as a clone\nset [brightness v] effect to (0)\nswitch costume to (null v)\nset size to (100) %\ngo to x: ((45) - ((クローン番号) * (15))) y: (-30)\nforever\n    go to [front v] layer\n    show\n    if <(クローン番号) > [0]> then\n        if <(length of (☁ セカイ)) < (クローン番号)> then\n            switch costume to (0 v)\n        else\n            switch costume to ((letter (((length of (☁ セカイ)) - (クローン番号)) + (1)) of (☁ セカイ)) + (1))\n        end\n    end\nend\n\nwhen I receive [え〜 v]\nhide\nset size to (100) %\nset [クローン番号 v] to [0]\nrepeat (6)\n    change [クローン番号 v] by (1)\n    create clone of (_myself_ v)\nend\n\n@スプライト5\n\nwhen flag clicked\nshow\nforever\n    if <(costume [number v]) = [1]> then\n        broadcast (On v)\n    else\n        broadcast (Off v)\n    end\nend\n\nwhen this sprite clicked\nnext costume\n\nwhen I receive [start v]\nhide\n\n@スプライト8\n\nwhen flag clicked\nshow\nforever\n    if <(costume [number v]) = [1]> then\n        broadcast (On2 v)\n    else\n        broadcast (Off2 v)\n    end\nend\n\nwhen this sprite clicked\nnext costume\n\nwhen I receive [start v]\nhide\n\n@あ\n\nwhen flag clicked\nhide\n\ngo to [front v] layer\n\n