【鬼畜】black platformer!

Instructions: どうせターボでクリアできないから対策してない()\n10000+!?!?!? Thank you!!!\n日本語の説明は下にあります!\nI use google translate.\n【Method of operation】\nPC → cross key\nSmartphone → tap\nLarge screen is recommended.\n【Clearer】\n@basutaorukun 30seconds\n@qqazsedcftt 28seconds\n@Lyyat 23seconds\n@Google-100 37seconds\n@ryu2525games 39seconds\n@akabane46 28seconds\n@atu8ki_tama5 29seconds\n@hika1205 28seconds\n@aoinarafa 25seconds\n@takutaku_0128 638seconds\n@uyou0003 29seconds\n@rerusann 29seconds\n@cats-cat-cats 25seconds\n【Note】\nPlease comment if you have any bugs.\n-------------------------------------------------------------------------\n【操作方法】\nPC→十字キー\nスマートフォン→タップ\n大画面推奨\n【クリア者】\n@basutaorukun 30秒\n@qqazsedcftt 28秒\n@Lyyat 23秒\n@Google-100 37秒\n@ryu2525games 39秒\n@akabane46 28秒\n@atu8ki_tama5 29秒\n@hika1205 28秒\n@aoinarafa 25秒\n@takutaku_0128 638秒\n@uyou0003 29秒\n@rerusann 29秒\n@cats-cat-cats 25秒\n【注意】\nバグ等ありましたらコメントしてください.\n

