mainform.cpp

一种扫雷游戏的源代码

    if((POS[x][y]->opened)&&(POS[x][y]->state == "flag")&&(POS[x][y]->are_you_bomb == 0))
        {
        Draw(x,y,"not_bomb");
        }
    if (POS[x][y]->opened) return false;
    if ((POS[x][y]->are_you_bomb!=1)&&(POS[x][y]->around_bomb>0))
        {
        Draw(x,y,IntToStr(POS[x][y]->around_bomb)+"-");
        POS[x][y]->opened = true;
        POS[x][y]->state = IntToStr(POS[x][y]->around_bomb)+"-";
        }
    if (POS[x][y]->are_you_bomb==1)
        {
        Timer1->Enabled = false;
        for (int i=0;i<globa_width;i++)
        for (int j=0;j<globa_height;j++)
            {
            if(POS[i][j]->are_you_bomb==1)
                {
                Draw(i,j,"bomb");
                POS[i][j]->opened = true;
                POS[i][j]->state = "bomb";
                }
            POS[i][j]->opened = true;
            }
        Draw(x,y,"bomb_bomb");
        POS[x][y]->opened = true;
        POS[x][y]->state = "bomb_bomb";
        gameover = true;
        return false;
        }
    if ((POS[x][y]->around_bomb==0)&&(x<=m-1)&&(y<=n-1)&&(x>=0)&&(y>=0))
        {
        Draw(x,y,"0-");
        POS[x][y]->opened = true;
        POS[x][y]->state = "0-";
        if(y!=0)
        Open(x,y-1);
        if(y!=n-1)
        Open(x,y+1);
        if(x!=0)
        Open(x-1,y);
        if(x!=m-1)
        Open(x+1,y);
        if((x!=0)&&(y!=0))
        Open(x-1,y-1);
        if((x!=0)&&(y!=n-1))
        Open(x-1,y+1);
        if((x!=m-1)&&(y!=0))
        Open(x+1,y-1);
        if((x!=m-1)&&(y!=n-1))
        Open(x+1,y+1);
        }

    return true;
}

//---------------------------------------------------------------------------


void __fastcall TCleanBomb::FormCreate(TObject *Sender)
{
    Randomize();
    init_interface(globa_width,globa_height,globa_bomb_num);
}
//---------------------------------------------------------------------------


void __fastcall TCleanBomb::FormPaint(TObject *Sender)
{
    for (int i=0;i<globa_width;i++)
    for (int j=0;j<globa_height;j++)
      {
      POS[i][j]->show();
      }
}

//---------------------------------------------------------------------------
void TCleanBomb::left_right_click(int x,int y)
{
    if(!POS[x][y]->opened) return;
    int around_num=0;
    try
    {
    if((x-1>=0)&&(y-1>=0))
        {
        if(POS[x-1][y-1]->state == "flag")
            around_num++;
        }
    if(x-1>=0)
        {
        if(POS[x-1][y]->state == "flag")
            around_num++;
        }
    if((x-1>=0)&&(y+1<=globa_height-1))
        {
        if(POS[x-1][y+1]->state == "flag")
            around_num++;
        }
    if(y-1>=0)
        {
        if(POS[x][y-1]->state == "flag")
            around_num++;
        }
    if(y+1<=globa_height-1)
        {
        if(POS[x][y+1]->state == "flag")
            around_num++;
        }
    if((x+1<=globa_width-1)&&(y-1>=0))
        {
        if(POS[x+1][y-1]->state == "flag")
            around_num++;
        }
    if(x+1<=globa_width-1)
        {
        if(POS[x+1][y]->state == "flag")
            around_num++;
        }
    if((x+1<=globa_width-1)&&(y+1<=globa_height-1))
        {
        if(POS[x+1][y+1]->state == "flag")
            around_num++;
        }

    if(around_num==POS[x][y]->around_bomb)
        {
        if((x-1>=0)&&(y-1>=0))
        Open(x-1,y-1);
        if(x-1>=0)
        Open(x-1,y);
        if((x-1>=0)&&(y+1<=globa_height-1))
        Open(x-1,y+1);
        if(y-1>=0)
        Open(x,y-1);
        if(y+1<=globa_height-1)
        Open(x,y+1);
        if((x+1<=globa_width-1)&&(y-1>=0))
        Open(x+1,y-1);
        if(x+1<=globa_width-1)
        Open(x+1,y);
        if((x+1<=globa_width-1)&&(y+1<=globa_height-1))
        Open(x+1,y+1);
        }
    }
    catch(...)
    {
    }


}

