99％pen platformer

Instructions: 　　　　English　　　　　やりこみは向いてません\nJump with the up key.\nMove with the left and right keys.\n　　　　　　　　　　　\n　　　　日本語　　　現在1位@nakachinさん\n　　上キーでジャンプ　　　　22.3秒\n　　左右キーで移動

@Stage\n\nwhen flag clicked\nreset timer\nhide variable [あなたのタイム v]\nset [今 v] to [0]\nforever\n    set [タイム v] to ((round (((タイム1) + (timer)) * (10))) / (10))\n    set [タイム1 v] to ((round ((タイム1) * (10))) / (10))\n    if <(今) = [9]> then\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nset [リプレイ v] to [0]\nshow list [ランキング v]\nforever\n    if <(今) = [9]> then\n        set [あなたのタイム v] to ((round ((タイム1) * (10))) / (10))\n        hide variable [タイム v]\n        show variable [あなたのタイム v]\n        wait (1) seconds\n        if <(length of (あなたのタイム)) = [2]> then\n            set [あなたのタイム v] to (join (あなたのタイム) [.0])\n        end\n        if <(length of (あなたのタイム)) = [4]> then\n            broadcast (更新 v)\n        else\n            broadcast (ランキング v)\n        end\n        if <(あなたのタイム) < (☁ WR)> then\n            set [☁ wr v] to (あなたのタイム)\n            switch backdrop to (1 v)\n            start sound [Tada v]\n        end\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nset volume to (30) %\nforever\n    play sound [Alan Walker - Fade \[NCS Release\] v] until done\nend\n\nwhen flag clicked\nset [a v] to [0]\nforever\n    change [a v] by (0.1)\nend\n\nwhen flag clicked\nset [前 v] to [0]\nset [a増加量 v] to [0]\nforever\n    wait (1) seconds\n    set [a増加量 v] to ((A) - (前))\n    set [前 v] to (A)\nend\n\nwhen flag clicked\nshow variable [☁ wr v]\nforever\n    if <[30] < (A増加量)> then\n        broadcast (ターボ v)\n        stop [this script v]\n    end\nend\n\nwhen flag clicked\nhide variable [a v]\nhide variable [a増加量 v]\nforever\n    wait until <key (space v) pressed?>\n    show variable [a v]\n    show variable [a増加量 v]\n    wait until <not <key (space v) pressed?>>\n    wait until <key (space v) pressed?>\n    hide variable [a v]\n    hide variable [a増加量 v]\n    wait until <not <key (space v) pressed?>>\nend\n\nwhen I receive [更新 v]\ndelete all of [ランキング v]\nset [どこ2 v] to [0]\nrepeat ((length of (☁ クラウドリスト)) / (3))\n    add (join (letter ((どこ2) + (1)) of (☁ クラウドリスト)) (join (letter ((どこ2) + (2)) of (☁ クラウドリスト)) (join [.] (letter ((どこ2) + (3)) of (☁ クラウドリスト))))) to [ランキング v]\n    change [どこ2 v] by (3)\nend\n特定 (あなたのタイム)\nset [どこ2 v] to [0]\nset [☁ クラウドリスト v] to []\nrepeat (length of [ランキング v])\n    change [どこ2 v] by (1)\n    set [☁ クラウドリスト v] to (join (☁ クラウドリスト) (join (letter (1) of (item (どこ2) of [ランキング v])) (join (letter (2) of (item (どこ2) of [ランキング v])) (letter (4) of (item (どこ2) of [ランキング v])))))\nend\nshow variable [あなたの順位 v]\nhide list [ランキング v]\n\ndefine 特定 (タイム)\nset [どこ2 v] to [1]\nrepeat until <(タイム) < (item (どこ2) of [ランキング v])>\n    change [どこ2 v] by (1)\nend\ninsert (タイム) at (どこ2) of [ランキング v] \nset [あなたの順位 v] to (どこ2)\n\nwhen flag clicked\nhide variable [あなたの順位 v]\nshow list [ランキング v]\nforever\n    if <(今) = [9]> then\n        show variable [あなたの順位 v]\n        hide list [ランキング v]\n        show variable [全取得のあなたの順位 v]\n        if <(コイン) = [10]> then\n            show variable [全取得のあなたの順位 v]\n        else\n            hide variable [全取得のあなたの順位 v]\n        end\n    else\n        hide variable [あなたの順位 v]\n        hide variable [全取得のあなたの順位 v]\n        show list [ランキング v]\n    end\nend\n\nwhen I receive [ランキング v]\ndelete all of [ランキング v]\nset [どこ2 v] to [0]\nrepeat ((length of (☁ クラウドリスト)) / (3))\n    add (join (letter ((どこ2) + (1)) of (☁ クラウドリスト)) (join (letter ((どこ2) + (2)) of (☁ クラウドリスト)) (join [.] (letter ((どこ2) + (3)) of (☁ クラウドリスト))))) to [ランキング v]\n    change [どこ2 v] by (2)\nend\n\nwhen flag clicked\nwait (0.01) seconds\nhide variable [ｘ v]\nhide variable [ｙ v]\n\nwhen I receive [スタート v]\n\nwhen I receive [更新 v]\n\nwhen I receive [更新2 v]\n\nwhen flag clicked\nset [あなたのタイム v] to []\n\nset [☁ クラウドリスト v] to [223227235245282286488495999]\n\nwhen flag clicked\nforever\n    if <(描写) = [0]> then\n        show variable [タイム v]\n    else\n        hide variable [タイム v]\n    end\nend\n\n@pen1\n\nwhen I receive [ジャンプ v]\nplay sound [Jump v] until done\n\nwhen flag clicked\nerase all\n\nbroadcast (スタート v)\n\nwhen flag clicked\npen up\nset [コイン v] to [0]\nset [今 v] to [1]\npoint in direction (90)\nset size to (100) %\nshow\ngo to x: (-205) y: (-122)\nset [ｘ v] to [0]\nset [ｙ v] to [0]\nset rotation style [left-right v]\nforever\n    if <(描写) = [0]> then\n        if <(pen) = [0]> then\n            if <<key (left arrow v) pressed?> or <<(mouse x) < (x position)> and <mouse down?>>> then\n                change [ｘ v] by (-1)\n                point in direction (-90)\n            end\n            if <<key (right arrow v) pressed?> or <<(x position) < (mouse x)> and <mouse down?>>> then\n                change [ｘ v] by (1)\n                point in direction (90)\n            end\n            set [ｘ v] to ((ｘ) * (0.9))\n            change x by (ｘ)\n            if <touching color (#48ff47)?> then\n                change y by (1)\n                if <touching color (#48ff47)?> then\n                    change y by (1)\n                    if <touching color (#48ff47)?> then\n                        change y by (1)\n                        if <touching color (#48ff47)?> then\n                            change y by (1)\n                            if <touching color (#48ff47)?> then\n                                change y by (1)\n                                if <touching color (#48ff47)?> then\n                                    change x by ((ｘ) * (-1))\n                                    change y by (-5)\n                                    if <<key (up arrow v) pressed?> or <<[-45] < (mouse y)> and <mouse down?>>> then\n                                        if <(ｘ) > [0]> then\n                                            set [ｘ v] to [-9]\n                                        else\n                                            set [ｘ v] to [9]\n                                        end\n                                        set [ｙ v] to [14]\n                                    else\n                                        set [ｘ v] to [0]\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n            change y by (-1)\n            if <<key (up arrow v) pressed?> or <<[-45] < (mouse y)> and <mouse down?>>> then\n                if <touching color (#48ff47)?> then\n                    set [ｙ v] to [15]\n                    broadcast (ジャンプ v)\n                end\n                if <touching color (#97a200)?> then\n                    set [ｙ v] to [20]\n                    broadcast (ジャンプ v)\n                end\n            end\n            if <touching color (#ff00b2)?> then\n                set [ｙ v] to [22]\n                broadcast (ジャンプ v)\n            end\n            change y by (1)\n            change [ｙ v] by (-1)\n            change y by (ｙ)\n            if <touching color (#48ff47)?> then\n                change y by ((ｙ) * (-1))\n                set [ｙ v] to [0]\n            end\n            if <[239] < (x position)> then\n                if <not <(今) = [9]>> then\n                    change [今 v] by (1)\n                    broadcast (次 v)\n                    set [ｘ v] to [0]\n                    set [ｙ v] to [0]\n                    go to x: (-205) y: (-122)\n                end\n            end\n            if <(y position) < [-179]> then\n                broadcast (リセット v)\n                set [ｘ v] to [0]\n                set [ｙ v] to [0]\n                start sound [Pluck v]\n                go to x: (-205) y: (-122)\n            end\n            if <<touching color (#ff0000)?> or <touching color (#ff4040)?>> then\n                broadcast (リセット v)\n                set [ｘ v] to [0]\n                set [ｙ v] to [0]\n                start sound [Pluck v]\n                go to x: (-205) y: (-122)\n            end\n        end\n    end\nend\n\nwhen flag clicked\nset [色 v] to [0]\nforever\n    change [色 v] by (2)\n    if <(色) = [200]> then\n        set [色 v] to [0]\n    end\nend\n\nwhen flag clicked\npen up\nforever\n    if <(pen) = [0]> then\n        if <(描写) = [0]> then\n            set pen (color v) to (色)\n            set pen (brightness v) to (95)\n            set pen size to (30)\n            pen down\n            pen up\n        end\n    end\nend\n\nwhen flag clicked\nreset timer\nshow variable [タイム v]\n\nset [☁ クラウドリスト v] to (join (☁ クラウドリスト) [999])\n\nwhen flag clicked\npen up\nforever\n    if <(描写) = [0]> then\n    else\n        go to x: (-205) y: (-122)\n    end\nend\n\nwait (0.01) seconds\n\nset [描写 v] to [1]\n\nif <(描写) = [0]> then\n\n@pen2\n\nwhen flag clicked\nset [今 v] to [0]\nwait (0.01) seconds\n地面\nwait until <(今) = [1]>\n1\nwait until <(今) = [2]>\n2\nwait until <(今) = [3]>\n3\nwait until <(今) = [4]>\n4\nwait until <(今) = [5]>\n5\nwait until <(今) = [6]>\n6\nwait until <(今) = [7]>\n7\nwait until <(今) = [8]>\n8\nwait until <(今) = [9]>\n9\n\ndefine op\n地面\nset [描写 v] to [0]\n\ndefine 地面\ngo to x: (-240) y: (-150)\nset [描写 v] to [1]\nbroadcast (マテ v)\nerase all\nerase all\nerase all\nset pen size to (5000)\nset pen color to (#98ecff)\npen down\nset pen size to (20)\nset pen color to (#48ff47)\ngo to x: (-240) y: (-150)\npen down\nrepeat (48)\n    change x by (40)\nend\npen up\nset pen size to (30)\nset pen color to (#3dc13c)\ngo to x: (-240) y: (-170)\npen down\nrepeat (48)\n    change x by (40)\nend\npen up\ngo to x: (240) y: (-150)\nbroadcast (池 v)\n\ndefine 1\n地面\npen up\nset pen size to (20)\nset pen color to (#48ff47)\ngo to x: (0) y: (-150)\npen down\nrepeat (27)\n    change y by (10)\nend\npen up\nset [描写 v] to [0]\n\ndefine 2\n地面\npen up\nset pen size to (20)\nset pen color to (#ff4747)\ngo to x: (50) y: (-130)\npen down\nrepeat (10)\n    change x by (-10)\nend\npen up\nset [描写 v] to [0]\n\nwhen I receive [リセット v]\nif <(今) = [2]> then\n    2\nend\nif <(今) = [3]> then\n    3\nend\nif <(今) = [4]> then\n    4\nend\nif <(今) = [5]> then\n    5\nend\nif <(今) = [6]> then\n    6\nend\nif <(今) = [7]> then\n    7\nend\nif <(今) = [8]> then\n    8\nend\n\ndefine 3\n地面\npen up\nset pen size to (150)\nset pen color to (#98ecff)\ngo to x: (0) y: (-180)\npen down\nrepeat (36)\n    change y by (10)\nend\npen up\nset [描写 v] to [0]\n\ndefine 4\n地面\npen up\nset pen size to (20)\nset pen color to (#48ff47)\ngo to x: (-90) y: (-150)\npen down\nrepeat (26)\n    change y by (10)\nend\npen up\nset pen size to (20)\nset pen color to (#ff4747)\ngo to x: (-70) y: (-130)\npen down\nrepeat (23)\n    change x by (10)\nend\npen up\nset [描写 v] to [0]\n\ndefine 5\n地面\npen up\nset pen size to (20)\nset pen color to (#ff0000)\ngo to x: (-120) y: (-130)\npen down\nrepeat (6)\n    change y by (10)\nend\npen up\npen up\nset pen size to (20)\nset pen color to (#ff0000)\ngo to x: (0) y: (-130)\npen down\nrepeat (6)\n    change y by (10)\nend\npen up\npen up\nset pen size to (20)\nset pen color to (#ff0000)\ngo to x: (120) y: (-130)\npen down\nrepeat (6)\n    change y by (10)\nend\npen up\nset [描写 v] to [0]\n\ndefine 6\n地面\nset pen size to (20)\nset pen color to (#ff00b2)\ngo to x: (0) y: (-130)\npen down\nrepeat (3)\n    change x by (-10)\nend\npen up\nset pen size to (20)\nset pen color to (#ff0000)\ngo to x: (40) y: (70)\npen down\nrepeat (20)\n    change y by (-10)\nend\npen up\nset [描写 v] to [0]\n\ndefine 7\n地面\nset pen size to (20)\nset pen color to (#ff0000)\ngo to x: (-240) y: (50)\npen down\nrepeat (48)\n    change x by (10)\nend\npen up\nset pen size to (20)\nset pen color to (#ff00b2)\ngo to x: (-140) y: (-130)\npen down\nrepeat (8)\n    change x by (10)\nend\npen up\npen up\nset pen size to (20)\nset pen color to (#ff00b2)\ngo to x: (60) y: (-130)\npen down\nrepeat (8)\n    change x by (10)\nend\npen up\nset [描写 v] to [0]\n\ndefine 8\n地面\nset pen size to (20)\nset pen color to (#48ff47)\ngo to x: (-140) y: (-140)\npen down\nrepeat (24)\n    change y by (10)\nend\npen up\npen up\nset pen size to (20)\nset pen color to (#ff0000)\ngo to x: (-120) y: (-130)\npen down\nrepeat (3)\n    change x by (10)\nend\npen up\npen up\nset pen size to (20)\nset pen color to (#48ff47)\ngo to x: (-40) y: (180)\npen down\nrepeat (22)\n    change y by (-10)\nend\npen up\nset pen size to (20)\nset pen color to (#ff4747)\ngo to x: (50) y: (120)\npen down\nrepeat (25)\n    change y by (-10)\nend\npen up\nset pen size to (20)\nset pen color to (#ff4747)\ngo to x: (160) y: (180)\npen down\nrepeat (23)\n    change y by (-10)\nend\npen up\nset [描写 v] to [0]\n\ngo to x: (50) y: (-140)\n\npen up\n\ngo to x: (160) y: (-50)\npen up\n\ndefine 9\n地面\nset pen size to (20)\nset pen color to (#ff2600)\ngo to x: (-120) y: (100)\npen down\ngo to x: (-150) y: (130)\ngo to x: (-180) y: (130)\ngo to x: (-210) y: (100)\ngo to x: (-210) y: (70)\ngo to x: (-180) y: (40)\ngo to x: (-150) y: (40)\ngo to x: (-120) y: (70)\ngo to x: (-145) y: (70)\npen up\nset pen size to (20)\nset pen color to (#faff00)\ngo to x: (0) y: (100)\npen down\ngo to x: (-30) y: (130)\ngo to x: (-60) y: (130)\ngo to x: (-90) y: (100)\ngo to x: (-90) y: (70)\ngo to x: (-60) y: (40)\ngo to x: (-30) y: (40)\ngo to x: (0) y: (70)\ngo to x: (0) y: (100)\npen up\nset pen size to (20)\nset pen color to (#00ff5d)\ngo to x: (60) y: (130)\npen down\ngo to x: (25) y: (40)\npen up\ngo to x: (60) y: (130)\npen down\ngo to x: (95) y: (40)\npen up\ngo to x: (40) y: (75)\npen down\ngo to x: (80) y: (75)\npen up\nset pen size to (20)\nset pen color to (#0400ff)\ngo to x: (140) y: (130)\npen down\ngo to x: (140) y: (40)\ngo to x: (190) y: (40)\npen up\nset [描写 v] to [0]\n\nwhen I receive [ターボ v]\nset pen color to (#000000)\nset pen size to (50000)\npen down\npen up\nhide variable [タイム v]\nhide variable [☁ wr v]\nstop [all v]\n\nwhen flag clicked\nerase all\nset [タイム1 v] to [0]\n\nwhen I receive [マテ v]\nchange [タイム1 v] by (timer)\nwait until <(描写) = [0]>\nreset timer\n\nwhen I receive [池 v]\nif <(今) = [0]> then\n    wait (2) seconds\n    set [描写 v] to [0]\nend\n\n@サムネ\n\nwhen flag clicked\nhide\n\n