@Stage\n\nwhen I receive [当たり判定 v]\nif <(タイム) < (☁ 世界記録)> then\n    set [☁ 世界記録 v] to (タイム)\nend\n\nwhen flag clicked\nforever\n    play sound [Starship v] until done\nend\n\n@ステージ\n\nwhen flag clicked\nset [スクロールx v] to [0]\nset [スクロールy v] to [0]\nset [スピード v] to [0]\nset [ジャンプ v] to [0]\nset [向き v] to [90]\nset [チェックポイント v] to [0]\nforever\n    ステージ作成\n    動く\nend\n\ndefine 動く\nshow\ngo to x: (0) y: (0)\nswitch costume to (player v)\nif <<[500] < (スクロールy)> or <<touching color (#4d4949)?> or <touching color (#4c4c4c)?>>> then\n    start sound [_oof v]\n    if <(チェックポイント) = [0]> then\n        set [スクロールx v] to [0]\n        set [スクロールy v] to [0]\n        set [スピード v] to [0]\n        set [ジャンプ v] to [0]\n        set [向き v] to [90]\n        set [チェックポイント v] to [0]\n    end\n    if <(チェックポイント) = [1]> then\n        set [スクロールx v] to [-1404]\n        set [スクロールy v] to [10]\n    end\nend\nchange [ジャンプ v] by (-1)\nif <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n    change [スピード v] by (1)\n    set [向き v] to [90]\nend\nif <<key (left arrow v) pressed?> or <<(x position) > (mouse x)> and <mouse down?>>> then\n    change [スピード v] by (-1)\n    set [向き v] to [-90]\nend\nset [スピード v] to ((スピード) * (0.9))\nchange x by (スピード)\nif <touching color (#000000)?> then\n    change y by (1)\n    if <touching color (#000000)?> then\n        change y by (1)\n        if <touching color (#000000)?> then\n            change y by (1)\n            if <touching color (#000000)?> then\n                change y by (1)\n                if <touching color (#000000)?> then\n                    change y by (-4)\n                    change x by ((スピード) * (-1))\n                    if <<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> then\n                        set [ジャンプ v] to [15]\n                        if <(スピード) < [0]> then\n                            set [スピード v] to [10]\n                        else\n                            set [スピード v] to [-10]\n                        end\n                    else\n                        set [スピード v] to [0]\n                    end\n                end\n            end\n        end\n    end\nend\nchange y by (ジャンプ)\nif <touching color (#000000)?> then\n    change y by ((ジャンプ) * (-1))\n    set [ジャンプ v] to [0]\nend\nchange y by (-1)\nif <touching color (#b3adad)?> then\n    set [ジャンプ v] to [25]\nend\nif <<<key (up arrow v) pressed?> or <<(y position) < (mouse y)> and <mouse down?>>> and <touching color (#000000)?>> then\n    set [ジャンプ v] to [15]\nend\nchange y by (1)\nchange [スクロールx v] by ((x position) * (-1))\nchange [スクロールy v] by ((y position) * (-1))\npoint in direction (向き)\ngo to x: (0) y: (0)\nif <touching color (#800000)?> then\n    set [チェックポイント v] to [1]\nend\n\nwhen I receive [スタート v]\nforever\n    if <<[465] < (x position)> or <(x position) < [-465]>> then\n        hide\n    else\n        show\n    end\nend\n\ndefine ステージ作成\nshow\nerase all\npoint in direction (90)\nswitch costume to (00 v)\nrepeat until <(costume [number v]) = [1]>\n    set [コスチューム v] to (costume [name v])\n    switch costume to (コスチューム1 v)\n    set size to (150) %\n    go to x: ((スクロールx) + ((join (letter (1) of (コスチューム)) (letter (2) of (コスチューム))) * (480))) y: (スクロールy)\n    switch costume to (コスチューム)\n    set size to (100) %\n    stamp\n    next costume\nend\n\nwhen flag clicked\nset [タイム v] to [0]\nforever\n    if <not <touching color (#00ff3a)?>> then\n        wait (1) seconds\n        change [タイム v] by (1)\n    end\n    if <touching color (#00ff3a)?> then\n        change [コスチューム v] by (0)\n        broadcast (当たり判定 v)\n        stop [other scripts in sprite v]\n    end\nend\n\nwhen flag clicked\nforever\n    go to [back v] layer\nend\n\nwhen [timer v] > (0)\nhide\n\n@サムネ\n\nwhen flag clicked\nhide\n\nwhen flag clicked\nforever\n    reset timer\nend\n\nwhen [timer v] > (0)\nshow\n\nwhen flag clicked\nforever\n    if <(ターボ有無) = [1]> then\n        show\n    end\nend\n\n@スプライト1\n\nwhen flag clicked\nshow\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nrepeat (10)\n    switch costume to (コスチューム0 v)\nend\nforever\n    if <(length of (タイム)) = [4]> then\n        switch costume to (join [コスチューム] (letter (1) of (タイム)))\n        show\n    end\nend\n\n@スプライト2\n\nwhen flag clicked\nshow\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nrepeat (10)\n    switch costume to (コスチューム0 v)\nend\nforever\n    if <(length of (タイム)) = [4]> then\n        switch costume to (join [コスチューム] (letter (2) of (タイム)))\n        show\n    end\n    if <(length of (タイム)) = [3]> then\n        switch costume to (join [コスチューム] (letter (1) of (タイム)))\n        show\n    end\nend\n\n@スプライト3\n\nwhen flag clicked\nshow\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nrepeat (10)\n    switch costume to (コスチューム0 v)\nend\nforever\n    if <(length of (タイム)) = [4]> then\n        switch costume to (join [コスチューム] (letter (3) of (タイム)))\n        show\n    end\n    if <(length of (タイム)) = [3]> then\n        switch costume to (join [コスチューム] (letter (2) of (タイム)))\n        show\n    end\n    if <(length of (タイム)) = [2]> then\n        switch costume to (join [コスチューム] (letter (1) of (タイム)))\n        show\n    end\nend\n\n@スプライト4\n\nwhen flag clicked\nshow\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nswitch costume to (コスチューム0 v)\nforever\n    if <(length of (タイム)) = [4]> then\n        switch costume to (join [コスチューム] (letter (4) of (タイム)))\n        show\n    end\n    if <(length of (タイム)) = [3]> then\n        switch costume to (join [コスチューム] (letter (3) of (タイム)))\n        show\n    end\n    if <(length of (タイム)) = [2]> then\n        switch costume to (join [コスチューム] (letter (2) of (タイム)))\n        show\n    end\n    if <(length of (タイム)) = [1]> then\n        switch costume to (join [コスチューム] (letter (1) of (タイム)))\n        show\n    end\nend\n\n@スプライト5\n\nwhen I receive [当たり判定 v]\nshow\n\nwhen flag clicked\nshow\n\nwhen [timer v] > (0)\nhide\n\n@スプライト6\n\nwhen flag clicked\nshow\n\nwhen I receive [当たり判定 v]\nshow\n\nwhen [timer v] > (0)\nhide\n\n@スプライト7\n\nwhen flag clicked\nshow\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nforever\n    if <(length of (☁ 世界記録)) = [4]> then\n        switch costume to (join [コスチューム] (letter (1) of (☁ 世界記録)))\n        show\n    end\n    if <(length of (☁ 世界記録)) = [3]> then\n        switch costume to (コスチューム0 v)\n        show\n    end\n    if <(length of (☁ 世界記録)) = [2]> then\n        switch costume to (コスチューム0 v)\n        show\n    end\n    if <(length of (☁ 世界記録)) = [1]> then\n        switch costume to (コスチューム0 v)\n        show\n    end\nend\n\n@スプライト8\n\nwhen flag clicked\nshow\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nforever\n    if <(length of (☁ 世界記録)) = [4]> then\n        switch costume to (join [コスチューム] (letter (2) of (☁ 世界記録)))\n        show\n    end\n    if <(length of (☁ 世界記録)) = [3]> then\n        switch costume to (join [コスチューム] (letter (1) of (☁ 世界記録)))\n        show\n    end\n    if <(length of (☁ 世界記録)) = [2]> then\n        switch costume to (コスチューム0 v)\n        show\n    end\n    if <(length of (☁ 世界記録)) = [1]> then\n        switch costume to (コスチューム0 v)\n        show\n    end\nend\n\n@スプライト9\n\nwhen flag clicked\nshow\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nforever\n    if <(length of (☁ 世界記録)) = [4]> then\n        switch costume to (join [コスチューム] (letter (3) of (☁ 世界記録)))\n        show\n    end\n    if <(length of (☁ 世界記録)) = [3]> then\n        switch costume to (join [コスチューム] (letter (2) of (☁ 世界記録)))\n        show\n    end\n    if <(length of (☁ 世界記録)) = [2]> then\n        switch costume to (join [コスチューム] (letter (1) of (☁ 世界記録)))\n        show\n    end\n    if <(length of (☁ 世界記録)) = [1]> then\n        switch costume to (コスチューム0 v)\n        show\n    end\nend\n\n@スプライト10\n\nwhen flag clicked\nshow\n\nwhen [timer v] > (0)\nhide\n\nwhen flag clicked\nforever\n    if <(length of (☁ 世界記録)) = [4]> then\n        switch costume to (join [コスチューム] (letter (4) of (☁ 世界記録)))\n        show\n    end\n    if <(length of (☁ 世界記録)) = [3]> then\n        switch costume to (join [コスチューム] (letter (3) of (☁ 世界記録)))\n        show\n    end\n    if <(length of (☁ 世界記録)) = [2]> then\n        switch costume to (join [コスチューム] (letter (2) of (☁ 世界記録)))\n        show\n    end\n    if <(length of (☁ 世界記録)) = [1]> then\n        switch costume to (join [コスチューム] (letter (1) of (☁ 世界記録)))\n        show\n    end\nend\n\n@スプライト11\n\nwhen flag clicked\nhide\n\nwhen I receive [当たり判定 v]\nshow\n\nwhen [timer v] > (0)\nhide\n\n