uwuziqi.cpp

五子棋 五子棋 五子棋 五子棋 五子棋

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

#include <vcl.h>
#pragma hdrstop

#include <shellapi.h>
#include <math.h>
#include <stdlib.h>
#include <time.h>

#include "Uwuziqi.h"
#include "mycolor.h"
#include "UDistance.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
const int black=1,white=2,empty=4;

//clr:color<1---black,2---white,4---empty>
//black^11=white,white^11=black
//x,y[4,22]
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
  //--初始化--
  Label1->Caption=Date();
  Label2->Caption=Time();
  InitBoard();
  randomize();
  Level=2;
  man=true;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::InitBoard()
{
Image2->Canvas->Pen->Color=clMoneyGreen; //礶囱絃
for(int i=0;i<401;i++)
{
Image2->Canvas->MoveTo(i,0);
Image2->Canvas->LineTo(i,401);
}
Image2->Canvas->Pen->Color=clBlack;
for(int i=20;i<=380;i+=20)
{
Image2->Canvas->MoveTo(i,20);
Image2->Canvas->LineTo(i,381);
Image2->Canvas->MoveTo(20,i);
Image2->Canvas->LineTo(380,i);
}
for(int i=7;i<=19;i+=6) //礶9