Initial commit

engines/bagel/hodjnpodj/barbershop/logic.cpp

@@ -0,0 +1,315 @@
+/* ScummVM - Graphic Adventure Engine
+ *
+ * ScummVM is the legal property of its developers, whose names
+ * are too numerous to list here. Please refer to the COPYRIGHT
+ * file distributed with this source distribution.
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ */
+
+#include "bagel/hodjnpodj/hnplibs/stdafx.h"
+#include "bagel/hodjnpodj/barbershop/logic.h"
+
+namespace Bagel {
+namespace HodjNPodj {
+namespace Barbershop {
+
+/*****************************************************************
+ *
+ * Logic
+ *
+ * FUNCTIONAL DESCRIPTION:
+ *
+ *  Destructor
+ *
+ * FORMAL PARAMETERS:
+ *
+ *  n/a
+ *
+ * IMPLICIT INPUT PARAMETERS:
+ *
+ *  n/a
+ *
+ * IMPLICIT OUTPUT PARAMETERS:
+ *
+ *  n/a
+ *
+ * RETURN VALUE:
+ *
+ *  n/a
+ *
+ ****************************************************************/
+CLogic::CLogic() {
+}
+
+/*****************************************************************
+ *
+ * ~Logic
+ *
+ * FUNCTIONAL DESCRIPTION:
+ *
+ *  Destructor
+ *
+ * FORMAL PARAMETERS:
+ *
+ *  n/a
+ *
+ * IMPLICIT INPUT PARAMETERS:
+ *
+ *  n/a
+ *
+ * IMPLICIT OUTPUT PARAMETERS:
+ *
+ *  n/a
+ *
+ * RETURN VALUE:
+ *
+ *  n/a
+ *
+ ****************************************************************/
+CLogic::~CLogic() {
+}
+
+/*****************************************************************
+ *
+ * IsMoveOk
+ *
+ * FUNCTIONAL DESCRIPTION:
+ *
+ *  Destructor
+ *
+ * FORMAL PARAMETERS:
+ *
+ *  n/a
+ *
+ * IMPLICIT INPUT PARAMETERS:
+ *
+ *  n/a
+ *
+ * IMPLICIT OUTPUT PARAMETERS:
+ *
+ *  n/a
+ *
+ * RETURN VALUE:
+ *
+ *  n/a
+ *
+ ****************************************************************/
+bool CLogic::IsMoveOk(CCard *pCard, CStack *pStack) {
+	CCard *pTopCard;
+
+	switch (pStack->GetID()) {
+
+	case fnd:       // foundation rules
+		if (pCard->IsFace() == true)
+			return true;
+		if (pStack->IsEmpty() == true)
+			return false;
+
+		pTopCard = pStack->Top();
+		if (pTopCard->IsManicurist() == true)
+			return true;
+
+		if (
+		    pTopCard->IsCustomer() == true &&
+		    pCard->GetPip() == ONE_CARD
+		)
+			return true;
+
+		if (
+		    pTopCard->IsBarber() == true &&
+		    pCard->GetPip() == TEN_CARD
+		)
+			return true;
+
+		if (pTopCard->GetPip() == ONE_CARD) {
+			if (pCard->GetPip() == TWO_CARD) {
+				return true;
+			} else {
+				return false;
+			}
+		}
+
+		if (pTopCard->GetPip() == TEN_CARD) {
+			if (pCard->GetPip() == NINE_CARD) {
+				return true;
+			} else {
+				return false;
+			}
+		}
+
+		if (
+		    (
+		        pTopCard->GetPip() == (pCard->GetPip() + 1) ||
+		        pTopCard->GetPip() == (pCard->GetPip() - 1)
+		    ) &&
+		    pTopCard->IsFace() == false
+		)
+			return true;
+
+		return false;
+
+	case stock:
+		return false;
+	case used:
+		return false;
+	default:        // tab
+		if (pStack->IsEmpty() == true) {     // empty space on tab?
+			if (        // yes - source card from stack with other face cards?
+			    pCard->m_pStack->GetID() >= tab &&
+			    pCard->m_pStack->GetID() < stock &&
+			    pCard->m_pPrevCard != nullptr &&
+			    pCard->m_pPrevCard->m_bIsBack == true
+			)
+				return true;                // this is a valid move
+			if (        // yes - source card from stock?
+			    pCard->m_pStack->GetID() == used
+			)
+				return true;                // this is a valid move
+			return false;
+		}
+
+		if (
+		    pStack->IsEmpty() == true &&
+		    pCard->m_pStack->GetID() >= tab &&
+		    pCard->m_pStack->GetID() < stock &&
+		    pCard->m_pPrevCard != nullptr &&
+		    pCard->m_pPrevCard->m_bIsBack == true
+		)                   // when there's an empty space on the tab
+			return true;
+
+
+		pTopCard = pStack->Top();
+		if (pCard == pTopCard)   // card back on it's own stack?
+			return false;           // yes, illegal
+
+		if (pTopCard->m_bIsBack == true)
+			return false;
+
+		if (
+		    pTopCard->IsManicurist() == true &&
+		    pCard->IsManicurist() == true
+		)
+			return true;
+
+		if (pTopCard->GetPip() == pCard->GetPip()) {
+			if (pCard->m_pStack->GetID() == used)            // Card from used stack?
+				return true;                                // yes - acceptable move
+			if (pCard->m_pPrevCard == nullptr)              // anything under cur card?
+				return true;                                // no
+			if (pCard->m_pPrevCard->m_bIsBack == true)   // card under cur card a card back?
+				return true;                                // yes
+			return false;
+		}
+
+		return false;
+	}
+}
+
+bool CLogic::IsGameOver(CBoard *pBoard) {
+	CStack  *pFnd;
+	CCard   *pCard;
+	int     i, j;
+
+	pFnd = pBoard->GetStack((loc) fnd);
+	if (pFnd->Size() == DECK)        // All cards on foundation?
+		return true;                // Yes
+
+	/******************************************************
+	* Check all combinations of tableau to tableau moves. *
+	******************************************************/
+	for (i = tab; i < stock; i++) {
+		if ((pCard = pBoard->GetStack((loc) i)->Top()) == nullptr)
+			continue;
+
+		if (pCard->m_bIsBack == true)
+			return false;
+
+		for (j = tab; j < stock; j++) {
+			if (pCard->m_pStack == pBoard->GetStack((loc) j))
+				continue;
+			if (IsMoveOk(pCard, pBoard->GetStack((loc) j)) == true)
+				return false;
+		} // end for
+	} // end for
+
+	//return false; // used for debugging purposes
+
+	/*********************************************************
+	* Check all combinations of tableau to foundation moves. *
+	*********************************************************/
+	for (i = tab; i < stock; i++) {
+		if ((pCard = pBoard->GetStack((loc) i)->Top()) == nullptr)
+			continue;
+
+		if (IsMoveOk(pCard, pFnd) == true)
+			return false;
+	} // end for
+
+	/************************************
+	* Check all combinations of         *
+	* - used stack to tableau moves.    *
+	* - used stack to foundation.       *
+	* - stock to tableau moves.         *
+	* - stock to foundation.            *
+	************************************/
+	pCard   = pBoard->GetStack((loc) stock)->Top();
+	while (pCard != nullptr) {
+		for (j = 0; j < STOCK_DRAW; j++) {
+			if (pCard->m_pStack->Bottom() == pCard)      // Out of cards on the Stock stack?
+				break;
+
+			if (pCard->m_pStack->Top() == pCard)         // if top, skip a count
+				j++;
+
+			pCard = pCard->m_pPrevCard;
+		} // end for
+
+		for (j = fnd; j < stock; j++) {
+			if (IsMoveOk(pCard, pBoard->GetStack((loc) j)) == true)
+				return false;
+		} // end for
+
+		if (pCard->m_pStack->Bottom() == pCard)          // Out of cards on the Stock stack?
+			break;
+	} // end while
+
+	pCard   = pBoard->GetStack((loc) used)->Bottom();
+	while (pCard != nullptr) {
+		for (j = 0; j < STOCK_DRAW; j++) {
+			if (pCard->m_pStack->Top() == pCard)         // Out of cards on the Stock stack?
+				break;
+
+			if (pCard->m_pStack->Bottom() == pCard)      // if bottom, skip a count
+				j++;
+
+			pCard = pCard->m_pNextCard;
+		} // end for
+
+		for (j = fnd; j < stock; j++) {
+			if (IsMoveOk(pCard, pBoard->GetStack((loc) j)) == true)
+				return false;
+		} // end for
+
+		if (pCard->m_pStack->Top() == pCard)             // Out of cards on the Stock stack?
+			break;
+	} // end while
+
+	return true;    // Game over, no other possible moves
+}
+
+} // namespace Barbershop
+} // namespace HodjNPodj
+} // namespace Bagel