color(100%pen Scrolling Platformer)
@Stage\n\n@pen\n\ndefine ステージ　ｘ (ｘ) ｙ (ｙ) 縦の長さ (縦長さ) 横長さ (横長さ) 種類 (種類)\nif <<(縦長さ) < [351]> and <(横長さ) < [471]>> then\n    add (ｘ) to [ステージ情報 v]\n    add (ｙ) to [ステージ情報 v]\n    add (縦長さ) to [ステージ情報 v]\n    add (横長さ) to [ステージ情報 v]\n    add (種類) to [ステージ情報 v]\nend\n\ndefine 描画\nerase all\nset pen color to (#4bc0ff)\nset pen size to (50000)\npen down\npen up\nset pen (transparency v) to (0)\nset [i v] to [0]\nrepeat ((length of [描画可能ステージ v]) / (5))\n    set pen size to (10)\n    if <(item ((i) + (5)) of [描画可能ステージ v]) = [1]> then\n        set pen color to (#8e0000)\n    end\n    if <(item ((i) + (5)) of [描画可能ステージ v]) = [2]> then\n        set pen color to (#ff0000)\n    end\n    if <(item ((i) + (5)) of [描画可能ステージ v]) = [3]> then\n        set pen color to (#ff00c3)\n    end\n    if <(item ((i) + (5)) of [描画可能ステージ v]) = [4]> then\n        set pen color to (#1000ff)\n    end\n    if <(item ((i) + (5)) of [描画可能ステージ v]) = [5]> then\n        set pen color to (#eeff00)\n    end\n    if <(item ((i) + (5)) of [描画可能ステージ v]) = [6]> then\n        set pen color to (#00ff90)\n    end\n    if <(item ((i) + (5)) of [描画可能ステージ v]) = [7]> then\n        set pen color to (#ff8800)\n    end\n    if <(item ((i) + (5)) of [描画可能ステージ v]) = [8]> then\n        set pen color to (#7f00ff)\n    end\n    x ((item ((i) + (1)) of [描画可能ステージ v]) + ((-1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) ｙ ((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2))))\n    pen down\n    x ((item ((i) + (1)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) ｙ ((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2))))\n    x ((item ((i) + (1)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) ｙ ((item ((i) + (2)) of [描画可能ステージ v]) + ((-1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2))))\n    x ((item ((i) + (1)) of [描画可能ステージ v]) + ((-1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) ｙ ((item ((i) + (2)) of [描画可能ステージ v]) + ((-1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2))))\n    x ((item ((i) + (1)) of [描画可能ステージ v]) + ((-1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) ｙ ((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2))))\n    pen up\n    set [塗りつぶし v] to [10]\n    set pen size to (20)\n    pen up\n    repeat (round ((item ((i) + (3)) of [描画可能ステージ v]) / (20)))\n        x (((item ((i) + (1)) of [描画可能ステージ v]) + ((-1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) + (5)) ｙ (((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2)))) - (塗りつぶし))\n        pen down\n        x (((item ((i) + (1)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) + (-5)) ｙ (((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2)))) - (塗りつぶし))\n        pen up\n        change [塗りつぶし v] by (20)\n    end\n    change [i v] by (5)\nend\nset pen color to (#ffffff)\nset pen size to (5)\nset [i v] to [0]\nrepeat ((length of [描画可能ステージ v]) / (5))\n    if <[3] < (item ((i) + (5)) of [描画可能ステージ v])> then\n        x (item ((i) + (1)) of [描画可能ステージ v]) ｙ (item ((i) + (2)) of [描画可能ステージ v])\n        Cを書く\n    end\n    change [i v] by (5)\nend\nset [i v] to [0]\nrepeat ((length of [描画可能ステージ v]) / (5))\n    if <(item ((i) + (5)) of [描画可能ステージ v]) = [1]> then\n        if <[草地可 v] contains (((i) + (5)) / (5))?> then\n            set pen size to (12)\n            set pen color to (#0bff00)\n            x (((item ((i) + (1)) of [描画可能ステージ v]) + ((-1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) + (-1)) ｙ (((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2)))) + (-1))\n            pen down\n            x (((item ((i) + (1)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) + (1)) ｙ (((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2)))) + (-1))\n            pen up\n            set pen size to (10)\n            set pen color to (#0bc100)\n            x (((item ((i) + (1)) of [描画可能ステージ v]) + ((-1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) + (-2)) ｙ (((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2)))) + (-7.5))\n            pen down\n            x (((item ((i) + (1)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) + (2)) ｙ (((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2)))) + (-7.5))\n            pen up\n            set pen size to (8)\n            set pen color to (#108200)\n            x (((item ((i) + (1)) of [描画可能ステージ v]) + ((-1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) + (-3)) ｙ (((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2)))) + (-12.5))\n            pen down\n            x (((item ((i) + (1)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (4)) of [描画可能ステージ v]) / (2)))) + (3)) ｙ (((item ((i) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((i) + (3)) of [描画可能ステージ v]) / (2)))) + (-12.5))\n            pen up\n        end\n    end\n    change [i v] by (5)\nend\nset pen color to (#ff3f3f)\nchange pen (color v) by (色)\nset pen size to (20)\ngo to x: ((自機ｘ) + (-8)) y: ((自機ｙ) + (8))\npen down\ngo to x: ((自機ｘ) + (8)) y: ((自機ｙ) + (8))\ngo to x: ((自機ｘ) + (8)) y: ((自機ｙ) + (-8))\ngo to x: ((自機ｘ) + (-8)) y: ((自機ｙ) + (-8))\ngo to x: ((自機ｘ) + (-8)) y: ((自機ｙ) + (8))\npen up\nset pen color to (#000000)\nset pen size to (5)\nif <(向き) = [L]> then\n    go to x: ((自機ｘ) + (-10)) y: ((自機ｙ) + (7))\n    pen down\n    go to x: ((自機ｘ) + (-10)) y: ((自機ｙ) + (-2))\n    pen up\nelse\n    go to x: ((自機ｘ) + (10)) y: ((自機ｙ) + (7))\n    pen down\n    go to x: ((自機ｘ) + (10)) y: ((自機ｙ) + (-2))\n    pen up\nend\nif <(向き) = [L]> then\n    go to x: ((自機ｘ) + (-1)) y: ((自機ｙ) + (7))\n    pen down\n    go to x: ((自機ｘ) + (-1)) y: ((自機ｙ) + (-2))\n    pen up\nelse\n    go to x: ((自機ｘ) + (1)) y: ((自機ｙ) + (7))\n    pen down\n    go to x: ((自機ｘ) + (1)) y: ((自機ｙ) + (-2))\n    pen up\nend\nset pen color to (#ffffff)\nif <(向き) = [L]> then\n    go to x: ((自機ｘ) + (-1)) y: ((自機ｙ) + (5))\n    pen down\n    pen up\n    go to x: ((自機ｘ) + (-10)) y: ((自機ｙ) + (5))\n    pen down\n    pen up\nelse\n    go to x: ((自機ｘ) + (1)) y: ((自機ｙ) + (5))\n    pen down\n    pen up\n    go to x: ((自機ｘ) + (10)) y: ((自機ｙ) + (5))\n    pen down\n    pen up\nend\n\nwhen flag clicked\nset [自機ｘ v] to [0]\nset [自機ｙ v] to [-25]\nforever\n    動く\nend\n\ndefine 接触確認\ndelete all of [接触 v]\nset [i v] to [0]\nrepeat ((length of [描画可能ステージ v]) / (5))\n    if <<<(((item ((I) + (1)) of [描画可能ステージ v]) + ((-1) * ((item ((I) + (4)) of [描画可能ステージ v]) / (2)))) + ((-5) + ((-1) * (ステージｘ)))) < ((自機ｘ) + (18))> and <((自機ｘ) + (-18)) < (((item ((I) + (1)) of [描画可能ステージ v]) + ((1) * ((item ((I) + (4)) of [描画可能ステージ v]) / (2)))) + ((5) + ((-1) * (ステージｘ))))>> and <<(((item ((I) + (2)) of [描画可能ステージ v]) + ((-1) * ((item ((I) + (3)) of [描画可能ステージ v]) / (2)))) + ((-5) + ((-1) * (ステージｙ)))) < ((自機ｙ) + (18))> and <((自機ｙ) + (-18)) < (((item ((I) + (2)) of [描画可能ステージ v]) + ((1) * ((item ((I) + (3)) of [描画可能ステージ v]) / (2)))) + ((5) + ((-1) * (ステージｙ))))>>> then\n        if <not <[接触 v] contains (item ((I) + (5)) of [描画可能ステージ v])?>> then\n            add (item ((I) + (5)) of [描画可能ステージ v]) to [接触 v]\n        end\n    end\n    change [i v] by (5)\nend\n\nwhen flag clicked\nforever\n    描画\nend\n\nwhen flag clicked\nset [ステージｘ v] to [-80]\nset [ステージｙ v] to [-50]\nset [xv v] to [0]\nset [yv v] to [0]\nset [向き v] to [R]\nset [色 v] to [88]\nset [チェックポイントｘ v] to [-80]\nset [チェックポイントｙ v] to [-50]\n\ndefine 動く\nif <<<<(mouse x) < (x position)> and <mouse down?>> or <key (a v) pressed?>> or <key (left arrow v) pressed?>> then\n    change [xv v] by (-1)\n    set [向き v] to [L]\nend\nif <<<<(x position) < (mouse x)> and <mouse down?>> or <key (d v) pressed?>> or <key (right arrow v) pressed?>> then\n    change [xv v] by (1)\n    set [向き v] to [R]\nend\nset [xv v] to ((Xv) * (0.88))\nif <[9760] < (ステージｘ)> then\n    if <(自機ｘ) = [0]> then\n        set [自機ｘ v] to [0.1]\n    end\n    if <[0] < (自機ｘ)> then\n        change [自機ｘ v] by (Xv)\n    else\n        change [ステージｘ v] by (Xv)\n        set [自機ｘ v] to [0]\n    end\nelse\n    change [ステージｘ v] by (Xv)\nend\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 (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 (1)\n                                    if <[接触 v] contains [1]?> then\n                                        change [ステージｙ v] by (1)\n                                        接触確認\n                                        if <[接触 v] contains [1]?> then\n                                            change [ステージｘ v] by ((-1) * (Xv))\n                                            change [ステージｙ v] by (-10)\n                                            if <[0] < (Xv)> then\n                                                set [xv v] to [-10]\n                                            else\n                                                set [xv v] to [10]\n                                            end\n                                            set [yv v] to [15]\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\nchange [ステージｙ v] by (4)\nif <<<<[0] < (mouse y)> and <mouse down?>> or <<key (w v) pressed?> or <key (up arrow v) pressed?>>> and <(jump) < [1]>> then\n    set [yv v] to [15]\n    change [jump v] by (1)\nend\nif <[接触 v] contains [3]?> then\n    set [yv v] to [22]\nend\nchange [ステージｙ v] by (-5)\nif <<[接触 v] contains [2]?> or <(ステージｙ) < [-1000]>> then\n    set [xv v] to [0]\n    set [yv v] to [0]\n    set [ステージｘ v] to (チェックポイントｘ)\n    set [ステージｙ v] to (チェックポイントｙ)\n    set [自機ｘ v] to [0]\nend\nchange [ステージｙ v] by (Yv)\nchange [yv v] by (-1)\n接触確認\nif <[接触 v] contains [1]?> then\n    change [ステージｙ v] by ((-1) * (Yv))\n    set [yv v] to [0]\n    set [jump v] to [0]\nelse\n    set [jump v] to [1]\nend\nif <[230] < (自機ｘ)> then\n    broadcast (ゴール v)\nend\n\ndelete all of [ステージ情報 v]\nステージ　ｘ [-120] ｙ [-275] 縦の長さ [150] 横長さ [400] 種類 [1]\nステージ　ｘ [230] ｙ [-100] 縦の長さ [50] 横長さ [100] 種類 [1]\nステージ　ｘ [420] ｙ [0] 縦の長さ [50] 横長さ [100] 種類 [1]\nステージ　ｘ [620] ｙ [50] 縦の長さ [350] 横長さ [30] 種類 [1]\nステージ　ｘ [820] ｙ [0] 縦の長さ [250] 横長さ [30] 種類 [1]\nステージ　ｘ [1020] ｙ [-50] 縦の長さ [150] 横長さ [30] 種類 [1]\nステージ　ｘ [1305] ｙ [-100] 縦の長さ [50] 横長さ [200] 種類 [1]\nステージ　ｘ [1305] ｙ [-20] 縦の長さ [100] 横長さ [30] 種類 [4]\nステージ　ｘ [1650] ｙ [-20] 縦の長さ [30] 横長さ [300] 種類 [1]\nステージ　ｘ [1650] ｙ [25] 縦の長さ [50] 横長さ [30] 種類 [2]\nステージ　ｘ [1900] ｙ [0] 縦の長さ [300] 横長さ [30] 種類 [1]\nステージ　ｘ [2050] ｙ [200] 縦の長さ [25] 横長さ [30] 種類 [1]\nステージ　ｘ [2200] ｙ [250] 縦の長さ [25] 横長さ [30] 種類 [1]\nステージ　ｘ [2350] ｙ [310] 縦の長さ [20] 横長さ [30] 種類 [3]\nステージ　ｘ [2350] ｙ [300] 縦の長さ [20] 横長さ [30] 種類 [1]\nステージ　ｘ [2200] ｙ [500] 縦の長さ [25] 横長さ [30] 種類 [1]\nステージ　ｘ [2050] ｙ [550] 縦の長さ [25] 横長さ [30] 種類 [1]\nステージ　ｘ [1900] ｙ [600] 縦の長さ [25] 横長さ [30] 種類 [1]\nステージ　ｘ [1700] ｙ [650] 縦の長さ [30] 横長さ [150] 種類 [1]\nステージ　ｘ [1700] ｙ [720] 縦の長さ [100] 横長さ [30] 種類 [5]\nステージ　ｘ [1900] ｙ [760] 縦の長さ [10] 横長さ [30] 種類 [3]\nステージ　ｘ [1900] ｙ [750] 縦の長さ [20] 横長さ [30] 種類 [1]\nステージ　ｘ [2000] ｙ [840] 縦の長さ [200] 横長さ [30] 種類 [2]\nステージ　ｘ [2100] ｙ [760] 縦の長さ [10] 横長さ [30] 種類 [3]\nステージ　ｘ [2100] ｙ [750] 縦の長さ [20] 横長さ [30] 種類 [1]\nステージ　ｘ [2200] ｙ [840] 縦の長さ [200] 横長さ [30] 種類 [2]\nステージ　ｘ [2350] ｙ [800] 縦の長さ [80] 横長さ [30] 種類 [2]\nステージ　ｘ [2350] ｙ [760] 縦の長さ [30] 横長さ [250] 種類 [1]\nステージ　ｘ [2750] ｙ [800] 縦の長さ [80] 横長さ [30] 種類 [2]\nステージ　ｘ [2750] ｙ [760] 縦の長さ [30] 横長さ [250] 種類 [1]\nステージ　ｘ [3150] ｙ [800] 縦の長さ [80] 横長さ [30] 種類 [2]\nステージ　ｘ [3150] ｙ [760] 縦の長さ [30] 横長さ [250] 種類 [1]\nステージ　ｘ [3550] ｙ [760] 縦の長さ [30] 横長さ [250] 種類 [1]\nステージ　ｘ [3550] ｙ [820] 縦の長さ [100] 横長さ [30] 種類 [6]\nステージ　ｘ [3850] ｙ [700] 縦の長さ [30] 横長さ [40] 種類 [1]\nステージ　ｘ [4050] ｙ [600] 縦の長さ [30] 横長さ [40] 種類 [1]\nステージ　ｘ [4200] ｙ [500] 縦の長さ [30] 横長さ [40] 種類 [1]\nステージ　ｘ [4530] ｙ [400] 縦の長さ [30] 横長さ [400] 種類 [1]\nステージ　ｘ [4460] ｙ [450] 縦の長さ [50] 横長さ [30] 種類 [2]\nステージ　ｘ [4750] ｙ [560] 縦の長さ [350] 横長さ [50] 種類 [1]\nステージ　ｘ [4875] ｙ [710] 縦の長さ [50] 横長さ [300] 種類 [1]\nステージ　ｘ [5200] ｙ [600] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [5050] ｙ [480] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [4900] ｙ [360] 縦の長さ [30] 横長さ [120] 種類 [1]\nステージ　ｘ [4900] ｙ [420] 縦の長さ [100] 横長さ [30] 種類 [7]\nステージ　ｘ [5050] ｙ [260] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [5285] ｙ [640] 縦の長さ [350] 横長さ [30] 種類 [2]\nステージ　ｘ [5285] ｙ [950] 縦の長さ [350] 横長さ [30] 種類 [2]\nステージ　ｘ [5245] ｙ [170] 縦の長さ [20] 横長さ [30] 種類 [3]\nステージ　ｘ [5285] ｙ [245] 縦の長さ [150] 横長さ [30] 種類 [2]\nステージ　ｘ [5285] ｙ [150] 縦の長さ [30] 横長さ [200] 種類 [1]\nステージ　ｘ [5635] ｙ [245] 縦の長さ [150] 横長さ [30] 種類 [2]\nステージ　ｘ [5595] ｙ [170] 縦の長さ [20] 横長さ [30] 種類 [3]\nステージ　ｘ [5635] ｙ [150] 縦の長さ [30] 横長さ [200] 種類 [1]\nステージ　ｘ [5945] ｙ [170] 縦の長さ [20] 横長さ [30] 種類 [3]\nステージ　ｘ [5985] ｙ [245] 縦の長さ [150] 横長さ [30] 種類 [2]\nステージ　ｘ [5985] ｙ [150] 縦の長さ [30] 横長さ [200] 種類 [1]\nステージ　ｘ [6250] ｙ [250] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [6500] ｙ [300] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [6750] ｙ [350] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [7000] ｙ [400] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [7250] ｙ [450] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [7585] ｙ [500] 縦の長さ [50] 横長さ [200] 種類 [1]\nステージ　ｘ [7585] ｙ [580] 縦の長さ [100] 横長さ [30] 種類 [8]\nステージ　ｘ [7670] ｙ [530] 縦の長さ [20] 横長さ [30] 種類 [3]\nステージ　ｘ [7770] ｙ [740] 縦の長さ [30] 横長さ [50] 種類 [3]\nステージ　ｘ [7770] ｙ [730] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [7970] ｙ [990] 縦の長さ [30] 横長さ [50] 種類 [3]\nステージ　ｘ [7970] ｙ [980] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [8170] ｙ [1230] 縦の長さ [30] 横長さ [50] 種類 [3]\nステージ　ｘ [8170] ｙ [1220] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [8350] ｙ [1500] 縦の長さ [80] 横長さ [30] 種類 [2]\nステージ　ｘ [8350] ｙ [1450] 縦の長さ [30] 横長さ [200] 種類 [1]\nステージ　ｘ [8650] ｙ [1600] 縦の長さ [80] 横長さ [30] 種類 [2]\nステージ　ｘ [8650] ｙ [1550] 縦の長さ [30] 横長さ [200] 種類 [1]\nステージ　ｘ [8950] ｙ [1700] 縦の長さ [80] 横長さ [30] 種類 [2]\nステージ　ｘ [8950] ｙ [1650] 縦の長さ [30] 横長さ [200] 種類 [1]\nステージ　ｘ [9100] ｙ [1550] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [9250] ｙ [1450] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [9400] ｙ [1550] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [9550] ｙ [1450] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [9550] ｙ [1450] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [9700] ｙ [1350] 縦の長さ [30] 横長さ [50] 種類 [1]\nステージ　ｘ [9850] ｙ [1125] 縦の長さ [300] 横長さ [300] 種類 [1]\n\ndefine x (x座標) ｙ (ｙ座標)\ngo to x: ((x座標) + ((-1) * (ステージｘ))) y: ((ｙ座標) + ((-1) * (ステージｙ)))\n\nwhen flag clicked\nforever\n    接触確認\nend\n\ndefine 描画可能ステージ\ndelete all of [描画可能ステージ v]\ndelete all of [草地可 v]\nset [ii v] to [0]\nrepeat ((length of [ステージ情報 v]) / (5))\n    set [可能描画箇所 v] to [0]\n    if <<[-236] < (((-1) * (ステージｘ)) + ((item ((ii) + (1)) of [ステージ情報 v]) + ((-1) * ((item ((ii) + (4)) of [ステージ情報 v]) / (2)))))> and <(((-1) * (ステージｘ)) + ((item ((ii) + (1)) of [ステージ情報 v]) + ((-1) * ((item ((ii) + (4)) of [ステージ情報 v]) / (2))))) < [236]>> then\n        if <<[-176] < (((-1) * (ステージｙ)) + ((item ((ii) + (2)) of [ステージ情報 v]) + ((1) * ((item ((ii) + (3)) of [ステージ情報 v]) / (2)))))> and <(((-1) * (ステージｙ)) + ((item ((ii) + (2)) of [ステージ情報 v]) + ((1) * ((item ((ii) + (3)) of [ステージ情報 v]) / (2))))) < [176]>> then\n            change [可能描画箇所 v] by (1000)\n        end\n    end\n    if <<[-236] < (((-1) * (ステージｘ)) + ((item ((ii) + (1)) of [ステージ情報 v]) + ((1) * ((item ((ii) + (4)) of [ステージ情報 v]) / (2)))))> and <(((-1) * (ステージｘ)) + ((item ((ii) + (1)) of [ステージ情報 v]) + ((1) * ((item ((ii) + (4)) of [ステージ情報 v]) / (2))))) < [236]>> then\n        if <<[-176] < (((-1) * (ステージｙ)) + ((item ((ii) + (2)) of [ステージ情報 v]) + ((1) * ((item ((ii) + (3)) of [ステージ情報 v]) / (2)))))> and <(((-1) * (ステージｙ)) + ((item ((ii) + (2)) of [ステージ情報 v]) + ((1) * ((item ((ii) + (3)) of [ステージ情報 v]) / (2))))) < [176]>> then\n            change [可能描画箇所 v] by (100)\n        end\n    end\n    if <<[-236] < (((-1) * (ステージｘ)) + ((item ((ii) + (1)) of [ステージ情報 v]) + ((1) * ((item ((ii) + (4)) of [ステージ情報 v]) / (2)))))> and <(((-1) * (ステージｘ)) + ((item ((ii) + (1)) of [ステージ情報 v]) + ((1) * ((item ((ii) + (4)) of [ステージ情報 v]) / (2))))) < [236]>> then\n        if <<[-176] < (((-1) * (ステージｙ)) + ((item ((ii) + (2)) of [ステージ情報 v]) + ((-1) * ((item ((ii) + (3)) of [ステージ情報 v]) / (2)))))> and <(((-1) * (ステージｙ)) + ((item ((ii) + (2)) of [ステージ情報 v]) + ((-1) * ((item ((ii) + (3)) of [ステージ情報 v]) / (2))))) < [176]>> then\n            change [可能描画箇所 v] by (10)\n        end\n    end\n    if <<[-236] < (((-1) * (ステージｘ)) + ((item ((ii) + (1)) of [ステージ情報 v]) + ((-1) * ((item ((ii) + (4)) of [ステージ情報 v]) / (2)))))> and <(((-1) * (ステージｘ)) + ((item ((ii) + (1)) of [ステージ情報 v]) + ((-1) * ((item ((ii) + (4)) of [ステージ情報 v]) / (2))))) < [236]>> then\n        if <<[-176] < (((-1) * (ステージｙ)) + ((item ((ii) + (2)) of [ステージ情報 v]) + ((-1) * ((item ((ii) + (3)) of [ステージ情報 v]) / (2)))))> and <(((-1) * (ステージｙ)) + ((item ((ii) + (2)) of [ステージ情報 v]) + ((-1) * ((item ((ii) + (3)) of [ステージ情報 v]) / (2))))) < [176]>> then\n            change [可能描画箇所 v] by (1)\n        end\n    end\n    if <not <(可能描画箇所) = [0]>> then\n        add (item ((ii) + (1)) of [ステージ情報 v]) to [描画可能ステージ v]\n        add (item ((ii) + (2)) of [ステージ情報 v]) to [描画可能ステージ v]\n        add (item ((ii) + (3)) of [ステージ情報 v]) to [描画可能ステージ v]\n        add (item ((ii) + (4)) of [ステージ情報 v]) to [描画可能ステージ v]\n        add (item ((ii) + (5)) of [ステージ情報 v]) to [描画可能ステージ v]\n        if <[99] < (可能描画箇所)> then\n            add ((length of [描画可能ステージ v]) / (5)) to [草地可 v]\n        end\n    end\n    change [ii v] by (5)\nend\n\nwhen flag clicked\nforever\n    描画可能ステージ\nend\n\ndefine チェックポイント\nif <[接触 v] contains [4]?> then\n    set [チェックポイントｘ v] to [1305]\n    set [チェックポイントｙ v] to [70]\n    set [色 v] to [65]\nend\nif <[接触 v] contains [5]?> then\n    set [チェックポイントｘ v] to [1700]\n    set [チェックポイントｙ v] to [820]\n    set [色 v] to [17]\nend\nif <[接触 v] contains [6]?> then\n    set [チェックポイントｘ v] to [3550]\n    set [チェックポイントｙ v] to [900]\n    set [色 v] to [42]\nend\nif <[接触 v] contains [7]?> then\n    set [チェックポイントｘ v] to [4900]\n    set [チェックポイントｙ v] to [500]\n    set [色 v] to [7]\nend\nif <[接触 v] contains [8]?> then\n    set [チェックポイントｘ v] to [7585]\n    set [チェックポイントｙ v] to [680]\n    set [色 v] to [75]\nend\n\ndefine Cを書く\nset [θ v] to [45]\nrepeat (270)\n    x ((item ((i) + (1)) of [描画可能ステージ v]) + ((10) * ([cos v] of (θ) ))) ｙ ((20) + ((item ((i) + (2)) of [描画可能ステージ v]) + ((10) * ([sin v] of (θ) ))))\n    pen down\n    change [θ v] by (1)\nend\npen up\n\nwhen flag clicked\nforever\n    チェックポイント\nend\n\nwhen I receive [ゴール v]\nstop [other scripts in sprite v]\nset pen size to (50000)\nset pen color to (#4bc0ff)\npen down\npen up\nYou won\n\ndefine You won\nset pen color to (#000000)\nset pen size to (10)\ngo to x: (-220) y: (30)\npen down\ngo to x: (-200) y: (0)\ngo to x: (-180) y: (30)\npen up\ngo to x: (-200) y: (0)\npen down\ngo to x: (-200) y: (-30)\npen up\nwait (0) seconds\nset [θ v] to [0]\nrepeat (360)\n    go to x: ((-130) + ((30) * ([cos v] of (θ) ))) y: ((0) + ((30) * ([sin v] of (θ) )))\n    pen down\n    change [θ v] by (1)\nend\npen up\nwait (0) seconds\nset [θ v] to [0]\nrepeat (180)\n    go to x: ((-50) + ((30) * ([cos v] of (θ) ))) y: ((0) + ((30) * ([sin v] of (θ) )))\n    pen down\n    change [θ v] by (-1)\nend\npen up\ngo to x: (-80) y: (0)\npen down\ngo to x: (-80) y: (30)\npen up\ngo to x: (-20) y: (0)\npen down\ngo to x: (-20) y: (30)\npen up\nwait (0) seconds\ngo to x: (10) y: (30)\npen down\ngo to x: (25) y: (-30)\ngo to x: (40) y: (30)\ngo to x: (55) y: (-30)\ngo to x: (70) y: (30)\npen up\nwait (0) seconds\nset [θ v] to [0]\nrepeat (360)\n    go to x: ((120) + ((30) * ([cos v] of (θ) ))) y: ((0) + ((30) * ([sin v] of (θ) )))\n    pen down\n    change [θ v] by (1)\nend\npen up\nwait (0) seconds\ngo to x: (170) y: (-30)\npen down\ngo to x: (170) y: (30)\ngo to x: (210) y: (-30)\ngo to x: (210) y: (30)\npen up\n\nwhen flag clicked\nforever\n    play sound [bgm_maoudamashii_cyber37 v] until done\nend\n\n@サムネイル\n\nwhen flag clicked\nhide\ndelete this clone\n\nwhen I start as a clone\nset size to (200) %\nswitch costume to (コスチューム2 v)\ngo to x: (0) y: (0)\nshow\ngo to [front v] layer\n\ncreate clone of (_myself_ v)\n\n
WASDkey   arrow key\n\nWASDキーか矢印キー\n\n100%pen\n\n\ncode by @yessusitarou