#include "stdafx.h"
#include "7.h"
#include "wzq.h"
#include "dim.h"

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif
wzq::wzq(CDC2*tqp,CDC2*tqzh,CDC2*tqzb,CDC2*tmask,CDC2*dead,CDC*dc)
{
SetDc(tqp,tqzh,tqzb,tmask,dead,dc);
}
/*___________________________________________________________________________________________*/
wzq::~wzq(){}
/*___________________________________________________________________________________________*/
wzq::wzq()
{	wzq::dcseted=false; }
/*___________________________________________________________________________________________*/
void wzq::DrawQZ(int nx,int ny,bool style)//畫棋子
{
if (wzq::dcseted==false)return;
	if (nx>15||ny>15) return;
		if (style==false ) 
		{
			dc->BitBlt(nx*29+7,ny*29+7,28,28,mask,0,0,MERGEPAINT);
			dc->BitBlt(nx*29+7,ny*29+7,28,28,qzb,0,0,SRCAND);
		}
		else
		{
			dc->BitBlt(nx*29+7,ny*29+7,28,28,mask,0,0,MERGEPAINT);
			dc->BitBlt(nx*29+7,ny*29+7,28,28,qzh,0,0,SRCAND);
		}
}
/*___________________________________________________________________________________________*/
void wzq::SetDc(CDC2*tqp,CDC2*tqzh,CDC2*tqzb,CDC2*tmask,CDC2*dead,CDC*dc)//設置DC
{
wzq::mask =tmask;
wzq::qp =tqp;
wzq::qzb =tqzb;
wzq::qzh =tqzh;
wzq::dc =dc;
wzq::dead=dead; 
wzq::dcseted=true; 
}
/*___________________________________________________________________________________________*/
void wzq::NewGame()//新游戲
{
if (wzq::dcseted==false)return;
for(int i1=0 ; i1<=14;i1++)
{
	for(int i2=0 ; i2<=14;i2++)
	{
	map[i1][i2]=0;
		for(int i3=0 ; i3<=3;i3++)
		{
			user[i1][i2][i3]=255;
			pc[i1][i2][i3]=255;

		}
	}
}
for (int ix=0;ix<225;ix++)
{
	wzq::wzs[ix].used=false; 
}
CSize x=qp->GetSize();
dc->BitBlt(0, 0,x.cx,x.cy,qp,0,0,SRCCOPY);//畫棋盤
wzq::twinner.winner=0;  
wzq::nturn=0; 
wzq::nowd2 =0;
if (wzq::Model==1)
{
userBd(7,7);
} 
}
/*___________________________________________________________________________________________*/
void wzq::draw()//重畫
{
if (wzq::dcseted==false)return;
CSize x=qp->GetSize() ;
dc->BitBlt(0, 0,x.cx,x.cy,qp,0,0,SRCCOPY);//畫棋盤
for(int i1=0 ; i1<15;i1++)
{
	for(int i2=0 ; i2<15;i2++)
	{
		if (map[i1][i2]==1){this->DrawQZ(i1,i2,false);}
		else{if (map[i1][i2]==2){this->DrawQZ(i1,i2,true);}}	
	}
}
	if (wzq::twinner.winner!=0)
	{
	int x1=wzq::twinner.nx1  , y1=wzq::twinner.ny1; 
	int xj,yj;
		if(wzq::twinner.nx2-wzq::twinner.nx1>0)
		{
			xj=1;
		}
			else
		{
			if (wzq::twinner.nx2-wzq::twinner.nx1==0)
			{
				xj=0;
			}
			else
			{
				xj=-1;
			}

		}
		if(wzq::twinner.ny2-wzq::twinner.ny1>0)
		{
			yj=1;
		}
			else
		{
			if (wzq::twinner.ny2-wzq::twinner.ny1==0)
			{
				yj=0;
			}
			else
			{
				yj=-1;
			}

		}
			if (wzq::twinner.winner!=0)
			{
			for (int ii=1 ; ii<=5 ; ii++)
			{
			dc->BitBlt(x1*29+7,y1*29+7,28,28,mask,0,0,MERGEPAINT);
			dc->BitBlt(x1*29+7,y1*29+7,28,28,dead,0,0,SRCAND);
			x1+=xj;
			y1+=yj;
			}
			}
	}
}  

