3D Platformer!

Instructions: 日本語の説明は下へ。スマホ対応\n2021/01/01 傾向一ページ目　15位\n2021/01/02 傾向一ページ目　7位\n\nnazokoubou's first 3D platformer!\nYou can change the viewpoint by moving the mouse.\nPlease select your language first.\n100% PEN except for the opening letters\nI made it with a pen, but I tried not to lag\nIf you touch the thorn, start over\nLet's jump over when the green wall approaches\n\nnazokoubou初！3Dプラットフォーマー！\nマウスを動かすと視点が変更できます。\n最初に言語を選択してください。\nオープニングの文字以外100%PEN\nペンで作っていますがラグくないようにしました\nトゲに触れたらやり直し\n緑の壁が迫ってきたら飛び越えよう

@Stage\n\nwhen I receive [penfont_start v]\nforever\n    play sound [Disfigure - Blank.mp3 v] until done\nend\n\n@Backpack\n\ndefine (文字) を探す\nset [答え v] to [1]\nrepeat until <(letter (答え) of (文字)) = (文字)>\n    change [答え v] by (1)\n    if <(答え) > (length of [データ v])> then\n        set [答え v] to ((length of [データ v]) + (1))\n        stop [this script v]\n    end\nend\n\ndefine (input) Write with a border [x,y,size,color,thickness,align,delete?,border color,border thickness] (x) (y) (size) (color) (thickness) (align) (delete) (border color) (border thickness)\n(input) Write[x,y,size,color,thickness,align,delete?] (x) (y) (size) (border color) ((thickness) + (border thickness)) (align) (delete)\n(input) Write[x,y,size,color,thickness,align,delete?] (x) (y) (size) (color) (thickness) (align) [0]\n\ndefine (input) Write[x,y,size,color,thickness,align,delete?] (x) (y) (size) (color) (thickness) (align) (delete)\n初期化\nswitch costume to (ペン文字 v)\nset pen (transparency v) to (100)\nset [i v] to [1]\nhide\ngo to x: (x) y: (y)\nset [x v] to (x)\nset [y v] to (y)\nset pen color to (color)\nset pen size to (thickness)\nset pen (transparency v) to (100)\nif <(delete) = [1]> then\n    erase all\nend\nif <<(align) = [1]> and <(書き方) = [0]>> then\n    set [x v] to ((-90) - ((((length of (input)) - (1)) * ((size) / (0.85))) / (7)))\n    go to x: ((-90) - ((((length of (input)) - (1)) * ((size) / (0.85))) / (7))) y: (y)\nend\nrepeat (length of (input))\n    if <not <<(letter (i) of (input)) = [ ]> or <(letter (i) of (input)) = [　]>>> then\n        set pen (transparency v) to (100)\n        set [探す文字 v] to (letter (i) of (input))\n        (探す文字) を探す\n        set [data v] to (join [--11] (item (答え) of [データ v]))\n        set [j v] to [1]\n        repeat ((length of (data)) / (2))\n            if <<(letter (j) of (data)) = [-]> and <(letter ((j) + (1)) of (data)) = [-]>> then\n                set pen (transparency v) to (100)\n                change [j v] by (2)\n            else\n                set pen (transparency v) to (0)\n            end\n            pen down\n            if <(letter (j) of (data)) = [1]> then\n                set [dy v] to (y)\n            end\n            if <(letter (j) of (data)) = [2]> then\n                set [dy v] to (((y) - (((size) / (100)) * (10))) - (縦幅))\n            end\n            if <(letter (j) of (data)) = [3]> then\n                set [dy v] to (((y) - (((size) / (100)) * (20))) - (縦幅))\n            end\n            if <(letter (j) of (data)) = [4]> then\n                set [dy v] to (((y) - (((size) / (100)) * (30))) - (縦幅))\n            end\n            if <(letter (j) of (data)) = [5]> then\n                set [dy v] to (((y) - (((size) / (100)) * (40))) - (縦幅))\n            end\n            change [j v] by (1)\n            if <(letter (j) of (data)) = [1]> then\n                set [dx v] to (x)\n            end\n            if <(letter (j) of (data)) = [2]> then\n                set [dx v] to (((x) - (((size) / (100)) * (-10))) + (横幅))\n            end\n            if <(letter (j) of (data)) = [3]> then\n                set [dx v] to (((x) - (((size) / (100)) * (-20))) + (横幅))\n            end\n            if <(letter (j) of (data)) = [4]> then\n                set [dx v] to (((x) - (((size) / (100)) * (-30))) + (横幅))\n            end\n            if <(letter (j) of (data)) = [5]> then\n                set [dx v] to (((x) - (((size) / (100)) * (-40))) + (横幅))\n            end\n            go to x: (dx) y: (dy)\n            change [j v] by (1)\n            set pen (transparency v) to (100)\n        end\n    end\n    if <(書き方) = [0]> then\n        if < [┏┳┓┣╋┫┗┻┛━┃♥♦♠♣] contains (探す文字)?> then\n            change [x v] by (((size) / (100)) * ((40) + (横幅)))\n        else\n            change [x v] by (((size) / (100)) * ((50) + ((横幅) * (2))))\n        end\n    else\n        change [y v] by (((size) / (100)) * ((-50) + ((横幅) * (2))))\n    end\n    go to x: (x) y: (y)\n    change [i v] by (1)\nend\ngo to x: (0) y: (0)\n\ndefine writing align (0 or 1)\nset [書き方 v] to (0 or 1)\n\ndefine 記号\nset [文字 v] to (join (文字) [ゝゞヽヾ、。┏┳┓┣╋┫┗┻┛━┃「」『』【】《》〈〉〔〕ー・×÷☆★○◎△▽▷◁□◇♡♢♤♧〃仝々〆〇…‥‘’“”±≠≦≧∞∴♂♀°′゛゜℃￥¢£§※〒→←↑↓〓∈∋⊆⊇⊂⊃∪∩∧∨¬⇒⇔∀∃∠⊥⌒∂∇≡≒√∽∝∵∫∬‰♯♭♪†‡¶￣∦㍾㍽㍼㍻㋿〝〟㎜㎝㎞㎎㎏㏄㎡№㏍℡㍉㌔㌢㍍㌘㌧㌃㌶㍑㍗㌍㌦㌣㌫㍊㌻ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫⅭⅯↂ⓪①②③④⑤⑥⑦⑧⑨])\nadd [--224443] to [データ v]\nadd [--224443--1424--1525] to [データ v]\nadd [--2244] to [データ v]\nadd [--2244--1424--1525] to [データ v]\nif <(書き方) = [0]> then\n    add [--4455] to [データ v]\n    add [--4445555444] to [データ v]\nelse\n    add [--1425] to [データ v]\n    add [--1415252414] to [データ v]\nend\nadd [--33353353] to [データ v]\nadd [--31353353] to [データ v]\nadd [--313353] to [データ v]\nadd [--13533335] to [データ v]\nadd [--3135331353] to [データ v]\nadd [--31331353] to [データ v]\nadd [--133335] to [データ v]\nadd [--13333135] to [データ v]\nadd [--313313] to [データ v]\nadd [--3135] to [データ v]\nadd [--1353] to [データ v]\nif <(書き方) = [0]> then\n    add [--151444] to [データ v]\n    add [--515222] to [データ v]\n    add [--1413434424251514] to [データ v]\n    add [--51532322424151] to [データ v]\n    add [--14152414545544] to [データ v]\n    add [121122112252514212] to [データ v]\n    add [--143354--153455] to [データ v]\n    add [3251--123352] to [データ v]\n    add [--143354] to [データ v]\n    add [3251] to [データ v]\n    add [--15244455] to [データ v]\n    add [224251] to [データ v]\n    add [--3135] to [データ v]\nelse\n    add [--424555] to [データ v]\n    add [2124] to [データ v]\n    add [--32355554444232] to [データ v]\n    add [313424221211] to [データ v]\n    add [--41455544425141] to [データ v]\n    add [21251524221121] to [データ v]\n    add [--413345--514355] to [データ v]\n    add [2315--213325] to [データ v]\n    add [--514355] to [データ v]\n    add [2315] to [データ v]\n    add [--51424455] to [データ v]\n    add [222415] to [データ v]\n    add [--1353] to [データ v]\nend\nadd [--3333] to [データ v]\nadd [--3355--3553] to [データ v]\nadd [--1313--3135--5353] to [データ v]\nadd [--135531355113] to [データ v]\nadd [--135531355113434244334431441342134251424455] to [データ v]\nadd [--121425455452412112] to [データ v]\nadd [--121425455452412112--23243444422223] to [データ v]\nadd [--13515513] to [データ v]\nadd [155311] to [データ v]\nadd [513511] to [データ v]\nadd [--15315515] to [データ v]\nadd [15555111] to [データ v]\nadd [--1331533513] to [データ v]\nadd [--211223142545534121] to [データ v]\nadd [--1332533413] to [データ v]\nadd [--13314142525444453513] to [データ v]\nadd [--121424253534533231212212] to [データ v]\nadd [--2332--2433] to [データ v]\nadd [--311335--323433535254] to [データ v]\nadd [--1231222443--3254] to [データ v]\nadd [--15512245] to [データ v]\nadd [--122141525445251412] to [データ v]\nif <(書き方) = [0]> then\n    add [--3131--3333--3535] to [データ v]\n    add [--3232--3434] to [データ v]\nelse\n    add [--1313--3333--5353] to [データ v]\n    add [--2323--4343] to [データ v]\nend\nadd [--13332423] to [データ v]\nadd [--1213332312] to [データ v]\nadd [--11312221--13332423] to [データ v]\nadd [--1112322211--1314342413] to [データ v]\nadd [--2224231333--5254] to [データ v]\nadd [--2125--4145--1452] to [データ v]\nadd [--152135--4145--5155] to [データ v]\nadd [--112531--4145--5155] to [データ v]\nadd [--223142332435443322] to [データ v]\nadd [--1313--5151--5555] to [データ v]\nadd [--3133535131--3315131535] to [データ v]\nadd [--1214343212--4145433353] to [データ v]\nadd [--1333351513] to [データ v]\nadd [--1534] to [データ v]\nadd [--1324--1425] to [データ v]\nadd [--1424251514] to [データ v]\nadd [--25235355--1221322312] to [データ v]\nadd [3315--3135--4145--3353] to [データ v]\nadd [--2522314245--1353] to [データ v]\nadd [--131252323133--5155] to [データ v]\nadd [--1412343223325452] to [データ v]\nadd [55--1551--1313--3131--3535--5353] to [データ v]\nadd [--1214--31353353] to [データ v]\nadd [--3135243544] to [データ v]\nadd [--3531223142] to [データ v]\nadd [--2213241353] to [データ v]\nadd [--1353445342] to [データ v]\nadd [15252111251521--1323--1222--1424--4145555141554551--4353--4252--4454] to [データ v]\nadd [--151221313531415255] to [データ v]\nadd [1425353135455451] to [データ v]\nadd [--1512213235--5155] to [データ v]\nadd [--1114253431--5155] to [データ v]\nadd [--151221415255] to [データ v]\nadd [1425455451] to [データ v]\nadd [4152544515] to [データ v]\nadd [--512112142555] to [データ v]\nadd [--511355] to [データ v]\nadd [5315] to [データ v]\nadd [--212545] to [データ v]\nadd [--2124--4144--133553] to [データ v]\nadd [--123152--143554--2224--4244] to [データ v]\nadd [5315--3234] to [データ v]\nadd [153531355551] to [データ v]\nadd [--155155] to [データ v]\nadd [--13535155] to [データ v]\nadd [--21121425] to [データ v]\nadd [--21121554513235] to [データ v]\nadd [155311] to [データ v]\nadd [--2125--3135--4145] to [データ v]\nadd [--3135--4145--2121--5555] to [データ v]\nadd [--15135241] to [データ v]\nadd [--223142233443] to [データ v]\nadd [--31224345--31422325] to [データ v]\nadd [--1111--1515--5353] to [データ v]\nadd [--14234352] to [データ v]\nadd [--23125241--25145443] to [データ v]\nadd [122111--1351--4353524243--4445555444] to [データ v]\nadd [--2125--4135--1253--1354] to [データ v]\nadd [--1252443432] to [データ v]\nadd [--414252514152--4251--421235] to [データ v]\nadd [--2224--1353] to [データ v]\nadd [--2224--4244--1353] to [データ v]\nadd [3133131133--1331--2123--1232--121353131454] to [データ v]\nadd [15] to [データ v]\nadd [--1441--2552] to [データ v]\nadd [--21224241213132--121353--1252--2233--3243--1324--3334--5344--15343525--4445555444] to [データ v]\nadd [--2123--123251--3253--131514545355--3353--3435] to [データ v]\nadd [--21224241213132--1213231322--4243535242--1423--3334--1454--3443--24254544] to [データ v]\nadd [131252424143--3142--3342--23252353434454--1455--5435--1525] to [データ v]\nadd [--211233--2222--313342--3252--1423--3334--1454--3443--24254544] to [データ v]\nif <(書き方) = [0]> then\n    add [--1324--1425] to [データ v]\n    add [--4152--4253] to [データ v]\nelse\n    add [--4453--4554] to [データ v]\n    add [--1221--1322] to [データ v]\nend\nadd [5121125232135323332454241555] to [データ v]\nadd [--12115152--1353332454442555] to [データ v]\nadd [5131223152--2353432454342555] to [データ v]\nadd [--2151312252322353--244445252444455554] to [データ v]\nadd [5131223152--244445252444455554] to [データ v]\nadd [--22215152--25245455] to [データ v]\nadd [--31514133533555--141525243435] to [データ v]\nadd [--51115212--1333351513--4345] to [データ v]\nadd [5131123152--135333143354] to [データ v]\nadd [131252--2324234344435354--345455] to [データ v]\nadd [12--2122--3132--3444--3555] to [データ v]\nadd [--2123--3133--1242--3435555434] to [データ v]\nadd [--212332--123233--1324--2533--334143--3252] to [データ v]\nadd [--1331--2132--2325--31514142--3353--345445] to [データ v]\nadd [--1221122332--1323--1415--242534--33515343] to [データ v]\nadd [312123--3344--4553] to [データ v]\nadd [1322--2131--2325--3251--335253] to [データ v]\nadd [--211233--23141534--31413132524241--4243--3353--345455] to [データ v]\nadd [21--1232--2323--2424--253533--31514142--3353--345455] to [データ v]\nadd [2111122231--2323--2424--253533--31514143] to [データ v]\nadd [--21232333--1232--1415353414--3141--3352--4445] to [データ v]\nadd [312123--1212--1313--3353--345455] to [データ v]\nadd [--212332--123233--1324--2533--31514143] to [データ v]\nadd [31--12321213232212--2325--414251315152--3333--3453--34544445] to [データ v]\nadd [12--2122--3132--1424--1535--4151--4252--3232--3333--4243--4453--455455] to [データ v]\nadd [--211233--1222231312--2425--3132--4142--515343--3333--3434] to [データ v]\nadd [1513535155] to [データ v]\nadd [15125251555414] to [データ v]\nadd [15125251555414--1353] to [データ v]\nadd [1312525153--135415] to [データ v]\nadd [5315] to [データ v]\nadd [52131514545355] to [データ v]\nadd [5213--1454--1555] to [データ v]\nadd [521353--1454--1555] to [データ v]\nadd [131252515315--1355] to [データ v]\nadd [55--1551] to [データ v]\nadd [53--1351--131514545355] to [データ v]\nadd [53--1351--1454--1555] to [データ v]\nadd [--1513315335] to [データ v]\nadd [--5111531555] to [データ v]\nadd [--121425455452412112--2224444222--1353] to [データ v]\nadd [--121425455452412112--22244244242242] to [データ v]\nadd [--121425455452412112--3223434244] to [データ v]\nadd [--121425455452412112--3223344244] to [データ v]\nadd [--121425455452412112--22243332344342] to [データ v]\nadd [--121425455452412112--223234332343] to [データ v]\nadd [--121425455452412112--242232344342] to [データ v]\nadd [--121425455452412112--24223234444222] to [データ v]\nadd [--121425455452412112--32222443] to [データ v]\nadd [--121425455452412112--22243432424424--2242] to [データ v]\nadd [--121425455452412112--2224444244343222] to [データ v]\nset [文字 v] to (join (文字) [　ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ１２３４５６７８９０－．，！？＿％”＃＄＆’（）＝＾～￥｜＠‘［｛；＋：＊］｝／＜＞])\n英数字\n\nwhen I receive [penfont_start v]\nchange height: [100] % width: [100] %\nrepeat until <mouse down?>\n    [English　　　　日本語] Write[x,y,size,color,thickness,align,delete?] [-180] [20] [50] [0x000000] [2] [1] [1]\nend\nwait (0.2) seconds\nif <[0] < (mouse x)> then\n    repeat until <mouse down?>\n        set [lang v] to [jp]\n        [あそび方] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (-60)) [135] [80] [0x000000] [4] [0] [1]\n        [上キーまたは黄色いボタンをおしてジャンプ。] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (100)) [70] [50] [0x000000] [2] [0] [0]\n        [スペースキーまたはクリックで前に進む] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (70)) [30] [50] [0x000000] [2] [0] [0]\n        [クリックでスタート] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (-35)) [-90] [50] [0x000000] [2] [0] [0]\n    end\nelse\n    repeat until <mouse down?>\n        change height: [100] % width: [94.6] %\n        set [lang v] to [en]\n        [How to play] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (280)) [135] [80] [0x000000] [4] [0] [1]\n        [Press the ↑ key or the yellow button to jump.] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (400)) [70] [50] [0x000000] [2] [0] [0]\n        [Press the spacebar or click to move forward] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (390)) [30] [50] [0x000000] [2] [0] [0]\n        [Click to start] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (220)) [-90] [50] [0x000000] [2] [0] [0]\n    end\nend\nset [z v] to [0]\nset [トゲ_下 v] to [0]\nset [壁 v] to [0]\nbroadcast (start v)\nforever\n    erase all\n    地面\n    動く\nend\n\nwhen flag clicked\n初期化\nset [書き方 v] to [0]\nset [縦幅 v] to [0]\nset [横幅 v] to [0]\nbroadcast (PenFont_Start2 v)\n\ndefine 日本語_半角カタカナ\nset [文字 v] to (join (文字) [ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜｦﾝﾞﾟｧｨｩｪｫｬｭｮｯｰ])\nadd [--212544--3352] to [データ v]\nadd [--15312353] to [データ v]\nadd [--1323212553--2131] to [データ v]\nadd [--212523535155] to [データ v]\nadd [--212523135352--2351] to [データ v]\nadd [--21255443--1351] to [データ v]\nadd [--2124--3134--1254] to [データ v]\nadd [--1331221552] to [データ v]\nadd [--133122252452] to [データ v]\nadd [--21255551] to [データ v]\nadd [--21252212322224143452] to [データ v]\nadd [--1122--2132--5225] to [データ v]\nadd [--2125513355] to [データ v]\nadd [--212522125255--2534] to [データ v]\nadd [--2132--2552] to [データ v]\nadd [--22312225523431] to [データ v]\nadd [--1521--3135--2352] to [データ v]\nadd [--1131--1333--1552] to [データ v]\nadd [--1214--21252352] to [データ v]\nadd [512134] to [データ v]\nadd [--212523--1452] to [データ v]\nadd [--2224--4145] to [データ v]\nadd [--212552--3355] to [データ v]\nadd [--1323--212532--33533345] to [データ v]\nadd [--1552] to [データ v]\nadd [--1251--1455] to [データ v]\nadd [5155513134] to [データ v]\nadd [--111552] to [データ v]\nadd [--311255] to [データ v]\nadd [--212523135342--3251--3455] to [データ v]\nadd [--212543--3254] to [データ v]\nadd [--2224--3234--5254] to [データ v]\nadd [--124144--3355] to [データ v]\nadd [--1552--2344] to [データ v]\nadd [14--3134--125255] to [データ v]\nadd [--312534--1253] to [データ v]\nadd [--2124535155] to [データ v]\nadd [--21254541455551] to [データ v]\nadd [--1214--313552] to [データ v]\nadd [31--1553] to [データ v]\nadd [51--135345] to [データ v]\nadd [5135] to [データ v]\nadd [--2151552521] to [データ v]\nadd [31111552] to [データ v]\nadd [1533313351] to [データ v]\nadd [23--5135] to [データ v]\nadd [21--1222] to [データ v]\nadd [21221211] to [データ v]\nif <(書き方) = [0]> then\n    add [--333544--3453] to [データ v]\n    add [--35433454] to [データ v]\n    add [--24343343333554] to [データ v]\n    add [--333534545355] to [データ v]\n    add [--3335342454--3453] to [データ v]\n    add [--333544--2453] to [データ v]\n    add [--3334545355] to [データ v]\n    add [--33354543455553] to [データ v]\n    add [--3343--3444--3554] to [データ v]\nelse\n    add [--131524--1433] to [データ v]\n    add [--15231434] to [データ v]\n    add [--14242333232544] to [データ v]\n    add [--131514343335] to [データ v]\n    add [--2325241444--2443] to [データ v]\n    add [--232534--1443] to [データ v]\n    add [--1314343335] to [データ v]\n    add [--13152523253533] to [データ v]\n    add [--1323--1424--1534] to [データ v]\nend\nadd [--3135] to [データ v]\n\ndefine change height: (height) % width: (width) %\nset [縦幅 v] to ((height) - (100))\nset [横幅 v] to ((width) - (100))\n\ndefine 初期化\nset [文字 v] to [ abcdefghijklmnopqrstuvwxyz1234567890-.,!?_%"#$&'\(\)=^~\|@`\[{;+:*\]}/<>]\ndelete all of [データ v]\n英数字\n日本語_ひらがな\n日本語_かたかな\n日本語_半角カタカナ\n記号\n日本語_漢字\n日本語_濁点付き\n\ndefine 英数字\nadd [] to [データ v]\nadd [--1331513135553513] to [データ v]\nadd [1533311151533533] to [データ v]\nadd [--131513315335] to [データ v]\nadd [5153351311] to [データ v]\nadd [15113135315155] to [データ v]\nadd [1511513133] to [データ v]\nadd [1511515335333555] to [データ v]\nadd [5131351555] to [データ v]\nadd [1513535155] to [データ v]\nadd [1513535131] to [データ v]\nadd [5131153155] to [データ v]\nadd [5155] to [データ v]\nadd [--5111531555] to [データ v]\nadd [--51115515] to [データ v]\nadd [15555111] to [データ v]\nadd [5131351511] to [データ v]\nadd [1535535111--3355] to [データ v]\nadd [51313355331511] to [データ v]\nadd [--151331355351] to [データ v]\nadd [151353] to [データ v]\nadd [515515] to [データ v]\nadd [5315] to [データ v]\nadd [51135515] to [データ v]\nadd [55335115] to [データ v]\nadd [33153353] to [データ v]\nadd [155155] to [データ v]\nadd [--3113535155] to [データ v]\nadd [--3113355155] to [データ v]\nadd [153331355351] to [データ v]\nadd [3135331353] to [データ v]\nadd [151131355351] to [データ v]\nadd [151151553531] to [データ v]\nadd [31111553] to [データ v]\nadd [15353111515535] to [データ v]\nadd [15555155353111] to [データ v]\nadd [155551111551] to [データ v]\nadd [--3135] to [データ v]\nadd [--5151] to [データ v]\nadd [--3555] to [データ v]\nadd [--1333--5353] to [データ v]\nadd [15113111153533--5353] to [データ v]\nadd [--5155] to [データ v]\nadd [133111--1551--55355355] to [データ v]\nadd [--1333--1535] to [データ v]\nadd [--212524145444425212424145] to [データ v]\nadd [--252331354341431353] to [データ v]\nadd [--553332111541515335] to [データ v]\nadd [--1333] to [データ v]\nif <(書き方) = [0]> then\n    add [--12214152] to [データ v]\n    add [--14254554] to [データ v]\nelse\n    add [--51424455] to [データ v]\n    add [222415] to [データ v]\nend\nadd [--2125--4145] to [データ v]\nadd [--221324] to [データ v]\nif <(書き方) = [0]> then\n    add [--31223324] to [データ v]\nelse\n    add [--14233443] to [データ v]\nend\nadd [55] to [データ v]\nadd [--1353] to [データ v]\nadd [--24224224444515115155] to [データ v]\nadd [--1223] to [データ v]\nif <(書き方) = [0]> then\n    add [--12115152] to [データ v]\n    add [--13122231425253] to [データ v]\nelse\n    add [--51414555] to [データ v]\n    add [--51414233444555] to [データ v]\nend\nadd [--2323--4353] to [データ v]\nadd [--3234332343] to [データ v]\nadd [--2323--4343] to [データ v]\nadd [--22443333332343334224] to [データ v]\nif <(書き方) = [0]> then\n    add [--14155554] to [データ v]\n    add [--12132334435352] to [データ v]\nelse\n    add [212515] to [データ v]\n    add [212233242515] to [データ v]\nend\nadd [--1551] to [データ v]\nadd [--153155] to [データ v]\nadd [3551] to [データ v]\n\ndefine 日本語_漢字\nset [文字 v] to (join (文字) [一二三四五六七八九十百千万億兆京垓秭穰溝澗正載極恒河沙阿僧祇那由他不可思議無量大数日月火水木金土漢字部文人男女子王目口耳手足上下右左中小青赤白山川林森田花草竹石空天気雨夕犬虫貝町村学校先生本名年音出入見立休円玉糸車早力僕私俺卍乙春夏秋冬朝昼夜海晴星雲雪黄緑紫茶黒銀銅色会明新今岩賀壁体球謹高低始終直調説的使用豊世界書英語])\nadd [--3135] to [データ v]\nadd [--2224--4145] to [データ v]\nadd [15--3234--5155] to [データ v]\nadd [51551511--1231--143435] to [データ v]\nadd [151352--313554--5155] to [データ v]\nadd [--1323--2125--4251--4455] to [データ v]\nadd [--2125--135355] to [データ v]\nadd [--1251--1455] to [データ v]\nadd [--1351--31345455] to [データ v]\nadd [--1353--3135] to [データ v]\nadd [15133231355551314145] to [データ v]\nadd [--1421--3135--2353] to [データ v]\nadd [151352--333555] to [データ v]\nadd [--1231--2252--1315535545] to [データ v]\nadd [--124251--145455--1122--3122--1524--4534] to [データ v]\nadd [--1323212522323424--3353--4251--4455] to [データ v]\nadd [2122215152--14242325243334--2543--3553--4455] to [データ v]\nadd [--1321--3133--2252--3241--3243--15233335554453--1454] to [データ v]\nadd [--1321--3133--2252--3241--3243--131514231425232434333525--345545--34435344] to [データ v]\nadd [22--3132--5142--13152523--1444--333555--3353--4345] to [データ v]\nadd [22--3132--5142--1353--1324--141555544445353444] to [データ v]\nadd [15133334335355515232] to [データ v]\nadd [1312222125145445--3553--22323133434131434252--1252] to [データ v]\nadd [1151--21222142--13151423254443333445--24544344545255] to [データ v]\nadd [--22312233--1252--1315--2325454333353323--5355] to [データ v]\nadd [22--3132--5142--13155544--2324343323] to [データ v]\nadd [22--3132--5142--1434--24332435--4553] to [データ v]\nadd [122132311151--13155544--2324343323] to [データ v]\nadd [--1221--2252--132415--232535332335--2434--434555534355] to [データ v]\nadd [13--21232252--3141--3343--151454--3435--1455] to [データ v]\nadd [1353--2123--3133--1242--1415243534--1454] to [データ v]\nadd [--135351554541513135--3555] to [データ v]\nadd [--1231--2252--232535--13535445--1434] to [データ v]\nadd [151331--1353--2435] to [データ v]\nadd [151454--2123434121] to [データ v]\nadd [153531112125231333--5142525444545545] to [データ v]\nadd [12--2122--3132--4142525141--132415--23252434333555344345--3454] to [データ v]\nadd [--1231--2225--3235--4245--4251--4253--4354--4455--2242--2343--2444] to [データ v]\nadd [1525211125--1323--313545413145--33535155] to [データ v]\nadd [--3135--1343514355] to [データ v]\nadd [33221331222123--32414332--3352--1434--242554--3455--1232] to [データ v]\nadd [15555131353111] to [データ v]\nadd [--1251--12155544--2225--3235] to [データ v]\nadd [--2132--2534--1333513355] to [データ v]\nadd [--135342--212341--252445] to [データ v]\nadd [--212523135333513355] to [データ v]\nadd [--311335--2224--3234--2353--4253--4453--5155] to [データ v]\nadd [--2224--5155--1353] to [データ v]\nadd [22--3132--5142--131553--3355] to [データ v]\nadd [--13232131212535--3234435352--4244] to [データ v]\nadd [--12222123--2132--2332--4143535141--14152435341454--3133] to [データ v]\nadd [--13232125--2254--2452] to [データ v]\nadd [--1351--3355] to [データ v]\nadd [313515111333232125--414555--3352] to [データ v]\nadd [--133255--3135--3453] to [データ v]\nadd [15335342--3135] to [データ v]\nadd [15--3135--5155--1353] to [データ v]\nadd [--1214545212--2224--4244] to [データ v]\nadd [15555111] to [データ v]\nadd [15--1242--1454--2224--3234--4145] to [データ v]\nadd [--1422--2125--3135--235342] to [データ v]\nadd [--1222241412--2343--3251--4255--3335] to [データ v]\nadd [--13535155--3335] to [データ v]\nadd [151353--2335] to [データ v]\nadd [--1341--2125--3353553533] to [データ v]\nadd [--1341--2125--333534545355] to [データ v]\nadd [--2141452521--1353] to [データ v]\nadd [--135342--2241--2445] to [データ v]\nadd [--1214--2224--3135--1333325242443454--3244] to [データ v]\nadd [--2224--3135--1333--4151--3252--3454--4555] to [データ v]\nadd [--142252543432222454] to [データ v]\nadd [--13535131515535] to [データ v]\nadd [--1141--1353--1555] to [データ v]\nadd [--2123--1252--2241--2243--2425--1555--2544] to [データ v]\nadd [--1333--2224--2332--2334--4145--3252--3454--4251--4253--4453--4455] to [データ v]\nadd [155551113135331353] to [データ v]\nadd [--2125--1232--1434--3241--4252--4554445455] to [データ v]\nadd [--2125--1232--1434--313545413145--5155--4353] to [データ v]\nadd [--1231--22232252--1433--24252454] to [データ v]\nadd [151341--4245555242] to [データ v]\nadd [--13232131212535--2332--2434--424443535254] to [データ v]\nadd [15--3135--1333513355] to [データ v]\nadd [--1231--2225--32345445--4351--4153--1215] to [データ v]\nadd [15--3151313555--1353--3142--4152--3344--4354] to [データ v]\nadd [--1231121553--2244] to [データ v]\nadd [--2125231333513355--1425] to [データ v]\nadd [--2131352521--1353--515545] to [データ v]\nadd [--1242443432342422241412--43524354] to [データ v]\nadd [13232111313313--1232--23252454] to [データ v]\nadd [--212322125232413243--24251555--3444] to [データ v]\nadd [--1122--1323--1524--31212535--32344353--4244] to [データ v]\nadd [--212322125232413243--2425152534--4455--4554--2535] to [データ v]\nadd [--1221--2225--13333135--3251--345455] to [データ v]\nadd [--1231--2225--3234--5155--1353] to [データ v]\nadd [--2125--135333513355--4244] to [データ v]\nadd [--1221121432--223353553533] to [データ v]\nadd [--1231--2225--3235--4145--3242--2454] to [データ v]\nadd [--13232125--2233--24333135--425254444254] to [データ v]\nadd [--1353--11212515--41515545] to [データ v]\nadd [--3351--1155] to [データ v]\nadd [--1242443432342422241412--4351--435355] to [データ v]\nadd [--13232125--2252--24545155] to [データ v]\nadd [--1231--2252--2325241454--24432445] to [データ v]\nadd [51313515111333355544] to [データ v]\nadd [15--3135--5155--1353--4455] to [データ v]\nadd [--132123--23313524--3353--4251--4455] to [データ v]\nadd [--1115--212535312135--1353--4145] to [データ v]\nadd [153531112125--4145433353] to [データ v]\nadd [--21255544--1352] to [データ v]\nadd [--1331--2252--1454--3445] to [データ v]\nadd [--1321--3133--225232433241--15535545] to [データ v]\nadd [--1231--2252--2325241424332435--334345353345354344345455] to [データ v]\nadd [135355--15353151] to [データ v]\nadd [15515545] to [データ v]\nadd [--1214--2224--3135--1333413345--32525434--4244] to [データ v]\nadd [1513223234242234--3342334452--3255] to [データ v]\nadd [--1221--3133--1252--3241--3243--1323--1525--1434533455] to [データ v]\nadd [--1221121432--2235--4243--5253] to [データ v]\nadd [131222212333312133--4143--3252--141555--1454--2425--3435] to [データ v]\nadd [--12142422122241222345--323444423244--5155] to [データ v]\nadd [--13232125--3241--4252--3443343553--4355--4444] to [データ v]\nadd [22--3132--5143--14332325--334345353345--3553] to [データ v]\nadd [--2122424131323121--1315--2325--3335--1434--335343455535] to [データ v]\nadd [--122224141224--223135--4244--5155--2353] to [データ v]\nadd [15--2131212535--1333--312335--3234--414443515545] to [データ v]\nadd [15--2131212535--1333--312335--31355551--4145] to [データ v]\nadd [15--2125--1222--1424--2333323444423244--4251--4455] to [データ v]\nadd [--1221--22313322333252--4151--4353--13142423243433353454--4355--4553] to [データ v]\nadd [--2221113132--2524143435--3342--3443--4353--5252--5454--4244] to [データ v]\nadd [--2125--1232--1434--33413345--4244433353--5252--5454] to [データ v]\nadd [2125151125--1343--3234--4145--5151--5252--5454--5555] to [データ v]\nadd [--21122321--3133--2252--415243--5153--13153533232523135344--35443355] to [データ v]\nadd [--21122321--3133--2252--415243--5153--131555151353--2325--3435454434] to [データ v]\nadd [--21121534--31354543334341315155] to [データ v]\nadd [--211325--2224--313533515544] to [データ v]\nadd [--2122424131323121--1315553533533323252313] to [データ v]\nadd [--122221233221323133--414342325242514253--151454343555] to [データ v]\nadd [--211325--2224--323453] to [データ v]\nadd [212313232515--31353241--33535535] to [データ v]\nadd [1323131222--1424251514--323444433344344352--4455] to [データ v]\nadd [1222211131--23313223--142423253423--3335--4244--5155--3353] to [データ v]\nadd [--1221--2252--2325--14542443244543] to [データ v]\nadd [13--3133--5153--1252--23251454--3355--3553] to [データ v]\nadd [12--2122--3132--4151524241--2325--1434--153533434535--4355--2454--5355] to [データ v]\nadd [--1323212524343222--51414555--4244545242] to [データ v]\nadd [--1221--2252--151333232524144445--5355] to [データ v]\nadd [4143421252--2123--14333525--4445555444] to [データ v]\nadd [--1221--2231333252--4151--4353--1423141533--1435--4444--5454] to [データ v]\nadd [--21252313333242453532453542--315155] to [データ v]\nadd [12--2122--3132--4151524241--1353131555--2325--3335--1434--4445555444] to [データ v]\nadd [12--2122--3132--4151524241--132415--2325353323--3453--3455] to [データ v]\nadd [--1221414222213132--1433--24255554--3434] to [データ v]\nadd [--1221--2252--2325--3343453533--1553--4455] to [データ v]\nadd [5111155554--2125--3135--1353] to [データ v]\nadd [--2125353121352531--1222--1424--3242443432--425344--5155] to [データ v]\nadd [--2125--13333414--125255] to [データ v]\nadd [313515112125231333413345--4252--4454] to [データ v]\nadd [--121424222524343135--13434145555141555441] to [データ v]\nadd [--212522123222241434--31423135444145--3343514355] to [データ v]\nadd [12--2122--3132--13151434--2325343335--4353554543--4142525141] to [データ v]\nset [文字 v] to (join (文字) [今考発品灯読内外限定独特友愛母兄弟姉妹父祖孫聞我国挙句永細太東西南北鳥風物前次後少多縦横言対応線全半時分秒長短好嫌打何間謎工房作])\nadd [--211325--2224--323453] to [データ v]\nadd [--1215--2125--1431--353323434555] to [データ v]\nadd [12211214251415--2225--3135--225251--245455] to [データ v]\nadd [--1214242212--4142525141--4445555444] to [データ v]\nadd [--2131--2333--1242514253--13151454] to [データ v]\nadd [12--2122--3133--4151524241--23252414343335--3453--3455--3343--3545] to [データ v]\nadd [--1323322334--51212555] to [データ v]\nadd [31111353--2123--14542435] to [データ v]\nadd [132322233332--1151--141535341435145445--4455] to [データ v]\nadd [--1323212535--2131--323433534344435351555141] to [データ v]\nadd [--3123--4143--125251--2333352523--1454535545] to [データ v]\nadd [31--2123--4143--2252--2325--3335--1444434555--5454] to [データ v]\nadd [--2125--1351--323553--3255] to [データ v]\nadd [--152131--2323--2525--31413135454145--3351--4453--4255] to [データ v]\nadd [--1242441412--2135--2323--3343--1454] to [データ v]\nadd [31351511--325251--345455] to [データ v]\nadd [22--152421253531414555--2353--4251] to [データ v]\nadd [--124142--2252--2122--14242325--3343333545--1454] to [データ v]\nadd [--124142--2252--2122--2325--3335--1454--34433445] to [データ v]\nadd [--1221--1425--3451--3255] to [データ v]\nadd [--1222212341--32523243--145453551514--2425--3435] to [データ v]\nadd [132252--3133--131523253335--3454--4353--4555] to [データ v]\nadd [511122--121555--323454--334344--3344] to [データ v]\nadd [--122125--3133--225251--1355--3553--1425] to [データ v]\nadd [51551511--2224--3234--4244--23434434] to [データ v]\nadd [212313232515--2231--2435--3234--4244--335352] to [データ v]\nadd [--1231--22255554--3242443432] to [データ v]\nadd [--1224--31345453--414352--354455] to [データ v]\nadd [--12212231333252--4151--4353--23254543232444--3335] to [データ v]\nadd [--2125--1333513355--4254] to [データ v]\nadd [--2125--3135454131453541--135343514355] to [データ v]\nadd [15--2125555121--123231--143435] to [データ v]\nadd [--21252313333151313555--324334--324334--42444353] to [データ v]\nadd [--123231325251--143435345455] to [データ v]\nadd [--1221243431213431414555--5151--5252--5353--5454] to [データ v]\nadd [51111555--2224--3242443432--23535254] to [データ v]\nadd [312123--4143--2252--1433242555--2554--2453] to [データ v]\nadd [--122221252414--31514142523231--3444--355554] to [データ v]\nadd [--2122--4142--1433242534533455] to [データ v]\nadd [--1221--2231--2252--1423253335--4453444554--4455] to [データ v]\nadd [--1333--2231--2435--4551] to [データ v]\nadd [--121432--122122--333553--334243] to [データ v]\nadd [--12212231333252--4151--4353--1313--1515--2325245453435355--3435] to [データ v]\nadd [--2123221252--32413243--2325--3335--1434--1535--344443333545--5353--5555--4345] to [データ v]\nadd [--1214--2125--3135--4151554541] to [データ v]\nadd [--1222212351--3153--2425155544] to [データ v]\nadd [--1323252151--3242--335355--344445--3535] to [データ v]\nadd [--12212231333252--4151--4353--15233335252335--3454--434453--454455] to [データ v]\nadd [--211325--2224--3234--23535155] to [データ v]\nadd [22--1524--2224--3135--1353] to [データ v]\nadd [--21414222213132--2325--333555--4354--1434--4345] to [データ v]\nadd [--1221--1425--222454--2352] to [データ v]\nadd [--122122--12523241--1434--2333--253553] to [データ v]\nadd [--121512222422323432424145425253--4355] to [データ v]\nadd [--122122--3132224251--1315--2333352523--335435--5355--4253] to [データ v]\nadd [--124142--2252--2122--13152454--3335] to [データ v]\nadd [--124142--2252--2122--132415--23254543--3335--245444534455] to [データ v]\nadd [--2123--3133--1252--1315145453] to [データ v]\nadd [--1331--2252--131555--3343443433] to [データ v]\nadd [511122--121555--3234545242444232] to [データ v]\nadd [12--2122--3132--4151524241--1335--1543--1444--2325--1223--3233535553] to [データ v]\nadd [1513535155] to [データ v]\nadd [15--212535312151--3343424555--3352] to [データ v]\nadd [--1231--2252--1533--24252454--3435--4445] to [データ v]\nset [文字 v] to (join (文字) [莉引勝負答暦治昭和成令刀遠近記号元旦輪開閉旧京柳桜午松楓霜谷里丸馬牛肉魚第野死菜米問題角同亡形方平行辺進戻])\nadd [--212522123222241434--334143--3252--3444--3555] to [データ v]\nadd [13232131335351--1555] to [データ v]\nadd [12222131325212--1151--1313--1515--2325--3335--1434433445--434555--3454] to [データ v]\nadd [--21121524--222535324245252242--4352--4455] to [データ v]\nadd [--2112131223--2314151425--413345--4244545242] to [データ v]\nadd [151151--2125241424332435--123222312233--424555524255] to [データ v]\nadd [22--3132--5142--14232515--3335555333] to [データ v]\nadd [--21224241213132--131525151424--3335555333] to [データ v]\nadd [--1321--3133--125232413243--2444452524] to [データ v]\nadd [--21252151414252--13553553--1525] to [データ v]\nadd [--211325--2224--313545353353] to [データ v]\nadd [155554--1351] to [データ v]\nadd [--2325--3335--143435454333--445344544455--1122--31324251425355] to [データ v]\nadd [--15234333353444--1122--31324251425355] to [データ v]\nadd [12--2122--3132--4151524241--131535335355] to [データ v]\nadd [--1222241412--31353242445453] to [データ v]\nadd [--1214--2125225251--245455] to [データ v]\nadd [--121424223234141232--5155] to [データ v]\nadd [--2123--313343413143--5153--1252--241525--3454343555--4445--3455] to [データ v]\nadd [511122--121555--3234--4244--33523353] to [データ v]\nadd [511122--121555--4244--33534352] to [データ v]\nadd [51--121535325255--1252--1555] to [データ v]\nadd [--132321252434322232335352--4251--4455] to [データ v]\nadd [5121222142--14234344144453441415454454] to [データ v]\nadd [5121222142--1313--1414--1515--244345--3553--3335] to [データ v]\nadd [--1331--2225--4145--2353] to [データ v]\nadd [5121222142--1423--1525--34535545] to [データ v]\nadd [5121222142--1352131555--2315--2434334345353334445355] to [データ v]\nadd [151323212535--2131213325--41424131514152--4345555444554554] to [データ v]\nadd [--1221--1425--312335--4244545242] to [データ v]\nadd [153531112125231353434244--5155] to [データ v]\nadd [--124251--2124545545--3153] to [データ v]\nadd [1511212421313431414555--5151--5252--5353--5454--1343] to [データ v]\nadd [--1231--2225--3135--1353] to [データ v]\nadd [--1323322334--33423344--2151212555] to [データ v]\nadd [--1221121524--2225454222--3235--2343--5252--5353--5454--5555] to [データ v]\nadd [--2112131223--2314151425--3135414555--33534351] to [データ v]\nadd [133331112123221252--4143--5153--1415242535--2554] to [データ v]\nadd [15--12212353--2133--242524145455] to [データ v]\nadd [--21252212--1424--2531--3232--3333--3434--4145--43514355--4353] to [データ v]\nadd [22--1524--4251--4455--3135--1353] to [データ v]\nadd [511122--121555--4244545242] to [データ v]\nadd [1222211122--313252--415155--1315242325454323452543--44534455] to [データ v]\nadd [--1221121524--2252222555--3235--4245--2353] to [データ v]\nadd [1555--1151--2224--3234444232] to [データ v]\nadd [--13232125215155] to [データ v]\nadd [13--3133--1251--1252--1524--2534--3544] to [データ v]\nadd [--13232125--33355554--233251] to [データ v]\nadd [15--3135--2132--2534--1353] to [データ v]\nadd [--1221--2331--2252--1315--23252454] to [データ v]\nadd [22--31324251425355--121545--143443] to [データ v]\nadd [22--31324251425355--142343--152444--2325--3335--4345] to [データ v]\nadd [15--212535312151--4245443444524455] to [データ v]\nset [文字 v] to (join (文字) [猫])\nadd [12--3123--4143--125251--2325--1434--1535--3335555333--4345--3454] to [データ v]\n\ndefine 日本語_ひらがな\nset [文字 v] to (join (文字) [あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわゐゑをん])\nset [文字 v] to (join (文字) [がぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽぁぃぅぇぉゃゅょっゎゔ])\nadd [--2125231353--3452313555] to [データ v]\nadd [5142--1555] to [データ v]\nadd [--1214--31355551] to [データ v]\nadd [--1214--313551435355] to [データ v]\nadd [--21232212525131355544--1425] to [データ v]\nadd [--21235342--1251--1335] to [データ v]\nadd [--2124--3135--1243415255] to [データ v]\nadd [--153155] to [データ v]\nadd [5142--2325241454] to [データ v]\nadd [1523--415155] to [データ v]\nadd [--2125--1244415255] to [データ v]\nadd [--12525435] to [データ v]\nadd [--2125231343423223435251] to [データ v]\nadd [--212522125255--1434] to [データ v]\nadd [153135425355] to [データ v]\nadd [--2123221251--3335--5355] to [データ v]\nadd [--2125--1243455552] to [データ v]\nadd [132535455351] to [データ v]\nadd [15234355] to [データ v]\nadd [--13333532415255] to [データ v]\nadd [--2123221251--1425--3454534345] to [データ v]\nadd [5142--2325--4345] to [データ v]\nadd [43--1551313555544445] to [データ v]\nadd [--1252--2123412555544445] to [データ v]\nadd [--1353512112155544] to [データ v]\nadd [5142--2325241454534345] to [データ v]\nadd [--21124152431425] to [データ v]\nadd [--1224225452--3251--3455] to [データ v]\nadd [--311355] to [データ v]\nadd [5142--1315--2325--1454534345] to [データ v]\nadd [--2125--3135--1353514145] to [データ v]\nadd [1252514145--2454] to [データ v]\nadd [--21232212525131325535--1425] to [データ v]\nadd [43--1551313555] to [データ v]\nadd [--12525435--2123--3133] to [データ v]\nadd [--21253534--1252--1323] to [データ v]\nadd [31322223253533--1454] to [データ v]\nadd [--2325231353514145] to [データ v]\nadd [--1214--2131355551] to [データ v]\nadd [3123--1555] to [データ v]\nadd [14314555514253] to [データ v]\nadd [--1252--212341145445] to [データ v]\nadd [1431355451] to [データ v]\nadd [--1252--212341255544] to [データ v]\nadd [1252513135555333] to [データ v]\nadd [14222535413243514353434555] to [データ v]\nadd [--2125--13313344--345255] to [データ v]\nadd [--1351335345] to [データ v]\nadd [--21235342--1251--1334--1424--1525] to [データ v]\nadd [--2123--3134--1243415255--1424--1525] to [データ v]\nadd [--133155--1424--1525] to [データ v]\nadd [5142--2225231353--1424--1525] to [データ v]\nadd [1323--415155--1424--1525] to [データ v]\nadd [--2125--1244415255--1424--1525] to [データ v]\nadd [--12525435--1424--1525] to [データ v]\nadd [--21252313333223435251--1424--1525] to [データ v]\nadd [--212522125255--1333--1424--1525] to [データ v]\nadd [133135425355--1424--1525] to [データ v]\nadd [--2123221251--3335--5355--1424--1525] to [データ v]\nadd [--2125--1243455552--1424--1525] to [データ v]\nadd [122535455351--1424--1525] to [データ v]\nadd [25334355--1424--1525] to [データ v]\nadd [--13333532415255--1424--1525] to [データ v]\nadd [5142--2225231353524245--1424--1525] to [データ v]\nadd [--21124152431335--1424--1525] to [データ v]\nadd [253353--3151--3555--1424--1525] to [データ v]\nadd [--311355--1424--1525] to [データ v]\nadd [5142--2325--3335--24544345--1424--1525] to [データ v]\nadd [5142--2225231353524245--1424251514] to [データ v]\nadd [--21124152431335--1424251514] to [データ v]\nadd [253353--3151--3555--1424251514] to [データ v]\nadd [--311355--1424251514] to [データ v]\nadd [5142--2325--3335--24544345--1424251514] to [データ v]\nif <(書き方) = [0]> then\n    add [--3335--245453434555--4554] to [データ v]\n    add [--335344--3555] to [データ v]\n    add [--3335--43455553] to [データ v]\n    add [--3335--434553445455] to [データ v]\n    add [--3335342454434555--2535] to [データ v]\n    add [--32354535332353--2434] to [データ v]\n    add [--334334354544--3454] to [データ v]\n    add [--3435--2454534345] to [データ v]\n    add [--33355553] to [データ v]\n    add [--32355554--2353--4243] to [データ v]\nelse\n    add [--2325--144443333545--3544] to [データ v]\n    add [--133324--1535] to [データ v]\n    add [--1315--23253533] to [データ v]\n    add [--1315--232533242435] to [データ v]\n    add [--2325241444333545--1525] to [データ v]\n    add [--22253525231343--1424] to [データ v]\n    add [--132314152524--1434] to [データ v]\n    add [--2425--1444433335] to [データ v]\n    add [--13153533] to [データ v]\n    add [--22254544--1343--3233] to [データ v]\nend\nadd [--1214--31355551--1424--1525] to [データ v]\n\nwhen I receive [penfont_start2 v]\n\ndefine 日本語_かたかな\nset [文字 v] to (join (文字) [アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヰヱヲン])\nset [文字 v] to (join (文字) [ガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポァィゥェォャュョッヮヴヵヶ])\nadd [--212544--3352] to [データ v]\nadd [--15312353] to [データ v]\nadd [--1323212553--2131] to [データ v]\nadd [--212523535155] to [データ v]\nadd [--212523135352--2351] to [データ v]\nadd [--21255443--1351] to [データ v]\nadd [--2124--3134--1254] to [データ v]\nadd [--1331221552] to [データ v]\nadd [--133122252452] to [データ v]\nadd [--21255551] to [データ v]\nadd [--21252212322224143452] to [データ v]\nadd [--1122--2132--5225] to [データ v]\nadd [--2125513355] to [データ v]\nadd [--212522125255--2534] to [データ v]\nadd [--2132--2552] to [データ v]\nadd [--22312225523431] to [データ v]\nadd [--1521--3135--2352] to [データ v]\nadd [--1131--1333--1552] to [データ v]\nadd [--1214--21252352] to [データ v]\nadd [512134] to [データ v]\nadd [--212523--1452] to [データ v]\nadd [--2224--4145] to [データ v]\nadd [--212552--3355] to [データ v]\nadd [--1323--212532--33533345] to [データ v]\nadd [--1552] to [データ v]\nadd [--1251--1455] to [データ v]\nadd [5155513134] to [データ v]\nadd [--11153552] to [データ v]\nadd [--311255] to [データ v]\nadd [--212523135342--3251--3455] to [データ v]\nadd [--212543--3254] to [データ v]\nadd [--2224--3234--5254] to [データ v]\nadd [--124144--3355] to [データ v]\nadd [--1552--2344] to [データ v]\nadd [14--3134--125255] to [データ v]\nadd [--312534--1253] to [データ v]\nadd [--2124535155] to [データ v]\nadd [--21254541455551] to [データ v]\nadd [--1214--313552] to [データ v]\nadd [31--1553] to [データ v]\nadd [51--135345] to [データ v]\nadd [5135] to [データ v]\nadd [--2151552521] to [データ v]\nadd [3111153552] to [データ v]\nadd [--212524142422424145441454] to [データ v]\nadd [1524--13535155] to [データ v]\nadd [1533313351] to [データ v]\nadd [23--5135] to [データ v]\nadd [--21255443--1351--1424--1525] to [データ v]\nadd [--2124--3134--1254--1424--1525] to [データ v]\nadd [--1331222552--1424--1525] to [データ v]\nadd [--133122252452--1424--1525] to [データ v]\nadd [--21255551--1424--1525] to [データ v]\nadd [--21252212322224143452--1424--1525] to [データ v]\nadd [--1122--2132--5225--1424--1525] to [データ v]\nadd [--2125513355--1424--1525] to [データ v]\nadd [--212522125255--2534--1424--1525] to [データ v]\nadd [--2132--2552--1424--1525] to [データ v]\nadd [--22312225523431--1424--1525] to [データ v]\nadd [--2531--3135--3352--1424--1525] to [データ v]\nadd [--2131--2333--2552--1424--1525] to [データ v]\nadd [--2224--31353352--1424--1525] to [データ v]\nadd [512134--1424--1525] to [データ v]\nadd [--1251--1355--1424--1525] to [データ v]\nadd [5155513134--1424--1525] to [データ v]\nadd [--212552--1424--1525] to [データ v]\nadd [--311255--1424--1525] to [データ v]\nadd [--212523135342--3251--3455--1424--1525] to [データ v]\nadd [--1251--1455--1424251514] to [データ v]\nadd [5155513134--1424251514] to [データ v]\nadd [--212552--1424251514] to [データ v]\nadd [--311255--1424251514] to [データ v]\nadd [--212523135342--3251--3455--1424251514] to [データ v]\nif <(書き方) = [0]> then\n    add [--333544--3453] to [データ v]\n    add [--35433454] to [データ v]\n    add [--24343343333554] to [データ v]\n    add [--333534545355] to [データ v]\n    add [--3335342454--3453] to [データ v]\n    add [--333544--2453] to [データ v]\n    add [--3334545355] to [データ v]\n    add [--33354543455553] to [データ v]\n    add [--3343--3444--3554] to [データ v]\n    add [--43333554] to [データ v]\nelse\n    add [--131524--1433] to [データ v]\n    add [--15231434] to [データ v]\n    add [--14242333232544] to [データ v]\n    add [--131514343335] to [データ v]\n    add [--2325241444--2443] to [データ v]\n    add [--232534--1443] to [データ v]\n    add [--1314343335] to [データ v]\n    add [--13152523253533] to [データ v]\n    add [--1323--1424--1534] to [データ v]\n    add [--23131534] to [データ v]\nend\nadd [--1222212553--2131--1424--1525] to [データ v]\nif <(書き方) = [0]> then\n    add [--4345443454444555] to [データ v]\n    add [--2442--33353453] to [データ v]\nelse\n    add [--2325241434242535] to [データ v]\n    add [--1432--23252443] to [データ v]\nend\n\nwhen flag clicked\nhide\n\n[テスト/Test.] Write[x,y,size,color,thickness,align,delete?] [-220] [0] [100] [0x000000] [2] [0] [1]\n\ndefine 日本語_濁点付き\nset [文字 v] to (join (文字) [亜伊江尾奈荷奴根乃麻実夢芽毛矢油与拉理留礼呂羽井絵夫霧])\nadd [--2125231353--3452313555--1424--1525] to [データ v]\nadd [5142--1555--1424--1525] to [データ v]\nadd [--1214--313551435355--1424--1525] to [データ v]\nadd [--21232212525131355544--1325--1424--1525] to [データ v]\nadd [--2123221251--3454534345--1325--1424--1525] to [データ v]\nadd [5142--2325--4345--1424--1525] to [データ v]\nadd [43--1551313555544445--1424--1525] to [データ v]\nadd [--1252--2123412555544445--1424--1525] to [データ v]\nadd [--1353512112155544--1424--1525] to [データ v]\nadd [--2125--3135--1353514145--1424--1525] to [データ v]\nadd [1252514145--2454--1424--1525] to [データ v]\nadd [--21232212525131325535--1425--1424--1525] to [データ v]\nadd [43--1551313555--1424--1525] to [データ v]\nadd [--12525435--2123--3133--1424--1525] to [データ v]\nadd [--21253534--1252--1323--1424--1525] to [データ v]\nadd [31322223253533--1454--1424--1525] to [データ v]\nadd [--2325231353514145--1424--1525] to [データ v]\nadd [--1214--2131355551--1424--1525] to [データ v]\nadd [3123--1555--1424--1525] to [データ v]\nadd [14314555514253--1424--1525] to [データ v]\nadd [--1252--212341145445--1424--1525] to [データ v]\nadd [1431355451--1424--1525] to [データ v]\nadd [--1252--212341255544--1424--1525] to [データ v]\nadd [1252513135555333--1424--1525] to [データ v]\nadd [14222535413243514353434555--1424--1525] to [データ v]\nadd [--2125--13313344--345255--1424--1525] to [データ v]\nadd [--1351335345--1424--1525] to [データ v]\nset [文字 v] to (join (文字) [吾以依汚納弐怒値之真未務眼茂屋湯予羅利流鈴路環位恵悪武])\nadd [--212544--3352--1424--1525] to [データ v]\nadd [--15312353--1424--1525] to [データ v]\nadd [--1323212553--2131--1424--1525] to [データ v]\nadd [--212523535155--1424--1525] to [データ v]\nadd [--212523135352--2351--1424--1525] to [データ v]\nadd [--212523--1452--1424--1525] to [データ v]\nadd [--2224--4145--1424--1525] to [データ v]\nadd [--212552--3355--1424--1525] to [データ v]\nadd [--1323--212532--33533345--1424--1525] to [データ v]\nadd [--1552--1424--1525] to [データ v]\nadd [--212543--3254--1424--1525] to [データ v]\nadd [--2224--3234--5254--1424--1525] to [データ v]\nadd [--124144--3355--1424--1525] to [データ v]\nadd [--1552--2344--1424--1525] to [データ v]\nadd [14--3134--125255--1424--1525] to [データ v]\nadd [--312534--1253--1424--1525] to [データ v]\nadd [--2124535155--1424--1525] to [データ v]\nadd [--21254541455551--1424--1525] to [データ v]\nadd [--1214--313552--1424--1525] to [データ v]\nadd [31--1553--1424--1525] to [データ v]\nadd [51--135345--1424--1525] to [データ v]\nadd [5135--1424--1525] to [データ v]\nadd [--2151552521--1424--1525] to [データ v]\nadd [31111552--1424--1525] to [データ v]\nadd [1533313351--1424--1525] to [データ v]\nadd [23--5135--1424--1525] to [データ v]\nadd [21--1222--1424--1525] to [データ v]\nset [文字 v] to (join (文字) [‼⁉⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳●▲■♥♦♠♣])\nadd [--1242--5252--1444--5454] to [データ v]\nadd [41--5151--3212153533--5353] to [データ v]\nadd [--1542--5151] to [データ v]\nadd [--1342--5151--1544--5353] to [データ v]\nadd [41--5151--1343--5353--1545--5555] to [データ v]\nadd [--1342--5151--1443--5252--1544--5353] to [データ v]\nadd [41--5151--1242--5252--1343--5353--1444--5454] to [データ v]\nadd [--1241--5151--1342--5252--1443--5353--1544--5454] to [データ v]\nadd [--1241--5151--133213153433--5353] to [データ v]\nadd [13333233131131--5252--1535--5555] to [データ v]\nadd [--1214333233141231--5252--1534--5353] to [データ v]\nadd [31--5151--1232--5252--3313153534--5454] to [データ v]\nadd [--1241--5151--1342--5252--33141534--5353] to [データ v]\nadd [--3111133332--5252--34141535--5555] to [データ v]\nadd [--31121332--5252--33141534--5454] to [データ v]\nadd [--212242432324444525] to [データ v]\nadd [--21414222234344242545] to [データ v]\nadd [--414222244445] to [データ v]\nadd [--212242442425] to [データ v]\n\ndefine ロシア語・ギリシャ語\nset [文字 v] to (join (文字) [АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ])\nadd [--1331513135133555] to [データ v]\nadd [151151533531] to [データ v]\nadd [51533531331511] to [データ v]\nadd [151151] to [データ v]\nadd [--1214343212--313555353151] to [データ v]\nadd [15113135315155] to [データ v]\nadd [--2125213135315155--1212--1414] to [データ v]\nadd [55--1353--1551] to [データ v]\nadd [1325333133455351] to [データ v]\nadd [511555] to [データ v]\nadd [--21512555--12222414] to [データ v]\nadd [51--153155] to [データ v]\nadd [--5142121555] to [データ v]\nadd [5111531555] to [データ v]\nadd [51--3135--1555] to [データ v]\nadd [15555111] to [データ v]\nadd [51111555] to [データ v]\nadd [5111153531] to [データ v]\nadd [--1513315335] to [データ v]\nadd [151353] to [データ v]\nadd [33--1551] to [データ v]\nadd [--2125454121--1353] to [データ v]\nadd [55--1551] to [データ v]\nadd [414414444555] to [データ v]\nadd [31351555] to [データ v]\nadd [515515555313] to [データ v]\nadd [414515454313434555] to [データ v]\nadd [1252553532] to [データ v]\nadd [51543431--1555] to [データ v]\nadd [51553531] to [データ v]\nadd [13355351--3135] to [データ v]\nadd [5131331315555313] to [データ v]\nadd [1555353111--3551] to [データ v]\nset [文字 v] to (join (文字) [ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΡΣΤΥΦΧΨ])\nadd [--1331513135133555] to [データ v]\nadd [51533531331511] to [データ v]\nadd [151151] to [データ v]\nadd [--13515513] to [データ v]\nadd [15113135315155] to [データ v]\nadd [155155] to [データ v]\nadd [5131351555] to [データ v]\nadd [15555111--3234] to [データ v]\nadd [1513535155] to [データ v]\nadd [51--153155] to [データ v]\nadd [--511355] to [データ v]\nadd [5111531555] to [データ v]\nadd [51115515] to [データ v]\nadd [15--3135--5155] to [データ v]\nadd [15555111] to [データ v]\nadd [5111153531] to [データ v]\nadd [1511335155] to [データ v]\nadd [151353] to [データ v]\nadd [33153353] to [データ v]\nadd [--2125454121--1353] to [データ v]\nadd [55--1551] to [データ v]\nadd [313515--1353] to [データ v]\nset [文字 v] to (join (文字) [¡¤¥¦¨©«®²³´µ·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßª])\nadd [--1313--2353] to [データ v]\nadd [--223334444333--2534--5243--5544] to [データ v]\nadd [2315--2125--3135--2353] to [データ v]\nadd [--1323--4353] to [データ v]\nadd [--1212--1414] to [データ v]\nadd [15555111--2224224244] to [データ v]\nadd [--223142--243344] to [データ v]\nadd [15555111--2224343222423244] to [データ v]\nadd [--2213243234] to [データ v]\nadd [--12142322243332] to [データ v]\nadd [--2214] to [データ v]\nadd [--22333424--2252] to [データ v]\nadd [--3333] to [データ v]\nadd [--4453] to [データ v]\nadd [--2213333234] to [データ v]\nadd [--12143432121432] to [データ v]\nadd [--223342--233443] to [データ v]\nadd [--2112323133--1551--334345443454] to [データ v]\nadd [--2112323133--1551--4334455355] to [データ v]\nadd [132221233231--1551--334345443454] to [データ v]\nadd [--1313--3331515535] to [データ v]\nadd [--2331513135233555--1125] to [データ v]\nadd [--2331513135233555--2115] to [データ v]\nadd [--2331513135233555--211325] to [データ v]\nadd [--2331513135233555--21132315] to [データ v]\nadd [--2331513135233555--1212--1414] to [データ v]\nadd [--2331513135233555--1214242212] to [データ v]\nadd [--13533323--1351--1315--3235--5355] to [データ v]\nadd [--1514214335--435453] to [データ v]\nadd [--2125213135315155--1125] to [データ v]\nadd [--2125213135315155--2115] to [データ v]\nadd [--2125213135315155--211325] to [データ v]\nadd [--2125213135315155--1212--1414] to [データ v]\nadd [--212523535155--1125] to [データ v]\nadd [--212523535155--1521] to [データ v]\nadd [--212523535155--211325] to [データ v]\nadd [--212523535155--1212--1414] to [データ v]\nadd [--121335535212--3133] to [データ v]\nadd [--51215525--21132315] to [データ v]\nadd [--2125555121--1125] to [データ v]\nadd [--2125555121--2115] to [データ v]\nadd [--2125555121--211325] to [データ v]\nadd [--2125555121--21132315] to [データ v]\nadd [--2125555121--1212--1414] to [データ v]\nadd [--2125555121--1551] to [データ v]\nadd [--21515525--1224] to [データ v]\nadd [--21515525--2214] to [データ v]\nadd [--21515525--221324] to [データ v]\nadd [--21515525--1212--1414] to [データ v]\nadd [33153353--2214] to [データ v]\nadd [5121254541] to [データ v]\nadd [51111332355553] to [データ v]\nadd [--121434322224] to [データ v]\nset [文字 v] to (join (文字) [ĒĖŸŪĮĪŒŌĀŠŚŁŻŽŹČĊŃ])\nadd [--2125214145415155--1214] to [データ v]\nadd [--2125214145415155--2214] to [データ v]\nadd [33153353--1212--1414] to [データ v]\nadd [515515--1212--1414] to [データ v]\nadd [1513434145--435453] to [データ v]\nadd [--212523535155--1214] to [データ v]\nadd [15115153133335335355] to [データ v]\nadd [--2125555121--1214] to [データ v]\nadd [--234145234555--4151--1214] to [データ v]\nadd [--252341455351--122314] to [データ v]\nadd [--252341455351--2214] to [データ v]\nadd [--125255--3123] to [データ v]\nadd [--21255155--1313] to [データ v]\nadd [--21255155--122314] to [データ v]\nadd [--21255155--2214] to [データ v]\nadd [--2523415345--122314] to [データ v]\nadd [--2523415345--1422] to [データ v]\nadd [--51215525--1422] to [データ v]\nset [文字 v] to (join (文字) [Ωέΰύίόάήώς;΅ʹ])\nadd [--5152311115355355] to [データ v]\nadd [--2125214145415155--2115] to [データ v]\nadd [--3143354353--2222--2424--2214] to [データ v]\nadd [33153353--2214] to [データ v]\nadd [--212523535155--2115] to [データ v]\nadd [--2125555121--2115] to [データ v]\nadd [--2341514145554523--2115] to [データ v]\nadd [5131351555--2214] to [データ v]\nadd [--5152312125355355--2214] to [データ v]\nadd [--1511335155] to [データ v]\nadd [--3232--3435] to [データ v]\nadd [--1212--1423--1515] to [データ v]\nadd [--1423] to [データ v]\n\ndefine 地面\nset pen (transparency v) to (0)\npen up\nset pen size to (1)\nset pen color to (#b70000)\nset x to (mouse x)\nset y to (-90)\nset [mouse v] to [50]\npen down\nset pen size to (1)\nrepeat (100)\n    move (mouse) steps\n    change [mouse v] by (3)\n    move (join [-] ((mouse) - (1))) steps\n    change y by (-1)\nend\npen up\nset pen size to (3)\nif <not <(トゲ_下) = [0]>> then\n    set y to (トゲ_下)\n    set x to ((mouse x) + (15))\n    pen down\n    set pen color to (#888888)\n    set [mouse v] to [0]\n    repeat (30)\n        move (mouse) steps\n        change [mouse v] by (((トゲ_下) * (-1)) / (20))\n        move (join [-] ((mouse) - (2.5))) steps\n        change y by (-1)\n    end\nend\npen up\nset pen color to (#0b9009)\nset pen size to (3)\nif <not <(壁) = [0]>> then\n    set x to ((mouse x) - ((壁) * (-1)))\n    set y to (壁)\n    repeat (30)\n        pen down\n        move (((壁) * (-1)) * (2)) steps\n        change y by (1)\n        set x to ((mouse x) - ((壁) * (-1)))\n    end\nend\npen up\nif <not <(clear) = [0]>> then\n    if <(lang) = [en]> then\n        [clear!!] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (220)) [90] (clear) [0x000000] [2] [0] [0]\n        [★ and ♡, please follow us!] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (220)) [0] ((clear) - (150)) [0x000000] [2] [0] [0]\n    else\n        [クリア！] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (220)) [90] (clear) [0x000000] [2] [0] [0]\n        [★と♡、フォローよろしく！] Write[x,y,size,color,thickness,align,delete?] ((mouse x) - (220)) [0] ((clear) - (130)) [0x000000] [2] [0] [0]\n    end\nend\npen up\nset pen size to (50)\nset pen color to (#ffe900)\ngo to x: (-240) y: (160)\npen down\ngo to x: (240) y: (160)\npen up\n\ndefine キャラ (y座標) (色) (透明度)\nset pen size to (5)\npen up\nset pen color to (色)\ngo to x: (-50) y: (y座標)\nrepeat (90)\n    set pen (transparency v) to (透明度)\n    pen down\n    move (100) steps\n    change y by (1)\n    set x to (-50)\nend\npen up\nset pen (transparency v) to (0)\nset pen size to (5)\ngo to x: (100) y: (-150)\nset pen color to (#1d00ff)\npen down\nmove (100) steps\npen up\ngo to x: (100) y: (-150)\nset pen color to (#009dff)\npen down\nif <[999] < (z)> then\n    move (100) steps\nelse\n    if <not <(z) = [0]>> then\n        move ((z) / (10)) steps\n    end\nend\n\ndefine 動く\nif <<key (space v) pressed?> or <mouse down?>> then\n    change [z v] by (5)\n    wait (0.1) seconds\nend\n\nwhen I receive [start v]\nset [clear v] to [0]\nset [no v] to [0]\nrepeat (50)\n    キャラ [-200] [#ff0000] (No)\n    [start!] Write[x,y,size,color,thickness,align,delete?] [-60] [-90] [50] [0x000000] [2] [0] [0]\n    change [no v] by (2)\nend\nコース\n\nwhen I receive [start v]\nset [light_blue v] to [#afdfe4]\nforever\n    if <<key (up arrow v) pressed?> or <<mouse down?> and <[130] < (mouse y)>>> then\n        set [jump v] to [1]\n        set [探す文字 v] to [-200]\n        repeat (15)\n            キャラ (探す文字) (light_blue) [0]\n            change [探す文字 v] by (10)\n        end\n        repeat (15)\n            キャラ (探す文字) (light_blue) [0]\n            change [探す文字 v] by (-10)\n        end\n    else\n        set [jump v] to [0]\n        キャラ [-200] (light_blue) [0]\n    end\nend\n\nwhen flag clicked\nforever\n    if <<[当たってはいけない v] contains (z)?> and <(jump) = [0]>> then\n        stop [other scripts in sprite v]\n        broadcast (restart v)\n    end\n    if <<[ここは壁 v] contains (z)?> and <(jump) = [0]>> then\n        change [z v] by (-5)\n    end\nend\n\nwhen I receive [restart v]\nforever\n    erase all\n    地面\n    動く\nend\n\nwhen I receive [restart v]\nforever\n    if <<<mouse down?> and <[130] < (mouse y)>> or <key (up arrow v) pressed?>> then\n        set [jump v] to [1]\n        set [探す文字 v] to [-200]\n        repeat (15)\n            キャラ (探す文字) (light_blue) [0]\n            change [探す文字 v] by (10)\n        end\n        repeat (15)\n            キャラ (探す文字) (light_blue) [0]\n            change [探す文字 v] by (-10)\n        end\n    else\n        set [jump v] to [0]\n        キャラ [-200] (light_blue) [0]\n    end\nend\n\nwhen I receive [restart v]\nset [clear v] to [0]\nset [no v] to [0]\nrepeat (50)\n    キャラ [-200] [#ff0000] (No)\n    [start!] Write[x,y,size,color,thickness,align,delete?] [-60] [-90] [50] [0x000000] [2] [0] [0]\n    change [no v] by (2)\nend\nコース\n\ndefine コース\nset [clear v] to [0]\nset [z v] to [0]\nset [トゲ_下 v] to [0]\nwait until <[50] < (z)>\nset [トゲ_下 v] to [-60]\nrepeat until <[170] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [トゲ_下 v] by (-5)\n        wait (0.1) seconds\n    end\nend\nset [トゲ_下 v] to [0]\nwait until <[260] < (z)>\nset [トゲ_下 v] to [-60]\nrepeat until <[300] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [トゲ_下 v] by (-20)\n        wait (0.1) seconds\n    end\nend\nset [トゲ_下 v] to [-60]\nrepeat until <[380] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [トゲ_下 v] by (-20)\n        wait (0.1) seconds\n    end\nend\nset [トゲ_下 v] to [-60]\nrepeat until <[420] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [トゲ_下 v] by (-20)\n        wait (0.1) seconds\n    end\nend\nwait until <[460] < (z)>\nset [壁 v] to [-60]\nrepeat until <[500] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [壁 v] by (-20)\n        if <<[ここは壁 v] contains (z)?> and <(jump) = [0]>> then\n            change [壁 v] by (20)\n        end\n        wait (0.1) seconds\n    end\nend\nwait until <[520] < (z)>\nset [壁 v] to [0]\nset [トゲ_下 v] to [-60]\nrepeat until <[550] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [トゲ_下 v] by (-20)\n        wait (0.1) seconds\n    end\nend\nset [壁 v] to [0]\nwait until <[570] < (z)>\nset [壁 v] to [-60]\nrepeat until <[620] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [壁 v] by (-20)\n        if <<[ここは壁 v] contains (z)?> and <(jump) = [0]>> then\n            change [壁 v] by (20)\n        end\n        wait (0.1) seconds\n    end\nend\nwait until <[620] < (z)>\nset [壁 v] to [0]\nset [トゲ_下 v] to [-60]\nrepeat until <[680] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [トゲ_下 v] by (-20)\n        wait (0.1) seconds\n    end\nend\nset [壁 v] to [0]\nwait until <[690] < (z)>\nset [壁 v] to [-60]\nrepeat until <[720] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [壁 v] by (-20)\n        if <<[ここは壁 v] contains (z)?> and <(jump) = [0]>> then\n            change [壁 v] by (20)\n        end\n        wait (0.1) seconds\n    end\nend\nwait until <[720] < (z)>\nset [壁 v] to [0]\nset [トゲ_下 v] to [-60]\nrepeat until <[760] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [トゲ_下 v] by (-20)\n        wait (0.1) seconds\n    end\nend\nset [壁 v] to [-60]\nrepeat until <[800] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [壁 v] by (-20)\n        if <<[ここは壁 v] contains (z)?> and <(jump) = [0]>> then\n            change [壁 v] by (20)\n        end\n        wait (0.1) seconds\n    end\nend\nset [壁 v] to [-60]\nrepeat until <[860] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [壁 v] by (-20)\n        if <<[ここは壁 v] contains (z)?> and <(jump) = [0]>> then\n            change [壁 v] by (20)\n        end\n        wait (0.1) seconds\n    end\nend\nset [トゲ_下 v] to [-60]\nrepeat until <[920] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [トゲ_下 v] by (-20)\n        wait (0.1) seconds\n    end\nend\nset [clear v] to [30]\nrepeat until <[1000] < (z)>\n    if <<key (space v) pressed?> or <mouse down?>> then\n        change [clear v] by (10)\n        wait (0.1) seconds\n    end\nend\n\n[3d] Write[x,y,size,color,thickness,align,delete?] [-140] [120] [300] [0x000000] [5] [0] [0]\n[platformer] Write[x,y,size,color,thickness,align,delete?] [-225] [-60] [90] [0x000000] [3] [0] [0]\n\n@もじ\n\nwhen flag clicked\nhide\nswitch backdrop to (背景2 v)\nstart sound [monody v]\nエフェクトNo. [2] テキスト [nazokoubou]\nwait (7) seconds\nbroadcast (全てが消える v)\nswitch backdrop to (背景1 v)\nbroadcast (PenFont_Start v)\n\ndefine 文字を書く (文字列) x (x) y (y) 色 (色) 大きさ (大きさ) 字間 (字間) 揃え方 (揃え方)\nset pen (transparency v) to (100)\npoint in direction (90)\nset size to (大きさ) %\ngo to x: (x) y: (y)\nif <(揃え方) = [1]> then\n    set x to (0)\n    change x by (join [-] (((((大きさ) * ((12) + (字間))) / (100)) * (length of (文字列))) / (2)))\nend\nbroadcast (全てが消える v)\nset [文字 v] to (色)\n色\nset [もじ: i v] to [0]\nhide\nset [雑用 v] to (length of (文字列))\nrepeat (length of (文字列))\n    change [もじ: i v] by (1)\n    if <(letter (もじ: i) of (文字列)) = [改]> then\n        go to x: (x) y: (((大きさ) * (-20)) / (100))\n    else\n        if <<(No) = [1]> and <not <(letter (もじ: i) of (文字列)) = [/]>>> then\n            switch costume to (join [char_] (join (letter (もじ: i) of (文字列)) [_red]))\n        end\n        if <<(No) = [1]> and <(letter (もじ: i) of (文字列)) = [/]>> then\n            switch costume to (char_　_red v)\n        end\n        if <not <(No) = [1]>> then\n            switch costume to (join [char_] (join (letter (もじ: i) of (文字列)) [_red]))\n        end\n        create clone of (_myself_ v)\n        if <(x position) > [200]> then\n            go to x: (x) y: (((大きさ) * (-20)) / (100))\n        else\n            change x by (((大きさ) * ((12) + (字間))) / (100))\n        end\n    end\nend\n\nwhen I receive [全てが消える v]\ndelete this clone\n\nwhen I start as a clone\nshow\nif <<(No) = [1]> and <(costume [number v]) = [290]>> then\n    pen up\n    set y to (240)\n    move (110) steps\n    set pen (transparency v) to (0)\n    set pen color to (#ffffff)\n    set pen size to (1)\n    pen down\n    point in direction (30)\n    repeat (14)\n        move (-30) steps\n    end\n    set pen size to (250)\n    set pen color to (#000000)\n    repeat (6)\n        move (5) steps\n    end\n    pen up\n    set y to (250)\n    move (140) steps\n    pen down\n    set pen (transparency v) to (0)\n    set pen size to (250)\n    set pen color to (#000000)\n    repeat (4)\n        move (-5) steps\n    end\n    wait (0.5) seconds\n    repeat (4)\n        move (-30) steps\n    end\nelse\n    set pen (transparency v) to (100)\n    pen up\nend\n\ndefine 色\nif <<(文字) = [赤]> or <(文字) = [red]>> then\n    set [color v] effect to (0)\n    set [brightness v] effect to (0)\nend\nif <<(文字) = [オレンジ]> or <(文字) = [orange]>> then\n    set [color v] effect to (15)\n    set [brightness v] effect to (0)\nend\nif <<(文字) = [黄色]> or <(文字) = [yellow]>> then\n    set [color v] effect to (30)\n    set [brightness v] effect to (0)\nend\nif <<(文字) = [緑]> or <(文字) = [green]>> then\n    set [color v] effect to (70)\n    set [brightness v] effect to (0)\nend\nif <<(文字) = [水色]> or <(文字) = [light blue]>> then\n    set [color v] effect to (100)\n    set [brightness v] effect to (0)\nend\nif <<(文字) = [青]> or <(文字) = [blue]>> then\n    set [color v] effect to (130)\n    set [brightness v] effect to (0)\nend\nif <<(文字) = [紫]> or <(文字) = [purple]>> then\n    set [color v] effect to (160)\n    set [brightness v] effect to (0)\nend\nif <<(文字) = [黒]> or <(文字) = [black]>> then\n    set [color v] effect to (0)\n    set [brightness v] effect to (-100)\nend\nif <<(文字) = [白]> or <(文字) = [white]>> then\n    set [color v] effect to (0)\n    set [brightness v] effect to (100)\nend\n\ndefine エフェクトNo. (no) テキスト (テキスト)\nerase all\nbroadcast (全てが消える v)\nset [no v] to (no)\nif <(no) = [1]> then\n    文字を書く (テキスト) x [0] y [0] 色 [白] 大きさ [200] 字間 [4] 揃え方 [1]\n    wait (2.5) seconds\n    broadcast (全てが消える v)\nend\nif <(no) = [2]> then\n    erase all\n    set pen size to (1)\n    set pen color to (#ffffff)\n    線 [-100] [100] [-100] [-100] 速度 [0.55] 太さ [1]\n    線 [-100] [100] [100] [100] 速度 [0.55] 太さ [1]\n    線 [-50] [100] [-50] [-100] 速度 [0.55] 太さ [1]\n    線 [-100] [50] [100] [50] 速度 [0.55] 太さ [1]\n    線 [0] [100] [0] [-100] 速度 [0.2] 太さ [1]\n    線 [-100] [0] [100] [0] 速度 [0.2] 太さ [1]\n    線 [50] [100] [50] [-100] 速度 [0.2] 太さ [1]\n    線 [-100] [-50] [100] [-50] 速度 [0.2] 太さ [1]\n    線 [100] [100] [100] [-100] 速度 [0.2] 太さ [1]\n    線 [-100] [-100] [100] [-100] 速度 [0.2] 太さ [1]\n    set pen color to (#000000)\n    set pen size to (250)\n    pen up\n    go to x: (-240) y: (0)\n    pen down\n    glide (0.5) secs to x: (240) y: (0)\n    文字を書く (テキスト) x [0] y [0] 色 [黒] 大きさ [200] 字間 [4] 揃え方 [1]\n    set [雑用 v] to [-240]\n    repeat (25)\n        set pen color to (#000000)\n        erase all\n        線 (雑用) [0] [400] [0] 速度 [0] 太さ [250]\n        change [雑用 v] by (20)\n    end\n    文字を書く (テキスト) x [0] y [0] 色 [白] 大きさ [200] 字間 [4] 揃え方 [1]\n    set [雑用 v] to [-240]\n    repeat (25)\n        set pen color to (#ffffff)\n        erase all\n        線 (雑用) [0] [400] [0] 速度 [0] 太さ [250]\n        change [雑用 v] by (20)\n    end\n    erase all\n    wait (1) seconds\nend\nif <(No) = [3]> then\n    set pen size to (1)\n    set [雑用 v] to [1]\n    repeat (50)\n        set pen color to (#ffffff)\n        線 [-240] [0] [240] [0] 速度 [0] 太さ (雑用)\n        change [雑用 v] by (2)\n    end\n    文字を書く (テキスト) x [0] y [0] 色 [白] 大きさ [200] 字間 [4] 揃え方 [1]\n    set pen size to (0.1)\n    set [雑用 v] to [2]\n    repeat (50)\n        set pen color to (#000000)\n        線 [-240] [50] [240] [50] 速度 [0] 太さ (雑用)\n        線 [-240] [-50] [240] [-50] 速度 [0] 太さ (雑用)\n        change [雑用 v] by (2)\n    end\n    wait (1) seconds\nend\nif <(No) = [4]> then\n    文字を書く (テキスト) x [0] y [0] 色 [黒] 大きさ (((1000) / (length of (テキスト))) * (1.5)) 字間 ((length of (テキスト)) / (2)) 揃え方 [1]\n    set pen size to (1)\n    set [雑用 v] to [1]\n    repeat (25)\n        set pen color to (#ffffff)\n        線 [-240] [240] [-240] [-240] 速度 [0] 太さ (雑用)\n        change [雑用 v] by (8)\n    end\n    set pen size to (1)\n    set [雑用 v] to [1]\n    repeat (25)\n        set pen color to (#ffffff)\n        線 [240] [240] [240] [-240] 速度 [0] 太さ (雑用)\n        change [雑用 v] by (8)\n    end\n    set pen size to (1)\n    set [雑用 v] to [1]\n    repeat (25)\n        set pen color to (#ffffff)\n        線 [-240] [240] [240] [240] 速度 [0] 太さ (雑用)\n        change [雑用 v] by (8)\n    end\n    set pen size to (1)\n    set [雑用 v] to [1]\n    repeat (25)\n        set pen color to (#ffffff)\n        線 [-240] [-240] [240] [-240] 速度 [0] 太さ (雑用)\n        change [雑用 v] by (8)\n    end\n    set pen size to (1)\n    set [雑用 v] to [1]\n    repeat (25)\n        set pen color to (#ffffff)\n        線 [-240] [-240] [240] [240] 速度 [0] 太さ (雑用)\n        change [雑用 v] by (8)\n    end\n    wait (1) seconds\nend\nif <(No) = [5]> then\n    pen up\n    broadcast (全てが消える v)\n    hide\n    clear graphic effects\n    repeat (6)\n        set size to (1000) %\n        go to x: (0) y: (0)\n        switch costume to (logic_1 v)\n        create clone of (_myself_ v)\n        wait (0.25) seconds\n    end\n    wait (7) seconds\n    set [雑用2 v] to [20]\n    repeat (100)\n        文字を書く (テキスト) x [0] y [0] 色 [白] 大きさ (雑用2) 字間 [4] 揃え方 [1]\n        change [雑用2 v] by (3)\n        wait (0.01) seconds\n    end\n    wait (1) seconds\nend\nif <(No) = [6]> then\n    set pen size to (1)\n    set [雑用 v] to [1]\n    repeat (50)\n        set pen color to (#ffffff)\n        線 [-240] [0] [240] [0] 速度 [0] 太さ (雑用)\n        change [雑用 v] by (2)\n    end\n    文字を書く (テキスト) x [0] y [0] 色 [黒] 大きさ [200] 字間 [4] 揃え方 [1]\n    wait (2) seconds\nend\nif <(No) = [7]> then\n    文字を書く (テキスト) x [0] y [-240] 色 [白] 大きさ [200] 字間 [4] 揃え方 [1]\n    wait (4) seconds\nend\n\nwhen I start as a clone\npoint in direction (90)\nif <(No) = [1]> then\n    wait (1.3) seconds\n    repeat (7)\n        change x by ((x position) / (-35))\n    end\nend\nif <(No) = [2]> then\n    wait (1) seconds\n    repeat (8)\n        set size to (350) %\n        repeat (10)\n            change size by (-10)\n        end\n        wait (0.2) seconds\n    end\n    wait (2) seconds\n    repeat (20)\n        turn right (15) degrees\n        change size by (-10)\n    end\n    delete this clone\nend\n\ndefine 線 (x) (y) (dx) (dy) 速度 (speed) 太さ (thickness)\npen up\ngo to x: (x) y: (y)\npen down\nset pen size to (thickness)\nglide (speed) secs to x: (dx) y: (dy)\n\nwhen I start as a clone\nshow\nif <(No) = [5]> then\n    if < (costume [name v]) contains [logic]?> then\n        repeat (5)\n            next costume\n            wait (0.01) seconds\n        end\n        repeat (100)\n            change size by (-10)\n        end\n        switch costume to (logic_1 v)\n        repeat (5)\n            next costume\n            wait (0.01) seconds\n        end\n        repeat (100)\n            change size by (10)\n        end\n        delete this clone\n    end\nend\nif <(No) = [6]> then\n    switch costume to ((costume [number v]) - (20))\n    show\n    repeat (20)\n        next costume\n        wait (pick random (0.01) to (0.1)) seconds\n    end\nend\nif <(No) = [7]> then\n    show\n    repeat (50)\n        change y by (5)\n        turn right (pick random (1) to (2)) degrees\n    end\n    repeat (10)\n        change y by (5)\n        change size by (30)\n        turn right (pick random (1) to (2)) degrees\n    end\n    repeat (10)\n        change y by (5)\n        change size by (-30)\n        turn right (pick random (1) to (2)) degrees\n    end\n    repeat (60)\n        turn right (pick random (1) to (2)) degrees\n        change y by (-5)\n    end\n    delete this clone\nend\n\n