扫雷游戏-BCB源代码

//--------------------------------------------------------------------------- // 其实很早就写过一个pascal版本的扫雷游戏,很简陋的,觉得不太好,正好工作的时候 // 用到BCB,就想写一个BCB版本的扫雷游戏,其实就是自己写着玩玩. // 从开始写到写完,间隔很久,中间有事就忘了写了,没写完总归是不爽的,什么事都要 // 有始有终,对吧. // // 日期:2004.02.28 // 作者:老姜(fjye) // Email:fjye@fjye.com // 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:fjye@fjye.com"); } //--------------------------------------------------------------------------- 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(ssRigh