// 走四方Dlg.cpp : implementation file
/*
[學VC、編游戲]
編著、程序設計：唐明理 2004.7
E-mail:  cqtml@163.com
*/

#include "stdafx.h"
#include "走四方.h"
#include "走四方Dlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

typedef struct 
 {	int				qi;
	unsigned short	bc;
 } JCDZ;
typedef struct
{	short int jisu;	
	short int xix,xiy;
	short int x0,y0;
	short int lb;

	short int p;
	short int m0,m1;
	short int zs;
	short int js;
	short int fw;
} MAN;

#define SBUF	2801
#define RBUF	801	
HBITMAP bit;
HDC		MemDC;
HDC		DCBak;
int		w,h;
CString dir;
CString cc;	
char	appdir[256];
CRect	rect;
MAN		man[1];	
short int sbufx  [SBUF];
short int sbufy  [SBUF];
short int rbufx  [RBUF];
short int rbufy  [RBUF];
JCDZ	zjdz[5]= {0,5,40,10,120,10,200,10,280,10};

BOOL getpic(CString cc,int p);
BOOL loadbmp(CString cc);
void TransparentBlt2( HDC hdc0,	
					int nX0,int nY0,
					int nW0,int nH0,
					HDC hdc1,
					int nX1,int nY1,
					int nW1,int nH1,
					UINT Tcol
					);
void bianfw (int q);
void manmove(int i);
void setman (int q);
/////////////////////////////////////////////////////////////////////////////
// CMyDlg dialog

CMyDlg::CMyDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CMyDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CMyDlg)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CMyDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CMyDlg)
		// NOTE: the ClassWizard will add DDX and DDV calls here
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CMyDlg, CDialog)
	//{{AFX_MSG_MAP(CMyDlg)
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_WM_TIMER()
	ON_WM_LBUTTONDOWN()
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CMyDlg message handlers