/*___________________________________________________________________________________________*/
bool wzq::userAd(int nx,int ny)//黑色下子
{
	if (wzq::dcseted==false)return false;
	if (map[nx][ny]==0)
	{
map[nx][ny]=1;
DrawQZ(nx,ny,false);
	return true;
	}
	else 
	{
	return false;
	}
	wzq::DrawQZ(nx,ny,true); 
}
/*___________________________________________________________________________________________*/
bool wzq::userBd(int nx,int ny)//白色下子
{
if (wzq::dcseted==false)return false;
if (map[nx][ny]==0)
{
map[nx][ny]=2;
DrawQZ(nx,ny,true);
return true;
}
else
{
return false;
}
wzq::DrawQZ(nx,ny,false); 
}
/*__________________________________________________________________________________________*/
bool wzq::bewinner2(bool style,int nx,int ny)//勝敗
{
	int tx1=0,tx2=0,ty1=0,ty2=0;
	int yx1=0,yx2=0,yy1=0,yy2=0;
	int st=(int)style+1;
			for (int x1=-5 ; x1<= 5 ; x1++)
			{
				if (map[nx+x1][ny]==st)
				{
					tx1++;
					if (tx1==1)	yx1=x1;
	
						if (tx1>=5)
						{
							twinner.winner =st;
							twinner.nx1= nx+yx1;
							twinner.nx2 =nx+yx1+5;
							twinner.ny1 =ny;
							twinner.ny2 =ny;
							return true;
						}
				}
				else 
				{
					tx1=0;
				}

				if (map[nx][ny+x1]==st)
				{
				ty1++;
				if (ty1==1)	yy1=x1;
		if (ty1>=5)
						{
							twinner.winner =st;
							twinner.nx1= nx;
							twinner.nx2 =nx;
							twinner.ny1 =ny+yy1;
							twinner.ny2 =ny+yy1+5;
							return true;
						}

				}
				else 
				{
					ty1=0;
				}
				if (map[nx+x1][ny+x1]==st)
				{
					tx2++;
	if (tx2==1)	yx2=x1;
						if (tx2>=5)
						{
							twinner.winner =st;
							twinner.nx1= nx+yx2;
							twinner.nx2 =nx+yx2+5;
							twinner.ny1 =ny+yx2;
							twinner.ny2 =ny+yx2+5;
							return true;
						}
				}
				else
				{
					tx2=0;
				}
				if (map[nx+x1][ny-x1]==st)
				{
					ty2++;
	if (ty2==1)	yy2=x1;
						if (ty2>=5)
						{
							twinner.winner =st;
							twinner.nx1= nx+yy2;
							twinner.nx2 =nx+yy2+5;
							twinner.ny1 =ny-yy2;
							twinner.ny2 =ny-yy2-5;
							return true;
						}
				}
				else 
				{
					ty2=0;
				}
			}
	return false;
}
/*__________________________________________________________________________________________*/
bool wzq::downzi(int nx,int ny)//外部調用此函數下子
{
bool turnback;
if (nx<0||nx>14||ny<0||nx>14) return false;
if (wzq::nturn==-1)return false;
if (wzq::Model==2 )
{
	if (wzq::nturn==1)
	{
		turnback=userAd(nx,ny);
		if (bewinner2(false,nx,ny)==true)wzq::nturn=-1; 
		wzq::nturn =turnback?0:1;
		setback(nx,ny,false);
	}
	else
	{
		turnback=userBd(nx,ny);
		if(bewinner2(true,nx,ny)==true)wzq::nturn =-1;
		wzq::nturn =turnback?1:0;
		setback(nx,ny,true);
	}
}
else
{
	if (wzq::Model==1)
	{
		if (userAd(nx,ny)==false)return false;
		if(bewinner2(false,nx,ny)==true)wzq::nturn =-1;
		CPoint aigo=wzq::AiGo(true);
		setback(nx,ny,false);
		userBd(aigo.x,aigo.y);
		setback(aigo.x,aigo.y,true);
		if(bewinner2(true,aigo.x,aigo.y)==true)wzq::nturn =-1;
	}
	else
	{
		if (wzq::Model==0) 
		{
			if (userBd(nx,ny)==false)return false;
			if(bewinner2(true,nx,ny)==true)wzq::nturn =-1;
			CPoint aigo=wzq::AiGo(false);
		setback(nx,ny,true);
		userAd(aigo.x,aigo.y);
		setback(aigo.x,aigo.y,false);
			if(bewinner2(false,aigo.x,aigo.y)==true)wzq::nturn =-1;
		}

}}
return turnback;
}
/*____________________________________________________________________________________*/
bool wzq::goback()//悔棋
{	if (wzq::getbackble==false) return false; 
	wzq::nowd2--;
	if (wzq::Model==2)
	{
		map[wzq::wzs[nowd2].ix][wzq::wzs[nowd2].iy]=0;
		wzq::nturn= wzq::wzs[nowd2].color ;
		wzq::wzs[nowd2].used=false;
		wzq::dc->BitBlt(wzq::wzs[nowd2].ix*29+7,wzq::wzs[nowd2].iy*29+7,28,28,wzq::qp,wzq::wzs[nowd2].ix*29+7,wzq::wzs[nowd2].iy*29+7,SRCCOPY);
	}
	else
	{
	
		map[wzq::wzs[nowd2].ix][wzq::wzs[nowd2].iy]=0;
		wzq::wzs[nowd2].used=false;
		wzq::dc->BitBlt(wzq::wzs[nowd2].ix*29+7,wzq::wzs[nowd2].iy*29+7,28,28,wzq::qp,wzq::wzs[nowd2].ix*29+7,wzq::wzs[nowd2].iy*29+7,SRCCOPY);
		wzq::nowd2--;
		map[wzq::wzs[nowd2].ix][wzq::wzs[nowd2].iy]=0;
		wzq::wzs[nowd2].used=false;
		wzq::dc->BitBlt(wzq::wzs[nowd2].ix*29+7,wzq::wzs[nowd2].iy*29+7,28,28,wzq::qp,wzq::wzs[nowd2].ix*29+7,wzq::wzs[nowd2].iy*29+7,SRCCOPY);
	}
	if (wzq::twinner.winner!=0) 
	{
		wzq::twinner.winner =0; 
		wzq::draw();
	}
return false;
}
/*__________________________________________________________________________________________*/
bool wzq::bejs(int nx,int ny)
{
/*++此處添加禁手控制++*/
	//因為我不熟悉五子棋的規則，所以沒有設置禁手
return false;
}
/*__________________________________________________________________________________________*/
void wzq::fillin(bool color,bool player,bool type)
{
	int ix,iy;
for (ix=0 ;ix<=14;ix++)
{
	for (iy=0 ;iy<=14;iy++)
	{
		if (map[ix][iy]==0)
		{
		
			for (int im=0 ; im<=3 ; im++)
			{
			  setqx(ix,iy,color,player,im,type);
			}
		}
	}
}
}
/*__________________________________________________________________________________________*/
void wzq::setqx(int nx ,int ny,bool style,bool player,int st,bool type)
{
	
bool ok=true;
int ia,ib;
int ix,iy;
int i2,i2j;
int tem1,tem2;
int x;
int i3;
int m1,m3;
int i;
int wx=nx,wy=ny,tem3=0;
switch (st)
{
case 0:
	i2=1,i2j=0;break;
case 1:
	i2=0,i2j=1;break;
case 2:
	i2=1,i2j=1;break;
case 3:
	i2=1,i2j=-1;break;
}
unsigned char temp3[15]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
unsigned char temp4[15]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
begin:
if (map[wx][wy]!=0)return;
i3=0;
ix=i2;
iy=i2j;
ia=1,ib=1;
//right==========================================================================================//
	x=map[wx-ix][wy-iy];
	while(!(x!=(int)style+1||wx-ix<0||wy-iy<0))
	{
		ia++;
		ix+=i2;
		iy+=i2j;
		x=map[wx-ix][wy-iy];

	} 
	ix=i2,iy=i2j;
//left====================================================================================//
	x=map[wx+ix][wy+iy];
	while(!(x!=(int)style+1||wx+ix>14||wy+iy>14))
	{
		ix+=i2;
		iy+=i2j;
		ib++;	
		x=map[wx+ix][wy+iy];
	} 
//偏移=======================================================================================//
	if (ib==1&&ia==1)
	{
		if (tem3==0)
		{
			wx+=i2,wy+=i2j;
			tem3=1;
			goto begin;
		}
		else
		{
			if (tem3==1)
			{
				wx-=i2*2,wy-=i2j*2;
				tem3=2;
				goto begin;
			}
			else
			{
				if (tem3==2)return;
			}
		}
		
	}
	ix=0,iy=0;
	switch (st)
	{
		case 0:
			{
					m1=(ia!=1&&ib==1),m3=(ib!=1&&ia==1);
				for(i=0; i<1+ia+ib;i++)
				{
						tem1=wx-ia+ix-m1;
						if (tem1<0||tem1>14){ix+=1;continue;}
						x=map[tem1][wy];
						temp3[i3]=ntoc(x,type,style);
						ix+=1;
						i3++;
				}
				ix=0,i3=0;
				for (i=0 ; i<1+ia+ib;i++)
				{
						tem1=wx+ib-ix+m3;
						if (tem1<0||tem1>14){ix+=1;continue;}
						x=map[tem1][wy];
						temp4[i3]=ntoc(x,type,style);
						ix+=1;
						i3++;