VC写的人机对战的四子棋（对弈算法用中文脚本语言）

#include "pch.h" #include "ConnectFour.h" #include "ChessFourBoardCanvas.h" #include "SlotScriptCoreLoader.h" #define ID_BUTTON_UNDO 0x0001 #define ID_BUTTON_RESET 0x0002 #define ID_BUTTON_SCRIPT 0x0003 using namespace SlotScript; BOOL WINAPI script_call_WriteMessage(ISlotScriptHost* lpSender, const IObjectBase* lpLocalArray, TVariantData& Result) { CStringA str; CChessFourBoardCanvas* lpChessBoard = (CChessFourBoardCanvas*)lpSender; if (lpLocalArray->GetCount() == 1) { TVariantData varMessage = lpLocalArray->GetVariantValue(0); if (varMessage.dwClassID >= SLOTSCRIPT_CLASSID_OBJECT) { str += varMessage.Value.lpObject->GetString(); str += "\r\n"; } } else if (lpLocalArray->GetCount() == 2) { for (int i = 0; i < 8; i++) { for (int j = 0; j < 8; j++) { str.AppendFormat("%d", lpChessBoard->m_ChessCells[j][i]); } str += "\r\n"; } TVariantData varMessage = lpLocalArray->GetVariantValue(0); if (varMessage.dwClassID >= SLOTSCRIPT_CLASSID_OBJECT) { str += varMessage.Value.lpObject->GetString(); str += "\r\n"; str += "\r\n"; } } return TRUE; } CStringArray arrayLogs; BOOL WINAPI script_call_ShowMessage(ISlotScriptHost* lpSender, const IObjectBase* lpLocalArray, TVariantData& Result) { if (lpLocalArray->GetCount() == 1) { TVariantData varMessage = lpLocalArray->GetVariantValue(0); if (varMessage.dwClassID >= SLOTSCRIPT_CLASSID_OBJECT) { arrayLogs.Add(varMessage.Value.lpObject->GetString()); return TRUE; } } else if (lpLocalArray->GetCount() == 2) { TVariantData varCol = lpLocalArray->GetVariantValue(0); TVariantData varMessage = lpLocalArray->GetVariantValue(1); if (varCol.dwClassID == SLOTSCRIPT_CLASSID_INT64 && varMessage.dwClassID >= SLOTSCRIPT_CLASSID_OBJECT) { CString strTabs; for (int i = 0; i < varCol.Value.lValue; i++) { strTabs += _T(" "); } arrayLogs.Add(strTabs + varMessage.Value.lpObject->GetString()); return TRUE; } } return FALSE; } //虚拟下棋 BOOL WINAPI CChessFourBoardCanvas::call_ChessBoard_PlayTries(ISlotScriptHost* lpSender, const IObjectBase* lpLocalArray, TVariantData& Result) { CChessFourBoardCanvas* lpChessBoard = (CChessFourBoardCanvas*)lpSender; if (lpLocalArray->GetCount() == 3) { TVariantData varCol = lpLocalArray->GetVariantValue(0); TVariantData varStep = lpLocalArray->GetVariantValue(1); TVariantData varValue = lpLocalArray->GetVariantValue(2); if (varCol.dwClassID == SLOTSCRIPT_CLASSID_INT64 && varStep.dwClassID == SLOTSCRIPT_CLASSID_INT64 && varValue.dwClassID >= SLOTSCRIPT_CLASSID_OBJECT) { if (varCol.Value.lValue >= 0 && varCol.Value.lValue < 7 && varStep.Value.lValue < 120) { const CString strValue = varValue.Value.lpObject->GetString(); Result = CreateVariantData(lpChessBoard->PlayTries(varCol.Value.lValue, varStep.Value.lValue * 2 + (strValue == _T("人") ? 3 : 4))); return TRUE; } } } return FALSE; } //清除虚拟下棋 BOOL WINAPI CChessFourBoardCanvas::call_ChessBoard_ClearTries(ISlotScriptHost* lpSender, const IObjectBase* lpLocalArray, TVariantData& Result) { CChessFourBoardCanvas* lpChessBoard = (CChessFourBoardCanvas*)lpSender; if (lpLocalArray->GetCount() == 2) { TVariantData varStep = lpLocalArray->GetVariantValue(0); TVariantData varValue = lpLocalArray->GetVariantValue(1); if (varStep.dwClassID == SLOTSCRIPT_CLASSID_INT64 && varValue.dwClassID >= SLOTSCRIPT_CLASSID_OBJECT) { if (varStep.Value.lValue < 100) { const CString strValue = varValue.Value.lpObject->GetString(); lpChessBoard->ClearTries(varStep.Value.lValue * 2 + (strValue == _T("人") ? 3 : 4)); return TRUE; } } } return FALSE; } //读棋子 BOOL WINAPI CChessFourBoardCanvas::call_ChessBoard_Cell(ISlotScriptHost* lpSender, const IObjectBase* lpLocalArray, TVariantData& Result) { if (lpLocalArray->GetCount() == 2) { TVariantData ValueCol = lpLocalArray->GetVariantValue(0); TVariantData ValueRow = lpLocalArray->GetVariantValue(1); if (ValueRow.dwClassID == SLOTSCRIPT_CLASSID_INT64 && ValueCol.dwClassID == SLOTSCRIPT_CLASSID_INT64) { if ((ValueRow.Value.lValue >= 0 && ValueRow.Value.lValue) < 6 && (ValueCol.Value.lValue >= 0 && ValueCol.Value.lValue < 7)) { CChessFourBoardCanvas* lpChessBoard = (CChessFourBoardCanvas*)lpSender; BYTE Value = lpChessBoard->m_ChessCells[ValueCol.Value.lValue][ValueRow.Value.lValue]; Result = ::CreateString(Value == 0 ? _T("空") : ((Value % 2) == 1 ? _T("人") : _T("机"))); return TRUE; } Result = ::CreateString(_T("错")); return TRUE; } } return FALSE; } inline BOOL isChessCentre(const CPoint& ptCentre, float fRadius, int x, int y) { return (x - ptCentre.x) * (x - ptCentre.x) + (y - ptCentre.y) * (y - ptCentre.y) < fRadius * fRadius; } void CopyRectCover(Gdiplus::Bitmap* lpSrc, Gdiplus::Bitmap* lpDest, int x0, int y0, int x1, int y1, int nWidth, int nHeight) { for (int y = 0; y < nHeight; y++) { for (int x = 0; x < nWidth; x++) { Gdiplus::Color color; lpSrc->GetPixel(x0 + x, y0 + y, &color); lpDest->SetPixel(x1 + x, y1 + y, color); } } } void CopyRectAlpha(Gdiplus::Bitmap* lpSrc, Gdiplus::Bitmap* lpDest, int x0, int y0, int x1, int y1, int nWidth, int nHeight) { for (int y = 0; y < nHeight; y++) { for (int x = 0; x < nWidth; x++) { Gdiplus::Color color; lpSrc->GetPixel(x0 + x, y0 + y, &color); if (min(color.GetR(), min(color.GetG(), color.GetB())) < 0xFF) { lpDest->SetPixel(x1 + x, y1 + y, color); } } } } const int ButtonWidth = 70; const int ButtonHeight = 26; CChessFourBoardCanvas::CChessFourBoardCanvas(CSlotScriptHost* lpSlotScriptHost, IHost* lpHost, LPCTSTR lpszDataPath) :CChessBoardCanvas(lpSlotScriptHost, lpHost, lpszDataPath), m_lpBitmapRed(NULL), m_lpBitmapBlue(NULL), m_isRed(FALSE), m_btnUndo(ID_BUTTON_UNDO, 520, 500, ButtonWidth, ButtonHeight, _T("悔 棋")), m_btnReset(ID_BUTTON_RESET, 520 + ButtonWidth + 10, 500, ButtonWidth, ButtonHeight, _T("重下一局")), m_btnScript(ID_BUTTON_SCRIPT, 520 + (ButtonWidth + 10) * 2, 500, ButtonWidth, ButtonHeight, _T("对弈算法")) { srand(time(NULL)); m_lpImageResourceBoard = new CImageResource(NULL, CHESSFOUR_BOARD); m_lpImageResourceChess = new CImageResource(NULL, CHESSFOUR_CHESS); m_nButtonCount = 0; m_lpButtons[m_nButtonCount++] = &m_btnUndo; m_lpButtons[m_nButtonCount++] = &m_btnReset; m_lpButtons[m_nButtonCount++] = &m_btnScript; this->AddMethodProcess(_T("棋子"), _T("cell"), call_ChessBoard_Cell); this->AddMethodProcess(_T("虚拟下子"), _T("PlayTries"), call_ChessBoard_PlayTries); this->AddMethodProcess(_T("清除虚拟下子"), _T("ClearTries"), call_ChessBoard_ClearTries); this->AddMethodProcess(_T("写日志"), _T("writemessage"), script_call_WriteMessage); this->AddMethodProcess(_T("显示日志"), _T("showmessage"), script_call_ShowMessage); CPoint ChessCentres[8][8] = { {CPoint(178, 120), CPoint(252, 120), CPoint(329, 120), CPoint(400, 120), CPoint(477, 120), CPoint(553, 120), CPoint(629, 120), CPoint(-99, -99)}, {CPoint(178, 182), CPoint(252, 182), CPoint(329, 182), CPoint(400, 182), CPoint(476, 182), CPoint(552, 182), CPoint(626, 182), CPoint(-99, -99)}, {CPoint(179, 245), CPoint(253, 245), CPoint(327, 245), CPoint(400, 245), CPoint(475, 245), CPoint(550, 245), CPoint(625, 245), CPoint(-99, -99)}, {CPoint(179, 308), CPoint(253, 308), CPoint(329, 308), CPoint(400, 308), CPoint(474, 308), CPoint(550, 308), CPoint(625, 308), CPoint(-99, -99)}, {CPoint(180, 369), CPoint(256, 369), CPoint(330, 369), CPoint(400, 369), CPoint(473, 369), CPoint(549, 369), CPoint(624, 369), CPoint(-99, -99)}, {CPoint(178, 432), CPoint(253, 431), CPoint(332, 430), CPoint(401, 430), CPoint(472, 430), CPoint(550, 432), CPoint(625, 431), CPoint(-99, -99)},