mainform.cpp

一种扫雷游戏的源代码

//---------------------------------------------------------------------------
//   其实很早就写过一个pascal版本的扫雷游戏,很简陋的,觉得不太好,正好工作的时候
//   用到BCB,就想写一个BCB版本的扫雷游戏,其实就是自己写着玩玩.
//   从开始写到写完,间隔很久,中间有事就忘了写了,没写完总归是不爽的,什么事都要
//   有始有终,对吧.
//
//   日期:2004.02.28
//   作者:老姜(fjye)
//   Email:[e-mail]
//   HomePage:http://www.YEStudio.cn
//
//   程序思路:
//   1,首先初始化二维数组,结构数组,定义好类以及结构体
//   2,填充全部空格,埋雷(),随机布雷.
//   3,定义鼠标左键单击事件,显示格子属性(数字0-8,空地,雷区)
//   4,鼠标右键单击标雷.再单击测消标雷
//   5,鼠标左右键齐击,自动计算数字周边已经显示全部雷数的3*3范围的数字己空格
//   6,利用注册表记录成绩信息,新纪录成绩记录写入注册表,记录最后一次打开的级别
//   7,消息拦截,拦截F2按键消息,重新开始游戏.
//   8,使用TStringList方便快捷
//   9,资源的使用,使编译以后的程序尽量简洁,数字动态显示
//
//
//
//
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainForm.h"
#include "set.h"
#include "score.h"
#include "imagehlp.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
TCleanBomb *CleanBomb;
//---------------------------------------------------------------------------
//主界面析构函数,新建位图资源指针,初始化
__fastcall TCleanBomb::TCleanBomb(TComponent* Owner)
        : TForm(Owner)
{
    wastetime = 0;
    label_bomb = 0;
    virtual_num = 0;
    globa_width = WIDTH;
    globa_height = HEIGHT;
    globa_bomb_num = BOMB_NUMBER;
    //regkey = new TRegistry();
    //TStringList * aList = new TStringList();
    TStringList *aList = read_last_config();
    if(aList->DelimitedText!="")
        {
        globa_width = StrToInt(aList->Strings[0]);
        globa_height = StrToInt(aList->Strings[1]);
        globa_bomb_num = StrToInt(aList->Strings[2]);
        }
    delete aList;
    for (int i=0;i<50;i++)
      for (int j=0;j<30;j++)
          {
          POS[i][j] = new BOMB(i,j);
          POS[i][j]->show();
          }
    gameover = false;
    //以下这段程序是检验可执行程序本身的校验和的,防止程序被改写
    //需要在头文件中加上#include "imagehlp.h"   
   /* DWORD HeadChksum=1,Chksum=0;
    char Fn[512];
    GetModuleFileName(GetModuleHandle(NULL),Fn,512);
    if(MapFileAndCheckSum(Fn,&HeadChksum,&Chksum)!=CHECKSUM_SUCCESS)
    {
        MessageBox(NULL,"文件检查出错!","错误",MB_OK);
    }
    else
    {
        if(HeadChksum!=Chksum)
            {
            MessageBox(NULL,"文件已被改动,启动失败！","警告",MB_OK);
            FormDestroy(NULL);
            Close();
            }    
    //--------    

    }        */


}
//---------------------------------------------------------------------------


void TCleanBomb::init_interface(int p_width=WIDTH,int p_height=HEIGHT,int bomb_num=BOMB_NUMBER)
{
        //TODO: Add your source code here
    wastetime = 0;
    time_pic(wastetime);
    bombnum_pic(globa_bomb_num-virtual_num);
    Refresh();
    wastetime = 0;
    label_bomb = 0;
    virtual_num = 0;
    //Timer1->Enabled = true;

    Width = p_width*16+8;               //设定程序宽度
    Height = p_height*16+77+7;            //设定程序高度
    Set(p_width,p_height,bomb_num);  //设定雷数

    for (int i=0;i<p_width;i++)         //绘制初始界面
        for (int j=0;j<p_height;j++)
            {
            Draw(i,j,"button");
            }


}

void TCleanBomb::Draw(int i, int j, AnsiString state)
{
  try
  {
    Bitmap1 = new Graphics::TBitmap();
    Bitmap1->LoadFromResourceName((int)HInstance,state);
    //Bitmap1->LoadFromResourceName((int)HInstance,POS[i][j]->state);
    Canvas->Draw(i*16,j*16+32,Bitmap1);
  }
  catch (...)
  {
    MessageBeep(0);
  }
  delete Bitmap1;
}
void __fastcall TCleanBomb::N5Click(TObject *Sender)
{
    globa_width = 12;
    globa_height = 12;
    globa_bomb_num = 12;
    click_label(true,false,false,false);
    init_interface(globa_width,globa_height,globa_bomb_num);
}
//---------------------------------------------------------------------------