BOOL CMyDlg::OnInitDialog()
{
	CDialog::OnInitDialog();

	SetIcon(m_hIcon, TRUE);			// Set big icon
	SetIcon(m_hIcon, FALSE);		// Set small icon
	
	// TODO: Add extra initialization here

	cc="\r\n    這是《學VC、編游戲》的第四個示例：\r\n\r\n";
	cc+="   在這一章我們使用了以下知識、技術\r\n\r\n";
	cc+="1、建立鼠標左鍵按鍵消息\r\n";
	cc+="2、角色圖形規律分析\r\n";
	cc+="3、定義數據類型變量MAN，來表示游戲的角色\r\n";
	cc+="4、角色移動功能函數\r\n";
	cc+="5、角色動作轉換函數\r\n";
	cc+="6、在時鐘消息中加入角色移動和動作轉換\r\n";
	cc+="7、加入了對象顯示的校正值，使對象的顯示不再跳動。\r\n\r\n";
	cc+="重點：角色的移動和動作變換。\r\n\r\n";
	cc+="編著、程序設計：唐明理 2004.7\r\n";
	cc+="E-mail:  cqtml@163.com\r\n";
	SetDlgItemText(IDC_EDIT1,cc);


	MoveWindow(0,0,640,480);
	CenterWindow();	
	GetDlgItem(IDOK)->MoveWindow(640-60,0,55,18,TRUE);

	MemDC =CreateCompatibleDC(0);
	DCBak =CreateCompatibleDC(0);
	GetWindowRect(rect);

	man[0].lb =0;
	man[0].fw =7;
	man[0].js =0;
	man[0].zs =1;
	man[0].xix=50;	
	man[0].xiy=50;	
	man[0].x0 =rect.Width()/2;
	man[0].y0 =rect.Height()/2;
	setman(0);

	GetCurrentDirectory(256,appdir);
	dir=appdir;
	if(dir.Right(8)=="運行程序")
			dir="圖片/";
	else	
		dir="../運行程序/圖片/";

	loadbmp(dir+"地面.BMP");
	SelectObject(DCBak,bit);

	SetBkMode(DCBak,TRANSPARENT);
	SetTextColor(DCBak,RGB(250,250,250));

	cc="在場景內任意點按鼠標左鍵試試!  他可以上樹、下水。";	
	TextOut(DCBak,150,100,cc,lstrlen(cc));
	cc="搞什么嘛? 玩貓捉老鼠嗎!  現在人物有些閃爍，你知道為什么嗎？";
	TextOut(DCBak,150,280,cc,lstrlen(cc));
	return TRUE;  // return TRUE  unless you set the focus to a control
}

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CMyDlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // device context for painting

		SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

		// Center icon in client rectangle
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// Draw the icon
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}

}
HCURSOR CMyDlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}
void CMyDlg::OnOK()	
{	GetDlgItem(IDC_EDIT1)->ShowWindow(SW_HIDE);

	SetTimer(1,150,NULL);
}
void CMyDlg::OnCancel()
{	DeleteDC(MemDC);
	DeleteObject(bit);
	DeleteDC(DCBak);
	CDialog::OnCancel();
}
void CMyDlg::OnTimer(UINT nIDEvent)
{	CClientDC dc(this);
	int wid=rect.Width();
	int hei=rect.Height();
	BitBlt(dc.m_hDC,0,0,wid,hei,DCBak,0,0,SRCCOPY);
	manmove(0);	
	if(getpic("人",man[0].p)==FALSE)
			{AfxMessageBox(cc+"沒找到!");return;}
	SelectObject(MemDC,bit);

	int x,y;
	if(man[0].lb!=2)
     {int x0=0,y0=0;
	  if(man[0].lb==0) {x0=rbufx[man[0].p];y0=rbufy[man[0].p];}
	  if(man[0].lb==1) {x0=sbufx[man[0].p];y0=sbufy[man[0].p];}
	  if(man[0].fw>4) x0=w-x0;
	  x=man[0].xix-x0;
	  y=man[0].xiy-y0;
	 }

	TransparentBlt2(dc.m_hDC,x,y,w,h,MemDC,0,0,w,h,RGB(255,255,255));

	man[0].p++;	
	if(man[0].p>=man[0].m1)	
				bianfw(0);	
	CDialog::OnTimer(nIDEvent);
}
void CMyDlg::OnLButtonDown(UINT nFlags, CPoint point)
{	int x=point.x,y=point.y;
	man[0].x0=x;
	man[0].y0=y;
	man[0].p=man[0].m1-1;
	
	CDialog::OnLButtonDown(nFlags, point);
}

BOOL getpic(CString cc,int p)
{	char name[256];

	SetCurrentDirectory(appdir);
	sprintf(name,"%s%s/c%05d.bmp",dir,cc,p);
	loadbmp(name);	
	sprintf(name,"%s%s/c%05d.txt",dir,cc,p);
	FILE *f;
	f=fopen(name,"r");
	if(f!=NULL)
	{if(cc=="人") fscanf(f,"%d,%d",&rbufx[p],&rbufy[p]);
	 if(cc=="獸") fscanf(f,"%d,%d",&sbufx[p],&sbufy[p]);
	 fclose(f);
	}
	return TRUE;
}
BOOL loadbmp(CString cc)
{	DeleteObject(bit);
	bit=(HBITMAP)LoadImage
				(AfxGetInstanceHandle(),
				 cc,
				 IMAGE_BITMAP,
				 0,	
				 0,	
				 LR_LOADFROMFILE|LR_CREATEDIBSECTION
				);
	if(bit==NULL) return FALSE;	
	DIBSECTION ds;	
	BITMAPINFOHEADER &bm = ds.dsBmih;
	GetObject(bit,sizeof(ds),&ds);
	w = bm.biWidth;
	h = bm.biHeight;
	return TRUE;
}