void TCleanBomb::f2(TMessage m)
{
    //TODO: Add your source code here
    if(m.WParam == 113)
        N2Click(NULL);
}
void __fastcall TCleanBomb::N13Click(TObject *Sender)
{
    AnsiString P[3],s[3],str;
    TStringList * aList;
    aList = read_score();
    //  就OK了，现在aList->Strings[0]就是fjye,20，以此类推
    for(int i=0;i<aList->Count;i++)
        {
        AnsiString temp = aList->Strings[i];
        P[i] = temp.SubString(1,temp.Pos(",")-1);
        s[i] = temp.SubString(temp.Pos(",")+1,temp.Length());
        }

    for(int i=aList->Count;i<3;i++)
        {
        P[i] = "无名氏";
        s[i] = 999;
        }
    delete aList;
    sort->Label13->Caption = P[0];
    sort->Label14->Caption = s[0]+"秒";

    sort->Label15->Caption = P[1];
    sort->Label16->Caption = s[1]+"秒";

    sort->Label17->Caption = P[2];
    sort->Label18->Caption = s[2]+"秒";
    sort->ShowModal();

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




void TCleanBomb::bombnum_pic(int num)
{
/*    //TODO: Add your source code here
    int p1,p2,p3;
    p1 = num/100;
    p2 = (num-p1*100)/10;
    p3 = num-p1*100-p2*10;
    AnsiString state;
    try
    {
        Bitmap1 = new Graphics::TBitmap();
        state = "JPG"+IntToStr(p1);
        Bitmap1->LoadFromResourceName((int)HInstance,state);
        //Bitmap1->LoadFromResourceName((int)HInstance,POS[i][j]->state);
        Canvas->Draw(0,4,Bitmap1);
        p1 = Bitmap1->Width;
        state = "JPG"+IntToStr(p2);
        Bitmap1->LoadFromResourceName((int)HInstance,state);
        //Bitmap1->LoadFromResourceName((int)HInstance,POS[i][j]->state);
        Canvas->Draw(p1,4,Bitmap1);
        p2 = Bitmap1->Width;
        state = "JPG"+IntToStr(p3);
        Bitmap1->LoadFromResourceName((int)HInstance,state);
        //Bitmap1->LoadFromResourceName((int)HInstance,POS[i][j]->state);
        Canvas->Draw(p2+p1,4,Bitmap1);

    }
    catch (...)
    {
      MessageBeep(0);
    }
    delete Bitmap1;      */
    Label1->Caption = num;
}

void TCleanBomb::time_pic(int time)
{
    //TODO: Add your source code here
/*    int s1,s2,s3;
    s1 = time/100;
    s2 = (time-s1*100)/10;
    s3 = time-s1*100-s2*10;
    AnsiString state;
    try
    {
        Bitmap1 = new Graphics::TBitmap();
        state = "JPG"+IntToStr(s3);
        Bitmap1->LoadFromResourceName((int)HInstance,state);
        //Bitmap1->LoadFromResourceName((int)HInstance,POS[i][j]->state);
        Canvas->Draw(Width-Bitmap1->Width-5,4,Bitmap1);
        s3 = Width-Bitmap1->Width;
        state = "JPG"+IntToStr(s2);
        Bitmap1->LoadFromResourceName((int)HInstance,state);
        //Bitmap1->LoadFromResourceName((int)HInstance,POS[i][j]->state);
        Canvas->Draw(s3-Bitmap1->Width-5,4,Bitmap1);
        s2 = s3-Bitmap1->Width;
        state = "JPG"+IntToStr(s1);
        Bitmap1->LoadFromResourceName((int)HInstance,state);
        //Bitmap1->LoadFromResourceName((int)HInstance,POS[i][j]->state);
        Canvas->Draw(s2-Bitmap1->Width-5,4,Bitmap1);

    }
    catch (...)
    {
      MessageBeep(0);
    }
    delete Bitmap1;  */
    Label2->Caption = time;
    Label2->Left = Panel1->Width-Label2->Width-10 ;
}
void __fastcall TCleanBomb::N9Click(TObject *Sender)
{
ShowMessage("按照Windows的扫雷游戏做的,不需要多说了吧");
}
//---------------------------------------------------------------------------


TStringList* TCleanBomb::read_score()
{
    //TODO: Add your source code here
    TStringList * aList = new TStringList();
    try
    {
    regkey = new TRegistry();
    regkey->RootKey=HKEY_LOCAL_MACHINE;//设置根键 //打开自动登录所在的键
    regkey->OpenKey("SOFTWARE\\fjye\\cleanbomb\\score",true);
    aList->Delimiter = ';';
    aList->DelimitedText = regkey->ReadString("score");;
    delete regkey;
    }
    catch(...)
    {
    aList->DelimitedText = "";
    }
    return aList;
}

void TCleanBomb::write_score(AnsiString m)
{
    //TODO: Add your source code here
    regkey = new TRegistry();
    regkey->RootKey=HKEY_LOCAL_MACHINE;//设置根键 //打开自动登录所在的键
    regkey->OpenKey("SOFTWARE\\fjye\\cleanbomb\\score",true);
    regkey->WriteString("score",m);
    delete regkey;
}

TStringList* TCleanBomb::read_last_config()
{
    TStringList * aList = new TStringList();
    regkey = new TRegistry();
    regkey->RootKey=HKEY_LOCAL_MACHINE;//设置根键 //打开自动登录所在的键
    regkey->OpenKey("SOFTWARE\\fjye\\cleanbomb\\score",true);
    aList->Delimiter = ',';
    aList->DelimitedText = regkey->ReadString("last_config");
    delete regkey;
    return aList;
}

void TCleanBomb::write_last_config(AnsiString con)
{
    regkey = new TRegistry();
    regkey->RootKey=HKEY_LOCAL_MACHINE;//设置根键 //打开自动登录所在的键
    regkey->OpenKey("SOFTWARE\\fjye\\cleanbomb\\score",true);
    regkey->WriteString("last_config",con);
    delete regkey;
}
void __fastcall TCleanBomb::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    write_last_config(IntToStr(globa_width)+","+IntToStr(globa_height)+","+IntToStr(globa_bomb_num));
}
//---------------------------------------------------------------------------


