[wxWidgets.git] / demos / bombs / bombs1.cpp

///////////////////////////////////////////////////////////////////////////////
// Name:        bombs1.cpp
// Purpose:     Bombs game
// Author:      P. Foggia 1996
// Modified by:
// Created:     1996
// RCS-ID:      $Id$
// Copyright:   (c) 1996 P. Foggia
// Licence:     wxWindows licence
///////////////////////////////////////////////////////////////////////////////

/*
 * implementation of the methods DrawField and OnEvent of the
 * class BombsCanvas
 */

#ifdef __GNUG__
#pragma implementation
#endif

#include "wx/wxprec.h"

#ifndef  WX_PRECOMP
  #include "wx/wx.h"
#endif //precompiled headers

#include "bombs.h"

/*--------  BombCanvasClass::DrawField(dc, xc1, yc1, xc2, yc2)  -------*/
/* Draws the field on the device context dc                            */
/* xc1,yc1 etc. are the (inclusive) limits of the area to be drawn,    */
/* expressed in cells.                                                 */
/*---------------------------------------------------------------------*/
void BombsCanvasClass::DrawField(wxDC *dc, int xc1, int yc1, int xc2, int yc2)
{ int x,y,xmax,ymax;
  wxChar buf[2];
  long chw, chh;

  wxColour *wxBlack = wxTheColourDatabase->FindColour(_T("BLACK"));
  wxColour *wxWhite = wxTheColourDatabase->FindColour(_T("WHITE"));
  wxColour *wxRed = wxTheColourDatabase->FindColour(_T("RED"));
  wxColour *wxBlue = wxTheColourDatabase->FindColour(_T("BLUE"));
  wxColour *wxGrey = wxTheColourDatabase->FindColour(_T("LIGHT GREY"));
  wxColour *wxGreen = wxTheColourDatabase->FindColour(_T("GREEN"));

  wxPen *blackPen = wxThePenList->FindOrCreatePen(*wxBlack, 1, wxSOLID);
  wxPen *redPen = wxThePenList->FindOrCreatePen(*wxRed, 1, wxSOLID);
  wxPen *bluePen = wxThePenList->FindOrCreatePen(*wxBlue, 1, wxSOLID);
  wxBrush *whiteBrush = wxTheBrushList->FindOrCreateBrush(*wxWhite, wxSOLID);
  wxBrush *greyBrush = wxTheBrushList->FindOrCreateBrush(*wxGrey, wxSOLID);
  wxBrush *redBrush = wxTheBrushList->FindOrCreateBrush(*wxRed, wxSOLID);

  xmax=field_width*x_cell*X_UNIT;
  ymax=field_height*y_cell*Y_UNIT;


  dc->SetPen(* blackPen);
  for(x=xc1; x<=xc2; x++)
    dc->DrawLine(x*x_cell*X_UNIT, 0, x*x_cell*X_UNIT, ymax);
  for(y=xc1; y<=yc2; y++)
    dc->DrawLine(0, y*y_cell*Y_UNIT, xmax, y*y_cell*Y_UNIT);


  wxFont font= BOMBS_FONT;
  dc->SetFont(font); 

  buf[1]=_T('\0');
  for(x=xc1; x<=xc2; x++)
    for(y=yc1; y<=yc2; y++)
      { if (wxGetApp().Game.IsMarked(x,y))
          { dc->SetPen(* blackPen);
            dc->SetBrush(* greyBrush);
            dc->DrawRectangle( x*x_cell*X_UNIT, y*y_cell*Y_UNIT,
                               x_cell*X_UNIT+1, y_cell*Y_UNIT+1);
            *buf=_T('M');
            if (!wxGetApp().Game.IsHidden(x,y) && wxGetApp().Game.IsBomb(x,y))
              dc->SetTextForeground(*wxBlue);
            else
              dc->SetTextForeground(*wxRed);
            dc->SetTextBackground(*wxGrey);
            dc->GetTextExtent(buf, &chw, &chh);
            dc->DrawText( buf,
                  x*x_cell*X_UNIT + (x_cell*X_UNIT-chw)/2,
                  y*y_cell*Y_UNIT + (y_cell*Y_UNIT-chh)/2
                );
            if (!wxGetApp().Game.IsHidden(x,y) && wxGetApp().Game.IsBomb(x,y))
              { dc->SetPen(*redPen);
                dc->DrawLine(x*x_cell*X_UNIT, y*y_cell*Y_UNIT,
                             (x+1)*x_cell*X_UNIT, (y+1)*y_cell*Y_UNIT);
                dc->DrawLine(x*x_cell*X_UNIT, (y+1)*y_cell*Y_UNIT,
                             (x+1)*x_cell*X_UNIT, y*y_cell*Y_UNIT);
              }
          }
        else if (wxGetApp().Game.IsHidden(x,y))
          { dc->SetPen(*blackPen);
            dc->SetBrush(*greyBrush);
            dc->DrawRectangle( x*x_cell*X_UNIT, y*y_cell*Y_UNIT,
                               x_cell*X_UNIT+1, y_cell*Y_UNIT+1);
          }
        else if (wxGetApp().Game.IsBomb(x,y))
          { dc->SetPen(* blackPen);
            dc->SetBrush(* redBrush);
            dc->DrawRectangle( x*x_cell*X_UNIT, y*y_cell*Y_UNIT,
                               x_cell*X_UNIT+1, y_cell*Y_UNIT+1);
            *buf=_T('B');
            dc->SetTextForeground(* wxBlack);
            dc->SetTextBackground(* wxRed);
            dc->GetTextExtent(buf, &chw, &chh);
            dc->DrawText( buf,
                  x*x_cell*X_UNIT + (x_cell*X_UNIT-chw)/2,
                  y*y_cell*Y_UNIT + (y_cell*Y_UNIT-chh)/2
                );
            if (wxGetApp().Game.IsExploded(x,y))
              { dc->SetPen(* bluePen);
                dc->DrawLine(x*x_cell*X_UNIT, y*y_cell*Y_UNIT,
                             (x+1)*x_cell*X_UNIT, (y+1)*y_cell*Y_UNIT);
                dc->DrawLine(x*x_cell*X_UNIT, (y+1)*y_cell*Y_UNIT,
                             (x+1)*x_cell*X_UNIT, y*y_cell*Y_UNIT);
              }
          }
        else   // Display a digit
          { dc->SetPen(* blackPen);
            dc->SetBrush(* whiteBrush);
            dc->DrawRectangle( x*x_cell*X_UNIT, y*y_cell*Y_UNIT,
                               x_cell*X_UNIT+1, y_cell*Y_UNIT+1);
            *buf = (wxGetApp().Game.Get(x,y) & BG_MASK) + _T('0');
            dc->GetTextExtent(buf, &chw, &chh);
            switch(*buf)
              { case _T('0'): dc->SetTextForeground(* wxGreen); break;
                case _T('1'): dc->SetTextForeground(* wxBlue); break;
                default:  dc->SetTextForeground(* wxBlack); break;
              }
            dc->SetTextBackground(* wxWhite);
            dc->DrawText( buf,
                  x*x_cell*X_UNIT + (x_cell*X_UNIT-chw)/2,
                  y*y_cell*Y_UNIT + (y_cell*Y_UNIT-chh)/2
                );
          }
      }
  dc->SetFont(wxNullFont);

  if (wxGetApp().BombsFrame)
    { wxString buf;
      buf.Printf(_T("%d bombs  %d remaining cells"),
                 wxGetApp().Game.GetBombs(),
                 wxGetApp().Game.GetRemainingCells());
      wxGetApp().BombsFrame->SetStatusText(buf, 0);
    }
}

