○　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　○
　　　　　　　　　【オセロゲーム　シミュレーションマクロ】  Del:終了　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　P  :パス　　　　　　
　　┌──────┐　┏━┳━┳━┳━┳━┳━┳━┳━┓　　　　　　　　　　　　
　　│　　　　　　│　┃　┃　┃　┃　┃　┃　┃　┃　┃　┌───────┐　　
　　│　　　　　　│　┣━╋━╋━╋━╋━╋━╋━╋━┫　│手番　＝　　番│　　
　　│　　　　　　│　┃　┃　┃　┃　┃　┃　┃　┃　┃　└───────┘　　
　　│　　　　　　│　┣━╋━╋━╋━╋━╋━╋━╋━┫　　　　　　　　　　　　
　　│　　　　　　│　┃　┃　┃　┃　┃　┃　┃　┃　┃　┌─現在の状況─┐　　
　　│　　　　　　│　┣━╋━╋━╋━╋━╋━╋━╋━┫　│　　　　　　　│　　
　　│　　　　　　│　┃　┃　┃　┃　┃　┃　┃　┃　┃　│　○　＝　00　│　　
　　│　　　　　　│　┣━╋━╋━╋━╋━╋━╋━╋━┫　│　　　　　　　│　　
　　│　　　　　　│　┃　┃　┃　┃　┃　┃　┃　┃　┃　│　●　＝　00　│　　
　　│　　　　　　│　┣━╋━╋━╋━╋━╋━╋━╋━┫　│　　　　　　　│　　
　　│　　　　　　│　┃　┃　┃　┃　┃　┃　┃　┃　┃　└───────┘　　
　　│　　　　　　│　┣━╋━╋━╋━╋━╋━╋━╋━┫　　　　　　　　　　　　
　　│　　　　　　│　┃　┃　┃　┃　┃　┃　┃　┃　┃　　　　　　　　　　　　
　　│　　　　　　│　┣━╋━╋━╋━╋━╋━╋━╋━┫　　　　　　　　　　　　
　　│　　　　　　│　┃　┃　┃　┃　┃　┃　┃　┃　┃　　　　　　　　　　　　
　　└──────┘　┗━┻━┻━┻━┻━┻━┻━┻━┛　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
○　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　○
===== VZOTO.DEF v.1.20 ====> 91.9.9 糧 丞 GCD00414.NIF =======>
                 Special thanks to...   ========>  SDI00242.NIF ＫＡＷＡ
                                           ======>  Board design 91.5.17
      (98罫線ではありません)勝てるかな？    ======> Prime advice 91.5.25
;	VZ1.6で左右カーソルが効かないのを修正 ===> konno  	25.03.20

