ȽÄêÊýË¡¤Ë¤Ä¤¤¤Æ¡¢µÕ¤ÎȯÁۤǼ¸³¤·¤Æ¤ß¤Þ¤·¤¿¡£
¤Ä¤Þ¤ê¡¢¤Ä¤Ê¤¬¤Ã¤Æ¤¤¤ë¤«¤É¤¦¤«¤Ç¤Ï¤Ê¤¯
¸¡º÷¤¹¤ë¥Ô¡¼¥¹¡Ê¿§¡Ë¤¬³°¤Ë½Ð¤é¤ì¤ë¤«¤É¤¦¤«¤ò
½Ä²£¼Ð¤á¤Î£¸Êý¸þ¤ËÂФ·¤Æ¥Á¥§¥Ã¥¯¤¹¤ë¤È¤¤¤¦¤â¤Î¤Ç¤¹¡£
¤è¤½¤ÎºÂɸ¤Øƨ¤²¤é¤ì¤ë¾ì¹ç¤Ï¡¢¤½¤ÎºÂɸ¤ÇºÆÅÙ³Îǧ¤·¡¢
·ë¶É¤É¤³¤Ë¤âƨ¤²¤é¤ì¤Ê¤¤¾ì¹ç¡¢Àþ¤¬·ë¤Ð¤ì¤Æ¤¤¤ë¤ÈȽÃǤò¤¹¤ë¡£
¤È¤¤¤¦¤Î¤¬³µÎ¬¤Ç¤¹¡£
¤Á¤Ê¤ß¤ËÀþ¤¬·ë¤Ð¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤Î½èÍý¤Ï¤·¤Æ¤¢¤ê¤Þ¤»¤ó¡£
¤Þ¤¿¡¢¤³¤ÎȽÄê¤ÎÆÃÀ¾å¡¢³°¤Ë¤¢¤ë̵Â̤ʥԡ¼¥¹¤ÏȽÄꤷ¤Þ¤»¤ó¤¬
°Ï¤Þ¤ì¤¿Ãæ¤Ë¤¢¤ë¥Ô¡¼¥¹¤ÏȽÄê¤ÎÂоݤȤʤê¤Þ¤¹¡£
ËÜÅö¤Ï¤â¤Ã¤È¸·Ì©¤Ë¤µ¤Þ¤¶¤Þ¤Ê¾ì¹ç¤òÁÛÄꤷ¤Æ¸¡¾Ú¤·¤¿¤¤¤È¤³¤í¤Ç¤¹¤¬¡¢
¤½¤ì¤ò¤·¤Æ¤¤¤¯¤³¤È¤Ï¥¹¥ì¼ç¤ÎÊý¤Ë¤ªÇ¤¤»¤·¤Þ¤¹¡£
¼ç¤Ë¥Ñ¥º¥ë¥²¡¼¥à¤òºî¤Ã¤Æ¤¤¿¼Ô¤È¤·¤Æ¤Ï¡¢
¤½¤ì¤³¤½Â¾¤ÎÊý¤¬¸À¤ï¤ì¤ëÄ̤êÂé¸ïÌ£¤À¤È»×¤¤¤Þ¤¹¡£
´èÄ¥¤Ã¤Æ¤¯¤À¤µ¤¤¡£
¼Â¸³¥¹¥¯¥ê¥×¥È¤Î°·¤¤Êý
²¿¤«¥¡¼¤ò²¡¤·¤Æ¤¯¤À¤µ¤¤¡£
ÊÑ¿ôm¤ÎÃæ¤Ç2¡Ê¡û¡Ë¤¬°Ï¤ó¤Ç¤¤¤ë¤â¤Î¤Ë¡Ö¥ì¡×¤¬¤Ä¤¤Þ¤¹¡£
°Ï¤á¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ï¡¢¥¨¥é¡¼¤¬µ¯¤¤Þ¤¹¡Ê¼«¸ÊÀÕǤ¤Ç¤ª´ê¤¤¤·¤Þ¤¹¡Ë
screen 0,32*7,32*10
p="¢£","¡¡","¡û","¢¤","¢¢"
dim m,7,10
m(0,0)=0,0,0,0,0,0,0
m(0,1)=0,1,1,1,1,1,0
m(0,2)=0,1,1,1,1,1,0
m(0,3)=0,1,1,1,2,1,0
m(0,4)=0,1,1,2,2,1,0
m(0,5)=0,2,2,2,1,1,0
m(0,6)=0,2,4,2,2,1,0
m(0,7)=0,2,4,4,2,1,0
m(0,8)=0,2,2,2,2,1,0
m(0,9)=0,0,0,0,0,0,0
cx=-1,-1,0,1,1,1,0,-1 : cy=0,-1,-1,-1,0,1,1,1
dim c,7,10
font msgothic,32
*main
stick key : if key!0{gosub *check}
redraw 0 : color : boxf
repeat 7 : x=cnt
repeat 10 : y=cnt
pos x*32,y*32 : color 255,255,255 : mes p(m(x,y))
if c(x,y)=-1{
pos x*32,y*32 : color 0,255,0 : mes "¥ì"
}
loop
loop
redraw 1 : await 16
goto *main
*check
c_col=2
repeat 5,1 : x=cnt
repeat 8,1 : y=cnt
if m(x,y)!1&m(x,y)!c_col{
px=x : py=y : lc=0 : dim lx,70 : dim ly,70
repeat
repeat 8
if m(px+cx(cnt),py+cy(cnt))=c_col{
c(px+cx(cnt),py+cy(cnt))=-1
}else{
if c(px+cx(cnt),py+cy(cnt))=0{
c(px+cx(cnt),py+cy(cnt))=1
lx(lc)=px+cx(cnt) : ly(lc)=py+cy(cnt) : lc+
}
}
loop
if lc!0{ lc- : px=lx(lc) : py=ly(lc) }else{ break }
loop
}
loop
loop
return