/*--------  BombCanvasClass::RefreshField(xc1, yc1, xc2, yc2)  --------*/
/* Refreshes the field image                                           */
/* xc1,yc1 etc. are the (inclusive) limits of the area to be drawn,    */
/* expressed in cells.                                                 */
/*---------------------------------------------------------------------*/
void BombsCanvasClass::RefreshField(int xc1, int yc1, int xc2, int yc2)
  {
    wxClientDC dc(this);
    DrawField(& dc, xc1, yc1, xc2, yc2);
    if (bmp)
      { wxMemoryDC memDC;
        memDC.SelectObject(* bmp);
        DrawField(&memDC, xc1, yc1, xc2, yc2);
        memDC.SelectObject(wxNullBitmap);
      }
  }

// Called when uncovering a cell.
void BombsCanvasClass::Uncover(int x, int y)
{
  wxGetApp().Game.Unhide(x,y);
  RefreshField(x, y, x, y);
  if (wxGetApp().Game.IsBomb(x,y) || wxGetApp().Game.GetRemainingCells()==0)
    { wxBell();
      if (!wxGetApp().Game.IsBomb(x,y))
       { wxMessageBox(_T("Nice! You found all the bombs!"), _T("wxWin Bombs"),
                      wxOK|wxCENTRE, wxGetApp().BombsFrame);
       }
      else // x,y is a bomb
       { wxGetApp().Game.Explode(x, y);
       }
      for(x=0; x<field_width; x++)
       for(y=0; y<field_height; y++)
         wxGetApp().Game.Unhide(x,y);
      RefreshField(0, 0, field_width-1, field_height-1);
    }
  else if (!wxGetApp().Game.Get(x, y))
    { int left = ( x > 0 ) ? x-1 : 0;
      int right = ( x < wxGetApp().Game.GetWidth() - 1 )?
       x+1 : wxGetApp().Game.GetWidth() - 1;
      int top = ( y > 0 ) ? y-1 : 0;
      int bottom = ( y < wxGetApp().Game.GetHeight() - 1 )?
       y+1 : wxGetApp().Game.GetHeight() - 1;
      int i,j;
      for (j = top; j <= bottom; j++)
       for (i=left; i <= right; i++)
         if ((i != x || j != y) && wxGetApp().Game.IsHidden(i,j)
             && !wxGetApp().Game.IsMarked(i,j))
           Uncover(i,j);
    }
}

