[☁︎100%pen ONLINE]*･AUTUMN PLATFORMER･*    [☁︎オンライン]秋のプラットフォーマー
@Stage\n\n@all\n\ndefine 草はやす\nset [回数 v] to [0]\ndelete all of [草 v]\nrepeat (length of [配置x v])\n    change [回数 v] by (1)\n    add [0] to [草 v]\n    if <(item (回数) of [配置タイプ v]) = [6]> then\n        replace item (回数) of [配置タイプ v] with [5]\n    end\nend\n\ndefine 地面 (x) (y) (タイプ) (草)\nif <<(タイプ) = [1]> or <<(タイプ) = [7]> or <(タイプ) = [8]>>> then\n    set pen color to (#b58046)\n    set pen size to (15)\n    go to x: ((20) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    pen down\n    go to x: ((-20) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    go to x: ((-20) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    go to x: ((20) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    go to x: ((20) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    pen up\n    go to x: ((x) - (スクロールx)) y: ((y) - (スクロールy))\n    set pen size to (40)\n    pen down\n    pen up\n    if <<(タイプ) = [7]> or <(タイプ) = [8]>> then\n        set pen size to (7)\n        set [草のなんか v] to [-18]\n        set pen color to (#d49b00)\n        repeat ((3) * <(タイプ) = [8]>)\n            go to x: ((草のなんか) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n            pen down\n            if <([abs v] of ((((x座標) / (3)) - ((x) - (スクロールx))) / (20)) ) < [1]> then\n                go to x: (((草のなんか) - (草)) + ((x) - (スクロールx))) y: (((30) + ([abs v] of (草のなんか) )) + ((y) - (スクロールy)))\n            else\n                go to x: (((草のなんか) - (草)) + ((x) - (スクロールx))) y: (((30) + ([abs v] of (草のなんか) )) + ((y) - (スクロールy)))\n            end\n            change [草のなんか v] by (15)\n            change pen (brightness v) by ((0) - (草のなんか))\n            pen up\n        end\n        set pen size to (12)\n        set pen color to (#a05d00)\n        go to x: ((25) + ((x) - (スクロールx))) y: ((12) + ((y) - (スクロールy)))\n        pen down\n        go to x: ((-25) + ((x) - (スクロールx))) y: ((12) + ((y) - (スクロールy)))\n        pen up\n        change pen (brightness v) by (25)\n        go to x: ((27) + ((x) - (スクロールx))) y: ((22) + ((y) - (スクロールy)))\n        pen down\n        go to x: ((-27) + ((x) - (スクロールx))) y: ((22) + ((y) - (スクロールy)))\n        pen up\n    end\nend\nif <(タイプ) = [3]> then\n    set pen color to (#717171)\n    set [針x v] to [-1]\n    repeat (2)\n        set pen size to (5)\n        go to x: (((針x) * (20)) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n        pen down\n        go to x: ((0) + ((x) - (スクロールx))) y: ((22) + ((y) - (スクロールy)))\n        go to x: ((0) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n        go to x: (((針x) * (20)) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n        set [針y v] to [18]\n        repeat (7)\n            go to x: (((針x) * (20)) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n            pen down\n            go to x: ((0) + ((x) - (スクロールx))) y: ((針y) + ((y) - (スクロールy)))\n            pen up\n            change [針y v] by (-6)\n        end\n        change pen (brightness v) by (-10)\n        set [針x v] to [1]\n    end\n    set pen color to (#ffffff)\n    go to x: ((2) + ((x) - (スクロールx))) y: ((12) + ((y) - (スクロールy)))\n    pen down\n    go to x: ((8) + ((x) - (スクロールx))) y: ((-3) + ((y) - (スクロールy)))\n    pen up\nend\nif <(タイプ) = [5]> then\n    set pen color to (#efa846)\n    set pen size to (7)\n    go to x: ((-12) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    pen down\n    go to x: ((2) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    go to x: ((-5) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    go to x: ((-5) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    set pen color to (#fd0000)\n    go to x: ((15) + ((x) - (スクロールx))) y: ((5) + ((y) - (スクロールy)))\n    go to x: ((-5) + ((x) - (スクロールx))) y: ((-5) + ((y) - (スクロールy)))\n    go to x: ((-5) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    set pen size to (19)\n    pen up\n    go to x: ((2.5) + ((x) - (スクロールx))) y: ((7) + ((y) - (スクロールy)))\n    pen down\n    pen up\nend\nif <(タイプ) = [6]> then\n    set pen color to (#efa846)\n    set pen size to (7)\n    go to x: ((-12) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    pen down\n    go to x: ((2) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    go to x: ((-5) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    go to x: ((-5) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    set pen color to (#23d600)\n    go to x: ((15) + ((x) - (スクロールx))) y: ((5) + ((y) - (スクロールy)))\n    go to x: ((-5) + ((x) - (スクロールx))) y: ((-5) + ((y) - (スクロールy)))\n    go to x: ((-5) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    set pen size to (19)\n    pen up\n    go to x: ((2.5) + ((x) - (スクロールx))) y: ((7) + ((y) - (スクロールy)))\n    pen down\n    pen up\nend\n\nwhen flag clicked\nset [復活x v] to [0]\nset [復活y v] to [0]\n初期化\n草はやす\nset size to ((1) / ()) %\nforever\n    erase all\n    go to x: (0) y: (0)\n    set pen color to (#cbffff)\n    set pen size to (1000)\n    pen down\n    pen up\n    if <not <(雑用:置くか) = [0]>> then\n        プレイヤー\n    end\n    delete all of [x v]\n    delete all of [y v]\n    delete all of [効果 v]\n    delete all of [草の効果 v]\n    delete all of [確認？ v]\n    背景たち\n    他のプレイヤー [1]\n    if <not <(雑用:置くか) = [0]>> then\n        キャラクター (x座標) (y座標) ((x座標) + ((x座標) / (8))) ((y座標) / (7)) ((x座標) + ((x座標) / (5))) ((y座標) / (7))\n    end\n    配置\n    文字数値化 (username)\n    文字加工 (文字数値化) (x座標) ((y座標) + (35)) [50] [70] [2] [0] []\n    他のプレイヤー [2]\n    if <[7800] < (スクロールx)> then\n        stop [all v]\n    end\nend\n\ndefine プレイヤー\nset [回数 v] to [0]\nrepeat (length of [配置x v])\n    change [回数 v] by (1)\n    replace item (回数) of [草 v] with ((item (回数) of [草 v]) * (0.9))\n    if <<<([abs v] of ((x座標) - ((item (回数) of [配置x v]) - (スクロールx))) ) < [50]> and <<([abs v] of ((y座標) - ((item (回数) of [配置y v]) - (スクロールy))) ) < [80]> and <[49] < ([abs v] of ((y座標) - ((item (回数) of [配置y v]) - (スクロールy))) )>>> and <(item (回数) of [配置タイプ v]) = [8]>> then\n        replace item (回数) of [草 v] with ((item (回数) of [草 v]) + (((0) - (x座標)) / (15)))\n    end\nend\nif <<<[50] < (mouse x)> and <mouse down?>> or <<key (right arrow v) pressed?> or <key (d v) pressed?>>> then\n    change [x v] by (1)\nend\nif <<<(mouse x) < [-50]> and <mouse down?>> or <<key (left arrow v) pressed?> or <key (a v) pressed?>>> then\n    change [x v] by (-1)\nend\nset [x v] to ((x) * (0.9))\nchange [x座標 v] by (x)\n判定\nif <[判定 v] contains [1]?> then\n    change [y座標 v] by (1)\n    判定\n    if <[判定 v] contains [1]?> then\n        壁\n    end\nend\nif <[判定 v] contains [4]?> then\n    change [y v] by (-0.1)\nelse\n    change [y v] by (-1)\nend\nchange [y座標 v] by (y)\n判定\nif <[判定 v] contains [1]?> then\n    床\nend\nchange [y座標 v] by (-1)\n判定\nif <<[判定 v] contains [1]?> and <not <[判定 v] contains [4]?>>> then\n    if <<<[0] < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n        set [y v] to [17]\n    end\nend\nif <[判定 v] contains [4]?> then\n    if <<<[0] < (mouse y)> and <mouse down?>> or <<key (up arrow v) pressed?> or <key (w v) pressed?>>> then\n        change [y v] by (0.3)\n    end\nend\nchange [y座標 v] by (1)\nif <<[判定 v] contains [2]?> or <(スクロールy) < [-200]>> then\n    初期化\nend\nchange [x座標 v] by (((0) - (x座標)) / (5))\nchange [y座標 v] by (((0) - (y座標)) / (7))\nchange [スクロールx v] by ((x座標) / (5))\nchange [スクロールy v] by ((y座標) / (7))\n\ndefine 判定\ndelete all of [判定 v]\nset [回数 v] to [0]\nrepeat (length of [x v])\n    change [回数 v] by (1)\n    if <<([abs v] of ((x座標) - ((item (回数) of [x v]) - (スクロールx))) ) < [49]> and <([abs v] of ((y座標) - ((item (回数) of [y v]) - (スクロールy))) ) < [49]>> then\n        if <<<(item (回数) of [効果 v]) = [2]> and <([abs v] of ((y座標) - ((item (回数) of [y v]) - (スクロールy))) ) < [45]>> or <<(item (回数) of [効果 v]) = [3]> and <([abs v] of ((x座標) - ((item (回数) of [x v]) - (スクロールx))) ) < ([abs v] of ((50) - ((y座標) - ((item (回数) of [y v]) - (スクロールy)))) )>>> then\n            delete all of [判定 v]\n            add [2] to [判定 v]\n        else\n            if <<(item (回数) of [効果 v]) = [4]> and <([abs v] of ((y座標) - ((item (回数) of [y v]) - (スクロールy))) ) < [45]>> then\n                add [4] to [判定 v]\n            else\n                if <(item (回数) of [効果 v]) = [5]> then\n                    add [5] to [判定 v]\n                    set [復活x v] to (item (回数) of [x v])\n                    set [復活y v] to (item (回数) of [y v])\n                    replace item (item # of (join (item (回数) of [x v]) (join [､] (item (回数) of [y v]))) in [xy v]) of [配置タイプ v] with [6]\n                else\n                    if <<(item (回数) of [効果 v]) = [1]> or <<(item (回数) of [効果 v]) = [7]> or <(item (回数) of [効果 v]) = [8]>>> then\n                        add [1] to [判定 v]\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine 初期化\nset [x v] to [0]\nset [y v] to [0]\nset [x座標 v] to [0]\nset [y座標 v] to [0]\nset [スクロールx v] to (復活x)\nset [スクロールy v] to (復活y)\n\ndefine 配置\nset [配置 v] to [0]\nrepeat (length of [x v])\n    change [配置 v] by (1)\n    地面 (item (配置) of [x v]) (item (配置) of [y v]) (item (配置) of [効果 v]) (item (配置) of [草の効果 v])\nend\n\ndelete all of [配置x v]\ndelete all of [配置y v]\ndelete all of [配置タイプ v]\ndelete all of [xy v]\nadd [0] to [配置x v]\nadd [-50] to [配置y v]\nadd [1] to [配置タイプ v]\nadd [0､-50] to [xy v]\n\nwhen flag clicked\nforever\n    if <mouse down?> then\n        if <(雑用:置くか) = [0]> then\n            if <<([abs v] of (mouse x) ) < [50]> and <([abs v] of (mouse y) ) < [50]>> then\n                if <[xy v] contains (join ((((mouse x) + (25)) + (スクロールx)) - ((((mouse x) + (25)) + (スクロールx)) mod (50))) (join [､] ((((mouse y) + (25)) + (スクロールy)) - ((((mouse y) + (25)) + (スクロールy)) mod (50)))))?> then\n                    delete (item # of (join ((((mouse x) + (25)) + (スクロールx)) - ((((mouse x) + (25)) + (スクロールx)) mod (50))) (join [､] ((((mouse y) + (25)) + (スクロールy)) - ((((mouse y) + (25)) + (スクロールy)) mod (50))))) in [xy v]) of [配置x v]\n                    delete (item # of (join ((((mouse x) + (25)) + (スクロールx)) - ((((mouse x) + (25)) + (スクロールx)) mod (50))) (join [､] ((((mouse y) + (25)) + (スクロールy)) - ((((mouse y) + (25)) + (スクロールy)) mod (50))))) in [xy v]) of [配置y v]\n                    delete (item # of (join ((((mouse x) + (25)) + (スクロールx)) - ((((mouse x) + (25)) + (スクロールx)) mod (50))) (join [､] ((((mouse y) + (25)) + (スクロールy)) - ((((mouse y) + (25)) + (スクロールy)) mod (50))))) in [xy v]) of [配置タイプ v]\n                    delete (item # of (join ((((mouse x) + (25)) + (スクロールx)) - ((((mouse x) + (25)) + (スクロールx)) mod (50))) (join [､] ((((mouse y) + (25)) + (スクロールy)) - ((((mouse y) + (25)) + (スクロールy)) mod (50))))) in [xy v]) of [草 v]\n                    delete (item # of (join ((((mouse x) + (25)) + (スクロールx)) - ((((mouse x) + (25)) + (スクロールx)) mod (50))) (join [､] ((((mouse y) + (25)) + (スクロールy)) - ((((mouse y) + (25)) + (スクロールy)) mod (50))))) in [xy v]) of [xy v]\n                else\n                    add ((((mouse x) + (25)) + (スクロールx)) - ((((mouse x) + (25)) + (スクロールx)) mod (50))) to [配置x v]\n                    add ((((mouse y) + (25)) + (スクロールy)) - ((((mouse y) + (25)) + (スクロールy)) mod (50))) to [配置y v]\n                    add (join ((((mouse x) + (25)) + (スクロールx)) - ((((mouse x) + (25)) + (スクロールx)) mod (50))) (join [､] ((((mouse y) + (25)) + (スクロールy)) - ((((mouse y) + (25)) + (スクロールy)) mod (50))))) to [xy v]\n                    add (雑用:効果) to [配置タイプ v]\n                    add [0] to [草 v]\n                end\n                wait until <not <mouse down?>>\n            else\n                repeat until <not <mouse down?>>\n                    change [スクロールx v] by ((5) * (<<[50] < (mouse x)> and <mouse down?>> - <<(mouse x) < [-50]> and <mouse down?>>))\n                    change [スクロールy v] by ((5) * (<<[50] < (mouse y)> and <mouse down?>> - <<(mouse y) < [-50]> and <mouse down?>>))\n                end\n            end\n        end\n    end\nend\n\ndefine 壁\nchange [y座標 v] by (-1)\nrepeat until <not <[判定 v] contains [1]?>>\n    change [x座標 v] by ((-0.9) * ((x) / ([abs v] of (x) )))\n    判定\nend\nset [x v] to [0]\n\ndefine 床\nrepeat until <not <[判定 v] contains [1]?>>\n    if <[判定 v] contains [4]?> then\n        change [y座標 v] by ((-0.1) * ((y) / ([abs v] of (y) )))\n    else\n        change [y座標 v] by ((-1) * ((y) / ([abs v] of (y) )))\n    end\n    判定\nend\nset [y v] to [0]\n\ndefine キャラクター (x) (y) (目x) (目y) (目x2) (目y2)\nset pen size to (20)\nset pen color to (#000000)\ngo to x: ((x) + (15)) y: ((y) + (15))\npen down\ngo to x: ((x) + (-15)) y: ((y) + (15))\ngo to x: ((x) + (-15)) y: ((y) + (-15))\ngo to x: ((x) + (15)) y: ((y) + (-15))\ngo to x: ((x) + (15)) y: ((y) + (15))\npen up\nset pen size to (35)\nset pen color to (#ffffff)\ngo to x: (x) y: (y)\npen down\npen up\nset pen size to (20)\nset pen color to (#000000)\nset x to (目x)\nif <[5] < ([abs v] of (目y) )> then\n    set y to ((y) + ((5) * ((目y) / ([abs v] of (目y) ))))\nelse\n    set y to ((y) + (目y))\nend\npen down\npen up\nset pen size to (7)\nset pen color to (#ffffff)\nset x to (目x2)\nif <[7.5] < ([abs v] of (目y2) )> then\n    set y to ((y) + ((7.5) * ((目y2) / ([abs v] of (目y2) ))))\nelse\n    set y to ((y) + (目y2))\nend\npen down\npen up\n\ndefine 背景たち\nset [配置 v] to [0]\nrepeat (length of [配置x v])\n    change [配置 v] by (1)\n    if <<([abs v] of ((item (配置) of [配置x v]) - (スクロールx)) ) < [300]> and <([abs v] of ((item (配置) of [配置y v]) - (スクロールy)) ) < [250]>> then\n        背景 (item (配置) of [配置x v]) (item (配置) of [配置y v]) (item (配置) of [配置タイプ v]) (item (配置) of [草 v])\n    end\nend\n\ndefine 背景 (x) (y) (効果) (草)\nadd (x) to [x v]\nadd (y) to [y v]\nadd (効果) to [効果 v]\nadd (草) to [草の効果 v]\nif <(効果) = [2]> then\n    set pen color to (#ff0000)\n    set pen size to (15)\n    if <not <[xy v] contains (join (x) (join [､] ((y) + (50))))?>> then\n        go to x: ((22) + ((x) - (スクロールx))) y: ((20) + ((((1.5) * ([sin v] of ((200) * ((timer) + ((x) / (50)))) )) + ((y) - (5))) - (スクロールy)))\n    else\n        go to x: ((22) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    end\n    pen down\n    if <not <[xy v] contains (join (x) (join [､] ((y) + (50))))?>> then\n        set [波 v] to [0]\n        repeat (44)\n            change [波 v] by (-1)\n            go to x: (((22) + (波)) + ((x) - (スクロールx))) y: ((20) + ((((1.5) * ([sin v] of ((200) * ((timer) + (((x) / (50)) + ([abs v] of ((波) / (40)) )))) )) + ((y) - (5))) - (スクロールy)))\n        end\n    else\n        go to x: ((-22) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    end\n    go to x: ((-22) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    go to x: ((22) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    if <not <[xy v] contains (join (x) (join [､] ((y) + (50))))?>> then\n        go to x: ((22) + ((x) - (スクロールx))) y: ((20) + ((((1.5) * ([sin v] of ((200) * ((timer) + ((x) / (50)))) )) + ((y) - (5))) - (スクロールy)))\n    else\n        go to x: ((22) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    end\n    pen up\n    go to x: ((x) - (スクロールx)) y: ((y) - (スクロールy))\n    set pen size to (40)\n    pen down\n    pen up\nend\nif <(効果) = [4]> then\n    set pen color to (#00f2ff)\n    set pen size to (15)\n    if <not <[xy v] contains (join (x) (join [､] ((y) + (50))))?>> then\n        go to x: ((22) + ((x) - (スクロールx))) y: ((20) + ((((1.5) * ([sin v] of ((200) * ((timer) + ((x) / (50)))) )) + ((y) - (5))) - (スクロールy)))\n    else\n        go to x: ((22) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    end\n    pen down\n    if <not <[xy v] contains (join (x) (join [､] ((y) + (50))))?>> then\n        set [波 v] to [0]\n        repeat (44)\n            change [波 v] by (-1)\n            go to x: (((22) + (波)) + ((x) - (スクロールx))) y: ((20) + ((((1.5) * ([sin v] of ((200) * ((timer) + (((x) / (50)) + ([abs v] of ((波) / (40)) )))) )) + ((y) - (5))) - (スクロールy)))\n        end\n    else\n        go to x: ((-22) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    end\n    go to x: ((-22) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    go to x: ((22) + ((x) - (スクロールx))) y: ((-20) + ((y) - (スクロールy)))\n    if <not <[xy v] contains (join (x) (join [､] ((y) + (50))))?>> then\n        go to x: ((22) + ((x) - (スクロールx))) y: ((20) + ((((1.5) * ([sin v] of ((200) * ((timer) + ((x) / (50)))) )) + ((y) - (5))) - (スクロールy)))\n    else\n        go to x: ((22) + ((x) - (スクロールx))) y: ((20) + ((y) - (スクロールy)))\n    end\n    pen up\n    go to x: ((x) - (スクロールx)) y: ((y) - (スクロールy))\n    set pen size to (40)\n    pen down\n    pen up\nend\nif <(効果) = [9]> then\n    set pen color to (#8e5400)\n    set pen size to (25)\n    go to x: ((x) - (スクロールx)) y: (((y) - (スクロールy)) + (-20))\n    pen down\n    go to x: ((x) - (スクロールx)) y: (((y) - (スクロールy)) + (75))\n    pen up\n    set pen color to (#c16f00)\n    set [木のやつ v] to [45]\n    repeat (3)\n        go to x: (((x) - (スクロールx)) + (() - (木のやつ))) y: (((y) - (スクロールy)) + ((30) + (((45) - (木のやつ)) * (1.4))))\n        pen down\n        go to x: (((x) - (スクロールx)) + (木のやつ)) y: (((y) - (スクロールy)) + ((30) + (((45) - (木のやつ)) * (1.4))))\n        pen up\n        change pen (brightness v) by (10)\n        change [木のやつ v] by (-17)\n    end\nend\n\nwhen flag clicked\n\nforever\n    set [fps v] to ((1) / (timer))\n    reset timer\nend\n\nwhen flag clicked\nset [☁ 1p v] to [0]\nset [☁ 2p v] to [0]\nset [☁ 3p v] to [0]\nset [☁ 4p v] to [0]\nset [☁ 5p v] to [0]\nset [☁ 6p v] to [0]\nset [☁ 7p v] to [0]\nset [☁ 8p v] to [0]\nset [☁ 9p v] to [0]\nset [自分p v] to [0]\nset [☁ 10p v] to [0]\nwait (3) seconds\nif <(☁ 1p) = [0]> then\n    set [自分p v] to [1]\n    forever\n        文字数値化 (username)\n        set [☁ 1p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n    end\nelse\n    if <(☁ 2p) = [0]> then\n        set [自分p v] to [2]\n        forever\n            文字数値化 (username)\n            set [☁ 2p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n        end\n    else\n        if <(☁ 3p) = [0]> then\n            set [自分p v] to [3]\n            forever\n                文字数値化 (username)\n                set [☁ 3p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n            end\n        else\n            if <(☁ 4p) = [0]> then\n                set [自分p v] to [4]\n                forever\n                    文字数値化 (username)\n                    set [☁ 4p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n                end\n            else\n                if <(☁ 5p) = [0]> then\n                    set [自分p v] to [5]\n                    forever\n                        文字数値化 (username)\n                        set [☁ 5p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n                    end\n                else\n                    if <(☁ 5p) = [0]> then\n                        set [自分p v] to [5]\n                        forever\n                            文字数値化 (username)\n                            set [☁ 5p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n                        end\n                    else\n                        if <(☁ 6p) = [0]> then\n                            set [自分p v] to [6]\n                            forever\n                                文字数値化 (username)\n                                set [☁ 6p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n                            end\n                        else\n                            if <(☁ 7p) = [0]> then\n                                set [自分p v] to [7]\n                                forever\n                                    文字数値化 (username)\n                                    set [☁ 7p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n                                end\n                            else\n                                if <(☁ 8p) = [0]> then\n                                    set [自分p v] to [8]\n                                    forever\n                                        文字数値化 (username)\n                                        set [☁ 8p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n                                    end\n                                else\n                                    if <(☁ 9p) = [0]> then\n                                        set [自分p v] to [9]\n                                        forever\n                                            文字数値化 (username)\n                                            set [☁ 9p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n                                        end\n                                    else\n                                        if <(☁ 10p) = [0]> then\n                                            set [自分p v] to [10]\n                                            forever\n                                                文字数値化 (username)\n                                                set [☁ 10p v] to (join (round (((スクロールx) + (x座標)) + (1200))) (join (round (((スクロールy) + (y座標)) + (1200))) (join ((round (x座標)) + (500)) (join ((round (y座標)) + (500)) (join (letter (length of (round (timer))) of (round (timer))) (文字数値化))))))\n                                            end\n                                        end\n                                    end\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nwhen flag clicked\ndelete all of [他の人確認 v]\ndelete all of [他の人の情報 v]\nwait (3) seconds\nforever\n    delete all of [他の人の情報 v]\n    if <<not <(自分p) = [1]>> and <not <(☁ 1p) = [0]>>> then\n        add (☁ 1p) to [他の人の情報 v]\n    end\n    if <<not <(自分p) = [2]>> and <not <(☁ 2p) = [0]>>> then\n        add (☁ 2p) to [他の人の情報 v]\n    end\n    if <<not <(自分p) = [3]>> and <not <(☁ 3p) = [0]>>> then\n        add (☁ 3p) to [他の人の情報 v]\n    end\n    if <<not <(自分p) = [4]>> and <not <(☁ 4p) = [0]>>> then\n        add (☁ 4p) to [他の人の情報 v]\n    end\n    if <<not <(自分p) = [5]>> and <not <(☁ 5p) = [0]>>> then\n        add (☁ 5p) to [他の人の情報 v]\n    end\n    if <<not <(自分p) = [6]>> and <not <(☁ 6p) = [0]>>> then\n        add (☁ 6p) to [他の人の情報 v]\n    end\n    if <<not <(自分p) = [7]>> and <not <(☁ 7p) = [0]>>> then\n        add (☁ 7p) to [他の人の情報 v]\n    end\n    if <<not <(自分p) = [8]>> and <not <(☁ 8p) = [0]>>> then\n        add (☁ 8p) to [他の人の情報 v]\n    end\n    if <<not <(自分p) = [9]>> and <not <(☁ 9p) = [0]>>> then\n        add (☁ 9p) to [他の人の情報 v]\n    end\n    if <<not <(自分p) = [10]>> and <not <(☁ 10p) = [0]>>> then\n        add (☁ 10p) to [他の人の情報 v]\n    end\nend\n\ndefine 他のプレイヤー (？)\nset [回数数えて v] to [0]\nrepeat (length of [他の人の情報 v])\n    change [回数数えて v] by (1)\n    if <(？) = [1]> then\n        set [他のキャラのx v] to ((join (letter (1) of (item (回数数えて) of [他の人の情報 v])) (join (letter (2) of (item (回数数えて) of [他の人の情報 v])) (join (letter (3) of (item (回数数えて) of [他の人の情報 v])) (letter (4) of (item (回数数えて) of [他の人の情報 v]))))) - (1200))\n        set [他のキャラのy v] to ((join (letter (5) of (item (回数数えて) of [他の人の情報 v])) (join (letter (6) of (item (回数数えて) of [他の人の情報 v])) (join (letter (7) of (item (回数数えて) of [他の人の情報 v])) (letter (8) of (item (回数数えて) of [他の人の情報 v]))))) - (1200))\n        set [他のキャラのx2 v] to ((join (letter (9) of (item (回数数えて) of [他の人の情報 v])) (join (letter (10) of (item (回数数えて) of [他の人の情報 v])) (letter (11) of (item (回数数えて) of [他の人の情報 v])))) - (500))\n        set [他のキャラのy2 v] to ((join (letter (12) of (item (回数数えて) of [他の人の情報 v])) (join (letter (13) of (item (回数数えて) of [他の人の情報 v])) (letter (14) of (item (回数数えて) of [他の人の情報 v])))) - (500))\n        キャラクター ((他のキャラのx) - (スクロールx)) ((他のキャラのy) - (スクロールy)) (((他のキャラのx) - (スクロールx)) + ((他のキャラのx2) / (8))) ((他のキャラのy2) / (7)) (((他のキャラのx) - (スクロールx)) + ((他のキャラのx2) / (5))) ((他のキャラのy2) / (7))\n    end\n    if <(？) = [2]> then\n        set [他のキャラのx v] to ((join (letter (1) of (item (回数数えて) of [他の人の情報 v])) (join (letter (2) of (item (回数数えて) of [他の人の情報 v])) (join (letter (3) of (item (回数数えて) of [他の人の情報 v])) (letter (4) of (item (回数数えて) of [他の人の情報 v]))))) - (1200))\n        set [他のキャラのy v] to ((join (letter (5) of (item (回数数えて) of [他の人の情報 v])) (join (letter (6) of (item (回数数えて) of [他の人の情報 v])) (join (letter (7) of (item (回数数えて) of [他の人の情報 v])) (letter (8) of (item (回数数えて) of [他の人の情報 v]))))) - (1200))\n        読み取りユーザー名 (回数数えて)\n        文字加工 (その人のユーザー名) ((他のキャラのx) - (スクロールx)) (((他のキャラのy) - (スクロールy)) + (35)) [50] [70] [2] [0] []\n    end\nend\n\ndefine 文字数値化 (ユーザー名)\nset [文字数値化 v] to []\nset [変数 v] to [0]\nset [文字数値化 v] to []\nrepeat (length of (ユーザー名))\n    change [変数 v] by (1)\n    set [文字数値化 v] to (join (文字数値化) (item # of (letter (変数) of (ユーザー名)) in [文字一覧 v]))\nend\n\ndefine 文字加工 (文字) (x) (y) (大きさ) (色) (太さ) (明るさ) (透明度)\nset [雑用2 v] to [0]\nset [雑用 v] to ((((24) * ((大きさ) / (100))) / (2)) - (((length of (文字)) / (4)) * ((24) * ((大きさ) / (100)))))\nrepeat ((length of (文字)) / (2))\n    change [雑用2 v] by (2)\n    if <not <(join (letter ((雑用2) - (1)) of (文字)) (letter (雑用2) of (文字))) = [48]>> then\n        文字へ ((x) + (雑用)) (y) (大きさ) (色) (太さ) (明るさ) (透明度) ((join (letter ((雑用2) - (1)) of (文字)) (letter (雑用2) of (文字))) - (9))\n    end\n    change [雑用 v] by ((24) * ((大きさ) / (100)))\nend\nset pen size to (12)\n\ndefine 文字へ (x) (y) (大きさ) (色) (太さ) (明るさ) (透明度) (文字ⓜ️)\n文字 (文字ⓜ️)\nset pen color to (#f90000)\nset [文字x v] to (x)\nset [文字y v] to (y)\ngo to x: ((文字x) + ((item (1) of [文字x v]) * ((大きさ) / (100)))) y: ((文字y) + ((item (1) of [文字y v]) * ((大きさ) / (100))))\nset pen size to (太さ)\nset pen (color v) to (色)\nset pen (brightness v) to (明るさ)\nset pen (transparency v) to (透明度)\npen down\nset [文字 v] to [0]\nrepeat (length of [文字x v])\n    change [文字 v] by (1)\n    go to x: ((文字x) + ((item (文字) of [文字x v]) * ((大きさ) / (100)))) y: ((文字y) + ((item (文字) of [文字y v]) * ((大きさ) / (100))))\nend\npen up\n\ndefine 文字 (文字)\ndelete all of [文字y v]\ndelete all of [文字x v]\nchange [変数 v] by (1)\nset [変数 v] to [0]\nset [記憶 v] to []\nrepeat until <(length of (item (文字) of [pen文字x v])) = (変数)>\n    change [変数 v] by (1)\n    set [記憶 v] to (join (記憶) (letter (変数) of (item (文字) of [pen文字x v])))\n    if <(letter ((変数) + (1)) of (item (文字) of [pen文字x v])) = [､]> then\n        change [変数 v] by (1)\n        add (記憶) to [文字x v]\n        set [記憶 v] to []\n    end\nend\nadd (記憶) to [文字x v]\nset [変数 v] to [0]\nset [記憶 v] to []\nrepeat until <(length of (item (文字) of [pen文字y v])) = (変数)>\n    change [変数 v] by (1)\n    set [記憶 v] to (join (記憶) (letter (変数) of (item (文字) of [pen文字y v])))\n    if <(letter ((変数) + (1)) of (item (文字) of [pen文字y v])) = [､]> then\n        change [変数 v] by (1)\n        add (記憶) to [文字y v]\n        set [記憶 v] to []\n    end\nend\nadd (記憶) to [文字y v]\n\ndefine 読み取りユーザー名 (数)\nset [回数数えてね v] to [15]\nset [その人のユーザー名 v] to []\nrepeat ((length of (item (数) of [他の人の情報 v])) - (15))\n    change [回数数えてね v] by (1)\n    set [その人のユーザー名 v] to (join (その人のユーザー名) (letter (回数数えてね) of (item (数) of [他の人の情報 v])))\nend\n\ndefine いるか確認\nif <(item (1) of [他の人確認 v]) = (☁ 1p)> then\n    set [☁ 1p v] to [0]\nend\nif <(item (2) of [他の人確認 v]) = (☁ 2p)> then\n    set [☁ 2p v] to [0]\nend\nif <(item (3) of [他の人確認 v]) = (☁ 3p)> then\n    set [☁ 3p v] to [0]\nend\nif <(item (4) of [他の人確認 v]) = (☁ 4p)> then\n    set [☁ 4p v] to [0]\nend\nif <(item (5) of [他の人確認 v]) = (☁ 5p)> then\n    set [☁ 5p v] to [0]\nend\nif <(item (6) of [他の人確認 v]) = (☁ 6p)> then\n    set [☁ 6p v] to [0]\nend\nif <(item (7) of [他の人確認 v]) = (☁ 7p)> then\n    set [☁ 7p v] to [0]\nend\nif <(item (8) of [他の人確認 v]) = (☁ 8p)> then\n    set [☁ 8p v] to [0]\nend\nif <(item (9) of [他の人確認 v]) = (☁ 9p)> then\n    set [☁ 9p v] to [0]\nend\nif <(item (10) of [他の人確認 v]) = (☁ 10p)> then\n    set [☁ 10p v] to [0]\nend\n\nwhen flag clicked\nwait (3) seconds\nforever\n    いるか確認\n    wait (1) seconds\n    delete all of [他の人確認 v]\n    add (☁ 1p) to [他の人確認 v]\n    add (☁ 2p) to [他の人確認 v]\n    add (☁ 3p) to [他の人確認 v]\n    add (☁ 4p) to [他の人確認 v]\n    add (☁ 5p) to [他の人確認 v]\n    add (☁ 6p) to [他の人確認 v]\n    add (☁ 7p) to [他の人確認 v]\n    add (☁ 8p) to [他の人確認 v]\n    add (☁ 9p) to [他の人確認 v]\n    add (☁ 10p) to [他の人確認 v]\n    wait (1) seconds\nend\n\nwhen [timer v] > (time)\nif <[7800] < (スクロールx)> then\n    set [time？ v] to (round (timer))\n    forever\n        go to x: (0) y: (0)\n        erase all\n        set pen size to (1000)\n        set pen color to (#cbffff)\n        pen down\n        pen up\n        set pen size to ((540) + ((5) * ([cos v] of ((200) * (timer)) )))\n        set pen color to (#d47b38)\n        pen down\n        pen up\n        set pen size to ((500) + ((5) * ([cos v] of ((200) * (timer)) )))\n        set pen color to (#ff9545)\n        pen down\n        pen up\n        文字数値化 [You won]\n        文字加工 (文字数値化) [0] [100] ((250) + ((3) * ([cos v] of ((200) * ((timer) + (1))) ))) [15] [10] [50] [0]\n        文字加工 (文字数値化) [0] [100] ((250) + ((3) * ([cos v] of ((200) * ((timer) + (1))) ))) [15] [5] [100] [0]\n        文字数値化 (join [time ] (time？))\n        文字加工 (文字数値化) [0] [0] ((150) + ((3) * ([cos v] of ((200) * ((timer) + (2))) ))) [60] [8] [50] [0]\n        文字加工 (文字数値化) [0] [0] ((150) + ((3) * ([cos v] of ((200) * ((timer) + (2))) ))) [60] [4] [100] [0]\n        文字数値化 [Thank you for playing.]\n        文字加工 (文字数値化) [0] [-80] ((80) + ((3) * ([cos v] of ((200) * ((timer) + (3))) ))) [90] [6] [50] [0]\n        文字加工 (文字数値化) [0] [-80] ((80) + ((3) * ([cos v] of ((200) * ((timer) + (3))) ))) [90] [3] [100] [0]\n        文字数値化 [Heart and star please.]\n        文字加工 (文字数値化) [0] [-110] ((80) + ((3) * ([cos v] of ((200) * ((timer) + (4))) ))) [30] [6] [50] [0]\n        文字加工 (文字数値化) [0] [-110] ((80) + ((3) * ([cos v] of ((200) * ((timer) + (4))) ))) [30] [3] [100] [0]\n    end\nelse\n    forever\n        go to x: (0) y: (0)\n        erase all\n        set pen size to (1000)\n        set pen color to (#cbffff)\n        pen down\n        pen up\n        set pen size to ((540) + ((0) - ((5) * ([cos v] of ((200) * (timer)) ))))\n        set pen color to (#d47b38)\n        pen down\n        pen up\n        set pen size to ((500) + ((0) - ((5) * ([cos v] of ((200) * (timer)) ))))\n        set pen color to (#ff9545)\n        pen down\n        pen up\n        文字数値化 [Thank you for playing.]\n        文字加工 (文字数値化) [0] [30] ((80) + ((0) - ((3) * ([cos v] of ((200) * (timer)) )))) [90] [6] [50] [0]\n        文字加工 (文字数値化) [0] [30] ((80) + ((0) - ((3) * ([cos v] of ((200) * (timer)) )))) [90] [3] [100] [0]\n        文字数値化 [Heart and star please.]\n        文字加工 (文字数値化) [0] [-30] ((80) + ((3) * ([cos v] of ((200) * (timer)) ))) [30] [6] [50] [0]\n        文字加工 (文字数値化) [0] [-30] ((80) + ((3) * ([cos v] of ((200) * (timer)) ))) [30] [3] [100] [0]\n    end\nend\n\nwhen flag clicked\nforever\n    set [time v] to (timer)\nend\n\nset pen color to (#bb6535)\nset pen size to (50)\ngo to x: (240) y: (180)\npen down\ngo to x: (-240) y: (180)\ngo to x: (240) y: (180)\ngo to x: (240) y: (-180)\ngo to x: (-240) y: (-180)\ngo to x: (-240) y: (180)\npen up\n\ndefine サムネ\nset [スクロールx v] to [250]\nset [スクロールy v] to [50]\nset [x座標 v] to [0]\nerase all\ngo to x: (0) y: (0)\nset pen color to (#cbffff)\nset pen size to (1000)\npen down\npen up\nif <not <(雑用:置くか) = [0]>> then\n    プレイヤー\nend\ndelete all of [x v]\ndelete all of [y v]\ndelete all of [効果 v]\ndelete all of [草の効果 v]\ndelete all of [確認？ v]\n背景たち\nキャラクター [0] [0] [-5] [-1] [-8] [-3]\nキャラクター [-200] [-50] [-195] [2] [-192] [5]\n配置\n文字数値化 [Autumn]\n文字加工 (文字数値化) [-100] [100] [150] [5] [14] [50] []\n文字加工 (文字数値化) [-100] [100] [150] [5] [7] [100] []\n文字数値化 [platformer]\n文字加工 (文字数値化) [25] [50] [150] [5] [14] [50] []\n文字加工 (文字数値化) [25] [50] [150] [5] [7] [100] []\n文字数値化 [online]\n文字加工 (文字数値化) [100] [-140] [150] [30] [14] [40] []\n文字加工 (文字数値化) [100] [-140] [150] [30] [7] [90] []\n文字数値化 [100%pen]\n文字加工 (文字数値化) [-70] [-50] [120] [50] [12] [40] []\n文字加工 (文字数値化) [-70] [-50] [120] [50] [5] [90] []\n\nwhen flag clicked\nforever\n    play sound [NCS v] until done\nend\n\nwhen [timer v] > (time)\nforever\n    play sound [NCS v] until done\nend\n\n