Platformer Difficulty Chart || A Platformer
@Stage\n\n@サムネ\n\nwhen flag clicked\nhide\nset [fps v] to [31]\nset [fps4 v] to [0]\nforever\n    set [fps2 v] to (timer)\n    set [fps3 v] to [0]\n    repeat until <((timer) - (FPS2)) > [1]>\n        change [fps3 v] by (1)\n    end\n    set [fps v] to (FPS3)\n    if <(FPS) < [31]> then\n        change [fps4 v] by (1)\n    else\n        set [fps4 v] to [0]\n    end\nend\n\n@all\n\ndefine コメ枠 (x1) (x2) (y)\nset pen color to (#d9d9d9)\nset pen size to (40)\ngo to x: (x1) y: (y)\npen down\nset x to (x2)\npen up\nif <(x1) > (x2)> then\n    set pen size to (7)\n    go to x: ((x1) + (3)) y: ((y) - (28))\n    pen down\n    go to x: ((x1) + (-1)) y: ((y) - (22))\n    set x to ((x1) + (-5))\n    pen up\n    set pen size to (6)\n    go to x: ((x1) + (-17)) y: ((y) - (17))\n    pen down\n    go to x: ((x1) + (-14)) y: ((y) - (19))\n    go to x: ((x1) + (-11)) y: ((y) - (21))\n    go to x: ((x1) + (-8)) y: ((y) - (23))\n    go to x: ((x1) + (-5)) y: ((y) - (25))\n    go to x: ((x1) + (-2)) y: ((y) - (27))\n    go to x: ((x1) + (2)) y: ((y) - (29))\n    pen up\n    set pen color to (#ffffff)\n    set pen size to (36)\n    go to x: (x1) y: (y)\n    pen down\n    go to x: (x2) y: (y)\n    pen up\n    set pen size to (3)\n    go to x: ((x1) + (3)) y: ((y) - (28))\n    pen down\n    go to x: ((x1) + (-1)) y: ((y) - (22))\n    set x to ((x1) + (-3))\n    pen up\n    set pen size to (2)\n    go to x: ((x1) + (-17)) y: ((y) - (17))\n    pen down\n    go to x: ((x1) + (-14)) y: ((y) - (19))\n    go to x: ((x1) + (-11)) y: ((y) - (21))\n    go to x: ((x1) + (-8)) y: ((y) - (23))\n    go to x: ((x1) + (-5)) y: ((y) - (25))\n    go to x: ((x1) + (-2)) y: ((y) - (27))\n    go to x: ((x1) + (2)) y: ((y) - (29))\n    pen up\n    set pen size to (4)\n    go to x: ((x1) + (-3)) y: ((y) - (19))\n    pen down\n    set x to ((x1) + (-11))\n    go to x: ((x1) + (-1)) y: ((y) - (25))\n    go to x: ((x1) + (-5)) y: ((y) - (19))\n    pen up\nelse\n    set pen size to (7)\n    go to x: ((x1) - (3)) y: ((y) - (28))\n    pen down\n    go to x: ((x1) - (-1)) y: ((y) - (22))\n    set x to ((x1) - (-5))\n    pen up\n    set pen size to (6)\n    go to x: ((x1) - (-17)) y: ((y) - (17))\n    pen down\n    go to x: ((x1) - (-14)) y: ((y) - (19))\n    go to x: ((x1) - (-11)) y: ((y) - (21))\n    go to x: ((x1) - (-8)) y: ((y) - (23))\n    go to x: ((x1) - (-5)) y: ((y) - (25))\n    go to x: ((x1) - (-2)) y: ((y) - (27))\n    go to x: ((x1) - (2)) y: ((y) - (29))\n    pen up\n    set pen color to (#ffffff)\n    set pen size to (36)\n    go to x: (x1) y: (y)\n    pen down\n    go to x: (x2) y: (y)\n    pen up\n    set pen size to (3)\n    go to x: ((x1) - (3)) y: ((y) - (28))\n    pen down\n    go to x: ((x1) - (-1)) y: ((y) - (22))\n    set x to ((x1) - (-3))\n    pen up\n    set pen size to (2)\n    go to x: ((x1) - (-17)) y: ((y) - (17))\n    pen down\n    go to x: ((x1) - (-14)) y: ((y) - (19))\n    go to x: ((x1) - (-11)) y: ((y) - (21))\n    go to x: ((x1) - (-8)) y: ((y) - (23))\n    go to x: ((x1) - (-5)) y: ((y) - (25))\n    go to x: ((x1) - (-2)) y: ((y) - (27))\n    go to x: ((x1) - (2)) y: ((y) - (29))\n    pen up\n    set pen size to (4)\n    go to x: ((x1) - (-3)) y: ((y) - (19))\n    pen down\n    set x to ((x1) - (-11))\n    go to x: ((x1) - (-1)) y: ((y) - (25))\n    go to x: ((x1) - (-5)) y: ((y) - (19))\n    pen up\nend\n\ndefine 二点間距離 (a x) (a y) (b x) (b y)\nset [二点間距離 v] to ([sqrt v] of ((((a x) - (b x)) * ((a x) - (b x))) + (((a y) - (b y)) * ((a y) - (b y)))) )\n\ndefine 線分当たり判定確認 (a x) (a y) (b x) (b y) (c x) (c y) (d x) (d y)\nset [線分の当たり判定 v] to <<(((((d x) - (c x)) * ((a y) - (c y))) - (((d y) - (c y)) * ((a x) - (c x)))) * ((((d x) - (c x)) * ((b y) - (c y))) - (((d y) - (c y)) * ((b x) - (c x))))) < [0]> and <(((((b x) - (a x)) * ((c y) - (a y))) - (((b y) - (a y)) * ((c x) - (a x)))) * ((((b x) - (a x)) * ((d y) - (a y))) - (((b y) - (a y)) * ((d x) - (a x))))) < [0]>>\n\ndefine 地点への向き (ax) (ay) (bx) (by)\nset [地点への向き v] to (() - (([atan v] of (((ay) - (by)) / ((ax) - (bx))) ) + ((((90) * ((1) - (<[0] < ((ax) - (bx))> * (2)))) * ((1) - (<<((ax) - (bx)) = [0]> and <[0] < ((ay) - (by))>> * (2)))) * ((1) + (<<((ax) - (bx)) = [0]> and <((ay) - (by)) < [0]>> * (2))))))\n\ndefine 円の当たり判定確認 (ax) (ay) (bx) (by) (cx) (cy) size (size)\n二点間距離 (ax) (ay) (cx) (cy)\nif <([abs v] of (二点間距離) ) < ((size) / (2))> then\n    set [円に触れた v] to [true]\nelse\n    二点間距離 (bx) (by) (cx) (cy)\n    if <([abs v] of (二点間距離) ) < ((size) / (2))> then\n        set [円に触れた v] to [true]\n    else\n        地点への向き (ax) (ay) (bx) (by)\n        change [地点への向き v] by (90)\n        線分当たり判定確認 (ax) (ay) (bx) (by) ((cx) - (([sin v] of (地点への向き) ) * ((size) / (2)))) ((cy) - (([cos v] of (地点への向き) ) * ((size) / (2)))) ((cx) + (([sin v] of (地点への向き) ) * ((size) / (2)))) ((cy) + (([cos v] of (地点への向き) ) * ((size) / (2))))\n        set [円に触れた v] to (線分の当たり判定)\n    end\nend\n\ndefine stage\nadd [player] to [stage描画 v]\nadd ((x) - (cam x)) to [stage描画 v]\nadd ((y) - (cam y)) to [stage描画 v]\nadd (direction) to [stage描画 v]\nadd (x eye) to [stage描画 v]\nadd (y eye) to [stage描画 v]\nadd [#ff7fdf] to [stage描画 v]\nadd [] to [stage描画 v]\nadd [] to [stage描画 v]\ndelete all of [stage当たり判定 v]\nreplace item (2) of [@変数 v] with [9]\nrepeat (11)\n    replace item (1) of [@変数 v] with [0]\n    repeat (16)\n        replace item (3) of [@変数 v] with ((item (1) of [@変数 v]) + (((cam x) - ((cam x) mod (40))) / (40)))\n        replace item (4) of [@変数 v] with ((item (2) of [@変数 v]) - (((cam y) - ((cam y) mod (40))) / (40)))\n        if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [1]> then\n            if <(item (1) of [@変数 v]) = [0]> then\n                if <<(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [1]> or <<(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [4]> or <(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [5]>>> then\n                    stage追加 [2]\n                else\n                    stage追加 [1]\n                end\n            else\n                if <(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [2]> then\n                    stage追加 [4]\n                else\n                    if <(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [3]> then\n                        stage追加 [6]\n                    else\n                        if <<(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [1]> or <<(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [4]> or <(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [5]>>> then\n                            if <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [1]> then\n                                if <not <<(letter ((item (4) of [@変数 v]) + (-1)) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [1]> or <<(letter ((item (4) of [@変数 v]) + (-1)) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [4]> or <(letter ((item (4) of [@変数 v]) + (-1)) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [5]>>>> then\n                                    stage追加 [2]\n                                else\n                                    replace item ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (5))) of [stage描画 v] with ((item ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (5))) of [stage描画 v]) + (40))\n                                    replace item ((length of [stage描画 v]) - (item (8) of [@変数 v])) of [stage描画 v] with ((item ((length of [stage描画 v]) - (item (8) of [@変数 v])) of [stage描画 v]) + (1))\n                                end\n                            else\n                                stage追加 [2]\n                            end\n                        else\n                            if <not <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [1]>> then\n                                stage追加 [1]\n                            else\n                                if <<(letter ((item (4) of [@変数 v]) + (-1)) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [1]> or <<(letter ((item (4) of [@変数 v]) + (-1)) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [2]> or <(letter ((item (4) of [@変数 v]) + (-1)) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [3]>>> then\n                                    stage追加 [1]\n                                else\n                                    replace item ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (5))) of [stage描画 v] with ((item ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (5))) of [stage描画 v]) + (40))\n                                    replace item ((length of [stage描画 v]) - (item (8) of [@変数 v])) of [stage描画 v] with ((item ((length of [stage描画 v]) - (item (8) of [@変数 v])) of [stage描画 v]) + (1))\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n            if <(軽量化) < [2]> then\n                stage追加 [7]\n            end\n        else\n            if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [2]> then\n                stage追加 [3]\n            else\n                if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [3]> then\n                    stage追加 [5]\n                else\n                    if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [4]> then\n                        if <(item (1) of [@変数 v]) = [0]> then\n                            stage追加 [8]\n                        else\n                            if <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [4]> then\n                                replace item ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (5))) of [stage描画 v] with ((item ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (5))) of [stage描画 v]) + (40))\n                                replace item ((length of [stage描画 v]) - (item (8) of [@変数 v])) of [stage描画 v] with ((item ((length of [stage描画 v]) - (item (8) of [@変数 v])) of [stage描画 v]) + (1))\n                            else\n                                stage追加 [8]\n                            end\n                        end\n                    else\n                        if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [5]> then\n                            stage追加 [9]\n                        else\n                            if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [6]> then\n                                stage追加 [a]\n                            else\n                                if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [7]> then\n                                    if <(item (1) of [@変数 v]) = [0]> then\n                                        stage追加 [b]\n                                    else\n                                        if <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [7]> then\n                                            replace item ((item (10) of [@変数 v]) + (2)) of [stage描画 v] with ((item ((item (10) of [@変数 v]) + (2)) of [stage描画 v]) + (40))\n                                        else\n                                            stage追加 [b]\n                                        end\n                                    end\n                                else\n                                    if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [8]> then\n                                        stage追加 [c]\n                                    else\n                                        if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [9]> then\n                                            stage追加 [d]\n                                        else\n                                            if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [9]> then\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (1))\n    end\n    replace item (2) of [@変数 v] with ((item (2) of [@変数 v]) + (-1))\nend\n\ndefine stage描画\nreplace item (1) of [@変数 v] with [1]\nrepeat until <(item (1) of [@変数 v]) > (length of [stage描画 v])>\n    if <(item (item (1) of [@変数 v]) of [stage描画 v]) = [player]> then\n        player描画 (item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) (item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) (item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) (item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) (item ((item (1) of [@変数 v]) + (7)) of [stage描画 v]) (item ((item (1) of [@変数 v]) + (8)) of [stage描画 v])\n    else\n        if <(item (item (1) of [@変数 v]) of [stage描画 v]) = [player2]> then\n            go to x: (item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) y: (item ((item (1) of [@変数 v]) + (2)) of [stage描画 v])\n            point in direction (item ((item (1) of [@変数 v]) + (3)) of [stage描画 v])\n            set pen size to (5)\n            set pen color to (#b964fe)\n            pen down\n            move (25) steps\n            move (-25) steps\n            turn right (45) degrees\n            move (15) steps\n            move (-15) steps\n            turn right (-90) degrees\n            move (15) steps\n            pen up\n            point in direction (90)\n            if <(軽量化) = [0]> then\n                Print | Pos (((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (([sin v] of (item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) ) * (25))) + (10)) (((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (([cos v] of (item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) ) * (25))) + (30)) Size [11] Width [1] RGB [] [] [] Weight [1] CSpace [1] Align [] Text (item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [☁waku v]) (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) [あ]\n            end\n        else\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [1]> then\n                set pen color to (#d99c46)\n                set pen size to (12)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + ((-14) + ((-5) * <[1] = (letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v]))>))) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                pen down\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + ((14) + ((5) * <[1] = (letter (item ((item (1) of [@変数 v]) + (8)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (7)) of [stage描画 v]) + (1)) of [stage v]))>))) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-14))\n                pen up\n                set pen size to (2)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                pen down\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-11))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-11))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-19))\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                pen up\n                if <(軽量化) < [2]> then\n                    set pen color to (#cf8b31)\n                    set pen size to (10)\n                    go to x: (item (item (1) of [@変数 v]) of [stage描画 v]) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15))\n                    repeat ((1) + (((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) - (item (item (1) of [@変数 v]) of [stage描画 v])) / (40)))\n                        pen down\n                        go to x: ((x position) + (15)) y: ((y position) + (15))\n                        pen up\n                        go to x: ((x position) + (25)) y: ((y position) + (-15))\n                    end\n                end\n                set pen color to (#3fb500)\n                set pen size to (14)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-3))\n                pen down\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (13)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-3))\n                pen up\n                set pen size to (2)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-9))\n                pen down\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (3))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (3))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-9))\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-9))\n                pen up\n                set pen color to (#55f200)\n                set pen size to (16)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-12)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (12))\n                pen down\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (12)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (12))\n                pen up\n                set pen size to (2)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (10))\n                pen down\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (5))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (5))\n                if <<(letter ((item ((item (1) of [@変数 v]) + (8)) of [stage描画 v]) + (-1)) of (item ((item ((item (1) of [@変数 v]) + (7)) of [stage描画 v]) + (1)) of [stage v])) = [1]> or <(letter (item ((item (1) of [@変数 v]) + (8)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (7)) of [stage描画 v]) + (1)) of [stage v])) = [1]>> then\n                    go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (19))\n                else\n                    go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (10))\n                end\n                if <<(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (-1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]> or <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]>> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (19))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (14))\n                else\n                    go to x: (item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (19))\n                end\n                pen up\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [2]> then\n                set pen color to (#d99c46)\n                set pen size to (2)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                pen down\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-19))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (19))\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (19))\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                pen up\n                set pen size to (12)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                pen down\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (14)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-14))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (14)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (20))\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (20))\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                pen up\n                set pen size to (40)\n                go to x: (item (item (1) of [@変数 v]) of [stage描画 v]) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (10))\n                pen down\n                go to x: (item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (10))\n                pen up\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [3]> then\n                set pen color to (#d99c46)\n                if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                    set pen size to (8)\n                    if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (1)) of [stage v])) = [1]> then\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (24)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-10))\n                        pen down\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-50))\n                        pen up\n                    else\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-18))\n                        pen down\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-50))\n                        pen up\n                        set pen size to (2)\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-16))\n                        pen down\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-10))\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                        pen up\n                    end\n                else\n                    set pen size to (2)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (8)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-10))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (15)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15))\n                    set pen size to (10)\n                    pen down\n                    pen up\n                end\n                set pen color to (#3fb500)\n                set pen size to (12)\n                if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (1)) of [stage v])) = [1]> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (24)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (2))\n                    pen down\n                    if <<(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> and <<not <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]>> and <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]>>> then\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-22)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-44))\n                        pen up\n                    else\n                        if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-36))\n                            pen up\n                            stage描画2 [2]\n                        else\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (7)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                            pen up\n                            set pen size to (2)\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                            pen down\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-4)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (15)) y: (item ((item (1) of [@変数 v]) + (1)) of [stage描画 v])\n                            set pen size to (6)\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (1)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-16))\n                            pen up\n                        end\n                    end\n                else\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-8))\n                    pen down\n                    if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                        if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]> then\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-22)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-44))\n                            pen up\n                        else\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-36))\n                            pen up\n                            stage描画2 [2]\n                        end\n                    else\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (7)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                        pen up\n                        set pen size to (2)\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                        pen down\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-4)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (15)) y: (item ((item (1) of [@変数 v]) + (1)) of [stage描画 v])\n                        set pen size to (4)\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (1)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                        pen up\n                        pen up\n                    end\n                    set pen size to (6)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-6))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (4))\n                    pen up\n                end\n                set pen color to (#55f200)\n                set pen size to (8)\n                if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (1)) of [stage v])) = [1]> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (24)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (14))\n                    pen down\n                    if <<(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> and <<not <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]>> and <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]>>> then\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-22)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-32))\n                        pen up\n                    else\n                        if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-26))\n                            pen up\n                            stage描画2 [1]\n                        else\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-6)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-16))\n                            pen up\n                            set pen size to (2)\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (13))\n                            pen down\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-8)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-11)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                            pen up\n                        end\n                    end\n                else\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (6))\n                    pen down\n                    if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                        if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]> then\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-22)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-32))\n                            pen up\n                        else\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-26))\n                            pen up\n                            stage描画2 [1]\n                        end\n                    else\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-6)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-16))\n                        pen up\n                    end\n                    set pen size to (2)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (6))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (13))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (6))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (13))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                    if <not <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]>> then\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-8)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-12)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                    end\n                    pen up\n                end\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [4]> then\n                set pen color to (#d99c46)\n                set pen size to (2)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15))\n                pen down\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-19))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (19))\n                pen up\n                set pen size to (12)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                pen down\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (14)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-14))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (14)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (14))\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                pen up\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-5))\n                pen down\n                if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (1)) of [stage v])) = [1]> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (20)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (20)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (20))\n                end\n                pen up\n                if <<not <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (-1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]>> and <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]>> then\n                    set pen color to (#55f200)\n                    set pen size to (4)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-20)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (18))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-9)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (18))\n                    pen up\n                end\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [5]> then\n                set pen color to (#d99c46)\n                if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                    set pen size to (8)\n                    if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (1)) of [stage v])) = [1]> then\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (24)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-10))\n                        pen down\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-50))\n                        pen up\n                    else\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-18))\n                        pen down\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-50))\n                        pen up\n                        set pen size to (2)\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-16))\n                        pen down\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-10))\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                        pen up\n                    end\n                else\n                    set pen size to (2)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (8)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-10))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (15)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15))\n                    set pen size to (10)\n                    pen down\n                    pen up\n                end\n                if <(軽量化) < [2]> then\n                    set pen color to (#cf8b31)\n                    set pen size to (10)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (0)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-55))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (15)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-40))\n                    pen up\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-30)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-45))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (0)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15))\n                    pen up\n                end\n                set pen color to (#3fb500)\n                set pen size to (12)\n                if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (1)) of [stage v])) = [1]> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (24)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (2))\n                    pen down\n                    if <<(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> and <<not <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (-1)) of [stage v])) = [1]>> and <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (-1)) of [stage v])) = [1]>>> then\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-22)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-44))\n                        pen up\n                    else\n                        if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-36))\n                            pen up\n                            stage描画2 [4]\n                        else\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (7)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                            pen up\n                            set pen size to (2)\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                            pen down\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-4)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (15)) y: (item ((item (1) of [@変数 v]) + (1)) of [stage描画 v])\n                            set pen size to (6)\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (1)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-16))\n                            pen up\n                        end\n                    end\n                else\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-8))\n                    pen down\n                    if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                        if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (-1)) of [stage v])) = [1]> then\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-22)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-44))\n                            pen up\n                        else\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-36))\n                            pen up\n                            stage描画2 [4]\n                        end\n                    else\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (7)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                        pen up\n                        set pen size to (2)\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                        pen down\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-4)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (15)) y: (item ((item (1) of [@変数 v]) + (1)) of [stage描画 v])\n                        set pen size to (4)\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (1)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                        pen up\n                        pen up\n                    end\n                    set pen size to (6)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-6))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (4))\n                    pen up\n                end\n                set pen color to (#55f200)\n                set pen size to (8)\n                if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (1)) of [stage v])) = [1]> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (24)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (14))\n                    pen down\n                    if <<(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> and <<not <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (-1)) of [stage v])) = [1]>> and <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (-1)) of [stage v])) = [1]>>> then\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-22)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-32))\n                        pen up\n                    else\n                        if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-26))\n                            pen up\n                            stage描画2 [3]\n                        else\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-6)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-16))\n                            pen up\n                            set pen size to (2)\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (13))\n                            pen down\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-8)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-11)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                            pen up\n                        end\n                    end\n                else\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (6))\n                    pen down\n                    if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                        if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (-1)) of [stage v])) = [1]> then\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-22)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-32))\n                            pen up\n                        else\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-16)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-26))\n                            pen up\n                            stage描画2 [3]\n                        end\n                    else\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-6)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-16))\n                        pen up\n                    end\n                    set pen size to (2)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (6))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (13))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (6))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (13))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                    if <not <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]>> then\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-8)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-12)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                    end\n                    pen up\n                end\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [6]> then\n                set pen color to (#d99c46)\n                set pen size to (2)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15))\n                pen down\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-19))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) - (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (19))\n                pen up\n                set pen size to (12)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                pen down\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) - (14)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-14))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) - (14)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (14))\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                pen up\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-5))\n                pen down\n                if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (1)) of [stage v])) = [1]> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (20)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (20)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (20))\n                end\n                pen up\n                if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) - (-1)) of [stage v])) = [1]> then\n                    set pen color to (#55f200)\n                    set pen size to (4)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-25)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (18))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-9)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (18))\n                    pen up\n                end\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [7]> then\n                set pen color to (#cf8b31)\n                set pen size to (10)\n                if <[stage線 v] contains (letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (-1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v]))?> then\n                    if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (1)) of [stage v])) = [1]> then\n                        if <<(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (-1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [4]> or <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (-1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [5]>> then\n                            go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (45)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (30))\n                        else\n                            if <<(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (-1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (1)) of [stage v])) = [4]> or <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (-1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (1)) of [stage v])) = [5]>> then\n                                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (45)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (30))\n                            else\n                                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (30)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (15))\n                            end\n                        end\n                    else\n                        go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (15)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (0))\n                    end\n                else\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (0)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15))\n                end\n                pen down\n                if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-15)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-30))\n                else\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (0)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15))\n                end\n                pen up\n                if <<(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (-1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> and <not <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (1)) of [stage v])) = [1]>>> then\n                    set pen size to (1)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (0))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (10.5))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (10.5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (1.5))\n                    pen up\n                    set pen size to (4)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (18)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (0))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (18)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (7))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (10.5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (0))\n                    pen up\n                end\n                if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item (item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) of [stage v])) = [1]> then\n                    if <(letter ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) + (1)) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]> then\n                        if <not <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [1]>> then\n                            if <(letter (item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) of (item ((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) + (-1)) of [stage v])) = [2]> then\n                                set pen size to (10)\n                                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-15)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-30))\n                                pen down\n                                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-40)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-55))\n                                pen up\n                            else\n                                stage描画2 [5]\n                            end\n                        end\n                    else\n                        stage描画2 [5]\n                    end\n                else\n                    set pen size to (1)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (0)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19.5))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-10.5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19.5))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-3.5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-12.5))\n                    pen up\n                    set pen size to (4)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (0)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-18))\n                    pen down\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-7)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-18))\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15.5))\n                    pen up\n                end\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [8]> then\n                set pen color to (#ff0000)\n                set pen size to (50)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (5))\n                pen down\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (-5)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (5))\n                pen up\n                set pen size to (10)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-15)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (20))\n                pen down\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-15)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (15)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-15))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (15)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (20))\n                pen up\n                set pen size to (2)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-15))\n                pen down\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-19))\n                go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (19)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage描画 v]) + (-15))\n                pen up\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [9]> then\n                if <(軽量化) = [2]> then\n                    set pen color to (#ff0000)\n                    set pen size to (30)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-5))\n                    pen down\n                    set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (5))\n                    pen up\n                    set pen size to (6)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                    pen down\n                    set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (17))\n                    set y to ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (7))\n                    set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-17))\n                    set y to ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                    pen up\n                    set pen size to (2)\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                    pen down\n                    set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (19))\n                    set y to ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (9))\n                    set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19))\n                    set y to ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                    pen up\n                else\n                    set pen color to (#ff0000)\n                    replace item (9) of [@変数 v] with [0]\n                    set pen size to (2)\n                    set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19))\n                    repeat (40)\n                        set y to ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + ((([sin v] of ((((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) * (40)) + (item (9) of [@変数 v])) + ((timer) * (100))) ) * (3)) + (10)))\n                        pen down\n                        set y to ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-19))\n                        pen up\n                        change x by (1)\n                        replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) + (1))\n                    end\n                end\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [a]> then\n                if <[check point v] contains (join ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (-282)) (join [/] ((() - (item ((item (1) of [@変数 v]) + (3)) of [stage描画 v])) + (200))))?> then\n                    set pen color to (#16f3ff)\n                else\n                    set pen color to (#ff0000)\n                end\n                set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-8))\n                set pen size to (1)\n                replace item (9) of [@変数 v] with []\n                repeat (36)\n                    set y to ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + ((8) + (([sin v] of (((timer) * (200)) + ((item (9) of [@変数 v]) * (10))) ) * ((item (9) of [@変数 v]) / (4)))))\n                    pen down\n                    change y by (-17)\n                    pen up\n                    change x by (.5)\n                    replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) + (.5))\n                end\n                set pen size to (5)\n                set pen color to (#e8aa64)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-10)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (17))\n                pen down\n                change y by (-34)\n                pen up\n                set pen size to (20)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-12)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-27))\n                pen down\n                change x by (4)\n                pen up\n                set pen size to (10)\n                set pen color to (#e8d34a)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-10)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (15))\n                pen down\n                pen up\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [b]> then\n                set pen color to (#00f2ff)\n                set pen size to (40)\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-20)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-.7))\n                set pen (transparency v) to (100)\n                pen down\n                set pen (transparency v) to (50)\n                set x to ((item ((item (1) of [@変数 v]) + (2)) of [stage描画 v]) + (20))\n                pen up\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [c]> then\n                set pen color to (#00f2ff)\n                replace item (9) of [@変数 v] with [0]\n                set pen size to (2)\n                set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19))\n                repeat (20)\n                    set y to ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + ((([sin v] of ((((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) * (40)) + (item (9) of [@変数 v])) + ((timer) * (150))) ) * (3)) + (10)))\n                    set pen (transparency v) to (100)\n                    pen down\n                    set pen (transparency v) to (50)\n                    set y to ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-20))\n                    pen up\n                    change x by (2)\n                    replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) + (2))\n                end\n            end\n            if <(item ((item (1) of [@変数 v]) + (4)) of [stage描画 v]) = [d]> then\n                replace item (9) of [@変数 v] with (join (((item ((item (1) of [@変数 v]) + (5)) of [stage描画 v]) * (40)) + (-280)) (join [/] ((200) - ((item ((item (1) of [@変数 v]) + (6)) of [stage描画 v]) * (40)))))\n                set pen color to (#e8c900)\n                set pen size to (5)\n                if <[jump ramp v] contains (item (9) of [@変数 v])?> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + ((11) + (item ((item # of (item (9) of [@変数 v]) in [jump ramp v]) + (1)) of [jump ramp v])))\n                else\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (11))\n                end\n                pen down\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                pen up\n                if <[jump ramp v] contains (item (9) of [@変数 v])?> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + ((11) + (item ((item # of (item (9) of [@変数 v]) in [jump ramp v]) + (1)) of [jump ramp v])))\n                else\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (11))\n                end\n                pen down\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (13)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                pen up\n                set pen color to (#e8aa00)\n                set pen size to (6)\n                if <[jump ramp v] contains (item (9) of [@変数 v])?> then\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + ((11) + (item ((item # of (item (9) of [@変数 v]) in [jump ramp v]) + (1)) of [jump ramp v])))\n                    pen down\n                    set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-14))\n                    pen up\n                else\n                    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (11))\n                    pen down\n                    set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-14))\n                    pen up\n                end\n                go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (14)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-17))\n                pen down\n                set x to ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-14))\n                pen up\n            end\n        end\n    end\n    replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (9))\nend\nif <[0] < (edit)> then\n    set pen color to (#000000)\n    set pen size to (1)\n    go to x: ((-300) - ((cam x) mod (40))) y: ((220) - ((cam y) mod (40)))\n    pen down\n    repeat (16)\n        set y to (() - (y position))\n        change x by (40)\n    end\n    pen up\n    go to x: ((-280) - ((cam x) mod (40))) y: ((220) - ((cam y) mod (40)))\n    pen down\n    repeat (11)\n        set x to (() - (x position))\n        change y by (-40)\n    end\n    pen up\nend\n\ndefine move\nif <(end) = [0]> then\n    当たり判定確認 [1]\n    if (item (5) of [触れたブロック v]) then\n        set [speed x v] to (((speed x) + ((item (1) of [押されたキー v]) - (item (2) of [押されたキー v]))) * (.8))\n    else\n        set [speed x v] to (((speed x) + ((item (1) of [押されたキー v]) - (item (2) of [押されたキー v]))) * (.9))\n    end\n    change [x2 v] by (speed x)\n    if <(edit) > [1]> then\n    if <(edit) > [1]> then\n        set [speed y v] to (((speed y) + ((item (3) of [押されたキー v]) - (item (4) of [押されたキー v]))) * (.9))\n    else\n        当たり判定確認 [2]\n        if (item (5) of [触れたブロック v]) then\n            set [speed y v] to (((speed y) + (<(item (11) of [@変数 v]) > [2]> * ((item (3) of [押されたキー v]) - (item (4) of [押されたキー v])))) * (.9))\n            change [speed y v] by (-.4)\n            replace item (11) of [@変数 v] with ((item (11) of [@変数 v]) + (1))\n        else\n            replace item (11) of [@変数 v] with [0]\n            if <([abs v] of (speed y) ) < [22]> then\n                if <(speed y) < [0]> then\n                    change [speed y v] by (-1)\n                else\n                    change [speed y v] by ((-1) + ((item (3) of [押されたキー v]) * (.32)))\n                end\n            end\n        end\n    end\n    change [y2 v] by (speed y)\n    当たり判定確認 [2]\n    if <(item (12) of [@変数 v]) > [0]> then\n        replace item (12) of [@変数 v] with ((item (12) of [@変数 v]) + (-1))\n    end\n    if <(edit) > [1]> then\n    change [x eye v] by ((((speed x) * (.5)) - (x eye)) / (5))\n    if <([abs v] of (speed y) ) < [6]> then\n        change [y eye v] by (((speed y) - (y eye)) / (5))\n    else\n        if <(speed y) < [0]> then\n            change [y eye v] by (((-6) - (y eye)) / (5))\n        else\n            change [y eye v] by (((6) - (y eye)) / (5))\n        end\n    end\n    if <([abs v] of (y eye) ) > [4.5]> then\n        set [y eye v] to ((4.5) * ((1) - (<(y eye) < [0]> * (2))))\n    end\nend\nset [x v] to ((round ((x2) * (10))) / (10))\nset [y v] to ((round ((y2) * (10))) / (10))\nreplace item (1) of [@変数 v] with [1]\nrepeat ((length of [jump ramp v]) / (3))\n    replace item ((item (1) of [@変数 v]) + (1)) of [jump ramp v] with ((item ((item (1) of [@変数 v]) + (1)) of [jump ramp v]) + ((item ((item (1) of [@変数 v]) + (2)) of [jump ramp v]) / (2)))\n    replace item ((item (1) of [@変数 v]) + (2)) of [jump ramp v] with ((item ((item (1) of [@変数 v]) + (2)) of [jump ramp v]) + (-1))\n    if <(item ((item (1) of [@変数 v]) + (1)) of [jump ramp v]) < [0]> then\n        repeat (3)\n            delete (item (1) of [@変数 v]) of [jump ramp v]\n        end\n    else\n        replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (3))\n    end\nend\n\ndefine player描画 (x) (y) (direction) (x2) (y2) (color) (name) (player)\nif <<([abs v] of (x) ) > [257]> or <([abs v] of (y) ) > [197]>> then\n    if <not <(name) = []>> then\n        地点への向き [] [] (x) (y)\n        set pen color to (#b964fe)\n        set pen size to (5)\n        add [player2] to [stage描画 v]\n        if <(x) > [257]> then\n            add [230] to [stage描画 v]\n            if <(y) > [160]> then\n                add [160] to [stage描画 v]\n            else\n                if <(y) < [-160]> then\n                    add [-160] to [stage描画 v]\n                else\n                    add (y) to [stage描画 v]\n                end\n            end\n        else\n            if <(x) < [-257]> then\n                add [-230] to [stage描画 v]\n                if <(y) > [160]> then\n                    add [160] to [stage描画 v]\n                else\n                    if <(y) < [-160]> then\n                        add [-160] to [stage描画 v]\n                    else\n                        add (y) to [stage描画 v]\n                    end\n                end\n            else\n                if <(x) > [230]> then\n                    add [230] to [stage描画 v]\n                else\n                    if <(x) < [-230]> then\n                        add [-230] to [stage描画 v]\n                    else\n                        add (x) to [stage描画 v]\n                    end\n                end\n                if <(y) > [197]> then\n                    add [160] to [stage描画 v]\n                else\n                    if <(y) < [-197]> then\n                        add [-160] to [stage描画 v]\n                    else\n                        add [] to [stage描画 v]\n                    end\n                end\n            end\n        end\n        add (地点への向き) to [stage描画 v]\n        add (name) to [stage描画 v]\n        add (player) to [stage描画 v]\n        add [] to [stage描画 v]\n        add [] to [stage描画 v]\n        add [] to [stage描画 v]\n    end\nelse\n    replace item (14) of [@変数 v] with (item (13) of [@変数 v])\n    if <not <(name) = []>> then\n        if <<(軽量化) = [0]> and <(name) = [0]>> then\n            Print | Pos ((x) + (25)) ((y) + (40)) Size [11] Width [1] RGB [] [] [] Weight [1] CSpace [1] Align [] Text (name) (item (player) of [☁waku v]) (player) []\n        end\n        replace item (14) of [@変数 v] with [1]\n    else\n        if <not <(chat) = []>> then\n            Print | Pos ((x) + (25)) ((y) + (40)) Size [11] Width [1] RGB [] [] [] Weight [1] CSpace [1] Align [] Text (chat) [1] [0] []\n        end\n    end\n    if <not <<(item (13) of [@変数 v]) = [\/V]> and <(name) = []>>> then\n        set pen color to (color)\n        set pen size to ((12) * (item (14) of [@変数 v]))\n        go to x: ((x) + (([sin v] of (direction) ) * ((15.5) * (item (14) of [@変数 v])))) y: ((y) + (([cos v] of (direction) ) * ((15.5) * (item (14) of [@変数 v]))))\n        pen down\n        go to x: ((x) + (([sin v] of ((direction) + (90)) ) * ((15.5) * (item (14) of [@変数 v])))) y: ((y) + (([cos v] of ((direction) + (90)) ) * ((15.5) * (item (14) of [@変数 v]))))\n        go to x: ((x) + (([sin v] of ((direction) + (180)) ) * ((15.5) * (item (14) of [@変数 v])))) y: ((y) + (([cos v] of ((direction) + (180)) ) * ((15.5) * (item (14) of [@変数 v]))))\n        go to x: ((x) + (([sin v] of ((direction) + (270)) ) * ((15.5) * (item (14) of [@変数 v])))) y: ((y) + (([cos v] of ((direction) + (270)) ) * ((15.5) * (item (14) of [@変数 v]))))\n        go to x: ((x) + (([sin v] of (direction) ) * ((15.5) * (item (14) of [@変数 v])))) y: ((y) + (([cos v] of (direction) ) * ((15.5) * (item (14) of [@変数 v]))))\n        pen up\n        set pen color to (#ffffff)\n        set pen size to ((24.5) * (item (14) of [@変数 v]))\n        go to x: (x) y: (y)\n        pen down\n        pen up\n        go to x: ((x) + (([sin v] of (direction) ) * (x2))) y: ((y) + (([cos v] of (direction) ) * (y2)))\n        set pen color to (#000000)\n        set pen size to ((13.5) * (item (14) of [@変数 v]))\n        pen down\n        pen up\n        set pen color to (#ffffff)\n        set pen size to ((4) * (item (14) of [@変数 v]))\n        go to x: ((x) + ((([sin v] of (direction) ) * (x2)) + (([sin v] of ((direction) + (0)) ) * ((4) * (item (14) of [@変数 v]))))) y: ((y) + ((([cos v] of (direction) ) * (y2)) + (([cos v] of ((direction) + (0)) ) * ((4) * (item (14) of [@変数 v])))))\n        pen down\n        pen up\n    end\nend\n\ndefine stage追加 (番号)\nif <(番号) = [7]> then\n    replace item (8) of [@変数 v] with ((item (8) of [@変数 v]) + (9))\nend\nif <<(番号) < [3]> or <(番号) = [8]>> then\n    replace item (8) of [@変数 v] with [1]\nend\nif <(番号) = [5]> then\n    insert (((-280) - ((cam x) mod (40))) + ((item (1) of [@変数 v]) * (40))) at ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (7))) of [stage描画 v] \n    insert (((200) - ((cam y) mod (40))) - ((item (2) of [@変数 v]) * (40))) at ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (7))) of [stage描画 v] \n    insert (((-280) - ((cam x) mod (40))) + ((item (1) of [@変数 v]) * (40))) at ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (7))) of [stage描画 v] \n    insert (((200) - ((cam y) mod (40))) - ((item (2) of [@変数 v]) * (40))) at ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (7))) of [stage描画 v] \n    insert (番号) at ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (7))) of [stage描画 v] \n    insert (item (3) of [@変数 v]) at ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (7))) of [stage描画 v] \n    insert (item (4) of [@変数 v]) at ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (7))) of [stage描画 v] \n    insert (item (3) of [@変数 v]) at ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (7))) of [stage描画 v] \n    insert (item (4) of [@変数 v]) at ((length of [stage描画 v]) - ((item (8) of [@変数 v]) + (7))) of [stage描画 v] \nelse\n    if <(番号) = [a]> then\n        insert (item (4) of [@変数 v]) at (1) of [stage描画 v] \n        insert (item (3) of [@変数 v]) at (1) of [stage描画 v] \n        insert (item (4) of [@変数 v]) at (1) of [stage描画 v] \n        insert (item (3) of [@変数 v]) at (1) of [stage描画 v] \n        insert (番号) at (1) of [stage描画 v] \n        insert ((item (4) of [@変数 v]) * (40)) at (1) of [stage描画 v] \n        insert ((item (3) of [@変数 v]) * (40)) at (1) of [stage描画 v] \n        insert (((200) - ((cam y) mod (40))) - ((item (2) of [@変数 v]) * (40))) at (1) of [stage描画 v] \n        insert (((-280) - ((cam x) mod (40))) + ((item (1) of [@変数 v]) * (40))) at (1) of [stage描画 v] \n        replace item (10) of [@変数 v] with ((item (10) of [@変数 v]) + (9))\n    else\n        if <<(番号) = [b]> or <(番号) = [c]>> then\n            insert (item (4) of [@変数 v]) at (item (10) of [@変数 v]) of [stage描画 v] \n            insert (item (3) of [@変数 v]) at (item (10) of [@変数 v]) of [stage描画 v] \n            insert (item (4) of [@変数 v]) at (item (10) of [@変数 v]) of [stage描画 v] \n            insert (item (3) of [@変数 v]) at (item (10) of [@変数 v]) of [stage描画 v] \n            insert (番号) at (item (10) of [@変数 v]) of [stage描画 v] \n            insert (((200) - ((cam y) mod (40))) - ((item (2) of [@変数 v]) * (40))) at (item (10) of [@変数 v]) of [stage描画 v] \n            insert (((-280) - ((cam x) mod (40))) + ((item (1) of [@変数 v]) * (40))) at (item (10) of [@変数 v]) of [stage描画 v] \n            insert (((200) - ((cam y) mod (40))) - ((item (2) of [@変数 v]) * (40))) at (item (10) of [@変数 v]) of [stage描画 v] \n            insert (((-280) - ((cam x) mod (40))) + ((item (1) of [@変数 v]) * (40))) at (item (10) of [@変数 v]) of [stage描画 v] \n        else\n            if <(番号) = [d]> then\n                add (((-280) - ((cam x) mod (40))) + ((item (1) of [@変数 v]) * (40))) to [stage描画 v]\n                add (((200) - ((cam y) mod (40))) - ((item (2) of [@変数 v]) * (40))) to [stage描画 v]\n                add (item (1) of [@変数 v]) to [stage描画 v]\n                add (item (2) of [@変数 v]) to [stage描画 v]\n                add (番号) to [stage描画 v]\n                add (item (3) of [@変数 v]) to [stage描画 v]\n                add (item (4) of [@変数 v]) to [stage描画 v]\n                add (item (3) of [@変数 v]) to [stage描画 v]\n                add (item (4) of [@変数 v]) to [stage描画 v]\n            else\n                add (((-280) - ((cam x) mod (40))) + ((item (1) of [@変数 v]) * (40))) to [stage描画 v]\n                add (((200) - ((cam y) mod (40))) - ((item (2) of [@変数 v]) * (40))) to [stage描画 v]\n                add (((-280) - ((cam x) mod (40))) + ((item (1) of [@変数 v]) * (40))) to [stage描画 v]\n                add (((200) - ((cam y) mod (40))) - ((item (2) of [@変数 v]) * (40))) to [stage描画 v]\n                add (番号) to [stage描画 v]\n                add (item (3) of [@変数 v]) to [stage描画 v]\n                add (item (4) of [@変数 v]) to [stage描画 v]\n                add (item (3) of [@変数 v]) to [stage描画 v]\n                add (item (4) of [@変数 v]) to [stage描画 v]\n            end\n        end\n    end\nend\n\ndefine cam (x) (y)\nif <(end) = [0]> then\n    if <not <(edit) = [0]>> then\n        change [cam x v] by (((x) - (cam x)) / (((10) * <(edit) = [0]>) + ((1) * <(edit) > [0]>)))\n        change [cam y v] by (((y) - (cam y)) / (((10) * <(edit) = [0]>) + ((1) * <(edit) > [0]>)))\n    else\n        if <(y) > [-3700]> then\n            change [cam x v] by (((x) - (cam x)) / (10))\n            change [cam y v] by (((y) - (cam y)) / (10))\n        else\n            if <<(y) > [-4380]> and <(x) < [4100]>> then\n                if <(x) < [1780]> then\n                    change [cam x v] by (((1780) - (cam x)) / (10))\n                else\n                    change [cam x v] by (((x) - (cam x)) / (10))\n                end\n                if <(x) < [4044]> then\n                    if <<(y) < [-4322]> or <(x) < [3500]>> then\n                        change [cam y v] by (((-4320) - (cam y)) / (10))\n                    else\n                        change [cam y v] by (((y) - (cam y)) / (10))\n                    end\n                else\n                    change [cam y v] by (((-3960) - (cam y)) / (10))\n                end\n            else\n                if <(y) > [-4200]> then\n                    if <(x) < [5500]> then\n                        if <<(x) < [4600]> and <not <(y) > [-4100]>>> then\n                            change [cam x v] by (((x) - (cam x)) / (10))\n                            change [cam y v] by (((y) - (cam y)) / (10))\n                        else\n                            change [cam x v] by (((x) - (cam x)) / (10))\n                            change [cam y v] by (((-3960) - (cam y)) / (10))\n                        end\n                    else\n                        if <(y) > [-3964]> then\n                            change [cam x v] by (((x) - (cam x)) / (10))\n                            change [cam y v] by (((-3960) - (cam y)) / (10))\n                        else\n                            change [cam x v] by (((x) - (cam x)) / (10))\n                            change [cam y v] by (((y) - (cam y)) / (10))\n                        end\n                    end\n                else\n                    if <(y) < [-6380]> then\n                        if <(x) < [3800]> then\n                            if <(x) < [2900]> then\n                                change [cam x v] by (((2900) - (cam x)) / (10))\n                            else\n                                change [cam x v] by (((x) - (cam x)) / (10))\n                            end\n                            change [cam y v] by (((y) - (cam y)) / (10))\n                        else\n                            if <(x) < [5044]> then\n                                change [cam x v] by (((x) - (cam x)) / (10))\n                                if <(y) > [-6684]> then\n                                    change [cam y v] by (((-6680) - (cam y)) / (10))\n                                else\n                                    change [cam y v] by (((y) - (cam y)) / (10))\n                                end\n                            else\n                                change [cam x v] by (((x) - (cam x)) / (10))\n                                change [cam y v] by (((y) - (cam y)) / (10))\n                            end\n                        end\n                    else\n                        if <(y) < [-6240]> then\n                            if <(x) < [5477]> then\n                                change [cam x v] by (((x) - (cam x)) / (10))\n                                change [cam y v] by (((-6240) - (cam y)) / (10))\n                            else\n                                change [cam x v] by (((x) - (cam x)) / (10))\n                                change [cam y v] by (((y) - (cam y)) / (10))\n                            end\n                        else\n                            if <(x) < [5670]> then\n                                if <(y) > [-5964]> then\n                                    if <(y) < [-5790]> then\n                                        change [cam x v] by (((x) - (cam x)) / (10))\n                                        change [cam y v] by (((-5960) - (cam y)) / (10))\n                                    else\n                                        if <(y) < [-5480]> then\n                                            change [cam x v] by (((x) - (cam x)) / (10))\n                                            change [cam y v] by (((-5480) - (cam y)) / (10))\n                                        else\n                                            change [cam x v] by (((x) - (cam x)) / (10))\n                                            change [cam y v] by (((y) - (cam y)) / (10))\n                                        end\n                                    end\n                                else\n                                    change [cam x v] by (((x) - (cam x)) / (10))\n                                    change [cam y v] by (((y) - (cam y)) / (10))\n                                end\n                            else\n                                if <(y) < [-5310]> then\n                                    if <<(y) > [-5790]> and <(x) < [6900]>> then\n                                        if <(y) > [-5440]> then\n                                            change [cam x v] by (((x) - (cam x)) / (10))\n                                            change [cam y v] by (((-5480) - (cam y)) / (10))\n                                        else\n                                            if <(x) < [6437]> then\n                                                change [cam x v] by (((x) - (cam x)) / (10))\n                                                change [cam y v] by (((-5480) - (cam y)) / (10))\n                                            else\n                                                change [cam x v] by (((x) - (cam x)) / (10))\n                                                change [cam y v] by (((y) - (cam y)) / (10))\n                                            end\n                                        end\n                                    else\n                                        if <(x) > [6450]> then\n                                            if <(y) < [-5960]> then\n                                                if <(x) < [6900]> then\n                                                    change [cam x v] by (((x) - (cam x)) / (10))\n                                                    change [cam y v] by (((y) - (cam y)) / (10))\n                                                else\n                                                    change [cam x v] by (((6900) - (cam x)) / (10))\n                                                    change [cam y v] by (((y) - (cam y)) / (10))\n                                                end\n                                            else\n                                                if <(x) < [6900]> then\n                                                    if <(y) > [-5790]> then\n                                                        change [cam x v] by (((x) - (cam x)) / (10))\n                                                        change [cam y v] by (((y) - (cam y)) / (10))\n                                                    else\n                                                        change [cam x v] by (((x) - (cam x)) / (10))\n                                                        change [cam y v] by (((-5960) - (cam y)) / (10))\n                                                    end\n                                                else\n                                                    change [cam x v] by (((6900) - (cam x)) / (10))\n                                                    change [cam y v] by (((y) - (cam y)) / (10))\n                                                end\n                                            end\n                                        else\n                                            change [cam x v] by (((x) - (cam x)) / (10))\n                                            change [cam y v] by (((-5960) - (cam y)) / (10))\n                                        end\n                                    end\n                                else\n                                    if <(y) < [-5075]> then\n                                        if <(x) < [6324]> then\n                                            if <<(y) > [-5164]> and <(y) < [-5159]>> then\n                                                change [cam x v] by (((x) - (cam x)) / (10))\n                                                change [cam y v] by (((-5160) - (cam y)) / (10))\n                                            else\n                                                change [cam x v] by (((x) - (cam x)) / (10))\n                                                change [cam y v] by (((y) - (cam y)) / (10))\n                                            end\n                                        else\n                                            change [cam x v] by (((x) - (cam x)) / (10))\n                                            change [cam y v] by (((y) - (cam y)) / (10))\n                                        end\n                                    else\n                                        if <(y) > [-4405]> then\n                                            if <(x) < [6500]> then\n                                                change [cam x v] by (((x) - (cam x)) / (10))\n                                                change [cam y v] by (((y) - (cam y)) / (10))\n                                            else\n                                                if <(x) > [6820]> then\n                                                    change [cam x v] by (((6820) - (cam x)) / (10))\n                                                else\n                                                    change [cam x v] by (((x) - (cam x)) / (10))\n                                                end\n                                                change [cam y v] by (((-4405) - (cam y)) / (10))\n                                            end\n                                        else\n                                            if <(x) > [6820]> then\n                                                change [cam x v] by (((6820) - (cam x)) / (10))\n                                            else\n                                                change [cam x v] by (((x) - (cam x)) / (10))\n                                                change [cam y v] by (((y) - (cam y)) / (10))\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine stage当たり判定追加\nreplace item (3) of [@変数 v] with (((((x) + (20)) - (((x) + (20)) mod (40))) / (40)) + (6))\nrepeat (3)\n    replace item (4) of [@変数 v] with (((((y) + (20)) - (((y) + (20)) mod (40))) / (-40)) + (4))\n    repeat (3)\n        if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [1]> then\n            if <<(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [1]> or <<(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [2]> or <(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [3]>>> then\n                if <not <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (1)) of [stage v])) = [1]>> then\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    if <(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [3]> then\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (-15))) to [stage当たり判定 v]\n                    else\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                    end\n                    add [1] to [stage当たり判定 v]\n                end\n                if <not <<(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [2]> or <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [1]>>> then\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                    if <(letter ((item (4) of [@変数 v]) + (-1)) of (item (item (3) of [@変数 v]) of [stage v])) = [2]> then\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (-15))) to [stage当たり判定 v]\n                    else\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                    end\n                    add [1] to [stage当たり判定 v]\n                end\n                if <not <<(letter ((item (4) of [@変数 v]) + (1)) of (item (item (3) of [@変数 v]) of [stage v])) = [1]> or <(letter ((item (4) of [@変数 v]) + (1)) of (item (item (3) of [@変数 v]) of [stage v])) = [3]>>> then\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add [1] to [stage当たり判定 v]\n                end\n            else\n                add ((-280) + (((item (3) of [@変数 v]) * (40)) + ((-12) + ((-8) * <<(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [1]> or <(letter ((item (4) of [@変数 v]) + (-1)) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [1]>>)))) to [stage当たり判定 v]\n                add ((200) - (((item (4) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                add ((-280) + (((item (3) of [@変数 v]) * (40)) + ((12) + ((8) * <<(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (1)) of [stage v])) = [1]> or <(letter ((item (4) of [@変数 v]) + (-1)) of (item ((item (3) of [@変数 v]) + (1)) of [stage v])) = [1]>>)))) to [stage当たり判定 v]\n                add ((200) - (((item (4) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                add [1] to [stage当たり判定 v]\n                if <not <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [1]>> then\n                    if <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [2]> then\n                        add [] to [stage当たり判定 v]\n                        add [16] to [stage当たり判定 v]\n                        add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-12))) to [stage当たり判定 v]\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (-12))) to [stage当たり判定 v]\n                        add [1] to [stage当たり判定 v]\n                    else\n                        add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                        if <(letter ((item (4) of [@変数 v]) + (-1)) of (item ((item (3) of [@変数 v]) + (-1)) of [stage v])) = [1]> then\n                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                            add [1] to [stage当たり判定 v]\n                        else\n                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (-12))) to [stage当たり判定 v]\n                            add [1] to [stage当たり判定 v]\n                            add [] to [stage当たり判定 v]\n                            add [16] to [stage当たり判定 v]\n                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-12))) to [stage当たり判定 v]\n                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (-12))) to [stage当たり判定 v]\n                            add [1] to [stage当たり判定 v]\n                        end\n                    end\n                end\n                if <not <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (1)) of [stage v])) = [1]>> then\n                    if <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (1)) of [stage v])) = [3]> then\n                        add [] to [stage当たり判定 v]\n                        add [16] to [stage当たり判定 v]\n                        add ((-280) + (((item (3) of [@変数 v]) * (40)) + (12))) to [stage当たり判定 v]\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (-12))) to [stage当たり判定 v]\n                        add [1] to [stage当たり判定 v]\n                    else\n                        add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                        if <(letter ((item (4) of [@変数 v]) + (-1)) of (item ((item (3) of [@変数 v]) + (1)) of [stage v])) = [1]> then\n                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                            add [1] to [stage当たり判定 v]\n                        else\n                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (-12))) to [stage当たり判定 v]\n                            add [1] to [stage当たり判定 v]\n                            add [] to [stage当たり判定 v]\n                            add [16] to [stage当たり判定 v]\n                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (12))) to [stage当たり判定 v]\n                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (-12))) to [stage当たり判定 v]\n                            add [1] to [stage当たり判定 v]\n                        end\n                    end\n                end\n                if <not <(letter ((item (4) of [@変数 v]) + (1)) of (item (item (3) of [@変数 v]) of [stage v])) = [1]>> then\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-20))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add [1] to [stage当たり判定 v]\n                end\n            end\n        else\n            if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [2]> then\n                add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                add ((200) - (((item (4) of [@変数 v]) * (40)) + (-16))) to [stage当たり判定 v]\n                add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-16))) to [stage当たり判定 v]\n                add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                add [1] to [stage当たり判定 v]\n                if <not <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) + (1)) of [stage v])) = [1]>> then\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (-16))) to [stage当たり判定 v]\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add [1] to [stage当たり判定 v]\n                end\n                if <not <(letter ((item (4) of [@変数 v]) + (1)) of (item (item (3) of [@変数 v]) of [stage v])) = [1]>> then\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-16))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add [1] to [stage当たり判定 v]\n                end\n            else\n                if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [3]> then\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) - (20))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (-16))) to [stage当たり判定 v]\n                    add ((-280) + (((item (3) of [@変数 v]) * (40)) - (-16))) to [stage当たり判定 v]\n                    add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                    add [1] to [stage当たり判定 v]\n                    if <not <(letter (item (4) of [@変数 v]) of (item ((item (3) of [@変数 v]) - (1)) of [stage v])) = [1]>> then\n                        add ((-280) + (((item (3) of [@変数 v]) * (40)) - (20))) to [stage当たり判定 v]\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (-16))) to [stage当たり判定 v]\n                        add ((-280) + (((item (3) of [@変数 v]) * (40)) - (20))) to [stage当たり判定 v]\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                        add [1] to [stage当たり判定 v]\n                    end\n                    if <not <(letter ((item (4) of [@変数 v]) + (1)) of (item (item (3) of [@変数 v]) of [stage v])) = [1]>> then\n                        add ((-280) + (((item (3) of [@変数 v]) * (40)) - (-16))) to [stage当たり判定 v]\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                        add ((-280) + (((item (3) of [@変数 v]) * (40)) - (20))) to [stage当たり判定 v]\n                        add ((200) - (((item (4) of [@変数 v]) * (40)) + (20))) to [stage当たり判定 v]\n                        add [1] to [stage当たり判定 v]\n                    end\n                else\n                    if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [4]> then\n                        add [] to [stage当たり判定 v]\n                        add [40] to [stage当たり判定 v]\n                        add ((-280) + ((item (3) of [@変数 v]) * (40))) to [stage当たり判定 v]\n                        add ((200) - ((item (4) of [@変数 v]) * (40))) to [stage当たり判定 v]\n                        add [2] to [stage当たり判定 v]\n                    else\n                        if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [5]> then\n                            add [] to [stage当たり判定 v]\n                            add [20] to [stage当たり判定 v]\n                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (10))) to [stage当たり判定 v]\n                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (10))) to [stage当たり判定 v]\n                            add [2] to [stage当たり判定 v]\n                            add [] to [stage当たり判定 v]\n                            add [20] to [stage当たり判定 v]\n                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-10))) to [stage当たり判定 v]\n                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (10))) to [stage当たり判定 v]\n                            add [2] to [stage当たり判定 v]\n                        else\n                            if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [6]> then\n                                add [] to [stage当たり判定 v]\n                                add [25] to [stage当たり判定 v]\n                                add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-2))) to [stage当たり判定 v]\n                                add ((200) - (((item (4) of [@変数 v]) * (40)) + (-6))) to [stage当たり判定 v]\n                                add [4] to [stage当たり判定 v]\n                                add [] to [stage当たり判定 v]\n                                add [25] to [stage当たり判定 v]\n                                add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-2))) to [stage当たり判定 v]\n                                add ((200) - (((item (4) of [@変数 v]) * (40)) + (6))) to [stage当たり判定 v]\n                                add [4] to [stage当たり判定 v]\n                            else\n                                if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [7]> then\n                                    add [] to [stage当たり判定 v]\n                                    add [40] to [stage当たり判定 v]\n                                    add ((-280) + ((item (3) of [@変数 v]) * (40))) to [stage当たり判定 v]\n                                    add ((200) - ((item (4) of [@変数 v]) * (40))) to [stage当たり判定 v]\n                                    add [5] to [stage当たり判定 v]\n                                else\n                                    if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [8]> then\n                                        add [] to [stage当たり判定 v]\n                                        add (((([sin v] of (((item (3) of [@変数 v]) * (40)) + ((timer) * (150))) ) * (3)) + (10)) - (-20)) to [stage当たり判定 v]\n                                        add ((-280) + ((item (3) of [@変数 v]) * (40))) to [stage当たり判定 v]\n                                        add ((200) - (((item (4) of [@変数 v]) * (40)) + ((20) - ((((([sin v] of (((item (3) of [@変数 v]) * (40)) + ((timer) * (150))) ) * (3)) + (10)) - (-20)) / (2))))) to [stage当たり判定 v]\n                                        add [5] to [stage当たり判定 v]\n                                    else\n                                        if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [9]> then\n                                            add [] to [stage当たり判定 v]\n                                            add [6] to [stage当たり判定 v]\n                                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-14))) to [stage当たり判定 v]\n                                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (-11))) to [stage当たり判定 v]\n                                            add [6] to [stage当たり判定 v]\n                                            add [] to [stage当たり判定 v]\n                                            add [6] to [stage当たり判定 v]\n                                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-14))) to [stage当たり判定 v]\n                                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (17))) to [stage当たり判定 v]\n                                            add [6] to [stage当たり判定 v]\n                                            add [] to [stage当たり判定 v]\n                                            add [6] to [stage当たり判定 v]\n                                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (14))) to [stage当たり判定 v]\n                                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (-11))) to [stage当たり判定 v]\n                                            add [6] to [stage当たり判定 v]\n                                            add [] to [stage当たり判定 v]\n                                            add [6] to [stage当たり判定 v]\n                                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (14))) to [stage当たり判定 v]\n                                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (17))) to [stage当たり判定 v]\n                                            add [6] to [stage当たり判定 v]\n                                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (17))) to [stage当たり判定 v]\n                                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (-11))) to [stage当たり判定 v]\n                                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (17))) to [stage当たり判定 v]\n                                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (17))) to [stage当たり判定 v]\n                                            add [6] to [stage当たり判定 v]\n                                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-17))) to [stage当たり判定 v]\n                                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (-11))) to [stage当たり判定 v]\n                                            add ((-280) + (((item (3) of [@変数 v]) * (40)) + (-17))) to [stage当たり判定 v]\n                                            add ((200) - (((item (4) of [@変数 v]) * (40)) + (17))) to [stage当たり判定 v]\n                                            add [6] to [stage当たり判定 v]\n                                        else\n                                            if <(letter (item (4) of [@変数 v]) of (item (item (3) of [@変数 v]) of [stage v])) = [a]> then\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n        replace item (4) of [@変数 v] with ((item (4) of [@変数 v]) + (1))\n    end\n    replace item (3) of [@変数 v] with ((item (3) of [@変数 v]) + (1))\nend\n\ndefine stage当たり判定描画\nreplace item (1) of [@変数 v] with [1]\nrepeat ((length of [stage当たり判定 v]) / (5))\n    if <(item (item (1) of [@変数 v]) of [stage当たり判定 v]) = []> then\n        set pen size to (item ((item (1) of [@変数 v]) + (1)) of [stage当たり判定 v])\n        set pen color to (#000000)\n        go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage当たり判定 v]) - (cam x)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage当たり判定 v]) - (cam y))\n        pen down\n        pen up\n    else\n        set pen size to (1)\n        set pen color to (#000000)\n        go to x: ((item (item (1) of [@変数 v]) of [stage当たり判定 v]) - (cam x)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage当たり判定 v]) - (cam y))\n        pen down\n        go to x: ((item ((item (1) of [@変数 v]) + (2)) of [stage当たり判定 v]) - (cam x)) y: ((item ((item (1) of [@変数 v]) + (3)) of [stage当たり判定 v]) - (cam y))\n        pen up\n    end\n    replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (5))\nend\n\ndefine 当たり判定確認 (x,y)\nset [x v] to ((round ((x2) * (10))) / (10))\nset [y v] to ((round ((y2) * (10))) / (10))\nrepeat (length of [触れたブロック v])\n    add [false] to [触れたブロック v]\n    delete (1) of [触れたブロック v]\nend\ndelete all of [player当たり判定 v]\nadd [] to [player当たり判定 v]\nadd [34] to [player当たり判定 v]\nadd [0] to [player当たり判定 v]\nadd [0] to [player当たり判定 v]\nif <(x,y) = [1]> then\n    if <(speed x) > [0]> then\n        add [] to [player当たり判定 v]\n        add [12] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n        add [] to [player当たり判定 v]\n        add [12] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n    else\n        add [] to [player当たり判定 v]\n        add [12] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n        add [] to [player当たり判定 v]\n        add [12] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n    end\nelse\n    if <(speed y) > [0]> then\n        add [] to [player当たり判定 v]\n        add [12] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n        add [] to [player当たり判定 v]\n        add [12] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n    else\n        add [] to [player当たり判定 v]\n        add [12] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n        add [] to [player当たり判定 v]\n        add [12] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n        add [-17] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n        add [-17] to [player当たり判定 v]\n    end\n    if <([abs v] of (speed y) ) > [12]> then\n        add [17] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n        add [17] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n        add [-17] to [player当たり判定 v]\n        add [11] to [player当たり判定 v]\n        add [-17] to [player当たり判定 v]\n        add [-11] to [player当たり判定 v]\n    end\nend\nreplace item (6) of [@変数 v] with [1]\nrepeat ((length of [stage当たり判定 v]) / (4))\n    replace item (5) of [@変数 v] with [1]\n    repeat ((length of [player当たり判定 v]) / (4))\n        set [触れた v] to [false]\n        if <(item (item (5) of [@変数 v]) of [player当たり判定 v]) = []> then\n            if <(item (item (6) of [@変数 v]) of [stage当たり判定 v]) = []> then\n                二点間距離 (item ((item (6) of [@変数 v]) + (2)) of [stage当たり判定 v]) (item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) ((x) + (item ((item (5) of [@変数 v]) + (2)) of [player当たり判定 v])) ((y) + (item ((item (5) of [@変数 v]) + (3)) of [player当たり判定 v]))\n                if <(二点間距離) < (((item ((item (6) of [@変数 v]) + (1)) of [stage当たり判定 v]) + (item ((item (5) of [@変数 v]) + (1)) of [player当たり判定 v])) / (2))> then\n                    replace item (item ((item (6) of [@変数 v]) + (4)) of [stage当たり判定 v]) of [触れたブロック v] with [true]\n                    set [触れた v] to [true]\n                end\n            else\n                円の当たり判定確認 (item (item (6) of [@変数 v]) of [stage当たり判定 v]) (item ((item (6) of [@変数 v]) + (1)) of [stage当たり判定 v]) (item ((item (6) of [@変数 v]) + (2)) of [stage当たり判定 v]) (item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) ((x) + (item ((item (5) of [@変数 v]) + (2)) of [player当たり判定 v])) ((y) + (item ((item (5) of [@変数 v]) + (3)) of [player当たり判定 v])) size (item ((item (5) of [@変数 v]) + (1)) of [player当たり判定 v])\n                if <(円に触れた) = [true]> then\n                    replace item (item ((item (6) of [@変数 v]) + (4)) of [stage当たり判定 v]) of [触れたブロック v] with [true]\n                    set [触れた v] to [true]\n                end\n            end\n        else\n            if <(item (item (6) of [@変数 v]) of [stage当たり判定 v]) = []> then\n                円の当たり判定確認 ((x) + (item (item (5) of [@変数 v]) of [player当たり判定 v])) ((y) + (item ((item (5) of [@変数 v]) + (1)) of [player当たり判定 v])) ((x) + (item ((item (5) of [@変数 v]) + (2)) of [player当たり判定 v])) ((y) + (item ((item (5) of [@変数 v]) + (3)) of [player当たり判定 v])) (item ((item (6) of [@変数 v]) + (2)) of [stage当たり判定 v]) (item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) size (item ((item (6) of [@変数 v]) + (1)) of [stage当たり判定 v])\n                if <(円に触れた) = [true]> then\n                    replace item (item ((item (6) of [@変数 v]) + (4)) of [stage当たり判定 v]) of [触れたブロック v] with [true]\n                    set [触れた v] to [true]\n                end\n            else\n                線分当たり判定確認 (item (item (6) of [@変数 v]) of [stage当たり判定 v]) (item ((item (6) of [@変数 v]) + (1)) of [stage当たり判定 v]) (item ((item (6) of [@変数 v]) + (2)) of [stage当たり判定 v]) (item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) ((x) + (item (item (5) of [@変数 v]) of [player当たり判定 v])) ((y) + (item ((item (5) of [@変数 v]) + (1)) of [player当たり判定 v])) ((x) + (item ((item (5) of [@変数 v]) + (2)) of [player当たり判定 v])) ((y) + (item ((item (5) of [@変数 v]) + (3)) of [player当たり判定 v]))\n                if <(線分の当たり判定) = [true]> then\n                    replace item (item ((item (6) of [@変数 v]) + (4)) of [stage当たり判定 v]) of [触れたブロック v] with [true]\n                    set [触れた v] to [true]\n                end\n            end\n        end\n        if <<(触れた) = [true]> and <(item ((item (6) of [@変数 v]) + (4)) of [stage当たり判定 v]) = [4]>> then\n            if <not <[check point v] contains (join (item ((item (6) of [@変数 v]) + (2)) of [stage当たり判定 v]) (join [/] (((item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) + (6)) - (((item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) + (6)) mod (40)))))?>> then\n                add (join (item ((item (6) of [@変数 v]) + (2)) of [stage当たり判定 v]) (join [/] (((item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) + (6)) - (((item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) + (6)) mod (40))))) to [check point v]\n                add (item ((item (6) of [@変数 v]) + (2)) of [stage当たり判定 v]) to [check point v]\n                add (((item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) + (6)) - (((item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) + (6)) mod (40))) to [check point v]\n                set [checkpoint x v] to (item ((length of [check point v]) - (1)) of [check point v])\n                set [checkpoint y v] to (item (length of [check point v]) of [check point v])\n            end\n        end\n        if <<<(speed y) < [0]> and <(x,y) = [2]>> and <<(触れた) = [true]> and <(item ((item (6) of [@変数 v]) + (4)) of [stage当たり判定 v]) = [6]>>> then\n            replace item (9) of [@変数 v] with (join (((item ((item (6) of [@変数 v]) + (2)) of [stage当たり判定 v]) + (17)) - (((item ((item (6) of [@変数 v]) + (2)) of [stage当たり判定 v]) + (17)) mod (40))) (join [/] (((item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) + (17)) - (((item ((item (6) of [@変数 v]) + (3)) of [stage当たり判定 v]) + (17)) mod (40)))))\n            if <[jump ramp v] contains (item (9) of [@変数 v])?> then\n                repeat (2)\n                    delete ((item # of (item (9) of [@変数 v]) in [jump ramp v]) + (1)) of [jump ramp v]\n                end\n                delete (item # of (item (9) of [@変数 v]) in [jump ramp v]) of [jump ramp v]\n            end\n            if <(item (12) of [@変数 v]) = [0]> then\n                add (item (9) of [@変数 v]) to [jump ramp v]\n                add [0] to [jump ramp v]\n                add [10] to [jump ramp v]\n            end\n        end\n        replace item (5) of [@変数 v] with ((item (5) of [@変数 v]) + (4))\n    end\n    replace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + (5))\nend\n\ndefine 座標調整 (x,y)\nif <(x,y) = [1]> then\n    repeat until <([abs v] of (speed x) ) < [.1]>\n        set [speed x v] to ((speed x) / (2))\n        change [x2 v] by (speed x)\n        当たり判定確認 [1]\n        if <(item (1) of [触れたブロック v]) or (item (6) of [触れたブロック v])> then\n            change [x2 v] by (() - (speed x))\n        end\n    end\nelse\n    repeat until <([abs v] of (speed y) ) < [.1]>\n        set [speed y v] to ((speed y) / (2))\n        change [y2 v] by (speed y)\n        当たり判定確認 [2]\n        if <(item (1) of [触れたブロック v]) or (item (6) of [触れたブロック v])> then\n            change [y2 v] by (() - (speed y))\n        end\n    end\nend\n\ndefine edit\nif <(edit) > [0]> then\n    replace item (1) of [edit v] with [0]\n    repeat until <<(item (1) of [edit v]) > [9]> or <key ((item (1) of [edit v]) v) pressed?>>\n        replace item (1) of [edit v] with ((item (1) of [edit v]) + (1))\n    end\n    if <(item (1) of [edit v]) < [10]> then\n        replace item (3) of [edit v] with (item (1) of [edit v])\n    end\n    set pen color to (#ff0000)\n    set pen (transparency v) to (50)\n    set pen size to (40)\n    go to x: (((((mouse x) + (20)) + ((cam x) mod (40))) - ((((mouse x) + (20)) + ((cam x) mod (40))) mod (40))) - ((cam x) mod (40))) y: (((((mouse y) + (20)) + ((cam y) mod (40))) - ((((mouse y) + (20)) + ((cam y) mod (40))) mod (40))) - ((cam y) mod (40)))\n    pen down\n    pen up\n    replace item (1) of [edit v] with (((7) + (((x) - ((x) mod (40))) / (40))) + (((((mouse x) + (20)) + ((cam x) mod (40))) - ((((mouse x) + (20)) + ((cam x) mod (40))) mod (40))) / (40)))\n    replace item (2) of [edit v] with (((4) - (((y) - ((y) mod (40))) / (40))) + (((((mouse y) + (20)) + ((cam y) mod (40))) - ((((mouse y) + (20)) + ((cam y) mod (40))) mod (40))) / (-40)))\n    if <mouse down?> then\n        edit2 (item (1) of [edit v]) (item (2) of [edit v]) (item (3) of [edit v])\n    end\nend\n\ndefine 背景描画\nerase all\nif <(軽量化) = [0]> then\n    set pen color to (#00ffff)\n    set pen (saturation v) to (50)\n    set pen size to (6)\n    go to x: (-260) y: (183)\n    pen down\n    repeat (66)\n        set x to (() - (x position))\n        change y by (-5.5)\n        change pen (saturation v) by (-.8)\n    end\n    pen up\nelse\n    set pen color to (#00ffff)\n    set pen (saturation v) to (30)\n    set pen size to (666)\n    go to x: (0) y: (0)\n    pen down\n    pen up\nend\n\ndefine edit2 (x) (y) (block)\nreplace item (4) of [edit v] with [1]\nrepeat until <(item (4) of [edit v]) > (length of (item (x) of [stage v]))>\n    add (letter (item (4) of [edit v]) of (item (x) of [stage v])) to [edit v]\n    replace item (4) of [edit v] with ((item (4) of [edit v]) + (1))\nend\nrepeat until <((x) - (length of [stage v])) < [1]>\n    add [] to [stage v]\nend\nrepeat ((1) - (x))\n    insert [] at (1) of [stage v] \n    change [x v] by (40)\n    change [cam x v] by (40)\n    change [初期x v] by (40)\nend\nif <(y) < [1]> then\n    repeat ((1) - (y))\n        replace item (5) of [edit v] with [1]\n        repeat (length of [stage v])\n            replace item (item (5) of [edit v]) of [stage v] with (join [0] (item (item (5) of [edit v]) of [stage v]))\n            replace item (5) of [edit v] with ((item (5) of [edit v]) + (1))\n        end\n        change [y v] by (-40)\n        change [cam y v] by (-40)\n        change [初期y v] by (-40)\n    end\n    repeat (() - (y))\n        insert [] at (6) of [edit v] \n    end\n    insert (block) at (6) of [edit v] \nelse\n    repeat until <not <(y) > ((length of [edit v]) - (5))>>\n        add [0] to [edit v]\n    end\n    replace item ((y) + (5)) of [edit v] with (block)\nend\nrepeat until <(length of [edit v]) = [6]>\n    replace item (6) of [edit v] with (join (item (6) of [edit v]) (item (7) of [edit v]))\n    delete (7) of [edit v]\nend\nreplace item (((x) * <not <(x) < [1]>>) + ((1) * <(x) < [1]>)) of [stage v] with (item (6) of [edit v])\ndelete (6) of [edit v]\n\ndefine stage描画2 (番号)\nif <(番号) = [1]> then\n    set pen color to (#55f200)\n    set pen size to (2)\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-24))\n    pen down\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-33))\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (0)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n    pen up\nend\nif <(番号) = [2]> then\n    set pen size to (2)\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-37))\n    pen down\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-48))\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-11)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-40))\n    pen up\n    set pen size to (6)\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-43))\n    pen down\n    pen up\nend\nif <(番号) = [3]> then\n    set pen color to (#55f200)\n    set pen size to (2)\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-24))\n    pen down\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-33))\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (0)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-14))\n    pen up\nend\nif <(番号) = [4]> then\n    set pen size to (2)\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-37))\n    pen down\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-48))\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-11)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-40))\n    pen up\n    set pen size to (6)\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) - (-17)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-43))\n    pen down\n    pen up\nend\nif <(番号) = [5]> then\n    set pen size to (1)\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19.5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-30))\n    pen down\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19.5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-40.5))\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-10.5)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-31.5))\n    pen up\n    set pen size to (2)\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-30))\n    pen down\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-19)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-39))\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-10)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-30))\n    go to x: ((item (item (1) of [@変数 v]) of [stage描画 v]) + (-18)) y: ((item ((item (1) of [@変数 v]) + (1)) of [stage描画 v]) + (-35))\n    set pen size to (4)\n    pen down\n    pen up\nend\n\nstage当たり判定描画\n\ndefine end\nif <(end) = [1]> then\n    set [speed y v] to [17]\n    set [x eye v] to [0]\n    set [y eye v] to [0]\nend\nif <(end) > [0]> then\n    change [speed y v] by (-1)\n    change [y2 v] by (speed y)\n    change [direction v] by (([abs v] of (speed y) ) + (5))\n    change [end v] by (1)\n    change [cam x v] by (((x2) - (cam x)) / (10))\nend\nif <((y2) - (cam y)) < [-1000]> then\n    set [x v] to (Checkpoint x)\n    set [y v] to (Checkpoint y)\n    set [x2 v] to (Checkpoint x)\n    set [y2 v] to (Checkpoint y)\n    set [direction v] to [45]\n    set [speed x v] to [0]\n    set [speed y v] to [0]\n    set [end v] to [0]\nend\n\ngo to x: ((x) + (11)) y: ((y) + (11))\npen down\ngo to x: ((x) + (11)) y: ((y) + (-11))\ngo to x: ((x) + (-11)) y: ((y) + (-11))\ngo to x: ((x) + (-11)) y: ((y) + (11))\ngo to x: ((x) + (11)) y: ((y) + (11))\npen up\n\ndefine Print | Pos (x) (y) Size (size) Width (width) RGB (r) (g) (b) Weight (w) CSpace (cspace) Align (align) Text (text) (waku) (player) (arrow)\npen up\nif <(r) = []> then\n    set [acolor v] to [#878c9d]\nelse\n    set [acolor v] to ((((65536) * (round (r))) + ((256) * (round (g)))) + (round (b)))\nend\nset [ax v] to (x)\nset [ai0 v] to ((0.01) * (size))\nset [ai1 v] to ([abs v] of ((0.125) * ((w) * (size))) )\nif <<(size) = (round (size))> and <not <(w) < [0]>>> then\n    if <<((round (ai1)) mod (2)) = [0]> and <not <(ai1) < [0.5]>>> then\n        set [ay v] to (round (y))\n    else\n        set [ay v] to (([floor v] of (y) ) + (0.5))\n    end\nelse\n    set [ay v] to (y)\nend\nif <(w) < [0]> then\n    set [ai2 v] to ((0.125) * (size))\nelse\n    set [ai2 v] to (ai1)\nend\nINTERNAL | printText (text) (ay) (ai0) ((width) * (ai0)) (((cspace) * ((0.475) * ((size) / ([log v] of (((size) + (1.01)) * ((size) + (1.01))) )))) + (ai2)) (align) (ai1) ((ai1) + (1)) (waku) (player) (arrow)\n\ndefine INTERNAL | printText (text) (y) (height) (width) (space) (align) (weight) (dotweight) (waku) (player) (arrow)\nif <<(align) = [c]> or <(align) = [r]>> then\n    delete all of [temp0 v]\n    set [ai0 v] to [1]\n    set [ai1 v] to [0]\n    repeat (length of (text))\n        set [ai2 v] to (letter (ai0) of (text))\n        if < [abcdefghijklmnopqrstuvwxyz] contains (ai2)?> then\n            change [ai1 v] by (((width) * (item (item # of (ai2) in [chars v]) of [charwidths v])) + (space))\n            add (item # of (ai2) in [chars v]) to [temp0 v]\n        else\n            set [ai2 v] to (item # of (ai2) in [chars v])\n            if <not <(ai2) = [0]>> then\n                change [ai1 v] by (((width) * (item (ai2) of [charwidths v])) + (space))\n                add (ai2) to [temp0 v]\n            end\n        end\n        change [ai0 v] by (1)\n    end\n    if <(align) = [c]> then\n        change [ax v] by ((-0.5) * ((ai1) - (space)))\n    else\n        change [ax v] by ((-1) * ((ai1) - (space)))\n    end\n    set [a1 v] to (ax)\n    set [a2 v] to (ax)\n    set [ai0 v] to [1]\n    repeat (length of [temp0 v])\n        change [a2 v] by ((space) + ((width) * (item (item (ai0) of [temp0 v]) of [charwidths v])))\n        change [ai0 v] by (1)\n    end\n    change [a2 v] by (() - (space))\n    if <not <(player) = []>> then\n        コメ枠 ((a1) + (5)) ((a2) + (-5)) ((y) + ((height) * (50)))\n    end\n    set pen color to (acolor)\n    set [ai0 v] to [1]\n    repeat (length of [temp0 v])\n        INTERNAL | printChar (item (ai0) of [temp0 v]) (height) (width) (ax) (y) (weight) (dotweight)\n        change [ax v] by (space)\n        change [ai0 v] by (1)\n    end\nelse\n    set [a1 v] to (ax)\n    set [a2 v] to (ax)\n    set [ai0 v] to [1]\n    repeat (length of (text))\n        set [ai7 v] to (letter (ai0) of (text))\n        if < [abcdefghijklmnopqrstuvwxyz] contains (ai7)?> then\n            change [a2 v] by ((space) + ((width) * (item (item # of (ai7) in [chars v]) of [charwidths v])))\n        else\n            set [ai7 v] to (item # of (ai7) in [chars v])\n            if <not <(ai7) = [0]>> then\n                change [a2 v] by ((space) + ((width) * (item (ai7) of [charwidths v])))\n            end\n        end\n        change [ai0 v] by (1)\n    end\n    change [a2 v] by (() - (space))\n    if <not <(player) = []>> then\n        if <(waku) = [1]> then\n            if <[220] < ((a2) + (-5))> then\n                if <(arrow) = [あ]> then\n                    コメ枠 (((a2) + (-27)) + ((a1) - (a2))) (((a1) + (-17)) + ((a1) - (a2))) ((y) + ((height) * (50)))\n                    change [ax v] by ((-17) + ((a1) - (a2)))\n                else\n                    コメ枠 (((a2) + (-53)) + ((a1) - (a2))) (((a1) + (-43)) + ((a1) - (a2))) ((y) + ((height) * (50)))\n                    change [ax v] by ((-48) + ((a1) - (a2)))\n                end\n                replace item (player) of [☁waku v] with [2]\n            else\n                if <<(arrow) = [あ]> and <((y) + ((height) * (50))) > [155]>> then\n                    コメ枠 ((a1) + (5)) ((a2) + (-5)) [155]\n                else\n                    コメ枠 ((a1) + (5)) ((a2) + (-5)) ((y) + ((height) * (50)))\n                end\n            end\n        else\n            if <[-220] > (((a1) + (-43)) + ((a1) - (a2)))> then\n                コメ枠 ((a1) + (5)) ((a2) + (-5)) ((y) + ((height) * (50)))\n                replace item (player) of [☁waku v] with [1]\n            else\n                if <(arrow) = [あ]> then\n                    if <((y) + ((height) * (50))) > [155]> then\n                        コメ枠 (((a2) + (-27)) + ((a1) - (a2))) (((a1) + (-17)) + ((a1) - (a2))) [155]\n                    else\n                        コメ枠 (((a2) + (-27)) + ((a1) - (a2))) (((a1) + (-17)) + ((a1) - (a2))) ((y) + ((height) * (50)))\n                    end\n                    change [ax v] by ((-20) + ((a1) - (a2)))\n                else\n                    コメ枠 (((a2) + (-53)) + ((a1) - (a2))) (((a1) + (-43)) + ((a1) - (a2))) ((y) + ((height) * (50)))\n                    change [ax v] by ((-48) + ((a1) - (a2)))\n                end\n            end\n        end\n    end\n    set pen color to (acolor)\n    set [ai0 v] to [1]\n    repeat (length of (text))\n        set [ai7 v] to (letter (ai0) of (text))\n        if < [abcdefghijklmnopqrstuvwxyz] contains (ai7)?> then\n            if <<(arrow) = [あ]> and <((y) + ((height) * (50))) > [155]>> then\n                INTERNAL | printChar (item # of (ai7) in [chars v]) (height) (width) (ax) (150) (weight) (dotweight)\n            else\n                INTERNAL | printChar (item # of (ai7) in [chars v]) (height) (width) (ax) (y) (weight) (dotweight)\n            end\n            change [ax v] by (space)\n        else\n            set [ai7 v] to (item # of (ai7) in [chars v])\n            if <not <(ai7) = [0]>> then\n                if <<(arrow) = [あ]> and <((y) + ((height) * (50))) > [155]>> then\n                    INTERNAL | printChar (ai7) (height) (width) (ax) (150) (weight) (dotweight)\n                else\n                    INTERNAL | printChar (ai7) (height) (width) (ax) (y) (weight) (dotweight)\n                end\n                change [ax v] by (space)\n            end\n        end\n        change [ai0 v] by (1)\n    end\nend\n\ndefine INTERNAL | printChar (num) (height) (width) (x) (y) (weight) (dotweight)\nchange [ax v] by ((width) * (item (num) of [charwidths v]))\nset [ai3 v] to (item (num) of [charids v])\nset pen size to (weight)\nrepeat (item ((ai3) - (1)) of [chardata v])\n    go to x: ((x) + ((width) * (item (ai3) of [chardata v]))) y: ((y) + ((height) * (item ((ai3) + (1)) of [chardata v])))\n    pen down\n    change [ai3 v] by (3)\n    repeat (item ((ai3) - (1)) of [chardata v])\n        go to x: ((x) + ((width) * (item (ai3) of [chardata v]))) y: ((y) + ((height) * (item ((ai3) + (1)) of [chardata v])))\n        change [ai3 v] by (2)\n    end\n    pen up\nend\nset pen size to (dotweight)\nchange [ai3 v] by (1)\nrepeat (item ((ai3) - (1)) of [chardata v])\n    go to x: ((x) + ((width) * (item (ai3) of [chardata v]))) y: ((y) + ((height) * (item ((ai3) + (1)) of [chardata v])))\n    pen down\n    pen up\n    change [ai3 v] by (2)\nend\n\nPrint | Pos ((x) - (cam x)) (((y) - (cam y)) + (25)) Size [10] Width [1] RGB [] [] [] Weight [1] CSpace [1] Align [c] Text [kouttakunn] [] [] []\n\nif <(item (2) of [jump ramp v]) > [50]> then\n    stop [all v]\nend\n\ndefine ☁cloud\nif <(item (1) of [☁cloud v]) = [3]> then\n    replace item (1) of [☁cloud v] with [0]\n    if <(item (2) of [☁cloud v]) = [9]> then\n        replace item (2) of [☁cloud v] with [0]\n    else\n        replace item (2) of [☁cloud v] with ((item (2) of [☁cloud v]) + (1))\n    end\n    if <(chat) = []> then\n        replace item (4) of [☁cloud v] with (join (item (3) of [☁cloud v]) (user name))\n    else\n        暗号化 (chat)\n        replace item (4) of [☁cloud v] with (join (item (3) of [☁cloud v]) (暗号化))\n    end\n    replace item (3) of [☁cloud v] with (item (2) of [☁cloud v])\nelse\n    replace item (1) of [☁cloud v] with ((item (1) of [☁cloud v]) + (1))\nend\nreplace item (3) of [☁cloud v] with (join (item (3) of [☁cloud v]) (join ((x) * (10)) (join ((y) * (-10)) (join ((round ((direction) mod (360))) + (200)) (join ((round ((x eye) * (10))) + (200)) ((round ((y eye) * (10))) + (200)))))))\nif <(☁ player) = [1]> then\n    set [☁ player1 v] to (item (4) of [☁cloud v])\nend\nif <(☁ player) = [2]> then\n    set [☁ player2 v] to (item (4) of [☁cloud v])\nend\nif <(☁ player) = [3]> then\n    set [☁ player3 v] to (item (4) of [☁cloud v])\nend\nif <(☁ player) = [4]> then\n    set [☁ player4 v] to (item (4) of [☁cloud v])\nend\nif <(☁ player) = [5]> then\n    set [☁ player5 v] to (item (4) of [☁cloud v])\nend\nif <(☁ player) = [6]> then\n    set [☁ player6 v] to (item (4) of [☁cloud v])\nend\nif <(☁ player) = [7]> then\n    set [☁ player7 v] to (item (4) of [☁cloud v])\nend\nif <(☁ player) = [8]> then\n    set [☁ player8 v] to (item (4) of [☁cloud v])\nend\n\ndefine ☁player\nreplace item (10) of [@変数 v] with [10]\nset [player数 v] to [0]\ndelete all of [stage描画 v]\nreplace item (4) of [☁player v] with (☁ player1)\nreplace item (27) of [☁player v] with (☁ player2)\nreplace item (50) of [☁player v] with (☁ player3)\nreplace item (73) of [☁player v] with (☁ player4)\nreplace item (96) of [☁player v] with (☁ player5)\nreplace item (119) of [☁player v] with (☁ player6)\nreplace item (142) of [☁player v] with (☁ player7)\nreplace item (165) of [☁player v] with (☁ player8)\nreplace item (1) of [☁player v] with [4]\nrepeat (8)\n    if <(item (item (1) of [☁player v]) of [☁player v]) = [0]> then\n        replace item (1) of [☁player v] with ((item (1) of [☁player v]) + (23))\n    else\n        change [player数 v] by (1)\n        if <((((item (1) of [☁player v]) - (4)) / (23)) + (1)) = (☁ player)> then\n            replace item (1) of [☁player v] with ((item (1) of [☁player v]) + (23))\n        else\n            replace item (10) of [@変数 v] with ((item (10) of [@変数 v]) + (9))\n            if <not <(item ((item (1) of [☁player v]) + (1)) of [☁player v]) = (letter (1) of (item (item (1) of [☁player v]) of [☁player v]))>> then\n                replace item ((item (1) of [☁player v]) + (1)) of [☁player v] with (letter (1) of (item (item (1) of [☁player v]) of [☁player v]))\n                replace item (2) of [☁player v] with [2]\n                replace item (3) of [☁player v] with ((item (1) of [☁player v]) + (2))\n                repeat (4)\n                    repeat (2)\n                        replace item (item (3) of [☁player v]) of [☁player v] with []\n                        repeat (5)\n                            replace item (item (3) of [☁player v]) of [☁player v] with (join (item (item (3) of [☁player v]) of [☁player v]) (letter (item (2) of [☁player v]) of (item (item (1) of [☁player v]) of [☁player v])))\n                            replace item (2) of [☁player v] with ((item (2) of [☁player v]) + (1))\n                        end\n                        replace item (item (3) of [☁player v]) of [☁player v] with ((item (item (3) of [☁player v]) of [☁player v]) / (10))\n                        replace item (3) of [☁player v] with ((item (3) of [☁player v]) + (1))\n                    end\n                    repeat (3)\n                        replace item (item (3) of [☁player v]) of [☁player v] with []\n                        repeat (3)\n                            replace item (item (3) of [☁player v]) of [☁player v] with (join (item (item (3) of [☁player v]) of [☁player v]) (letter (item (2) of [☁player v]) of (item (item (1) of [☁player v]) of [☁player v])))\n                            replace item (2) of [☁player v] with ((item (2) of [☁player v]) + (1))\n                        end\n                        replace item (item (3) of [☁player v]) of [☁player v] with ((item (item (3) of [☁player v]) of [☁player v]) - (200))\n                        replace item (3) of [☁player v] with ((item (3) of [☁player v]) + (1))\n                    end\n                end\n                replace item (item (3) of [☁player v]) of [☁player v] with []\n                repeat until <(item (2) of [☁player v]) > (length of (item (item (1) of [☁player v]) of [☁player v]))>\n                    replace item (item (3) of [☁player v]) of [☁player v] with (join (item (item (3) of [☁player v]) of [☁player v]) (letter (item (2) of [☁player v]) of (item (item (1) of [☁player v]) of [☁player v])))\n                    replace item (2) of [☁player v] with ((item (2) of [☁player v]) + (1))\n                end\n                replace item (2) of [☁player v] with [1]\n                insert [] at ((item (3) of [☁player v]) + (1)) of [☁player v] \n                repeat ((length of (item (item (3) of [☁player v]) of [☁player v])) / (2))\n                    replace item ((item (3) of [☁player v]) + (1)) of [☁player v] with (join (item ((item (3) of [☁player v]) + (1)) of [☁player v]) (item (join (letter (item (2) of [☁player v]) of (item (item (3) of [☁player v]) of [☁player v])) (letter ((item (2) of [☁player v]) + (1)) of (item (item (3) of [☁player v]) of [☁player v]))) of [chars v]))\n                    replace item (2) of [☁player v] with ((item (2) of [☁player v]) + (2))\n                end\n                delete (item (3) of [☁player v]) of [☁player v]\n            end\n            replace item (1) of [☁player v] with ((item (1) of [☁player v]) + (2))\n            add [player] to [stage描画 v]\n            add ((item (item (1) of [☁player v]) of [☁player v]) - (cam x)) to [stage描画 v]\n            add ((() - (item ((item (1) of [☁player v]) + (1)) of [☁player v])) - (cam y)) to [stage描画 v]\n            add (item ((item (1) of [☁player v]) + (2)) of [☁player v]) to [stage描画 v]\n            add ((item ((item (1) of [☁player v]) + (3)) of [☁player v]) / (10)) to [stage描画 v]\n            add ((item ((item (1) of [☁player v]) + (4)) of [☁player v]) / (10)) to [stage描画 v]\n            add [#b964fe] to [stage描画 v]\n            add (item ((item (1) of [☁player v]) + (20)) of [☁player v]) to [stage描画 v]\n            add ((((item (1) of [☁player v]) - (6)) / (23)) + (1)) to [stage描画 v]\n            if <(item ((item (1) of [☁player v]) + (5)) of [☁player v]) = []> then\n                replace item (1) of [☁player v] with ((item (1) of [☁player v]) + (20))\n            else\n                repeat (15)\n                    replace item (item (1) of [☁player v]) of [☁player v] with (item ((item (1) of [☁player v]) + (5)) of [☁player v])\n                    replace item (1) of [☁player v] with ((item (1) of [☁player v]) + (1))\n                end\n                repeat (5)\n                    replace item (item (1) of [☁player v]) of [☁player v] with []\n                    replace item (1) of [☁player v] with ((item (1) of [☁player v]) + (1))\n                end\n            end\n            replace item (1) of [☁player v] with ((item (1) of [☁player v]) + (1))\n        end\n    end\nend\n\ndefine ☁cloud set\nif <(item (1) of [☁cloud set v]) = (letter (1) of (☁ player1))> then\n    set [☁ player1 v] to [0]\n    if <(☁ player) = [0]> then\n        set [☁ player v] to [1]\n    end\nend\nif <(item (2) of [☁cloud set v]) = (letter (1) of (☁ player2))> then\n    set [☁ player2 v] to [0]\n    if <(☁ player) = [0]> then\n        set [☁ player v] to [2]\n    end\nend\nif <(item (3) of [☁cloud set v]) = (letter (1) of (☁ player3))> then\n    set [☁ player3 v] to [0]\n    if <(☁ player) = [0]> then\n        set [☁ player v] to [3]\n    end\nend\nif <(item (4) of [☁cloud set v]) = (letter (1) of (☁ player4))> then\n    set [☁ player4 v] to [0]\n    if <(☁ player) = [0]> then\n        set [☁ player v] to [4]\n    end\nend\nif <(item (5) of [☁cloud set v]) = (letter (1) of (☁ player5))> then\n    set [☁ player5 v] to [0]\n    if <(☁ player) = [0]> then\n        set [☁ player v] to [5]\n    end\nend\nif <(item (6) of [☁cloud set v]) = (letter (1) of (☁ player6))> then\n    set [☁ player6 v] to [0]\n    if <(☁ player) = [0]> then\n        set [☁ player v] to [6]\n    end\nend\nif <(item (7) of [☁cloud set v]) = (letter (1) of (☁ player7))> then\n    set [☁ player7 v] to [0]\n    if <(☁ player) = [0]> then\n        set [☁ player v] to [7]\n    end\nend\nif <(item (8) of [☁cloud set v]) = (letter (1) of (☁ player8))> then\n    set [☁ player8 v] to [0]\n    if <(☁ player) = [0]> then\n        set [☁ player v] to [8]\n    end\nend\ndelete all of [☁cloud set v]\nadd (letter (1) of (☁ player1)) to [☁cloud set v]\nadd (letter (1) of (☁ player2)) to [☁cloud set v]\nadd (letter (1) of (☁ player3)) to [☁cloud set v]\nadd (letter (1) of (☁ player4)) to [☁cloud set v]\nadd (letter (1) of (☁ player5)) to [☁cloud set v]\nadd (letter (1) of (☁ player6)) to [☁cloud set v]\nadd (letter (1) of (☁ player7)) to [☁cloud set v]\nadd (letter (1) of (☁ player8)) to [☁cloud set v]\n\nwhen flag clicked\nReset\nbroadcast (start v)\n\ndefine 暗号化 (変数)\nreplace item (1) of [@変数 v] with [1]\nset [暗号化 v] to []\nrepeat (length of (変数))\n    if <(item # of (letter (item (1) of [@変数 v]) of (変数)) in [chars v]) < [10]> then\n        set [暗号化 v] to (join (暗号化) [0])\n    end\n    set [暗号化 v] to (join (暗号化) (item # of (letter (item (1) of [@変数 v]) of (変数)) in [chars v]))\n    replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (1))\nend\n\ndefine Reset\nset [☁ player v] to [0]\nset [name v] to [0]\nset [chat4 v] to [0]\nset [chat v] to []\nset [chat2 v] to []\nreplace item (1) of [chat v] with [0]\nset [軽量化3 v] to [0]\nset [軽量化2 v] to [0]\nset [time v] to [0]\nreplace item (13) of [@変数 v] with [1]\ndelete all of [☁cloud set v]\nset [二点間距離 v] to [100]\n暗号化 (username)\nset [user name v] to (暗号化)\ndelete all of [☁waku v]\nrepeat (8)\n    add [1] to [☁waku v]\nend\ndelete all of [☁cloud v]\nrepeat (4)\n    add [] to [☁cloud v]\nend\ndelete all of [☁player v]\nrepeat (187)\n    add [] to [☁player v]\nend\nreplace item (12) of [@変数 v] with [0]\ndelete all of [check point v]\ndelete all of [jump ramp v]\nset [checkpoint x v] to (初期x)\nset [checkpoint y v] to (初期y)\nset [x v] to (初期x)\nset [y v] to (初期y)\nset [x2 v] to (初期x)\nset [y2 v] to (初期y)\nset [cam x v] to (初期x)\nset [cam y v] to ((初期y) + (40))\nset [x eye v] to [0]\nset [y eye v] to [0]\nset [speed x v] to [0]\nset [speed y v] to [0]\nset [end v] to [0]\nset [direction v] to [0]\nset [direction v] to [45]\n\nwhen I receive [start v]\nforever\n    ☁cloud set\n    wait (.5) seconds\nend\n\nwhen I receive [start v]\nrepeat until <(二点間距離) < [40]>\n    押されたキー\n    ☁cloud\n    ☁player\n    背景描画\n    stage\n    stage当たり判定追加\n    Goal\n    stage描画\n    edit\n    move\n    cam (x) ((y) + (40))\n    end\n    Time\n    軽量化\n    chat\n    二点間距離 [1700] [-4300] (x) (y)\n    change [chat1 v] by (-1)\n    if <(chat1) < [0]> then\n        set [chat v] to []\n    end\nend\ngoal2\n\ndefine Goal\nif <<([abs v] of ((1700) - (cam x)) ) < [280]> and <([abs v] of ((-4300) - (cam y)) ) < [220]>> then\n    go to x: ((1700) - (cam x)) y: ((-4300) - (cam y))\n    set pen color to (#ffe900)\n    set pen size to (80)\n    repeat (80)\n        pen down\n        change pen (saturation v) by (-1)\n        change pen size by (-1)\n    end\n    pen up\nend\n\ndefine goal2\nset [x eye v] to [0]\nset [y eye v] to [0]\nset [speed x v] to [0]\nset [speed y v] to [0]\nreplace item (13) of [@変数 v] with [1]\nrepeat (50)\n    ☁player\n    背景描画\n    stage\n    stage当たり判定追加\n    Goal\n    stage描画\n    二点間距離 [1700] [-4300] (x) (y)\n    地点への向き [1700] [-4300] (x) (y)\n    point in direction (地点への向き)\n    turn right (65) degrees\n    change [x v] by (([sin v] of (direction) ) * ((二点間距離) / (2)))\n    change [y v] by (([cos v] of (direction) ) * ((二点間距離) / (2)))\n    replace item (13) of [@変数 v] with ((item (13) of [@変数 v]) + (-.02))\nend\nreplace item (13) of [@変数 v] with [\/V]\nrepeat (30)\n    ☁player\n    背景描画\n    stage\n    stage当たり判定追加\n    Goal\n    stage描画\nend\nset [x v] to [1780]\nset [y v] to [-3600]\nset [x2 v] to [1780]\nset [y2 v] to [-3600]\nreplace item (13) of [@変数 v] with [1]\n☁Best []\nforever\n    押されたキー\n    ☁Best [1]\n    delete all of [stage描画 v]\n    背景描画\n    stage\n    stage当たり判定追加\n    stage描画\n    move\n    cam [1780] [-3560]\n    Print | Pos ((1780) - (cam x)) ((-3460) - (cam y)) Size [20] Width [1] RGB [255] [0] [] Weight [1] CSpace [1] Align [c] Text [best time] [] [] []\n    Print | Pos ((1780) - (cam x)) ((-3500) - (cam y)) Size [15] Width [1] RGB [0] [0] [] Weight [1] CSpace [1] Align [c] Text (join (☁ Best  user) (join [ : ] (☁ Best))) [] [] []\n    Print | Pos ((1780) - (cam x)) ((-3540) - (cam y)) Size [20] Width [1] RGB [0] [] [255] Weight [1] CSpace [1] Align [c] Text [your time] [] [] []\n    Print | Pos ((1780) - (cam x)) ((-3580) - (cam y)) Size [15] Width [1] RGB [0] [0] [] Weight [1] CSpace [1] Align [c] Text ((round ((Time) * (1000))) / (1000)) [] [] []\nend\n\ndefine Time\nreplace item (1) of [@変数 v] with ((round ((Time) * (1000))) / (1000))\nreplace item (1) of [@変数 v] with ((round (((item (1) of [@変数 v]) - ([floor v] of (item (1) of [@変数 v]) )) * (1000))) / (1000))\nrepeat until <(length of (item (1) of [@変数 v])) = [5]>\n    if <(length of (item (1) of [@変数 v])) = [1]> then\n        replace item (1) of [@変数 v] with (join (item (1) of [@変数 v]) [.000])\n    else\n        replace item (1) of [@変数 v] with (join (item (1) of [@変数 v]) [0])\n    end\nend\nreplace item (1) of [@変数 v] with (join ([floor v] of ((round ((Time) * (1000))) / (1000)) ) (join (letter (2) of (item (1) of [@変数 v])) (join (letter (3) of (item (1) of [@変数 v])) (join (letter (4) of (item (1) of [@変数 v])) (letter (5) of (item (1) of [@変数 v]))))))\nPrint | Pos [-230] [155] Size [15] Width [1] RGB [0] [0] [0] Weight [1] CSpace [1] Align [] Text (join [Time ] (item (1) of [@変数 v])) [] [] []\nchange [time v] by (0.033333333333333333333333333333333333333333333333333333333333333333333333333333333333333333)\n\ndefine 軽量化\nif <<<(FPS4) > [4]> and <(軽量化3) = [0]>> or <(軽量化2) = [1]>> then\n    set [軽量化2 v] to [1]\n    set [軽量化3 v] to [1]\n    Print | Pos [170] [155] Size [15] Width [1] RGB [0] [] [] Weight [1] CSpace [1] Align [] Text (join [fps] ((FPS) - (1))) [] [] []\n    Print | Pos [] [155] Size [15] Width [1] RGB [245] [] [] Weight [1] CSpace [1] Align [c] Text [To speed up] [] [] []\n    Print | Pos [-50] [135] Size [9] Width [1] RGB [0] [] [] Weight [1] CSpace [1] Align [c] Text [off] [] [] []\n    Print | Pos [0] [135] Size [9] Width [1] RGB [0] [] [] Weight [1] CSpace [1] Align [c] Text [little] [] [] []\n    Print | Pos [50] [135] Size [9] Width [1] RGB [0] [] [] Weight [1] CSpace [1] Align [c] Text [big] [] [] []\n    set pen size to (4)\n    set pen color to (#ffffff)\n    go to x: (50) y: (120)\n    pen down\n    go to x: (-50) y: (120)\n    pen up\n    set pen size to (15)\n    go to x: (-50) y: (120)\n    repeat (3)\n        二点間距離 (x position) (y position) (mouse x) (mouse y)\n        if <<(二点間距離) < [7.5]> and <mouse down?>> then\n            set [軽量化 v] to (((-50) - (x position)) / (-50))\n        end\n        change x by (50)\n    end\n    go to x: (-50) y: (120)\n    repeat (3)\n        if <(軽量化) = (((-50) - (x position)) / (-50))> then\n            set pen color to (#ff0000)\n        else\n            set pen color to (#ffffff)\n        end\n        pen down\n        pen up\n        change x by (50)\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <key (space v) pressed?> then\n        if <(軽量化2) = [1]> then\n            set [軽量化2 v] to [0]\n        else\n            set [軽量化2 v] to [1]\n        end\n        wait until <not <key (space v) pressed?>>\n    end\nend\n\ndefine ☁Best (変数)\nif <(変数) = [1]> then\n    set [☁ best v] to []\n    set [☁ best  user v] to []\n    replace item (1) of [@変数 v] with [3]\n    repeat ((join (letter ((item (1) of [@変数 v]) + (-2)) of (☁ best time)) (letter ((item (1) of [@変数 v]) + (-1)) of (☁ best time))) / (2))\n        set [☁ best  user v] to (join (☁ Best  user) (item (join (letter (item (1) of [@変数 v]) of (☁ best time)) (letter ((item (1) of [@変数 v]) + (1)) of (☁ best time))) of [chars v]))\n        replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (2))\n    end\n    repeat until <(item (1) of [@変数 v]) > (length of (☁ best time))>\n        set [☁ best v] to (join (☁ Best) (letter (item (1) of [@変数 v]) of (☁ best time)))\n        replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (1))\n    end\n    set [☁ best v] to ((☁ Best) / (1000))\nelse\n    ☁Best [1]\n    if <<((round ((Time) * (1000))) / (1000)) < (☁ Best)> and <(length of (round ((Time) * (1000)))) = [5]>> then\n        if <(length of (user name)) < [10]> then\n            replace item (1) of [@変数 v] with (join (join [0] (length of (user name))) (user name))\n        else\n            replace item (1) of [@変数 v] with (join (length of (user name)) (user name))\n        end\n        replace item (1) of [@変数 v] with (join (item (1) of [@変数 v]) (round ((Time) * (1000))))\n        set [☁ best time v] to (item (1) of [@変数 v])\n        ☁Best [1]\n    end\nend\n\ndefine chat\nif <(chat4) = [1]> then\n    if <mouse down?> then\n        if <(mouse) = [0]> then\n            set [mouse v] to [1]\n        else\n            set [mouse v] to [2]\n        end\n    else\n        set [mouse v] to [0]\n    end\n    set pen color to (#808080)\n    set pen size to (20)\n    go to x: (-220) y: (100)\n    pen down\n    change x by (100)\n    change y by (-130)\n    change x by (-100)\n    change y by (130)\n    pen up\n    set pen color to (#ffffff)\n    set pen size to (20)\n    go to x: (-215) y: (80)\n    pen down\n    change x by (90)\n    change y by (-90)\n    change x by (-90)\n    change y by (90)\n    pen up\n    set pen size to (40)\n    change x by (20)\n    change y by (-10)\n    pen down\n    change y by (-70)\n    change x by (40)\n    change y by (70)\n    pen up\n    set pen size to (4)\n    go to x: (-223) y: (88)\n    pen down\n    change x by (106)\n    change y by (-106)\n    change x by (-106)\n    change y by (106)\n    pen up\n    replace item (2) of [chat v] with ((((item (1) of [chat v]) - ((item (1) of [chat v]) mod (15))) / (15)) + (3))\n    repeat (9)\n        if <<(item (2) of [chat v]) > [3]> and <not <(item (2) of [chat v]) > (length of [chat v])>>> then\n            Print | Pos [-175] ((((135) + ((item (1) of [chat v]) mod (15))) + ((item (1) of [chat v]) - ((item (1) of [chat v]) mod (15)))) + ((item (2) of [chat v]) * (-15))) Size [7] Width [1] RGB [0] [0] [0] Weight [1] CSpace [1] Align [c] Text (item (item (2) of [chat v]) of [chat v]) [] [] []\n            go to x: (a1) y: ((((140) + ((item (1) of [chat v]) mod (15))) + ((item (1) of [chat v]) - ((item (1) of [chat v]) mod (15)))) + ((item (2) of [chat v]) * (-15)))\n            二点間距離 (a1) (y position) (mouse x) (mouse y)\n            if <(二点間距離) < [7.5]> then\n                set [chat3 v] to [1]\n            else\n                二点間距離 (a2) (y position) (mouse x) (mouse y)\n                if <(二点間距離) < [7.5]> then\n                    set [chat3 v] to [1]\n                else\n                    if <<<(mouse x) > (a1)> and <(mouse x) < (a2)>> and <<(mouse y) < ((y position) + (7.5))> and <(mouse y) > ((y position) + (-7.5))>>> then\n                        set [chat3 v] to [1]\n                    else\n                        set [chat3 v] to [0]\n                    end\n                end\n            end\n            if <(chat3) = [1]> then\n                set pen color to (#000000)\n                set pen size to (15)\n                set pen (transparency v) to (100)\n                pen down\n                set pen (transparency v) to (80)\n                set x to (a2)\n                pen up\n                if <(mouse) = [1]> then\n                    set [chat v] to (item (item (2) of [chat v]) of [chat v])\n                    set [chat1 v] to [90]\n                end\n            end\n        end\n        replace item (2) of [chat v] with ((item (2) of [chat v]) + (1))\n    end\n    set pen color to (#808080)\n    set pen size to (30)\n    go to x: (-215) y: (105)\n    pen down\n    change x by (90)\n    pen up\n    set pen size to (20)\n    go to x: (-220) y: (-30)\n    pen down\n    change x by (100)\n    pen up\n    Print | Pos [-170] [100] Size [10] Width [1] RGB [255] [255] [255] Weight [1] CSpace [1] Align [c] Text [chat] [] [] []\n    set pen color to (#333333)\n    set pen size to (8)\n    go to x: (-122) y: (5)\n    pen down\n    change y by (60)\n    pen up\n    set pen color to (#676767)\n    set pen size to (8)\n    go to x: (-122) y: ((65) - (((item (1) of [chat v]) / (15)) * (50)))\n    pen down\n    change y by (-10)\n    pen up\n    if <(mouse) = [1]> then\n        二点間距離 [-122] (y position) (mouse x) (mouse y)\n        if <(二点間距離) < [4]> then\n            set [chat2 v] to (mouse y)\n            replace item (3) of [chat v] with (((item (1) of [chat v]) / (15)) * (50))\n        else\n            二点間距離 [-122] ((y position) + (10)) (mouse x) (mouse y)\n            if <(二点間距離) < [4]> then\n                set [chat2 v] to (mouse y)\n                replace item (3) of [chat v] with (((item (1) of [chat v]) / (15)) * (50))\n            else\n                if <<<(mouse x) < [-118]> and <(mouse x) > [-127]>> and <<(mouse y) < ((y position) + (10))> and <(mouse y) > (y position)>>> then\n                    set [chat2 v] to (mouse y)\n                    replace item (3) of [chat v] with (((item (1) of [chat v]) / (15)) * (50))\n                end\n            end\n        end\n    else\n        if <(mouse) = [2]> then\n            if <not <(chat2) = []>> then\n                replace item (1) of [chat v] with ((item (3) of [chat v]) + ((chat2) - (mouse y)))\n                if <(item (1) of [chat v]) < [0]> then\n                    replace item (1) of [chat v] with [0]\n                else\n                    if <(item (1) of [chat v]) > [50]> then\n                        replace item (1) of [chat v] with [50]\n                    end\n                end\n                replace item (1) of [chat v] with ((15) * ((item (1) of [chat v]) / (50)))\n            end\n        else\n            set [chat2 v] to []\n        end\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <key (c v) pressed?> then\n        if <(chat4) = [1]> then\n            set [chat4 v] to [0]\n        else\n            set [chat4 v] to [1]\n        end\n        wait until <not <key (c v) pressed?>>\n    end\nend\n\nwhen I receive [start v]\nforever\n    if <key (n v) pressed?> then\n        if <(name) = [1]> then\n            set [name v] to [0]\n        else\n            set [name v] to [1]\n        end\n        wait until <not <key (n v) pressed?>>\n    end\nend\n\ndefine 押されたキー\nreplace item (1) of [押されたキー v] with <<key (right arrow v) pressed?> or <key (d v) pressed?>>\nreplace item (2) of [押されたキー v] with <<key (left arrow v) pressed?> or <key (a v) pressed?>>\nreplace item (3) of [押されたキー v] with <<key (up arrow v) pressed?> or <key (w v) pressed?>>\nreplace item (4) of [押されたキー v] with <<key (down arrow v) pressed?> or <key (s v) pressed?>>\n\nwhen I receive [start v]\nforever\n    if <<key (r v) pressed?> and <(end) = [0]>> then\n        set [end v] to [1]\n        wait until <<not <key (r v) pressed?>> and <(end) = [0]>>\n    end\nend\n\n
NEW GAME OUT : https://scratch.mit.edu/projects/1018228500/\n\nPlease play on https://turbowarp.org/958044257?\nWASD / Arrow keys to move. Avoid spikes and saws.\nReset level allows you to change the level dimensions but will delete the level.\n\nv0.1 - Initial release\nv0.2 - Main Menu\nv0.3 - Character Select\nv0.4 - New portals\nv0.41 - Fixed a bug where you can stick to the ceiling in reverse gravity mode.\nv0.5 - New Ball Gamemode\nv0.6 - Mobile Editor\nv0.61 - Fixed major lag issue\nv0.7 - Added jump orbs and pads\nv0.71 - Fixed pulsator issue\nv0.8 - End of level and Noclip\nv0.81 - ?\nv0.9 - Checkpoints!\nv1.0 - Robot Gamemode\nv1.01 - Fixed a bug with checkpoints\nv1.05 - Added reset level button\nv1.1 - Level select\nv1.2 - Color triggers\nv1.3 - Object Rotation\nv1.31 - Fixed a bug where the player slides everywhere\nv1.4 - Dash Orbs\nv1.41 - Fixed a bug where ball doesn't work