void DrawQp()/*画棋盘*/
{
int i,j;
score1=score2=0;/*棋手一开始得分都为0*/
setbkcolor(BLUE);
for(i=100;i<=420;i+=40)
{
line(100,i,420,i);/*画水平线*/
line(i,100,i,420); /*画垂直线*/
}
setcolor(0);/*取消圆周围的一圈东西*/
setfillstyle(SOLID_FILL,15);/*白色实体填充模式*/
fillellipse(500,200,15,15); /*在显示得分的位置画棋*/
setfillstyle(SOLID_FILL,8); /*黑色实体填充模式*/
fillellipse(500,300,15,15);
a[3][3]=a[4][4]=1;/*初始两个黑棋*/
a[3][4]=a[4][3]=2;/*初始两个白棋*/
setfillstyle(SOLID_FILL,WHITE);
fillellipse(120+3*40,120+3*40,15,15);
fillellipse(120+4*40,120+4*40,15,15);
setfillstyle(SOLID_FILL,8);
fillellipse(120+3*40,120+4*40,15,15);
fillellipse(120+4*40,120+3*40,15,15);
score1=score2=2; /*有棋后改变分数*/
DoScore();/*输出开始分数*/
}
void playtoplay()/*人人对战*/
{
int x,y,t=1,i,j,cc=0;
while(1)/*换棋手走棋*/
{
x=120,y=80;/*每次棋子一开始出来的坐标,x为行坐标,y为列坐标*/
while(1) /*具体一个棋手走棋的过程*/
{
PrintScore(1);/*输出棋手1的成绩*/
PrintScore(2);/*输出棋手2的成绩*/
SetPlayColor(t);/*t变量是用来判断棋手所执棋子的颜色*/
fillellipse(x,y,15,15);
key=bioskey(0);/*接收按键*/
if(key==ESC)/*跳出游戏*/
break;
else
if(key==ENTER)/*如果按键确定就可以跳出循环*/
{
if(y!=80&&a[(x-120)/40][(y-120)/40]!=1
&&a[(x-120)/40][(y-120)/40]!=2)/*如果落子位置没有棋子*/
{
if(t%2==1)/*如果是棋手1移动*/
a[(x-120)/40][(y-120)/40]=1;
else/*否则棋手2移动*/
a[(x-120)/40][(y-120)/40]=2;
if(!QpChange(x,y,t))/*落子后判断棋盘的变化*/
{
a[(x-120)/40][(y-120)/40]=0;/*恢复空格状态*/
cc++;/*开始统计尝试次数*/
if(cc>=64-score1-score2) /*如果尝试超过空格数则停步*/
{
MoveColor(x,y);
fillellipse(x,y,15,15);
break;
}
else
continue;/*如果按键无效*/
}
DoScore();/*分数的改变*/
break;/*棋盘变化了，则轮对方走棋*/
}
else/*已经有棋子就继续按键*/
continue;
}
else /*四个方向按键的判断*/
if(key==LEFT&&x>120)/*左方向键*/
{
MoveColor(x,y);
fillellipse(x,y,15,15);
SetPlayColor(t);
x-=40;
fillellipse(x,y,15,15);
}
else
if(key==RIGHT&&x<400&&y>80)/*右方向键*/
{
MoveColor(x,y);
fillellipse(x,y,15,15);
SetPlayColor(t);
x+=40;
fillellipse(x,y,15,15);
}
else
if(key==UP&&y>120)/*上方向键*/
{
MoveColor(x,y);
fillellipse(x,y,15,15);
SetPlayColor(t);
y-=40;
fillellipse(x,y,15,15);
}
else
if(key==DOWN&&y<400)/*下方向键*/
{
MoveColor(x,y);
fillellipse(x,y,15,15);
SetPlayColor(t);
y+=40;
fillellipse(x,y,15,15);
}
}
if(key==ESC)/*结束游戏*/
break;
if((score1+score2)==64||score1==0||score2==0)/*格子已经占满或一方棋子为0判断胜负*/
{
playWin();/*输出最后结果*/
break;
}
t=t%2+1; /*一方走后，改变棋子颜色即轮对方走*/
cc=0; /*计数值恢复为0*/
} /*endwhile*/
}
long _EXPORT FAR PASCAL WndProc( HWND hwnd, UINT message, WPARAM wparam,
LPARAM lparam )
/*********************************************************************/
{
static HANDLE hdlginstance;
static BOOL got_watzee_bonus;
PAINTSTRUCT ps;
FARPROC dlg_proc;
HDC hdc;
POINT point;
short x;
short y;
short dy;
short i;
switch( message ) {
case WM_CREATE :
hdlginstance = ((CREATESTRUCT far *) MK_FP32((void*)lparam))->hInstance;
x = CharWidth * 22 + CharWidth / 2;
y = CharHeight * 3;
dy = CharHeight * 3;
dy += dy / 7;
/* create the check marks for the dice bitmaps, and the ROLL and
OK buttons */
for( i = 0; i < 5; i++, y += dy ) {
CreateWindow( "BUTTON", "", WS_CHILD|WS_VISIBLE|BS_CHECKBOX,
x, y, CharWidth, CharHeight, hwnd,
(HMENU)(IDW_DICE1+i),
hdlginstance,
NULL );
}
CreateWindow( "BUTTON", "ROLL", WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON,
x, CharHeight * 19, 9 * CharWidth / 2 ,
CharHeight * 2, hwnd, (HMENU)IDW_ROLL,
hdlginstance, NULL );
CreateWindow( "BUTTON", "OK", WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON,
x, 43 * CharHeight / 2, 9 * CharWidth / 2,
CharHeight * 2, hwnd, (HMENU)IDW_OK,
hdlginstance, NULL );
return( 0 );
case WMW_START_NEW_GAME :
dlg_proc = MakeProcInstance( (FARPROC)GetNumPlayersDialogProc, hdlginstance );
DialogBox( hdlginstance, "GetNumPlayers", hwnd, (DLGPROC)dlg_proc );
FreeProcInstance( dlg_proc );
dlg_proc = MakeProcInstance( (FARPROC)GetInitialsDialogProc, hdlginstance );
DialogBox( hdlginstance, "GetPlayersInitials", hwnd, (DLGPROC)dlg_proc );
FreeProcInstance( dlg_proc );
EnableWindow( GetDlgItem( hwnd, IDW_OK ), FALSE );
EnableWindow( GetDlgItem( hwnd, IDW_ROLL ), TRUE );
PlayingGameYet = TRUE;
InvalidateRect( hwnd, NULL, FALSE );
for( i = 0; i < NumberOfPlayers; i++ ) {
if( Player[i][IS_COMPUTER] ) break;
}
if( i < NumberOfPlayers && !GotTimer ) {
while( !SetTimer( hwnd, ID_TIMER, TIMER_INTERVAL, NULL ) ) {
if( MessageBox( hwnd, "Too many clocks or timers are active",
AppName, MB_ICONEXCLAMATION|MB_RETRYCANCEL ) == IDCANCEL ) {
DestroyWindow( hwnd );
return( 0 );
}
}
GotTimer = TRUE;
}
if( i == 0 ) {
PCTurn = TRUE;
EnableWindow( GetDlgItem( hwnd, IDW_ROLL ), FALSE );
}
hdc = GetDC( hwnd );
RollDice( hwnd, hdc );
GetDiceInfo();
ReleaseDC( hwnd, hdc );
// SetFocus( hwnd );
return( 0 );
case WM_COMMAND :
switch( LOWORD( wparam ) ) {
case IDM_NEWGAME :
if( GotTimer ) {
KillTimer( hwnd, ID_TIMER );
}
if( MessageBox( hwnd, "Start New Game: Are you sure?", "WATZEE",
MB_YESNO | MB_ICONEXCLAMATION ) == IDYES ) {
InitializeGameData();
InvalidateRect( hwnd, NULL, TRUE );
SendMessage( hwnd, WMW_START_NEW_GAME, 0, 0 );
} else if( GotTimer ) {
SetTimer( hwnd, ID_TIMER, TIMER_INTERVAL, NULL );
}
break;
case IDM_OPTIONS :
if( GotTimer ) {
KillTimer( hwnd, ID_TIMER );
}
dlg_proc = MakeProcInstance( (FARPROC)OptionsDialogProc, hdlginstance );
DialogBox( hdlginstance, "Options", hwnd, (DLGPROC)dlg_proc );
FreeProcInstance( dlg_proc );
if( GotTimer ) {
SetTimer( hwnd, ID_TIMER, TIMER_INTERVAL, NULL );
}
break;
case IDM_EXIT :
DestroyWindow( hwnd );
break;
case IDM_SCORING :
if( GotTimer ) {
KillTimer( hwnd, ID_TIMER );
}
dlg_proc = MakeProcInstance( (FARPROC)HelpDialogProc, hdlginstance );
DialogBox( hdlginstance, "WatzeeHelp", hwnd, (DLGPROC)dlg_proc );
FreeProcInstance( dlg_proc );
if( GotTimer ) {
SetTimer( hwnd, ID_TIMER, TIMER_INTERVAL, NULL );
}
break;
case IDM_ABOUT :
if( GotTimer ) {
KillTimer( hwnd, ID_TIMER );
}
dlg_proc = MakeProcInstance( (FARPROC)AboutDialogProc, hdlginstance );
DialogBox( hdlginstance, "AboutWatzee", hwnd, (DLGPROC)dlg_proc );
FreeProcInstance( dlg_proc );
if( GotTimer ) {
SetTimer( hwnd, ID_TIMER, TIMER_INTERVAL, NULL );
}
break;
case IDW_DICE1 :
case IDW_DICE2 :
case IDW_DICE3 :
case IDW_DICE4 :
case IDW_DICE5 :
if( !PCTurn && CurrentRoll < 2 ) {
SendMessage( hwnd, WMW_DIE_CHECK, wparam, 0 );
}
break;
case IDW_ROLL :
SendMessage( hwnd, WMW_ROLL, 0, 0 );
break;
case IDW_OK :
SendMessage( hwnd, WMW_OK, 0, 0 );
break;
}
return( 0 );
case WM_LBUTTONUP :
if( !PCTurn ) {
MAKE_POINT( point, lparam );
if( point.x > CharWidth * 24
&& point.y < CharHeight * 20 ) {
wparam = GetDieCheck( hwnd, point );
if( wparam && CurrentRoll < 2 ) {
SendMessage( hwnd, WMW_DIE_CHECK, wparam, 0 );
}
} else {
wparam = GetScoreCheck( point );
if( wparam && Player[CurrentPlayer][wparam] == UNDEFINED ) {
SendMessage( hwnd, WMW_SCORE_CHECK, wparam, 0 );
}
}
}
return( 0 );
case WMW_DIE_CHECK :
i = LOWORD( wparam ) - IDW_DICE1;
Dice[i].is_checked = !Dice[i].is_checked;
CheckDlgButton( hwnd, wparam, (BOOL)Dice[i].is_checked );
// SetFocus( hwnd );
return( 0 );
case WMW_SCORE_CHECK :
hdc = GetDC( hwnd );
if( wparam != LastScoreSelection ) {
DoScore( hdc, wparam );
EnableWindow( GetDlgItem( hwnd, IDW_OK ), TRUE );
}
ReleaseDC( hwnd, hdc );
// SetFocus( hwnd );
return( 0 );
case WMW_ROLL :
hdc = GetDC( hwnd );
if( DieCheckMeansRoll ) {
for( i = 0; i < 5; i++ ) {
if( Dice[i].is_checked ) break;
}
} else {
for( i = 0; i < 5; i++ ) {
if( !Dice[i].is_checked ) break;
}
}
if( i < 5 ) {
if( LastScoreSelection ) {
Player[CurrentPlayer][LastScoreSelection] = UNDEFINED;
WriteScore( hdc, CurrentPlayer, LastScoreSelection );
DoScoreTotals( hdc );
LastScoreSelection = 0;
}
got_watzee_bonus = FALSE;
CurrentRoll++;
RollDice( hwnd, hdc );
GetDiceInfo();
if( DiceInfo.got_watzee && Player[CurrentPlayer][WATZEE] == 50 ) {
got_watzee_bonus = TRUE;
}
if( CurrentRoll == 2 ) {
EnableWindow( GetDlgItem( hwnd, IDW_ROLL ), FALSE );
}
}
ReleaseDC( hwnd, hdc );
// SetFocus( hwnd );
return( 0 );
case WMW_OK :
hdc = GetDC( hwnd );
LastScoreSelection = 0;
if( got_watzee_bonus ) {
DoScore( hdc, WATZEE_BONUS );
LastScoreSelection = 0;
got_watzee_bonus = FALSE;
}
NextPlayer( hwnd, hdc );
ReleaseDC( hwnd, hdc );
// SetFocus( hwnd );
return( 0 );
case WMW_GAME_OVER :
hdc = GetDC( hwnd );
WriteScoreOptions( hdc );
ReleaseDC( hwnd, hdc );
if( GotTimer ) {
KillTimer( hwnd, ID_TIMER );
GotTimer = FALSE;
}
if( MessageBox( hwnd, "Another Game ?", "WATZEE", MB_YESNO ) == IDYES ) {
InitializeGameData();
InvalidateRect( hwnd, NULL, TRUE );
SendMessage( hwnd, WMW_START_NEW_GAME, 0, 0 );
} else {
DestroyWindow( hwnd );
}
return( 0 );
case WM_TIMER :
if( PCTurn ) {
PCPlay( hwnd );
}
return( 0 );
case WM_PAINT :
hdc = BeginPaint( hwnd, &ps );
DrawDice( hwnd, hdc );
DrawScoreCard( hdc );
WriteScoreOptions( hdc );
if( PlayingGameYet ) {
WriteInitials( hdc );
HighliteName( hdc, CurrentPlayer );
WriteScores( hdc );
}
EndPaint( hwnd, &ps );
return( 0 );
case WM_DESTROY :
{
HBITMAP hbm;
if( GotTimer ) {
KillTimer( hwnd, ID_TIMER );
}
for( i = 0; i < 6; i++ ) {
hbm = (HBITMAP)GetWindowLong( hwnd, i * sizeof( DWORD ) );
DeleteObject( hbm );
}
PostQuitMessage( 0 );
return( 0 );
}
}
return( DefWindowProc( hwnd, message, wparam, lparam ) );
}