void TransparentBlt2( HDC hdc0,	
					int nX0,int nY0,
					int nW0,int nH0,
					HDC hdc1,
					int nX1,int nY1,
					int nW1,int nH1,
					UINT Tcol
					)
{	HBITMAP hBMP   =CreateCompatibleBitmap(hdc0,nW0, nH0);
	HBITMAP mBMP   =CreateBitmap(nW0,nH0,1,1,NULL);	
	HDC		hDC    =CreateCompatibleDC(hdc0);
	HDC		mDC    =CreateCompatibleDC(hdc0);
	HBITMAP oldBMP =(HBITMAP)SelectObject(hDC, hBMP);
	HBITMAP oldmBMP=(HBITMAP)SelectObject(mDC, mBMP);
	if (nW0==nW1&&nH0==nH1)
		BitBlt(hDC,0,0,nW0,nH0,hdc1,nX1,nY1,SRCCOPY);
	else
		StretchBlt(hDC,0,0,nW0,nH0,hdc1,nX1,nY1,nW1,nH1,SRCCOPY);

	SetBkColor(hDC, Tcol);
	BitBlt(mDC,0,0,nW0,nH0,hDC,0,0,SRCCOPY);
	SetBkColor(hDC, RGB(0,0,0));
	SetTextColor(hDC, RGB(255,255,255));
	BitBlt(hDC,0,0,nW0,nH0,mDC,0,0,SRCAND);
	SetBkColor(hdc0,RGB(255,255,255));
	SetTextColor(hdc0,RGB(0,0,0));

	BitBlt(hdc0,nX0,nY0,nW0,nH0,mDC,0,0,SRCAND);
	BitBlt(hdc0,nX0,nY0,nW0,nH0,hDC,0,0,SRCPAINT);

	SelectObject(hDC, oldBMP);				
	DeleteDC(hDC);
	SelectObject(mDC, oldmBMP);
	DeleteDC(mDC);
	DeleteObject(hBMP);
	DeleteObject(mBMP);
}
void manmove(int i)
{	int stx,sty,qx,qy;
	switch(man[i].zs) 
		{case 2: {stx=9;sty=6;break;}
	     case 1: {stx=4;sty=2;break;}
		 default:{stx=2;sty=1;break;}
		}
	qx=man[i].x0-man[i].xix;
	qy=man[i].y0-man[i].xiy;
	if (qx==0&&qy==0) 
	{
	 return ;
	}
	int qxa=abs(qx);
	int qya=abs(qy);
	if(qxa<stx)  stx=qxa;
	if(qya<sty)  sty=qya;
	if(qx!=0) man[i].xix+=qxa/qx*stx;
	if(qy!=0) man[i].xiy+=qya/qy*sty;	
}

void bianfw(int q)
{	int qx=man[q].x0-man[q].xix;
	int qy=man[q].y0-man[q].xiy;
	if(qx==0&&qy==0) 
		{man[q].zs=0;
		 goto aa;
		}	
	man[q].zs=1;
	if(qx<0&&qy>0)		{man[q].fw=1;goto aa;}
	if(qx<0&&qy<0)		{man[q].fw=3;goto aa;}
	if(qx>0&&qy<0)		{man[q].fw=5;goto aa;}
	if(qx>0&&qy>0)		{man[q].fw=7;goto aa;}
	if      (qy>0)		{man[q].fw=0;goto aa;}
	if(qx<0)			{man[q].fw=2;goto aa;}
	if      (qy<0)		{man[q].fw=4;goto aa;}
	if(qx>0)			{man[q].fw=6;goto aa;}
aa:	setman(q);
}

void setman(int q)
{	int a=400;
	man[q].m0=man[q].js*a+zjdz[man[q].zs].qi
			  +man[q].fw*zjdz[man[q].zs].bc;
	man[q].m1=zjdz[man[q].zs].bc+man[q].m0;
	man[q].p=man[q].m0;	
}