void TCleanBomb::check_log()
{
    //TODO: Add your source code here
    TStringList * aList;
    aList = read_score();
    if(aList->DelimitedText=="")
        {
        write_score("无名氏,999;无名氏,999;无名氏,999");
        aList = read_score();
        }
    AnsiString temp;
    if(N5->Checked)
        {
        temp = aList->Strings[0];
        if(wastetime<StrToInt(temp.SubString(temp.Pos(",")+1,temp.Length())))
            {
            AnsiString name;
            if (InputQuery("恭喜你,已经刷新本级别的纪录", "请输入你的大名:      ", name))
                {
                }
            else
                {
                name = "无名氏";
                }
            aList->Strings[0] = name+","+IntToStr(wastetime);
            }
        }
    if(N6->Checked)
        {
        temp = aList->Strings[1];
        if(wastetime<StrToInt(temp.SubString(temp.Pos(",")+1,temp.Length())))
            {
            AnsiString name;
            if (InputQuery("恭喜你,已经刷新本级别的纪录", "请输入你的大名:      ", name))
                {
                }
            else
                {
                name = "无名氏";
                }
            aList->Strings[1] = name+","+IntToStr(wastetime);
            }
        }
    if(N7->Checked)
        {
        temp = aList->Strings[2];
        if(wastetime<StrToInt(temp.SubString(temp.Pos(",")+1,temp.Length())))
            {
            AnsiString name;
            if (InputQuery("恭喜你,已经刷新本级别的纪录", "请输入你的大名:      ", name))
                {
                }
            else
                {
                name = "无名氏";
                }
            aList->Strings[2] = name+","+IntToStr(wastetime);
            }
        }
    write_score(aList->DelimitedText);
    delete aList;

}
void __fastcall TCleanBomb::FormResize(TObject *Sender)
{
    Label2->Left = Panel1->Width-Label2->Width-10 ;
    SpeedButton1->Left = (Panel1->Width-SpeedButton1->Width)/2;
}
//---------------------------------------------------------------------------