☁ 2.5D Online Platformer 99%PEN


@Stage\n\n@メイン\n\ndefine (x) (y) (z) へ行く\ngo to x: (((item (4) of [2.5d用 v]) * ((x) + (item (1) of [2.5d用 v]))) / ((z) + (item (3) of [2.5d用 v]))) y: (((item (4) of [2.5d用 v]) * ((y) + (item (2) of [2.5d用 v]))) / ((z) + (item (3) of [2.5d用 v])))\n\ndelete all of [ステージ v]\nrepeat (120)\n    add [000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000] to [ステージ v]\nend\n\ndefine 矢印 (xかy)\nif <(xかy) = [1]> then\n    if <(y position) > [150]> then\n        set y to (150)\n    end\n    if <[-150] > (y position)> then\n        set y to (-150)\n    end\nelse\n    if <(x position) > [210]> then\n        set x to (210)\n    end\n    if <[-210] > (x position)> then\n        set x to (-210)\n    end\nend\n\ndefine ステージ変更2\nshow\nreplace item (1) of [@変数 v] with ((((mouse x) + (2)) - (((mouse x) + (2)) mod (4))) + (-2))\nreplace item (2) of [@変数 v] with (((mouse y) - ((mouse y) mod (4))) + (2))\nif <(item (1) of [@変数 v]) = [-242]> then\n    replace item (1) of [@変数 v] with [-238]\nend\nif <(item (2) of [@変数 v]) = [182]> then\n    replace item (2) of [@変数 v] with [178]\nend\nreplace item (3) of [@変数 v] with (((item (1) of [@変数 v]) + (242)) / (4))\nreplace item (4) of [@変数 v] with ((((item (2) of [@変数 v]) + (-182)) / (4)) * (-1))\ngo to x: (item (1) of [@変数 v]) y: (item (2) of [@変数 v])\nif <mouse down?> then\n    delete all of [当たり判定用 v]\n    replace item (5) of [@変数 v] with [1]\n    repeat (length of (item (item (3) of [@変数 v]) of [ステージ1 v]))\n        add (letter (item (5) of [@変数 v]) of (item (item (3) of [@変数 v]) of [ステージ1 v])) to [当たり判定用 v]\n        replace item (5) of [@変数 v] with ((item (5) of [@変数 v]) + (1))\n    end\n    replace item (item (4) of [@変数 v]) of [当たり判定用 v] with (item (8) of [@変数 v])\n    repeat until <(length of [当たり判定用 v]) = [1]>\n        replace item (1) of [当たり判定用 v] with (join (item (1) of [当たり判定用 v]) (item (2) of [当たり判定用 v]))\n        delete (2) of [当たり判定用 v]\n    end\n    replace item (item (3) of [@変数 v]) of [ステージ1 v] with (item (1) of [当たり判定用 v])\n    stamp\nend\nswitch costume to (join [c] (item (8) of [@変数 v]))\n\ndelete all of [当たり判定 v]\nadd [1] to [当たり判定 v]\n\nwhen I receive [スタート v]\nリセット\nforever\n    ステージ作成\n    他のプレイヤー\n    動く\n    スキン\n    クラウド更新\n    PEN文字 (item (20) of [@変数 v]) [-220] [160] [2] []\n    if <<not <(item (9) of [@変数 v]) = [1]>> and <not <(item (10) of [@変数 v]) = [0]>>> then\n        if <(item (11) of [@変数 v]) = [25]> then\n            replace item (11) of [@変数 v] with [0]\n            replace item (10) of [@変数 v] with ((item (10) of [@変数 v]) + (-1))\n        else\n            replace item (11) of [@変数 v] with ((item (11) of [@変数 v]) + (1))\n        end\n        if <(item (10) of [@変数 v]) = [0]> then\n            replace item (9) of [@変数 v] with [1]\n        else\n            if <(item (1) of [設定 v]) = [1]> then\n                PEN文字 (join [Power ] (item (10) of [@変数 v])) [90] [160] [2] []\n            else\n                PEN文字 (item (10) of [@変数 v]) [185] [160] [2] []\n            end\n        end\n    end\nend\n\ndefine PEN文字 (内容) (x) (y) (サイズ) (内容2)\nset pen size to ((8) / ((サイズ) + (<(サイズ) > [1]> * (.4))))\nset pen color to (#000000)\ndelete all of [@変数pen v]\nadd (x) to [@変数pen v]\nadd (y) to [@変数pen v]\nrepeat (7)\n    add [1] to [@変数pen v]\nend\nif <(内容) = []> then\n    repeat ((length of (内容2)) / (2))\n        if <(letter (item (7) of [@変数pen v]) of (内容2)) = [ ]> then\n            replace item (1) of [@変数pen v] with ((item (1) of [@変数pen v]) + (((35) / (サイズ)) / (2)))\n            replace item (7) of [@変数pen v] with ((item (7) of [@変数pen v]) + (2))\n        else\n            replace item (4) of [@変数pen v] with [1]\n            replace item (9) of [@変数pen v] with (join (letter (item (7) of [@変数pen v]) of (内容2)) (letter ((item (7) of [@変数pen v]) + (1)) of (内容2)))\n            replace item (9) of [@変数pen v] with ((item (9) of [@変数pen v]) + (0))\n            switch costume to ( v)\n            replace item (3) of [@変数pen v] with (item (item (9) of [@変数pen v]) of [pen文字  data v])\n            if <not <(item (3) of [@変数pen v]) = []>> then\n                repeat until <(length of (item (3) of [@変数pen v])) = ((item (4) of [@変数pen v]) - (1))>\n                    replace item (5) of [@変数pen v] with []\n                    repeat until <(letter (item (4) of [@変数pen v]) of (item (3) of [@変数pen v])) = [,]>\n                        replace item (5) of [@変数pen v] with (join (item (5) of [@変数pen v]) (letter (item (4) of [@変数pen v]) of (item (3) of [@変数pen v])))\n                        replace item (4) of [@変数pen v] with ((item (4) of [@変数pen v]) + (1))\n                    end\n                    replace item (4) of [@変数pen v] with ((item (4) of [@変数pen v]) + (1))\n                    replace item (6) of [@変数pen v] with []\n                    repeat until <(letter (item (4) of [@変数pen v]) of (item (3) of [@変数pen v])) = [,]>\n                        replace item (6) of [@変数pen v] with (join (item (6) of [@変数pen v]) (letter (item (4) of [@変数pen v]) of (item (3) of [@変数pen v])))\n                        replace item (4) of [@変数pen v] with ((item (4) of [@変数pen v]) + (1))\n                    end\n                    replace item (4) of [@変数pen v] with ((item (4) of [@変数pen v]) + (1))\n                    go to x: ((item (1) of [@変数pen v]) + ((item (5) of [@変数pen v]) / (サイズ))) y: ((item (2) of [@変数pen v]) + ((item (6) of [@変数pen v]) / (サイズ)))\n                    pen down\n                    pen up\n                end\n                replace item (1) of [@変数pen v] with ((item (1) of [@変数pen v]) + ((35) / (サイズ)))\n                replace item (7) of [@変数pen v] with ((item (7) of [@変数pen v]) + (2))\n            end\n        end\n    end\nelse\n    repeat (length of (内容))\n        if <(letter (item (7) of [@変数pen v]) of (内容)) = [ ]> then\n            replace item (1) of [@変数pen v] with ((item (1) of [@変数pen v]) + (((35) / (サイズ)) / (2)))\n            replace item (7) of [@変数pen v] with ((item (7) of [@変数pen v]) + (1))\n        else\n            replace item (4) of [@変数pen v] with [1]\n            switch costume to (letter (item (7) of [@変数pen v]) of (内容))\n            replace item (8) of [@変数pen v] with (costume [name v])\n            replace item (9) of [@変数pen v] with (costume [number v])\n            switch costume to ( v)\n            replace item (3) of [@変数pen v] with (item ((item (9) of [@変数pen v]) - (costume [number v])) of [pen文字  data v])\n            switch costume to (item (8) of [@変数 v])\n            if <not <(item (3) of [@変数pen v]) = []>> then\n                repeat until <(length of (item (3) of [@変数pen v])) = ((item (4) of [@変数pen v]) - (1))>\n                    replace item (5) of [@変数pen v] with []\n                    repeat until <(letter (item (4) of [@変数pen v]) of (item (3) of [@変数pen v])) = [,]>\n                        replace item (5) of [@変数pen v] with (join (item (5) of [@変数pen v]) (letter (item (4) of [@変数pen v]) of (item (3) of [@変数pen v])))\n                        replace item (4) of [@変数pen v] with ((item (4) of [@変数pen v]) + (1))\n                    end\n                    replace item (4) of [@変数pen v] with ((item (4) of [@変数pen v]) + (1))\n                    replace item (6) of [@変数pen v] with []\n                    repeat until <(letter (item (4) of [@変数pen v]) of (item (3) of [@変数pen v])) = [,]>\n                        replace item (6) of [@変数pen v] with (join (item (6) of [@変数pen v]) (letter (item (4) of [@変数pen v]) of (item (3) of [@変数pen v])))\n                        replace item (4) of [@変数pen v] with ((item (4) of [@変数pen v]) + (1))\n                    end\n                    replace item (4) of [@変数pen v] with ((item (4) of [@変数pen v]) + (1))\n                    switch costume to ( v)\n                    go to x: ((item (1) of [@変数pen v]) + ((item (5) of [@変数pen v]) / (サイズ))) y: ((item (2) of [@変数pen v]) + ((item (6) of [@変数pen v]) / (サイズ)))\n                    pen down\n                    pen up\n                end\n                replace item (1) of [@変数pen v] with ((item (1) of [@変数pen v]) + ((35) / (サイズ)))\n                replace item (7) of [@変数pen v] with ((item (7) of [@変数pen v]) + (1))\n            end\n        end\n    end\nend\n\nwhen flag clicked\ndelete all of [チェックポイント v]\nadd [0] to [チェックポイント v]\nadd [-3260] to [チェックポイント v]\nadd [] to [チェックポイント v]\nadd [] to [チェックポイント v]\nhide\ndelete all of [@変数 v]\nadd [1] to [@変数 v]\ndelete all of [ステージ v]\nrepeat (120)\n    add (item (item (1) of [@変数 v]) of [ステージ1 v]) to [ステージ v]\n    replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (1))\nend\ndelete all of [クラウド用 v]\nrepeat (5)\n    add [] to [クラウド用 v]\nend\ndelete all of [@変数 v]\nrepeat (4)\n    add [1] to [@変数 v]\nend\nreplace item (2) of [@変数 v] with []\nrepeat (length of (username))\n    switch costume to (letter (item (1) of [@変数 v]) of (username))\n    replace item (3) of [@変数 v] with (costume [name v])\n    replace item (4) of [@変数 v] with (costume [number v])\n    switch costume to ( v)\n    replace item (4) of [@変数 v] with ((item (4) of [@変数 v]) - (costume [number v]))\n    if <(length of (item (4) of [@変数 v])) = [1]> then\n        replace item (2) of [@変数 v] with (join (item (2) of [@変数 v]) (join [0] (item (4) of [@変数 v])))\n    else\n        replace item (2) of [@変数 v] with (join (item (2) of [@変数 v]) (item (4) of [@変数 v]))\n    end\n    replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (1))\nend\nreplace item (5) of [クラウド用 v] with (item (2) of [@変数 v])\nswitch costume to ( v)\nhide\nset [#player v] to [0]\nerase all\nリセット\n動く\nステージ作成\nplayer [0] [0] [1] []\nプレイヤー確認\nbroadcast (スタート v)\n\nwhen flag clicked\nforever\n    replace item (17) of [@変数 v] with [0]\n    reset timer\n    repeat until <(timer) > [1]>\n        replace item (17) of [@変数 v] with ((item (17) of [@変数 v]) + (1))\n    end\n    replace item (18) of [@変数 v] with (item (17) of [@変数 v])\n    if <not <key (z v) pressed?>> then\n        if <(item (18) of [@変数 v]) < [15]> then\n            if <(item (2) of [設定 v]) = [1]> then\n                replace item (2) of [設定 v] with [2]\n            else\n                if <(item (18) of [@変数 v]) < [13]> then\n                    if <(item (1) of [設定 v]) = [1]> then\n                        replace item (1) of [設定 v] with [2]\n                    end\n                end\n            end\n        end\n    end\nend\n\ndefine クラウド更新\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    if <(length of (item (9) of [@変数 v])) = [1]> then\n        replace item (4) of [クラウド用 v] with (join (item (2) of [クラウド用 v]) (join (item (3) of [クラウド用 v]) (join (join [0] (item (9) of [@変数 v])) (item (5) of [クラウド用 v]))))\n    else\n        replace item (4) of [クラウド用 v] with (join (item (2) of [クラウド用 v]) (join (item (3) of [クラウド用 v]) (join (item (9) of [@変数 v]) (item (5) of [クラウド用 v]))))\n    end\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\nend\nreplace item (1) of [クラウド用 v] with ((item (1) of [クラウド用 v]) + (1))\nreplace item (3) of [クラウド用 v] with (join (item (3) of [クラウド用 v]) (join ((item (5) of [@変数 v]) + (13000)) ((item (6) of [@変数 v]) + (7000))))\n\ndefine リセット\ndelete all of [2.5d用 v]\nrepeat (13)\n    add [0] to [2.5d用 v]\nend\ndelete all of [@変数 v]\nrepeat (21)\n    add [0] to [@変数 v]\nend\nreplace item (5) of [@変数 v] with (item (1) of [チェックポイント v])\nreplace item (6) of [@変数 v] with (item (2) of [チェックポイント v])\nreplace item (9) of [@変数 v] with [1]\ndelete all of [当たり判定用 v]\nrepeat (15)\n    add [0] to [当たり判定用 v]\nend\ndelete all of [触れているブロック v]\nrepeat (10)\n    add [false] to [触れているブロック v]\nend\ndelete all of [他のプレイヤー用 v]\nrepeat (112)\n    add [] to [他のプレイヤー用 v]\nend\n\ndefine 他のプレイヤー\nreplace item (1) of [他のプレイヤー用 v] with (☁ player1)\nreplace item (15) of [他のプレイヤー用 v] with (☁ player2)\nreplace item (29) of [他のプレイヤー用 v] with (☁ player3)\nreplace item (43) of [他のプレイヤー用 v] with (☁ player4)\nreplace item (57) of [他のプレイヤー用 v] with (☁ player5)\nreplace item (71) of [他のプレイヤー用 v] with (☁ player6)\nreplace item (85) of [他のプレイヤー用 v] with (☁ player7)\nreplace item (99) of [他のプレイヤー用 v] with (☁ player8)\nreplace item (12) of [@変数 v] with [1]\nrepeat (8)\n    if <<not <(item (item (12) of [@変数 v]) of [他のプレイヤー用 v]) = [0]>> and <not <((((item (12) of [@変数 v]) - (1)) / (14)) + (1)) = (#player)>>> then\n        replace item (13) of [@変数 v] with [2]\n        replace item (14) of [@変数 v] with [4]\n        if <(item ((item (12) of [@変数 v]) + (1)) of [他のプレイヤー用 v]) = (letter (1) of (item (item (12) of [@変数 v]) of [他のプレイヤー用 v]))> then\n        player ((item (5) of [@変数 v]) - (item ((item (12) of [@変数 v]) + (4)) of [他のプレイヤー用 v])) ((item (6) of [@変数 v]) - (item ((item (12) of [@変数 v]) + (5)) of [他のプレイヤー用 v])) (item ((item (12) of [@変数 v]) + (2)) of [他のプレイヤー用 v]) [1]\n        replace item (16) of [@変数 v] with [0]\n        go to x: ((item ((item (12) of [@変数 v]) + (12)) of [他のプレイヤー用 v]) + (10)) y: ((item ((item (12) of [@変数 v]) + (13)) of [他のプレイヤー用 v]) + (-40))\n        if <(x position) > [270]> then\n            replace item (16) of [@変数 v] with [1]\n            set x to (210)\n            矢印 [1]\n        else\n            if <[-270] > (x position)> then\n                replace item (16) of [@変数 v] with [1]\n                set x to (-210)\n                矢印 [1]\n            else\n                if <(y position) > [210]> then\n                    replace item (16) of [@変数 v] with [1]\n                    set y to (150)\n                    矢印 [2]\n                else\n                    if <[-210] > (y position)> then\n                        replace item (16) of [@変数 v] with [1]\n                        set y to (-150)\n                        矢印 [2]\n                    end\n                end\n            end\n        end\n        if <(item (16) of [@変数 v]) = [1]> then\n            point towards (サムネ v)\n            turn right (180) degrees\n            pen down\n            move (20) steps\n            turn right (135) degrees\n            move (10) steps\n            turn right (180) degrees\n            move (10) steps\n            turn right (-90) degrees\n            move (10) steps\n            pen up\n        end\n        if <(item (2) of [設定 v]) = [1]> then\n            PEN文字 [] ((item ((item (12) of [@変数 v]) + (12)) of [他のプレイヤー用 v]) + ((((length of (item ((item (12) of [@変数 v]) + (3)) of [他のプレイヤー用 v])) / (2)) * (7)) * (-1))) (item ((item (12) of [@変数 v]) + (13)) of [他のプレイヤー用 v]) [2] (item ((item (12) of [@変数 v]) + (3)) of [他のプレイヤー用 v])\n        end\n        replace item (13) of [@変数 v] with [4]\n        if <not <(item ((item (12) of [@変数 v]) + ((item (13) of [@変数 v]) + (2))) of [他のプレイヤー用 v]) = []>> then\n            repeat (6)\n                replace item ((item (12) of [@変数 v]) + (item (13) of [@変数 v])) of [他のプレイヤー用 v] with (item ((item (12) of [@変数 v]) + ((item (13) of [@変数 v]) + (2))) of [他のプレイヤー用 v])\n                replace item (13) of [@変数 v] with ((item (13) of [@変数 v]) + (1))\n            end\n            repeat (2)\n                replace item ((item (12) of [@変数 v]) + (item (13) of [@変数 v])) of [他のプレイヤー用 v] with []\n                replace item (13) of [@変数 v] with ((item (13) of [@変数 v]) + (1))\n            end\n        end\n    end\n    replace item (12) of [@変数 v] with ((item (12) of [@変数 v]) + (14))\nend\npoint in direction (90)\n\ndefine 2D\n[-20] [20] [0] へ行く\npen down\nset pen size to (4)\n[20] [20] [0] へ行く\n[20] [-20] [0] へ行く\n[-20] [-20] [0] へ行く\n[-20] [20] [0] へ行く\npen up\n\ndefine 旗\nreplace item (11) of [2.5d用 v] with [3]\nreplace item (12) of [2.5d用 v] with [0]\n[5] [17] [-10] へ行く\nset pen color to (#c10000)\nset pen size to (5)\npen down\n[5] [-15] [-10] へ行く\npen up\n[5] [-13] [-10] へ行く\nset pen color to (#cc0000)\nset pen size to (10)\npen down\npen up\nreplace item (13) of [2.5d用 v] with [2]\nset pen color to (#ff00bb)\nset pen size to (3)\nrepeat (5)\n    (item (13) of [2.5d用 v]) (((item (11) of [2.5d用 v]) * ([sin v] of ((item (10) of [2.5d用 v]) + (item (12) of [2.5d用 v])) )) + (10)) [-10] へ行く\n    pen down\n    (item (13) of [2.5d用 v]) (((item (11) of [2.5d用 v]) * ([sin v] of ((item (10) of [2.5d用 v]) + (item (12) of [2.5d用 v])) )) + (-5)) [-10] へ行く\n    pen up\n    replace item (13) of [2.5d用 v] with ((item (13) of [2.5d用 v]) + (-3))\n    replace item (11) of [2.5d用 v] with ((item (11) of [2.5d用 v]) + (2))\n    replace item (12) of [2.5d用 v] with ((item (12) of [2.5d用 v]) + (10))\nend\n\ndefine ステージ作成\nswitch costume to ( v)\nerase all\nreplace item (8) of [2.5d用 v] with ((item (8) of [2.5d用 v]) + (.2))\nif <<(item (8) of [2.5d用 v]) < [40]> and <(item (8) of [2.5d用 v]) > [25]>> then\n    replace item (8) of [2.5d用 v] with [42]\nend\nif <(item (8) of [2.5d用 v]) > [100]> then\n    replace item (8) of [2.5d用 v] with [0]\nend\nreplace item (10) of [2.5d用 v] with ((item (10) of [2.5d用 v]) + (5))\nif <(item (1) of [設定 v]) = [1]> then\n    ステージ作成2 [300] [0] [-240] [0] [17] [13] [1]\n    ステージ作成2 [300] [0] [-240] [0] [17] [13] [2]\nelse\n    ステージ作成2 [180] [3] [-120] [3] [11] [8] [1]\n    ステージ作成2 [180] [3] [-120] [3] [11] [8] [2]\nend\n\ndefine player (x) (y) (スキン) (他のプレイヤー)\nreplace item (1) of [2.5d用 v] with [0]\nreplace item (2) of [2.5d用 v] with [0]\nreplace item (4) of [2.5d用 v] with [80]\nif <(スキン) = [1]> then\n    set pen color to (#0043ff)\nend\nif <(スキン) = [2]> then\n    set pen color to (#ff00bb)\nend\nif <(スキン) = [3]> then\n    set pen color to (#00bfff)\nend\nif <(スキン) = [4]> then\n    set pen color to (#ffd000)\nend\nif <(スキン) = [5]> then\n    set pen color to (#faff00)\nend\nif <(スキン) = [6]> then\n    set pen color to (#ff0000)\nend\nif <(スキン) = [7]> then\n    set pen color to (#e6ffde)\nend\nif <(スキン) = [8]> then\n    set pen color to (#3dff00)\n    set pen (color v) to ((item (8) of [2.5d用 v]) + (pick random (1) to (10)))\nend\n((x) + (-20)) ((y) + (60)) [0] へ行く\npen down\nset pen size to (4)\n((x) + (20)) ((y) + (60)) [0] へ行く\n((x) + (20)) ((y) + (20)) [0] へ行く\n((x) + (-20)) ((y) + (20)) [0] へ行く\n((x) + (-20)) ((y) + (60)) [0] へ行く\npen up\nif <(他のプレイヤー) = [1]> then\n    (x) (y) [0] へ行く\n    replace item ((item (12) of [@変数 v]) + (12)) of [他のプレイヤー用 v] with (x position)\n    replace item ((item (12) of [@変数 v]) + (13)) of [他のプレイヤー用 v] with (y position)\nend\n\nwhen I receive [ステージ変更 v]\ndelete all of [@変数 v]\nrepeat (3)\n    add [0] to [@変数 v]\nend\nステージ変更\ndelete all of [@変数 v]\nrepeat (9)\n    add [0] to [@変数 v]\nend\nreplace item (9) of [@変数 v] with [1]\nreplace item (8) of [@変数 v] with [1]\nforever\n    ステージ変更2\n    if <key (x v) pressed?> then\n        replace item (9) of [@変数 v] with ((item (9) of [@変数 v]) + (1))\n        if <(item (9) of [@変数 v]) = [13]> then\n            replace item (9) of [@変数 v] with [0]\n        end\n        if <(item (9) of [@変数 v]) = [10]> then\n            replace item (8) of [@変数 v] with [a]\n        else\n            if <(item (9) of [@変数 v]) = [11]> then\n                replace item (8) of [@変数 v] with [b]\n            else\n                if <(item (9) of [@変数 v]) = [12]> then\n                    replace item (8) of [@変数 v] with [c]\n                else\n                    replace item (8) of [@変数 v] with (item (9) of [@変数 v])\n                end\n            end\n        end\n        wait until <not <key (x v) pressed?>>\n    end\nend\n\ndefine スキン\nif <(username) = [kouttakunn]> then\n    if <key (1 v) pressed?> then\n        replace item (9) of [@変数 v] with [2]\n        replace item (10) of [@変数 v] with [999]\n    end\n    if <key (2 v) pressed?> then\n        replace item (9) of [@変数 v] with [3]\n        replace item (10) of [@変数 v] with [999]\n    end\n    if <key (3 v) pressed?> then\n        replace item (9) of [@変数 v] with [3]\n        replace item (10) of [@変数 v] with [999]\n    end\n    if <key (4 v) pressed?> then\n        replace item (9) of [@変数 v] with [4]\n        replace item (10) of [@変数 v] with [999]\n    end\n    if <key (5 v) pressed?> then\n        replace item (9) of [@変数 v] with [5]\n        replace item (10) of [@変数 v] with [999]\n    end\n    if <key (6 v) pressed?> then\n        replace item (9) of [@変数 v] with [6]\n        replace item (10) of [@変数 v] with [999]\n    end\n    if <key (7 v) pressed?> then\n        replace item (9) of [@変数 v] with [7]\n        replace item (10) of [@変数 v] with [999]\n    end\n    if <key (g v) pressed?> then\n        replace item (9) of [@変数 v] with [8]\n        replace item (10) of [@変数 v] with [999]\n    end\nend\nif <key (x v) pressed?> then\n    replace item (10) of [@変数 v] with [1]\n    replace item (11) of [@変数 v] with [25]\nend\n\ndefine 変数更新\nreplace item (1) of [@変数 v] with ((item (5) of [@変数 v]) mod (40))\nreplace item (3) of [@変数 v] with (((item (5) of [@変数 v]) - ((item (5) of [@変数 v]) mod (40))) / (40))\nreplace item (2) of [@変数 v] with ((item (6) of [@変数 v]) mod (40))\nreplace item (4) of [@変数 v] with ((((item (6) of [@変数 v]) - ((item (6) of [@変数 v]) mod (40))) / (40)) * (-1))\n\nwhen I receive [スタート v]\nforever\n    if <key (b v) pressed?> then\n        if <(item (1) of [設定 v]) = [1]> then\n            replace item (1) of [設定 v] with [2]\n        else\n            replace item (1) of [設定 v] with [1]\n        end\n        wait until <not <key (b v) pressed?>>\n    end\n    if <key (n v) pressed?> then\n        if <(item (2) of [設定 v]) = [1]> then\n            replace item (2) of [設定 v] with [2]\n        else\n            replace item (2) of [設定 v] with [1]\n        end\n        wait until <not <key (n v) pressed?>>\n    end\n    if <key (m v) pressed?> then\n        if <(item (3) of [設定 v]) = [1]> then\n            replace item (3) of [設定 v] with [2]\n        else\n            replace item (3) of [設定 v] with [1]\n        end\n        wait until <not <key (m v) pressed?>>\n    end\n    if <key (v v) pressed?> then\n        if <(item (4) of [設定 v]) = [1]> then\n            replace item (4) of [設定 v] with [2]\n        else\n            replace item (4) of [設定 v] with [1]\n        end\n        wait until <not <key (v v) pressed?>>\n    end\nend\n\ndefine pen data\ndelete all of [pen文字  data v]\nadd [0,0,5,5,-5,-5,10,10,10,5,10,0,10,-5,10,-10,5,-15,0,-15,-5,-15,-10,-10,-10,-5,-10,0,-10,5,-10,10,-5,15,0,15,5,15,] to [pen文字  data v]\nadd [0,0,0,5,0,10,0,15,-5,10,-10,5,0,-5,0,-10,0,-15,-5,-15,-10,-15,5,-15,10,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,10,10,10,5,10,0,0,-5,5,-5,-10,-10,-5,-10,-10,-15,-5,-15,0,-15,5,-15,10,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,10,10,10,5,0,0,5,0,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [0,15,5,15,-5,10,5,10,-10,5,5,5,-10,0,5,0,-10,-5,5,-5,-10,-10,-5,-10,0,-10,5,-10,10,-10,5,-15,] to [pen文字  data v]\nadd [-10,15,-5,15,0,15,5,15,10,15,-10,10,-10,5,-5,5,0,5,5,5,10,0,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,-10,5,-5,5,0,5,5,5,-10,0,10,0,-10,-5,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-10,15,-5,15,0,15,5,15,10,15,-10,10,10,10,10,5,5,0,5,-5,0,-10,0,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,10,10,-10,5,10,5,-5,0,0,0,5,0,-10,-5,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,10,10,-10,5,10,5,-10,0,10,0,-5,-5,0,-5,5,-5,10,-5,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,10,10,-10,5,10,5,-10,0,10,0,-10,-5,-5,-5,0,-5,5,-5,10,-5,-10,-10,10,-10,-10,-15,10,-15,] to [pen文字  data v]\nadd [-10,15,-5,15,0,15,5,15,-5,10,10,10,-5,5,10,5,-5,0,0,0,5,0,-5,-5,10,-5,-5,-10,10,-10,-10,-15,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,10,10,-10,5,-10,0,-10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-10,15,-5,15,0,15,5,15,-5,10,10,10,-5,5,10,5,-5,0,10,0,-5,-5,10,-5,-5,-10,10,-10,-10,-15,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-10,15,-5,15,0,15,5,15,10,15,-10,10,-10,5,-10,0,-5,0,0,0,5,0,10,0,-10,-5,-10,-10,-10,-15,-5,-15,0,-15,5,-15,10,-15,] to [pen文字  data v]\nadd [-10,15,-5,15,0,15,5,15,10,15,-10,10,-10,5,-10,0,-5,0,0,0,5,0,10,0,-10,-5,-10,-10,-10,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,10,10,-10,5,-10,0,-10,-5,5,-5,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,10,-15,] to [pen文字  data v]\nadd [-10,15,10,15,-10,10,10,10,-10,5,10,5,-10,0,-5,0,0,0,5,0,10,0,-10,-5,10,-5,-10,-10,10,-10,-10,-15,10,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,0,10,0,5,0,0,0,-5,0,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [0,15,5,15,10,15,5,10,5,5,5,0,5,-5,-10,-10,5,-10,-5,-15,0,-15,] to [pen文字  data v]\nadd [-10,15,10,15,-10,10,5,10,-10,5,0,5,-10,0,-5,0,-10,-5,0,-5,-10,-10,5,-10,-10,-15,10,-15,] to [pen文字  data v]\nadd [-10,15,-10,10,-10,5,-10,0,-10,-5,-10,-10,-10,-15,-5,-15,0,-15,5,-15,10,-15,] to [pen文字  data v]\nadd [-10,15,10,15,-10,10,-5,10,5,10,10,10,-10,5,-5,5,5,5,10,5,-10,0,0,0,10,0,-10,-5,0,-5,10,-5,-10,-10,0,-10,10,-10,-10,-15,10,-15,] to [pen文字  data v]\nadd [-10,15,10,15,-10,10,-5,10,10,10,-10,5,-5,5,10,5,-10,0,0,0,10,0,-10,-5,5,-5,10,-5,-10,-10,5,-10,10,-10,-10,-15,10,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,10,10,-10,5,10,5,-10,0,10,0,-10,-5,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-10,15,-5,15,0,15,5,15,-10,10,10,10,-10,5,10,5,-10,0,10,0,-10,-5,-5,-5,0,-5,5,-5,-10,-10,-10,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,10,10,-10,5,10,5,-10,0,10,0,-10,-5,0,-5,10,-5,-10,-10,5,-10,-5,-15,0,-15,10,-15,] to [pen文字  data v]\nadd [-10,15,-5,15,0,15,5,15,-10,10,10,10,-10,5,10,5,-10,0,10,0,-10,-5,-5,-5,0,-5,5,-5,-10,-10,5,-10,-10,-15,10,-15,] to [pen文字  data v]\nadd [-5,15,0,15,5,15,-10,10,10,10,-10,5,-5,0,0,0,5,0,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-10,15,-5,15,0,15,5,15,10,15,0,10,0,5,0,0,0,-5,0,-10,0,-15,] to [pen文字  data v]\nadd [-10,15,10,15,-10,10,10,10,-10,5,10,5,-10,0,10,0,-10,-5,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-10,15,10,15,-10,10,10,10,-5,5,5,5,-5,0,5,0,-5,-5,5,-5,0,-10,0,-15,] to [pen文字  data v]\nadd [-10,15,10,15,-10,10,10,10,-10,5,0,5,10,5,-10,0,0,0,10,0,-10,-5,0,-5,10,-5,-5,-10,5,-10,-5,-15,5,-15,] to [pen文字  data v]\nadd [-10,15,10,15,-10,10,10,10,-5,5,5,5,0,0,-5,-5,5,-5,-10,-10,10,-10,-10,-15,10,-15,] to [pen文字  data v]\nadd [-10,15,10,15,-10,10,10,10,-5,5,5,5,0,0,0,-5,0,-10,0,-15,] to [pen文字  data v]\nadd [-10,15,-5,15,0,15,5,15,10,15,10,10,5,5,0,0,-5,-5,-10,-10,-10,-15,-5,-15,0,-15,5,-15,10,-15,] to [pen文字  data v]\nadd [-5,5,0,5,5,5,10,0,-5,-5,0,-5,5,-5,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,15,-15,] to [pen文字  data v]\nadd [-10,15,-10,10,-10,5,0,5,5,5,-10,0,-5,0,10,0,-10,-5,10,-5,-10,-10,10,-10,-10,-15,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-5,5,0,5,5,5,-10,0,10,0,-10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [10,15,10,10,-5,5,0,5,10,5,-10,0,5,0,10,0,-10,-5,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,10,-15,] to [pen文字  data v]\nadd [-5,5,0,5,5,5,-10,0,10,0,-10,-5,-5,-5,0,-5,5,-5,10,-5,-10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [0,15,5,15,-5,10,-5,5,-10,0,-5,0,0,0,5,0,10,0,-5,-5,-5,-10,-5,-15,] to [pen文字  data v]\nadd [-5,5,0,5,5,5,15,5,-10,0,10,0,-10,-5,10,-5,-5,-10,0,-10,5,-10,10,-10,10,-15,-5,-20,0,-20,5,-20,] to [pen文字  data v]\nadd [-10,15,-10,10,-10,5,0,5,5,5,-10,0,-5,0,10,0,-10,-5,10,-5,-10,-10,10,-10,-10,-15,10,-15,] to [pen文字  data v]\nadd [0,10,-5,0,0,0,0,-5,0,-10,0,-15,] to [pen文字  data v]\nadd [5,10,0,0,5,0,5,-5,5,-10,5,-15,-5,-20,0,-20,] to [pen文字  data v]\nadd [-5,15,-5,10,-5,5,10,5,-5,0,5,0,-5,-5,0,-5,-5,-10,5,-10,-5,-15,10,-15,] to [pen文字  data v]\nadd [-5,15,0,15,0,10,0,5,0,0,0,-5,0,-10,0,-15,5,-15,] to [pen文字  data v]\nadd [-10,0,-5,0,0,0,5,0,-10,-5,0,-5,10,-5,-10,-10,0,-10,10,-10,-10,-15,0,-15,10,-15,] to [pen文字  data v]\nadd [-10,0,-5,0,0,0,5,0,-10,-5,10,-5,-10,-10,10,-10,-10,-15,10,-15,] to [pen文字  data v]\nadd [-5,5,0,5,5,5,-10,0,10,0,-10,-5,10,-5,-10,-10,10,-10,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-5,5,0,5,5,5,-10,0,10,0,-10,-5,10,-5,-10,-10,-5,-10,0,-10,5,-10,-10,-15,-10,-20,] to [pen文字  data v]\nadd [-5,5,0,5,5,5,-10,0,10,0,-10,-5,10,-5,-5,-10,0,-10,5,-10,10,-10,10,-15,10,-20,] to [pen文字  data v]\nadd [-10,0,0,0,5,0,-10,-5,-5,-5,10,-5,-10,-10,-10,-15,] to [pen文字  data v]\nadd [-5,5,0,5,5,5,10,5,-10,0,-5,-5,0,-5,5,-5,10,-10,-10,-15,-5,-15,0,-15,5,-15,] to [pen文字  data v]\nadd [-5,15,-5,10,-10,5,-5,5,0,5,5,5,10,5,-5,0,-5,-5,-5,-10,0,-15,5,-15,] to [pen文字  data v]\nadd [-10,5,5,5,-10,0,5,0,-10,-5,5,-5,-10,-10,5,-10,-5,-15,0,-15,10,-15,] to [pen文字  data v]\nadd [-10,5,10,5,-10,0,10,0,-5,-5,5,-5,-5,-10,5,-10,0,-15,] to [pen文字  data v]\nadd [-10,5,10,5,-10,0,0,0,10,0,-10,-5,0,-5,10,-5,-5,-10,5,-10,-5,-15,5,-15,] to [pen文字  data v]\nadd [-10,5,10,5,-5,0,5,0,0,-5,-5,-10,5,-10,-10,-15,10,-15,] to [pen文字  data v]\nadd [-10,5,10,5,-10,0,10,0,-5,-5,5,-5,-5,-10,5,-10,0,-15,-10,-20,-5,-20,] to [pen文字  data v]\nadd [-10,5,-5,5,0,5,5,5,10,5,5,0,0,-5,-5,-10,-10,-15,-5,-15,0,-15,5,-15,10,-15,] to [pen文字  data v]\nadd [-5,0,0,0,5,0,] to [pen文字  data v]\nadd [-10,-15,-5,-15,0,-15,5,-15,10,-15,] to [pen文字  data v]\nadd [0,0,5,5,5,10,-5,-5,-5,-10,10,15,-10,-15,] to [pen文字  data v]\n\ndefine 動く\nif <(item (9) of [@変数 v]) = [8]> then\n    delete all of [当たり判定 v]\n    add [1] to [当たり判定 v]\n    add [2] to [当たり判定 v]\nelse\n    delete all of [当たり判定 v]\n    add [1] to [当たり判定 v]\nend\nplayer [0] [0] (item (9) of [@変数 v]) []\nif <(item (9) of [@変数 v]) = [7]> then\n    if <(item (8) of [@変数 v]) < [0]> then\n        replace item (8) of [@変数 v] with ((item (8) of [@変数 v]) + (-.3))\n    else\n        replace item (8) of [@変数 v] with ((item (8) of [@変数 v]) + (-.8))\n    end\nelse\n    replace item (8) of [@変数 v] with ((item (8) of [@変数 v]) + (-1))\nend\nif <key (right arrow v) pressed?> then\n    if <(item (9) of [@変数 v]) = [2]> then\n        replace item (7) of [@変数 v] with ((item (7) of [@変数 v]) + (1.3))\n    else\n        if <(item (9) of [@変数 v]) = [4]> then\n            replace item (7) of [@変数 v] with ((item (7) of [@変数 v]) + (1.5))\n        else\n            replace item (7) of [@変数 v] with ((item (7) of [@変数 v]) + (1))\n        end\n    end\nend\nif <key (left arrow v) pressed?> then\n    if <(item (9) of [@変数 v]) = [2]> then\n        replace item (7) of [@変数 v] with ((item (7) of [@変数 v]) + (-1.3))\n    else\n        if <(item (9) of [@変数 v]) = [4]> then\n            replace item (7) of [@変数 v] with ((item (7) of [@変数 v]) + (-1.5))\n        else\n            replace item (7) of [@変数 v] with ((item (7) of [@変数 v]) + (-1))\n        end\n    end\nend\nreplace item (7) of [@変数 v] with ((item (7) of [@変数 v]) * (.9))\nreplace item (5) of [@変数 v] with ((item (5) of [@変数 v]) + (round (item (7) of [@変数 v])))\nreplace item (1) of [データ v] with ((item (1) of [データ v]) + ([abs v] of (round (item (7) of [@変数 v])) ))\n変数更新\n当たり判定確認\nif (item (11) of [当たり判定用 v]) then\n    if <<not <(item (9) of [@変数 v]) = [8]>> and (item (2) of [触れているブロック v])> then\n        リセット\n        変数更新\n        replace item (3) of [データ v] with ((item (3) of [データ v]) + (1))\n    end\n    replace item (5) of [@変数 v] with ((item (5) of [@変数 v]) + ((round (item (7) of [@変数 v])) * (-1)))\n    replace item (1) of [データ v] with ((item (1) of [データ v]) + (([abs v] of (round (item (7) of [@変数 v])) ) * (-1)))\n    if <<key (up arrow v) pressed?> and <(item (9) of [@変数 v]) = [3]>> then\n        replace item (4) of [データ v] with ((item (4) of [データ v]) + (1))\n        replace item (8) of [@変数 v] with [13]\n        if <(item (7) of [@変数 v]) < [0]> then\n            replace item (7) of [@変数 v] with [10]\n        else\n            replace item (7) of [@変数 v] with [-10]\n        end\n    else\n        replace item (7) of [@変数 v] with [0]\n    end\n    変数更新\nend\nreplace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + (round (item (8) of [@変数 v])))\n変数更新\n当たり判定確認\nif (item (11) of [当たり判定用 v]) then\n    if <<not <(item (9) of [@変数 v]) = [8]>> and (item (2) of [触れているブロック v])> then\n        リセット\n        replace item (3) of [データ v] with ((item (3) of [データ v]) + (1))\n    end\n    replace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + ((round (item (8) of [@変数 v])) * (-1)))\n    repeat ([abs v] of (round (item (8) of [@変数 v])) )\n        if <(item (8) of [@変数 v]) < [0]> then\n            replace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + (-1))\n            変数更新\n            当たり判定確認\n            if (item (11) of [当たり判定用 v]) then\n                replace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + (1))\n                変数更新\n                当たり判定確認\n            end\n        else\n            replace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + (1))\n            変数更新\n            当たり判定確認\n            if (item (11) of [当たり判定用 v]) then\n                replace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + (-1))\n                変数更新\n                当たり判定確認\n            end\n        end\n    end\n    replace item (8) of [@変数 v] with [0]\n    変数更新\nend\nreplace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + (-1))\n変数更新\n当たり判定確認\nif <key (up arrow v) pressed?> then\n    if <<(item (9) of [@変数 v]) = [5]> and <<(item (8) of [@変数 v]) < [9]> and <(item (21) of [@変数 v]) = [1]>>> then\n        replace item (21) of [@変数 v] with [2]\n        replace item (8) of [@変数 v] with [13]\n    end\nend\nif (item (3) of [触れているブロック v]) then\n    replace item (8) of [@変数 v] with [25]\nelse\n    if <(item (9) of [@変数 v]) = [8]> then\n        if <key (up arrow v) pressed?> then\n            replace item (8) of [@変数 v] with [10]\n        end\n    else\n        if (item (11) of [当たり判定用 v]) then\n            replace item (21) of [@変数 v] with [1]\n            if <key (up arrow v) pressed?> then\n                replace item (2) of [データ v] with ((item (2) of [データ v]) + (1))\n                if <(item (9) of [@変数 v]) = [6]> then\n                    replace item (8) of [@変数 v] with [17]\n                else\n                    replace item (8) of [@変数 v] with [15]\n                end\n            end\n        end\n    end\nend\nreplace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + (1))\n変数更新\nif <(item (6) of [@変数 v]) < [-4000]> then\n    リセット\n    変数更新\n    replace item (3) of [データ v] with ((item (3) of [データ v]) + (1))\nend\nreplace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + (-1))\n変数更新\n当たり判定確認\nif <<not <(item (9) of [@変数 v]) = [8]>> and (item (2) of [触れているブロック v])> then\n    リセット\n    変数更新\n    replace item (3) of [データ v] with ((item (3) of [データ v]) + (1))\nend\nreplace item (6) of [@変数 v] with ((item (6) of [@変数 v]) + (1))\nif <(item (4) of [触れているブロック v]) and <not <(item (9) of [@変数 v]) = [2]>>> then\n    replace item (9) of [@変数 v] with [2]\n    replace item (10) of [@変数 v] with [60]\nend\nif <(item (6) of [触れているブロック v]) and <not <(item (9) of [@変数 v]) = [3]>>> then\n    replace item (9) of [@変数 v] with [3]\n    replace item (10) of [@変数 v] with [120]\nend\nif <(item (7) of [触れているブロック v]) and <not <(item (9) of [@変数 v]) = [4]>>> then\n    replace item (9) of [@変数 v] with [4]\n    replace item (10) of [@変数 v] with [120]\nend\nif <(item (8) of [触れているブロック v]) and <not <(item (9) of [@変数 v]) = [5]>>> then\n    replace item (9) of [@変数 v] with [5]\n    replace item (10) of [@変数 v] with [999]\nend\nif <(item (9) of [触れているブロック v]) and <not <(item (9) of [@変数 v]) = [6]>>> then\n    replace item (9) of [@変数 v] with [6]\n    replace item (10) of [@変数 v] with [120]\nend\nif <(item (10) of [触れているブロック v]) and <not <(item (9) of [@変数 v]) = [7]>>> then\n    replace item (9) of [@変数 v] with [7]\n    replace item (10) of [@変数 v] with [120]\nend\nif <(item (12) of [触れているブロック v]) and <not <(item (9) of [@変数 v]) = [8]>>> then\n    replace item (9) of [@変数 v] with [8]\n    replace item (10) of [@変数 v] with [∞]\nend\nif (item (11) of [触れているブロック v]) then\n    if <(letter (item (9) of [当たり判定用 v]) of (item (item (7) of [当たり判定用 v]) of [ステージ v])) = [b]> then\n        replace item (3) of [チェックポイント v] with (item (7) of [当たり判定用 v])\n        replace item (4) of [チェックポイント v] with (item (9) of [当たり判定用 v])\n    end\n    if <(letter (item (9) of [当たり判定用 v]) of (item (item (8) of [当たり判定用 v]) of [ステージ v])) = [b]> then\n        replace item (3) of [チェックポイント v] with (item (8) of [当たり判定用 v])\n        replace item (4) of [チェックポイント v] with (item (9) of [当たり判定用 v])\n    end\n    if <(letter (item (10) of [当たり判定用 v]) of (item (item (7) of [当たり判定用 v]) of [ステージ v])) = [b]> then\n        replace item (3) of [チェックポイント v] with (item (7) of [当たり判定用 v])\n        replace item (4) of [チェックポイント v] with (item (10) of [当たり判定用 v])\n    end\n    if <(letter (item (10) of [当たり判定用 v]) of (item (item (8) of [当たり判定用 v]) of [ステージ v])) = [b]> then\n        replace item (3) of [チェックポイント v] with (item (8) of [当たり判定用 v])\n        replace item (4) of [チェックポイント v] with (item (10) of [当たり判定用 v])\n    end\n    replace item (1) of [チェックポイント v] with ((((item (3) of [チェックポイント v]) - (8)) * (40)) + (20))\n    replace item (2) of [チェックポイント v] with (((((item (4) of [チェックポイント v]) - (7)) * (40)) * (-1)) + (20))\nend\n変数更新\n当たり判定確認\nif <<not <(item (9) of [@変数 v]) = [8]>> and (item (5) of [触れているブロック v])> then\n    replace item (10) of [@変数 v] with [1]\n    replace item (11) of [@変数 v] with [25]\nend\n変数更新\n\ndefine ステージ作成1 (1)\nif <(1) = [1]> then\n    if <(letter (item (7) of [2.5d用 v]) of (item (item (6) of [2.5d用 v]) of [ステージ v])) = [1]> then\n        set pen color to (#1dff00)\n        2.5D\n    end\n    if <(letter (item (7) of [2.5d用 v]) of (item (item (6) of [2.5d用 v]) of [ステージ v])) = [5]> then\n        set pen color to (#d1ffcb)\n        2.5D\n    end\nelse\n    if <(letter (item (7) of [2.5d用 v]) of (item (item (6) of [2.5d用 v]) of [ステージ v])) = [3]> then\n        set pen color to (#faff00)\n        2.5D\n    end\n    if <(letter (item (7) of [2.5d用 v]) of (item (item (6) of [2.5d用 v]) of [ステージ v])) = [2]> then\n        set pen color to (#ff0000)\n        2.5D\n    end\n    if <[虹色 v] contains (letter (item (7) of [2.5d用 v]) of (item (item (6) of [2.5d用 v]) of [ステージ v]))?> then\n        set pen color to (#ff0000)\n        set pen (color v) to (item (8) of [2.5d用 v])\n        2.5D\n    end\n    if <(letter (item (7) of [2.5d用 v]) of (item (item (6) of [2.5d用 v]) of [ステージ v])) = [b]> then\n        旗\n    end\nend\nreplace item (2) of [2.5d用 v] with ((item (2) of [2.5d用 v]) + (40))\nreplace item (7) of [2.5d用 v] with ((item (7) of [2.5d用 v]) + (1))\n\ndefine メッセージ\nif <(item (3) of [設定 v]) = [2]> then\n    delete all of [メッセージ v]\nelse\n    if <not <(length of [メッセージ v]) = [0]>> then\n        go to x: (-250) y: (120)\n        set pen color to (#c3c3c3)\n        set pen size to (30)\n        pen down\n        go to x: (250) y: (120)\n        pen up\n        PEN文字 (item (1) of [メッセージ v]) ((((length of (item (1) of [メッセージ v])) / (2)) * (16)) * (-1)) [120] [2] []\n        replace item (2) of [メッセージ v] with ((item (2) of [メッセージ v]) - (1))\n        if <(item (2) of [メッセージ v]) = [0]> then\n            delete (1) of [メッセージ v]\n            delete (1) of [メッセージ v]\n        end\n    end\nend\n\ndefine 実績\nreplace item (16) of [@変数 v] with [0]\nreplace item (15) of [@変数 v] with [1]\nrepeat (length of [実績 v])\n    if <(item (item (15) of [@変数 v]) of [実績 v]) = [1]> then\n        replace item (16) of [@変数 v] with ((item (16) of [@変数 v]) + (1))\n    end\n    replace item (15) of [@変数 v] with ((item (15) of [@変数 v]) + (1))\nend\nif <(item (4) of [設定 v]) = [1]> then\n    PEN文字 (join (join (length of [実績 v]) [/]) (item (16) of [@変数 v])) [-225] [160] [2] []\nend\nif <(item (1) of [データ v]) > [0]> then\n    if <(item (1) of [実績 v]) = [0]> then\n        replace item (1) of [実績 v] with [1]\n        add [Completed first move] to [メッセージ v]\n        add [50] to [メッセージ v]\n    end\n    if <(item (1) of [データ v]) > [1200]> then\n        if <(item (2) of [実績 v]) = [0]> then\n            replace item (2) of [実績 v] with [1]\n            add [completed the 30 block move] to [メッセージ v]\n            add [50] to [メッセージ v]\n        end\n        if <(item (1) of [データ v]) > [11999]> then\n            if <(item (3) of [実績 v]) = [0]> then\n                replace item (3) of [実績 v] with [1]\n                add [completed the 300 block move] to [メッセージ v]\n                add [50] to [メッセージ v]\n            end\n            if <(item (1) of [データ v]) > [399959]> then\n                if <(item (4) of [実績 v]) = [0]> then\n                    replace item (4) of [実績 v] with [1]\n                    add [completed the 9999 block move] to [メッセージ v]\n                    add [50] to [メッセージ v]\n                end\n            end\n        end\n    end\nend\nif <(item (2) of [データ v]) > [0]> then\n    if <(item (5) of [実績 v]) = [0]> then\n        replace item (5) of [実績 v] with [1]\n        add [Completed first jump] to [メッセージ v]\n        add [50] to [メッセージ v]\n    end\n    if <(item (2) of [データ v]) > [29]> then\n        if <(item (6) of [実績 v]) = [0]> then\n            replace item (6) of [実績 v] with [1]\n            add [Completed 30 jump] to [メッセージ v]\n            add [50] to [メッセージ v]\n        end\n        if <(item (2) of [データ v]) > [99]> then\n            if <(item (7) of [実績 v]) = [0]> then\n                replace item (7) of [実績 v] with [1]\n                add [Completed 100 jump] to [メッセージ v]\n                add [50] to [メッセージ v]\n            end\n            if <(item (2) of [データ v]) > [999]> then\n                if <(item (8) of [実績 v]) = [0]> then\n                    replace item (8) of [実績 v] with [1]\n                    add [Completed 1000 jump] to [メッセージ v]\n                    add [50] to [メッセージ v]\n                end\n            end\n        end\n    end\nend\nif <(item (3) of [データ v]) > [0]> then\n    if <(item (9) of [実績 v]) = [0]> then\n        replace item (9) of [実績 v] with [1]\n        add [Completed first death] to [メッセージ v]\n        add [50] to [メッセージ v]\n    end\n    if <(item (3) of [データ v]) > [19]> then\n        if <(item (10) of [実績 v]) = [0]> then\n            replace item (10) of [実績 v] with [1]\n            add [Completed 20 death] to [メッセージ v]\n            add [50] to [メッセージ v]\n        end\n        if <(item (3) of [データ v]) > [99]> then\n            if <(item (11) of [実績 v]) = [0]> then\n                replace item (11) of [実績 v] with [1]\n                add [Completed 100 death] to [メッセージ v]\n                add [50] to [メッセージ v]\n            end\n        end\n    end\nend\nif <(item (4) of [データ v]) > [0]> then\n    if <(item (12) of [実績 v]) = [0]> then\n        replace item (12) of [実績 v] with [1]\n        add [Completed first wall kick] to [メッセージ v]\n        add [50] to [メッセージ v]\n    end\n    if <(item (4) of [データ v]) > [29]> then\n        if <(item (13) of [実績 v]) = [0]> then\n            replace item (13) of [実績 v] with [1]\n            add [Completed first 30 kick] to [メッセージ v]\n            add [50] to [メッセージ v]\n        end\n        if <(item (4) of [データ v]) > [99]> then\n            if <(item (14) of [実績 v]) = [0]> then\n                replace item (14) of [実績 v] with [1]\n                add [Completed first 100 kick] to [メッセージ v]\n                add [50] to [メッセージ v]\n            end\n        end\n    end\nend\n\ndefine ステージ作成2 (x1) (x2) (y1) (y2) (x3) (y3) (ステージ)\nreplace item (1) of [2.5d用 v] with ((item (1) of [@変数 v]) + (x1))\nreplace item (3) of [2.5d用 v] with [-90]\nreplace item (5) of [2.5d用 v] with [-20]\nreplace item (4) of [2.5d用 v] with [90]\nreplace item (9) of [2.5d用 v] with [20]\nreplace item (6) of [2.5d用 v] with ((item (3) of [@変数 v]) + (x2))\nrepeat (x3)\n    replace item (2) of [2.5d用 v] with ((item (2) of [@変数 v]) + (y1))\n    replace item (7) of [2.5d用 v] with ((item (4) of [@変数 v]) + (y2))\n    repeat (y3)\n        ステージ作成1 (ステージ)\n    end\n    replace item (1) of [2.5d用 v] with ((item (1) of [2.5d用 v]) + (-40))\n    replace item (6) of [2.5d用 v] with ((item (6) of [2.5d用 v]) + (1))\nend\n\nwhen flag clicked\ndelete all of [メッセージ v]\nif <(最初か) = [0]> then\n    if <not <(username) = [kouttakunn]>> then\n        set [最初か v] to [1]\n    end\n    delete all of [データ v]\n    repeat (10)\n        add [0] to [データ v]\n    end\n    delete all of [実績 v]\n    repeat (100)\n        add [0] to [実績 v]\n    end\n    delete all of [設定 v]\n    repeat (10)\n        add [1] to [設定 v]\n    end\nend\n\nwhen I receive [スタート v]\nforever\n    プレイヤー確認\nend\n\ndefine 当たり判定確認\nreplace item (1) of [当たり判定用 v] with (((item (5) of [@変数 v]) + (20)) mod (40))\nreplace item (3) of [当たり判定用 v] with ((((item (5) of [@変数 v]) + (20)) - (((item (5) of [@変数 v]) + (20)) mod (40))) / (40))\nreplace item (2) of [当たり判定用 v] with ((item (6) of [@変数 v]) mod (40))\nreplace item (4) of [当たり判定用 v] with ((((item (6) of [@変数 v]) - ((item (6) of [@変数 v]) mod (40))) / (40)) * (-1))\nreplace item (7) of [当たり判定用 v] with ((item (3) of [当たり判定用 v]) + (7))\nreplace item (8) of [当たり判定用 v] with ((item (3) of [当たり判定用 v]) + ((7) + <(item (1) of [当たり判定用 v]) > [0]>))\nreplace item (9) of [当たり判定用 v] with ((item (4) of [当たり判定用 v]) + (7))\nreplace item (10) of [当たり判定用 v] with ((item (4) of [当たり判定用 v]) + ((7) - <(item (2) of [当たり判定用 v]) > [0]>))\nreplace item (12) of [当たり判定用 v] with (letter (item (9) of [当たり判定用 v]) of (item (item (7) of [当たり判定用 v]) of [ステージ v]))\nreplace item (13) of [当たり判定用 v] with (letter (item (9) of [当たり判定用 v]) of (item (item (8) of [当たり判定用 v]) of [ステージ v]))\nreplace item (14) of [当たり判定用 v] with (letter (item (10) of [当たり判定用 v]) of (item (item (7) of [当たり判定用 v]) of [ステージ v]))\nreplace item (15) of [当たり判定用 v] with (letter (item (10) of [当たり判定用 v]) of (item (item (8) of [当たり判定用 v]) of [ステージ v]))\nreplace item (11) of [当たり判定用 v] with <<[当たり判定 v] contains (item (12) of [当たり判定用 v])?> or <<[当たり判定 v] contains (item (13) of [当たり判定用 v])?> or <<[当たり判定 v] contains (item (14) of [当たり判定用 v])?> or <[当たり判定 v] contains (item (15) of [当たり判定用 v])?>>>>\ndelete all of [触れているブロック v]\nrepeat (15)\n    add [false] to [触れているブロック v]\nend\nreplace item (15) of [@変数 v] with [12]\nrepeat (4)\n    if <(item (item (15) of [@変数 v]) of [当たり判定用 v]) = [a]> then\n        replace item (item (15) of [@変数 v]) of [当たり判定用 v] with [10]\n    end\n    if <(item (item (15) of [@変数 v]) of [当たり判定用 v]) = [b]> then\n        replace item (item (15) of [@変数 v]) of [当たり判定用 v] with [11]\n    end\n    if <(item (item (15) of [@変数 v]) of [当たり判定用 v]) = [c]> then\n        replace item (item (15) of [@変数 v]) of [当たり判定用 v] with [12]\n    end\n    if <(item (item (15) of [@変数 v]) of [当たり判定用 v]) = [d]> then\n        replace item (item (15) of [@変数 v]) of [当たり判定用 v] with [13]\n    end\n    replace item (15) of [@変数 v] with ((item (15) of [@変数 v]) + (1))\nend\nreplace item (item (12) of [当たり判定用 v]) of [触れているブロック v] with [true]\nreplace item (item (13) of [当たり判定用 v]) of [触れているブロック v] with [true]\nreplace item (item (14) of [当たり判定用 v]) of [触れているブロック v] with [true]\nreplace item (item (15) of [当たり判定用 v]) of [触れているブロック v] with [true]\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]\nreplace item (19) of [@変数 v] with [8]\nwait (.5) seconds\nif <(item (1) of [プレイヤー確認用 v]) = (letter (1) of (☁ player1))> then\n    replace item (1) of [プレイヤー確認用 v] with []\n    set [☁ player1 v] to [0]\n    replace item (19) of [@変数 v] with ((item (19) of [@変数 v]) + (-1))\nend\nif <(item (2) of [プレイヤー確認用 v]) = (letter (1) of (☁ player2))> then\n    replace item (2) of [プレイヤー確認用 v] with []\n    set [☁ player2 v] to [0]\n    replace item (19) of [@変数 v] with ((item (19) of [@変数 v]) + (-1))\nend\nif <(item (3) of [プレイヤー確認用 v]) = (letter (1) of (☁ player3))> then\n    replace item (3) of [プレイヤー確認用 v] with []\n    set [☁ player3 v] to [0]\n    replace item (19) of [@変数 v] with ((item (19) of [@変数 v]) + (-1))\nend\nif <(item (4) of [プレイヤー確認用 v]) = (letter (1) of (☁ player4))> then\n    replace item (4) of [プレイヤー確認用 v] with []\n    set [☁ player4 v] to [0]\n    replace item (19) of [@変数 v] with ((item (19) of [@変数 v]) + (-1))\nend\nif <(item (5) of [プレイヤー確認用 v]) = (letter (1) of (☁ player5))> then\n    replace item (5) of [プレイヤー確認用 v] with []\n    set [☁ player5 v] to [0]\n    replace item (19) of [@変数 v] with ((item (19) of [@変数 v]) + (-1))\nend\nif <(item (6) of [プレイヤー確認用 v]) = (letter (1) of (☁ player6))> then\n    replace item (6) of [プレイヤー確認用 v] with []\n    set [☁ player6 v] to [0]\n    replace item (19) of [@変数 v] with ((item (19) of [@変数 v]) + (-1))\nend\nif <(item (7) of [プレイヤー確認用 v]) = (letter (1) of (☁ player7))> then\n    replace item (7) of [プレイヤー確認用 v] with []\n    set [☁ player7 v] to [0]\n    replace item (19) of [@変数 v] with ((item (19) of [@変数 v]) + (-1))\nend\nif <(item (8) of [プレイヤー確認用 v]) = (letter (1) of (☁ player8))> then\n    replace item (8) of [プレイヤー確認用 v] with []\n    set [☁ player8 v] to [0]\n    replace item (19) of [@変数 v] with ((item (19) of [@変数 v]) + (-1))\nend\nreplace item (20) of [@変数 v] with (item (19) of [@変数 v])\nif <(#player) = [0]> then\n    if <(item (1) of [プレイヤー確認用 v]) = []> then\n        set [#player v] to [1]\n    else\n        if <(item (2) of [プレイヤー確認用 v]) = []> then\n            set [#player v] to [2]\n        else\n            if <(item (3) of [プレイヤー確認用 v]) = []> then\n                set [#player v] to [3]\n            else\n                if <(item (4) of [プレイヤー確認用 v]) = []> then\n                    set [#player v] to [4]\n                else\n                    if <(item (5) of [プレイヤー確認用 v]) = []> then\n                        set [#player v] to [5]\n                    else\n                        if <(item (6) of [プレイヤー確認用 v]) = []> then\n                            set [#player v] to [6]\n                        else\n                            if <(item (7) of [プレイヤー確認用 v]) = []> then\n                                set [#player v] to [7]\n                            else\n                                if <(item (8) of [プレイヤー確認用 v]) = []> then\n                                    set [#player v] to [8]\n                                end\n                            end\n                        end\n                    end\n                end\n            end\n        end\n    end\nend\n\nPEN文字 (username) ((((length of (username)) / (2)) * ((35) / (3))) * (-1)) [0] [3] []\n\ndefine 2.5D\n((item (9) of [2.5d用 v]) * (-1)) (item (9) of [2.5d用 v]) [0] へ行く\npen down\nset pen size to (4)\n(item (9) of [2.5d用 v]) (item (9) of [2.5d用 v]) [0] へ行く\n(item (9) of [2.5d用 v]) ((item (9) of [2.5d用 v]) * (-1)) [0] へ行く\n((item (9) of [2.5d用 v]) * (-1)) ((item (9) of [2.5d用 v]) * (-1)) [0] へ行く\n((item (9) of [2.5d用 v]) * (-1)) (item (9) of [2.5d用 v]) [0] へ行く\nset pen size to (3)\n((item (9) of [2.5d用 v]) * (-1)) (item (9) of [2.5d用 v]) (item (5) of [2.5d用 v]) へ行く\n(item (9) of [2.5d用 v]) (item (9) of [2.5d用 v]) (item (5) of [2.5d用 v]) へ行く\n(item (9) of [2.5d用 v]) (item (9) of [2.5d用 v]) [0] へ行く\n(item (9) of [2.5d用 v]) (item (9) of [2.5d用 v]) (item (5) of [2.5d用 v]) へ行く\n(item (9) of [2.5d用 v]) ((item (9) of [2.5d用 v]) * (-1)) (item (5) of [2.5d用 v]) へ行く\n(item (9) of [2.5d用 v]) ((item (9) of [2.5d用 v]) * (-1)) [0] へ行く\n(item (9) of [2.5d用 v]) ((item (9) of [2.5d用 v]) * (-1)) (item (5) of [2.5d用 v]) へ行く\n((item (9) of [2.5d用 v]) * (-1)) ((item (9) of [2.5d用 v]) * (-1)) (item (5) of [2.5d用 v]) へ行く\n((item (9) of [2.5d用 v]) * (-1)) ((item (9) of [2.5d用 v]) * (-1)) [0] へ行く\n((item (9) of [2.5d用 v]) * (-1)) ((item (9) of [2.5d用 v]) * (-1)) (item (5) of [2.5d用 v]) へ行く\n((item (9) of [2.5d用 v]) * (-1)) (item (9) of [2.5d用 v]) (item (5) of [2.5d用 v]) へ行く\npen up\n\ndefine ステージ変更\nerase all\nset pen size to (1)\npen up\ngo to x: (-238) y: (178)\nreplace item (1) of [@変数 v] with [1]\nrepeat (120)\n    replace item (2) of [@変数 v] with [1]\n    repeat (90)\n        replace item (3) of [@変数 v] with (letter (item (2) of [@変数 v]) of (item (item (1) of [@変数 v]) of [ステージ1 v]))\n        if <not <<(item (3) of [@変数 v]) = [0]> or <(item (3) of [@変数 v]) = []>>> then\n            switch costume to (join [c] (item (3) of [@変数 v]))\n            stamp\n        end\n        change y by (-4)\n        replace item (2) of [@変数 v] with ((item (2) of [@変数 v]) + (1))\n    end\n    change x by (4)\n    set y to (178)\n    replace item (1) of [@変数 v] with ((item (1) of [@変数 v]) + (1))\nend\n\ndelete all of [スキン v]\nrepeat (10)\n    add [0] to [スキン v]\nend\n\nset [#player v] to [1]\nrepeat until <<not <(length of (item (#player) of [ステージ1 v])) = [90]>> or <(#player) = [121]>>\n    change [#player v] by (1)\nend\n\nreplace item (85) of [ステージ1 v] with [000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000]\n\n@サムネ\n\nwhen flag clicked\nshow\n\nwhen I receive [スタート v]\nhide\nforever\n    play sound [1 v] until done\nend\n\n