Microsoft/Windows2003-3790
Microsoft/Windows2003-3790
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
50969b0ea2
Windows2003-3790/windows/advcore/gdiplus/test/reversi/reversi.cpp

1583 lines
45 KiB
C++
Raw Normal View History

First commit
2001-01-01 00:00:00 +01:00
/****************************************************************************/
/* */
/* Windows Reversi - */
/* */
/* Originally written by Chris Peters */
/* */
/****************************************************************************/
#include <stddef.h>
#include <stdlib.h>
#include <stdio.h>
#include <objbase.h>
#include <windows.h>
#include <math.h>
#include <float.h>
#include "windows.h"
#include <port1632.h>
#include <process.h>
#include <stdlib.h>
#include "reversi.h"
#include <gdiplus.h>
using namespace Gdiplus;
/* Exported procedures called from other modules */
LRESULT APIENTRY ReversiWndProc(HWND, UINT, WPARAM, LPARAM);
VOID APIENTRY InverseMessage(HWND, UINT, UINT_PTR, DWORD);
INT_PTR APIENTRY AboutDlgProc(HWND, UINT, WPARAM, LPARAM);
PWSTR pDisplayMessage;
Brush *brBlack;
Brush *brPat;
Brush *brWhite;
Brush *brRed;
Brush *brGreen;
Brush *brBlue;
Brush *brHuman;
Brush *brComputer;
HBRUSH hbrWhite;
HBRUSH hbrGreen;
HANDLE hInst;
HANDLE curIllegal;
HANDLE curLegal;
HANDLE curThink;
HANDLE curBlank;
BOOL fThinking = FALSE;
BOOL fCheated = FALSE;
INT direc[9] = {9, 10, 11, 1, -1, -9, -10, -11, 0};
WORD prevCheck;
BYTE board[max_depth+2][BoardSize];
INT fPass;
INT flashtimes;
INT count;
INT MessageOn;
INT charheight;
INT charwidth;
INT xscr;
WCHAR strBuf[80];
BOOL bMouseDownInReversi = FALSE;
INT xExt;
INT yExt;
INT Bx;
INT By;
INT ASPECT;
INT COLOR;
INT TXMIN;
INT TYMIN = 45;
INT dimension;
BOOL ffirstmove;
WCHAR szReversi[20];
WCHAR szReversiPractice[40];
WCHAR szPass[30];
WCHAR szMustPass[30];
WCHAR szTie[30];
WCHAR szLoss[30];
WCHAR szWon[30];
WCHAR szWonPost[30];
WCHAR szLossPost[30];
WCHAR szAbout[20];
WCHAR szIllegal[70];
WCHAR szNoPass[70];
WCHAR szHelpFile[15];
HANDLE hAccel;
POINT MousePos;
INT depth;
INT BestMove[max_depth+2];
HDC hDisp;
HWND hWin;
Graphics *g;
INT moves[61] = {11,18,81,88, 13,31,16,61,
38,83,68,86, 14,41,15,51,
48,84,58,85, 33,36,63,66,
34,35,43,46, 53,56,64,65,
24,25,42,47, 52,57,74,75,
23,26,32,37, 62,67,73,76,
12,17,21,28, 71,78,82,87,
22,27,72,77,
0};
INT NEAR PASCAL minmax(BYTE b[max_depth + 2][100], INT move, INT friendly,
INT enemy, INT ply, INT vmin, INT vmax);
VOID NEAR PASCAL makemove(BYTE b[], INT move, INT friendly, INT enemy);
INT NEAR PASCAL legalcheck(BYTE b[], INT move, INT friendly, INT enemy);
/*--------------------------------------------------------------------------*/
/* */
/* UpdateCursor() - */
/* */
/*--------------------------------------------------------------------------*/
/* To use UpdateCursor, set the global var MousePos.x and MousePos.y and make
* the call. The cursor will appear at the new position
*/
VOID NEAR PASCAL UpdateCursor(
HWND hwnd)
{
POINT curpoint;
curpoint.x = MousePos.x;
curpoint.y = MousePos.y;
ClientToScreen(hwnd, (LPPOINT)&curpoint);
SetCursorPos(curpoint.x, curpoint.y);
}
/*--------------------------------------------------------------------------*/
/* */
/* checkdepth() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL checkdepth(
HWND hWindow,
WORD d)
{
HMENU hMenu;
hMenu = GetMenu(hWindow);
CheckMenuItem(hMenu, prevCheck, MF_UNCHECKED);
CheckMenuItem(hMenu, d, MF_CHECKED);
prevCheck = d;
}
/*--------------------------------------------------------------------------*/
/* */
/* clearboard() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL clearboard(
BYTE b[max_depth+2][BoardSize])
{
register INT i,j;
INT k;
for (i=0; i<=max_depth ; i++)
for (j=0 ; j<=99 ; j++)
b[i][j] = edge;
for (i=0 ; i<=max_depth ; i++)
{
for (j=11 ; j<=81 ; j=j+10)
for (k=j ; k<j+8 ; k++)
b[i][k] = empty;
b[i][45]=computer;
b[i][54]=computer;
b[i][44]=human;
b[i][55]=human;
}
}
/*--------------------------------------------------------------------------*/
/* */
/* RevCreate() - */
/* */
/*--------------------------------------------------------------------------*/
/* Called on WM_CREATE messages. */
VOID NEAR PASCAL RevCreate(
register HWND hWindow)
{
register HDC hDC;
TEXTMETRIC charsize; /* characteristics of the characters */
MessageOn = FALSE;
hDC = GetDC(hWindow);
GetTextMetrics(hDC, (LPTEXTMETRIC)&charsize);
charheight = charsize.tmHeight;
charwidth = charsize.tmAveCharWidth;
ReleaseDC(hWindow, hDC);
if (COLOR == TRUE)
{
brComputer = brBlue;
brHuman = brRed;
}
else
{
brComputer = brBlack;
brHuman = brWhite;
}
TXMIN = 45 * ASPECT;
clearboard(board);
/* Okay to pass on first move */
fPass = PASS;
depth = 1;
prevCheck = EASY;
ffirstmove = TRUE;
checkdepth(hWindow, prevCheck);
}
/*--------------------------------------------------------------------------*/
/* */
/* printboard() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL printboard(
BYTE b[max_depth+2][BoardSize])
{
register INT i,j;
INT sq;
for (i=0; i < 8; i++)
{
for (j=0; j < 8; j++)
{
if ((sq = (INT)b[0][i*10+j+11]) != empty)
{
Brush *brush;
if (sq == computer)
brush = brComputer;
else
brush = brHuman;
g->FillEllipse(brush,
Bx+2*ASPECT+i*xExt,
By+2+j*yExt,
xExt-4*ASPECT,
yExt-4);
}
}
}
}
/*--------------------------------------------------------------------------*/
/* */
/* ClearMessageTop() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL ClearMessageTop(
Graphics *graphics)
{
if (MessageOn == TRUE)
{
flashtimes = count + 1;
graphics->FillRectangle((COLOR) ? brGreen : brWhite, 0, 0, xscr, charheight);
MessageOn = FALSE;
}
}
/*--------------------------------------------------------------------------*/
/* */
/* ShowMessageTop() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL ShowMessageTop(
Graphics *graphics,
PWSTR string
)
{
INT dx;
pDisplayMessage = string;
ClearMessageTop(graphics);
RectF rect(0, 0, xscr, charheight);
graphics->FillRectangle(brWhite, rect);
Font font((HFONT)NULL);
graphics->DrawStringI((LPWSTR)string,
NULL,
0,
0,
NULL, 0,
brBlue);
MessageOn = TRUE;
}
/*--------------------------------------------------------------------------*/
/* */
/* drawboard() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL drawboard(
BYTE b[max_depth+2][BoardSize])
{
register INT i;
INT lcx,lcy;
register INT xdimension;
INT xLineExt,yLineExt;
yLineExt = 8 * yExt;
xLineExt = 8 * xExt;
xdimension = dimension * ASPECT;
g->FillRectangle(brBlack, Bx+2*xdimension, By+2*dimension, xLineExt, yLineExt);
g->FillRectangle(brPat, Bx, By, xLineExt, yLineExt);
for (i=Bx; i <= Bx + xLineExt; i += xExt)
g->FillRectangle(brGreen, i, By, ASPECT, yLineExt);
for (i=By; i <= By + yLineExt; i += yExt)
g->FillRectangle(brGreen, Bx, i, xLineExt, 1);
lcx = Bx+xLineExt;
lcy = By+yLineExt;
for (i=1; i < xdimension; ++i)
g->FillRectangle(brPat, lcx+i, By+i/ASPECT, 1, yLineExt);
/* Fill in bottom edge of puzzle. */
for (i=1; i < dimension; ++i)
g->FillRectangle(brPat, Bx+i*ASPECT, lcy+i, xLineExt, 1);
Pen pen(brBlack, 1.0f, UnitWorld);
g->DrawLine(&pen, lcx, By, lcx+xdimension, By+dimension);
g->DrawLine(&pen, lcx+xdimension, By+dimension, lcx+xdimension, lcy+dimension);
g->DrawLine(&pen, lcx+xdimension, lcy+dimension, Bx+xdimension, lcy+dimension);
g->DrawLine(&pen, Bx+xdimension, lcy+dimension, Bx, lcy);
g->DrawLine(&pen, lcx+xdimension, lcy+dimension, lcx, lcy);
printboard(b);
}
/*--------------------------------------------------------------------------*/
/* */
/* RevPaint() - */
/* */
/*--------------------------------------------------------------------------*/
/* Called on WM_PAINT messages. */
VOID NEAR PASCAL RevPaint(
HWND hWindow,
Graphics *graphics)
{
register INT Tx, Ty;
INT xLineExt, yLineExt;
RECT lpSize;
/* Since it is easy to resize we'll do it on every repaint */
g = graphics;
hWin = hWindow;
//SetBkMode(hDisp, OPAQUE);
GetClientRect(hWindow, (LPRECT)&lpSize);
xscr = Tx = lpSize.right - lpSize.left;
Ty = lpSize.bottom - lpSize.top;
/* Dont go below minimum size */
if (Tx < Ty*ASPECT)
{
if (Tx < TXMIN)
Tx = TXMIN;
xExt = Tx / (9 + 1);
yExt = xExt / ASPECT;
}
else
{
if (Ty < TYMIN)
Ty = TYMIN;
yExt = Ty / (9 + 1);
xExt = yExt * ASPECT;
}
yLineExt = 8 * yExt;
xLineExt = 8 * xExt;
dimension = yLineExt/30;
Bx = (Tx > xLineExt) ? (Tx - xLineExt) / 2 : 0;
By = (Ty > yLineExt) ? (Ty - yLineExt) / 2 : 0;
RECT rect;
GetClientRect(hWindow, &rect);
g->FillRectangle(brWhite,
rect.left,
rect.top,
rect.right-rect.left,
rect.bottom-rect.top);
drawboard(board);
if (MessageOn)
{
ShowMessageTop(graphics, pDisplayMessage);
//PatBlt(hDC, 0, 0, xscr, charheight, DSTINVERT);
}
}
/*--------------------------------------------------------------------------*/
/* */
/* FlashMessageTop() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL FlashMessageTop(
HWND hWindow)
{
flashtimes = 0;
count = 4;
SetTimer(hWindow, 666, 200, InverseMessage); /* Timer ID is 666 */
}
/*--------------------------------------------------------------------------*/
/* */
/* RevMessage() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL RevMessage(
HWND hWindow,
Graphics *graphics,
register WCHAR *pS,
INT n,
WCHAR *pchPostStr)
{
register WCHAR *pch;
pch = strBuf;
while (*pS)
*pch++ = *pS++;
if (n)
{
if (n / 10)
*pch++ = (CHAR)(n / 10 + L'0');
*pch++ = (CHAR)(n % 10 + L'0');
}
if (pchPostStr)
{
while (*pchPostStr)
*pch++ = *pchPostStr++;
}
*pch = L'\0';
ShowMessageTop(graphics, strBuf);
FlashMessageTop(hWindow);
}
/*--------------------------------------------------------------------------*/
/* */
/* flashsqr() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL flashsqr(
register Graphics *graphics,
INT x1,
INT y1,
INT Ex,
INT Ey,
INT color,
BOOL fBlankSquare,
INT n)
{
register INT i;
// !! ??
// if (fBlankSquare)
// SelectObject(hDC, GetStockObject(NULL_PEN));
SetCursor((HICON)curBlank);
for (i=0; i < n; ++i)
{
if (color == 1)
color = 2;
else
color = 1;
Brush *brush;
if (color == 1)
brush = brComputer;
else
brush = brHuman;
graphics->FillEllipse(brush, x1, y1, Ex, Ey);
}
if (fBlankSquare)
{
graphics->FillEllipse(brPat, x1, y1, Ex, Ey);
}
else
SetCursor((HICON)curThink);
}
/*--------------------------------------------------------------------------*/
/* */
/* RevMouseMove() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL RevMouseMove(
POINT point)
{
INT move;
INT Si, Sj;
INT yLineExt = 8 * yExt;
INT xLineExt = 8 * xExt;
HANDLE cur;
MousePos.x = point.x;
MousePos.y = point.y;
if(xExt ==0 || yExt == 0)
return;
cur = curIllegal;
if ((point.x > Bx) && (point.x < (Bx+xLineExt)) && (point.y > By) && (point.y < (By+yLineExt)))
{
Si = (point.x - Bx) / xExt;
Sj = (point.y - By) / yExt;
move = Si * 10 + Sj + 11;
if (legalcheck(board[0], move, human, computer))
cur = curLegal;
}
SetCursor((HICON)cur);
}
/*--------------------------------------------------------------------------*/
/* */
/* ShowBestMove() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL ShowBestMove(
HWND hwnd)
{
HDC hdc;
INT sq;
register INT x, y;
INT *pMoves;
BOOL bDone;
if (fPass == PASS && !ffirstmove)
return;
if (!fCheated)
SetWindowText(hwnd, (LPWSTR)szReversiPractice);
fCheated = TRUE;
SetCursor((HICON)curThink);
fThinking = TRUE;
if (ffirstmove)
{
/* HACK: Hardcode the first move hint. */
x = 4;
y = 2;
}
else
{
if (depth == 1)
{
bDone = FALSE;
pMoves = moves;
sq = *pMoves;
while (!bDone)
{
sq = *pMoves;
if (legalcheck(board[0], sq, human, computer))
bDone = TRUE;
else
pMoves++;
}
y = (sq - 11) % 10;
x = (sq - 11) / 10;
}
else
{
minmax(board, BestMove[0], computer, human, 1, -infin, infin);
y = (BestMove[1] - 11) % 10;
x = (BestMove[1] - 11) / 10;
}
}
MousePos.x = (x * xExt) + Bx + xExt/2;
MousePos.y = (y * yExt) + By + yExt/2;
UpdateCursor(hwnd);
Graphics graphics(hwnd);
x = x * xExt + Bx + 2 * ASPECT;
y = y * yExt + By + 2;
flashsqr(&graphics, x, y, xExt - 4 * ASPECT, yExt - 4, computer, TRUE, 3);
fThinking = FALSE;
RevMouseMove(MousePos);
}
/*--------------------------------------------------------------------------*/
/* */
/* gameover() - */
/* */
/*--------------------------------------------------------------------------*/
/* Find a human reply to the computers move.
* As a side effect set flag fPass if the human
* has a legal move.
*/
VOID NEAR PASCAL gameover(
register HWND hWindow,
Graphics *g,
BYTE b[max_depth + 2][BoardSize],
INT r)
{
register INT i;
INT cc;
INT hc;
INT sq;
INT reply2;
INT *pMoves;
pMoves = moves;
fPass = PASS;
reply2 = PASS;
while ((sq = *pMoves++) != 0)
{
if (legalcheck(b[0], sq, human, computer))
fPass = sq;
else if (legalcheck(b[0], sq, computer, human))
reply2 = sq;
}
if (fPass == PASS)
{
if ((r == PASS) || (reply2 == PASS))
{
hc = 0;
cc = 0;
for (i=11; i <= 88; i++)
{
if (b[0][i] == human)
hc++;
else if (b[0][i] == computer)
cc++;
}
if (hc > cc)
RevMessage(hWindow, g, szWon, hc-cc, szWonPost);
else if (hc < cc)
RevMessage(hWindow, g, szLoss, cc-hc, szLossPost);
else
RevMessage(hWindow, g, szTie, 0, NULL);
}
else
{
RevMessage(hWindow, g, szMustPass, 0, NULL);
}
}
else if (r == PASS)
{
RevMessage(hWindow, g, szPass, 0, NULL);
}
}
/*--------------------------------------------------------------------------*/
/* */
/* paintmove() - */
/* */
/*--------------------------------------------------------------------------*/
/* Make a move and show the results. */
VOID NEAR PASCAL paintmove(
BYTE b[BoardSize],
INT move,
INT friendly,
INT enemy)
{
INT d;
INT sq;
INT *p;
register INT i,j;
INT color;
if (move != PASS)
{
Brush *brush;
if (friendly == computer)
{
brush = brComputer;
color = 1;
}
else
{
brush = brHuman;
color = 2;
}
i = ((move - 11) / 10) * xExt + Bx + 2 * ASPECT;
j = ((move - 11) % 10) * yExt + By + 2;
Pen pen(brush, 1.0f, UnitWorld);
g->DrawEllipse(&pen, i, j, xExt - 4 * ASPECT, yExt - 4);
flashsqr(g, i, j, xExt - 4 * ASPECT, yExt - 4, color, FALSE, 4);
p = direc;
while ((d = *p++) != 0)
{
sq=move;
if (b[sq += d] == enemy)
{
while(b[sq += d] == enemy)
;
if (b[sq] == (BYTE)friendly)
{
while(b[sq -= d] == enemy)
{
board[0][sq] = b[sq] = friendly;
i = ((sq - 11)/10)*xExt+Bx+2*ASPECT;
j = ((sq - 11)%10)*yExt+By+2;
g->FillEllipse(brush, i, j, xExt-4*ASPECT, yExt-4);
}
}
}
}
b[move]=friendly;
}
}
/*--------------------------------------------------------------------------*/
/* */
/* RevMenu() - */
/* */
/*--------------------------------------------------------------------------*/
/* Called on WM_COMMAND messages. */
VOID NEAR PASCAL RevMenu(
register HWND hWindow,
INT idval)
{
HDC hDC;
register INT cmd;
if (fThinking)
return;
hWin = hWindow;
switch (idval)
{
case EXIT:
PostMessage(hWindow, WM_CLOSE, 0, 0L);
break;
case MN_HELP_ABOUT:
DialogBox((HINSTANCE)hInst, MAKEINTRESOURCE(3), hWindow, AboutDlgProc);
break;
case MN_HELP_INDEX:
//TEMPFIX WinHelp(hWindow, (LPSTR)szHelpFile, HELP_INDEX, 0L);
break;
case MN_HELP_USINGHELP:
//TEMPFIX WinHelp(hWindow, (LPSTR)NULL, HELP_HELPONHELP, 0L);
break;
case MN_HELP_KEYBOARD:
cmd = 0x1e;
goto HelpCommon;
case MN_HELP_COMMANDS:
cmd = 0x20;
goto HelpCommon;
case MN_HELP_PLAYING:
cmd = 0x21;
goto HelpCommon;
case MN_HELP_RULES:
cmd = 0x22;
HelpCommon:
//TEMPFIX WinHelp(hWindow, (LPSTR)szHelpFile, HELP_CONTEXT, (DWORD)cmd);
break;
case HINT:
ShowBestMove(hWindow);
return;
break;
case NEW:
SetWindowText(hWindow , (LPWSTR)szReversi);
ffirstmove = TRUE;
g = new Graphics(hWindow);
fCheated = FALSE;
ClearMessageTop(g);
fPass = PASS;
clearboard(board);
drawboard(board);
delete g;
g = NULL;
break;
case EASY:
depth = 1; /* MUST BE AT LEAST 1. */
checkdepth(hWindow, EASY); /* KEEP HANDS OFF! */
break;
case MEDIUM:
depth = 2;
checkdepth(hWindow, MEDIUM);
break;
case HARD:
depth = 4;
checkdepth(hWindow, HARD);
break;
case VHARD:
depth = 6;
checkdepth(hWindow, VHARD);
break;
case PASS:
if (fPass == PASS)
{
g = new Graphics(hWindow);
fThinking = TRUE;
ClearMessageTop(g);
SetCursor((HICON)curThink);
delete g;
g = NULL;
minmax(board, PASS, human, computer, 0, -infin, infin);
g = new Graphics(hWindow);
paintmove(board[0], BestMove[0], (BYTE)computer, (BYTE)human);
gameover(hWindow, g, board, BestMove[0]);
SetCursor((HICON)curIllegal);
fThinking = FALSE;
delete g;
g = NULL;
}
else
MessageBox(hWindow, (LPWSTR)szNoPass, (LPWSTR)szReversi, MB_OK | MB_ICONASTERISK);
break;
}
}
/*--------------------------------------------------------------------------*/
/* */
/* msgcheck() - */
/* */
/*--------------------------------------------------------------------------*/
/* Called by ASM routine to allow other tasks to run. */
BOOL NEAR PASCAL msgcheck()
{
MSG msg;
if (PeekMessage((LPMSG)&msg, NULL, 0, 0, TRUE))
{
if (msg.message == WM_QUIT)
exit(0);
if (TranslateAccelerator(msg.hwnd, (HACCEL)hAccel, (LPMSG)&msg) == 0)
{
TranslateMessage((LPMSG)&msg);
DispatchMessage((LPMSG)&msg);
}
return(TRUE);
}
return(FALSE);
}
/*--------------------------------------------------------------------------*/
/* */
/* RevInit() - */
/* */
/*--------------------------------------------------------------------------*/
BOOL NEAR PASCAL RevInit(
HANDLE hInstance)
{
register PWNDCLASS pRevClass;
HDC hdc;
static INT rgpat[] = { 170, 85, 170, 85, 170, 85, 170, 85 };
brWhite = new SolidBrush(Color::White);
brBlack = new SolidBrush(Color::Black);
Bitmap *bmdel = new Bitmap(8, 8, 4, PIXFMT_1BPP_INDEXED, (BYTE*)rgpat);
brPat = new TextureBrush((Bitmap *)bmdel);
if (!brPat)
return(FALSE);
delete bmdel;
ffirstmove = TRUE;
hdc = GetDC((HWND)NULL);
COLOR = GetDeviceCaps(hdc, NUMCOLORS) > 2;
if (GetDeviceCaps(hdc, VERTRES) == 200)
ASPECT = 2;
else
ASPECT = 1;
ReleaseDC((HWND)NULL, hdc);
brRed = new SolidBrush(Color::Red);
brGreen = new SolidBrush(Color::Green);
brBlue = new SolidBrush(Color::Blue);
LOGBRUSH logbrush;
logbrush.lbStyle = BS_SOLID;
logbrush.lbColor = Color::White;
logbrush.lbHatch = 0;
hbrWhite = CreateBrushIndirect(&logbrush);
logbrush.lbColor = Color::Green;
hbrGreen = CreateBrushIndirect(&logbrush);
if (!brRed || !brGreen || !brBlue || !hbrWhite || !hbrGreen)
return(FALSE);
LoadStringW((HINSTANCE)hInstance, 3, (LPWSTR)szReversi, 20);
LoadStringW((HINSTANCE)hInstance, 4, (LPWSTR)szReversiPractice, 40);
LoadStringW((HINSTANCE)hInstance, 5, (LPWSTR)szPass, 30);
LoadStringW((HINSTANCE)hInstance, 6, (LPWSTR)szMustPass, 30);
LoadStringW((HINSTANCE)hInstance, 7, (LPWSTR)szTie, 30);
LoadStringW((HINSTANCE)hInstance, 8, (LPWSTR)szLoss, 30);
LoadStringW((HINSTANCE)hInstance, 9, (LPWSTR)szWon, 30);
LoadStringW((HINSTANCE)hInstance, 10, (LPWSTR)szAbout, 20);
LoadStringW((HINSTANCE)hInstance, 11, (LPWSTR)szLossPost, 30);
LoadStringW((HINSTANCE)hInstance, 12, (LPWSTR)szWonPost, 30);
LoadStringW((HINSTANCE)hInstance, 13, (LPWSTR)szIllegal, 70);
LoadStringW((HINSTANCE)hInstance, 14, (LPWSTR)szNoPass, 70);
LoadStringW((HINSTANCE)hInstance, 15, (LPWSTR)szHelpFile, 15);
hAccel = LoadAccelerators((HINSTANCE)hInstance, (LPWSTR)"MAINACC");
pRevClass = (PWNDCLASS)((CHAR *)LocalAlloc(LMEM_ZEROINIT, sizeof(WNDCLASS)));
if (!pRevClass)
return(FALSE);
curLegal = LoadCursorW(NULL, IDC_CROSS);
curIllegal = LoadCursorW(NULL, IDC_ARROW);
curThink = LoadCursorW(NULL, IDC_WAIT);
curBlank = LoadCursorW((HINSTANCE)hInstance, MAKEINTRESOURCE(1));
if (!curLegal || !curIllegal || !curThink || !curBlank)
return(FALSE);
pRevClass->hIcon = LoadIcon((HINSTANCE)hInstance, MAKEINTRESOURCE(3));
pRevClass->lpszClassName = (LPWSTR)"Reversi";
pRevClass->hbrBackground = ((COLOR) ? hbrGreen : hbrWhite);
pRevClass->lpfnWndProc = ReversiWndProc;
pRevClass->lpszMenuName = MAKEINTRESOURCE(1);
pRevClass->hInstance = (HINSTANCE)hInstance;
pRevClass->style = CS_VREDRAW | CS_HREDRAW | CS_BYTEALIGNCLIENT;
if (!RegisterClass((LPWNDCLASS)pRevClass))
{
LocalFree((HANDLE)pRevClass);
return(FALSE);
}
LocalFree((HANDLE)pRevClass);
return(TRUE);
}
/*--------------------------------------------------------------------------*/
/* */
/* RevMouseClick() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL RevMouseClick(
HWND hWnd,
POINT point)
{
INT move;
INT Si, Sj;
INT yLineExt = 8 * yExt;
INT xLineExt = 8 * xExt;
HDC hDC;
MousePos.x = point.x;
MousePos.y = point.y;
if (xExt == 0 || yExt == 0)
return;
if ((point.x > Bx) && (point.x < (Bx+xLineExt)) && (point.y > By) && (point.y < (By+yLineExt)))
{
Si = (point.x - Bx) / xExt;
Sj = (point.y - By) / yExt;
move = Si * 10 + Sj + 11;
if (legalcheck(board[0], move, human, computer))
{
board[0][move] = human;
ffirstmove = FALSE;
fThinking = TRUE;
SetCursor((HICON)curThink);
Graphics *gtemp;
gtemp = g = new Graphics(hWnd);
ClearMessageTop(g);
minmax(board, move, human, computer, 0, -infin, infin);
makemove(board[0], move, human, computer);
g = gtemp;
paintmove(board[0], BestMove[0], computer, human);
gameover(hWnd, g, board, BestMove[0]);
delete g;
g = NULL;
SetCursor((HICON)curIllegal);
fThinking = FALSE;
}
else
MessageBox(hWnd, (LPWSTR)szIllegal, (LPWSTR)szReversi, MB_OK | MB_ICONASTERISK);
}
}
/*--------------------------------------------------------------------------*/
/* */
/* Next() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL Next(
register INT *px,
register INT *py)
{
(*px)++;
if (*px > 7)
{
*px = 0;
(*py)++;
if (*py > 7)
*py = 0;
}
}
/*--------------------------------------------------------------------------*/
/* */
/* Previous() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL Previous(
register INT *px,
register INT *py)
{
(*px)--;
if (*px < 0)
{
*px = 7;
(*py)--;
if (*py < 0)
*py = 7;
}
}
/*--------------------------------------------------------------------------*/
/* */
/* ShowNextMove() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL ShowNextMove(
HWND hwnd,
BOOL fforward)
{
INT x, y;
INT potentialmove;
BOOL done;
/* What out for infinite loops. */
if (fPass == PASS && !ffirstmove)
return;
x = (MousePos.x - Bx) / xExt;
y = (MousePos.y - By) / yExt;
done = FALSE;
while (!done)
{
do
{
if (fforward)
Next(&x, &y);
else
Previous(&x, &y);
}
while ((board[0][potentialmove = (x * 10 + y + 11)]) != empty);
fThinking = TRUE;
if (legalcheck(board[0], potentialmove, human, computer))
done = TRUE;
fThinking = FALSE;
}
MousePos.x = x * xExt + Bx + xExt / 2;
MousePos.y = y * yExt + By + yExt / 2;
UpdateCursor(hwnd);
RevMouseMove(MousePos);
}
/*--------------------------------------------------------------------------*/
/* */
/* RevChar() - */
/* */
/*--------------------------------------------------------------------------*/
VOID NEAR PASCAL RevChar(
HWND hwnd,
register WORD code)
{
INT a;
POINT curpoint;
curpoint.x = curpoint.y = 1;
switch (code)
{
case 0x27:
MousePos.x += xExt;
break;
case 0x28:
MousePos.y += yExt;
break;
case 0x25:
curpoint.x = (MousePos.x - Bx)/xExt;
MousePos.x -= xExt;
break;
case 0x26:
curpoint.y = (MousePos.y - By)/yExt;
MousePos.y -= yExt;
break;
case 0x24:
curpoint.y = (MousePos.y - By)/yExt;
curpoint.x = (MousePos.x - Bx)/xExt;
MousePos.y -= yExt;
MousePos.x -= xExt;
break;
case 0x21:
curpoint.y = (MousePos.y - By)/yExt;
MousePos.y -= yExt;
MousePos.x += xExt;
break;
case 0x23:
curpoint.x = (MousePos.x - Bx)/xExt;
MousePos.y += yExt;
MousePos.x -= xExt;
break;
case 0x22:
MousePos.y += yExt;
MousePos.x += xExt;
break;
case 0x0020:
case 0x000D:
if (!fThinking)
RevMouseClick(hwnd, MousePos);
return;
case 0x0009:
if (fThinking)
break;
if (GetKeyState(VK_SHIFT) < 0)
ShowNextMove(hwnd, FALSE); /* look backwards */
else
ShowNextMove(hwnd, TRUE); /* look forwards */
return;
default:
return;
}
if (((a = ((MousePos.x - Bx) / xExt)) >7) || a <= 0)
MousePos.x = Bx + xExt / 2; /* wrap around horizontally */
if (a > 8 || (curpoint.x == 0 && a == 0))
MousePos.x = (7*xExt) + Bx + xExt / 2 ;
if ( ((a = ((MousePos.y - By) / yExt)) >7) || a <= 0)
MousePos.y = By + yExt / 2;
if ( a > 8 || (curpoint.y == 0 && a == 0))
MousePos.y = (7*yExt) + By + yExt / 2;
MousePos.x = ((MousePos.x - Bx) / xExt) * xExt + Bx + xExt / 2;
MousePos.y = ((MousePos.y - By) / yExt) * yExt + By + yExt / 2;
UpdateCursor(hwnd);
RevMouseMove(MousePos);
}
/*--------------------------------------------------------------------------*/
/* */
/* InverseMessage() - */
/* */
/*--------------------------------------------------------------------------*/
VOID APIENTRY InverseMessage(
register HWND hWindow,
UINT message,
UINT_PTR wParam,
DWORD lParam)
{
HDC hDC;
message;
wParam;
lParam;
if (flashtimes <= count)
{
// !! THIS STILL NEEDS WORK: How to do Inversion?
//Graphics graphics(hWindow);
// graphics.FillRectangle(hDC, 0, 0, xscr, charheight, DSTINVERT);
// flashtimes++;
// ReleaseDC(hWindow, hDC);
}
else
KillTimer(hWindow, 666);
return;
}
/*--------------------------------------------------------------------------*/
/* */
/* ReversiWndProc() - */
/* */
/*--------------------------------------------------------------------------*/
LRESULT APIENTRY ReversiWndProc(
HWND hWnd,
register UINT message,
WPARAM wParam,
LPARAM lParam)
{
HMENU hm;
PAINTSTRUCT ps;
POINT curpoint;
switch (message)
{
case WM_COMMAND:
RevMenu(hWnd, GET_WM_COMMAND_ID(wParam, lParam));
break;
case WM_INITMENU: /* disable the menu if thinking */
hm = GetMenu(hWnd);
if (fThinking)
{
EnableMenuItem(hm, 0, MF_DISABLED | MF_BYPOSITION);
EnableMenuItem(hm, 1, MF_DISABLED | MF_BYPOSITION);
}
else
{
EnableMenuItem(hm, 0, MF_ENABLED | MF_BYPOSITION);
EnableMenuItem(hm, 1, MF_ENABLED | MF_BYPOSITION);
}
break;
case WM_CREATE:
RevCreate(hWnd);
hWin = hWnd;
break;
case WM_CLOSE:
if (hDisp)
ReleaseDC(hWnd, hDisp);
return(DefWindowProc(hWnd, message, wParam, lParam));
case WM_DESTROY:
if (MGetModuleUsage(hInst) == 1)
{
delete brGreen;
delete brPat;
delete brRed;
delete brBlue;
}
/* In case WinHelp keys off hWindow, we need to do the HELP_QUIT
* here instead of when there is just one instance of help...
*/
//TEMPFIX WinHelp(hWnd, (LPSTR)szHelpFile, HELP_QUIT, 0L);
PostQuitMessage(0);
break;
case WM_KEYDOWN:
if (IsIconic(hWnd))
return 0L;
RevChar(hWnd, (WORD)wParam);
break;
case WM_ACTIVATE:
if (!GetSystemMetrics(SM_MOUSEPRESENT))
{
if (GET_WM_ACTIVATE_STATE(wParam, lParam))
{
if (GET_WM_ACTIVATE_HWND(wParam, lParam) != hWnd)
{
curpoint.x = MousePos.x;
curpoint.y = MousePos.y;
ClientToScreen(hWnd, (LPPOINT)&curpoint);
SetCursorPos(curpoint.x, curpoint.y);
RevMouseMove(MousePos);
ShowCursor(GET_WM_ACTIVATE_STATE(wParam, lParam));
}
}
else
ShowCursor((BOOL) wParam);
}
if (wParam && (!HIWORD(lParam)))
SetFocus(hWnd);
break;
case WM_PAINT:
BeginPaint(hWnd, (LPPAINTSTRUCT)&ps);
{
Graphics graphics(ps.hdc);
RECT rect;
GetClientRect(hWnd, &rect);
RectF rectf(rect.left,
rect.top,
rect.right-rect.left,
rect.bottom-rect.top);
graphics.SetClip(rectf);
RevPaint(hWnd, &graphics);
}
EndPaint(hWnd, (LPPAINTSTRUCT)&ps);
break;
case WM_MOUSEMOVE:
{
POINT pt;
LONG2POINT(lParam, pt); /* convert LONG lParam to POINT structure*/
if (!fThinking)
#ifdef ORGCODE
RevMouseMove(MAKEPOINT(lParam));
#else
RevMouseMove(pt);
#endif
else
SetCursor((HICON)curThink);
break;
}
case WM_LBUTTONDOWN:
SetCapture(hWnd);
bMouseDownInReversi = TRUE;
break;
case WM_LBUTTONUP:
{
POINT pt;
LONG2POINT(lParam, pt); /* convert LONG lParam to POINT structure*/
ReleaseCapture();
if (!fThinking && bMouseDownInReversi)
#ifdef ORGCODE
RevMouseClick(hWnd, MAKEMPOINT(lParam));
#else
RevMouseClick(hWnd, pt);
#endif
bMouseDownInReversi = FALSE;
break;
}
case WM_TIMER:
/* This should never be called. */
break;
case WM_VSCROLL:
case WM_HSCROLL:
break;
default:
return(DefWindowProc(hWnd, message, wParam, lParam));
break;
}
return(0L);
}
/*--------------------------------------------------------------------------*/
/* */
/* AboutDlgProc() */
/* */
/*--------------------------------------------------------------------------*/
INT_PTR APIENTRY AboutDlgProc(
HWND hDlg,
UINT message,
WPARAM wParam,
LPARAM lParam)
{
if (message == WM_COMMAND)
{
EndDialog(hDlg, TRUE);
return(TRUE);
}
if (message == WM_INITDIALOG)
return(TRUE);
else
return(FALSE);
UNREFERENCED_PARAMETER(wParam);
UNREFERENCED_PARAMETER(lParam);
}
/*--------------------------------------------------------------------------*/
/* */
/* WinMain() - */
/* */
/*--------------------------------------------------------------------------*/
MMain(hInstance, hPrev, lpszCmdLine, cmdShow) /* { */
HWND hWnd;
MSG msg;
_argc;
_argv;
hInst = hInstance;
if (!hPrev)
{
if (!RevInit(hInstance))
return(FALSE);
}
else
{
if (fThinking)
return FALSE;
#ifdef WIN16
GetInstanceData(hPrev, (PSTR)&hbrBlack, sizeof(HBRUSH));
GetInstanceData(hPrev, (PSTR)&hbrPat, sizeof(HBRUSH));
GetInstanceData(hPrev, (PSTR)&hbrWhite, sizeof(HBRUSH));
GetInstanceData(hPrev, (PSTR)&hbrRed, sizeof(HBRUSH));
GetInstanceData(hPrev, (PSTR)&hbrBlue, sizeof(HBRUSH));
GetInstanceData(hPrev, (PSTR)&hbrGreen, sizeof(HBRUSH));
GetInstanceData(hPrev, (PSTR)&hbrComputer, sizeof(HBRUSH));
GetInstanceData(hPrev, (PSTR)&hbrHuman, sizeof(HBRUSH));
GetInstanceData(hPrev, (PSTR)&curIllegal, sizeof(HCURSOR));
GetInstanceData(hPrev, (PSTR)&curLegal, sizeof(HCURSOR));
GetInstanceData(hPrev, (PSTR)&curThink, sizeof(HCURSOR));
GetInstanceData(hPrev, (PSTR)&curBlank, sizeof(HCURSOR));
GetInstanceData(hPrev, (PSTR)&prevCheck, sizeof(prevCheck));
GetInstanceData(hPrev, (PSTR)&depth, sizeof(depth));
GetInstanceData(hPrev, (PSTR)direc, sizeof(direc));
GetInstanceData(hPrev, (PSTR)moves, sizeof(moves));
GetInstanceData(hPrev, (PSTR)szReversi, 20);
GetInstanceData(hPrev, (PSTR)szReversiPractice, 40);
GetInstanceData(hPrev, (PSTR)szPass, 10);
GetInstanceData(hPrev, (PSTR)szMustPass, 20);
GetInstanceData(hPrev, (PSTR)szTie, 15);
GetInstanceData(hPrev, (PSTR)szLoss, 15);
GetInstanceData(hPrev, (PSTR)szWon, 15);
GetInstanceData(hPrev, (PSTR)szAbout, 20);
GetInstanceData(hPrev, (PSTR)&COLOR, sizeof(INT));
GetInstanceData(hPrev, (PSTR)&ASPECT, sizeof(INT));
GetInstanceData(hPrev, (PSTR)&hAccel, 2);
GetInstanceData(hPrev, (PSTR)szIllegal, 70);
GetInstanceData(hPrev, (PSTR)szNoPass, 70);
GetInstanceData(hPrev, (PSTR)szHelpFile, 15);
#endif /* WIN16 */
}
TYMIN = 45;
fThinking = FALSE;
hWnd = CreateWindow((LPWSTR) "Reversi",
fCheated ? (LPWSTR)szReversiPractice : (LPWSTR)szReversi,
WS_TILEDWINDOW,
CW_USEDEFAULT,
0,
(GetSystemMetrics(SM_CXSCREEN) >> 1),
(GetSystemMetrics(SM_CYSCREEN) * 4 / 5),
(HWND)NULL,
(HMENU)NULL,
(HINSTANCE)hInstance,
NULL);
if (!hWnd)
return(FALSE);
ShowWindow(hWnd, cmdShow);
UpdateWindow(hWnd);
/* Messaging Loop. */
while (GetMessage((LPMSG)&msg, NULL, 0, 0))
{
if (!TranslateAccelerator(msg.hwnd, (HACCEL)hAccel, (LPMSG)&msg))
{
TranslateMessage((LPMSG)&msg);
DispatchMessage((LPMSG)&msg);
}
}
return(0);
}
Reference in New Issue Copy Permalink