]>
git.saurik.com Git - wxWidgets.git/blob - demos/forty/game.cpp
1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: Forty Thieves patience game
4 // Author: Chris Breeze
8 // Copyright: (c) 1993-1998 Chris Breeze
9 // Licence: wxWindows licence
10 //---------------------------------------------------------------------------
11 // Last modified: 22nd July 1998 - ported to wxWindows 2.0
12 /////////////////////////////////////////////////////////////////////////////
15 #pragma implementation
19 // For compilers that support precompilation, includes "wx/wx.h".
20 #include "wx/wxprec.h"
37 Game::Game(int wins
, int games
, int score
) :
46 m_pack
= new Pack(2, 2 + 4 * (CardHeight
+ 2));
49 for (i
= 0; i
< 5; i
++) m_pack
->Shuffle();
51 m_discard
= new Discard(2, 2 + 5 * (CardHeight
+ 2));
53 for (i
= 0; i
< 8; i
++)
55 m_foundations
[i
] = new Foundation(2 + (i
/ 4) * (CardWidth
+ 2),
56 2 + (i
% 4) * (CardHeight
+ 2));
59 for (i
= 0; i
< 10; i
++)
61 m_bases
[i
] = new Base(8 + (i
+ 2) * (CardWidth
+ 2), 2);
67 // copy the input parameters for future reference
75 // Make sure we delete all objects created by the game object
82 for (i
= 0; i
< 8; i
++)
84 delete m_foundations
[i
];
86 for (i
= 0; i
< 10; i
++)
95 Set the score for a new player.
96 NB: call Deal() first if the new player is to start
99 void Game::NewPlayer(int wins
, int games
, int score
)
103 m_totalScore
= score
;
107 // Undo the last move
108 void Game::Undo(wxDC
& dc
)
113 Card
* card
= m_moves
[m_moveIndex
].dest
->RemoveTopCard(dc
);
114 m_moves
[m_moveIndex
].src
->AddCard(dc
, card
);
119 // Redo the last move
120 void Game::Redo(wxDC
& dc
)
122 if (m_moveIndex
< m_redoIndex
)
124 Card
* card
= m_moves
[m_moveIndex
].src
->RemoveTopCard(dc
);
125 if (m_moves
[m_moveIndex
].src
== m_pack
)
128 card
->TurnCard(faceup
);
130 m_moves
[m_moveIndex
].dest
->AddCard(dc
, card
);
136 void Game::DoMove(wxDC
& dc
, Pile
* src
, Pile
* dest
)
138 if (m_moveIndex
< MaxMoves
)
142 wxMessageBox("Game::DoMove() src == dest", "Debug message",
143 wxOK
| wxICON_EXCLAMATION
);
145 m_moves
[m_moveIndex
].src
= src
;
146 m_moves
[m_moveIndex
].dest
= dest
;
149 // when we do a move any moves in redo buffer are discarded
150 m_redoIndex
= m_moveIndex
;
154 wxMessageBox("Game::DoMove() Undo buffer full", "Debug message",
155 wxOK
| wxICON_EXCLAMATION
);
167 void Game::DisplayScore(wxDC
& dc
)
169 wxColour bgColour
= FortyApp::BackgroundColour();
170 wxPen
* pen
= wxThePenList
->FindOrCreatePen(bgColour
, 1, wxSOLID
);
171 dc
.SetTextBackground(bgColour
);
172 dc
.SetTextForeground(FortyApp::TextColour());
173 dc
.SetBrush(FortyApp::BackgroundBrush());
176 // count the number of cards in foundations
178 for (int i
= 0; i
< 8; i
++)
180 m_currentScore
+= m_foundations
[i
]->GetNumCards();
184 m_pack
->GetTopCardPos(x
, y
);
185 x
+= 12 * CardWidth
- 105;
190 dc
.GetTextExtent("Average score:m_x", &width
, &height
);
194 dc
.DrawRectangle(x
+ w
, y
, 20, 4 * h
);
197 sprintf(str
, "%d", m_currentScore
);
198 dc
.DrawText("Score:", x
, y
);
199 dc
.DrawText(str
, x
+ w
, y
);
202 sprintf(str
, "%d", m_numGames
);
203 dc
.DrawText("Games played:", x
, y
);
204 dc
.DrawText(str
, x
+ w
, y
);
207 sprintf(str
, "%d", m_numWins
);
208 dc
.DrawText("Games won:", x
, y
);
209 dc
.DrawText(str
, x
+ w
, y
);
215 average
= (2 * (m_currentScore
+ m_totalScore
) + m_numGames
) / (2 * m_numGames
);
217 sprintf(str
, "%d", average
);
218 dc
.DrawText("Average score:", x
, y
);
219 dc
.DrawText(str
, x
+ w
, y
);
223 // Shuffle the m_pack and deal the cards
229 // Reset all the piles, the undo buffer and shuffle the m_pack
232 for (i
= 0; i
< 5; i
++)
236 m_discard
->ResetPile();
237 for (i
= 0; i
< 10; i
++)
239 m_bases
[i
]->ResetPile();
241 for (i
= 0; i
< 8; i
++)
243 m_foundations
[i
]->ResetPile();
246 // Deal the initial 40 cards onto the bases
247 for (i
= 0; i
< 10; i
++)
249 for (j
= 1; j
<= 4; j
++)
251 card
= m_pack
->RemoveTopCard();
252 card
->TurnCard(faceup
);
253 m_bases
[i
]->AddCard(card
);
259 // player has started the game and then redealt
260 // and so we must add the score for this game to the total score
261 m_totalScore
+= m_currentScore
;
268 // Redraw the m_pack, discard pile, the bases and the foundations
269 void Game::Redraw(wxDC
& dc
)
273 m_discard
->Redraw(dc
);
274 for (i
= 0; i
< 8; i
++)
276 m_foundations
[i
]->Redraw(dc
);
278 for (i
= 0; i
< 10; i
++)
280 m_bases
[i
]->Redraw(dc
);
286 m_bmap
= new wxBitmap(CardWidth
, CardHeight
);
287 m_bmapCard
= new wxBitmap(CardWidth
, CardHeight
);
289 // Initialise the card bitmap to the background colour
291 memoryDC
.SelectObject(*m_bmapCard
);
292 memoryDC
.SetBrush(FortyApp::BackgroundBrush());
293 memoryDC
.DrawRectangle(0, 0, CardWidth
, CardHeight
);
294 memoryDC
.SelectObject(*m_bmap
);
295 memoryDC
.DrawRectangle(0, 0, CardWidth
, CardHeight
);
296 memoryDC
.SelectObject(wxNullBitmap
);
301 // Test to see if the point (x, y) is over the top card of one of the piles
302 // Returns pointer to the pile, or 0 if (x, y) is not over a pile
303 // or the pile is empty
304 Pile
* Game::WhichPile(int x
, int y
)
306 if (m_pack
->GetCard(x
, y
) &&
307 m_pack
->GetCard(x
, y
) == m_pack
->GetTopCard())
312 if (m_discard
->GetCard(x
, y
) &&
313 m_discard
->GetCard(x
, y
) == m_discard
->GetTopCard())
319 for (i
= 0; i
< 8; i
++)
321 if (m_foundations
[i
]->GetCard(x
, y
) &&
322 m_foundations
[i
]->GetCard(x
, y
) == m_foundations
[i
]->GetTopCard())
324 return m_foundations
[i
];
328 for (i
= 0; i
< 10; i
++)
330 if (m_bases
[i
]->GetCard(x
, y
) &&
331 m_bases
[i
]->GetCard(x
, y
) == m_bases
[i
]->GetTopCard())
340 // Left button is pressed - if cursor is over the m_pack then deal a card
341 // otherwise if it is over a card pick it up ready to be dragged - see MouseMove()
342 bool Game::LButtonDown(wxDC
& dc
, int x
, int y
)
344 m_srcPile
= WhichPile(x
, y
);
345 if (m_srcPile
== m_pack
)
347 Card
* card
= m_pack
->RemoveTopCard();
351 card
->TurnCard(faceup
);
352 m_discard
->AddCard(dc
, card
);
353 DoMove(dc
, m_pack
, m_discard
);
359 m_srcPile
->GetTopCardPos(m_xPos
, m_yPos
);
360 m_xOffset
= m_xPos
- x
;
361 m_yOffset
= m_yPos
- y
;
363 // Copy the area under the card
364 // Initialise the card bitmap to the background colour
367 memoryDC
.SelectObject(*m_bmap
);
368 m_liftedCard
= m_srcPile
->RemoveTopCard(memoryDC
, m_xPos
, m_yPos
);
371 // Draw the card in card bitmap ready for blitting onto
375 memoryDC
.SelectObject(*m_bmapCard
);
376 m_liftedCard
->Draw(memoryDC
, 0, 0);
379 return m_srcPile
!= 0;
382 // Called when the left button is double clicked
383 // If a card is under the pointer and it can move elsewhere then move it.
384 // Move onto a foundation as first choice, a populated base as second and
385 // an empty base as third choice.
386 // NB Cards in the m_pack cannot be moved in this way - they aren't in play
388 void Game::LButtonDblClk(wxDC
& dc
, int x
, int y
)
390 Pile
* pile
= WhichPile(x
, y
);
393 // Double click on m_pack is the same as left button down
396 LButtonDown(dc
, x
, y
);
400 Card
* card
= pile
->GetTopCard();
406 // if the card is an ace then try to place it next
407 // to an ace of the same suit
408 if (card
->GetPipValue() == 1)
410 for(i
= 0; i
< 4; i
++)
413 if ((m_topCard
= m_foundations
[i
]->GetTopCard()))
415 if (m_topCard
->GetSuit() == card
->GetSuit() &&
416 m_foundations
[i
+ 4] != pile
&&
417 m_foundations
[i
+ 4]->GetTopCard() == 0)
419 pile
->RemoveTopCard(dc
);
420 m_foundations
[i
+ 4]->AddCard(dc
, card
);
421 DoMove(dc
, pile
, m_foundations
[i
+ 4]);
428 // try to place the card on a foundation
429 for(i
= 0; i
< 8; i
++)
431 if (m_foundations
[i
]->AcceptCard(card
) && m_foundations
[i
] != pile
)
433 pile
->RemoveTopCard(dc
);
434 m_foundations
[i
]->AddCard(dc
, card
);
435 DoMove(dc
, pile
, m_foundations
[i
]);
439 // try to place the card on a populated base
440 for(i
= 0; i
< 10; i
++)
442 if (m_bases
[i
]->AcceptCard(card
) &&
443 m_bases
[i
] != pile
&&
444 m_bases
[i
]->GetTopCard())
446 pile
->RemoveTopCard(dc
);
447 m_bases
[i
]->AddCard(dc
, card
);
448 DoMove(dc
, pile
, m_bases
[i
]);
452 // try to place the card on any base
453 for(i
= 0; i
< 10; i
++)
455 if (m_bases
[i
]->AcceptCard(card
) && m_bases
[i
] != pile
)
457 pile
->RemoveTopCard(dc
);
458 m_bases
[i
]->AddCard(dc
, card
);
459 DoMove(dc
, pile
, m_bases
[i
]);
468 // Test to see whether the game has been won:
469 // i.e. m_pack, discard and bases are empty
470 bool Game::HaveYouWon()
472 if (m_pack
->GetTopCard()) return FALSE
;
473 if (m_discard
->GetTopCard()) return FALSE
;
474 for(int i
= 0; i
< 10; i
++)
476 if (m_bases
[i
]->GetTopCard()) return FALSE
;
479 m_totalScore
+= m_currentScore
;
485 // See whether the card under the cursor can be moved somewhere else
486 // Returns TRUE if it can be moved, FALSE otherwise
487 bool Game::CanYouGo(int x
, int y
)
489 Pile
* pile
= WhichPile(x
, y
);
490 if (pile
&& pile
!= m_pack
)
492 Card
* card
= pile
->GetTopCard();
497 for(i
= 0; i
< 8; i
++)
499 if (m_foundations
[i
]->AcceptCard(card
) && m_foundations
[i
] != pile
)
504 for(i
= 0; i
< 10; i
++)
506 if (m_bases
[i
]->GetTopCard() &&
507 m_bases
[i
]->AcceptCard(card
) &&
519 // Called when the left button is released after dragging a card
520 // Scan the piles to see if this card overlaps a pile and can be added
521 // to the pile. If the card overlaps more than one pile on which it can be placed
522 // then put it on the nearest pile.
523 void Game::LButtonUp(wxDC
& dc
, int x
, int y
)
527 // work out the position of the dragged card
531 Pile
* nearestPile
= 0;
532 int distance
= (CardHeight
+ CardWidth
) * (CardHeight
+ CardWidth
);
534 // find the nearest pile which will accept the card
536 for (i
= 0; i
< 8; i
++)
538 if (DropCard(x
, y
, m_foundations
[i
], m_liftedCard
))
540 if (m_foundations
[i
]->CalcDistance(x
, y
) < distance
)
542 nearestPile
= m_foundations
[i
];
543 distance
= nearestPile
->CalcDistance(x
, y
);
547 for (i
= 0; i
< 10; i
++)
549 if (DropCard(x
, y
, m_bases
[i
], m_liftedCard
))
551 if (m_bases
[i
]->CalcDistance(x
, y
) < distance
)
553 nearestPile
= m_bases
[i
];
554 distance
= nearestPile
->CalcDistance(x
, y
);
559 // Restore the area under the card
561 memoryDC
.SelectObject(*m_bmap
);
562 dc
.Blit(m_xPos
, m_yPos
, CardWidth
, CardHeight
,
563 &memoryDC
, 0, 0, wxCOPY
);
565 // Draw the card in its new position
569 nearestPile
->AddCard(dc
, m_liftedCard
);
570 if (nearestPile
!= m_srcPile
)
572 DoMove(dc
, m_srcPile
, nearestPile
);
577 // Return card to src pile
578 m_srcPile
->AddCard(dc
, m_liftedCard
);
588 bool Game::DropCard(int x
, int y
, Pile
* pile
, Card
* card
)
591 if (pile
->Overlap(x
, y
))
593 if (pile
->AcceptCard(card
))
602 void Game::MouseMove(wxDC
& dc
, int mx
, int my
)
607 memoryDC
.SelectObject(*m_bmap
);
609 int dx
= mx
+ m_xOffset
- m_xPos
;
610 int dy
= my
+ m_yOffset
- m_yPos
;
612 if (abs(dx
) >= CardWidth
|| abs(dy
) >= CardHeight
)
614 // Restore the area under the card
615 dc
.Blit(m_xPos
, m_yPos
, CardWidth
, CardHeight
,
616 &memoryDC
, 0, 0, wxCOPY
);
618 // Copy the area under the card in the new position
619 memoryDC
.Blit(0, 0, CardWidth
, CardHeight
,
620 &dc
, m_xPos
+ dx
, m_yPos
+ dy
, wxCOPY
);
625 dc
.Blit(m_xPos
, m_yPos
, dx
, CardHeight
, &memoryDC
, 0, 0, wxCOPY
);
629 dc
.Blit(m_xPos
+ dx
, m_yPos
, CardWidth
- dx
, dy
, &memoryDC
, dx
, 0, wxCOPY
);
630 memoryDC
.Blit(0, 0, CardWidth
- dx
, CardHeight
- dy
,
631 &memoryDC
, dx
, dy
, wxCOPY
);
632 memoryDC
.Blit(0, CardHeight
- dy
, CardWidth
- dx
, dy
,
633 &dc
, m_xPos
+ dx
, m_yPos
+ CardHeight
, wxCOPY
);
638 dc
.Blit(m_xPos
+ dx
, m_yPos
+ dy
+ CardHeight
, CardWidth
- dx
, -dy
,
639 &memoryDC
, dx
, CardHeight
+ dy
, wxCOPY
);
640 memoryDC
.Blit(0, -dy
, CardWidth
- dx
, CardHeight
+ dy
,
641 &memoryDC
, dx
, 0, wxCOPY
);
642 memoryDC
.Blit(0, 0, CardWidth
- dx
, -dy
,
643 &dc
, m_xPos
+ dx
, m_yPos
+ dy
, wxCOPY
);
645 memoryDC
.Blit(CardWidth
- dx
, 0, dx
, CardHeight
,
646 &dc
, m_xPos
+ CardWidth
, m_yPos
+ dy
, wxCOPY
);
651 dc
.Blit(m_xPos
+ CardWidth
+ dx
, m_yPos
, -dx
, CardHeight
,
652 &memoryDC
, CardWidth
+ dx
, 0, wxCOPY
);
655 dc
.Blit(m_xPos
, m_yPos
, CardWidth
+ dx
, dy
, &memoryDC
, 0, 0, wxCOPY
);
656 memoryDC
.Blit(-dx
, 0, CardWidth
+ dx
, CardHeight
- dy
,
657 &memoryDC
, 0, dy
, wxCOPY
);
658 memoryDC
.Blit(-dx
, CardHeight
- dy
, CardWidth
+ dx
, dy
,
659 &dc
, m_xPos
, m_yPos
+ CardHeight
, wxCOPY
);
664 dc
.Blit(m_xPos
, m_yPos
+ CardHeight
+ dy
, CardWidth
+ dx
, -dy
,
665 &memoryDC
, 0, CardHeight
+ dy
, wxCOPY
);
666 memoryDC
.Blit(-dx
, -dy
, CardWidth
+ dx
, CardHeight
+ dy
,
667 &memoryDC
, 0, 0, wxCOPY
);
668 memoryDC
.Blit(-dx
, 0, CardWidth
+ dx
, -dy
,
669 &dc
, m_xPos
, m_yPos
+ dy
, wxCOPY
);
671 memoryDC
.Blit(0, 0, -dx
, CardHeight
,
672 &dc
, m_xPos
+ dx
, m_yPos
+ dy
, wxCOPY
);
677 // draw the card in its new position
678 memoryDC
.SelectObject(*m_bmapCard
);
679 dc
.Blit(m_xPos
, m_yPos
, CardWidth
, CardHeight
,
680 &memoryDC
, 0, 0, wxCOPY
);
686 //----------------------------------------------//
687 // The Pack class: holds the two decks of cards //
688 //----------------------------------------------//
689 Pack::Pack(int x
, int y
) : Pile(x
, y
, 0, 0)
691 for (m_topCard
= 0; m_topCard
< NumCards
; m_topCard
++)
693 m_cards
[m_topCard
] = new Card(1 + m_topCard
/ 2, facedown
);
695 m_topCard
= NumCards
- 1;
701 Card
* temp
[NumCards
];
704 // Don't try to shuffle an empty m_pack!
705 if (m_topCard
< 0) return;
707 // Copy the cards into a temporary array. Start by clearing
708 // the array and then copy the card into a random position.
709 // If the position is occupied then find the next lower position.
710 for (i
= 0; i
<= m_topCard
; i
++)
714 for (i
= 0; i
<= m_topCard
; i
++)
716 int pos
= rand() % (m_topCard
+ 1);
720 if (pos
< 0) pos
= m_topCard
;
722 m_cards
[i
]->TurnCard(facedown
);
723 temp
[pos
] = m_cards
[i
];
727 // Copy each card back into the m_pack in a random
728 // position. If position is occupied then find nearest
729 // unoccupied position after the random position.
730 for (i
= 0; i
<= m_topCard
; i
++)
732 int pos
= rand() % (m_topCard
+ 1);
736 if (pos
> m_topCard
) pos
= 0;
738 m_cards
[pos
] = temp
[i
];
742 void Pack::Redraw(wxDC
& dc
)
747 sprintf(str
, "%d ", m_topCard
+ 1);
749 dc
.SetTextBackground(FortyApp::BackgroundColour());
750 dc
.SetTextForeground(FortyApp::TextColour());
751 dc
.DrawText(str
, m_x
+ CardWidth
+ 5, m_y
+ CardHeight
/ 2);
755 void Pack::AddCard(Card
* card
)
757 if (card
== m_cards
[m_topCard
+ 1])
763 wxMessageBox("Pack::AddCard() Undo error", "Forty Thieves: Warning",
764 wxOK
| wxICON_EXCLAMATION
);
766 card
->TurnCard(facedown
);
772 for (m_topCard
= 0; m_topCard
< NumCards
; m_topCard
++)
774 delete m_cards
[m_topCard
];
779 //------------------------------------------------------//
780 // The Base class: holds the initial pile of four cards //
781 //------------------------------------------------------//
782 Base::Base(int x
, int y
) : Pile(x
, y
, 0, 12)
788 bool Base::AcceptCard(Card
* card
)
794 if (m_cards
[m_topCard
]->GetSuit() == card
->GetSuit() &&
795 m_cards
[m_topCard
]->GetPipValue() - 1 == card
->GetPipValue())
802 // pile is empty - ACCEPT
810 // nothing special at the moment
814 //----------------------------------------------------------------//
815 // The Foundation class: holds the cards built up from the ace... //
816 //----------------------------------------------------------------//
817 Foundation::Foundation(int x
, int y
) : Pile(x
, y
, 0, 0)
822 bool Foundation::AcceptCard(Card
* card
)
828 if (m_cards
[m_topCard
]->GetSuit() == card
->GetSuit() &&
829 m_cards
[m_topCard
]->GetPipValue() + 1 == card
->GetPipValue())
834 else if (card
->GetPipValue() == 1)
836 // It's an ace and the pile is empty - ACCEPT
842 Foundation::~Foundation()
844 // nothing special at the moment
848 //----------------------------------------------------//
849 // The Discard class: holds cards dealt from the m_pack //
850 //----------------------------------------------------//
851 Discard::Discard(int x
, int y
) : Pile(x
, y
, 19, 0)
856 void Discard::Redraw(wxDC
& dc
)
860 if (m_dx
== 0 && m_dy
== 0)
862 m_cards
[m_topCard
]->Draw(dc
, m_x
, m_y
);
868 for (int i
= 0; i
<= m_topCard
; i
++)
870 m_cards
[i
]->Draw(dc
, x
, y
);
876 y
= m_y
+ CardHeight
/ 3;
883 Card::DrawNullCard(dc
, m_x
, m_y
);
888 void Discard::GetTopCardPos(int& x
, int& y
)
895 else if (m_topCard
> 31)
897 x
= m_x
+ m_dx
* (m_topCard
- 32);
898 y
= m_y
+ CardHeight
/ 3;
902 x
= m_x
+ m_dx
* m_topCard
;
908 Card
* Discard::RemoveTopCard(wxDC
& dc
, int m_xOffset
, int m_yOffset
)
914 card
= Pile::RemoveTopCard(dc
, m_xOffset
, m_yOffset
);
918 int topX
, topY
, x
, y
;
919 GetTopCardPos(topX
, topY
);
920 card
= Pile::RemoveTopCard();
921 card
->Erase(dc
, topX
- m_xOffset
, topY
- m_yOffset
);
923 dc
.SetClippingRegion(topX
- m_xOffset
, topY
- m_yOffset
,
924 CardWidth
, CardHeight
);
926 for (int i
= m_topCard
- 31; i
<= m_topCard
- 31 + CardWidth
/ m_dx
; i
++)
928 m_cards
[i
]->Draw(dc
, m_x
- m_xOffset
+ i
* m_dx
, m_y
- m_yOffset
);
932 m_cards
[m_topCard
]->Draw(dc
, topX
- m_xOffset
- m_dx
, topY
- m_yOffset
);
934 dc
.DestroyClippingRegion();
943 // nothing special at the moment