// Called when the canvas receives a mouse event.
void BombsCanvasClass::OnEvent(wxMouseEvent& event)
{
  wxCoord fx, fy;
  event.GetPosition(&fx, &fy);
  int x = fx/(x_cell*X_UNIT);
  int y = fy/(y_cell*Y_UNIT);
  if (x<field_width && y<field_height)
    { if ( (event.RightDown() || (event.LeftDown() && event.ShiftDown()))
           && (wxGetApp().Game.IsHidden(x,y)
               || wxGetApp().Game.GetRemainingCells()==0))
        { wxGetApp().Game.Mark(x,y);
          RefreshField(x, y, x, y);
          return;
        }
      else if (event.LeftDown() && wxGetApp().Game.IsHidden(x,y)
               && !wxGetApp().Game.IsMarked(x,y))
        { Uncover(x,y);
         return;
        }
    }
}
Commit	Line	Data
025e88c5 JS	1	///////////////////////////////////////////////////////////////////////////////
	2	// Name: bombs1.cpp
	3	// Purpose: Bombs game
	4	// Author: P. Foggia 1996
	5	// Modified by:
	6	// Created: 1996
	7	// RCS-ID: $Id$
	8	// Copyright: (c) 1996 P. Foggia
	9	// Licence: wxWindows licence
	10	///////////////////////////////////////////////////////////////////////////////
	11
	12	/*
	13	* implementation of the methods DrawField and OnEvent of the
	14	* class BombsCanvas
	15	*/
	16
	17	#ifdef __GNUG__
	18	#pragma implementation
	19	#endif
	20
	21	#include "wx/wxprec.h"
	22
	23	#ifndef WX_PRECOMP
	24	#include "wx/wx.h"
	25	#endif //precompiled headers
	26
	27	#include "bombs.h"
	28
	29	/-------- BombCanvasClass::DrawField(dc, xc1, yc1, xc2, yc2) -------/
	30	/* Draws the field on the device context dc */
	31	/* xc1,yc1 etc. are the (inclusive) limits of the area to be drawn, */
	32	/* expressed in cells. */
	33	/---------------------------------------------------------------------/
	34	void BombsCanvasClass::DrawField(wxDC *dc, int xc1, int yc1, int xc2, int yc2)
	35	{ int x,y,xmax,ymax;
f37c24e0	36	wxChar buf[2];
025e88c5 JS	37	long chw, chh;
025e88c5 JS	38
f37c24e0 MB	39	wxColour *wxBlack = wxTheColourDatabase->FindColour(_T("BLACK"));
	40	wxColour *wxWhite = wxTheColourDatabase->FindColour(_T("WHITE"));
	41	wxColour *wxRed = wxTheColourDatabase->FindColour(_T("RED"));
	42	wxColour *wxBlue = wxTheColourDatabase->FindColour(_T("BLUE"));
	43	wxColour *wxGrey = wxTheColourDatabase->FindColour(_T("LIGHT GREY"));
	44	wxColour *wxGreen = wxTheColourDatabase->FindColour(_T("GREEN"));
025e88c5 JS	45
	46	wxPen blackPen = wxThePenList->FindOrCreatePen(wxBlack, 1, wxSOLID);
	47	wxPen redPen = wxThePenList->FindOrCreatePen(wxRed, 1, wxSOLID);
	48	wxPen bluePen = wxThePenList->FindOrCreatePen(wxBlue, 1, wxSOLID);
025e88c5 JS	49	wxBrush whiteBrush = wxTheBrushList->FindOrCreateBrush(wxWhite, wxSOLID);
	50	wxBrush greyBrush = wxTheBrushList->FindOrCreateBrush(wxGrey, wxSOLID);
	51	wxBrush redBrush = wxTheBrushList->FindOrCreateBrush(wxRed, wxSOLID);
	52
	53	xmax=field_widthx_cellX_UNIT;
	54	ymax=field_heighty_cellY_UNIT;
	55
	56
	57	dc->SetPen(* blackPen);
	58	for(x=xc1; x<=xc2; x++)
	59	dc->DrawLine(xx_cellX_UNIT, 0, xx_cellX_UNIT, ymax);
	60	for(y=xc1; y<=yc2; y++)
	61	dc->DrawLine(0, yy_cellY_UNIT, xmax, yy_cellY_UNIT);
	62
	63
	64	wxFont font= BOMBS_FONT;
	65	dc->SetFont(font);
	66
f37c24e0	67	buf[1]=_T('\0');
025e88c5 JS	68	for(x=xc1; x<=xc2; x++)
	69	for(y=yc1; y<=yc2; y++)
	70	{ if (wxGetApp().Game.IsMarked(x,y))
	71	{ dc->SetPen(* blackPen);
	72	dc->SetBrush(* greyBrush);
	73	dc->DrawRectangle( xx_cellX_UNIT, yy_cellY_UNIT,
	74	x_cellX_UNIT+1, y_cellY_UNIT+1);
f37c24e0	75	*buf=_T('M');
025e88c5 JS	76	if (!wxGetApp().Game.IsHidden(x,y) && wxGetApp().Game.IsBomb(x,y))
	77	dc->SetTextForeground(*wxBlue);
	78	else
	79	dc->SetTextForeground(*wxRed);
	80	dc->SetTextBackground(*wxGrey);
	81	dc->GetTextExtent(buf, &chw, &chh);
	82	dc->DrawText( buf,
	83	xx_cellX_UNIT + (x_cell*X_UNIT-chw)/2,
	84	yy_cellY_UNIT + (y_cell*Y_UNIT-chh)/2
	85	);
	86	if (!wxGetApp().Game.IsHidden(x,y) && wxGetApp().Game.IsBomb(x,y))
	87	{ dc->SetPen(*redPen);
	88	dc->DrawLine(xx_cellX_UNIT, yy_cellY_UNIT,
	89	(x+1)x_cellX_UNIT, (y+1)y_cellY_UNIT);
	90	dc->DrawLine(xx_cellX_UNIT, (y+1)y_cellY_UNIT,
	91	(x+1)x_cellX_UNIT, yy_cellY_UNIT);
	92	}
	93	}
	94	else if (wxGetApp().Game.IsHidden(x,y))
	95	{ dc->SetPen(*blackPen);
	96	dc->SetBrush(*greyBrush);
	97	dc->DrawRectangle( xx_cellX_UNIT, yy_cellY_UNIT,
	98	x_cellX_UNIT+1, y_cellY_UNIT+1);
	99	}
	100	else if (wxGetApp().Game.IsBomb(x,y))
	101	{ dc->SetPen(* blackPen);
	102	dc->SetBrush(* redBrush);
	103	dc->DrawRectangle( xx_cellX_UNIT, yy_cellY_UNIT,
	104	x_cellX_UNIT+1, y_cellY_UNIT+1);
f37c24e0	105	*buf=_T('B');
025e88c5 JS	106	dc->SetTextForeground(* wxBlack);
	107	dc->SetTextBackground(* wxRed);
	108	dc->GetTextExtent(buf, &chw, &chh);
	109	dc->DrawText( buf,
	110	xx_cellX_UNIT + (x_cell*X_UNIT-chw)/2,
	111	yy_cellY_UNIT + (y_cell*Y_UNIT-chh)/2
	112	);
	113	if (wxGetApp().Game.IsExploded(x,y))
	114	{ dc->SetPen(* bluePen);
	115	dc->DrawLine(xx_cellX_UNIT, yy_cellY_UNIT,
	116	(x+1)x_cellX_UNIT, (y+1)y_cellY_UNIT);
	117	dc->DrawLine(xx_cellX_UNIT, (y+1)y_cellY_UNIT,
	118	(x+1)x_cellX_UNIT, yy_cellY_UNIT);
	119	}
	120	}
	121	else // Display a digit
	122	{ dc->SetPen(* blackPen);
	123	dc->SetBrush(* whiteBrush);
	124	dc->DrawRectangle( xx_cellX_UNIT, yy_cellY_UNIT,
	125	x_cellX_UNIT+1, y_cellY_UNIT+1);
f37c24e0	126	*buf = (wxGetApp().Game.Get(x,y) & BG_MASK) + _T('0');
025e88c5 JS	127	dc->GetTextExtent(buf, &chw, &chh);
025e88c5 JS	128	switch(*buf)
f37c24e0 MB	129	{ case _T('0'): dc->SetTextForeground(* wxGreen); break;
f37c24e0 MB	130	case _T('1'): dc->SetTextForeground(* wxBlue); break;
025e88c5 JS	131	default: dc->SetTextForeground(* wxBlack); break;
	132	}
	133	dc->SetTextBackground(* wxWhite);
	134	dc->DrawText( buf,
	135	xx_cellX_UNIT + (x_cell*X_UNIT-chw)/2,
	136	yy_cellY_UNIT + (y_cell*Y_UNIT-chh)/2
	137	);
	138	}
	139	}
	140	dc->SetFont(wxNullFont);
	141
	142	if (wxGetApp().BombsFrame)
f37c24e0 MB	143	{ wxString buf;
	144	buf.Printf(_T("%d bombs %d remaining cells"),
	145	wxGetApp().Game.GetBombs(),
	146	wxGetApp().Game.GetRemainingCells());
025e88c5 JS	147	wxGetApp().BombsFrame->SetStatusText(buf, 0);
	148	}
	149	}
	150
