C#写的130行围棋

使用方法 和五子棋一样 我就不废话了 谔谔 这个字数有点难筹齐

using System;
using System.Drawing;
using System.Windows.Forms;
using Microsoft.VisualBasic.PowerPacks;

namespace 围棋2//解决方案 使用数组解决问题 ：将相邻的子放进一个数组 然后判断这些子的气 如果所有子的气为0 则遍历吃掉这些子
{
    public partial class Form1 : Form
    {
        int[] ai = new int[13 13];//存数据的
        int[] bi = new int[100];//存黑棋和白棋
        int[] cc = new int[100];//分组存的
        static int bo = 0;//设置谁下
        ShapeContainer sh = new ShapeContainer（）;//画棋盘的容器
        const int f = 30 f2 = 40;//设置常量
        public Form1（）
        {
            Text = “围棋--作者:彳亍乐儿“;
            StartPosition = FormStartPosition.CenterScreen;
            BackColor = Color.Gray;
            Size = new Size（580 590）;
            Controls.Add（sh）;
            KeyPreview = true;
            MouseDown += new MouseEventHandler（md）;//布局
            for （int y = 1 x = 1 x2 = 13; y < 14; y++）//这个循环用来画棋盘
            {
                LineShape a = new LineShape（x * f2 y * f2 x2 * f2 y * f2）;
                LineShape b = new LineShape（y * f2 x * f2 y * f2 x2 * f2）;
                a.Tag = b.Tag = 10000;
                a.Enabled = b.Enabled = false;//这一步很重要
                sh.Shapes.AddRange（new Shape[] { a b }）;
            }
        }
        private void md（object sender MouseEventArgs e）//鼠标点击事件
        {
            int d = dingwei（e.Location）;
            if （d != 0）
            {
                bo++;
                OvalShape a = new OvalShape（）;
                a.Size = new Size（f f）;
                a.Location = new Point（d / 100 * f2 - f / 2 d % 100 * f2 - f / 2）;
                a.Backstyle = Backstyle.Opaque;
                a.Tag = d-101;
                if （bo % 2 == 0）
                {
                    a.BackColor = Color.White;
                    panduan（1）;
                }
                else
                    a.BackColor = Color.Black;
                sh.Shapes.Add（a）;
                panduan（2）;
                panduan（1）;
            }
        }
        int dingwei（Point p）//定位判断
        {
            for （int a = 1; a < 14; a++）
                for （int b = 1; b < 14; b++）
                    if （Math.Abs（p.X - a * f2） < 15 && Math.Abs（p.Y - b * f2） < 15）
                    {
                        ai[a - 1 b - 1] = bo % 2 + 1;
                        return a * 100 + b;
                    }
            return 0;
        }
        void panduan（int h）
        {
            int b2=0;
            for （int i = 0; i < 13; i++）
                for （int l = 0; l < 13; l++）
                    if （ai[i l] == h）
                        bi[b2++] = i * 100 + l;//麻烦了点 还是弄到了所有黑子的坐标
            for （int i = 0; i < 100; i++）
                cc[i] = 0;
            int t = 1;
            for （int i = 0; i < b2; i++）
                if （cc[i] == 0）
                {
                    cc[i] = t++;
                    xunzhao（bi[i] t - 1b2）;//将其分组
                }
            for （int i

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        516  2012-03-09 03:07  围棋2\代码说明.txt

     文件      10752  2012-03-09 02:52  围棋2\围棋2\bin\Debug\围棋2.exe

     文件      28160  2012-03-09 02:52  围棋2\围棋2\bin\Debug\围棋2.pdb

     文件      11600  2012-03-09 02:56  围棋2\围棋2\bin\Debug\围棋2.vshost.exe

     文件        490  2010-03-17 22:39  围棋2\围棋2\bin\Debug\围棋2.vshost.exe.manifest

     文件       5048  2012-03-09 02:52  围棋2\围棋2\Form1.cs

     文件       1396  2012-03-09 01:46  围棋2\围棋2\Form1.Designer.cs

     文件       5817  2012-03-08 10:18  围棋2\围棋2\Form1.resx

     文件       4440  2012-03-09 01:45  围棋2\围棋2\obj\x86\Debug\DesignTimeResolveAssemblyReferences.cache

     文件       6552  2012-03-09 02:56  围棋2\围棋2\obj\x86\Debug\DesignTimeResolveAssemblyReferencesInput.cache

     文件        754  2012-03-08 10:18  围棋2\围棋2\obj\x86\Debug\GenerateResource.read.1.tlog

     文件       1124  2012-03-08 10:18  围棋2\围棋2\obj\x86\Debug\GenerateResource.write.1.tlog

     文件      12818  2012-03-09 01:46  围棋2\围棋2\obj\x86\Debug\ResolveAssemblyReference.cache

     文件       2287  2012-03-09 02:56  围棋2\围棋2\obj\x86\Debug\围棋2.csproj.FileListAbsolute.txt

     文件      10752  2012-03-09 02:52  围棋2\围棋2\obj\x86\Debug\围棋2.exe

     文件        180  2012-03-08 10:18  围棋2\围棋2\obj\x86\Debug\围棋2.Form1.resources

     文件      28160  2012-03-09 02:52  围棋2\围棋2\obj\x86\Debug\围棋2.pdb

     文件        180  2012-03-08 09:05  围棋2\围棋2\obj\x86\Debug\围棋2.Properties.Resources.resources

     文件        488  2012-03-04 23:52  围棋2\围棋2\Program.cs

     文件       1370  2012-03-04 23:52  围棋2\围棋2\Properties\AssemblyInfo.cs

     文件       2864  2012-03-04 23:52  围棋2\围棋2\Properties\Resources.Designer.cs

     文件       5612  2012-03-04 23:52  围棋2\围棋2\Properties\Resources.resx

     文件       1092  2012-03-04 23:52  围棋2\围棋2\Properties\Settings.Designer.cs

     文件        249  2012-03-04 23:52  围棋2\围棋2\Properties\Settings.settings

     文件       3885  2012-03-05 06:35  围棋2\围棋2\围棋2.csproj

     文件        143  2012-03-05 06:35  围棋2\围棋2\围棋2.csproj.user

     文件        863  2012-03-05 06:35  围棋2\围棋2.sln

    ..A..H.     24064  2012-03-09 07:22  围棋2\围棋2.suo

     目录          0  2012-03-05 06:35  围棋2\围棋2\obj\x86\Debug\TempPE

     目录          0  2012-03-09 02:52  围棋2\围棋2\obj\x86\Debug

............此处省略12个文件信息