void __fastcall TCleanBomb::N6Click(TObject *Sender)
{
    globa_width = 16;
    globa_height = 16;
    globa_bomb_num = 40;
    click_label(false,true,false,false);
    init_interface(globa_width,globa_height,globa_bomb_num);
}
//---------------------------------------------------------------------------

void __fastcall TCleanBomb::N7Click(TObject *Sender)
{
    globa_width = 30;
    globa_height = 16;
    globa_bomb_num = 65;
    click_label(false,false,true,false);
    init_interface(globa_width,globa_height,globa_bomb_num);
}
//---------------------------------------------------------------------------
void __fastcall TCleanBomb::N12Click(TObject *Sender)
{
    click_label(false,false,false,true);
    set_bomb->ShowModal();
}
//---------------------------------------------------------------------------
void TCleanBomb::click_label(bool k1,bool k2,bool k3,bool k4)
{
     N5->Checked = k1;
     N6->Checked = k2;
     N7->Checked = k3;
     N12->Checked = k4;
}
//---------------------------------------------------------------------------

void __fastcall TCleanBomb::FormDestroy(TObject *Sender)
{
    for (int i=0;i<50;i++)
      for (int j=0;j<30;j++)
          {
          delete POS[i][j];
          }
}
//---------------------------------------------------------------------------



void __fastcall TCleanBomb::N10Click(TObject *Sender)
{
ShowMessage("版本1.06 C++Build版");
}
//---------------------------------------------------------------------------


bool TCleanBomb::Set(int p_width,int p_height,int bomb_num)
{
  int num;
  num = 0;
  for (int i=0;i<p_width;i++)
    for (int j=0;j<p_height;j++)
        {
        POS[i][j]->updata(i,j);
        }
  while(num<bomb_num)
    {
    if(Lay_Bomb(p_width,p_height))
      num++;
    }
    calculate_around_bomb();
    return true;
}

void __fastcall TCleanBomb::N11Click(TObject *Sender)
{
ShowMessage("         老姜制作"+AnsiString('\n')+"Email:[e-mail]");
}
//---------------------------------------------------------------------------

void __fastcall TCleanBomb::N3Click(TObject *Sender)
{
    Close();   
}
//---------------------------------------------------------------------------

void __fastcall TCleanBomb::N2Click(TObject *Sender)
{
    gameover = false;
    init_interface(globa_width,globa_height,globa_bomb_num);

}
//---------------------------------------------------------------------------
BOMB::BOMB(int x,int y)
{
    //TODO: Add your source code here
    updata(x,y);
}
//---------------------------------------------------------------------------
void BOMB::updata(int x,int y)
{
    //TODO: Add your source code here
    around_bomb = 0;
    be_flaged = false;
    opened = false;
    are_you_bomb = 0;
    bombed = false;
    x_position = x;
    y_position = y;
    state = "button";
}
//---------------------------------------------------------------------------
void BOMB::show()
{
    //TODO: Add your source code here
    CleanBomb->Draw(x_position,y_position,state);
}

void __fastcall TCleanBomb::Timer1Timer(TObject *Sender)
{
//计时
wastetime++;
time_pic(wastetime);
bombnum_pic(globa_bomb_num-virtual_num);

}
//---------------------------------------------------------------------------



