{"id":8155,"date":"2019-11-15T08:09:03","date_gmt":"2019-11-14T23:09:03","guid":{"rendered":"https:\/\/sinsei.space\/blog\/?p=8155"},"modified":"2021-05-02T13:54:01","modified_gmt":"2021-05-02T04:54:01","slug":"hextrategy-%e3%82%bf%e3%82%a4%e3%83%88%e3%83%ab%e3%81%a8%e3%82%b2%e3%83%bc%e3%83%a0%e3%82%b9%e3%82%bf%e3%83%bc%e3%83%88%e7%94%bb%e9%9d%a2%e3%82%92%e4%bd%9c%e3%81%a3%e3%81%a6%e3%82%8b","status":"publish","type":"post","link":"https:\/\/sinsei.space\/blog\/8155","title":{"rendered":"Hextrategy \u30bf\u30a4\u30c8\u30eb\u3068\u30b2\u30fc\u30e0\u30b9\u30bf\u30fc\u30c8\u753b\u9762\u3092\u4f5c\u3063\u3066\u308b"},"content":{"rendered":"<p><font size=4><br \/>\n2019\u5e74 11\u6708 15\u65e5<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u305d\u308d\u305d\u308d 1\u30f6\u6708\u306b\u306a\u308b\u306e\u3067\u9014\u4e2d\u7d4c\u904e\u3067\u66f4\u65b0\u3059\u308b\u3002<\/p>\n<p>\u3000\u4eca\u4f5c\u3063\u3066\u308b\u306e\u306f\u30bf\u30a4\u30c8\u30eb\u3068\u30b2\u30fc\u30e0\u30b9\u30bf\u30fc\u30c8\u6642\u306e\u30de\u30c3\u30d7\u9078\u629e\u753b\u9762\u3060\u3002<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u307e\u305a\u30bf\u30a4\u30c8\u30eb\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02324.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8156\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02324.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02324-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><\/p>\n<p>\u3000\u30bf\u30a4\u30c8\u30eb\u306e\u30b0\u30e9\u3092\u4ed8\u3051\u3066\u306a\u3044\u306e\u3067\u3001\u6a5f\u80fd\u3068\u30bf\u30c3\u30d7\u30a8\u30ea\u30a2\u3060\u3051\u8868\u793a\u3057\u3066\u3044\u308b\u3002<\/p>\n<p>\u3000NEWGAME \u3067\u30de\u30c3\u30d7\u4f5c\u6210\u304b\u3089\u3001CONTINUE\u306f\u30bb\u30fc\u30d6\u30c7\u30fc\u30bf\u753b\u9762\u306b\u306a\u308b\u3002<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n<!--more--><\/p>\n<p>\u3000NEWGAME<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02326.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8159\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02326.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02326-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><\/p>\n<p>\u3000\u4e0b\u306e NO\u3092\u62bc\u3059\u3068\u30e9\u30f3\u30c0\u30e0\u3067\u30de\u30c3\u30d7\u3092\u6b21\u3005\u3068\u4f5c\u6210\u3059\u308b\u3002<\/p>\n<p>\u3000\u5de6\u306e S\u3001M\u3001L\u306f\u30d2\u30fc\u30ed\u30fc\u306e\u591a\u3055\u3092\u9078\u629e\u3001\u53f3\u306e S\u3001M\u3001L\u306f\u30de\u30c3\u30d7\u306e\u5927\u304d\u3055\u3092\u9078\u629e\u3059\u308b\u3002<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u30de\u30c3\u30d7 S\u3067\u4f5c\u6210\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02327.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8161\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02327.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02327-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u30de\u30c3\u30d7 L\u3067\u4f5c\u6210\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02328.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8162\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02328.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02328-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u30de\u30c3\u30d7 L\u3001\u30d2\u30fc\u30ed\u30fc L\u3067\u4f5c\u6210\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02329.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8164\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02329.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02329-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000YES\u3092\u62bc\u3059\u3068\u6b21\u306f\u30d7\u30ec\u30a4\u30e4\u30fc\u9078\u629e\u753b\u9762\u306b\u306a\u308b\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02330.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8167\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02330.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02330-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><\/p>\n<p>\u3000\u3053\u306e\u753b\u9762\u3067\u306f HEX\u3092\u62bc\u3059\u305f\u3073\u306b\u3001\u30d2\u30fc\u30ed\u30fc \u2192 \u30d7\u30ec\u30a4\u30e4\u30fc \u2192 \u4e2d\u7acb\u3068\u5207\u308a\u66ff\u308f\u308b\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02331.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8168\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02331.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02331-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000NEXT\u3092\u62bc\u3059\u3068\u6b21\u306f\u30ab\u30e9\u30fc\u3092\u5909\u66f4\u3059\u308b\u753b\u9762\u306b\u306a\u308b\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02332.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8169\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02332.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02332-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u30d2\u30fc\u30ed\u30fc\u306e\u56fd\u3092\u30bf\u30c3\u30d7\u3059\u308b\u3068\u30ab\u30e9\u30fc\u9078\u629e\u753b\u9762\u306b\u306a\u308b\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02333.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8170\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02333.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02333-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u8272\u3092\u9078\u3076\u3068\u5165\u308c\u66ff\u308f\u308b\u3002<\/p>\n<p>\u3000COLOR\u4e0b\u306e HEX\u304c\u7d2b\u304b\u3089\u767d\u306b\u306a\u3063\u3066\u308b\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02334.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8171\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02334.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/img02334-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000START\u3092\u62bc\u3059\u3068\u59cb\u307e\u308b\u304c\u3001\u307e\u3060\u3053\u306e\u753b\u9762\u304b\u3089\u30b2\u30fc\u30e0\u306b\u306a\u308b\u3068\u30d0\u30b0\u3067\u843d\u3061\u308b\u3002<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u305d\u308c\u3067\u306f\u30bd\u30fc\u30b9\u3092\u7f6e\u304f\u3051\u3069\u3001\u4f5c\u6210\u9014\u4e2d\u306a\u306e\u3067\u30b0\u30c1\u30e3\u30b0\u30c1\u30e3\u3060\u3002<\/p>\n<p>\u3000\u30bf\u30a4\u30c8\u30eb<\/p>\n<pre class=\"lang:hsp decode:true \" >;---------- TITLE ----------\r\n\r\n#deffunc credit ; \u30af\u30ec\u30b8\u30c3\u30c8\r\n\r\n\tcreditf=0 : kc=5\r\n\trepeat\r\n\t repeat 1\r\n\t  if kc&gt;0 : kc- : break\r\n\t  stick kb\r\n\t   if kb=256 : kc=5 : creditf+\r\n\t loop\r\n\t if creditf=1 : break\r\n\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf : color 255,255,255\r\n\t  pos 100,100 : mes \"hituji kougaku\"\r\n\t  pos 100,130 : mes \"alte\"\r\n\t  pos 100,150 : mes \"angek maker\"\r\n\t  pos 100,180 : mes \"sitonohane\"\r\n\t redraw 1\r\n\r\n\t await 1000\/10\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc option ; \u30aa\u30d7\u30b7\u30e7\u30f3\r\n\r\n; mevo\r\n; muvo\r\n; sevo\r\n; credit\r\n\r\n\treturn\r\n\r\n\r\n\r\n*titl\r\n\r\n\tky=0 : kb=0 : kc=5\r\n\trepeat\r\n\t repeat 1\r\n\t  if kc&gt;0 : kc- : break\r\n\t  ky=titl_key() : stick kb\r\n\t loop\r\n\r\n; NEW GAME\r\n\t if kb=256 and ky=1 {\r\n\t  ;new_game\r\n\t  ;if new_gamef=1 : hextf=0 : mainf=5 : break\r\n\t  gsf=0 : mainf=4 : break\r\n\t }\r\n\r\n; CONTINUE\r\n\t if kb=256 and ky=2 {\r\n\t  save_putf=0 : gosub *load\r\n\t  if savef=11 : mainf=5 : break ; \u30ed\u30fc\u30c9\u3057\u305f\r\n\t }\r\n\r\n; OPTION\r\n\r\n\r\n\t if kb=256 and ky=4 : credit : ky=0\t\t; CREDIT \u30af\u30ec\u30b8\u30c3\u30c8\r\n\t if kb=256 and ky=5 : mainf=6 : break\t; EXIT\r\n\r\n\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf : color 160,160,160;255,255,255\r\n\t  repeat 5,1\r\n\t   boxf tix1,tiy1(cnt),tix2,tiy2(cnt)\r\n\t  loop\r\n\t  color 255,255,255\r\n\t   pos tix1+20,tiy1(1)+10 : mes \"NEW GAME\"\r\n\t   pos tix1+20,tiy1(2)+10 : mes \"CONTINUE\"\r\n\t   pos tix1+20,tiy1(3)+10 : mes \"OPTION\"\r\n\t   pos tix1+20,tiy1(4)+10 : mes \"CREDIT\"\r\n\t   pos tix1+20,tiy1(5)+10 : mes \"EXIT\"\r\n\r\n\t  dg_put\r\n\t redraw 1\r\n\r\n\t await 1000\/10\r\n\tloop\r\n\r\n\treturn\r\n<\/pre>\n<p><strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u30de\u30c3\u30d7\u4f5c\u6210<\/p>\n<pre class=\"lang:hsp decode:true \" >#deffunc map_check ; 6\u56de\u540c\u3058\u51e6\u7406\u306a\u306e\u3067\u4e00\u3064\u306b\u307e\u3068\u3081\r\n\r\n\t;if map(m)=0 : return ; \u5730\u5f62\u7121\u3057\r\n\r\n\tf=0\r\n\trepeat 25 : cn=cnt\r\n\t if mf(cn)=0 : break ; \u767b\u9332\u306f\u3082\u3046\u7121\u3044\u3088\r\n\t if mf(cn)=m : f=1 : break ; \u767b\u9332\u6e08\u307f\r\n\tloop\r\n\tif f=1 : return ; \u767b\u9332\u6e08\u307f\r\n\r\n\tmf(cn)=m ; \u30c1\u30a7\u30c3\u30af\u6e08\u307f\u306b\u767b\u9332\r\n\r\n\treturn\r\n\r\n\r\n#deffunc map_build int map_buildn ; map\u751f\u6210(\u6d88\u3059\u6570)\r\n\r\n\trepeat ;------- \u30de\u30c3\u30d7\u751f\u6210 -------\r\n\r\n\t repeat 26 ; \u30ea\u30bb\u30c3\u30c8\r\n\t  map(cnt)=0\r\n\t  mf(cnt)=0\r\n\t loop\r\n\r\n\t mapg=0 ; \u3044\u304f\u3064\u5730\u5f62\u3092\u4f5c\u3063\u305f\u304b\r\n\t mfn=0  ; \u6b21\u306b\u51e6\u7406\u3059\u308b MAP No.\r\n\r\n\t repeat 25,1 ; MAP\u3092\u5730\u5f62\u3067\u57cb\u3081\u308b\r\n\t  r=rnd(6)+1 : map(cnt)=r\r\n\t loop\r\n\r\n\t repeat map_buildn ; \u30e9\u30f3\u30c0\u30e0\u306bn\u500b\u5730\u5f62\u3092\u6d88\u3059\r\n\t  repeat\r\n\t   r=rnd(25)+1\r\n\t    if map(r)=0 : continue\r\n\t   map(r)=0 : break\r\n\t   await 0\r\n\t  loop\r\n\t loop\r\n\/*\r\n\t repeat map_buildn ; \u30e9\u30f3\u30c0\u30e0\u306bn\u500b\u5730\u5f62\u3092\u6d88\u3059\r\n\t  r=rnd(25)+1\r\n\r\n;if cnt=0 : r=1\r\n;if cnt=1 : r=4\r\n;if cnt=2 : r=25\r\n\r\n\t  map(r)=0\r\n\t loop\r\n*\/\r\n;map(2)=0\r\n\r\n\t repeat 25,1\r\n\t  if map(cnt)=0 : continue\r\n\t  mapg+ ; \u5730\u5f62\u6709\u308a\u306e\u30de\u30b9\u6570\r\n\t loop\r\n\r\n\r\n\/*\r\n\t bn=0 ; \u5730\u5f62\u7121\u3057\u306e\u30de\u30b9\u6570\r\n\t repeat 25,1\r\n\t  if map(cnt)=0 : bn+\r\n\t loop\r\n\r\n\t mapg=25-bn ; \u5730\u5f62\u6709\u308a\u306e\u30de\u30b9\u6570\r\n*\/\r\n\t repeat 25,1 ; \u59cb\u3081\u308b\u30de\u30c3\u30d7\u306e\u4f4d\u7f6e\r\n\t  if map(cnt)&gt;0 : mapn=cnt : mf(mfn)=mapn : mfn+ : break\r\n\t loop\r\n\r\n\t f=0\r\n\t repeat 25 ; \u96a3\u63a5\u30de\u30c3\u30d7\u9806\u306b\u9806\u6b21\u78ba\u8a8d\u51e6\u7406-------------------------------\r\n\r\n\t  repeat 6,1\r\n\t   m=hmv(mapn,cnt)\r\n\t    if m=0 : continue\r\n\t    if map(m)=0 : continue\r\n\t   map_check ; \u30de\u30c3\u30d7\u30c1\u30a7\u30c3\u30af\u3068\u66f8\u304d\u8fbc\u307f\u51e6\u7406\r\n\t  loop\r\n\/*\r\n\t  repeat 6,1 : mapnc=cnt\r\n\t   m=hmv(mapn,mapnc)\r\n\t   map_check ; \u30de\u30c3\u30d7\u30c1\u30a7\u30c3\u30af\u3068\u66f8\u304d\u8fbc\u307f\u51e6\u7406\r\n\t  loop\r\n*\/\r\n\t  mapn=mf(mfn) ; \u6b21\u306b\u30c1\u30a7\u30c3\u30af\u3059\u308b\u5730\u5f62\r\n\t   if mapn=0 : break ; \u304c\u7121\u3044\u306a\u3089\u7d42\u308f\u308a\r\n\t    mfn+\r\n\r\n\t ; if mapg=mfn : f=2 : break ; \u30c1\u30a7\u30c3\u30af\u6570\u3068\u30de\u30b9\u6700\u5927\u6570\u304c\u540c\u3058\u306a\u3089\u5168\u90e8\u7e4b\u304c\u3063\u3066\u308b\u3068\u307f\u306a\u3057\u3066\u5b8c\u6210\r\n\t loop\r\n\r\n\t if mapg=mfn : break\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc map_bd1 ; \u30de\u30c3\u30d7\u751f\u6210\r\n\r\n\trepeat 26 : mpl(cnt)=0 : loop ; \u652f\u914d\u3057\u3066\u3044\u308b\u30de\u30c3\u30d7\r\n\r\n\tmap_build map_buildg\r\n\/*\r\nmap(1) =0,0,3,0,0,0,3,0,0,3\r\nmap(11)=0,0,3,0,0,3,0,0,3,0\r\nmap(21)=0,3,0,0,0\r\n*\/\r\n\trepeat 26 : mf(cnt)=0 : loop ; \u30ea\u30bb\u30c3\u30c8\r\n\r\n\tn=0\r\n\trepeat 25,1\t; \u5b58\u5728\u3059\u308bHEX\r\n\t if map(cnt)=0 : continue\r\n\t mf(n)=cnt : n+\r\n\tloop\r\n\r\n\trepeat 26 : hf(cnt)=0 : loop ; \u751f\u5b58\u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\r\n\r\n\t;plb=map_hrn ; \u30d2\u30fc\u30ed\u30fc\u6570\r\n\tif mapg&lt;plb : plb=mapg ; \u6700\u5927\u30d2\u30fc\u30ed\u30fc\u6570\r\n\r\n\trepeat plb,1 : pn=cnt ; \u5404\u52e2\u529b\u9996\u90fd\u3092\u8a2d\u5b9a\r\n\t if pn=1 : hf(pn)=1 : else : hf(pn)=2 ; \u751f\u5b58\u30d5\u30e9\u30b0\r\n\r\n\r\n;if cnt=1 : m=1  : mpl(m)=pn : mpc(pn)=m\r\n;if cnt=2 : m=25 : mpl(m)=pn : mpc(pn)=m : ;mpl(7)=pn\r\n;if cnt=3 : m=16 : mpl(m)=pn : mpc(pn)=m : mpl(19)=pn\r\n;if cnt=4 : m=3  : mpl(m)=pn : mpc(pn)=m\r\n;if cnt=5 : m=22 : mpl(m)=pn : mpc(pn)=m\r\n;continue\r\n\r\n\t if n=0 : r=0 : else : r=rnd(n)\r\n\t  m=mf(r)\t\t\t\t\t; \u30de\u30c3\u30d7No.\r\n;if pn=1 : m=1\r\n;if pn=2 : m=25\r\n\t   mpl(m)=pn : mpc(pn)=m\t; \u9996\u90fd\u8a2d\u5b9a\r\n\t   md(m*mdb+7)=1\t\t\t; \u5efa\u7269\u3092\u57ce\u306b\r\n\t   n-\r\n\r\nif pn=1 and map_s_setn&gt;0 : map(m)=map_s_setn\r\n\r\n\t mf(r)=0\r\n\t repeat 25\r\n\t  if r+cnt+1&gt;=26 : break\r\n\t  if mf(r+cnt+1)=0 : break\r\n\t  mf(r+cnt)=mf(r+cnt+1) ; \u8a70\u3081\u308b\r\n\t loop\r\n\tloop\r\n\/*\r\nredraw 0\r\nrepeat 25,1\r\n pos 300+cnt\/10*20,40+cnt\\10*20 : mes hf(cnt)\r\nloop\r\nredraw 1\r\npkey\r\n*\/\r\n\trepeat 25,1\r\n\t if map(cnt)=0 : continue\r\n;if mpl(cnt)=1 {\r\n\t md(cnt*mdb+1)=5000\t; \u4eba\u53e3\r\n\t md(cnt*mdb+2)=msml\t; \u9b54\u8853\r\n;if mpl(cnt)=0 : md(cnt*mdb+2)=100\t; \u9b54\u8853\r\n\t md(cnt*mdb+3)=msnl\t; \u30de\u30ca\r\n;if mpl(cnt)=0 : md(cnt*mdb+3)=100\t; \u30de\u30ca\r\n\t md(cnt*mdb+4)=50000\t; \u6cbb\u5b89%\r\n;}\r\n\/*\r\nelse {\r\n\t md(cnt*mdb+1)=5000*2\t; \u4eba\u53e3\r\n\t md(cnt*mdb+2)=msml*2\t; \u9b54\u8853\r\n\t md(cnt*mdb+3)=3000*2\t; \u30de\u30ca\r\n\t md(cnt*mdb+4)=50000+20000\t; \u6cbb\u5b89%\r\n}\r\n*\/\r\n; \u30de\u30c3\u30d7\u30c7\u30fc\u30bf(0=\u30011=\u4eba\u53e3\u30012=\u9b54\u8853\u30013=\u30de\u30ca\u30014=\u6cbb\u5b89\u30015=\u653b\u6483\u30016=\u9632\u5fa1\u30017=\u5efa\u9020\u7269\u30018=\u30019=)\r\n\tloop\r\n\r\n;repeat 5 : pmp(cnt+1)=100000 : loop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc map_bd2 ; \u30de\u30c3\u30d7\u30bb\u30c3\u30c8\r\n\r\n\r\n\trepeat 25,1\r\n\t pubn(cnt)=pubk+pubc\t; \u521d\u671f\u30e6\u30cb\u30c3\u30c8\u4e0a\u9650\u6570\r\n\t pubsn(cnt)=0\t\t\t; \u521d\u671f\u4eba\u6750\u5e9c\u306e\u6570\r\n\r\n\t pibn(cnt)=pibk+pibc\t; \u521d\u671f\u30a2\u30a4\u30c6\u30e0\u4e0a\u9650\u6570\r\n\t pibsn(cnt)=0\t\t\t; \u521d\u671f\u935b\u51b6\u5c4b\u306e\u6570\r\n\tloop\r\n\r\n\r\n; UNIT \u521d\u671f\u914d\u7f6e-------------------------------------------\r\n\r\n\trepeat plb,1 : pn=cnt ; \u30d7\u30ec\u30a4\u30e4\u30fc\r\n\t m=mpc(pn)\t; HEX\r\n\r\n\t zn=map(m);n=rnd(6)+1 ; \u5c5e\u6027\r\n;if pn=1 : map(m)=1\r\n;n=4\r\n;if pn=1 : n=24\r\n;if pn=2 : n=12\r\n;if pn=3 : n=12\r\n;if pn=4 : n=3\r\n;if pn=5 : n=3\r\n\t repeat msuh : cnt2=cnt ; \u82f1\u96c4\u306e\u521d\u671f\u4eba\u6570\r\n;repeat pubn(pn) : cnt2=cnt ; \u82f1\u96c4\u306e\u521d\u671f\u4eba\u6570\r\n\r\n\t  un_fd m,1 ; \u4eba\u6750\u767a\u898b\r\n\t  ;cn=rnd(cha_syu(zn))+cha_zoks(zn)\r\n\r\n\t  ;unt 1,cn ; \u30e6\u30cb\u30c3\u30c8\u767b\u9332\r\n\/*\r\n;if pn=1 and cnt2=1 : cn=16\r\n;if cnt2=1 : cn=51\r\n\t  repeat pub,plb*pub+1\r\n\t   un=cnt : ug=un*udb ; \u30e6\u30cb\u30c3\u30c8No.\r\n\t   if ud(ug)=0 : break\r\n\t  loop\r\n\r\n\t  ud(ug)=cn\t; cn\u30ad\u30e3\u30e9\u7a2e\u985e\r\n\t  repeat 9,1\r\n\t   ud(ug+cnt)=cd(cnt,cn) ; \u30c7\u30fc\u30bf\r\n\t  loop\r\n\t  repeat 5\r\n\t   ud(ug+21+cnt)=ud(ug+1+cnt) ; \u30c7\u30fc\u30bf\r\n\t  loop\r\n\t  ud(ug+8)=cd(8,cn) ; \u7279\u6b8a\u80fd\u529b\r\n\t  ud(ug+10)=pn ; \u6240\u5c5e\r\n\r\n\t  repeat 2 : ud(ug+11+cnt)=ud(ug+21) : loop ; \u653b\u9632\u5024\r\n\r\n\t  repeat 3,16 ; \u88c5\u5099\r\n\t   ud(ug+cnt)=cd(cnt,cn)\r\n\t  loop\r\n\t  ud(ug+19)=cd(3,cn)\/20-ud(ug+18)+1 ; \u30a2\u30a4\u30c6\u30e0\u88c5\u5099\u6570\r\n\t  ud(ug+26)=ud(ug+25) ; HP\r\n;if pn=1 and cnt2=1 : ud(ug+26)=ud(ug+26)\/10\r\n*\/\r\n\t  hper_set pn,un ; \u30d2\u30fc\u30ed\u30fc\u306e\u9806\u5217\u30bb\u30c3\u30c8\r\n;gosub *jyun_put\r\n\t  ;if cnt2&gt;9 : continue\r\n\t  ;mu(m*10+cnt2)=un\t\t; \u9818\u4e3b\u3001\u90e8\u968a\u914d\u7f6e\r\n;if pn!1 and cnt2&gt;1 : mu(m*10+cnt2)=0\r\n\t  ;ud(ug+13)=m*10+cnt2\t; \u914d\u5c5e\r\n\r\n\t loop\r\n\tloop\r\n\r\n\r\n\r\n\r\n\r\n;un_data_dpt\r\n\/*\r\nrepeat plb : cnt2=cnt\r\nhug=cnt2*hub\r\nredraw 0\r\n color 1,1,1 : boxf : color 255,255,255\r\n pos 10,300 : mes cnt2\r\n repeat 40\r\n  pos (cnt\\15)*40+10,(cnt\/15)*20+10  : mes hr1(hug+cnt)\r\n  pos (cnt\\15)*40+10,(cnt\/15)*20+100 : mes hr2(hug+cnt)\r\n  pos (cnt\\15)*40+10,(cnt\/15)*20+200 : mes hr5(hug+cnt)\r\n loop\r\nredraw 1\r\npkey\r\nloop\r\n*\/\r\n\r\n\r\n; \u4e2d\u7acbUNIT \u521d\u671f\u914d\u7f6e-------------------------------------------\r\n\r\n\tpn=0\r\n\trepeat 25,1 : m=cnt ; \u4e2d\u7acb\u56fd\r\n\r\n\t f=0\r\n\t repeat plb,1\r\n\t  if m=mpc(cnt) : f=1 : break\t; HEX\r\n\t loop\r\n\t if f=1 or mpl(m)&gt;0 : continue ; \u30d2\u30fc\u30ed\u30fc\u306e\u571f\u5730\r\n\r\n\t if map(m)=0 : continue ; \u7a7a\u767d\u5730\r\n\r\n\t zn=map(m) ; \u5c5e\u6027\r\n\r\n\t repeat msun : cnt2=cnt\r\n\t  un_fd m,1 ; \u4eba\u6750\u767a\u898b\r\n\r\n\t  ;cn=rnd(cha_syu(zn))+cha_zoks(zn)\r\n\r\n\t  ;unt 2,cn : if un=0 : break ; \u30e6\u30cb\u30c3\u30c8\u767b\u9332\r\n\r\n\/*\r\n\t  repeat ub-1,1\r\n\t   un=cnt : ug=un*udb ; \u30e6\u30cb\u30c3\u30c8No.\r\n\t   if ud(ug)=0 : break\r\n\t  loop\r\n\r\n\t  ud(ug)=cn\t; cn\u30ad\u30e3\u30e9\u7a2e\u985e\r\n\t  repeat 9,1\r\n\t   ud(ug+cnt)=cd(cnt,cn) ; \u30c7\u30fc\u30bf\r\n\t  loop\r\n\t  repeat 5\r\n\t   ud(ug+21+cnt)=ud(ug+1+cnt) ; \u30c7\u30fc\u30bf\r\n\t  loop\r\n\t  ud(ug+8)=cd(8,cn) ; \u7279\u6b8a\u80fd\u529b\r\n\t  ud(ug+10)=pn ; \u6240\u5c5e\r\n\r\n\t  repeat 2 : ud(ug+11+cnt)=ud(ug+21) : loop ; \u653b\u9632\u5024\r\n\r\n\t  repeat 3,16 ; \u88c5\u5099\r\n\t   ud(ug+cnt)=cd(cnt,cn)\r\n\t  loop\r\n\t  ud(ug+19)=cd(3,cn)\/20-ud(ug+18)+1 ; \u30a2\u30a4\u30c6\u30e0\u88c5\u5099\u6570\r\n\t  ud(ug+26)=ud(ug+25) ; HP\r\n*\/\r\n\r\n\t  nper_set m,un ; \u4e2d\u7acb\u306e\u9806\u5217\u30bb\u30c3\u30c8\r\n;gosub *jyun_put2\r\n;un_dpt 7\r\n\t  ;mu(m*10+cnt2)=un\t\t; \u9818\u4e3b\u3001\u90e8\u968a\u914d\u7f6e\r\n\r\n\t  ;ud(ug+13)=m*10+cnt2\t; \u914d\u5c5e\r\n\t loop\r\n\tloop\r\n\r\n\r\n; ITEM\u521d\u671f\u914d\u7f6e ----------------------------------------\r\n\r\n\t;n=1\r\n\trepeat plb,1 : pn=cnt ; \u30d7\u30ec\u30a4\u30e4\u30fc\r\n\t m=mpc(pn) ; \u30de\u30c3\u30d7No.\r\n\t repeat msih\r\ncnt2=cnt\r\n\/*\r\n\t  repeat 1000\r\n\t   r=rnd(itb) : if itd(16,r)&gt;0 : itn=r : break ; \u30a2\u30a4\u30c6\u30e0\u7a2e\u985e\r\n\t  loop\r\n*\/\r\n\/*\r\nif pn=1 and cnt2=0 : itn=321 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=1 : itn=322 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=2 : itn=323 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=3 : itn=324 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=4 : itn=325 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=5 : itn=326 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=6 : itn=327 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=7 : itn=328 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=8 : itn=329 : itt 1,itn : hiper_set pn,in : continue\r\n\/*\r\nif pn=1 and cnt2=9 : itn=310 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=10 : itn=311 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=11 : itn=312 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=12 : itn=313 : itt 1,itn : hiper_set pn,in : continue\r\nif pn=1 and cnt2=13 : itn=314 : itt 1,itn : hiper_set pn,in : continue\r\n*\/\r\n;if pn=1 : gosub *ijyun_put1\r\n\t  it_fd m,1 ; \u30a2\u30a4\u30c6\u30e0\u767a\u898b\r\n\t  ;itt 1,itn : if in=0 : break\r\n\r\n\t  hiper_set pn,in ; \u30a2\u30a4\u30c6\u30e0\u9806\u5217\u306e\u30bb\u30c3\u30c8\r\n;if pn=1 : gosub *ijyun_put1\r\n\r\n;if \/*pn=1 and*\/ cnt2&lt;9  : itn=251+cnt\r\n;if \/*pn=1 and*\/ cnt2&lt;10 : itn=261+cnt\r\n;if \/*pn=1 and*\/ cnt2&lt;9  : itn=281+cnt\r\n;if \/*pn=1 and*\/ cnt2&lt;9  : itn=291+cnt\r\n;if \/*pn=1 and*\/ cnt2&lt;14 : itn=301+cnt\r\n;if \/*pn=1 and*\/ cnt2&lt;9  : itn=321+cnt\r\n;if cnt2&lt;3 : itn=83\r\n;if pn=1 and cnt2&lt;7 : itn=253\r\n\/*\r\n\t  in=n : n+\t; \u30a2\u30a4\u30c6\u30e0No.\r\n\t  ig=in*idb\t; \u30c7\u30fc\u30bf\u4f4d\u7f6e\r\n\t   repeat idb\r\n\t    id(ig+cnt)=itd(cnt,itn) ; \u30c7\u30fc\u30bf\r\n\t   loop\r\n\t   id(ig)=itn\r\n\t   id(ig+10)=pn ; \u6240\u5c5ePL\r\n*\/\r\n\t loop\r\n\tloop\r\n\r\n\r\n; \u4e2d\u7acb\u30a2\u30a4\u30c6\u30e0\r\n\r\n\trepeat 25,1 : m=cnt ; \u4e2d\u7acb\u56fd\r\n\r\n\t f=0\r\n\t repeat plb\r\n\t  if m=mpc(cnt) : f=1 : break\t; HEX\r\n\t loop\r\n\t if f=1 or mpl(m)&gt;0 : continue ; \u30d2\u30fc\u30ed\u30fc\u306e\u571f\u5730\r\n\r\n\t if map(m)=0 : continue ; \u7a7a\u767d\u5730\r\n\r\n\t repeat msin : cnt2=cnt\r\n\t  it_fd m,1\r\n\/*\r\n\t  repeat\r\n\t   r=rnd(itb) : if itd(16,r)&gt;0 : itn=r : break ; \u30a2\u30a4\u30c6\u30e0\u7a2e\u985e\r\n\t  loop\r\n\t  itt 2,itn : if in=0 : break\r\n*\/\r\n\t  niper_set m,in ; \u30a2\u30a4\u30c6\u30e0\u9806\u5217\u306e\u30bb\u30c3\u30c8\r\n;gosub *ijyun_put2\r\n\t loop\r\n\r\n\tloop\r\n\r\n;un_data_dpt\r\n; \u82f1\u96c4\u306e\u4eba\u6750\u914d\u7f6e ----------------------------\r\n\trepeat plb,1 : pn=cnt ; \u30d7\u30ec\u30a4\u30e4\u30fc\r\n\t m=mpc(pn)\t; \u9996\u90fd\r\n\r\n\t pmu_rst pn\t; \u30e6\u30cb\u30c3\u30c8\u914d\u7f6e\u89e3\u9664\r\n;if pn=1 : un_data_dpt\r\n\t peq_rst pn ; \u88c5\u5099\u89e3\u9664\r\n;if pn=1 : un_data_dpt\r\n\t hrs_copy ; \u82f1\u96c4\u306e\u30e6\u30cb\u30c3\u30c8\u64cd\u4f5c\u9806\u5217\u30b3\u30d4\u30fc\r\n;if pn=1 : un_data_dpt\r\n\t his_copy ; \u82f1\u96c4\u306e\u30a2\u30a4\u30c6\u30e0\u64cd\u4f5c\u9806\u5217\u30b3\u30d4\u30fc\r\n;if pn=1 : un_data_dpt\r\n\t un=hrs5(0) : if un&gt;0 : mu(m*mdb)=un : ud(un*udb+13)=m*mdb : hrs_del un ; \u9818\u4e3b\u914d\u7f6e\r\n;if pn=1 : un_data_dpt\r\n\t repeat hub ; \u5217\u306e\u9806\u5217\u3092\u30ea\u30bb\u30c3\u30c8\r\n\t  hrt1(cnt)=0 : hrt2(cnt)=0 : hrt3(cnt)=0\r\n\t loop\r\n\r\n\t hrt1c=0  : hrt2c=0  : hrt3c=0\t; \u73fe\u5728\u306e\u5217\u306e\u9806\u756a\u3092\u30ea\u30bb\u30c3\u30c8\r\n\t hrt1qc=0 : hrt2qc=0 : hrt3qc=0 ; \u73fe\u5728\u306e\u5217\u306e\u9806\u756a\u3092\u30ea\u30bb\u30c3\u30c8\r\n\r\n\t repeat 9,1 ; \u88c5\u5099\r\n\t  if cnt\\2=2 { ; 2\u56de\u76ee\r\n\t   hrs_eq 2 : if un=0 : hrs_eq 1\r\n\t   break\r\n\t  }\r\n\t  hrs_eq 1 : if un=0 : hrs_eq 2 ; 1\u30683\u56de\u76ee\r\n\t loop\r\n\r\n\t hrt1c=0  : hrt2c=0  : hrt3c=0\t; \u73fe\u5728\u306e\u5217\u306e\u9806\u756a\u3092\u30ea\u30bb\u30c3\u30c8\r\n\t hrt1qc=0 : hrt2qc=0 : hrt3qc=0 ; \u73fe\u5728\u306e\u5217\u306e\u9806\u756a\u3092\u30ea\u30bb\u30c3\u30c8\r\n\r\n\t repeat 3 : knc=m*mdb+cnt*3 ; \u914d\u5099\r\n\t  repeat 3,1\r\n\t   if cnt=1 { ; 1\u5217\u76ee\r\n\t\tun=hrt1(hrt1c) : if un&gt;0 : mu(knc+1)=un : ud(un*udb+13)=knc+1 : hrt1c+ : continue\r\n\t\tun=hrt2(hrt2c) : if un&gt;0 : mu(knc+1)=un : ud(un*udb+13)=knc+1 : hrt2c+ : continue\r\n\t\tun=hrt3(hrt3c) : if un&gt;0 : mu(knc+1)=un : ud(un*udb+13)=knc+1 : hrt3c+ : continue\r\n\t   }\r\n\t   if cnt=2 { ; 3\u5217\u76ee\r\n\t\tun=hrt3(hrt3c) : if un&gt;0 : mu(knc+3)=un : ud(un*udb+13)=knc+3 : hrt3c+ : continue\r\n\t\tun=hrt2(hrt2c) : if un&gt;0 : mu(knc+3)=un : ud(un*udb+13)=knc+3 : hrt2c+ : continue\r\n\t\tun=hrt1(hrt1c) : if un&gt;0 : mu(knc+3)=un : ud(un*udb+13)=knc+3 : hrt1c+ : continue\r\n\t   }\r\n\t   if cnt=3 { ; 2\u5217\u76ee\r\n\t\tun=hrt2(hrt2c) : if un&gt;0 : mu(knc+2)=un : ud(un*udb+13)=knc+2 : hrt2c+ : continue\r\n\t\tun=hrt1(hrt1c) : if un&gt;0 : mu(knc+2)=un : ud(un*udb+13)=knc+2 : hrt1c+ : continue\r\n\t\tun=hrt3(hrt3c) : if un&gt;0 : mu(knc+2)=un : ud(un*udb+13)=knc+2 : hrt3c+ : continue\r\n\t   }\r\n\t  loop\r\n\t  if hrt1(hrt1c)=0 and hrt2(hrt2c)=0 and hrt3(hrt3c)=0 : break ; \u5168\u54e1\u4f7f\u3063\u305f\r\n\t loop\r\n\r\n\t wpck m ; \u6226\u529b\u5024\u8a08\u6e2c\r\n\r\n\t repeat 25,1 ; MAP\u6700\u5927\u8105\u5a01\u5024\r\n\t  if mpl(cnt)!pn : continue\r\n\t  wpb(cnt)=wp(m)\r\n\t loop\r\n\r\n\tloop\r\n\r\n\r\n\r\n;if pn=1 : un_data_dpt\r\n\r\n; \u4e2d\u7acb\u306e\u4eba\u6750\u914d\u7f6e ----------------------------\r\n\r\n\tpn=0 ; NPC\u306b\u8a2d\u5b9a\r\n\trepeat 25,1 : m=cnt ; \u4e2d\u7acb\u56fd\r\n\r\n\t f=0\r\n\t repeat plb,1\r\n\t  if m=mpc(cnt) : f=1 : break ; HEX\r\n\t loop\r\n\t if f=1 : continue ; \u30d2\u30fc\u30ed\u30fc\u306e\u571f\u5730\r\n\r\n\t if map(m)=0 : continue\t; \u7a7a\u767d\u5730\r\n\t if mpl(cnt)\r\n\r\n\t neutral_deploy\t; \u4e2d\u7acb\u30e6\u30cb\u30c3\u30c8\u306e\u88c5\u5099\u3068\u914d\u5099\r\n\r\n\t wpck m\t\t\t; \u6226\u529b\u5024\u8a08\u6e2c\r\n\tloop\r\n\r\n\/*\r\nrepeat 25,1\r\n if mpl(cnt)=0 and map(cnt)&gt;0 : mpl(cnt)=1\r\nloop\r\n*\/\r\n;mpl(13)=1\r\n\treturn\r\n\r\n\r\n\r\n\r\n#deffunc map_set\r\n\r\n\tmap_setf=0 : kc=5\r\n\trepeat\r\n\t ky=0 : kb=0 : ckn=0 : kkn=0\r\n\t repeat 1 ; \u5165\u529b\r\n\t  if kc&gt;0 : kc- : break\r\n\t  ckey\r\n\t  if map_setf=2 : kkey 1 : else : kkey 0\r\n\t  stick kb\r\n\t loop\r\n\r\n\t switch map_setf\r\n\t  case 0 ; hero change\r\n\t   if kb!256 : swbreak\r\n\t   if ckn=10 : map_setf=1 : swbreak ; color\u3078\u9032\u3080\r\n\t   if ckn=11 : gsf=0 : break ; \u30de\u30c3\u30d7\u30d3\u30eb\u30c9\u3078\u623b\u308b\r\n\t   if kkn=0 : swbreak\r\n\r\n\t   if mpl(kkn)=0 { ; \u7a7a\u767d\u5730\r\n\t    repeat 25,1\r\n\t\t if hf(cnt)=0 : hf(cnt)=2 : pn=cnt : break\r\n\t\tloop\r\n\t\tmpl(kkn)=pn : mpc(pn)=kkn\r\n\t\tswbreak\r\n\t   }\r\n\r\n\t   if mpl(kkn)&gt;0 { ; \u30d2\u30fc\u30ed\u30fc\u5730\r\n\t    pn=mpl(kkn)\r\n\t     if hf(pn)=2 : hf(pn)=1 : swbreak ; CPU\u306a\u3089\u30d7\u30ec\u30a4\u30e4\u30fc\u306b\r\n\t     if hf(pn)=1 { ; \u30d7\u30ec\u30a4\u30e4\u30fc\u306a\u3089\u7a7a\u767d\u5730\u306b\r\n\t\t  hf(pn)=0 : mpc(pn)=0 : mpl(kkn)=0\r\n\t\t  swbreak\r\n\t\t }\r\n\t   }\r\n\t  swbreak\r\n\t  case 1 ; color change\r\n\t   if kb!256 : swbreak\r\n\t   kc=5\r\n\t   if ckn=10 : mainf=5 : break ; \u30b2\u30fc\u30e0\u30b9\u30bf\u30fc\u30c8\r\n\t   if ckn=11 : map_setf=0 : swbreak ; \u623b\u308b\r\n\t   if mpl(kkn)&gt;0 : pn=mpl(kkn) : map_setf=2 : swbreak\r\n\t  swbreak\r\n\t  case 2 ; color select\r\n\t   if kb!256 : swbreak\r\n\t   kn=5\r\n\t   if ckn=9 { ; \u30ea\u30bb\u30c3\u30c8\r\n\t\trepeat 25,1\r\n\t\t pcln(cnt)=cnt\r\n\t\tloop\r\n\t\tmap_setf=1 : swbreak\r\n\t   }\r\n\t   if ckn&gt;0 : map_setf=1 : swbreak ; \u623b\u308b\r\n\t   if kkn=0 : swbreak\r\n\t   if kkn=25 : map_setf=3 : swbreak ; \u30e6\u30fc\u30b6\u30fc\u30ab\u30e9\u30fc\r\n\r\n\t   n=0 ; \u30ab\u30e9\u30fc\u30c1\u30a7\u30f3\u30b8\r\n\t   repeat 25,1\r\n\t    if kkn=pcln(cnt) : n=cnt : break\r\n\t   loop\r\n\t   if n=0 : pcln(pn)=kkn : map_setf=1 : swbreak\r\n\t   pcln(n)=pcln(pn) : pcln(pn)=kkn : map_setf=1 ; \u5165\u308c\u66ff\u3048\r\n\t  swbreak\r\n\t swend\r\n\r\n\r\n\r\n;   BACK END\r\n\r\n\r\n\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf : color 120,120,120\r\n\t switch map_setf\r\n\t  case 0 ; player\r\n\t   map_put2\r\n\t   gmulcolor 255,255,255\r\n\t    s=\"player\"\t: bfp s,cxyd(0,7)-4 ,cxyd(1,7)+13,5\r\n\t    s=\"change\"\t: bfp s,cxyd(0,8)-4 ,cxyd(1,8)+13,5\r\n\t    s=\"next\"\t: bfp s,cxyd(0,10)+7,cxyd(1,10)+1,5\r\n\t    s=\"back\"\t: bfp s,cxyd(0,11)+7,cxyd(1,11)+1,5\r\n\t  swbreak\r\n\t  case 1 ; color\r\n\t   map_put2\r\n\t   gmulcolor 255,255,255\r\n\t    s=\"color\"\t: bfp s,cxyd(0,7)+2 ,cxyd(1,7)+13,5\r\n\t    s=\"change\"\t: bfp s,cxyd(0,8)-4 ,cxyd(1,8)+13,5\r\n\t    s=\"start\"\t: bfp s,cxyd(0,10)+2,cxyd(1,10)+1,5\r\n\t    s=\"back\"\t: bfp s,cxyd(0,11)+7,cxyd(1,11)+1,5\r\n\t  swbreak\r\n\t  case 2 ; color change\r\n\t   map_put3\r\n\t   gmulcolor 255,255,255\r\n\t    s=\"color\"\t: bfp s,cxyd(0,7)+2 ,cxyd(1,7)+13,5\r\n\t    s=\"reset\"\t: bfp s,cxyd(0,9)+2 ,cxyd(1,9)+1 ,5\r\n\t    s=\"select\"\t: bfp s,cxyd(0,8)-4 ,cxyd(1,8)+13,5\r\n\t    s=\"back\"\t: bfp s,cxyd(0,11)+7,cxyd(1,11)+1,5\r\n\t  swbreak\r\n\t swend\r\ncolor 255,255,255\r\npos 10,50 : mes \"nmf \"+map_setf\r\npos 10,70 : mes \"kb  \"+kb\r\npos 10,90 : mes \"ky  \"+ky\r\npos 10,110: mes \"kc  \"+kc\r\npos 10,130: mes \"ckn \"+ckn\r\npos 10,150: mes \"kkn \"+kkn\r\npos 10,170: mes \"pn  \"+pn\r\n\/*\r\nrepeat 25,1\r\n pos 100+(cnt\/10*100),10+(cnt\\10*20) : mes \"pcln \"+cnt+\" \"+pcln(cnt)\r\nloop\r\n*\/\r\n\t redraw 1\r\n\t await 1000\/20\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc new_game\r\n\r\n\tngx1=150 : ngx2=490\r\n\tdim ngy1,4\r\n\tdim ngy2,4\r\n\r\n\tngy1(1)=70  : ngy2(1)=ngy1(1)+50\r\n\tngy1(2)=150 : ngy2(2)=ngy1(2)+50\r\n\tngy1(3)=230 : ngy2(3)=ngy1(3)+50\r\n\r\n\tkc=5\r\n\trepeat\r\n\t ky=0 : kb=0 : ckn=0\r\n\t repeat 1\r\n\t  if kc&gt;0 : kc- : break\r\n\t  if new_gamef=0 : ky=ng_key()\r\n\t  if new_gamef=1 : ckey\r\n\t  stick kb\r\n\t loop\r\n\r\n\t switch new_gamef\r\n\t  case 0\r\n\t   if kb!256 : swbreak\r\n; RANDOM MAP\r\n\t   if ky=1 : map_bd1 : kc=5 : new_gamef=1\r\n; SCENARIO MAP\r\n\r\n; BACK\r\n\t   if ky=3 : mainf=3 : break ; \u30bf\u30a4\u30c8\u30eb\u3078\u623b\u308b\r\n\t  swbreak\r\n;  \u3053\u306e\u30de\u30c3\u30d7\u3067\u826f\u3044\u3067\u3059\u304b\uff1f\r\n;   Is this map good?\r\n;   YES NO BACK\r\n\t  case 1\r\n\t   if kb!256 : swbreak\r\n\t   kc=5\r\n\t   if ckn=9 {\r\n\t\tif map_hrnf=1 : plb=2+rnd(6)\r\n\t\tif map_hrnf=2 : plb=8+rnd(8)\r\n\t\tif map_hrnf=3 : plb=16+rnd(10)\r\n\t\tif map_buildgf=1 : map_buildg=25-rnd(7)-2\r\n\t\tif map_buildgf=2 : map_buildg=25-rnd(8)-9\r\n\t\tif map_buildgf=3 : map_buildg=25-rnd(9)-17\r\n\t\t;if map_buildgf=0 : map_buildg=7\r\n\t\tmap_bd1\r\n\t   }\r\n\t   if ckn=10 : gsf=1 : break;new_gamef=1\r\n\t   if ckn=11 : new_gamef=0\r\n\t   if ckn=2  : map_hrnf=1 ; \u5c11\r\n\t   if ckn=3  : map_hrnf=2 ; \u4e2d\r\n\t   if ckn=4  : map_hrnf=3 ; \u591a\r\n\t   if ckn=13 : map_buildgf=1 ; \u5c0f\r\n\t   if ckn=14 : map_buildgf=2 ; \u4e2d\r\n\t   if ckn=15 : map_buildgf=3 ; \u5927\r\n\t   ;if ckn=16 : map_buildgf=0 ; \u30ea\u30bb\u30c3\u30c8\r\n\t  swbreak\r\n\t swend\r\n\r\n\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf : color 120,120,120\r\n\t switch new_gamef\r\n\t  case 0\r\n\t   repeat 3,1\r\n\t    boxf ngx1,ngy1(cnt),ngx2,ngy2(cnt)\r\n\t   loop\r\n\t   color 255,255,255\r\n\t   pos ngx1+10,ngy1(1)+10 : mes \"RANDOM MAP\"\r\n\t   pos ngx1+10,ngy1(2)+10 : mes \"SCENARIO MAP\"\r\n\t   pos ngx1+10,ngy1(3)+10 : mes \"BACK\"\r\n\t  swbreak\r\n\t  case 1\r\n\t   map_put2 : gmulcolor 255,255,255\r\n; Is this map good?\r\n\t   s=\"is\"\t: bfp s,cxyd(0,1)+9 ,cxyd(1,1)+13,5\r\n\t   s=\"this\"\t: bfp s,cxyd(0,6)+7 ,cxyd(1,6)+13,5\r\n\t   s=\"map\"\t: bfp s,cxyd(0,7)+13,cxyd(1,7)+13,5\r\n\t   s=\"good?\": bfp s,cxyd(0,8)+2 ,cxyd(1,8)+13,5\r\n; YES NO BACK\r\n\t   s=\"no\"\t: bfp s,cxyd(0,9 )+18,cxyd(1,9 )+1,5\r\n\t   s=\"yes\"\t: bfp s,cxyd(0,10)+13,cxyd(1,10)+1,5\r\n\t   s=\"back\"\t: bfp s,cxyd(0,11)+7 ,cxyd(1,11)+1,5\r\n; \u30d2\u30fc\u30ed\u30fc\u306e\u591a\u3055\r\n\t   repeat 3,1\r\n\t    if map_hrnf=cnt : n=255 : else : n=160\r\n\t     gmulcolor n,n,n\r\n\t    if cnt=1 : s=\"s\" : bfp s,cxyd(0,2)+10 ,cxyd(1,2)+20,5\r\n\t    if cnt=2 : s=\"m\" : bfp s,cxyd(0,3)+10 ,cxyd(1,3)+20,5\r\n\t    if cnt=3 : s=\"l\" : bfp s,cxyd(0,4)+10 ,cxyd(1,4)+20,5\r\n\t   loop\r\n; \u30de\u30c3\u30d7\u306e\u5927\u304d\u3055\r\n\t   repeat 3,1\r\n\t    if map_buildgf=cnt : n=255 : else : n=160\r\n\t     gmulcolor n,n,n\r\n\t    if cnt=1 : s=\"s\" : bfp s,cxyd(0,13)+10 ,cxyd(1,13)+20,5\r\n\t    if cnt=2 : s=\"m\" : bfp s,cxyd(0,14)+10 ,cxyd(1,14)+20,5\r\n\t    if cnt=3 : s=\"l\" : bfp s,cxyd(0,15)+10 ,cxyd(1,15)+20,5\r\n\t   loop\r\n\t   repeat 4\r\n\t    if map_buildgf=cnt : break\r\n\t   loop\r\n\t  swbreak\r\n\t swend\r\n\/*\r\ncolor 255,255,255\r\npos 10,50 : mes \"nmf \"+new_gamef\r\npos 10,70 : mes \"kb  \"+kb\r\npos 10,90 : mes \"ky  \"+ky\r\npos 10,110: mes \"kc  \"+kc\r\npos 10,130: mes \"ckn \"+ckn\r\npos 10,150: mes \"mgf \"+map_buildgf\r\npos 10,170: mes \"mbgf \"+map_buildg\r\npos 10,190: mes \"mhrf \"+map_hrnf\r\n*\/\r\n\t redraw 1\r\n\t await 1000\/20\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n*game_start\r\n\r\n\tnew_gamef=0\r\n\trepeat\r\n\t switch gsf\r\n\t  case 0 : new_game : swbreak\r\n\t  case 1 : map_set\t: swbreak\r\n\t swend\r\n\t if mainf!4 : break\r\n\tloop\r\n\r\n\t;map_bd1 ; \u30de\u30c3\u30d7\u751f\u6210\r\n\t;map_bd2 ; \u30de\u30c3\u30d7\u30bb\u30c3\u30c8\r\n\r\n\treturn\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>2019\u5e74 11\u6708 15\u65e5 \u3000 \u3000 \u3000\u305d\u308d\u305d\u308d 1\u30f6\u6708\u306b\u306a\u308b\u306e\u3067\u9014\u4e2d\u7d4c\u904e\u3067\u66f4\u65b0\u3059\u308b\u3002 \u3000\u4eca\u4f5c\u3063\u3066\u308b\u306e\u306f\u30bf\u30a4\u30c8\u30eb\u3068\u30b2\u30fc\u30e0\u30b9\u30bf\u30fc\u30c8\u6642\u306e\u30de\u30c3\u30d7\u9078\u629e\u753b\u9762\u3060\u3002 \u3000 \u3000 \u3000\u307e\u305a\u30bf\u30a4\u30c8\u30eb\u3002 \u3000\u30bf\u30a4\u30c8\u30eb\u306e\u30b0\u30e9\u3092\u4ed8\u3051\u3066\u306a\u3044\u306e\u3067\u3001\u6a5f\u80fd\u3068\u30bf\u30c3 &hellip; <a href=\"https:\/\/sinsei.space\/blog\/8155\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;Hextrategy \u30bf\u30a4\u30c8\u30eb\u3068\u30b2\u30fc\u30e0\u30b9\u30bf\u30fc\u30c8\u753b\u9762\u3092\u4f5c\u3063\u3066\u308b&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[16,13],"tags":[],"class_list":["post-8155","post","type-post","status-publish","format-standard","hentry","category-hextrategy","category-13"],"_links":{"self":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/8155","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/comments?post=8155"}],"version-history":[{"count":13,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/8155\/revisions"}],"predecessor-version":[{"id":8178,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/8155\/revisions\/8178"}],"wp:attachment":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/media?parent=8155"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/categories?post=8155"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/tags?post=8155"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}