babd36de	151	/-------- BombCanvasClass::RefreshField(xc1, yc1, xc2, yc2) --------/
025e88c5 JS	152	/* Refreshes the field image */
	153	/* xc1,yc1 etc. are the (inclusive) limits of the area to be drawn, */
	154	/* expressed in cells. */
	155	/---------------------------------------------------------------------/
babd36de	156	void BombsCanvasClass::RefreshField(int xc1, int yc1, int xc2, int yc2)
025e88c5 JS	157	{
	158	wxClientDC dc(this);
	159	DrawField(& dc, xc1, yc1, xc2, yc2);
	160	if (bmp)
	161	{ wxMemoryDC memDC;
	162	memDC.SelectObject(* bmp);
	163	DrawField(&memDC, xc1, yc1, xc2, yc2);
	164	memDC.SelectObject(wxNullBitmap);
	165	}
	166	}
	167
7874bf54 VZ	168	// Called when uncovering a cell.
	169	void BombsCanvasClass::Uncover(int x, int y)
	170	{
	171	wxGetApp().Game.Unhide(x,y);
babd36de	172	RefreshField(x, y, x, y);
7874bf54 VZ	173	if (wxGetApp().Game.IsBomb(x,y) \|\| wxGetApp().Game.GetRemainingCells()==0)
	174	{ wxBell();
	175	if (!wxGetApp().Game.IsBomb(x,y))
f37c24e0	176	{ wxMessageBox(_T("Nice! You found all the bombs!"), _T("wxWin Bombs"),
7874bf54 VZ	177	wxOK\|wxCENTRE, wxGetApp().BombsFrame);
	178	}
	179	else // x,y is a bomb
	180	{ wxGetApp().Game.Explode(x, y);
	181	}
	182	for(x=0; x<field_width; x++)
	183	for(y=0; y<field_height; y++)
	184	wxGetApp().Game.Unhide(x,y);
babd36de	185	RefreshField(0, 0, field_width-1, field_height-1);
7874bf54 VZ	186	}
	187	else if (!wxGetApp().Game.Get(x, y))
	188	{ int left = ( x > 0 ) ? x-1 : 0;
	189	int right = ( x < wxGetApp().Game.GetWidth() - 1 )?
	190	x+1 : wxGetApp().Game.GetWidth() - 1;
	191	int top = ( y > 0 ) ? y-1 : 0;
	192	int bottom = ( y < wxGetApp().Game.GetHeight() - 1 )?
	193	y+1 : wxGetApp().Game.GetHeight() - 1;
	194	int i,j;
	195	for (j = top; j <= bottom; j++)
	196	for (i=left; i <= right; i++)
	197	if ((i != x \|\| j != y) && wxGetApp().Game.IsHidden(i,j)
	198	&& !wxGetApp().Game.IsMarked(i,j))
	199	Uncover(i,j);
	200	}
	201	}
	202
025e88c5 JS	203	// Called when the canvas receives a mouse event.
025e88c5 JS	204	void BombsCanvasClass::OnEvent(wxMouseEvent& event)
f5d01a1c	205	{
7f24fdbf	206	wxCoord fx, fy;
58e648e0	207	event.GetPosition(&fx, &fy);
025e88c5 JS	208	int x = fx/(x_cell*X_UNIT);
	209	int y = fy/(y_cell*Y_UNIT);
	210	if (x<field_width && y<field_height)
	211	{ if ( (event.RightDown() \|\| (event.LeftDown() && event.ShiftDown()))
	212	&& (wxGetApp().Game.IsHidden(x,y)
	213	\|\| wxGetApp().Game.GetRemainingCells()==0))
	214	{ wxGetApp().Game.Mark(x,y);
babd36de	215	RefreshField(x, y, x, y);
025e88c5 JS	216	return;
	217	}
	218	else if (event.LeftDown() && wxGetApp().Game.IsHidden(x,y)
	219	&& !wxGetApp().Game.IsMarked(x,y))
7874bf54 VZ	220	{ Uncover(x,y);
7874bf54 VZ	221	return;
025e88c5 JS	222	}
	223	}
	224	}
	225