{"id":8180,"date":"2019-11-29T10:09:36","date_gmt":"2019-11-29T01:09:36","guid":{"rendered":"https:\/\/sinsei.space\/blog\/?p=8180"},"modified":"2021-05-02T14:18:51","modified_gmt":"2021-05-02T05:18:51","slug":"hextrategy-bgm%e3%82%92%e4%bb%98%e3%81%91%e5%a7%8b%e3%82%81%e3%81%a6%e3%82%8b","status":"publish","type":"post","link":"https:\/\/sinsei.space\/blog\/8180","title":{"rendered":"Hextrategy BGM\u3092\u4ed8\u3051\u59cb\u3081\u3066\u308b"},"content":{"rendered":"<p><font size=4><br \/>\n2019\u5e74 11\u6708 29\u65e5<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u9014\u4e2d\u7d4c\u904e\u5831\u544a\u3001\u4eca\u56de\u306f BGM\u3092\u4ed8\u3051\u59cb\u3081\u305f\u306e\u3067\u52d5\u753b\u3067\u5831\u544a\u3057\u307e\u3059\u3002<\/p>\n<div style=\"width: 640px;\" class=\"wp-video\"><video class=\"wp-video-shortcode\" id=\"video-8180-1\" width=\"640\" height=\"360\" preload=\"metadata\" controls=\"controls\"><source type=\"video\/mp4\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/2019_11_29.mp4?_=1\" \/><a href=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/2019_11_29.mp4\">https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/11\/2019_11_29.mp4<\/a><\/video><\/div>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n<!--more--><\/p>\n<p>\u3000\u30b6\u30c3\u30af\u30ea\u30bd\u30fc\u30b9\u3092\u7f6e\u304d\u307e\u3059\u3002<\/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=4 : break\r\n\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf : color 255,255,255\r\n\t  gmode 2\r\n\t  switch creditf\r\n\t   case 0\r\n\t    gmulcolor 160,160,255\r\n\t     pos 40,30   : celput cre_ftw,0\r\n\t     pos 40,110  : celput cre_ftw,2\r\n\t     pos 40,190  : celput cre_ftw,4\r\n\t     pos 40,270  : celput cre_ftw,6\r\n\t    gmulcolor 255,255,255\r\n\t     pos 70,64   : celput cre_ftw,1\r\n\t     pos 70,144  : celput cre_ftw,3\r\n\t     pos 70,224  : celput cre_ftw,5\r\n\t     pos 70,304  : celput cre_ftw,7\r\n\r\n\t    gmulcolor 128,255,128\r\n\t     pos 320,30  : celput cre_ftw,8\r\n\t     pos 320,120 : celput cre_ftw,10\r\n\t     pos 320,210 : celput cre_ftw,12\r\n\t    gmulcolor 255,255,255\r\n\t     pos 350,64  : celput cre_ftw,9\r\n\t     pos 350,154 : celput cre_ftw,11\r\n\t     pos 350,244 : celput cre_ftw,13\r\n\t     pos 350,278 : celput cre_ftw,14\r\n\t     pos 350,312 : celput cre_ftw,15\r\n\t   swbreak\r\n\t   case 1\r\n\t    gmulcolor 128,255,128\r\n\t     pos 42,32   : celput cre_ftw,17\r\n\t    gmulcolor 255,255,255\r\n\t     repeat 7\r\n\t      pos 76,83+cnt*42 : celput cre_ftw,18+cnt\r\n\t     loop\r\n\t   swbreak\r\n\t   case 2\r\n\t    gmulcolor 228+27,85+27,139+27\r\n\t   \t pos 30,20   : celput cre_ftw,25\r\n\t   \t  pos 140,20  : celput cre_ftw,26\r\n\t   \t   pos 175,20  : celput cre_ftw,27\r\n\t    gmulcolor 155,155,255\r\n\t     pos 50,70-1  : celput cre_ftw,32\r\n\t     pos 50,110-1 : celput cre_ftw,28\r\n\t     pos 50,150-1 : celput cre_ftw,29\r\n\t     pos 50,195   : celput cre_ftw,30\r\n\t    gmulcolor 255,255,255\r\n\t     pos 170,67  : celput cre_ftw,34\r\n\t     pos 170,107 : celput cre_ftw,33\r\n\t     pos 170,147 : celput cre_ftw,35\r\n\r\n\t     pos 170,193  : celput cre_ftw,36\r\n\t     pos 170,233  : celput cre_ftw,39\r\n\t     pos 170,273  : celput cre_ftw,40\r\n\t     pos 10 ,313  : celput cre_ftw,37\r\n\t     pos 410,313  : celput cre_ftw,38\r\n\t   swbreak\r\n\t   case 3\r\n\t    gmulcolor 228+27,85+27,139+27\r\n\t   \t pos 30,20   : celput cre_ftw,25\r\n\t   \t  pos 140,20  : celput cre_ftw,26\r\n\t   \t   pos 175,20  : celput cre_ftw,27\r\n\t    gmulcolor 155,155,255\r\n\t     pos 50,70-1  : celput cre_ftw,31\r\n\r\n\t    gmulcolor 255,96,96\r\n\t     pos 76,107 : celput cre_ft2w,0\r\n\t    gmulcolor 96,96,255\r\n\t     pos 76,147 : celput cre_ft2w,1\r\n\t    gmulcolor 96,255,96\r\n\t     pos 76,187 : celput cre_ft2w,2\r\n\t    gmulcolor 255,255,96\r\n\t     pos 76,227 : celput cre_ft2w,3\r\n\t    gmulcolor 255,255,255\r\n\t     pos 76,267 : celput cre_ft2w,4\r\n\t    gmulcolor 160,160,160\r\n\t     pos 76,307 : celput cre_ft2w,5\r\n\r\n\t    gmulcolor 255,255,255\r\n\t     pos 150,107 : celput cre_ftw,42\r\n\t     pos 150,147 : celput cre_ftw,43\r\n\t     pos 150,187 : celput cre_ftw,44\r\n\t     pos 150,227 : celput cre_ftw,45\r\n\t     pos 150,267 : celput cre_ftw,46\r\n\t     pos 150,307 : celput cre_ftw,47\r\n\t   swbreak\r\n\t  swend\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\tdim optx1,12\t; \u70b9\u5ea7\u6a19\r\n\t x=75 : xk=50\r\n\t  repeat 11 : optx1(cnt)=x : x+=xk : loop\r\n\r\n\tdim optx2,13\t; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\t x=50\r\n\t  repeat 12 : optx2(cnt)=x : x+=xk : loop\r\n\r\n\tdim opty1,3\t\t; y\r\n\t y=50 : yk=80\r\n\t  repeat 3 : opty1(cnt)=y : y+=yk : loop\r\n\r\n\toptyk=50\t\t; \u539a\u3055\r\n\r\n\r\n\trepeat\r\n\t kb=0\r\n\t repeat 1\r\n\t  if kc&gt;0 : kc- : break\r\n\t  x=mousex : y=mousey : stick kb,256\r\n\t loop\r\n\r\n\t repeat 11\r\n\t  if kb!256 : break\r\n\r\n\t  if optx2(cnt)&lt;x and opty1(0)&lt;y and optx2(cnt+1)&gt;x and opty1(0)+optyk&gt;y {\r\n\t   mvo=cnt : vo_set : break\r\n\t  }\r\n\t  if optx2(cnt)&lt;x and opty1(1)&lt;y and optx2(cnt+1)&gt;x and opty1(1)+optyk&gt;y {\r\n\t   muvo=cnt : vo_set :  break\r\n\t  }\r\n\t  if optx2(cnt)&lt;x and opty1(2)&lt;y and optx2(cnt+1)&gt;x and opty1(2)+optyk&gt;y {\r\n\t   sevo=cnt : vo_set :  break\r\n\t  }\r\n\t loop\r\n\r\n\t if kb=256 and exitkx1&lt;x and exitky1&lt;y and exitkx2&gt;x and exitky2&gt;y {\r\n\t  mainf=10 : break ; \u7d42\u4e86\r\n\t }\r\n\r\n\t if kb=256 and opcrkx1&lt;x and opcrky1&lt;y and opcrkx2&gt;x and opcrky2&gt;y : credit\r\n\r\n\t if kb=256 and oprekx1&lt;x and opreky1&lt;y and oprekx2&gt;x and opreky2&gt;y : kc=5 : break ; \u623b\u308b\r\n\r\n; mevo\r\n; muvo\r\n; sevo\r\n; credit\r\n; exit\r\n\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf\r\n\r\n\t  switch optionf\r\n\t   case 0\r\n\t    repeat 3 : cnt2=cnt\r\n\t     color 255,255,255\r\n\t      boxf optx1(0)-2,opty1(cnt2)-2,optx1(10)+2,opty1(cnt2)+optyk+2\r\n\t     color 1,1,1\r\n\t      boxf optx1(0)-1,opty1(cnt2)-1,optx1(10)+1,opty1(cnt2)+optyk+1\r\n\t    loop\r\n\r\n\t    color 32,32,255 ; \u30d0\u30fc\r\n\t     boxf optx1(0),opty1(0),optx1(mvo) ,opty1(0)+optyk\r\n\t     boxf optx1(0),opty1(1),optx1(muvo),opty1(1)+optyk\r\n\t     boxf optx1(0),opty1(2),optx1(sevo),opty1(2)+optyk\r\n\r\n\t    gmulcolor 255,255,255\r\n\t  ;repeat 3 : cnt2=cnt\r\n\/*\r\n\t   n=255\r\n\t   repeat 11\r\n\t    color n,n,n : n-=20\r\n\t     boxf optx2(cnt),opty1(cnt2),optx2(cnt+1),opty1(cnt2)+optyk\r\n\t    color 255,1,1\r\n\t     boxf optx1(cnt),opty1(cnt2)+25,optx1(cnt)+2,opty1(cnt2)+25+2\r\n\t   loop\r\n*\/\r\n\/*\r\n\t  repeat 3 : cnt2=cnt\r\n\t   repeat 11\r\n\t    s=\"+\" : bfp s,optx1(cnt)-8,opty1(cnt2)+17,5\r\n\t   loop\r\n\t  loop\r\n*\/\r\n\r\n\t     s=\"option\"\t: bfp s,286,15,5\r\n\t     s=\"volume\"\t: bfp s,optx1(0)-27,opty1(0)-21,5\r\n\t     s=\"bgm\"\t\t: bfp s,optx1(0)-27,opty1(1)-21,5\r\n\t     s=\"s.e\"\t\t: bfp s,optx1(0)-27,opty1(2)-21,5\r\n\r\n\texitx=288 : exity=280\r\n\t exitkx1=exitx : exitkx2=exitx+64\r\n\t exitky1=exity : exitky2=exity+64\r\n\r\n\t;color 160,255,160 : boxf exitkx1,exitky1,exitkx2,exitky2\r\n\t    pos exitx,exity : celput exitw\r\n\t     s=\"ex\"\t: bfp s,exitx-33,exity+27,5\r\n\t     s=\"it\"\t: bfp s,exitx+66,exity+27,5\r\n\r\n\topcrx=100 : opcry=307\r\n\t opcrkx1=opcrx-10 : opcrkx2=opcrx+81\r\n\t opcrky1=opcry-10 : opcrky2=opcry+28\r\n\r\n\t;color 160,160,255 : boxf opcrkx1,opcrky1,opcrkx2,opcrky2\r\n\t    s=\"credit\"\t: bfp s,opcrx,opcry,5\r\n\r\n\toprex=470 : oprey=307\r\n\t oprekx1=oprex-10 : oprekx2=oprex+81\r\n\t opreky1=oprey-10 : opreky2=oprey+28\r\n\r\n\t;color 160,160,255 : boxf oprekx1,opreky1,oprekx2,opreky2\r\n\t    s=\"return\"\t: bfp s,oprex,oprey,5\r\n\t   swbreak\r\n\t  case 1 ; MAPBGM\u306e\u9078\u629e\r\n; \u6226\u95d8\u898b\u308b\u898b\u306a\u3044\r\n; \u30ab\u30fc\u30bd\u30eb\u97f3onoff\r\n\t  swbreak\r\n\t  swend\r\n\r\n\/*\r\npos 10,10 : mes \"mvo  \"+mvo\r\npos 10,30 : mes \"muvo \"+muvo\r\npos 10,50 : mes \"sevo \"+sevo\r\npos 10,70 : mes \"f1 \"+f1\r\npos 10,90 : mes \"f2 \"+f2\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\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\t if kb=256 and ky=3 : kc=5 : option : ky=0 ; 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=10 : break\t; EXIT\r\n\r\n\t if mainf!3 : break\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\r\n\r\n\r\n\r\n#deffunc user_color\r\n\r\n\tkc=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>0 : kc- : break\r\n\t  x=mousex : y=mousey\r\n\t  ckey : stick kb,256\r\n\t loop\r\n\r\n\t if ckn=11 and kb=256 : break ; \u623b\u308b\r\n\t if cccx<=x and x<cccx+cccxk and kb=256 {\r\n\t  n=x-cccx ; \u5024\r\n\t   if cccy(1)<=y and y<cccy(1)+cccyk : cld(73)=n\r\n\t   if cccy(2)<=y and y<cccy(2)+cccyk : cld(74)=n\r\n\t   if cccy(3)<=y and y<cccy(3)+cccyk : cld(75)=n\r\n\t }\r\n\t if cctx1<=x and x<cctx1+ccto and kb=256 { ; \u30de\u30a4\u30ca\u30b9\r\n\t   if cccy(1)<=y and y<cccy(1)+ccto and cld(73)>0 : cld(73)-\r\n\t   if cccy(2)<=y and y<cccy(2)+ccto and cld(74)>0 : cld(74)-\r\n\t   if cccy(3)<=y and y<cccy(3)+ccto and cld(75)>0 : cld(75)-\r\n\t }\r\n\t if cctx2<=x and x<cctx2+ccto and kb=256 { ; \u30d7\u30e9\u30b9\r\n\t   if cccy(1)<=y and y<cccy(1)+ccto and cld(73)<255 : cld(73)+\r\n\t   if cccy(2)<=y and y<cccy(2)+ccto and cld(74)<255 : cld(74)+\r\n\t   if cccy(3)<=y and y<cccy(3)+ccto and cld(75)<255 : cld(75)+\r\n\t }\r\n\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf : color 120,120,120\r\n\r\n\t  color 255,1,1 : boxf cccx,cccy(1),cccx+cld(73),cccy(1)+cccyk : y+=cccyk2\r\n\t  color 1,255,1 : boxf cccx,cccy(2),cccx+cld(74),cccy(2)+cccyk : y+=cccyk2\r\n\t  color 1,1,255 : boxf cccx,cccy(3),cccx+cld(75),cccy(3)+cccyk\r\n\r\n\t  color 255,255,255 : gmulcolor 192,192,192\r\n\t  repeat 3,1\r\n\t   x=cctx1 : y=cccy(cnt)\r\n\t   n=22\r\n\t    boxf x,y,x+ccto,y+ccto\r\n\t     s=\"-\" : bfp s,x+n,y+n\r\n\t   x=cctx2\r\n\t    boxf x,y,x+ccto,y+ccto\r\n\t     s=\"+\" : bfp s,x+n,y+n\r\n\t  loop\r\n\r\n\t  gmulcolor 255,255,255\r\n\t  s=\"user color\" : bfp s,265,20,5\r\n\t  s=\"back\"\t: bfp s,cxyd(0,11)+7,cxyd(1,11)+1,5\r\n\t  s=str(cld(73)) : bfp s,cccx,cccy(1)+cccyk+2,5\r\n\t  s=str(cld(74)) : bfp s,cccx,cccy(2)+cccyk+2,5\r\n\t  s=str(cld(75)) : bfp s,cccx,cccy(3)+cccyk+2,5\r\n\t ; s=\"red\"\t: bfp s,cccx,cccy(1)+yk+2,5\r\n\t ; s=\"green\" : bfp s,cccx,cccy(2)+yk+2,5\r\n\t ; s=\"blue\"\t: bfp s,cccx,cccy(3)+yk+2,5\r\n\r\n\t  x=54 : y=132\r\n\t  pos x,y : celput m3w ; \u5730\u5f62\u3001\u98a8\r\n\t   gmulcolor cld(73),cld(74),cld(75)\t; \u8272\u6307\u5b9a\r\n\t    pos x,y : celput hsw\t; \u3075\u3061\u63cf\u753b\r\n\t   gmode 5,,,160\t\t\t; \u52a0\u7b97\u5408\u6210\r\n\t    pos x,y : celput hiw\t; \u3075\u3061\u30b0\u30e9\u30c7\u63cf\u753b\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 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>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\r\n\t\trepeat 25,1 ; \u6700\u5927\u30d7\u30ec\u30a4\u30e4\u30fc\u4eba\u6570\u8a2d\u5b9a\r\n\t\t if hf(cnt)>0 : plb=cnt\r\n\t\tloop\r\n\t\tswbreak\r\n\t   }\r\n\r\n\t   if mpl(kkn)>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 : gsf=2 : break ; \u30de\u30c3\u30d7\u521d\u671f\r\n\t   if ckn=11 : map_setf=0 : swbreak ; \u623b\u308b\r\n\t   if mpl(kkn)>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>0 : map_setf=1 : swbreak ; \u623b\u308b\r\n\t   if kkn=0 : swbreak\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\r\n\t   if kkn=25 : user_color : swbreak ; \u30e6\u30fc\u30b6\u30fc\u30ab\u30e9\u30fc\r\n\t  swbreak\r\n\t  case 3 ; \u30e6\u30fc\u30b6\u30fc\u30ab\u30e9\u30fc\r\n\t   \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\nrepeat 25,1\r\n pos 100+(cnt\/10*100),10+(cnt\\10*20) : mes \"hf \"+cnt+\" \"+hf(cnt)\r\nloop\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\r\n\t swend\r\n\/*\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\npos 10,190: mes \"plb \"+plb\r\n*\/\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>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\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\tplb=7\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  case 2 : map_bd2 : mainf=5 : await 0 : swbreak ; \u30de\u30c3\u30d7\u521d\u671f\r\n\t swend\r\n\t if mainf!4 : break\r\n\tloop\r\n\r\n\/*\r\n; \u30e6\u30cb\u30c3\u30c8\r\n\tub=plb*pub+nub*25\t; \u30e6\u30cb\u30c3\u30c8\u306e\u6700\u5927\u6570\r\n\tudb=50\t\t\t\t; 1\u30e6\u30cb\u30c3\u30c8\u306e\u30c7\u30fc\u30bf\u91cf\r\n\t dim ud,(ub+10)*udb+1 ; \u30e6\u30cb\u30c3\u30c8\u30c7\u30fc\u30bf\r\n\r\n\tdim udsh,plb+1\t\t; \u30e6\u30cb\u30c3\u30c8\u30c7\u30fc\u30bf\u5148\u982d\u3001\u82f1\u96c4\r\n\t repeat plb,1\r\n\t  udsh(cnt)=pub*(cnt-1)+1\r\n\t loop\r\n\r\n\tdim udsn,25+1\t\t; \u30e6\u30cb\u30c3\u30c8\u30c7\u30fc\u30bf\u5148\u982d\u3001\u4e2d\u7acb\r\n\t repeat 25,1\r\n\t  udsn(cnt)=plb*pub+nub*(cnt-1)+1\r\n\t loop\r\n\r\n\tdim hr1,plb*hub+1\t; \u30d2\u30fc\u30ed\u30fc\u306e\u7b4b\u529b\u9806\u5217\r\n\tdim hr2,plb*hub+1\t; \u30d2\u30fc\u30ed\u30fc\u306e\u9b54\u529b\u9806\u5217\r\n\tdim hr5,plb*hub+1\t; \u30d2\u30fc\u30ed\u30fc\u306e\u7dcf\u529b\u9806\u5217\r\n\r\n\r\n; \u30a2\u30a4\u30c6\u30e0\r\n\tib=pib*plb+nib*25\t; \u30a2\u30a4\u30c6\u30e0\u306e\u6700\u5927\u6570\r\n\tidb=40\t\t\t\t; 1\u30a2\u30a4\u30c6\u30e0\u306e\u30c7\u30fc\u30bf\u91cf\r\n\t dim id,(ib+1)*idb\t; \u30a2\u30a4\u30c6\u30e0\u30c7\u30fc\u30bf\r\n\t sdim is,80,ib\t\t; \u540d\u524d\r\n\r\n\tdim idsh,plb+1\t\t; \u30a2\u30a4\u30c6\u30e0\u30c7\u30fc\u30bf\u5148\u982d\u3001\u82f1\u96c4\r\n\t repeat plb,1\r\n\t  idsh(cnt)=pib*(cnt-1)+1\r\n\t loop\r\n\r\n\tdim idsn,25+1\t\t; \u30a2\u30a4\u30c6\u30e0\u30c7\u30fc\u30bf\u5148\u982d\u3001\u4e2d\u7acb\r\n\t repeat 25,1\r\n\t  idsn(cnt)=plb*pib+nib*(cnt-1)+1\r\n\t loop\r\n*\/\r\n\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<p><strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u6b8b\u5ff5\u306a\u304c\u3089 12\u6708\u306e\u5546\u6226\u306b\u306f\u9593\u306b\u5408\u3044\u307e\u305b\u3093\u3001\u5b8c\u6210\u306f 3\u6708\u307e\u3067\u3092\u4e88\u5b9a\u3057\u3066\u307e\u3059\u3002<\/p>\n<p>\u3000\u4eca\u56de\u306f\u4ee5\u4e0a\u3067\u3059\u3002<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><\/p>\n","protected":false},"excerpt":{"rendered":"<p>2019\u5e74 11\u6708 29\u65e5 \u3000 \u3000 \u3000\u9014\u4e2d\u7d4c\u904e\u5831\u544a\u3001\u4eca\u56de\u306f BGM\u3092\u4ed8\u3051\u59cb\u3081\u305f\u306e\u3067\u52d5\u753b\u3067\u5831\u544a\u3057\u307e\u3059\u3002 \u3000 \u3000<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[16,22,13],"tags":[],"class_list":["post-8180","post","type-post","status-publish","format-standard","hentry","category-hextrategy","category-sound","category-13"],"_links":{"self":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/8180","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=8180"}],"version-history":[{"count":8,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/8180\/revisions"}],"predecessor-version":[{"id":8189,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/8180\/revisions\/8189"}],"wp:attachment":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/media?parent=8180"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/categories?post=8180"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/tags?post=8180"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}