* M
80 ^\   "OTO"
	ae-,						  ;★全角SPACE Cr 
	(s==2&&Bf)?#95(s)?.&s#R"vzoto.def"#m we81,&#Y(0)#^(23){#k#z}#C
	d=mr,(d-2)?{#N"oto.gam"#m(s==4)?'n'}mi[,du[,mi+,du-,#^we81,
	(d-2)?&d(23){#i}(d==2)?&d mr2,
	pp"対戦相手は？　�o一手動で遊ぶ　�o二おとぼけ三四郎　�o三白黒問答無用之介",
	&21x14,y9,&06 fc-,fd-,i-,&p(r=='1')?{fc+,i2,>G}(r=='2')?{i1,>G}fd+,
:G	&o(#])pp"おぬしの相手は　�o�oそこにいる　",&21&b(1)y5,x8,&06
	"　　　"x+=2*i,&w(10)&18&s&16m^=7,x10,y18,&06mi-,' 'mi+,' '&d
	i27,&01 i28,&01 i36,&01 i35,&01
:L
	&m("c:%d x(24-52):%d y(4-18):%d  lx:%d ly:%d",c,x,y,lx,ly)  ;★debug
	x[,y[,(fc||d&1)?>I&11>M
:I	mx[+,&p mx],c = r,				  ;★VZ1.6 
	(c==#s)?{ x=x-4, &02 (r)?{y],x], &06 >L}?&06 >n } ;★左右カーソル対策
	(c==#d)?{ x=x+4, &02 (r)?{y],x], &06 >L}?&06 >n } ;★左右カーソル対策
	&o(#])						  ;1.6ではここが変？
:M	&> (r)?{y],x], (r<0)?>E (fb)?&06 &b(2) >L }  
:n	sp+=4,(n)?>L
	pp"五分五分・・・次は負けんちゃ",
	(qq.1>qq.2)?{pp"ギャフン　貴殿の勝ちでござ｜る！",&21(10){&b(3)&w(10)}>E}
	(qq.1<qq.2)?{pp"弱いにょろねぇ・・・あんたぁ　",}&21(10){&w(10)}
:E	&b(1)&a("もう１回やるにょろ")du],mi],(r==1)?>^#C
	#W #C #[ ae5,					  ;★全部閉じる

		; [del][cr]↑ ↓ ← →       [del][cr]↑ ↓ ← →
0:	&f(c-$100,"$(0F,04,05,06,07,08)") (r)>?{>E >P >U >D >L >R }
	&u(c)(r==80)?{&13(fb)?{n-,>N}fb+,}(1).
:P	&03(r)?.o-,&07(r!)?.j-,
:Q	(q.j)??>X(q.(7-j))??{(p.i>224&&d&2)?>S>X}
:S	g=i+t..j,(224<p.i)?p.g^=192,(p.g&3)?>X p.g|=4,
:X	(8>j++)?>Q &13 fb-,>N
:U	y-=2, >A					; ↑
:D	y+=2, >A					; ↓
:L	x-=4, >A					; ← 263 07
:R	x+=4,						; → 264 08
:A	&02 (r)?{(1).} &06
:N	(0).
:E  (-1).
1:	&04x[,y[,&s&05&12y],x],&06&d&w(5)
13:	x[,y[,&s&12y],x],&06&d

11:	f=i-,o+,b=-1,&s
:A	(p.i&4)?>R
:E	(64>i++)?>A>X
:R	;(p.i==240)?{u=p.i,>S}
	&04n[,n-,&07u=r,n],(u<0)?>E u=248&p.i, ;(u<p.i||p.i<16)?u=248&p.i,
:S	;	(fd)?>B
:B	(u<b)?>E(f)??b=u,(b<u)?{f-,b=u,}pu.f=i,f++,
	(fd)?>E
:X	(f)??{c80,.}(1<f)?{&rf=r%f,}?f-,i=pu.f,&04c#m,

7:	i[,i-,(8){q.i+,i++,}fx-,j3,(x<28)?>A(48<x)?>B
:Y	j+,(y<6)?>C(16<y)?>D>E
:A	i+,&>>Y
:B	i-,&>>Y
:C	i4,&>>E
:D	i+,&>
:E	i],j-,e=d^3,(o)?h=nn=-1,?nn=n,
:L	(q.j)?{g=i+t..j,(p.g&e)?&09}(8>j++)?>L&06(nn-n)
8:	(3){q.i-,i+=j,}fx+,

9:	i[,x[,y[,i=g,&04yy=y-sp..0,xx=x-sp..1,k-,
:A	(o)?nn+,i+=t..j,k++,x+=xx,y+=yy,
	&02(r)?>B(p.i&d)?>C(p.i&3)?>A	;&m("nn %d p.i %d",nn,p.i)
:B	k-,
:C	y],x],i],(o)?{(k)?h=nn,?nn=h,.}(k)??.i[,x[,y[,&s(nn==n)?&05y],x],x[,y[,
	(k){qq.d+=1,qq.e-=1,i+=t..j,p.i^=3,x+=xx,y+=yy,&16&14}y],x],i],&06&d
5:	p.i&=$fb,p.i^=d,&16&d&sqq.d+=1,&14&b(1)x6,y18,&06 &?("残り%2d",n--)
12:	x70,y5,m^=7,&16 d^=3,
14: x[,y[,x70,y10+(d&2),&15y22-y,d^=3,&15d^=3,y],x],
15:	&06&?("%02d",qq.d)

21: x[,y[,x16,&s
:A	y4,x-=2,
:B	(pp.0)?{m=pp..0,m!!,&16pp+=2,(18<y++)?>A(m=='　')?pp-=2,>B}&dy],x],

16:	&06&?("%c",m)	;====> v=82*y+x+2,dz=tz,v..0=m,dz=cz,
6:	&y(y) &x(x)
4:	y=(i/8)*2+4,x=(i%8)*4+24,
3:	i=y*4+x/4-22,(3&p.i)
2:	(y<4||18<y||x<24||52<x)

18:	&19 q91+p,qq+,n-,
:U	(q.0-'A')>?{>A>B>C>D>E>F>G>H}
	p.n=4,>Z
:A	p.n=224,>Z ;A 11100000		A X B C C B X A
:B	p.n=192,>Z ;B 11000000		X X E W W E X X
:C	p.n=128,>Z ;C 10000000		B M D E E D E B
:D	p.n=112,>Z ;D 01110000		C W E     E W C
:E	p.n=96 ,>Z ;E 01100000		C W E     E W C
:F	p.n=68, >Z ;F 01000000		B E D E E D E B
:G	p.n=8,	>Z ;X 00001000		X X E W W E X X
:H	p.n-,      ;Y 00000000		A X B C C B X A
:Z	(n-31)?q+=qq,?qq=-1,
	(64>n++)?>U	q64+p,t8+q,qq16+t,qq.0=qq.1=qq.2=0,d+,m'●',
19:	p3+$,."0123456701234567012345670123456701234567012345670123456701234567$
	01234567$(1,0,7,0,8,0,9,0,f7,ff,f8,ff,f9,ff,ff,ff)012AHBCCBHAHHEGGEHHBE$
	DFFDEBCGF__FGC"
*