100%pen platformer

Instructions: 　　English\nMove with the left and right keys.\n      日本語\n左右キーで移動\n\nジャンプできるところがない！？

@Stage\n\n@pen\n\ndefine ステージ生成\npen up\ngo to x: (0) y: (0)\nset [あ v] to [0]\nset pen size to (10)\nrepeat (length of [ステージｘ v])\n    change [あ v] by (1)\n    if <(item (あ) of [色 v]) = [1]> then\n        set pen color to (#04ff00)\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        pen down\n        go to x: ((item (あ) of [ステージｘ v]) + ((item (あ) of [ステージの長さ v]) / (2))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        go to x: ((item (あ) of [ステージｘ v]) + ((item (あ) of [ステージの長さ v]) / (2))) y: ((item (あ) of [ステージｙ v]) + ((-1) * ((item (あ) of [ステージの長さｙ v]) / (2))))\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((-1) * ((item (あ) of [ステージの長さｙ v]) / (2))))\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        pen up\n    end\n    if <(item (あ) of [色 v]) = [2]> then\n        set pen color to (#ff0000)\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        pen down\n        go to x: ((item (あ) of [ステージｘ v]) + ((item (あ) of [ステージの長さ v]) / (2))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        go to x: ((item (あ) of [ステージｘ v]) + ((item (あ) of [ステージの長さ v]) / (2))) y: ((item (あ) of [ステージｙ v]) + ((-1) * ((item (あ) of [ステージの長さｙ v]) / (2))))\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((-1) * ((item (あ) of [ステージの長さｙ v]) / (2))))\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        pen up\n    end\n    if <(item (あ) of [色 v]) = [3]> then\n        set pen color to (#ff31a4)\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        pen down\n        go to x: ((item (あ) of [ステージｘ v]) + ((item (あ) of [ステージの長さ v]) / (2))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        go to x: ((item (あ) of [ステージｘ v]) + ((item (あ) of [ステージの長さ v]) / (2))) y: ((item (あ) of [ステージｙ v]) + ((-1) * ((item (あ) of [ステージの長さｙ v]) / (2))))\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((-1) * ((item (あ) of [ステージの長さｙ v]) / (2))))\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        pen up\n    end\n    if <(item (あ) of [色 v]) = [4]> then\n        set pen color to (#30fff4)\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        pen down\n        go to x: ((item (あ) of [ステージｘ v]) + ((item (あ) of [ステージの長さ v]) / (2))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        go to x: ((item (あ) of [ステージｘ v]) + ((item (あ) of [ステージの長さ v]) / (2))) y: ((item (あ) of [ステージｙ v]) + ((-1) * ((item (あ) of [ステージの長さｙ v]) / (2))))\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((-1) * ((item (あ) of [ステージの長さｙ v]) / (2))))\n        go to x: ((item (あ) of [ステージｘ v]) + ((-1) * ((item (あ) of [ステージの長さ v]) / (2)))) y: ((item (あ) of [ステージｙ v]) + ((item (あ) of [ステージの長さｙ v]) / (2)))\n        pen up\n    end\nend\n\ndefine 1\n全消去\n追加 [0] [-165] [470] [20] [3]\n追加 [0] [-135] [100] [20] [2]\n黒字\n\nwhen flag clicked\nerase all\nset [自機ｘ v] to [-220]\nset [自機ｙ v] to [100]\nset [xv v] to [0]\nset [yv v] to [0]\nforever\n    if <key (left arrow v) pressed?> then\n        change [xv v] by (-1)\n    end\n    if <key (right arrow v) pressed?> then\n        change [xv v] by (1)\n    end\n    set [xv v] to ((Xv) * (0.9))\n    change [自機ｘ v] by (Xv)\n    if <[接触 v] contains [1]?> then\n        change [xv v] by ((-5) * (Xv))\n    end\n    if <[接触 v] contains [4]?> then\n        change [自機ｘ v] by ((-3) * (Xv))\n        set [yv v] to [15]\n    end\nend\n\nif <[接触 v] contains [1]?> then\n    change [自機ｙ v] by (1)\n    if <[接触 v] contains [1]?> then\n        change [自機ｙ v] by (1)\n        if <[接触 v] contains [1]?> then\n            change [自機ｙ v] by (1)\n            if <[接触 v] contains [1]?> then\n                change [自機ｙ v] by (1)\n                if <[接触 v] contains [1]?> then\n                    change [自機ｙ v] by (2)\n                end\n            end\n        end\n    end\nend\n\nif <key (up arrow v) pressed?> then\n    if <[接触 v] contains [1]?> then\n        set [yv v] to [15]\n    end\nend\n\nset [yv v] to [0]\n\ndefine 接触確認\ndelete all of [接触 v]\nset [い v] to [0]\nrepeat (length of [ステージｘ v])\n    change [い v] by (1)\n    if <<<(((-1) * ((item (い) of [ステージの長さｙ v]) / (2))) + (item (い) of [ステージｙ v])) < ((自機ｙ) + (15))> and <((自機ｙ) + (-15)) < (((item (い) of [ステージの長さｙ v]) / (2)) + (item (い) of [ステージｙ v]))>> and <<((item (い) of [ステージｘ v]) + ((-1) * ((item (い) of [ステージの長さ v]) / (2)))) < ((自機ｘ) + (15))> and <((自機ｘ) + (-15)) < ((item (い) of [ステージｘ v]) + ((item (い) of [ステージの長さ v]) / (2)))>>> then\n        if <not < (接触) contains (item (い) of [色 v])?>> then\n            add (item (い) of [色 v]) to [接触 v]\n        end\n    end\nend\n\ndefine 自機描写\nset pen color to (#000000)\nset pen size to (14)\nchange pen (color v) by (色)\ngo to x: ((前ｘ) + (-5)) y: ((自機ｙ) + (5))\npen down\ngo to x: ((前ｘ) + (5)) y: ((前ｙ) + (5))\ngo to x: ((前ｘ) + (5)) y: ((前ｙ) + (-5))\ngo to x: ((前ｘ) + (-5)) y: ((前ｙ) + (-5))\ngo to x: ((前ｘ) + (-5)) y: ((前ｙ) + (5))\nset [前ｘ v] to (自機ｘ)\nset [前ｙ v] to (自機ｙ)\npen up\nset pen color to (#0077ff)\nset pen size to (10)\nchange pen (color v) by (色)\ngo to x: ((自機ｘ) + (-5)) y: ((自機ｙ) + (5))\npen down\ngo to x: ((自機ｘ) + (5)) y: ((自機ｙ) + (5))\ngo to x: ((自機ｘ) + (5)) y: ((自機ｙ) + (-5))\ngo to x: ((自機ｘ) + (-5)) y: ((自機ｙ) + (-5))\ngo to x: ((自機ｘ) + (-5)) y: ((自機ｙ) + (5))\nset [前ｘ v] to (自機ｘ)\nset [前ｙ v] to (自機ｙ)\npen up\n\nwhen flag clicked\nforever\n    接触確認\nend\n\nwhen flag clicked\nset [う v] to [0]\nset [色 v] to [0]\nrepeat (10)\n    change [う v] by (1)\n    create clone of (_myself_ v)\nend\n\nwhen I start as a clone\nstop [other scripts in sprite v]\nif <(う) = [1]> then\n    forever\n        ステージ生成\n    end\nend\nif <(う) = [2]> then\n    forever\n        ステージ生成\n    end\nend\nif <(う) = [3]> then\n    forever\n        ステージ生成\n    end\nend\nif <(う) = [4]> then\n    forever\n        自機描写\n    end\nend\nif <(う) = [5]> then\n    forever\n        接触確認\n    end\nend\nif <(う) = [6]> then\n    forever\n        接触確認\n    end\nend\nif <(う) = [7]> then\n    forever\n        接触確認\n    end\nend\nif <(う) = [8]> then\n    forever\n        接触確認\n    end\nend\nif <(う) = [9]> then\n    forever\n        接触確認\n    end\nend\nif <(う) = [10]> then\n    forever\n        ステージ生成\n    end\nend\n\ndefine 黒字\nerase all\npen up\nset pen size to (30000)\nset pen color to (#000000)\npen down\npen up\n\nset pen color to (#0077ff)\nset pen size to (10)\nchange pen (color v) by (色)\ngo to x: ((自機ｘ) + (-5)) y: ((自機ｙ) + (5))\npen down\ngo to x: ((自機ｘ) + (5)) y: ((自機ｙ) + (5))\ngo to x: ((自機ｘ) + (5)) y: ((自機ｙ) + (-5))\ngo to x: ((自機ｘ) + (-5)) y: ((自機ｙ) + (-5))\ngo to x: ((自機ｘ) + (-5)) y: ((自機ｙ) + (5))\npen up\n\nwhen flag clicked\nforever\n    change [自機ｙ v] by (-1)\n    if <[接触 v] contains [3]?> then\n        set [yv v] to [20]\n    end\nend\n\nwhen flag clicked\nforever\n    change [自機ｙ v] by (Yv)\n    change [yv v] by (-1)\nend\n\nif <[接触 v] contains [1]?> then\n    change [yv v] by ((-2) * (Yv))\nend\n\nwhen flag clicked\n1\n\ndefine 追加 (ｘ) (ｙ) (長さｘ) (長さｙ) (種類)\nadd (ｘ) to [ステージｘ v]\nadd (ｙ) to [ステージｙ v]\nadd (長さｘ) to [ステージの長さ v]\nadd (長さｙ) to [ステージの長さｙ v]\nadd (種類) to [色 v]\n\nwhen flag clicked\nset [今 v] to [1]\nforever\n    if <<[接触 v] contains [2]?> or <(自機ｙ) < [-180]>> then\n        set [自機ｘ v] to [-220]\n        set [自機ｙ v] to [100]\n        set [xv v] to [0]\n        set [yv v] to [0]\n    end\n    if <[239] < (自機ｘ)> then\n        if <not <(今) = [9]>> then\n            set [自機ｘ v] to [-220]\n            set [自機ｙ v] to [100]\n            set [xv v] to [0]\n            set [yv v] to [0]\n            change [今 v] by (1)\n            broadcast (次 v)\n        end\n    end\nend\n\ndefine 2\n全消去\n追加 [0] [-165] [470] [20] [3]\n追加 [0] [-70] [20] [150] [1]\n黒字\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\nif <(今) = [9]> then\n    9\nend\nステージ生成\n\ndefine 3\n全消去\n追加 [0] [-165] [470] [20] [3]\n追加 [-100] [-80] [20] [130] [2]\n追加 [100] [-80] [20] [130] [2]\n黒字\n\ndefine 全消去\ndelete all of [ステージｘ v]\ndelete all of [ステージｙ v]\ndelete all of [ステージの長さ v]\ndelete all of [ステージの長さｙ v]\ndelete all of [色 v]\n\ndefine 4\n全消去\n追加 [-125] [-165] [240] [20] [3]\n追加 [125] [-165] [240] [20] [2]\n追加 [150] [0] [50] [20] [3]\n黒字\n\ndefine 5\n全消去\n追加 [0] [-165] [470] [20] [3]\n追加 [-120] [-80] [20] [130] [2]\n追加 [0] [-80] [20] [130] [2]\n追加 [120] [-80] [20] [130] [2]\n黒字\n\ndefine 6\n全消去\n追加 [-180] [-165] [120] [20] [3]\n追加 [60] [-60] [20] [240] [4]\n黒字\n\nwhen flag clicked\nset volume to (50) %\nforever\n    play sound [DEAF KEV - Invincible _NCS Release_ v] until done\nend\n\ndefine 7\n全消去\n追加 [0] [-155] [470] [40] [3]\n追加 [-120] [-35] [20] [180] [3]\n追加 [100] [-25] [200] [200] [2]\n黒字\n\ndefine 8\n全消去\n追加 [0] [-150] [470] [50] [3]\n追加 [-120] [80] [50] [50] [2]\n追加 [120] [80] [50] [50] [2]\n黒字\n\n追加 [-190] [-150] [90] [50] [3]\n追加 [-75] [-80] [50] [50] [2]\n追加 [30] [0] [50] [50] [3]\n追加 [135] [80] [50] [50] [4]\n追加 [200] [-35] [50] [280] [2]\n黒字\n\ndefine 9\n全消去\n追加 [0] [-150] [470] [50] [3]\n黒字\nforever\n    ゴール\nend\n\ndefine ゴール\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\n\n追加 [120] [-80] [20] [130] [2]\n\n@スプライト1\n\nwhen flag clicked\nhide\n\ngo to x: (0) y: (0)\nshow\n\n