☁【100%PEN】Online Platformer


@Stage\n\ndelete all of [プレイヤー当たり判定 v]\nadd [0] to [プレイヤー当たり判定 v]\nadd [31] to [プレイヤー当たり判定 v]\nadd [31] to [プレイヤー当たり判定 v]\nadd [31] to [プレイヤー当たり判定 v]\nadd [31] to [プレイヤー当たり判定 v]\nadd [0] to [プレイヤー当たり判定 v]\nadd [0] to [プレイヤー当たり判定 v]\nadd [0] to [プレイヤー当たり判定 v]\n\n@1\n\ndefine ブロック作成 (x) (y) (変数x) (変数y) (block) (x)\nset pen (saturation v) to (0)\nset pen (brightness v) to (0)\nset pen (transparency v) to (0)\nif <(block) = [5]> then\n    replace item (12) of [@変数ステージ v] with <<<(item (8) of [@変数ステージ v]) = (変数x)> and <(item (9) of [@変数ステージ v]) = (変数y)>> or <<(item (10) of [@変数ステージ v]) = (変数x)> and <(item (11) of [@変数ステージ v]) = (変数y)>>>\n    set pen color to (#e8c900)\n    set pen size to (5)\n    go to x: ((x) + (-11)) y: ((y) + (-11))\n    pen down\n    go to x: ((x) + (11)) y: ((y) + (((item (6) of [@変数ステージ v]) * (item (12) of [@変数ステージ v])) + (11)))\n    pen up\n    go to x: ((x) + (11)) y: ((y) + (-11))\n    pen down\n    go to x: ((x) + (-11)) y: ((y) + (((item (6) of [@変数ステージ v]) * (item (12) of [@変数ステージ v])) + (11)))\n    pen up\n    set pen color to (#e8aa00)\n    set pen size to (2)\n    set y to ((y) + (((item (6) of [@変数ステージ v]) * (item (12) of [@変数ステージ v])) + (15)))\n    repeat (3)\n        set x to ((x) + (-15))\n        pen down\n        set x to ((x) + (15))\n        pen up\n        change y by (-2)\n    end\n    set y to ((y) + (-15))\n    repeat (3)\n        set x to ((x) + (-15))\n        pen down\n        set x to ((x) + (15))\n        pen up\n        change y by (2)\n    end\n    go to x: (x) y: (y)\nelse\n    if <<(block) = [3]> or <(block) = [4]>> then\n        replace item (3) of [@変数ステージ v] with ((item (2) of [@変数ステージ v]) + (-1))\n        replace item (4) of [@変数ステージ v] with [0]\n        if <not <<not <((y) + (32)) > [224]>> and <(letter (item (3) of [@変数ステージ v]) of (item (item (1) of [@変数ステージ v]) of [stage data v])) = (block)>>> then\n            replace item (3) of [@変数ステージ v] with ((item (2) of [@変数ステージ v]) + (1))\n            repeat until <not <(letter (item (3) of [@変数ステージ v]) of (item (item (1) of [@変数ステージ v]) of [stage data v])) = (block)>>\n                replace item (4) of [@変数ステージ v] with ((item (4) of [@変数ステージ v]) + (1))\n                replace item (3) of [@変数ステージ v] with ((item (3) of [@変数ステージ v]) + (1))\n            end\n            replace item (3) of [@変数ステージ v] with ((item (2) of [@変数ステージ v]) + (-1))\n            set pen size to (2)\n            if <(block) = [3]> then\n                set pen color to (#00ffff)\n                set pen (transparency v) to (80)\n            else\n                set pen color to (#ff0000)\n            end\n            if <<<(y) > [192]> and <(letter (item (3) of [@変数ステージ v]) of (item (item (1) of [@変数ステージ v]) of [stage data v])) = (block)>> or <not <((letter (item (3) of [@変数ステージ v]) of (item (item (1) of [@変数ステージ v]) of [stage data v])) + (0)) = [0]>>> then\n                set x to ((x) - (15))\n                repeat (16)\n                    set y to ((y) + (15))\n                    pen down\n                    set y to ((y) - ((15) + ((item (4) of [@変数ステージ v]) * (32))))\n                    pen up\n                    change x by (2)\n                end\n            else\n                replace item (5) of [@変数ステージ v] with [0]\n                set x to ((x) - (15))\n                repeat (16)\n                    set pen (transparency v) to (100)\n                    if <(block) = [3]> then\n                        set y to (((y) + (10)) + (([sin v] of ((((x) * (32)) + (item (5) of [@変数ステージ v])) + ((timer) * (150))) ) * (3)))\n                    else\n                        set y to (((y) + (10)) + (([sin v] of ((((x) * (32)) + (item (5) of [@変数ステージ v])) + ((timer) * (100))) ) * (3)))\n                    end\n                    pen down\n                    if <(block) = [3]> then\n                        set pen color to (#00ffff)\n                        set pen (transparency v) to (80)\n                    else\n                        set pen color to (#ff0000)\n                    end\n                    set y to ((y) - ((15) + ((item (4) of [@変数ステージ v]) * (32))))\n                    pen up\n                    change x by (2)\n                    replace item (5) of [@変数ステージ v] with ((item (5) of [@変数ステージ v]) + (2))\n                end\n            end\n            go to x: (x) y: (y)\n        end\n    else\n        if <(block) = [6]> then\n            go to x: ((x) + (-6)) y: (y)\n            replace item (5) of [@変数ステージ v] with [0]\n            if <<(((item (16) of [@変数 v]) / (32)) + (8)) = (変数x)> and <((((item (17) of [@変数 v]) * (-1)) / (32)) + (8)) = (変数y)>> then\n                set pen color to (#2aff00)\n            else\n                set pen color to (#ff0000)\n            end\n            set pen size to (1)\n            repeat (15)\n                set y to ((([sin v] of (((item (5) of [@変数ステージ v]) * (5)) + ((timer) * (100))) ) * ((item (5) of [@変数ステージ v]) / (3))) + ((-6) + (y)))\n                pen down\n                set y to ((([sin v] of (((item (5) of [@変数ステージ v]) * (5)) + ((timer) * (100))) ) * ((item (5) of [@変数ステージ v]) / (3))) + ((6) + (y)))\n                pen up\n                change x by (1)\n                replace item (5) of [@変数ステージ v] with ((item (5) of [@変数ステージ v]) + (1))\n            end\n            go to x: ((x) + (-7)) y: ((y) + (11))\n            set pen color to (#f1ad1d)\n            set pen size to (6)\n            pen down\n            go to x: ((x) + (-7)) y: ((y) + (-13))\n            pen up\n            go to x: ((x) + (-7)) y: ((y) + (11))\n            set pen color to (#e4c500)\n            set pen size to (10)\n            pen down\n            pen up\n        else\n            if <<(block) = [1]> or <(block) = [2]>> then\n                set pen color to (#dc8a3e)\n            end\n            set pen size to (2)\n            go to x: ((x) - (15)) y: ((y) + (15))\n            pen down\n            go to x: ((x) + (15)) y: ((y) + (15))\n            go to x: ((x) + (15)) y: ((y) - (15))\n            go to x: ((x) - (15)) y: ((y) - (15))\n            go to x: ((x) - (15)) y: ((y) + (15))\n            pen up\n            set pen size to (4)\n            go to x: ((x) - (13)) y: ((y) + (13))\n            pen down\n            go to x: ((x) + (13)) y: ((y) + (13))\n            go to x: ((x) + (13)) y: ((y) - (13))\n            go to x: ((x) - (13)) y: ((y) - (13))\n            go to x: ((x) - (13)) y: ((y) + (13))\n            pen up\n            go to x: (x) y: (y)\n            set pen size to (32)\n            pen down\n            pen up\n            if <(block) = [1]> then\n                set pen size to (2)\n                set pen color to (#2aff00)\n                go to x: ((x) - (15)) y: ((y) + (15))\n                pen down\n                go to x: ((x) + (15)) y: ((y) + (15))\n                go to x: ((x) + (15)) y: ((y) - (-5))\n                go to x: ((x) - (15)) y: ((y) - (-5))\n                go to x: ((x) - (15)) y: ((y) + (13))\n                pen up\n                set pen size to (4)\n                go to x: ((x) - (14)) y: ((y) + (14))\n                pen down\n                go to x: ((x) + (14)) y: ((y) + (14))\n                go to x: ((x) + (14)) y: ((y) - (-6))\n                go to x: ((x) - (14)) y: ((y) - (-6))\n                go to x: ((x) - (14)) y: ((y) + (14))\n                pen up\n                go to x: ((x) - (10)) y: ((y) + (10))\n                set pen size to (10)\n                pen down\n                go to x: ((x) + (10)) y: ((y) + (10))\n                pen up\n                go to x: (x) y: (y)\n            end\n        end\n    end\nend\ngo to x: (x) y: (y)\n\ndefine ステージ描画 (プレイヤースキン)\n変数更新\nreplace item (1) of [@変数ステージ v] with (item (3) of [@変数 v])\n当たり判定確認 (item (10) of [@変数 v]) (item (11) of [@変数 v]) [1]\nerase all\ngo to x: (0) y: (0)\nset pen size to (1000)\nset pen color to (#d7fdff)\npen down\npen up\n他のプレイヤー描画\nreplace item (6) of [@変数ステージ v] with ((item (6) of [@変数ステージ v]) + (item (7) of [@変数ステージ v]))\nif <(item (7) of [@変数ステージ v]) = [-8]> then\n    replace item (6) of [@変数ステージ v] with [0]\nelse\n    replace item (7) of [@変数ステージ v] with ((item (7) of [@変数ステージ v]) + (-1))\nend\nif <<(プレイヤースキン) = []> and <(item (3) of [触れているブロック v]) or (item (4) of [触れているブロック v])>> then\n    プレイヤースキン (item (10) of [@変数 v]) (item (11) of [@変数 v]) [100] []\nend\ngo to x: (((item (4) of [@変数 v]) * (-1)) + (-256)) y: ((item (6) of [@変数 v]) + (224))\nrepeat (17)\n    replace item (2) of [@変数ステージ v] with (item (5) of [@変数 v])\n    repeat (14)\n        if <not <((letter (item (2) of [@変数ステージ v]) of (item (item (1) of [@変数ステージ v]) of [stage data v])) + (0)) = [0]>> then\n            ブロック作成 (x position) (y position) (item (1) of [@変数ステージ v]) (item (2) of [@変数ステージ v]) (letter (item (2) of [@変数ステージ v]) of (item (item (1) of [@変数ステージ v]) of [stage data v])) (item (1) of [@変数ステージ v])\n        end\n        change y by (-32)\n        replace item (2) of [@変数ステージ v] with ((item (2) of [@変数ステージ v]) + (1))\n    end\n    change x by (32)\n    set y to ((item (6) of [@変数 v]) + (224))\n    replace item (1) of [@変数ステージ v] with ((item (1) of [@変数ステージ v]) + (1))\nend\nif <<(プレイヤースキン) = []> and <not <(item (3) of [触れているブロック v]) or (item (4) of [触れているブロック v])>>> then\n    プレイヤースキン (item (10) of [@変数 v]) (item (11) of [@変数 v]) [100] []\nend\nif <<(プレイヤースキン) = []> and <[] = [50]>> then\n    PEN (username) ((item (10) of [@変数 v]) - (((length of (username)) / (2)) * (15))) ((item (11) of [@変数 v]) + (35)) [2] [] [4]\nend\n\nwhen flag clicked\ndelete all of [他のプレイヤー v]\nrepeat (130)\n    add [] to [他のプレイヤー v]\nend\ndelete all of [ゴールエフェクト v]\ndelete all of [クラウド更新 v]\nrepeat (10)\n    add [0] to [クラウド更新 v]\nend\ndelete all of [@変数 v]\nrepeat (22)\n    add [0] to [@変数 v]\nend\ndelete all of [@変数ステージ v]\nreplace item (1) of [@変数 v] with [64]\nreplace item (2) of [@変数 v] with [-2656]\nreplace item (16) of [@変数 v] with [64]\nreplace item (17) of [@変数 v] with [-2656]\nreplace item (19) of [@変数 v] with []\nrepeat (12)\n    add [0] to [@変数ステージ v]\nend\nreplace item (7) of [@変数ステージ v] with [-8]\ndelete all of [当たり判定用 v]\nrepeat (6)\n    add [0] to [当たり判定用 v]\nend\ndelete all of [触れているブロック v]\nrepeat (6)\n    add [false] to [触れているブロック v]\nend\nステージ描画 [1]\nユーザー名保存\nプレイヤー確認\n#player\nbroadcast (スタート v)\n\ndefine 動く\n押されているキー\n当たり判定確認 (item (10) of [@変数 v]) (item (11) of [@変数 v]) []\nif (item (3) of [触れているブロック v]) then\n    replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) + (-1))\n    replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) * (.8))\nelse\n    replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) + (-1))\nend\nif (item (1) of [押されているキー v]) then\n    replace item (8) of [@変数 v] with ((item (8) of [@変数 v]) + (.7))\n    if <<(item (14) of [@変数 v]) = [4]> and (item (3) of [押されているキー v])> then\n        replace item (8) of [@変数 v] with [12]\n        replace item (9) of [@変数 v] with [12]\n        replace item (14) of [@変数 v] with [2]\n    end\nend\nif (item (2) of [押されているキー v]) then\n    replace item (8) of [@変数 v] with ((item (8) of [@変数 v]) + (-.7))\n    if <<(item (14) of [@変数 v]) = [3]> and (item (3) of [押されているキー v])> then\n        replace item (8) of [@変数 v] with [-12]\n        replace item (9) of [@変数 v] with [12]\n        replace item (14) of [@変数 v] with [2]\n    end\nend\nif (item (3) of [触れているブロック v]) then\n    replace item (8) of [@変数 v] with ((item (8) of [@変数 v]) * (.86))\nelse\n    replace item (8) of [@変数 v] with ((item (8) of [@変数 v]) * (.9))\nend\nreplace item (10) of [@変数 v] with ((item (10) of [@変数 v]) + (round (item (8) of [@変数 v])))\n当たり判定確認 (item (10) of [@変数 v]) (item (11) of [@変数 v]) []\nif <(item (1) of [触れているブロック v]) or <(item (2) of [触れているブロック v]) or (item (5) of [触れているブロック v])>> then\n    replace item (10) of [@変数 v] with ((item (10) of [@変数 v]) - (round (item (8) of [@変数 v])))\n    座標調整 [1]\n    if <(item (1) of [触れているブロック v]) or (item (2) of [触れているブロック v])> then\n        if <(item (8) of [@変数 v]) < [0]> then\n            replace item (14) of [@変数 v] with [4]\n        else\n            replace item (14) of [@変数 v] with [3]\n        end\n    else\n        replace item (14) of [@変数 v] with [2]\n    end\n    replace item (8) of [@変数 v] with [0]\nend\nif <<(item (14) of [@変数 v]) = [3]> or <(item (14) of [@変数 v]) = [4]>> then\n    if (item (4) of [押されているキー v]) then\n        replace item (14) of [@変数 v] with [2]\n    else\n        replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (<(item (14) of [@変数 v]) = [3]> + (<(item (14) of [@変数 v]) = [4]> * (-1))))\n        当たり判定確認 (item (10) of [@変数 v]) (item (11) of [@変数 v]) []\n        if <(item (1) of [触れているブロック v]) or <(item (2) of [触れているブロック v]) or (item (5) of [触れているブロック v])>> then\n            if <not (item (5) of [触れているブロック v])> then\n                if <(item (9) of [@変数 v]) < [-4]> then\n                    replace item (9) of [@変数 v] with [-4]\n                end\n            end\n        else\n            replace item (14) of [@変数 v] with [2]\n        end\n        replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + ((<(item (14) of [@変数 v]) = [3]> * (-1)) + <(item (14) of [@変数 v]) = [4]>))\n    end\nend\nreplace item (11) of [@変数 v] with ((item (11) of [@変数 v]) + (round (item (9) of [@変数 v])))\n当たり判定確認 (item (10) of [@変数 v]) (item (11) of [@変数 v]) []\nif <(item (1) of [触れているブロック v]) or <(item (2) of [触れているブロック v]) or (item (5) of [触れているブロック v])>> then\n    replace item (11) of [@変数 v] with ((item (11) of [@変数 v]) - (round (item (9) of [@変数 v])))\n    座標調整 [2]\n    replace item (9) of [@変数 v] with [0]\nend\nreplace item (2) of [@変数 v] with ((item (2) of [@変数 v]) + (round (((item (11) of [@変数 v]) + (round (item (9) of [@変数 v]))) / (10))))\nreplace item (11) of [@変数 v] with ((item (11) of [@変数 v]) - (round (((item (11) of [@変数 v]) + (round (item (9) of [@変数 v]))) / (10))))\nreplace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (round (((item (10) of [@変数 v]) + (round (item (8) of [@変数 v]))) / (8))))\nreplace item (10) of [@変数 v] with ((item (10) of [@変数 v]) - (round (((item (10) of [@変数 v]) + (round (item (8) of [@変数 v]))) / (8))))\nreplace item (2) of [@変数 v] with ((item (2) of [@変数 v]) + (-1))\n当たり判定確認 (item (10) of [@変数 v]) (item (11) of [@変数 v]) []\nif <(item (1) of [触れているブロック v]) or <(item (2) of [触れているブロック v]) or (item (3) of [触れているブロック v])>> then\n    if (item (3) of [押されているキー v]) then\n        if (item (3) of [触れているブロック v]) then\n            if <(item (1) of [触れているブロック v]) or (item (2) of [触れているブロック v])> then\n                replace item (2) of [@変数 v] with ((item (2) of [@変数 v]) + (1))\n                当たり判定確認 (item (10) of [@変数 v]) (item (11) of [@変数 v]) []\n                if (item (3) of [触れているブロック v]) then\n                    replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) + (1))\n                    replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) * (1.2))\n                else\n                    replace item (9) of [@変数 v] with [13]\n                end\n                replace item (2) of [@変数 v] with ((item (2) of [@変数 v]) + (-1))\n            else\n                replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) + (1))\n                replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) * (1.2))\n            end\n        else\n            replace item (9) of [@変数 v] with [13]\n        end\n    end\n    replace item (14) of [@変数 v] with [1]\nelse\n    if <not <<(item (14) of [@変数 v]) = [3]> or <(item (14) of [@変数 v]) = [4]>>> then\n        replace item (14) of [@変数 v] with [2]\n    end\nend\nreplace item (2) of [@変数 v] with ((item (2) of [@変数 v]) + (1))\nif (item (5) of [触れているブロック v]) then\n    replace item (9) of [@変数 v] with [17]\n    replace item (6) of [@変数ステージ v] with [0]\n    replace item (7) of [@変数ステージ v] with [7]\n    replace item (8) of [@変数ステージ v] with (item (1) of [ばねに触れた v])\n    replace item (9) of [@変数ステージ v] with (item (2) of [ばねに触れた v])\n    replace item (10) of [@変数ステージ v] with (item (3) of [ばねに触れた v])\n    replace item (11) of [@変数ステージ v] with (item (4) of [ばねに触れた v])\nend\nif <(item (11) of [@変数 v]) < [-80]> then\n    replace item (2) of [@変数 v] with ((item (2) of [@変数 v]) - ((-80) - (item (11) of [@変数 v])))\n    replace item (11) of [@変数 v] with [-80]\nend\n\ndefine 変数更新\nreplace item (3) of [@変数 v] with (((item (1) of [@変数 v]) - ((item (1) of [@変数 v]) mod (32))) / (32))\nreplace item (4) of [@変数 v] with ((item (1) of [@変数 v]) mod (32))\nreplace item (5) of [@変数 v] with ((((item (2) of [@変数 v]) - ((item (2) of [@変数 v]) mod (32))) / (32)) * (-1))\nreplace item (6) of [@変数 v] with (((item (2) of [@変数 v]) mod (32)) * (-1))\n\ndefine 当たり判定確認 (x) (y) (アクション)\ndelete all of [ばねに触れた v]\nrepeat until <(item # of [true] in [触れているブロック v]) = [0]>\n    replace item (item # of [true] in [触れているブロック v]) of [触れているブロック v] with [false]\nend\nreplace item (12) of [@変数 v] with [1]\nrepeat ((length of [プレイヤー当たり判定 v]) / (2))\n    replace item (1) of [当たり判定用 v] with (((item (1) of [@変数 v]) + (item (item (12) of [@変数 v]) of [プレイヤー当たり判定 v])) + (item (10) of [@変数 v]))\n    replace item (2) of [当たり判定用 v] with ((((item (1) of [当たり判定用 v]) - ((item (1) of [当たり判定用 v]) mod (32))) / (32)) + (8))\n    replace item (3) of [当たり判定用 v] with (((item (2) of [@変数 v]) + (item ((item (12) of [@変数 v]) + (1)) of [プレイヤー当たり判定 v])) + (item (11) of [@変数 v]))\n    replace item (4) of [当たり判定用 v] with (((((item (3) of [当たり判定用 v]) - ((item (3) of [当たり判定用 v]) mod (32))) / (32)) * (-1)) + (7))\n    replace item (5) of [当たり判定用 v] with (letter (item (4) of [当たり判定用 v]) of (item (item (2) of [当たり判定用 v]) of [stage data v]))\n    replace item (item (5) of [当たり判定用 v]) of [触れているブロック v] with [true]\n    replace item (12) of [@変数 v] with ((item (12) of [@変数 v]) + (2))\n    if <(アクション) = []> then\n        if <(item (5) of [当たり判定用 v]) = [5]> then\n            if <<(item # of (item (2) of [当たり判定用 v]) in [ばねに触れた v]) = [0]> or <not <(item ((item # of (item (2) of [当たり判定用 v]) in [ばねに触れた v]) + (1)) of [ばねに触れた v]) = (item (4) of [当たり判定用 v])>>> then\n                add (item (2) of [当たり判定用 v]) to [ばねに触れた v]\n                add (item (4) of [当たり判定用 v]) to [ばねに触れた v]\n            end\n        end\n        if <(item (5) of [当たり判定用 v]) = [6]> then\n            replace item (16) of [@変数 v] with (((item (2) of [当たり判定用 v]) * (32)) + (-256))\n            replace item (17) of [@変数 v] with ((((item (4) of [当たり判定用 v]) * (32)) + (-256)) * (-1))\n        end\n    end\nend\n\ndefine プレイヤースキン (x) (y) (大きさ) (他のプレイヤー)\ngo to x: ((x) + ((-12) * ((大きさ) / (100)))) y: ((y) + ((12) * ((大きさ) / (100))))\nif <(他のプレイヤー) = []> then\n    set pen color to (#4dda31)\nelse\n    set pen color to (#6331da)\nend\nset pen size to ((8) * ((大きさ) / (100)))\npen down\ngo to x: ((x) + ((-12) * ((大きさ) / (100)))) y: ((y) + ((-12) * ((大きさ) / (100))))\ngo to x: ((x) + ((12) * ((大きさ) / (100)))) y: ((y) + ((-12) * ((大きさ) / (100))))\ngo to x: ((x) + ((12) * ((大きさ) / (100)))) y: ((y) + ((12) * ((大きさ) / (100))))\ngo to x: ((x) + ((-12) * ((大きさ) / (100)))) y: ((y) + ((12) * ((大きさ) / (100))))\npen up\ngo to x: (x) y: (y)\nset pen color to (#ffffff)\nset pen size to ((24) * ((大きさ) / (100)))\npen down\npen up\ngo to x: (x) y: (y)\nset pen color to (#000000)\nset pen size to ((12) * ((大きさ) / (100)))\npen down\npen up\ngo to x: ((x) + ((2) * ((大きさ) / (100)))) y: ((y) + ((3) * ((大きさ) / (100))))\nset pen color to (#ffffff)\nset pen size to ((4) * ((大きさ) / (100)))\npen down\npen up\ngo to x: (x) y: (y)\n\ndefine 座標調整 (xかy)\nreplace item (13) of [@変数 v] with [2]\nrepeat until <(round ((item ((8) + ((xかy) - (1))) of [@変数 v]) / (item (13) of [@変数 v]))) = [0]>\n    replace item ((10) + ((xかy) - (1))) of [@変数 v] with ((item ((10) + ((xかy) - (1))) of [@変数 v]) + (round ((item ((8) + ((xかy) - (1))) of [@変数 v]) / (item (13) of [@変数 v]))))\n    当たり判定確認 (item (10) of [@変数 v]) (item (11) of [@変数 v]) []\n    if <(item (1) of [触れているブロック v]) or <(item (2) of [触れているブロック v]) or (item (5) of [触れているブロック v])>> then\n        replace item ((10) + ((xかy) - (1))) of [@変数 v] with ((item ((10) + ((xかy) - (1))) of [@変数 v]) - (round ((item ((8) + ((xかy) - (1))) of [@変数 v]) / (item (13) of [@変数 v]))))\n    end\n    replace item (13) of [@変数 v] with ((item (13) of [@変数 v]) + (2))\nend\n\ndefine スクロール (x) (y) (初期タイム)\nrepeat until <<([abs v] of (round (((x) - (item (1) of [@変数 v])) / (10))) ) < [1]> and <([abs v] of (round (((y) - (item (2) of [@変数 v])) / (10))) ) < [1]>>\n    replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (round (((x) - (item (1) of [@変数 v])) / (10))))\n    replace item (2) of [@変数 v] with ((item (2) of [@変数 v]) + (round (((y) - (item (2) of [@変数 v])) / (10))))\n    ステージ描画 [1]\n    ゴール描画\n    PEN (([floor v] of (((timer) - (初期タイム)) * (1000)) ) / (1000)) [-225] [155] [3] [] [4]\n    クラウド更新 [1]\nend\nスクロール2 (x) (y) (初期タイム)\n\ndefine PEN (text) (x) (y) (size) (data) (太さ)\ndelete all of [pen@変数 v]\nrepeat (10)\n    add [] to [pen@変数 v]\nend\nset pen size to (((size) + (太さ)) / (2.5))\nset pen color to (#000000)\nreplace item (7) of [pen@変数 v] with [1]\nif <(data) = []> then\n    replace item (9) of [pen@変数 v] with (length of (text))\nelse\n    replace item (9) of [pen@変数 v] with ((length of (data)) / (2))\nend\nrepeat (item (9) of [pen@変数 v])\n    if <(data) = []> then\n        replace item (8) of [pen@変数 v] with (item # of (letter (item (7) of [pen@変数 v]) of (text)) in [pen:letter v])\n    else\n        replace item (8) of [pen@変数 v] with ((join (((item (7) of [pen@変数 v]) * (2)) - (1)) ((item (7) of [pen@変数 v]) * (2))) + ())\n    end\n    replace item (1) of [pen@変数 v] with [1]\n    replace item (2) of [pen@変数 v] with (letter (item (1) of [pen@変数 v]) of (item (item (8) of [pen@変数 v]) of [pen:data v]))\n    if <(item (2) of [pen@変数 v]) = [-]> then\n        replace item (1) of [pen@変数 v] with ((item (1) of [pen@変数 v]) + (1))\n        replace item (2) of [pen@変数 v] with (join (item (2) of [pen@変数 v]) (letter (item (1) of [pen@変数 v]) of (item (item (8) of [pen@変数 v]) of [pen:data v])))\n    end\n    replace item (1) of [pen@変数 v] with ((item (1) of [pen@変数 v]) + (1))\n    replace item (3) of [pen@変数 v] with (letter (item (1) of [pen@変数 v]) of (item (item (8) of [pen@変数 v]) of [pen:data v]))\n    if <(item (3) of [pen@変数 v]) = [-]> then\n        replace item (1) of [pen@変数 v] with ((item (1) of [pen@変数 v]) + (1))\n        replace item (3) of [pen@変数 v] with (join (item (3) of [pen@変数 v]) (letter (item (1) of [pen@変数 v]) of (item (item (8) of [pen@変数 v]) of [pen:data v])))\n    end\n    replace item (1) of [pen@変数 v] with ((item (1) of [pen@変数 v]) + (1))\n    repeat until <(length of (item (item (8) of [pen@変数 v]) of [pen:data v])) < (item (1) of [pen@変数 v])>\n        replace item (4) of [pen@変数 v] with (letter (item (1) of [pen@変数 v]) of (item (item (8) of [pen@変数 v]) of [pen:data v]))\n        if <(item (4) of [pen@変数 v]) = [@]> then\n            replace item (1) of [pen@変数 v] with ((item (1) of [pen@変数 v]) + (1))\n            replace item (4) of [pen@変数 v] with []\n            pen up\n        else\n            if <(item (4) of [pen@変数 v]) = [-]> then\n                replace item (1) of [pen@変数 v] with ((item (1) of [pen@変数 v]) + (1))\n                replace item (4) of [pen@変数 v] with (join (item (4) of [pen@変数 v]) (letter (item (1) of [pen@変数 v]) of (item (item (8) of [pen@変数 v]) of [pen:data v])))\n            end\n            replace item (1) of [pen@変数 v] with ((item (1) of [pen@変数 v]) + (1))\n            replace item (5) of [pen@変数 v] with (letter (item (1) of [pen@変数 v]) of (item (item (8) of [pen@変数 v]) of [pen:data v]))\n            if <(item (5) of [pen@変数 v]) = [-]> then\n                replace item (1) of [pen@変数 v] with ((item (1) of [pen@変数 v]) + (1))\n                replace item (5) of [pen@変数 v] with (join (item (5) of [pen@変数 v]) (letter (item (1) of [pen@変数 v]) of (item (item (8) of [pen@変数 v]) of [pen:data v])))\n            end\n            replace item (1) of [pen@変数 v] with ((item (1) of [pen@変数 v]) + (1))\n            go to x: ((x) + (((item (5) of [pen@変数 v]) * ((size) * (1.25))) + ((item (6) of [pen@変数 v]) - ((item (2) of [pen@変数 v]) * ((size) * (1.25)))))) y: ((y) + ((item (4) of [pen@変数 v]) * ((size) * (1.25))))\n            pen down\n            replace item (4) of [pen@変数 v] with []\n            replace item (5) of [pen@変数 v] with []\n        end\n    end\n    pen up\n    replace item (6) of [pen@変数 v] with ((item (6) of [pen@変数 v]) + ((((item (3) of [pen@変数 v]) * ((size) * (1.25))) - ((item (2) of [pen@変数 v]) * ((size) * (1.25)))) + ((size) * (2.5))))\n    replace item (7) of [pen@変数 v] with ((item (7) of [pen@変数 v]) + (1))\nend\n\ndefine ゴール描画\nif <<([abs v] of ((((item (1) of [@変数ステージ v]) * (-32)) + (6418)) - (item (4) of [@変数 v])) ) < [245]> and <([abs v] of ((((item (2) of [@変数ステージ v]) * (32)) + (-3182)) + (item (6) of [@変数 v])) ) < [300]>> then\n    set pen size to (4)\n    set pen color to (#fff600)\n    go to x: ((((item (1) of [@変数ステージ v]) * (-32)) + (6418)) - (item (4) of [@変数 v])) y: ((((item (2) of [@変数ステージ v]) * (32)) + (-3182)) + (item (6) of [@変数 v]))\n    pen down\n    go to x: ((((item (1) of [@変数ステージ v]) * (-32)) + (6542)) - (item (4) of [@変数 v])) y: ((((item (2) of [@変数ステージ v]) * (32)) + (-3182)) + (item (6) of [@変数 v]))\n    pen up\n    go to x: ((((item (1) of [@変数ステージ v]) * (-32)) + (6418)) - (item (4) of [@変数 v])) y: ((((item (2) of [@変数ステージ v]) * (32)) + (-3178)) + (item (6) of [@変数 v]))\n    pen down\n    go to x: ((((item (1) of [@変数ステージ v]) * (-32)) + (6542)) - (item (4) of [@変数 v])) y: ((((item (2) of [@変数ステージ v]) * (32)) + (-3178)) + (item (6) of [@変数 v]))\n    pen up\n    if <(pick random (1) to (5)) = [1]> then\n        add (pick random (2) to (122)) to [ゴールエフェクト v]\n        add [5] to [ゴールエフェクト v]\n        add [0] to [ゴールエフェクト v]\n    end\n    replace item (18) of [@変数 v] with [1]\n    repeat ((length of [ゴールエフェクト v]) / (3))\n        go to x: (((((item (1) of [@変数ステージ v]) * (-32)) + (6418)) - (item (4) of [@変数 v])) + (item (item (18) of [@変数 v]) of [ゴールエフェクト v])) y: (((((item (2) of [@変数ステージ v]) * (32)) + (-3178)) + (item (6) of [@変数 v])) + (item ((item (18) of [@変数 v]) + (1)) of [ゴールエフェクト v]))\n        set pen size to (5)\n        set pen color to (#fff600)\n        set pen (transparency v) to (item ((item (18) of [@変数 v]) + (2)) of [ゴールエフェクト v])\n        pen down\n        pen up\n        replace item ((item (18) of [@変数 v]) + (1)) of [ゴールエフェクト v] with ((item ((item (18) of [@変数 v]) + (1)) of [ゴールエフェクト v]) + (pick random (3) to (5)))\n        replace item ((item (18) of [@変数 v]) + (2)) of [ゴールエフェクト v] with ((item ((item (18) of [@変数 v]) + (2)) of [ゴールエフェクト v]) + (pick random (1) to (10)))\n        if <[100] < (item ((item (18) of [@変数 v]) + (2)) of [ゴールエフェクト v])> then\n            repeat (3)\n                delete (item (18) of [@変数 v]) of [ゴールエフェクト v]\n            end\n        else\n            replace item (18) of [@変数 v] with ((item (18) of [@変数 v]) + (3))\n        end\n    end\nend\n\nwhen I receive [スタート v]\nrepeat until <<<((item (1) of [@変数 v]) + (item (10) of [@変数 v])) < [5985]> and <((item (1) of [@変数 v]) + (item (10) of [@変数 v])) > [5887]>> and <((item (2) of [@変数 v]) + (item (11) of [@変数 v])) < [-2712]>>\n    if <(item (19) of [@変数 v]) = []> then\n        if <(item (1) of [押されているキー v]) or <(item (2) of [押されているキー v]) or (item (3) of [押されているキー v])>> then\n            replace item (19) of [@変数 v] with (timer)\n        end\n    end\n    当たり判定確認 (item (10) of [@変数 v]) (item (11) of [@変数 v]) []\n    if <<key (r v) pressed?> or <(item (4) of [触れているブロック v]) or <(item (2) of [@変数 v]) < [-3400]>>> then\n        replace item (21) of [@変数 v] with [0]\n        スクロール (item (16) of [@変数 v]) (item (17) of [@変数 v]) (item (19) of [@変数 v])\n        repeat until <(item (21) of [@変数 v]) = [1]>\n            ステージ描画 []\n            クラウド更新 []\n            ゴール描画\n            if <(item (19) of [@変数 v]) = []> then\n                PEN [0.000] [-225] [155] [3] [] [4]\n            else\n                PEN (([floor v] of (((timer) - (item (19) of [@変数 v])) * (1000)) ) / (1000)) [-225] [155] [3] [] [4]\n            end\n            if <not <key (r v) pressed?>> then\n                replace item (21) of [@変数 v] with [1]\n            end\n        end\n    else\n        動く\n        ステージ描画 []\n        クラウド更新 []\n        ゴール描画\n        プレイヤー数\n    end\n    if <(item (19) of [@変数 v]) = []> then\n        PEN [0.000] [-225] [155] [3] [] [4]\n    else\n        PEN (([floor v] of (((timer) - (item (19) of [@変数 v])) * (1000)) ) / (1000)) [-225] [155] [3] [] [4]\n    end\nend\nreplace item (19) of [@変数 v] with (([floor v] of (((timer) - (item (19) of [@変数 v])) * (1000)) ) / (1000))\nreplace item (20) of [@変数 v] with (join (letter (1) of (☁ world record)) (join (letter (2) of (☁ world record)) (join (letter (3) of (☁ world record)) (join [.] (join (letter (4) of (☁ world record)) (join (letter (5) of (☁ world record)) (letter (6) of (☁ world record))))))))\nif <<(length of (item (19) of [@変数 v])) = [7]> and <(item (19) of [@変数 v]) < (item (20) of [@変数 v])>> then\n    replace item (20) of [@変数 v] with (item (19) of [@変数 v])\n    set [☁ world record v] to (join (letter (1) of (item (19) of [@変数 v])) (join (letter (2) of (item (19) of [@変数 v])) (join (letter (3) of (item (19) of [@変数 v])) (join (letter (5) of (item (19) of [@変数 v])) (join (letter (6) of (item (19) of [@変数 v])) (letter (7) of (item (19) of [@変数 v])))))))\nend\nforever\n    ステージ描画 []\n    ゴール描画\n    クリア文字\nend\n\nwhen I receive [スタート v]\nforever\n    play sound [kibou v] until done\nend\n\ndefine クリア文字\nクリア文字2 [-130] [95] [140] [95] [#00ff00] [130]\nクリア文字2 [-130] [95] [140] [95] [#ffffff] [110]\nPEN [clear] [-100] [100] [10] [] [5]\nクリア文字2 [-200] [-32] [0] [-32] [#ff0000] [50]\nクリア文字2 [-200] [-32] [0] [-32] [#ffffff] [40]\nPEN [World record] [-200] [-30] [3] [] [5]\nクリア文字2 [-200] [-122] [0] [-122] [#0000ff] [50]\nクリア文字2 [-200] [-122] [0] [-122] [#ffffff] [40]\nPEN [your time] [-170] [-118] [3] [] [5]\nクリア文字2 [70] [-32] [210] [-32] [#ff0000] [50]\nクリア文字2 [70] [-32] [210] [-32] [#ffffff] [40]\nPEN (item (20) of [@変数 v]) ((140) - (((length of (item (20) of [@変数 v])) / (2)) * (20))) [-32] [3] [] [5]\nクリア文字2 [70] [-122] [210] [-122] [#0000ff] [50]\nクリア文字2 [70] [-122] [210] [-122] [#ffffff] [40]\nPEN (item (19) of [@変数 v]) ((140) - (((length of (item (19) of [@変数 v])) / (2)) * (20))) [-122] [3] [] [5]\n\ndefine クリア文字2 (x1) (y1) (x2) (y2) (色) (太さ)\nset pen color to (色)\ngo to x: (x1) y: (y1)\nset pen size to (太さ)\npen down\ngo to x: (x2) y: (y2)\npen up\n\ndefine プレイヤー確認\ndelete all of [プレイヤー確認用 v]\nadd (letter (1) of (☁ player1)) to [プレイヤー確認用 v]\nadd (letter (1) of (☁ player2)) to [プレイヤー確認用 v]\nadd (letter (1) of (☁ player3)) to [プレイヤー確認用 v]\nadd (letter (1) of (☁ player4)) to [プレイヤー確認用 v]\nadd (letter (1) of (☁ player5)) to [プレイヤー確認用 v]\nadd (letter (1) of (☁ player6)) to [プレイヤー確認用 v]\nadd (letter (1) of (☁ player7)) to [プレイヤー確認用 v]\nadd (letter (1) of (☁ player8)) to [プレイヤー確認用 v]\nadd (letter (1) of (☁ player9)) to [プレイヤー確認用 v]\nwait (.5) seconds\nif <(letter (1) of (☁ player1)) = (item (1) of [プレイヤー確認用 v])> then\n    set [☁ player1 v] to [0]\nend\nif <(letter (1) of (☁ player2)) = (item (2) of [プレイヤー確認用 v])> then\n    set [☁ player2 v] to [0]\nend\nif <(letter (1) of (☁ player3)) = (item (3) of [プレイヤー確認用 v])> then\n    set [☁ player3 v] to [0]\nend\nif <(letter (1) of (☁ player4)) = (item (4) of [プレイヤー確認用 v])> then\n    set [☁ player4 v] to [0]\nend\nif <(letter (1) of (☁ player5)) = (item (5) of [プレイヤー確認用 v])> then\n    set [☁ player5 v] to [0]\nend\nif <(letter (1) of (☁ player6)) = (item (6) of [プレイヤー確認用 v])> then\n    set [☁ player6 v] to [0]\nend\nif <(letter (1) of (☁ player7)) = (item (7) of [プレイヤー確認用 v])> then\n    set [☁ player7 v] to [0]\nend\nif <(letter (1) of (☁ player8)) = (item (8) of [プレイヤー確認用 v])> then\n    set [☁ player8 v] to [0]\nend\nif <(letter (1) of (☁ player9)) = (item (9) of [プレイヤー確認用 v])> then\n    set [☁ player9 v] to [0]\nend\n\ndefine クラウド更新 (表示)\nreplace item (7) of [クラウド更新 v] with [00]\nreplace item (8) of [クラウド更新 v] with ((表示) + (0))\nreplace item (1) of [クラウド更新 v] with ((item (1) of [クラウド更新 v]) + (1))\nif <(item (1) of [クラウド更新 v]) = [4]> then\n    replace item (1) of [クラウド更新 v] with [0]\n    if <(item (2) of [クラウド更新 v]) = [9]> then\n        replace item (2) of [クラウド更新 v] with [0]\n    else\n        replace item (2) of [クラウド更新 v] with ((item (2) of [クラウド更新 v]) + (1))\n    end\n    replace item (4) of [クラウド更新 v] with (join (item (2) of [クラウド更新 v]) (join (item (3) of [クラウド更新 v]) (join (item (7) of [クラウド更新 v]) (join (item (8) of [クラウド更新 v]) (item (5) of [クラウド更新 v])))))\n    replace item (3) of [クラウド更新 v] with []\n    if <(#player) = [1]> then\n        set [☁ player1 v] to (item (4) of [クラウド更新 v])\n    end\n    if <(#player) = [2]> then\n        set [☁ player2 v] to (item (4) of [クラウド更新 v])\n    end\n    if <(#player) = [3]> then\n        set [☁ player3 v] to (item (4) of [クラウド更新 v])\n    end\n    if <(#player) = [4]> then\n        set [☁ player4 v] to (item (4) of [クラウド更新 v])\n    end\n    if <(#player) = [5]> then\n        set [☁ player5 v] to (item (4) of [クラウド更新 v])\n    end\n    if <(#player) = [6]> then\n        set [☁ player6 v] to (item (4) of [クラウド更新 v])\n    end\n    if <(#player) = [7]> then\n        set [☁ player7 v] to (item (4) of [クラウド更新 v])\n    end\n    if <(#player) = [8]> then\n        set [☁ player8 v] to (item (4) of [クラウド更新 v])\n    end\n    if <(#player) = [9]> then\n        set [☁ player9 v] to (item (4) of [クラウド更新 v])\n    end\nend\nreplace item (3) of [クラウド更新 v] with (join (item (3) of [クラウド更新 v]) (join (((item (1) of [@変数 v]) + (item (10) of [@変数 v])) + (2000)) (((item (2) of [@変数 v]) + (item (11) of [@変数 v])) + (5000))))\n\ndefine ユーザー名保存\nreplace item (6) of [クラウド更新 v] with [1]\nreplace item (5) of [クラウド更新 v] with []\nrepeat (length of (username))\n    if <(length of (item # of (letter (item (6) of [クラウド更新 v]) of (username)) in [pen:letter v])) = [1]> then\n        replace item (5) of [クラウド更新 v] with (join (item (5) of [クラウド更新 v]) (join [0] (item # of (letter (item (6) of [クラウド更新 v]) of (username)) in [pen:letter v])))\n    else\n        replace item (5) of [クラウド更新 v] with (join (item (5) of [クラウド更新 v]) (item # of (letter (item (6) of [クラウド更新 v]) of (username)) in [pen:letter v]))\n    end\n    replace item (6) of [クラウド更新 v] with ((item (6) of [クラウド更新 v]) + (1))\nend\n\ndefine 他のプレイヤー描画\nreplace item (1) of [他のプレイヤー v] with [4]\nreplace item (3) of [他のプレイヤー v] with [6]\nreplace item (4) of [他のプレイヤー v] with (☁ player1)\nreplace item (17) of [他のプレイヤー v] with (☁ player2)\nreplace item (30) of [他のプレイヤー v] with (☁ player3)\nreplace item (43) of [他のプレイヤー v] with (☁ player4)\nreplace item (56) of [他のプレイヤー v] with (☁ player5)\nreplace item (69) of [他のプレイヤー v] with (☁ player6)\nreplace item (82) of [他のプレイヤー v] with (☁ player7)\nreplace item (95) of [他のプレイヤー v] with (☁ player8)\nreplace item (103) of [他のプレイヤー v] with (☁ player9)\nreplace item (22) of [@変数 v] with [0]\nrepeat (9)\n    replace item (2) of [他のプレイヤー v] with [2]\n    if <not <(item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v]) = [0]>> then\n        replace item (22) of [@変数 v] with ((item (22) of [@変数 v]) + (1))\n    end\n    if <not <(letter (1) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])) = (item ((item (1) of [他のプレイヤー v]) + (1)) of [他のプレイヤー v])>> then\n        replace item ((item (1) of [他のプレイヤー v]) + (1)) of [他のプレイヤー v] with (letter (1) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v]))\n        repeat (4)\n            replace item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v] with ((join (letter (item (2) of [他のプレイヤー v]) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])) (join (letter ((item (2) of [他のプレイヤー v]) + (1)) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])) (join (letter ((item (2) of [他のプレイヤー v]) + (2)) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])) (letter ((item (2) of [他のプレイヤー v]) + (3)) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v]))))) - (2000))\n            replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (1))\n            replace item (2) of [他のプレイヤー v] with ((item (2) of [他のプレイヤー v]) + (4))\n            replace item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v] with ((join (letter (item (2) of [他のプレイヤー v]) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])) (join (letter ((item (2) of [他のプレイヤー v]) + (1)) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])) (join (letter ((item (2) of [他のプレイヤー v]) + (2)) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])) (letter ((item (2) of [他のプレイヤー v]) + (3)) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v]))))) - (5000))\n            replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (1))\n            replace item (2) of [他のプレイヤー v] with ((item (2) of [他のプレイヤー v]) + (4))\n        end\n        replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (-8))\n        replace item (2) of [他のプレイヤー v] with ((item (2) of [他のプレイヤー v]) + (-32))\n    end\n    replace item (2) of [他のプレイヤー v] with ((item (2) of [他のプレイヤー v]) + (32))\n    if <<(letter ((item (2) of [他のプレイヤー v]) + (2)) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])) = [0]> and <not <(#player) = ((((item (1) of [他のプレイヤー v]) - (4)) / (13)) + (1))>>> then\n        プレイヤースキン (((item (1) of [@変数 v]) - (item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v])) * (-1)) (((item (2) of [@変数 v]) - (item ((item (3) of [他のプレイヤー v]) + (1)) of [他のプレイヤー v])) * (-1)) [100] [1]\n    end\n    if <not <((item (3) of [他のプレイヤー v]) + (2)) = []>> then\n        repeat (6)\n            replace item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v] with (item ((item (3) of [他のプレイヤー v]) + (2)) of [他のプレイヤー v])\n            replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (1))\n        end\n        replace item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v] with []\n        replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (1))\n        replace item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v] with []\n        replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (1))\n        replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (-8))\n    end\n    replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (8))\n    replace item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v] with (join (letter (item (2) of [他のプレイヤー v]) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])) (letter ((item (2) of [他のプレイヤー v]) + (1)) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])))\n    replace item (2) of [他のプレイヤー v] with ((item (2) of [他のプレイヤー v]) + (2))\n    replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (1))\n    replace item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v] with (letter (item (2) of [他のプレイヤー v]) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v]))\n    replace item (2) of [他のプレイヤー v] with ((item (2) of [他のプレイヤー v]) + (1))\n    replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (1))\n    replace item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v] with []\n    repeat until <(item (2) of [他のプレイヤー v]) > (length of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v]))>\n        replace item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v] with (join (item (item (3) of [他のプレイヤー v]) of [他のプレイヤー v]) (item (join (letter (item (2) of [他のプレイヤー v]) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v])) (letter ((item (2) of [他のプレイヤー v]) + (1)) of (item (item (1) of [他のプレイヤー v]) of [他のプレイヤー v]))) of [pen:letter v]))\n        replace item (2) of [他のプレイヤー v] with ((item (2) of [他のプレイヤー v]) + (2))\n    end\n    replace item (3) of [他のプレイヤー v] with ((item (3) of [他のプレイヤー v]) + (3))\n    replace item (1) of [他のプレイヤー v] with ((item (1) of [他のプレイヤー v]) + (13))\nend\n\nset [☁ world record v] to [999999]\n\ndefine #player\nset [#player v] to [0]\nif <(☁ player1) = [0]> then\n    set [#player v] to [1]\nelse\n    if <(☁ player2) = [0]> then\n        set [#player v] to [2]\n    else\n        if <(☁ player3) = [0]> then\n            set [#player v] to [3]\n        else\n            if <(☁ player4) = [0]> then\n                set [#player v] to [4]\n            else\n                if <(☁ player5) = [0]> then\n                    set [#player v] to [5]\n                else\n                    if <(☁ player6) = [0]> then\n                        set [#player v] to [6]\n                    else\n                        if <(☁ player7) = [0]> then\n                            set [#player v] to [7]\n                        else\n                            if <(☁ player8) = [0]> then\n                                set [#player v] to [8]\n                            else\n                                if <(☁ player9) = [0]> then\n                                    set [#player v] to [9]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine スクロール2 (x) (y) (初期)\ndelete all of [@変数 v]\nrepeat (22)\n    add [0] to [@変数 v]\nend\nreplace item (1) of [@変数 v] with (x)\nreplace item (2) of [@変数 v] with (y)\nreplace item (16) of [@変数 v] with (x)\nreplace item (17) of [@変数 v] with (y)\nreplace item (19) of [@変数 v] with (初期)\nクラウド更新 [1]\n\ndefine 押されているキー\ndelete all of [押されているキー v]\nadd <<key (right arrow v) pressed?> or <<key (d v) pressed?> or <<mouse down?> and <(mouse x) > [100]>>>> to [押されているキー v]\nadd <<key (left arrow v) pressed?> or <<key (a v) pressed?> or <<mouse down?> and <(mouse x) < [-100]>>>> to [押されているキー v]\nadd <<key (up arrow v) pressed?> or <<key (w v) pressed?> or <<mouse down?> and <(mouse y) > [80]>>>> to [押されているキー v]\nadd <<key (down arrow v) pressed?> or <<key (s v) pressed?> or <<mouse down?> and <(mouse y) < [-80]>>>> to [押されているキー v]\n\ndefine プレイヤー数\nPEN (item (22) of [@変数 v]) [210] [155] [3] [] [4]\n\nwhen I receive [スタート v]\nforever\n    プレイヤー確認\nend\n\n@サムネ\n\nwhen flag clicked\nswitch costume to (サムネ v)\nhide\n\nshow\n\n