/**************************************************************************** Freecell.c June 91, JimH initial code Oct 91, JimH port to Win32 Main source module for Windows Free Cell. Contains WinMain, initialization routines, and MainWndProc. Design notes: Note that although this program uses some of the mapping macros, this version of the code is 32 bit only! See Wep2 sources for 16 bit sources. The current layout of the cards is kept in the array card[MAXCOL][MAXPOS]. In this scheme, column 0 is actually the top row. In this "column", pos 0 to 3 are the free cells, and 4 to 7 are the home cells. The other columns numbered 1 to 8 are the stacked card columns. See PaintMainWindow() for some details on changing the display for EGA. A previous version of Free Cell used a timer for multi-card moves. WM_FAKETIMER messages are now sent manually to accomplish the same thing. ****************************************************************************/ #include "freecell.h" #include "freecons.h" #include #include #include // for HtmlHelp() #include // for fusion classes. /* Registry strings -- do not translate */ CONST TCHAR pszRegPath[] = REGSTR_PATH_WINDOWSAPPLETS TEXT("\\FreeCell"); CONST TCHAR pszWon[] = TEXT("won"); CONST TCHAR pszLost[] = TEXT("lost"); CONST TCHAR pszWins[] = TEXT("wins"); CONST TCHAR pszLosses[] = TEXT("losses"); CONST TCHAR pszStreak[] = TEXT("streak"); CONST TCHAR pszSType[] = TEXT("stype"); CONST TCHAR pszMessages[] = TEXT("messages"); CONST TCHAR pszQuick[] = TEXT("quick"); CONST TCHAR pszDblClick[] = TEXT("dblclick"); CONST TCHAR pszAlreadyPlayed[] = TEXT("AlreadyPlayed"); #define WTSIZE 50 // window text size in characters void _setargv() { } // reduces size of C runtimes void _setenvp() { } /**************************************************************************** WinMain(HANDLE, HANDLE, LPSTR, int) ****************************************************************************/ MMain(hInstance, hPrevInstance, lpCmdLine, nCmdShow) /* { */ MSG msg; // message HANDLE hAccel; // LifeMenu accelerators if (!hPrevInstance) // Other instances of app running? if (!InitApplication(hInstance)) // Initialize shared things return FALSE; // Exits if unable to initialize if (!InitInstance(hInstance, nCmdShow)) return FALSE; hAccel = LoadAccelerators(hInstance, TEXT("FreeMenu")); while (GetMessage(&msg, NULL, 0, 0)) { if (!TranslateAccelerator(hMainWnd, hAccel, &msg)) { TranslateMessage(&msg); // Translates virtual key codes DispatchMessage(&msg); // Dispatches message to window } } DEBUGMSG(TEXT("---- Free Cell Terminated ----\n\r"),0); return (INT) msg.wParam; /* Returns the value from PostQuitMessage */ } /**************************************************************************** InitApplication(HANDLE hInstance) ****************************************************************************/ BOOL InitApplication(HANDLE hInstance) { WNDCLASS wc; HDC hIC; // information context INITCOMMONCONTROLSEX icc; // common control registration. DEBUGMSG(TEXT("---- Free Cell Initiated ----\n\r"),0); /* Check if monochrome */ hIC = CreateIC(TEXT("DISPLAY"), NULL, NULL, NULL); if (GetDeviceCaps(hIC, NUMCOLORS) == 2) { bMonochrome = TRUE; /* BrightPen is not so bright in mono. */ hBrightPen = CreatePen(PS_SOLID, 1, RGB( 0, 0, 0)); hBgndBrush = CreateSolidBrush(RGB(255, 255, 255)); } else { bMonochrome = FALSE; hBrightPen = CreatePen(PS_SOLID, 1, RGB(0, 255, 0)); hBgndBrush = CreateSolidBrush(RGB(0, 127, 0)); // green background } DeleteDC(hIC); // Create the freecell icon hIconMain = LoadIcon(hInstance, MAKEINTRESOURCE(ID_ICON_MAIN)); // Register the common controls. icc.dwSize = sizeof(INITCOMMONCONTROLSEX); icc.dwICC = ICC_ANIMATE_CLASS | ICC_BAR_CLASSES | ICC_COOL_CLASSES | ICC_HOTKEY_CLASS | ICC_LISTVIEW_CLASSES | ICC_PAGESCROLLER_CLASS | ICC_PROGRESS_CLASS | ICC_TAB_CLASSES | ICC_UPDOWN_CLASS | ICC_USEREX_CLASSES; InitCommonControlsEx(&icc); wc.style = CS_DBLCLKS; // allow double clicks wc.lpfnWndProc = MainWndProc; wc.cbClsExtra = 0; wc.cbWndExtra = 0; wc.hInstance = hInstance; wc.hIcon = hIconMain; wc.hCursor = NULL; wc.hbrBackground = hBgndBrush; wc.lpszMenuName = TEXT("FreeMenu"); wc.lpszClassName = TEXT("FreeWClass"); return RegisterClass(&wc); } /**************************************************************************** InitInstance(HANDLE hInstance, int nCmdShow) ****************************************************************************/ BOOL InitInstance(HANDLE hInstance, INT nCmdShow) { HWND hWnd; // Main window handle. UINT col, pos; INT nWindowHeight; UINT wAlreadyPlayed; // have we already updated the registry ? UINT cTLost, cTWon; // total losses and wins UINT cTLosses, cTWins; // streaks UINT wStreak; // current streak amount UINT wSType; // current streak type LONG lRegResult; // used to store return code from registry call if (!hBrightPen || !hBgndBrush) return FALSE; /* Initialize some global variables */ for (col = 0; col < MAXCOL; col++) // clear the deck for (pos = 0; pos < MAXPOS; pos++) card[col][pos] = EMPTY; hInst = hInstance; cWins = 0; cLosses = 0; cGames = 0; cUndo = 0; gamenumber = 0; // so no cards are drawn in main wnd oldgamenumber = 0; // this is first game and will count hMenuFont = 0; bWonState = FALSE; bGameInProgress = FALSE; bCheating = FALSE; bFastMode = FALSE; bFlipping = FALSE; pszIni = TEXT("entpack.ini"); bDblClick = TRUE; bMessages = FALSE; /* for VGA or smaller, window will just fit inside screen */ nWindowHeight = min(WINHEIGHT, GetSystemMetrics(SM_CYSCREEN)); /* Create a main window for this application instance. */ LoadString(hInst, IDS_APPNAME, smallbuf, SMALL); hWnd = CreateWindow( TEXT("FreeWClass"), // See RegisterClass() call. smallbuf, // Text for window title bar. WS_OVERLAPPEDWINDOW, // Window style. CW_USEDEFAULT, // Default horizontal position. CW_USEDEFAULT, // Default vertical position. WINWIDTH, // width. nWindowHeight, // height. NULL, // Overlapped windows have no parent. NULL, // Use the window class menu. hInstance, // This instance owns this window. NULL // Pointer not needed. ); /* If window could not be created, return "failure" */ if (!hWnd) return FALSE; hMainWnd = hWnd; /* Make the window visible; update its client area; and return "success" */ ShowWindow(hWnd, nCmdShow); // Show the window UpdateWindow(hWnd); // Sends WM_PAINT message // Do the transfer of stats from the .ini file to the // registry (for people migrating from NT 4.0 freecell to NT 5.0) lRegResult = REGOPEN if (ERROR_SUCCESS == lRegResult) { wAlreadyPlayed = GetInt(pszAlreadyPlayed, 0); // If this is the first time we are playing // update the registry with the stats from the .ini file. if (!wAlreadyPlayed) { LoadString(hInst, IDS_APPNAME, bigbuf, BIG); // Read the stats from the .ini file. (if present) // If we can't read the stats, default value is zero. cTLost = GetPrivateProfileInt(bigbuf, TEXT("lost"), 0, pszIni); cTWon = GetPrivateProfileInt(bigbuf, TEXT("won"), 0, pszIni); cTLosses = GetPrivateProfileInt(bigbuf, TEXT("losses"), 0, pszIni); cTWins = GetPrivateProfileInt(bigbuf, TEXT("wins"), 0, pszIni); wStreak = GetPrivateProfileInt(bigbuf, TEXT("streak"), 0, pszIni); wSType = GetPrivateProfileInt(bigbuf, TEXT("stype"), 0, pszIni); // Copy the stats from the .ini file to the registry. SetInt(pszLost, cTLost); SetInt(pszWon, cTWon); SetInt(pszLosses, cTLosses); SetInt(pszWins, cTWins); SetInt(pszStreak, wStreak); SetInt(pszSType, wSType); // Set the already-played flag to 1. SetInt(pszAlreadyPlayed, 1); } REGCLOSE; } return TRUE; // Returns the value from PostQuitMessage } /**************************************************************************** MainWndProc(HWND, unsigned, UINT, LONG) ****************************************************************************/ LRESULT APIENTRY MainWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam) { INT i; // generic counter int nResp; // messagebox response UINT col, pos; UINT wCheck; // for checking IDM_MESSAGES menu item HDC hDC; POINT FAR *MMInfo; // for GetMinMaxInfo HBRUSH hOldBrush; RECT rect; HMENU hMenu; static BOOL bEatNextMouseHit = FALSE; // is next hit only for activation? switch (message) { case WM_COMMAND: switch (GET_WM_COMMAND_ID(wParam, lParam)) { case IDM_ABOUT: LoadString(hInst, IDS_FULLNAME, bigbuf, BIG); LoadString(hInst, IDS_CREDITS, smallbuf, SMALL); ShellAbout(hWnd, (LPCTSTR)bigbuf, (LPCTSTR)smallbuf, hIconMain); break; case IDM_EXIT: SendMessage(hWnd, WM_CLOSE, 0, 0); break; case IDM_NEWGAME: lParam = GenerateRandomGameNum(); case IDM_SELECT: case IDM_RESTART: if (bGameInProgress) { LoadString(hInst, IDS_RESIGN, bigbuf, BIG); LoadString(hInst, IDS_APPNAME, smallbuf, SMALL); MessageBeep(MB_ICONQUESTION); if (IDNO == MessageBox(hWnd, bigbuf, smallbuf, MB_YESNO | MB_ICONQUESTION)) { break; } UpdateLossCount(); } if (wParam == IDM_RESTART) { if (bGameInProgress) lParam = gamenumber; else lParam = oldgamenumber; } else if (wParam == IDM_SELECT) lParam = 0L; if (wParam == IDM_NEWGAME) bSelecting = FALSE; else if (wParam == IDM_SELECT) bSelecting = TRUE; bGameInProgress = FALSE; wFromCol = EMPTY; // no FROM selected wMouseMode = FROM; // FROM selected next moveindex = 0; // no queued moves for (i = 0; i < 4; i++) // nothing in home cells { homesuit[i] = EMPTY; home[i] = EMPTY; } ShuffleDeck(hWnd, lParam); if (gamenumber == CANCELGAME) break; InvalidateRect(hWnd, NULL, TRUE); wCardCount = 52; bGameInProgress = TRUE; hMenu = GetMenu(hWnd); EnableMenuItem(hMenu, IDM_RESTART, MF_ENABLED); DisplayCardCount(hWnd); hDC = GetDC(hWnd); DrawKing(hDC, RIGHT, FALSE); bWonState = FALSE; ReleaseDC(hWnd, hDC); break; case IDM_STATS: DialogBox(hInst, TEXT("Stats"), hWnd, StatsDlg); break; case IDM_OPTIONS: DialogBox(hInst, MAKEINTRESOURCE(DLG_OPTIONS), hWnd, OptionsDlg); break; case IDM_HELP: HtmlHelpA(GetDesktopWindow(), GetHelpFileName(), HH_DISPLAY_TOPIC, 0); break; case IDM_HOWTOPLAY: HtmlHelpA(GetDesktopWindow(), GetHelpFileName(), HH_DISPLAY_INDEX, 0); break; case IDM_HELPONHELP: HtmlHelpA(GetDesktopWindow(), "NTHelp.chm", HH_DISPLAY_TOPIC, 0); break; case IDM_UNDO: Undo(hWnd); break; /* Hidden options -- these strings need not be translated */ case IDM_CHEAT: i = MessageBox(hWnd, TEXT("Choose Abort to Win,\n") TEXT("Retry to Lose,\nor Ignore to Cancel."), TEXT("User-Friendly User Interface"), MB_ABORTRETRYIGNORE | MB_ICONQUESTION); if (i == IDABORT) bCheating = CHEAT_WIN; else if (i == IDRETRY) bCheating = CHEAT_LOSE; else bCheating = FALSE; break; default: return DefWindowProc(hWnd, message, wParam, lParam); } break; case WM_CLOSE: if (bGameInProgress) // did user quit mid-game? { LoadString(hInst, IDS_APPNAME, smallbuf, SMALL); LoadString(hInst, IDS_RESIGN, bigbuf, BIG); MessageBeep(MB_ICONQUESTION); nResp = MessageBox(hWnd, bigbuf, smallbuf, MB_YESNO | MB_ICONQUESTION); if (nResp == IDNO) break; UpdateLossCount(); } WriteOptions(); return DefWindowProc(hWnd, message, wParam, lParam); case WM_CREATE: WMCreate(hWnd); break; case WM_DESTROY: if (hBgndBrush) DeleteObject(hBgndBrush); if (hBrightPen) DeleteObject(hBrightPen); if (hBM_Fgnd) DeleteObject(hBM_Fgnd); if (hBM_Bgnd1) DeleteObject(hBM_Bgnd1); if (hBM_Bgnd2) DeleteObject(hBM_Bgnd2); if (hBM_Ghost) DeleteObject(hBM_Ghost); if (hMenuFont) DeleteObject(hMenuFont); cdtTerm(); PostQuitMessage(0); break; case WM_PAINT: PaintMainWindow(hWnd); break; case WM_SIZE: DrawMenuBar(hWnd); // fixes overlapping score on menu xOldLoc = 30000; // force cards left to redraw DisplayCardCount(hWnd); // must update if size changes break; /***** NOTE: WM_LBUTTONDBLCLK falls through to WM_LBUTTONDOWN ****/ /* Double clicking works by simulating a move to a free cell. On the off cycle (that is, when wMouseMode == FROM) the double click is processed as a single click to cancel the move, and a second double click message is posted. */ case WM_LBUTTONDBLCLK: if (moveindex != 0) // no mouse hit while cards moving break; if (gamenumber == 0) break; if (bFlipping) break; if (bDblClick && wFromCol > TOPROW && wFromCol < MAXCOL) { if (wMouseMode == TO) { Point2Card(LOWORD(lParam), HIWORD(lParam), &col, &pos); if (col == wFromCol) if (ProcessDoubleClick(hWnd)) // if card moved ok break; } else PostMessage(hWnd, message, wParam, lParam); } case WM_LBUTTONDOWN: if (bEatNextMouseHit) // is this only window activation? { bEatNextMouseHit = FALSE; break; } bEatNextMouseHit = FALSE; if (bFlipping) // cards flipping for keyboard players break; if (moveindex != 0) // no mouse hit while cards moving break; if (gamenumber == 0) break; if (wMouseMode == FROM) SetFromLoc(hWnd, LOWORD(lParam), HIWORD(lParam)); else ProcessMoveRequest(hWnd, LOWORD(lParam), HIWORD(lParam)); break; case WM_RBUTTONDOWN: SetCapture(hWnd); if (bFlipping) break; if (gamenumber != 0) RevealCard(hWnd, LOWORD(lParam), HIWORD(lParam)); break; case WM_RBUTTONUP: ReleaseCapture(); RestoreColumn(hWnd); break; case WM_MOUSEACTIVATE: // app is being activated, if (LOWORD(lParam) == HTCLIENT) // so don't try new cell on bEatNextMouseHit = TRUE; // clicked location break; case WM_MOUSEMOVE: SetCursorShape(hWnd, LOWORD(lParam), HIWORD(lParam)); break; case WM_MOVE: // card count erases when moved DisplayCardCount(hWnd); return (DefWindowProc(hWnd, message, wParam, lParam)); case WM_GETMINMAXINFO: if (GetSystemMetrics(SM_CXSCREEN) > 640) // skip if VGA { MMInfo = (POINT FAR *) lParam; // see SDK ref if (MMInfo[4].x > WINWIDTH) MMInfo[4].x = WINWIDTH; // set max window width to 640 } else return DefWindowProc(hWnd, message, wParam, lParam); break; case WM_CHAR: if (!bFlipping) KeyboardInput(hWnd, (UINT) wParam); break; case WM_TIMER: // flash main window if (wParam == FLASH_TIMER) Flash(hWnd); else Flip(hWnd); break; default: // Passes it on if unproccessed return DefWindowProc(hWnd, message, wParam, lParam); } return 0; } /**************************************************************************** WMCreate Handles WM_CREATE message in main window. ****************************************************************************/ VOID WMCreate(HWND hWnd) { BOOL bResult; // result of cards.dll initialization HDC hDC; HDC hMemDC; HBITMAP hOldBitmap; HBRUSH hOldBrush; HPEN hOldPen; /* initialize cards.dll */ bResult = cdtInit(&dxCrd, &dyCrd); CalcOffsets(hWnd); hDC = GetDC(hWnd); hMemDC = CreateCompatibleDC(hDC); hBM_Fgnd = CreateCompatibleBitmap(hDC, dxCrd, dyCrd); hBM_Bgnd1 = CreateCompatibleBitmap(hDC, dxCrd, dyCrd); hBM_Bgnd2 = CreateCompatibleBitmap(hDC, dxCrd, dyCrd); hBM_Ghost = CreateCompatibleBitmap(hDC, dxCrd, dyCrd); if (hBM_Ghost) // if memory allocation succeeded { hOldBitmap = SelectObject(hMemDC, hBM_Ghost); hOldBrush = SelectObject(hMemDC, hBgndBrush); PatBlt(hMemDC, 0, 0, dxCrd, dyCrd, PATCOPY); hOldPen = SelectObject(hMemDC, GetStockObject(BLACK_PEN)); MoveToEx(hMemDC, 0, dyCrd-2, NULL); LineTo(hMemDC, 0, 0); LineTo(hMemDC, dxCrd-1, 0); SelectObject(hMemDC, hBrightPen); MoveToEx(hMemDC, dxCrd-1, 1, NULL); LineTo(hMemDC, dxCrd-1, dyCrd-1); LineTo(hMemDC, 0, dyCrd-1); SelectObject(hMemDC, hOldPen); SelectObject(hMemDC, hOldBitmap); SelectObject(hMemDC, hOldBrush); } DeleteDC(hMemDC); ReleaseDC(hWnd, hDC); if (!bResult || !hBM_Fgnd || !hBM_Bgnd1 || !hBM_Bgnd2) { LoadString(hInst, IDS_MEMORY, bigbuf, BIG); LoadString(hInst, IDS_APPNAME, smallbuf, SMALL); MessageBeep(MB_ICONHAND); MessageBox(hWnd, bigbuf, smallbuf, MB_OK | MB_ICONHAND); PostQuitMessage(0); return; } ReadOptions(); CreateMenuFont(); } /**************************************************************************** CreateMenuFont Makes a copy of the menu font and puts the handle in hMenuFont ****************************************************************************/ VOID CreateMenuFont() { LOGFONT lf; // description of menu font NONCLIENTMETRICS ncm; hMenuFont = 0; ncm.cbSize = sizeof(ncm); if (!SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(ncm), &ncm, 0)) return; lf.lfHeight = (int)ncm.lfMenuFont.lfHeight; lf.lfWidth = (int)ncm.lfMenuFont.lfWidth; lf.lfEscapement = (int)ncm.lfMenuFont.lfEscapement; lf.lfOrientation = (int)ncm.lfMenuFont.lfOrientation; lf.lfWeight = (int)ncm.lfMenuFont.lfWeight; lf.lfItalic = ncm.lfMenuFont.lfItalic; lf.lfUnderline = ncm.lfMenuFont.lfUnderline; lf.lfStrikeOut = ncm.lfMenuFont.lfStrikeOut; lf.lfCharSet = ncm.lfMenuFont.lfCharSet; lf.lfOutPrecision = ncm.lfMenuFont.lfOutPrecision; lf.lfClipPrecision = ncm.lfMenuFont.lfClipPrecision; lf.lfQuality = ncm.lfMenuFont.lfQuality; lf.lfPitchAndFamily = ncm.lfMenuFont.lfPitchAndFamily; lstrcpyn(lf.lfFaceName, ncm.lfMenuFont.lfFaceName, LF_FACESIZE); hMenuFont = CreateFontIndirect(&lf); }