void __fastcall TCleanBomb::FormMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        X = X/16;
        Y = (Y-32)/16;
    if(gameover) return;
    if(!Timer1->Enabled)
        {
        Timer1->Enabled = true;
        }
    if ((Shift.Contains(ssLeft))&&(!Shift.Contains(ssRight))) //左键单击
        {
        //ShowMessage(IntToStr(X)+","+IntToStr(Y));
        Open(X,Y);
        }
    if ((!Shift.Contains(ssLeft))&&(Shift.Contains(ssRight))) //右键单击
        {
        if(POS[X][Y]->state == "button")
            {
            Draw(X,Y,"flag");
            POS[X][Y]->state = "flag";
            POS[X][Y]->opened = true;
            if(POS[X][Y]->are_you_bomb==1)
                {
                label_bomb++;
                }
            virtual_num++;
            bombnum_pic(globa_bomb_num-virtual_num);
            }
        else
        if(POS[X][Y]->state == "flag")
            {
            Draw(X,Y,"wenhao");
            POS[X][Y]->state = "wenhao";
            if(POS[X][Y]->are_you_bomb==1)
                {
                label_bomb--;
                }
            virtual_num--;
            bombnum_pic(globa_bomb_num-virtual_num);
            }
        else
        if(POS[X][Y]->state == "wenhao")
            {
            Draw(X,Y,"button");
            POS[X][Y]->state = "button";
            POS[X][Y]->opened = false;

            }

        }
    if ((Shift.Contains(ssLeft))&&(Shift.Contains(ssRight)))  //左右键齐击
        {
        left_right_click(X,Y);
        }
    if(label_bomb==globa_bomb_num)
        {
        Timer1->Enabled = false;
        ShowMessage("扫雷成功!");
        //---写注册表
        check_log();
        return;
        }

}
//---------------------------------------------------------------------------


bool TCleanBomb::Lay_Bomb(int i, int j)
{
    //TODO: Add your source code here
    Randomize();
    int m,n;
    //m=random(i);
    //n=random(j);
    m= random(GetTickCount()) % i;
    n= random(GetTickCount()/2) % j;
    if (POS[m][n]->are_you_bomb!=1)
      {
      POS[m][n]->are_you_bomb = 1;
      POS[m][n]->around_bomb = -1;
      return true;
      }
    else return false;
}

void TCleanBomb::calculate_around_bomb()
{
    //TODO: Add your source code here
    int m,n;
    m = (Width/16)-1;
    n = ((Height-32)/16)-3;
    //四个角上的单独处理
    POS[0][0]->around_bomb = POS[0][1]->are_you_bomb+POS[1][0]->are_you_bomb+POS[1][1]->are_you_bomb;
    POS[0][n]->around_bomb = POS[0][n-1]->are_you_bomb+POS[1][n]->are_you_bomb+POS[1][n-1]->are_you_bomb;
    POS[m][0]->around_bomb = POS[m][1]->are_you_bomb+POS[m-1][0]->are_you_bomb+POS[m-1][1]->are_you_bomb;
    POS[m][n]->around_bomb = POS[m][n-1]->are_you_bomb+POS[m-1][n]->are_you_bomb+POS[m-1][n-1]->are_you_bomb;
    for(int i=1;i<n;i++)     //最左边纵向
        {
        POS[0][i]->around_bomb = POS[0][i-1]->are_you_bomb+POS[0][i+1]->are_you_bomb+POS[1][i]->are_you_bomb+POS[1][i-1]->are_you_bomb+POS[1][i+1]->are_you_bomb;
        }
    for(int i=1;i<m;i++)     //最上面横向
        {
        POS[i][0]->around_bomb = POS[i-1][0]->are_you_bomb+POS[i+1][0]->are_you_bomb+POS[i-1][1]->are_you_bomb+POS[i+1][1]->are_you_bomb+POS[i][1]->are_you_bomb;
        }
    for(int i=1;i<n;i++)     //最右边纵向
        {
        POS[m][i]->around_bomb = POS[m][i-1]->are_you_bomb+POS[m][i+1]->are_you_bomb+POS[m-1][i]->are_you_bomb+POS[m-1][i-1]->are_you_bomb+POS[m-1][i+1]->are_you_bomb;
        }

    for(int i=1;i<m;i++)     //最下面横向
        {
        POS[i][n]->around_bomb = POS[i-1][n]->are_you_bomb+POS[i+1][n]->are_you_bomb+POS[i][n-1]->are_you_bomb+POS[i-1][n-1]->are_you_bomb+POS[i+1][n-1]->are_you_bomb;
        }
    for(int i=1;i<m;i++)
        for(int j=1;j<n;j++)
            {
            POS[i][j]->around_bomb = POS[i][j-1]->are_you_bomb+POS[i][j+1]->are_you_bomb+POS[i-1][j]->are_you_bomb+\
            POS[i-1][j-1]->are_you_bomb+POS[i-1][j+1]->are_you_bomb+POS[i+1][j-1]->are_you_bomb+POS[i+1][j]->are_you_bomb+POS[i+1][j+1]->are_you_bomb;
            }

}


bool TCleanBomb::Open(int x, int y)
{
    //TODO: Add your source code here
    int m,n;
    m = (Width/16);
    n = ((Height-32)/16)-2;