Unit1.pas

//   Copyright 2011,2012 by Wu Hon Sum
//   This program is free software: you can redistribute it and/or modify
//    it under the terms of the GNU General Public License as published by
//    the Free Software Foundation, either version 3 of the License, or
//    any later version.
//
//    This program is distributed in the hope that it will be useful,
//    but WITHOUT ANY WARRANTY; without even the implied warranty of
//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//    GNU General Public License for more details.
//
//    You should have received a copy of the GNU General Public License
//    along with this program.  If not, see <http://www.gnu.org/licenses/>.
//
//  newsgroup:news://my.newsgroup.com.hk/welcome.sum
// forum http://home.i-cable.com/wu/
// movedlist may be wrong need remove later

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Menus,ComCtrls;

const
  inf = 10000;

{
  pos_mark[100] ={ 0,0,0,0,0,0,0,0,0,0,
     0,255,-8,2,2,2,2,-8,255,0,
      0,-8,-90, 1, 1, 1, 1,-90,-8,0,
       0,2,  1, 1, 1, 1, 1,  1, 2,0,
       0,2,  1, 1, 1, 1, 1,  1, 2,0,
       0,2,  1, 1, 1, 1, 1,  1, 2,0,
       0,2,  1, 1, 1, 1, 1,  1, 2,0,
      0,-8,-90, 1, 1, 1, 1,-90,-8,0,
      0,255,-8,2,2,2,2,-8,255,0,
      0,0,0,0,0,0,0,0,0,0}
//0 分是邊界 , 255 分是角


type
  Tboard=array[0..9,0..9] of integer;
  Tmovelist = array[1..20] of integer;
  TAppleResult = record
         score:integer;
          step:Tmovelist;
  end;

type
  TForm1 = class(TForm)
    apple: TImage;
    Chess2: TImage;
    Chess1: TImage;
    RedChess: TImage;
    BlackChess: TImage;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    Image21: TImage;
    Image22: TImage;
    Image23: TImage;
    Image24: TImage;
    Image25: TImage;
    Image26: TImage;
    Image27: TImage;
    Image28: TImage;
    Image29: TImage;
    Image30: TImage;
    Image31: TImage;
    Image32: TImage;
    Image33: TImage;
    Image34: TImage;
    Image35: TImage;
    Image36: TImage;
    Image37: TImage;
    Image38: TImage;
    Image39: TImage;
    Image40: TImage;
    Image41: TImage;
    Image42: TImage;
    Image43: TImage;
    Image44: TImage;
    Image45: TImage;
    Image46: TImage;
    Image47: TImage;
    Image48: TImage;
    Image49: TImage;
    Image50: TImage;
    Image51: TImage;
    Image52: TImage;
    Image53: TImage;
    Image54: TImage;
    Image55: TImage;
    Image56: TImage;
    Image57: TImage;
    Image58: TImage;
    Image59: TImage;
    Image60: TImage;
    Image61: TImage;
    Image62: TImage;
    Image63: TImage;
    Image64: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    MainMenu1: TMainMenu;
    SaveButton: TMenuItem;
    Closebutton: TMenuItem;
    Restartbutton: TMenuItem;
    LoadButton: TMenuItem;
    Mode1: TMenuItem;
    HumanVsComputer: TMenuItem;
    ComputerVsHuman: TMenuItem;
    HumanvsHuman: TMenuItem;
    BackButton: TMenuItem;
    StepListBox: TListBox;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    BoardSetting: TMenuItem;
    ClearButton: TButton;
    MoveFirstRadioGroup: TRadioGroup;
    CopyToClipboardButton: TButton;
    ChessRadioGroup: TRadioGroup;
    SetupBoard: TMenuItem;
    CancelSetupBoard: TMenuItem;
    FinishSetupboard: TMenuItem;
    AiListBox: TListBox;
    NornalDepth: TEdit;
    Label5: TLabel;
    EndgameDepth: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    ScoreLabel: TLabel;
    AIDisplayScoreLabel: TLabel;
    Redlabel: TLabel;
    BlackLabel: TLabel;
    ProgressBar1: TProgressBar;
    Startposition2Button: TMenuItem;
    Startposition3Button: TMenuItem;
    Startposition4Button: TMenuItem;
    Startposition1Button: TMenuItem;
    ThinkstepEdit: TEdit;
    StartpositionButton: TMenuItem;
    Startposition6utton: TMenuItem;
    StopThinkButton: TMenuItem;
    Tojavaboardbutton: TMenuItem;
    HumanFirstButton: TMenuItem;
    CompuerFirstButton: TMenuItem;
    HumanVsHumanButton: TMenuItem;
    AboutButton: TMenuItem;
    RuleButton: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure RedChessClick(Sender: TObject);
    procedure BlackChessClick(Sender: TObject);
    procedure ClosebuttonClick(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
    procedure CopyToClipboardButtonClick(Sender: TObject);
    procedure ChessRadioGroupClick(Sender: TObject);
    procedure Chess2Click(Sender: TObject);
    procedure ComputerVsHumanClick(Sender: TObject);
    procedure HumanVsComputerClick(Sender: TObject);
    procedure Chess1Click(Sender: TObject);
    procedure SetupBoardClick(Sender: TObject);
    procedure FinishSetupboardClick(Sender: TObject);
    procedure CancelSetupBoardClick(Sender: TObject);
    procedure LoadButtonClick(Sender: TObject);
    procedure Deletechess(Sender: TObject);
    procedure ClearButtonClick(Sender: TObject);
    procedure BackButtonClick(Sender: TObject);
    function Boardtostr(const aboard:Tboard):string;
    procedure Startposition2ButtonClick(Sender: TObject);
    procedure Startposition3ButtonClick(Sender: TObject);
    procedure Startposition4ButtonClick(Sender: TObject);
    procedure Startposition1ButtonClick(Sender: TObject);
    procedure StartpositionButtonClick(Sender: TObject);
    procedure Startposition6uttonClick(Sender: TObject);
    procedure StopThinkButtonClick(Sender: TObject);
    procedure TojavaboardbuttonClick(Sender: TObject);
    procedure HumanFirstButtonClick(Sender: TObject);
    procedure CompuerFirstButtonClick(Sender: TObject);
    procedure HumanVsHumanButtonClick(Sender: TObject);
    procedure AboutButtonClick(Sender: TObject);
    procedure RuleButtonClick(Sender: TObject);
  private
      ThreadAFinished,ThreadBFinished: Boolean;
      StopThink:Boolean;
      initboard,board:Tboard;
      FirstIsRed:Boolean;
      NotInBack:Boolean;
//      RedMove:boolean;//use in Setupboard
//    step:integer;
 //   MoveListA,MoveListB:TMemo;
      RedNoMove:Boolean;
      BlackNoMove:Boolean;
      RealDepth:integer;
      Redlist,Blacklist:TStringList;
      AiMovelist:string;
      movedlist:TStringList;
      procedure MakeRedMove(const ABoard:Tboard;var temp:TStringList);
      procedure MakeBlackMove(const ABoard:Tboard;var temp:TStringList);
 //     function MakeRedMoveAI(const ABoard:Tboard):TStringList;
//      function MakeBlackMoveAI(const ABoard:Tboard):TStringList;
      procedure MakeClick(t:Tstringlist;Player:string);
      procedure Score(const Aboard:Tboard;var RedScore,BlackScore:integer);
      procedure RedBoardUpdate(var Aboard:Tboard;LastChess:Integer);
      procedure BlackBoardUpdate(var Aboard:Tboard;LastChess:Integer);
      procedure Updateboard;
      function AI(Aboard:Tboard;ComputerIsRed:Boolean):string;
      function MinMax(Aboard:Tboard;SideIsRed:Boolean;depth:integer;var aithinkstep:string):integer;
      function MinMaxRandom(Aboard:Tboard;SideIsRed:Boolean;depth:integer;var aithinkstep:string):integer;
      function EvaluateScore(const Aboard:Tboard;const SideIsRed:Boolean):Integer;
      function MinMaxStart(Aboard:Tboard;SideIsRed:Boolean;depth:integer;var aithinkstep:string):integer;
      Procedure Scoresort(var scorelist:Tstringlist;var stepno:Tstringlist);
      function ThinkNumber(Aboard:Tboard;SideIsRed:Boolean;depth:integer):integer;
      Function BoardtoFen:String;
    { Private declarations }
  public
    { Public declarations }
  end;




var
  Form1: TForm1;
  {
  PicCompentName: array [1..64] of string =(
  'Image1','Image2','image3','Image4','Image5',
  'Image6','Image7','image8','Image9','Image10',
  'Image11','Image12','image13','Image14','Image15',
  'Image16','Image17','image18','Image19','Image20',
  'Image21','Image22','image23','Image24','Image25',
  'Image26','Image27','image28','Image29','Image30',
  'Image31','Image32','image33','Image34','Image35',
  'Image36','Image37','image38','Image39','Image40',
  'Image41','Image42','image43','Image44','Image45',
  'Image46','Image47','image48','Image49','Image50',
  'Image51','Image52','image53','Image54','Image55',
  'Image56','Image57','image58','Image59','Image60',
  'Image61','Image62','image63','Image64');
  }
 //  board:array[1..8,1..8] of integer = (
 {
    Initboard: Tboard = (
   (0,0,0,0,0,0,0,0),
   (0,0,0,0,0,0,0,0),
   (0,0,0,0,0,0,0,0),
   (0,0,0,-1,1,0,0,0),
   (0,0,0,1,-1,0,0,0),
   (0,0,0,0,0,0,0,0),
   (0,0,0,0,0,0,0,0),
   (0,0,0,0,0,0,0,0));

    board:Tboard = (
   (0,0,0,0,0,0,0,0),
   (0,0,0,0,0,0,0,0),
   (0,0,0,0,0,0,0,0),
   (0,0,0,-1,1,0,0,0),
   (0,0,0,1,-1,0,0,0),
   (0,0,0,0,0,0,0,0),
   (0,0,0,0,0,0,0,0),
   (0,0,0,0,0,0,0,0));
}
// 1 red ; -1 black ; 0 space
// eat chess-> new board->produce eat step -> eat chess...
    PosMark:Tboard = (
    (0,0,0,0,0,0,0,0,0,0),
      (0,-199,3,-1,-1,-1,-1,3,-199,0),
      (0,3,-1,-1,-1,-1,-1,-1,3,0),
       (0,-1,-1,-1,-1,-1,-1,-1,-1,0),
       (0,-1,-1,-1,-1,-1,-1,-1,-1,0),
       (0,-1,-1,-1,-1,-1,-1,-1,-1,0),
       (0,-1,-1,-1,-1,-1,-1,-1,-1,0),
      (0,3,-1,-1,-1,-1,-1,-1,3,0),
      (0,-199,3,-1,-1,-1,-1,3,-199,0),
    (0,0,0,0,0,0,0,0,0,0)
      );
{
     BlackPosMark:Tboard = (
     (0,0,0,0,0,0,0,0,0,0),
      (0,200,2,-1,-1,-1,-1,2,200,0),
      (0,2,-1,-1,-1,-1,-1,-1,2,0),
       (0,-1,-1,-1,-1,-1,-1,-1,-1,0),
       (0,-1,-1,-1,-1,-1,-1,-1,-1,0),
       (0,-1,-1,-1,-1,-1,-1,-1,-1,0),
       (0,-1,-1,-1,-1,-1,-1,-1,-1,0),
      (0,2,-1,-1,-1,-1,-1,-1,2,0),
      (0,200,2,-1,-1,-1,-1,2,200,0),
    (0,0,0,0,0,0,0,0,0,0)
      );
 }
implementation



{$R *.dfm}

function Tform1.Boardtostr(const aboard:Tboard):string;
var a,b:integer;
begin
  result:='';
  for a:= 1 to 8 do
  begin
    for b:=1 to 8 do
    begin
      if board[b][a] = -1 then
        result:=result+'0'
      else if board[b][a] = 0 then
        result:=result+'1'
      else if board[b][a] = 1 then
        result:=result+'2';
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var a,b:integer;
begin
  randomize;
  StopThink:=False;
//  RedMove:=True;
  for a:= 0 to 9 do
    for b:= 0 to 9 do
      Initboard[a][b]:=0;

  board:=Initboard;
  FirstIsRed:=True;
  NotinBack:=True;
  Redlist := TStringList.Create;
  Blacklist := TStringList.Create;
  movedlist := TStringList.Create;
  RedNoMove:=False;
  BlackNoMove:=false;

  Image28.picture := Redchess.Picture;
  Image29.picture := Redchess.Picture;
  Image36.picture := Redchess.Picture;
  Image37.picture := Redchess.Picture;
  Image28.OnClick := Redchess.OnClick;
  Image29.OnClick := Redchess.OnClick;
  Image36.OnClick := Redchess.OnClick;
  Image37.OnClick := Redchess.OnClick;
  Redlist.Add('Image28');
  Redlist.Add('Image29');
  Redlist.Add('Image36');
  Redlist.Add('Image37');
  Label3.Caption:='0';
  Label4.Caption:='0';

end;



procedure TForm1.MakeRedMove(const aBoard:Tboard;var temp:TStringList);
var b,c,d:integer;
Label nextpeace;
begin
 //  aBoard is for ai work
  temp.clear;
  for b:=1 to 8 do
  for c:=1 to 8 do
  begin
    if aboard[b,c] <> 0 then
      goto nextpeace;
    //from left to right
      if c < 7 then if aboard[b][c+1] = -1 then
      begin
        for d:=2 to 7 do
        begin
          if c+d < 9 then
          begin
            if aboard[b][c+d] = 1 then
            begin
                temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b][c+d] <> -1 then break;
          end;
        end;
      end;


    if c > 2  then // from right to left
    begin
      if aboard[b][c-1] = -1 then
      begin
        for d:=2 to 7 do
        begin
          if c-d > 0 then
          begin
            if aboard[b][c-d] = 1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b][c-d] <> -1 then break;
          end;
        end;
      end;
    end;

    if b < 7  then //from top to bottom
    begin
      if aboard[b+1][c] = -1 then
      begin
        for d:= 2 to 7 do
        begin
          if b+d < 9 then
          begin
            if aboard[b+d][c] = 1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;;
            end
            else if aboard[b+d][c] <> -1 then break;
          end;
        end;
      end;
    end;

    if b > 2 then //from bottom to top
    begin
      if aboard[b-1][c] = -1 then
      begin
        for d := 2 to 7 do
        begin
          if b - d > 0 then
          begin
            if aboard[b-d][c] = 1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;;
            end
            else if aboard[b-d][c] <> -1 then break;
          end;
        end;
      end;
    end;

    if (b < 7) and (c < 7) then //from left top and right bottom
    begin
      if aboard[b+1][c+1] = -1 then
      begin
        for d:= 2 to 7 do
        begin
          if (b+d < 9) and (c+d < 9) then
          begin
            if aboard[b+d][c+d] = 1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;;
            end
            else if aboard[b+d][c+d] <> -1 then break;
          end;
        end;
      end;
    end;

    if (b > 2) and (c > 2) then //from right bottom to left top
    begin
      if aboard[b-1][c-1] = -1 then
      begin
        for d:= 2 to 7 do
        begin
          if (b-d > 0) and (c-d > 0) then
          begin
            if aboard[b-d][c-d] = 1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b-d][c-d] <> -1 then break;
          end;
        end;
      end;
    end;

    if (b < 7) and (c > 2) then //from left bottom to right top
    begin
      if aboard[b+1][c-1] = -1 then
      begin
        for d :=2 to 7 do
        begin
          if (b+d < 9) and (c-d > 0) then
          begin
            if aboard[b+d][c-d] = 1 then
            begin
              temp.add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b+d][c-d] <> -1 then break;
          end;
        end;
      end;
    end;

    if (b > 2) and (c < 7) then //from right top to left bottom
    begin
      if aboard[b-1][c+1] = -1 then
      begin
        for d :=2 to 7 do
        begin
          if (b-d > 0) and (c+d < 9) then
          begin
            if aboard[b-d][c+d] = 1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b-d][c+d] <> -1 then goto nextpeace;
          end;
        end;
      end;
    end;
    nextpeace:
  end;
end;


procedure TForm1.MakeblackMove(const aBoard:Tboard;var temp:TStringList);
var b,c,d:integer;
Label nextpeace;
begin

// make all unplayed box
  temp.Clear;
  for b:=1 to 8 do
  for c:=1 to 8 do
  begin
    if aboard[b,c] <> 0 then
      Continue;
    //from left to right

      if c < 7 then if aboard[b][c+1] = 1 then
      begin
        for d:=2 to 7 do
        begin
          if c+d < 9 then
          begin
            if aboard[b][c+d] = -1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;;
            end
            else if aboard[b][c+d] <> 1 then break;
          end;
        end;
      end;

    if c > 2 then // from right to left
    begin
      if aboard[b][c-1] = 1 then
      begin
        for d:=2 to 7 do
        begin
          if c-d > 0 then
          begin
            if aboard[b][c-d] = -1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b][c-d] <> 1 then break;
          end;
        end;
      end;
    end;

    if b <7 then //from top to bottom
    begin
      if aboard[b+1][c] = 1 then
      begin
        for d:= 2 to 7 do
        begin
          if b+d < 9 then
          begin
            if aboard[b+d][c] = -1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b+d][c] <> 1 then break;
          end;
        end;
      end;
    end;

    if b > 2 then //from bottom to top
    begin
      if aboard[b-1][c] = 1 then
      begin
        for d := 2 to 7 do
        begin
          if b - d > 0 then
          begin
            if aboard[b-d][c] = -1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;;
            end
            else if aboard[b-d][c] <> 1 then
              break;
          end;
        end;
      end;
    end;

    if (b < 7) and (c < 7) then //from left top and right bottom
    begin
      if aboard[b+1][c+1] = 1 then
      begin
        for d:= 2 to 7 do
        begin
          if (b+d < 9) and (c+d < 9) then
          begin
            if aboard[b+d][c+d] = -1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b+d][c+d] <> 1 then break;
          end;
        end;
      end;
    end;

    if (b > 2) and (c > 2) then //from right bottom to left top
    begin
      if aboard[b-1][c-1] = 1 then
      begin
        for d:= 2 to 7 do
        begin
          if (b-d > 0) and (c-d > 0) then
          begin
            if aboard[b-d][c-d] = -1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b-d][c-d] <> 1 then break;
          end;
        end;
      end;
    end;

    if (b < 7) and (c > 2) then //from left bottom to right top
    begin
      if aboard[b+1][c-1] = 1 then
      begin
        for d :=2 to 7 do
        begin
          if (b+d < 9) and (c-d > 0) then
          begin
            if aboard[b+d][c-d] = -1 then
            begin
              temp.add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b+d][c-d] <> 1 then break;
          end;
        end;
      end;
    end;

    if (b > 2) and (c < 7) then //from right top to left bottom
    begin
      if aboard[b-1][c+1] = 1 then
      begin
        for d :=2 to 7 do
        begin
          if (b-d > 0) and (c+d < 9) then
          begin
            if aboard[b-d][c+d] = -1 then
            begin
              temp.Add(IntTostr(8*c+b-8));
              goto nextpeace;
            end
            else if aboard[b-d][c+d] <> 1 then goto nextpeace;
          end;
        end;
      end;
    end;
    nextpeace:
  end;
end;
//end of aimove

procedure TForm1.MakeClick(t:Tstringlist;Player:string);
var a:integer;
begin
  for a:= 0 to t.Count-1 do
    t[a]:='Image'+ t[a];
  redlist.Clear;
  blacklist.Clear;
  if player = 'player1' then
  begin
    for a:= 0 to t.Count-1 do
      redlist.Add(t[a]);
  end
  else begin
    for a:= 0 to t.Count-1 do
      blacklist.Add(t[a]);
  end;
end;

procedure TForm1.RedBoardUpdate(var Aboard:Tboard;LastChess:Integer);
var a,b,c,d:integer;
begin
  a:= LastChess;
  c:= a div 8 +1 ;
  b:= a mod 8;
//  if c = 0 then
//    Aboard[b-1][8] := 1
//  else

  if b = 0 then
  begin
    c:=c-1;
    b:=8;
  end;
//  }
  Aboard[b][c] := 1;
  // left

  if c > 2 then
  begin
    if (Aboard[b][c-1] = -1) and (Aboard[b][c-2] <> 0) then
    begin
      d:=1;
      while (Aboard[b][c-d] = -1) do
        inc(d);
      if Aboard[b][c-d] = 1 then
      begin
        for a := 1 to d-1 do
          Aboard[b][c-a] := 1;
      end;
    end;
  end;



  // right test

  if c < 7 then
  begin
    if (Aboard[b][c+1] = -1) and (Aboard[b][c+2] <> 0) then
    begin
      d:=1;
      while (Aboard[b][c+d] = -1) do
        inc(d);
      if Aboard[b][c+d] = 1 then
      begin
        for a := 1 to d-1 do
          Aboard[b][c+a] := 1;
      end;
    end;
  end;



  //top test

  if b > 2 then
  begin
    if (Aboard[b-1][c] = -1) and (Aboard[b-2][c] <> 0) then
    begin
      d:=1;
      while (Aboard[b-d][c] = -1) do
        inc(d);
      if Aboard[b-d][c] = 1 then
      begin
        for a := 1 to d-1 do
          Aboard[b-a][c] := 1;
      end;
    end;
  end;


   // bottom test

  if b < 7 then
  begin
    if (Aboard[b+1][c] = -1) and (Aboard[b+2][c] <> 0) then
    begin
      d:=1;
      while (Aboard[b+d][c] = -1) do
        inc(d);
      if Aboard[b+d][c] = 1 then
      begin
        for a := 1 to d-1 do
          Aboard[b+a][c] := 1;
      end;
    end;
  end;



  // left top test

  if (b-2>0) and (c-2 > 0) then
  begin
    if (Aboard[b-1][c-1] = -1) and (Aboard[b-2][c-2] <> 0) then
    begin
      d:=1;
      while (Aboard[b-d][c-d] = -1) do
        inc(d);
      if Aboard[b-d][c-d] = 1 then
      begin
        for a := 1 to d-1 do
          Aboard[b-a][c-a] := 1;
      end;
    end;
  end;



//   left bottom test

  if (b < 7) and (c > 2) then
  begin
    if (Aboard[b+1][c-1] = -1) and (Aboard[b+2][c-2] <> 0) then
    begin
      d:=1;
      while (Aboard[b+d][c-d] = -1) do
        inc(d);
      if Aboard[b+d][c-d] = 1 then
      begin
        for a := 1 to d-1 do
          Aboard[b+a][c-a] := 1;
      end;
    end;
  end;


  // right bottom test

  if (b < 7) and (c < 7) then
  begin
    if (Aboard[b+1][c+1] = -1) and (Aboard[b+2][c+2] <> 0) then
    begin
      d:=1;
      while (Aboard[b+d][c+d] = -1) do
        inc(d);
      if Aboard[b+d][c+d] = 1 then
      begin
        for a := 1 to d-1 do
          Aboard[b+a][c+a] := 1;
      end;
    end;
  end;



// right top fixed 2 nd

  if (b-2>0) and (c+2<9) then
  begin
    if (Aboard[b-1][c+1] = -1) and (Aboard[b-2][c+2] <> 0) then
    begin
      d:=1;
      while (Aboard[b-d][c+d] = -1) do
        inc(d);
      if Aboard[b-d][c+d] = 1 then
      begin
        for a := 1 to d-1 do
          Aboard[b-a][c+a] := 1;
      end;
    end;
  end;

  // give another play
end;

procedure TForm1.RedChessClick(Sender: TObject);
// update chess
var a,b,c:integer;templist:tstringlist;
begin
// clean move
  Timage(Sender).Picture := Chess2.Picture;
  Timage(Sender).OnClick := nil;
  // clean the t
  For a:= 0 to Redlist.Count-1 do
  begin
    if TWinControl(FindComponent(Redlist[a])) <> TWinControl(Sender) then
    begin
      Timage(FindComponent(Redlist[a])).picture := nil;
      Timage(FindComponent(Redlist[a])).onclick := nil;
    end;
  end;
  if notinback = true then
  begin
    c:=movedlist.Add('Red');
  for a:=1 to 8 do
    for b:=1 to 8 do
      movedlist[c]:=movedlist[c]+intTostr(board[a][b]+1);
  end;
  a:=StrToint(Copy(TComponent(Sender).name,6,2));
// temp fix wrong ?
  b:= a div 8 +1 ;
  c:= a mod 8;
  if c = 0 then
  begin
    b:=b-1;
    c:=8;
  end;
//  a := (c-1)*8 + b;
    board[c][b] := 1;

  if notinback = true then
  begin
    if c <> 0 then
      StepListbox.Items.Add('Red '+intTostr(c)+','+inttostr(b))
    else
      StepListbox.Items.Add('Red 8,'+inttostr(b-1));
  end;
  if StepListBox.items.count > 1 then
    BackButton.enabled:=True;
  StepListbox.ItemIndex:=StepListbox.items.Count-1;
  redlist.Clear;
  blacklist.Clear;
  score(board,b,c);
  if b + c < 4 then
  begin
    Label3.Caption:=intTostr(b);
    Label4.Caption:=intTostr(c);
    Image28.OnClick := nil;
    Image29.OnClick := nil;
    Image36.OnClick := nil;
    Image37.OnClick := nil;
    templist := Tstringlist.Create;
    if board[4][4] = 0 then
    begin
       Image28.OnClick := BlackChessClick;
       Image28.Picture := BlackChess.Picture;
       Blacklist.Add('Image28');
       templist.Add('Image28');
    end;
    if board[5][4] = 0 then
    begin
       Image29.OnClick := BlackChessClick;
       Image29.Picture := BlackChess.Picture;
       Blacklist.Add('Image29');
       templist.Add('Image29');
    end;
    if board[4][5] = 0 then
    begin
       Image36.OnClick := BlackChessClick;
       Image36.Picture := BlackChess.Picture;
       Blacklist.Add('Image36');
       templist.Add('Image36');
    end;
    if board[5][5] = 0 then
    begin
       Image37.OnClick := BlackChessClick;
       Image37.Picture := BlackChess.Picture;
       Blacklist.Add('Image37');
       templist.Add('Image37');
    end;
    a := Random(templist.Count);
    if HumanVsComputer.Checked = true then
      BlackChessclick(Timage(FindComponent(templist[a])));
     templist.Free;
    exit;
  end;
  RedboardUpdate(board,a);
  Score(board,b,c);
  Label3.Caption:=intTostr(b);
  Label4.Caption:=intTostr(c);
  templist := Tstringlist.Create;
  // give another play
  MakeBlackMove(board,templist);
  if templist.Count > 0 then
  begin
    MakeClick(templist,'player2');
    RedNoMove:=False;
    BlackNoMove:=False;
    Updateboard;
    if (HumanVsComputer.Checked = true) and (FirstIsRed = true) or (ComputerVsHuman.Checked = true) and (FirstIsRed = false) then
    begin
      Application.ProcessMessages;
      Sleep(2000);
      BlackChessclick(Timage(FindComponent(AI(board,False))));
//      Updateboard; AiMoveList
    end;
  end
  else
  begin
    if notinback =False then
      exit;
    StepListBox.Items.Add('Black pass');
    c:=movedlist.Add('Blackpass');
    for a:=1 to 8 do
      for b:=1 to 8 do
      movedlist[c]:=movedlist[c]+intTostr(board[a][b]+1);
    if StepListBox.items.count > 1 then
      backbutton.enabled:=True;
    if RedNoMove = True then
    begin
      Updateboard;
      score(board,a,b);
      if a < b Then
        ShowMessage('Both no more move,finish game'+#13+'Red win')
      else if a < b then
        ShowMessage('Both no more move,finish game'+#13+'Black win')
      else if a = b then
        ShowMessage('Both no more move,finish game'+#13+'Draw');
    end
    else begin
      Updateboard;
      templist.Clear;
      if a+b <> 64 then
        ShowMessage('Black no move');
      MakeRedMove(board,templist);
      if templist.Count > 0 then
      begin
        MakeClick(templist,'player1');
        RedNoMove:=False;
        BlackNoMove:=False;
        Updateboard;
//        if ComputerVsHuman.Checked = true then
        if (ComputerVsHuman.Checked = true) and (FirstIsRed = true) then
        begin
          Application.ProcessMessages;
          Sleep(2000);
//        RedChessclick(Timage(FindComponent(templist[0])));
          RedChessclick(Timage(FindComponent(AI(board,True))));
//          Updateboard;
        end;
      end
      else begin
        if NotInBack = True then
        begin
        StepListBox.Items.Add('Red pass');
        c:=movedlist.Add('Redpass');
        for a:=1 to 8 do
         for b:=1 to 8 do
        movedlist[c]:=movedlist[c]+intTostr(board[a][b]+1);
        end;
        if StepListBox.items.count > 1 then
          backbutton.enabled:=True;
        score(board,a,b);
        if a < b Then
          ShowMessage('Both no more move,finish game'+#13+'Red win')
        else if a > b then
          ShowMessage('Both no more move,finish game'+#13+'Black win')
        else if a = b then
          ShowMessage('Both no more move,finish game'+#13+'Draw');
      end;
    end;
  end;
  templist.Free;
end;

procedure TForm1.RuleButtonClick(Sender: TObject);
begin
  Showmessage('Rule:The player who has more pieces on the board when the game is finished, loses the game');
end;

procedure TForm1.Score(const Aboard:Tboard;var RedScore,BlackScore:integer);
var a,b:integer;
begin
  RedScore:=0;
  BlackScore:=0;
  for a:= 1 to 8 do
  begin
    for b:= 1 to 8 do
    begin
      if Aboard[a][b] = 1 then inc(RedScore)
      else if Aboard[a][b] = -1 then inc(BlackScore)
    end;
  end;
end;

procedure TForm1.Updateboard;
var a,b:integer;
begin
// draw general picture
  for a:= 1 to 8 do
    for b:= 1 to 8 do
    begin
      if board[a,b] = 1 then
        Timage(FindComponent('image'+intTostr(8*b+a-8))).picture := Chess2.picture
      else if board[a,b] = -1 then
        Timage(FindComponent('image'+intTostr(8*b+a-8))).picture := Chess1.picture
      else if board[a,b] = 0 then
        Timage(FindComponent('image'+intTostr(8*b+a-8))).picture := nil;
      Timage(FindComponent('image'+intTostr(8*b+a-8))).onclick := nil;
    end;
// draw red picture

//  for a:=0 to movelist.Lines.Count-1 do
  for a:=0 to Redlist.Count-1 do
  begin
    Timage(FindComponent(Redlist[a])).picture := Redchess.picture;
    Timage(FindComponent(Redlist[a])).OnClick := Redchess.onclick;
//    Timage(FindComponent(movelist.Lines[a])).picture := Redchess.picture;
//    Timage(FindComponent(movelist.Lines[a])).OnClick := Redchess.onclick;
  end;
//  for a:=0 to movelist.Lines.Count-1 do
  for a:=0 to Blacklist.Count-1 do
  begin
    Timage(FindComponent(Blacklist[a])).picture := BlackChess.picture;
    Timage(FindComponent(Blacklist[a])).OnClick := BlackChess.onclick;
//    Timage(FindComponent(Blacklist.Lines[a])).picture := Chess4.picture;
//    Timage(FindComponent(Blacklist.Lines[a])).OnClick := chess4.onclick;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 // 唔用就釋放番
  Redlist.Free;
  Blacklist.Free;
//  AiMoveList.Free;
  Movedlist.Free;
end;

procedure TForm1.Startposition1ButtonClick(Sender: TObject);
var a,b:integer;
begin
//  RedMove:=True;
  for a:= 1 to 8 do
    for b:= 1 to 8 do
      Initboard[a][b]:=0;
  Initboard[4][4]:=-1;
  Initboard[4][5]:=1;
  Initboard[5][4]:=1;
  Initboard[5][5]:=-1;

  board:=Initboard;
  FirstIsRed:=True;
  NotinBack:=True;
  Redlist.Clear;
  Blacklist.Clear;
  movedlist.Clear;
  RedNoMove:=False;
  BlackNoMove:=false;
  {
  Image28.picture := chess1.Picture;
  Image29.picture := chess2.Picture;
  Image36.picture := chess2.Picture;
  Image37.picture := chess1.Picture;
  Image20.picture := Redchess.picture;
  Image38.picture := Redchess.picture;
  Image27.picture := Redchess.picture;
  Image45.picture := Redchess.picture;
  }
  Image20.OnClick := Redchess.OnClick;
  Image38.OnClick := Redchess.OnClick;
  Image27.OnClick := Redchess.OnClick;
  Image45.OnClick := Redchess.OnClick;
  Redlist.Add('Image20');
  Redlist.Add('Image38');
  Redlist.Add('Image27');
  Redlist.Add('Image45');
  Label3.Caption:='2';
  Label4.Caption:='2';
  Updateboard;
end;

procedure TForm1.Startposition2ButtonClick(Sender: TObject);
var a,b:integer;
begin
 for a:= 1 to 8 do
    for b:= 1 to 8 do
      Initboard[a][b]:=0;
  Initboard[4][4]:=-1;
  Initboard[4][5]:=-1;
  Initboard[5][4]:=1;
  Initboard[5][5]:=1;

  board:=Initboard;
  FirstIsRed:=True;
  NotinBack:=True;

  Redlist.Clear;
  Blacklist.Clear;
  movedlist.Clear;
  RedNoMove:=False;
  BlackNoMove:=false;
  Image20.OnClick := Redchess.OnClick;
  Image38.OnClick := Redchess.OnClick;
  Image27.OnClick := Redchess.OnClick;
  Image45.OnClick := Redchess.OnClick;
  Redlist.Add('Image19');
  Redlist.Add('Image27');
  Redlist.Add('Image35');
  Redlist.Add('Image43');
  Label3.Caption:='2';
  Label4.Caption:='2';
  Updateboard;
end;

procedure TForm1.Startposition3ButtonClick(Sender: TObject);
var a,b:integer;
begin
 for a:= 1 to 8 do
    for b:= 1 to 8 do
      Initboard[a][b]:=0;
  Initboard[4][4]:=1;
  Initboard[4][5]:=-1;
  Initboard[5][4]:=-1;
  Initboard[5][5]:=1;

  board:=Initboard;
  FirstIsRed:=True;
  NotinBack:=True;
  Redlist.Clear;
  Blacklist.Clear;
  movedlist.Clear;
  RedNoMove:=False;
  BlackNoMove:=false;
  Image20.OnClick := Redchess.OnClick;
  Image38.OnClick := Redchess.OnClick;
  Image27.OnClick := Redchess.OnClick;
  Image45.OnClick := Redchess.OnClick;
  Redlist.Add('Image30');
  Redlist.Add('Image21');
  Redlist.Add('Image35');
  Redlist.Add('Image44');
  Label3.Caption:='2';
  Label4.Caption:='2';
  Updateboard;
end;


procedure TForm1.Startposition4ButtonClick(Sender: TObject);
var a,b:integer;
begin
 for a:= 1 to 8 do
    for b:= 1 to 8 do
      Initboard[a][b]:=0;
  Initboard[4][4]:=1;
  Initboard[4][5]:=1;
  Initboard[5][4]:=-1;
  Initboard[5][5]:=-1;

  board:=Initboard;
  FirstIsRed:=True;
  NotinBack:=True;

  Redlist.Clear;
  Blacklist.Clear;
  movedlist.Clear;
  RedNoMove:=False;
  BlackNoMove:=false;
  Image20.OnClick := Redchess.OnClick;
  Image38.OnClick := Redchess.OnClick;
  Image27.OnClick := Redchess.OnClick;
  Image45.OnClick := Redchess.OnClick;
  Redlist.Add('Image22');
  Redlist.Add('Image30');
  Redlist.Add('Image38');
  Redlist.Add('Image46');
  Label3.Caption:='2';
  Label4.Caption:='2';
  Updateboard;
end;

procedure TForm1.Startposition6uttonClick(Sender: TObject);
var a,b:integer;
begin
 for a:= 1 to 8 do
    for b:= 1 to 8 do
      Initboard[a][b]:=0;
  Initboard[4][4]:=-1;
  Initboard[4][5]:=1;
  Initboard[5][4]:=-1;
  Initboard[5][5]:=1;

  board:=Initboard;
  FirstIsRed:=True;
  NotinBack:=True;

  Redlist.Clear;
  Blacklist.Clear;
  movedlist.Clear;
  RedNoMove:=False;
  BlackNoMove:=false;
  Image20.OnClick := Redchess.OnClick;
  Image38.OnClick := Redchess.OnClick;
  Image27.OnClick := Redchess.OnClick;
  Image45.OnClick := Redchess.OnClick;
  Redlist.Add('Image19');
  Redlist.Add('Image20');
  Redlist.Add('Image21');
  Redlist.Add('Image22');
  Label3.Caption:='2';
  Label4.Caption:='2';
  Updateboard;
end;

procedure TForm1.StartpositionButtonClick(Sender: TObject);
var a,b:integer;
begin
 for a:= 1 to 8 do
    for b:= 1 to 8 do
      Initboard[a][b]:=0;
  Initboard[4][4]:=1;
  Initboard[4][5]:=-1;
  Initboard[5][4]:=1;
  Initboard[5][5]:=-1;

  board:=Initboard;
  FirstIsRed:=True;
  NotinBack:=True;

  Redlist.Clear;
  Blacklist.Clear;
  movedlist.Clear;
  RedNoMove:=False;
  BlackNoMove:=false;
  Image20.OnClick := Redchess.OnClick;
  Image38.OnClick := Redchess.OnClick;
  Image27.OnClick := Redchess.OnClick;
  Image45.OnClick := Redchess.OnClick;
  Redlist.Add('Image43');
  Redlist.Add('Image44');
  Redlist.Add('Image45');
  Redlist.Add('Image46');
  Label3.Caption:='2';
  Label4.Caption:='2';
  Updateboard;
end;

procedure TForm1.StopThinkButtonClick(Sender: TObject);
begin
  StopThink:=True;
end;

procedure TForm1.BlackBoardUpdate(var Aboard:Tboard;LastChess:Integer);
// update chess
var a,b,c,d:integer;
begin
  a:=LastChess;
  c:= a div 8 +1 ;
  b:= a mod 8;
//  if c = 0 then
//    Aboard[b-1][8] := -1

  if b = 0 then
  begin
    c:=c-1;
    b:=8;
  end;

//  else
    Aboard[b][c] := -1;
  // left

  if c > 2 then
  begin
    if (Aboard[b][c-1] = 1) and (Aboard[b][c-2] <> 0) then
    begin
      d:=1;
      while (Aboard[b][c-d] = 1) do
        inc(d);
      if Aboard[b][c-d] = -1 then
      begin
        for a := 1 to d-1 do
          Aboard[b][c-a] := -1;
      end;
    end;
  end;



  // right test

  if c < 7 then
  begin
    if (Aboard[b][c+1] = 1) and (Aboard[b][c+2] <> 0) then
    begin
      d:=1;
      while (Aboard[b][c+d] = 1) do
        inc(d);
      if Aboard[b][c+d] = -1 then
      begin
        for a := 1 to d-1 do
          Aboard[b][c+a] := -1;
      end;
    end;
  end;


  //top corrected test

  if b > 2 then
  begin
    if (Aboard[b-1][c] = 1) and (Aboard[b-2][c] <> 0) then
    begin
      d:=1;
      while (Aboard[b-d][c] = 1) do
        inc(d);
      if Aboard[b-d][c] = -1 then
      begin
        for a := 1 to d-1 do
          Aboard[b-a][c] := -1;
      end;
    end;
  end;



   // bottom test

  if b< 7 then
  begin
    if (Aboard[b+1][c] = 1) and (Aboard[b+2][c] <> 0) then
    begin
      d:=1;
      while (Aboard[b+d][c] = 1) do
        inc(d);
      if Aboard[b+d][c] = -1 then
      begin
        for a := 1 to d-1 do
          Aboard[b+a][c] := -1;
      end;
    end;
  end;



  // left top test

  if (b-2>0) and (c-2>0) then
  begin
    if (Aboard[b-1][c-1] = 1) and (Aboard[b-2][c-2] <> 0) then
    begin
      d:=1;
      while (Aboard[b-d][c-d] = 1) do
        inc(d);
      if Aboard[b-d][c-d] = -1 then
      begin
        for a := 1 to d-1 do
          Aboard[b-a][c-a] := -1;
      end;
    end;
  end;


//   left bottom test

  if (b+2<9) and (c-2>0) then
  begin
    if (Aboard[b+1][c-1] = 1) and (Aboard[b+2][c-2] <> 0) then
    begin
      d:=1;
      while (Aboard[b+d][c-d] = 1) do
        inc(d);
      if Aboard[b+d][c-d] = -1 then
      begin
        for a := 1 to d-1 do
          Aboard[b+a][c-a] := -1;
      end;
    end;
  end;


  // right bottom  test

  if (b+2<9) and (c+2<9) then
  begin
    if (Aboard[b+1][c+1] = 1) and (Aboard[b+2][c+2] <> 0) then
    begin
      d:=1;
      while (Aboard[b+d][c+d] = 1) do
        inc(d);
      if Aboard[b+d][c+d] = -1 then
      begin
        for a := 1 to d-1 do
          Aboard[b+a][c+a] := -1;
      end;
    end;
  end;


// right top fixed 2 nd

  if (b-2>0) and (c+2<9) then
  begin
    if (Aboard[b-1][c+1] = 1) and (Aboard[b-2][c+2] <> 0) then
    begin
      d:=1;
      while (Aboard[b-d][c+d] = 1) do
        inc(d);
      if Aboard[b-d][c+d] = -1 then
      begin
        for a := 1 to d-1 do
          Aboard[b-a][c+a] := -1;
      end;
    end;
  end;
end;


procedure TForm1.BlackChessClick(Sender: TObject);
// update chess
var a,b,c:integer;templist:Tstringlist;
begin
// clean move
  Timage(Sender).Picture := Chess1.Picture;
  Timage(Sender).OnClick := nil;
  // clean the made move
  For a:= 0 to Blacklist.Count-1 do
  begin
    if TWinControl(FindComponent(Blacklist[a])) <> TWinControl(Sender) then
    begin
      Timage(FindComponent(Blacklist[a])).picture := nil;
      Timage(FindComponent(Blacklist[a])).onclick := nil;
    end;
  end;
  if notinback = true then
  begin
    c:=movedlist.Add('Black');
    for a:=1 to 8 do
    for b:=1 to 8 do
      movedlist[c]:=movedlist[c]+intTostr(board[a][b]+1);
  end;

  a:=StrToint(Copy(TComponent(Sender).name,6,2));
// tempfix
  b:= a div 8 +1 ;
  c:= a mod 8;
  if c = 0 then
  begin
    b:=b-1;
    c:=8;
  end;
//  a := (c-1)*8 + b;
  board[c][b] := -1;
  if notinback = true then
  begin
    if c <> 0 then
      StepListbox.Items.Add('Black '+intTostr(c)+','+inttostr(b))
    else
      StepListbox.Items.Add('Black 8,'+inttostr(b-1));
   end;
   if StepListBox.items.count > 1 then
      backbutton.enabled:=True;
  StepListbox.ItemIndex:=StepListbox.items.Count-1;
   redlist.clear;
  blacklist.Clear;
  Score(board,b,c);
  if b + c < 4 then
  begin
    Label3.Caption:=intTostr(b);
    Label4.Caption:=intTostr(c);
    Image28.OnClick := nil;
    Image29.OnClick := nil;
    Image36.OnClick := nil;
    Image37.OnClick := nil;
    templist := Tstringlist.Create;
    if board[4][4] = 0 then
    begin
       Image28.OnClick := RedChessClick;
       Image28.Picture := RedChess.Picture;
       Blacklist.Add('Image28');
       templist.Add('Image28');
    end;
    if board[5][4] = 0 then
    begin
       Image29.OnClick := RedChessClick;
       Image29.Picture := RedChess.Picture;
       Blacklist.Add('Image29');
       templist.Add('Image29');
    end;
    if board[4][5] = 0 then
    begin
       Image36.OnClick := RedChessClick;
       Image36.Picture := RedChess.Picture;
       Blacklist.Add('Image36');
       templist.Add('Image36');
    end;
    if board[5][5] = 0 then
    begin
       Image37.OnClick := RedChessClick;
       Image37.Picture := RedChess.Picture;
       Blacklist.Add('Image37');
       templist.Add('Image37');
    end;
    a := Random(templist.Count);
    if ComputerVsHuman.Checked = true then
      RedChessclick(Timage(FindComponent(templist[a])));
     templist.Free;
    exit;
  end;
  BlackBoardUpdate(board,a);
  Score(board,b,c);
  Label3.Caption:=intTostr(b);
  Label4.Caption:=intTostr(c);
  templist:= Tstringlist.Create;
  MakeRedMove(board,templist);
  if templist.Count >0 then
  begin
    RedNoMove:=False;
    BlackNoMove:=False;
    MakeClick(templist,'player1');
    Updateboard;
//    if ComputerVsHuman.Checked = true then
    if (HumanVsComputer.Checked = true) and (FirstIsRed = false) or (ComputerVsHuman.Checked = True) and (FirstIsRed = true) then
    begin
      Application.ProcessMessages;
      Sleep(2000);
//      RedChessclick(Timage(FindComponent(templist[0])));
      RedChessclick(Timage(FindComponent(AI(board,true))));
 //     Updateboard;
    end;
  end
  else begin
    if notinback =False then
      exit;
    StepListBox.Items.Add('Red pass');
    c:=movedlist.Add('Red');
    for a:=1 to 8 do
     for b:=1 to 8 do
    movedlist[c]:=movedlist[c]+intTostr(board[a][b]+1);
//may be correcteed
    if RedNoMove = True then
    begin
      Updateboard;
      score(board,a,b);
      if a < b Then
        ShowMessage('Both no more move,finish game'+#13+'Red win')
      else if a > b then
        ShowMessage('Both no more move,finish game'+#13+'Black win')
      else if a = b then
        ShowMessage('Both no more move,finish game'+#13+'Draw');
    end
    else begin
      Updateboard;
      if a+b <> 64 then
        ShowMessage('Red pass');
      templist.clear;
      MakeBlackMove(board,templist);
      if templist.Count > 0 then
      begin
        MakeClick(templist,'player2');
        RedNoMove:=False;
        BlackNoMove:=False;
       Updateboard;
      if HumanVsComputer.Checked = true then
//    if (HumanVsComputer.Checked = true) and (FirstIsRed = false) or (HumanVsComputer.Checked = false) and (FirstIsRed = false) then
        begin
          Application.ProcessMessages;
          Sleep(2000);
          BlackChessclick(Timage(FindComponent(AI(board,False))));
        end;
      end
      else begin
      if NotInback = True then
      begin
        StepListBox.Items.Add('Black pass');
        c:=movedlist.Add('Black');
        for a:=1 to 8 do
         for b:=1 to 8 do
        movedlist[c]:=movedlist[c]+intTostr(board[a][b]+1);
      end;
      score(board,a,b);
      //corrected
      if a < b Then
        ShowMessage('Both no more move,finish game'+#13+'Red win')
      else if a > b then
        ShowMessage('Both no more move,finish game'+#13+'Black win')
      else if a = b then
        ShowMessage('Both no more move,finish game'+#13+'Draw');
      end;
    end;
  end;
  templist.Free;
end;
procedure TForm1.ClosebuttonClick(Sender: TObject);
begin
  Form1.Close;
end;

procedure TForm1.SaveButtonClick(Sender: TObject);
var a,b:integer;c:string;f:textfile;
begin
  SaveDialog1.Filter :='Reversi game files (*.txt)|*.TXT';
  if SaveDialog1.Execute then
  begin
    assignfile(f,SaveDialog1.FileName);
    try
      Rewrite(f);
      Writeln(F,'Anti Reversi 8x8');
      Writeln(F,'Initboard');
      for b:=1 to 8 do
      begin
        c:='';
        for a:=1 to 8 do
          c:=c+intTostr(initboard[a][b]+1);
        Writeln(F,c);
      end;
      Writeln(F,'Mode');
      if HumanVsComputer.Checked then
      begin
        c:= extractfilename(savedialog1.FileName);
        redlabel.Caption := copy(c,1,length(c)-4);
//        redlabel.Caption := extractfilename(savedialog1.FileName);
        blacklabel.Caption := 'Computer';
        Writeln(F,'HumanVSComputer');
      end
      else if ComputerVsHuman.Checked then
      begin
        c:= extractfilename(savedialog1.FileName);
        blacklabel.Caption := copy(c,1,length(c)-4);

//        blacklabel.Caption := extractfilename(savedialog1.FileName);
        redlabel.Caption := 'Computer';
        Writeln(F,'ComputerVSHuman');
      end
      else begin
        redlabel.Caption := 'Computer';
        blacklabel.Caption := 'Computer';
        Writeln(F,'HumanVSHuman');
      end;
      if FirstIsRed = true then
        Writeln(F,'Red first')
      else
        Writeln(F,'Black first');
      for a:= 0 to steplistbox.Items.Count-1 do
        Writeln(f,steplistbox.items[a]);
    finally
      closefile(f);
    end;
  end;
end;


Function TForm1.BoardtoFen:String;
var x,y,t:integer;
begin
//abc
  Result:='';
  for y:= 1 to 8 do
  begin
    t:=0;
    for x:= 1 to 8 do
    begin
       if initboard[x][y] = 0 then
          inc(t)
       else if initboard[x][y] = -1 then
       begin
          if t <> 0 then
            Result:= Result + inttostr(t) + 'B'
          else
            Result:= Result +'B';
          t:=0;
       end
       else if initboard[x][y] = 1 then
       begin
          if t <> 0 then
            Result:= Result + inttostr(t) + 'R'
          else
            Result:= Result + 'R';
          t:=0;
       end;
    end;
    if y  <> 8 then
    begin
      if t = 0 then
        Result := Result + '/'
      else
        Result := Result + inttostr(t) +'/';
    end
    else begin
      if t <> 0 then
        Result := Result + inttostr(t);
    end;

  end;

end;

procedure TForm1.CopyToClipboardButtonClick(Sender: TObject);
var a:integer;temp:TMemo;
begin
  temp:=TMemo.CreateParented(Form1.Handle);
  temp.Lines.Add(BoardtoFen);
  for a:= 0 to StepListBox.Items.Count-1 do
    temp.Lines.Add(StepListBox.Items[a]);
  temp.SelectAll;
  temp.CopyToClipboard;
  temp.Destroy;
end;

procedure TForm1.ChessRadioGroupClick(Sender: TObject);
var a,b:integer;
begin
  if ChessRadioGroup.ItemIndex = 0 then
  begin
    for a:=1 to 8 do
    begin
      for b:=1 to 8 do
        Timage(FindComponent('image'+intTostr(8*a+b-8))).Onclick := Chess2Click;
    end;
  end
  else if ChessRadioGroup.ItemIndex = 1 then begin
    for a:=1 to 8 do
    begin
      for b:=1 to 8 do
        Timage(FindComponent('image'+intTostr(8*a+b-8))).Onclick := Chess1Click;
    end;
  end
  else if ChessRadioGroup.ItemIndex = 2 then begin
    for a:=1 to 8 do
    begin
      for b:=1 to 8 do
        Timage(FindComponent('image'+intTostr(8*a+b-8))).Onclick := deletechess;
    end;
  end;
end;

procedure TForm1.Deletechess(Sender: TObject);
begin
  Timage(Sender).picture := nil;
  Timage(Sender).Tag := 0;
end;

procedure TForm1.Chess2Click(Sender: TObject);
begin
  Timage(Sender).picture := chess2.Picture;
  Timage(Sender).Tag := 1;
end;

procedure TForm1.CompuerFirstButtonClick(Sender: TObject);
begin
  HumanVsHumanButton.Click;
//  ComputerVsHuman.Checked:=True;
  ComputerVsHuman.Click;
end;

procedure TForm1.ComputerVsHumanClick(Sender: TObject);
VAR b,c:integer;templist:Tstringlist;
begin
  if FirstIsRed then
  begin
    if StepListBox.Items.count = 0 then
      StepListBox.Items.add('temp');
    if  (StepListBox.Items[StepListBox.count-1] = 'temp') or (copy(StepListBox.Items[StepListBox.Items.count - 1],1,5) = 'Black') then
    begin
      if StepListBox.Items[StepListBox.count-1] = 'temp' then
         StepListBox.Clear;
      RedNoMove:=False;
      BlackNoMove:=False;
      Score(Board,b,c);
      if b+c > 3 then
      begin
        RedChessclick(Timage(FindComponent(AI(board,True))));
        Updateboard;
      end
      else begin
    Image28.OnClick := nil;
    Image29.OnClick := nil;
    Image36.OnClick := nil;
    Image37.OnClick := nil;
    templist := Tstringlist.Create;
    if board[4][4] = 0 then
    begin
       Image28.OnClick := RedChessClick;
       Image28.Picture := RedChess.Picture;
       Redlist.Add('Image28');
       templist.Add('Image28');
    end;
    if board[5][4] = 0 then
    begin
       Image29.OnClick := RedChessClick;
       Image29.Picture := RedChess.Picture;
       Redlist.Add('Image29');
       templist.Add('Image29');
    end;
    if board[4][5] = 0 then
    begin
       Image36.OnClick := RedChessClick;
       Image36.Picture := RedChess.Picture;
       Redlist.Add('Image36');
       templist.Add('Image36');
    end;
    if board[5][5] = 0 then
    begin
       Image37.OnClick := RedChessClick;
       Image37.Picture := RedChess.Picture;
       Redlist.Add('Image37');
       templist.Add('Image37');
    end;
    b := Random(templist.Count);
    if ComputerVSHuman.Checked = true then
    RedChessclick(Timage(FindComponent(templist[b])));
     templist.Free;
    exit;
      end;
    end;
  end

  else begin
    if  (StepListBox.Items.count = 0) or (copy(StepListBox.Items[StepListBox.Items.count - 1],1,5) = 'Black') then
    begin
      RedNoMove:=False;
      BlackNoMove:=False;
      Score(Board,b,c);
      if b+c > 4 then
      begin
      BlackChessclick(Timage(FindComponent(AI(board,false))));
      Updateboard;
      end
      else begin
    Image28.OnClick := nil;
    Image29.OnClick := nil;
    Image36.OnClick := nil;
    Image37.OnClick := nil;
    templist := Tstringlist.Create;
    if board[4][4] = 0 then
    begin
       Image28.OnClick := BlackChessClick;
       Image28.Picture := BlackChess.Picture;
       Blacklist.Add('Image28');
       templist.Add('Image28');
    end;
    if board[5][4] = 0 then
    begin
       Image29.OnClick := BlackChessClick;
       Image29.Picture := BlackChess.Picture;
       Blacklist.Add('Image29');
       templist.Add('Image29');
    end;
    if board[4][5] = 0 then
    begin
       Image36.OnClick := BlackChessClick;
       Image36.Picture := BlackChess.Picture;
       Blacklist.Add('Image36');
       templist.Add('Image36');
    end;
    if board[5][5] = 0 then
    begin
       Image37.OnClick := BlackChessClick;
       Image37.Picture := BlackChess.Picture;
       Blacklist.Add('Image37');
       templist.Add('Image37');
    end;
    b := Random(templist.Count);
    if ComputerVSHuman.Checked = true then
    BlackChessclick(Timage(FindComponent(templist[b])));
     templist.Free;
    exit;
      end;
    end;
  end;

end;



procedure TForm1.HumanFirstButtonClick(Sender: TObject);
begin

  HumanVsHumanButton.Click;
  HumanVsComputer.Checked :=True;
end;

procedure TForm1.HumanVsComputerClick(Sender: TObject);
var b,c:integer;templist:Tstringlist;
begin
  if FirstIsRed then
  begin
    if  (StepListBox.Items.count = 0) Then exit;
    if copy(StepListBox.Items[StepListBox.Items.count - 1],1,3) = 'Red' then
    begin
      RedNoMove:=False;
      BlackNoMove:=False;
      Score(Board,b,c);
      if b+c > 4 then
      begin
      BlackChessclick(Timage(FindComponent(AI(board,False))));
      Updateboard;
      end
      else begin
    Image28.OnClick := nil;
    Image29.OnClick := nil;
    Image36.OnClick := nil;
    Image37.OnClick := nil;
    templist := Tstringlist.Create;
    if board[4][4] = 0 then
    begin
       Image28.OnClick := BlackChessClick;
       Image28.Picture := BlackChess.Picture;
       Blacklist.Add('Image28');
       templist.Add('Image28');
    end;
    if board[5][4] = 0 then
    begin
       Image29.OnClick := BlackChessClick;
       Image29.Picture := BlackChess.Picture;
       Blacklist.Add('Image29');
       templist.Add('Image29');
    end;
    if board[4][5] = 0 then
    begin
       Image36.OnClick := BlackChessClick;
       Image36.Picture := BlackChess.Picture;
       Blacklist.Add('Image36');
       templist.Add('Image36');
    end;
    if board[5][5] = 0 then
    begin
       Image37.OnClick := BlackChessClick;
       Image37.Picture := BlackChess.Picture;
       Blacklist.Add('Image37');
       templist.Add('Image37');
    end;
    b := Random(templist.Count);
    if HumanVsComputer.Checked = true then
    BlackChessClick(Timage(FindComponent(templist[b])));
     templist.Free;
    exit;
    end;
  end

  else begin
    if  (StepListBox.Items.count = 0) Then exit;
    if copy(StepListBox.Items[StepListBox.Items.count - 1],1,3) = 'Red' then
    begin
      RedNoMove:=False;
      BlackNoMove:=False;
      Score(Board,b,c);
      if b+c > 4 then
      begin
      RedChessclick(Timage(FindComponent(AI(board,True))));
      Updateboard;
      end
       else begin
    Image28.OnClick := nil;
    Image29.OnClick := nil;
    Image36.OnClick := nil;
    Image37.OnClick := nil;
    templist := Tstringlist.Create;
    if board[4][4] = 0 then
    begin
       Image28.OnClick := RedChessClick;
       Image28.Picture := RedChess.Picture;
       Redlist.Add('Image28');
       templist.Add('Image28');
    end;
    if board[5][4] = 0 then
    begin
       Image29.OnClick := RedChessClick;
       Image29.Picture := RedChess.Picture;
       Redlist.Add('Image29');
       templist.Add('Image29');
    end;
    if board[4][5] = 0 then
    begin
       Image36.OnClick := RedChessClick;
       Image36.Picture := RedChess.Picture;
       Redlist.Add('Image36');
       templist.Add('Image36');
    end;
    if board[5][5] = 0 then
    begin
       Image37.OnClick := RedChessClick;
       Image37.Picture := RedChess.Picture;
       Redlist.Add('Image37');
       templist.Add('Image37');
    end;
    b := Random(templist.Count);
    if HumanVsComputer.Checked = true then
    RedChessClick(Timage(FindComponent(templist[b])));
     templist.Free;
    exit;
    end;
    end;
  end;


  end;

end;
procedure TForm1.HumanVsHumanButtonClick(Sender: TObject);
var a,b:integer;
begin
  HumanvsHuman.Checked :=True;
  redlist.Clear;
  blacklist.Clear;
  StepListBox.items.Clear;
  RedNoMove:=False;
  BlackNoMove:=false;
  backbutton.Checked:=false;
  for a:= 1 to 8 do
    for b:= 1 to 8 do
    begin
      board[a][b]:=0;
      Timage(FindComponent('image'+intTostr(8*a+b-8))).picture := nil;
      Timage(FindComponent('image'+intTostr(8*a+b-8))).Onclick := nil;
    end;

  Image28.picture := RedChess.Picture;
  Image29.picture := RedChess.Picture;
  Image36.picture := RedChess.Picture;
  Image37.picture := RedChess.Picture;
  Image28.OnClick := RedChess.OnClick;
  Image29.OnClick := RedChess.OnClick;
  Image36.OnClick := RedChess.OnClick;
  Image37.OnClick := RedChess.OnClick;

  Redlist.Add('Image28');
  Redlist.Add('Image29');
  Redlist.Add('Image36');
  Redlist.Add('Image37');
  Label3.Caption:='0';
  Label4.Caption:='0';
  end;

procedure TForm1.Chess1Click(Sender: TObject);
begin
  Timage(Sender).picture := chess1.Picture;
    Timage(Sender).Tag := -1;
end;

procedure TForm1.SetupBoardClick(Sender: TObject);
var a,b:integer;
begin
  form1.Tag:=0;
  restartbutton.Enabled:=False;
  if backbutton.Enabled = true then
  begin
    backbutton.Enabled:=false;
    form1.Tag:=1;
  end;
  savebutton.enabled:=false;
  loadbutton.Enabled:=False;
  ChessRadioGroup.Show;
  ClearButton.Show;
  MoveFirstRadioGroup.Show;
  SetupBoard.Enabled:=False;
  FinishSetupboard.Enabled:=True;
  CancelSetupBoard.Enabled:=True;
  if Redlist.Count > 0 then
  begin
    for a:= 0 to redlist.Count-1 do
      Timage(FindComponent(redlist[a])).picture := nil;
  end
  else if Blacklist.count >0 then
  begin
    for a:= 0 to Blacklist.Count-1 do
      Timage(FindComponent(blacklist[a])).picture := nil;
  end;
  For a:=1 to 8 do
  begin
    for b:=1 to 8 do
      Timage(FindComponent('image'+intTostr(8*b+a-8))).Tag:=board[a][b];
  end;


  if StepListBox.Items.Count=0 then
  begin
    if FirstIsRed=True then
     StepListBox.Items.Add('Black123')
   else
      StepListBox.Items.Add('Red123');
  end;

  if copy(StepListBox.Items[StepListBox.Items.Count-1],1,3) ='Red' then
  begin
    if StepListBox.Items[StepListBox.Items.Count-1] = 'Red123' then
      StepListBox.Items.Delete(StepListBox.Items.Count-1);
    MoveFirstRadioGroup.ItemIndex:= 1;
  end
  else begin
    if StepListBox.Items[StepListBox.Items.Count-1] = 'Black123' then
      StepListBox.Items.Delete(StepListBox.Items.Count-1);
    MoveFirstRadioGroup.ItemIndex:= 0;
  end;
  ChessRadioGroupClick(self);
end;

procedure TForm1.FinishSetupboardClick(Sender: TObject);
var a,b:integer;templist:Tstringlist;
begin
  form1.Tag:=0;
  templist := Tstringlist.Create;
  restartbutton.Enabled:=True;
  savebutton.enabled:=true;
  loadbutton.Enabled:=true;
  StepListBox.items.Clear;
  RedNoMove:=False;
  BlackNoMove:=False;
  HumanvsHuman.Checked:=True;
  SetupBoard.Enabled:=True;
  CancelSetupBoard.Enabled:=False;
  FinishSetupboard.Enabled:=False;
  MoveFirstRadioGroup.Hide;
  ChessRadioGroup.Hide;
  ClearButton.Hide;
  redlist.Clear;
  blacklist.Clear;
  BackButton.Enabled:=False;
  For a:=1 to 8 do
  begin
    For b:=1 to 8 do
    begin
     Initboard[a][b]:= Timage(FindComponent('image'+intTostr(8*b+a-8))).Tag;
     Timage(FindComponent('image'+intTostr(8*b+a-8))).Tag := 0;
    end;
  end;
  board:=Initboard;
  if MoveFirstRadioGroup.ItemIndex =0 then
  begin
    FirstIsRed:=True;
    MakeRedMove(board,templist);
    if templist.count > 0 then
    begin
      MakeClick(templist,'player1');
      Updateboard;
      score(board,a,b);
      label3.Caption:=intTostr(a);
      label4.caption:=intTostr(b);
    end
    else begin
      ShowMessage('Red no move');
      StepListBox.Items.Add('Red pass');
      RedNoMove:=True;
      Makeblackmove(board,templist);
      if templist.count > 0 then
      begin
        MakeClick(templist,'player2');
        Updateboard;
        score(board,a,b);
        label3.Caption:=intTostr(a);
        label4.caption:=intTostr(b);
      end
      else begin
        score(board,a,b);
        StepListBox.Items.Add('Black pass');
        if a > b Then
          ShowMessage('Both no more move,finish game'+#13+'Black win')
        else if a < b then
          ShowMessage('Both no more move,finish game'+#13+'Red win')
        else if a = b then
          ShowMessage('Both no more move,finish game'+#13+'Draw');
      end;
    end;
  end
  else if MoveFirstRadioGroup.ItemIndex =1 then begin
    FirstIsRed:=False;
    MakeBlackMove(board,templist);
    if templist.count > 0 then
    begin
      MakeClick(templist,'player2');
      Updateboard;
      score(board,a,b);
      label3.Caption:=intTostr(a);
      label4.caption:=intTostr(b);
    end
    else begin
      ShowMessage('Back no move');
      StepListBox.Items.Add('Black pass');
      BlackNoMove:=True;
      MakeRedmove(board,templist);
      if templist.count > 0 then
      begin
        MakeClick(templist,'player1');
        Updateboard;
        score(board,a,b);
        label3.Caption:=intTostr(a);
        label4.caption:=intTostr(b);
      end
      else begin
        ShowMessage('Red no move');
        StepListBox.Items.Add('Red pass');
        score(board,a,b);
        if a > b Then
          ShowMessage('Both no more move,finish game'+#13+'Black win')
        else if a < b then
          ShowMessage('Both no more move,finish game'+#13+'Red win')
        else if a = b then
          ShowMessage('Both no more move,finish game'+#13+'Draw');
      end;
    end;
  end;
  templist.Free;
end;

procedure TForm1.CancelSetupBoardClick(Sender: TObject);
var a,b:integer;templist:TStringList;
begin
  if form1.Tag=1 then
  begin
    backbutton.Enabled:=true;
    form1.Tag:=0;
  end;
  For a:=1 to 8 do
  begin
    for b:=1 to 8 do
    begin
      board[a][b]:=Timage(FindComponent('image'+intTostr(8*b+a-8))).Tag;
      Timage(FindComponent('image'+intTostr(8*b+a-8))).Tag:=0;
    end;
  end;
  HumanvsHuman.Checked:=true;
  SetupBoard.Enabled:=True;
  restartbutton.enabled:=True;
  CancelSetupBoard.Enabled:=False;
  FinishSetupboard.Enabled:=False;
  savebutton.enabled:=true;
  loadbutton.Enabled:=true;
  MoveFirstRadioGroup.Hide;
  ChessRadioGroup.Hide;
  ClearButton.Hide;
  templist := TStringList.Create;
  if StepListBox.Items.Count=0 then
  begin
    if FirstIsRed=True then
     StepListBox.Items.Add('Black123')
   else
      StepListBox.Items.Add('Red123');
  end;

  if copy(StepListBox.Items[StepListBox.Items.Count-1],1,3) ='Red' then
  begin
    if StepListBox.Items[StepListBox.Items.Count-1] = 'Red123' then
      StepListBox.Items.Delete(StepListBox.Items.Count-1);
    MakeBlackMove(board,templist);
    MakeClick(templist,'player2');
  end
  else begin
    if StepListBox.Items[StepListBox.Items.Count-1] = 'Black123' then
      StepListBox.Items.Delete(StepListBox.Items.Count-1);
    MakeRedMove(board,templist);
    MakeClick(templist,'player1');

  end;
  templist.Free;
  Updateboard;
end;

procedure TForm1.LoadButtonClick(Sender: TObject);
var a,h:string;b,c,d,e:integer;F:textfile;templist:Tstringlist;
begin
  if OpenDialog1.Execute then
  begin
    assignfile(f,OpenDialog1.FileName);
//    try
    Reset(f);
    readln(f,a);
    if a<>'Anti Reversi 8x8' then
    begin
      closefile(f);
      ShowMessage('Wrong file');
      exit;
    end;
    readln(f,a);
    blacklist.Clear;
    redlist.Clear;
    for b:=1 to 8 do
    begin
      readln(f,a);
      for c:= 1 to 8 do
        initboard[c][b]:= strToint(copy(a,c,1))-1; //need test
    end;
    readln(f,a);
    readln(f,h);
    readln(f,a);
    if a = 'Red first' then
      FirstIsRed:=True
    else
      FirstIsRed:=False;
    movedlist.clear;
    StepListBox.items.Clear;

//    readln(f,a);//need change
    while not eof(f) do
    begin
      readln(f,a);
      StepListBox.Items.Add(a);
     // need add ?
    end;
    closefile(f);
    board:=initboard;
    notInBack:=False;
    redlist.Clear;
    blacklist.Clear;
    HumanvsHuman.Checked:=true;
    templist:= Tstringlist.Create;
    for b:= 0 to StepListBox.Items.count - 1 do
    begin
      if copy(StepListBox.Items[b],1,3) = 'Red' then
      begin
        if copy(StepListBox.Items[b],5,1) <> 'p' then//p for pass
        begin
          e:=movedlist.Add('Red');
          for c:=1 to 8 do
           for d:=1 to 8 do
             movedlist[e]:=movedlist[e]+intTostr(board[c][d]+1);
          c:= strtoint(copy(StepListBox.Items[b],5,1));
          d:= strtoint(copy(StepListBox.Items[b],7,1));
          MakeRedMove(board,templist);
          MakeClick(templist,'player1');
          RedChessClick(Timage(FindComponent('image'+intTostr(8*d+c-8))));
  //        redlist.Clear;
//          blacklist.Clear;
//          updateboard;
        end
        else begin
          e:=movedlist.Add('Redpass');
          for c:=1 to 8 do
          for d:=1 to 8 do
          movedlist[e]:=movedlist[e]+intTostr(board[c][d]+1);
        end;
      end
      else if copy(StepListBox.Items[b],1,5) = 'Black' then
      begin
        if copy(StepListBox.Items[b],7,1) <> 'p' then//p for pass
        begin
          e:=movedlist.Add('Black');
          for c:=1 to 8 do
           for d:=1 to 8 do
             movedlist[e]:=movedlist[e]+intTostr(board[c][d]+1);

          c:= strtoint(copy(StepListBox.Items[b],7,1));
          d:= strtoint(copy(StepListBox.Items[b],9,1));
          MakeRedMove(board,templist);
          MakeClick(templist,'player1');
          BlackChessClick(Timage(FindComponent('image'+intTostr(8*d+c-8))));
        end
        else begin
          e:=movedlist.Add('Blackpass');
          for c:=1 to 8 do
          for d:=1 to 8 do
          movedlist[e]:=movedlist[e]+intTostr(board[c][d]+1);
        end;
      end;
    end;

  SaveDialog1.FileName := OpenDialog1.FileName;
  notInBack:=True;
  if StepListBox.Items.Count = 0 then
  begin
    if FirstIsRed = true then
    begin
      MakeRedMove(board,templist);
      MakeClick(templist,'player1');
    end
    else begin
      MakeBlackMove(board,templist);
      MakeClick(templist,'player2');
    end;
  end;
  score(board,b,c);
  label3.Caption:=intTostr(b);
  label4.caption:=intTostr(c);
  if StepListBox.Items.Count < 2 then
    backbutton.Enabled:=False;
  notinback:=True;
  if h = 'HumanVSComputer' then
  begin
    HumanVSComputer.Click;
    h:= extractfilename(Opendialog1.FileName);
    redlabel.Caption:= copy(h,1,length(h)-4);
    blacklabel.Caption := 'Human';
  end
  else if h = 'ComputerVSHuman' then
  begin
    ComputerVSHuman.Click;
    h:= extractfilename(Opendialog1.FileName);
    blacklabel.Caption:= copy(h,1,length(h)-4);
    redlabel.Caption := 'Human';
  end
  else begin
    redlabel.Caption := 'Human';
    blacklabel.Caption := 'Human';
  end;
  Updateboard;
  templist.Free;
  end;
end;

procedure TForm1.ClearButtonClick(Sender: TObject);
var a,b:integer;
begin
   for a:=1 to 8 do
    begin
      for b:=1 to 8 do
      begin
        Timage(FindComponent('image'+intTostr(8*a+b-8))).picture := nil;
        Timage(FindComponent('image'+intTostr(8*a+b-8))).tag := 0;
      end;
    end;

end;

procedure TForm1.BackButtonClick(Sender: TObject);
var a,b,c:integer;templist:Tstringlist;
begin


 templist:= Tstringlist.Create;
  While true do
  begin
    a:= movedlist.count-1;

   if (copy(movedlist[a],1,7) = 'Redpass') and (copy(movedlist[a-1],1,9) <> 'Blackpass') then
       break;
   if (copy(movedlist[a],1,9) = 'Blackpass') and (copy(movedlist[a-1],1,7) <> 'Redpass') then
       break;
   if a < 2 then break;
   if (copy(movedlist[a],1,7) <> 'Redpass') and (copy(movedlist[a],1,9) <> 'Blackpass') and (copy(movedlist[a-2],1,7) <> 'Redpass') and (copy(movedlist[a-2],1,9) <> 'Blackpass') Then
     break;
    movedlist.Delete(movedlist.Count-1);
//    StepListBox.items.Delete(StepListBox.count-1);
    StepListBox.items.Delete(StepListBox.count-1);
  end;
  a:=movedlist.Count-2;
  if a > -1 then
  begin
    movedlist.Delete(movedlist.Count-1);
    StepListBox.items.Delete(StepListBox.count-1);
  end;

  StepListBox.items.Delete(StepListBox.count-1);
  redlist.Clear;
  blacklist.clear;
  if movedlist.Count > 0 Then
  begin
    if copy(movedlist[movedlist.Count-1],1,3) = 'Red' Then
      a:=3//4
    else
      a:=5;//6
    for b:=1 to 8 do
    for c:=1 to 8 do
      board[b][c]:=strToint(copy(movedlist[movedlist.Count-1],8*b-8+a+c,1))-1;
    if copy(movedlist[movedlist.Count-1],1,3) = 'Red' then
    begin
      MakeRedMove(board,templist);
      Makeclick(templist,'player1');
    end
    else begin
      MakeBlackMove(board,templist);
      Makeclick(templist,'player2');
    end;
  end
  else begin
    board:=initboard;
    if Firstisred then
    begin
      MakeRedMove(board,templist);
      Makeclick(templist,'player1');
    end
    else begin
      MakeBlackMove(board,templist);
      Makeclick(templist,'player2');
    end;
  end;
  movedlist.Delete(movedlist.Count-1);
  if StepListBox.items.Count < 2 then
    backbutton.Enabled:=False;
  Score(board,a,b);
  Label3.Caption:= inttostr(a);
  Label4.Caption:= inttostr(b);
  notinback:=true;
  updateboard;
  templist.Free;
end;


function TForm1.MinMaxRandom(Aboard:Tboard;SideIsRed:Boolean;depth:integer;var aithinkstep:string):integer;
var a,b,c,d,bestvalue, value:integer;templist:tstringlist;tempboard:Tboard;oldaithinkstep:string;aithinksteplist:Tstringlist;//var a,b,c,bestvalue, value:integer;templist:tstringlist;tempboard:Tboard;sameboard:boolean;
begin
//一般來說，這裡有一個判斷棋局是否結束的函數，
//一旦棋局結束就不必繼續搜索了，直接返回極值。
//但由於黑白棋不存在中途結束的情況，故省略。
  Application.ProcessMessages;
//  bestaithinkstep:=aithinkstep;
  Score(Aboard,a,b);
  if a = 0 then
  begin
    if SideIsRed then
      result:= 2000
    else
      result:= -2000;
    exit;
  end;
  if b = 0 then
  begin
    if SideIsRed then
      result:= -2000
    else
      result:= 2000;
    exit;
  end;
  if (depth<=0) or (a+b>63) then //葉子節點
  begin
      result:= EvaluateScore(Aboard,SideIsRed);//直接返回對局面的估值
    exit;
  end;
    templist := Tstringlist.Create;
//  if SideIsRed then
    bestvalue:=-INF;//初始最佳值設為負無窮
//  else
//    bestvalue:=INF;
  //生成走法
//  templist:=tstringlist.Create;
  if SideIsRed Then
//    templist:=MakeRedMoveAI(Aboard)
    MakeRedMove(Aboard,templist)
  else
//    templist:=MakeBlackMoveAI(Aboard);
    MakeBlackMove(Aboard,templist);
  if templist.Count = 0 then
  begin
    if SideIsRed Then
      MakeBlackMove(Aboard,templist)
    else
      MakeRedMove(Aboard,templist);

    if templist.Count = 0 then // both red and black no move
    begin
      templist.Free;
//      result:=0;
        result:= EvaluateScore(Aboard,SideIsRed);//直接返回對局面的估值
      exit;
    end;
    result := -MinMax(Aboard,Not SideIsRed,depth,aithinkstep);//);//搜索子節點，注意前面的負號
//    if a+ b < 40 then
//      result := result + 100;
    templist.Free;
    exit;
  end;
  aithinksteplist := Tstringlist.Create;
  tempboard:=Aboard;
  oldaithinkstep :=aithinkstep;
  For a:= 0 to templist.Count-1 do
  begin
    Application.ProcessMessages;
    aithinkstep := oldaithinkstep;
      d:= strtoint(templist[a]);
      b:= d div 8 +1 ;
      c:= d mod 8;
      if c = 0 then
       begin
      b:=b-1;
      c:=8;
       end;
    aithinkstep := intTostr(c)+','+intTostr(b);
  // 走一步棋;//
  //局面aboard 隨之改變
    Aboard:=tempboard;
    if SideIsRed Then
     RedboardUpdate(Aboard,strToint(templist[a]))
    else
      BlackboardUpdate(aboard,strToint(templist[a]));
    value:= -MinMax(Aboard,Not SideIsRed,depth-1,aithinkstep);//);//搜索子節點，注意前面的負號

//    if depth = Realdepth-1 then
//      ProgressBar1.StepIt;

//    if depth = Realdepth then
//    begin
      d:= strtoint(templist[a]);
      b:= d div 8 +1 ;
      c:= d mod 8;
      if c = 0 then
       begin
      b:=b-1;
      c:=8;
       end;

      AiListBox.items.Add(intTostr(c)+','+intTostr(b)+' '+intTostr(value));
      if value = bestvalue then
        aithinksteplist.Add(aithinkstep)
      else if value > bestvalue then
      begin
        aimovelist:=templist[a]+' '+intTostr(value);
//    end;
//      if value > bestvalue then
//      begin
        bestvalue:=value;
//        bestaithinkstep := aithinkstep;
        aithinksteplist.Clear;
        aithinksteplist.Add(aithinkstep)
      end;
    end;
  b:=Random(aithinksteplist.Count);
  AiMovelist := inttostr(8*strtoint(copy(aithinksteplist[b],3,1))+strtoint(copy(aithinksteplist[b],1,1))-8) + ' '+inttostr(bestvalue);
  aithinkstep := aithinksteplist[b];
  templist.Free;
//  aithinkstep :=bestaithinkstep;
  Result:= bestvalue;
  aithinksteplist.Free;
end;

function TForm1.MinMax(Aboard:Tboard;SideIsRed:Boolean;depth:integer;var aithinkstep:string):integer;
var a,b,c,d,bestvalue, value:integer;templist:tstringlist;tempboard:Tboard;oldaithinkstep,bestaithinkstep:string;
//var a,b,c,bestvalue, value:integer;templist:tstringlist;tempboard:Tboard;sameboard:boolean;
begin
//一般來說，這裡有一個判斷棋局是否結束的函數，
//一旦棋局結束就不必繼續搜索了，直接返回極值。
//但由於黑白棋不存在中途結束的情況，故省略。
  Application.ProcessMessages;
  bestaithinkstep:=aithinkstep;
  Score(Aboard,a,b);
  if a = 0 then
  begin
    if SideIsRed then
      result:= 2000
    else
      result:= -2000;
    exit;
  end;
  if b = 0 then
  begin
    if SideIsRed then
      result:= -2000
    else
      result:= 2000;
    exit;
  end;
  if (depth<=0) or (a+b>63) or StopThink then //葉子節點
  begin
    result:= EvaluateScore(Aboard,SideIsRed);//直接返回對局面的估值
    exit;
  end;
    templist := Tstringlist.Create;
//  if SideIsRed then
    bestvalue:=-INF;//初始最佳值設為負無窮
//  else
//    bestvalue:=INF;
  //生成走法
//  templist:=tstringlist.Create;
  if SideIsRed Then
//    templist:=MakeRedMoveAI(Aboard)
    MakeRedMove(Aboard,templist)
  else
//    templist:=MakeBlackMoveAI(Aboard);
    MakeBlackMove(Aboard,templist);
  if templist.Count = 0 then
  begin
    if SideIsRed Then
      MakeBlackMove(Aboard,templist)
    else
      MakeRedMove(Aboard,templist);
    if templist.Count = 0 then // both red and black no move
    begin
      templist.Free;
//      result:=0;
      result:= EvaluateScore(Aboard,SideIsRed);//直接返回對局面的估值
      exit;
    end;
    aithinkstep := aithinkstep +'->PASS';
    result := -MinMax(Aboard,Not SideIsRed,depth,aithinkstep);//);//搜索子節點，注意前面的負號
//    if a+ b < 40 then
//      result := result + 100;
    templist.Free;
    exit;
  end;
  tempboard:=Aboard;
  oldaithinkstep :=aithinkstep;
  For a:= 0 to templist.Count-1 do
  begin
    Application.ProcessMessages;
    aithinkstep := oldaithinkstep;
      d:= strtoint(templist[a]);
      b:= d div 8 +1 ;
      c:= d mod 8;
      if c = 0 then
       begin
      b:=b-1;
      c:=8;
       end;
    aithinkstep := aithinkstep+'->'+intTostr(c)+','+intTostr(b);
  // 走一步棋;//
  //局面aboard 隨之改變
    Aboard:=tempboard;
    if SideIsRed Then
     RedboardUpdate(Aboard,strToint(templist[a]))
    else
      BlackboardUpdate(aboard,strToint(templist[a]));
    value:= -MinMax(Aboard,Not SideIsRed,depth-1,aithinkstep);//);//搜索子節點，注意前面的負號

    if depth = Realdepth-1 then
      ProgressBar1.StepIt;
     {
    if depth = Realdepth then
    begin
      d:= strtoint(templist[a]);
      b:= d div 8 +1 ;
      c:= d mod 8;
      if c = 0 then
       begin
      b:=b-1;
      c:=8;
       end;

      AiListBox.items.Add(intTostr(c)+','+intTostr(b)+' '+intTostr(value));
      if value > bestvalue then
        aimovelist:=templist[a]+' '+intTostr(value);
    end;
    }
      if value > bestvalue then
      begin
        bestvalue:=value;
        bestaithinkstep := aithinkstep;
      end;
    end;
  templist.Free;
  aithinkstep :=bestaithinkstep;
  Result:= bestvalue;
end;

procedure TForm1.AboutButtonClick(Sender: TObject);
begin
  ShowMessage('Copyright 2011,2012 by Wu Hon Sum'+#13+
'This program is free software: you can redistribute it and/or modify'+#13+
'it under the terms of the GNU General Public License as published by'+#13+
'the Free Software Foundation, either version 3 of the License, or'+#13+
'any later version.');
end;

function TForm1.AI(Aboard:Tboard;ComputerIsRed:Boolean):string;
var a,b,c:integer;thinkstep:string;
begin
  AiListBox.Clear;
  thinkstep:='';
  Application.ProcessMessages;
  StopThinkButton.Enabled:=True;
// http://blog.csdn.net/nowcan/archive/2004/10/19/142994.aspx
// 其實所有戰術都是減低對方行動力,最後逼對方行死位.
{
  if ComputerIsRed = true then
      MakeRedMove(Aboard,templist)
  else begin
    MakeBlackMove(Aboard,templist);
  end;
  }
  aimovelist :='';
  //aimovelist only output next move and score
  score(Aboard,a,b);
  Realdepth:= strToint(Endgamedepth.text);
//  if a+b + Realdepth then
//    Realdepth:= strToint(Nornaldepth.Text);

  if a+b + Realdepth > 64 then
    Realdepth:= 64-a-b
  else
    Realdepth:= strToint(Nornaldepth.Text);
  ProgressBar1.Max :=0;
  ProgressBar1.Max:=ThinkNumber(Aboard,ComputerIsRed,Realdepth);
  ProgressBar1.Step:=1;
  if ComputerIsRed = true then
  begin
      MakeRedMove(Aboard,redlist);
     c:= redlist.Count;
  end
  else begin
    MakeBlackMove(Aboard,blacklist);
    c:= blacklist.Count;
  end;

//  if ComputerIsRed then
//    c:= redlist.Count
//  else
//    c:= blacklist.Count;
    // temp disable
     if (a + b < 46) and  (c > 4) and (Realdepth > 5) then
   a:=minMaxStart(Aboard,ComputerIsRed,Realdepth,thinkstep)
 else

    a:=minMaxRandom(Aboard,ComputerIsRed,Realdepth,thinkstep);
  if ProgressBar1.Position < ProgressBar1.Max then
     ProgressBar1.Position := ProgressBar1.Max;
  if copy(thinkstep,1,1)='-' then
    thinkstep:=Copy(thinkstep,3,length(thinkstep)-2);
  redlist.Clear;
  blacklist.Clear;
  ThinkstepEdit.text:=thinkstep;
  AIDisplayScoreLabel.caption:=intTostr(A);
  {
  for d:=0 to aimovelist.count-1 do
  begin
    a:=strToint(copy(aimovelist[d],1,2));
    b:= a div 8 +1 ;
    c:= a mod 8;
    if c = 0 then
    begin
      b:=b-1;
      c:=8;
    end;
    AiListBox.Items.Add(intTostr(c)+','+intTostr(b)+' '+copy(aimovelist[d],3,length(aimovelist[d])-2));
  end;
  }

  a:=strtoint(trim(copy(aimovelist,1,2)));
//  d:=copy(aimovelist[aimovelist.count-1],3,length(aimovelist[aimovelist.count-1])-2);
//  b := a div 8 + 1;      //4*8+3
//  c := a mod 8;
//  a:= 8*(c-1)+b;

//  Result:='image'+trim(copy(aimovelist[aimovelist.count-1],1,2));
  Result:='image'+ inttostr(a) ;// d;
  StopThinkButton.Enabled:=False;
  StopThink:=False;
end;

Procedure Tform1.Scoresort(var scorelist:Tstringlist;var stepno:Tstringlist);
var a,b:string;c,d:integer;
begin
   for d:= 1 to stepno.count-1 do
   begin
   for c:= 1 to stepno.count-1 do
   begin
     if strtoint(scorelist[c]) > strtoint(scorelist[c-1]) then
     begin
      a:= scorelist[c-1];
      b:= stepno[c-1];
      scorelist[c-1]:=  scorelist[c];
      stepno[c-1]:=  stepno[c];
      scorelist[c] := a;
      stepno[c] := b;
     end;
  end;
 end;


end;


function TForm1.MinMaxStart(Aboard:Tboard;SideIsRed:Boolean;depth:integer;var aithinkstep:string):integer;
var a,b,c,d,bestvalue, value:integer;templist:tstringlist;tempboard:Tboard;scorelist,steplist:Tstringlist;aithinksteplist:Tstringlist;//bestaithinkstep:string;
//var a,b,c,bestvalue, value:integer;templist:tstringlist;tempboard:Tboard;sameboard:boolean;
begin
//一般來說，這裡有一個判斷棋局是否結束的函數，
//一旦棋局結束就不必繼續搜索了，直接返回極值。
//但由於黑白棋不存在中途結束的情況，故省略。
  Application.ProcessMessages;
  Score(Aboard,a,b);
  if a = 0 then
  begin
    if SideIsRed then
      result:= 2000
    else
      result:= -2000;
    exit;
  end;
  if b = 0 then
  begin
    if SideIsRed then
      result:= -2000
    else
      result:= 2000;
    exit;
  end;
  if (depth<=0) or (a+b>63) then //葉子節點
  begin
    result:= EvaluateScore(Aboard,SideIsRed);//直接返回對局面的估值
    exit;
  end;
//  if SideIsRed then
    bestvalue:=-INF;//初始最佳值設為負無窮
//  else
//    bestvalue:=INF;
  //生成走法
  templist:=tstringlist.Create;
  if SideIsRed Then
//    templist:=MakeRedMoveAI(Aboard)
    MakeRedMove(Aboard,templist)
  else
//    templist:=MakeBlackMoveAI(Aboard);
    MakeBlackMove(Aboard,templist);
  if templist.Count = 0 then
  begin
    if SideIsRed Then
      MakeBlackMove(Aboard,templist)
    else
      MakeRedMove(Aboard,templist);

    if templist.Count = 0 then // both red and black no move
    begin
      templist.Free;
//      result:=0;
      result:= EvaluateScore(Aboard,SideIsRed);//直接返回對局面的估值
      exit;
    end;
//    templist.Free;
//    if a + b > 63 then begin
//      result:= -EvaluateScore(Aboard,not SideIsRed);
//      exit;
//    end
//    else begin
      result := -MinMaxStart(Aboard,Not SideIsRed,depth,aithinkstep);//);//搜索子節點，注意前面的負號
 //     result := -MinMaxSecond(Aboard,Not SideIsRed,depth);//);//搜索子節點，注意前面的負號
//      if a+ b < 40 then
//        result := result + 100;
      templist.Free;
      exit;
  end;
  tempboard:=Aboard;
  scorelist := Tstringlist.Create;
  steplist := Tstringlist.Create;
  For a:= 0 to templist.Count-1 do
  begin
    Application.ProcessMessages;
    aithinkstep:='';
  // 走一步棋;//
  //局面aboard 隨之改變
    Aboard:=tempboard;
  steplist.Add(templist[a]);
    if SideIsRed Then
     RedboardUpdate(Aboard,strToint(templist[a]))
    else
      BlackboardUpdate(aboard,strToint(templist[a]));
    if depth = 6 then
      value:= -MinMax(Aboard,Not SideIsRed,4,aithinkstep)//);//搜索子節點，注意前面的負號
    else
      value:= -MinMax(Aboard,Not SideIsRed,depth-3,aithinkstep);//);//搜索子節點，注意前面的負號
    scorelist.add(inttostr(value));

   end;
   Scoresort(scorelist,steplist);
   aithinksteplist:=Tstringlist.Create;
   for a := scorelist.Count div 2 to scorelist.Count do
      ProgressBar1.StepIt;// need modied
   For a:=0 to  scorelist.count div 2 do //need modied
   begin
  // 走一步棋;//
  //局面aboard 隨之改變

    Aboard:=tempboard;
    aithinkstep:='';
        d:= strtoint(steplist[a]);
      b:= d div 8 +1 ;
      c:= d mod 8;
      if c = 0 then
        begin
      b:=b-1;
      c:=8;
       end;
     aithinkstep := intTostr(c)+','+intTostr(b) ;

    if SideIsRed Then
     RedboardUpdate(Aboard,strToint(steplist[a]))
    else
      BlackboardUpdate(aboard,strToint(steplist[a]));

    value:= -MinMax(Aboard,Not SideIsRed,depth-1,aithinkstep);//);//搜索子節點，注意前面的負號

//    Aboard:=Tempboard;//撤銷剛才的一步;//恢復局面

// for display move value need modied;
      d:= strtoint(steplist[a]);
      b:= d div 8 +1 ;
      c:= d mod 8;
      if c = 0 then
        begin
      b:=b-1;
      c:=8;
       end;
      AiListBox.items.Add(intTostr(c)+','+intTostr(b)+' '+intTostr(value));
      if value = bestvalue then
        aithinksteplist.Add(aithinkstep)
      else if value > bestvalue then
      begin
        aimovelist:=steplist[a]+' '+intTostr(value);
        aithinksteplist.Clear;
// support random best move
        aithinksteplist.Add(aithinkstep);
//        bestaithinkstep:=aithinkstep;

// end of display value
//    if sideIsRed then
//    begin
//      if value > bestvalue then
//      begin
        bestvalue:=value;
//        if depth = Realdepth then
//        aimovelist.Add(templist[a]+' '+intTostr(value));
       end;
//      end;
    end;
{
    else begin
      if value < bestvalue then
      begin
        bestvalue:=value;
        if depth = Realdepth then
          aimovelist.Add(templist[a]+' '+intTostr(value));
      end;
    end;
  end;
  }
  b:=Random(aithinksteplist.Count);
  AiMovelist := inttostr(8*strtoint(copy(aithinksteplist[b],3,1))+strtoint(copy(aithinksteplist[b],1,1))-8) + ' '+inttostr(bestvalue);
  aithinkstep := aithinksteplist[b];
  Result:= bestvalue;
//  aithinkstep:=bestaithinkstep;
  scorelist.free;
  steplist.free;
  templist.Free;
  aithinksteplist.free;
end;



function TForm1.ThinkNumber(Aboard:Tboard;SideIsRed:Boolean;depth:integer):integer;
var a,b:integer;templist:tstringlist;tempboard:Tboard;
//var a,b,c,bestvalue, value:integer;templist:tstringlist;tempboard:Tboard;sameboard:boolean;
begin
//一般來說，這裡有一個判斷棋局是否結束的函數，
//一旦棋局結束就不必繼續搜索了，直接返回極值。
//但由於黑白棋不存在中途結束的情況，故省略。
  result:=0;
  templist := tstringlist.Create;
  Application.ProcessMessages;
  Score(Aboard,a,b);

  if a = 0 then
  begin
  {
    if SideIsRed then
      result:= 2000
    else
      result:= -2000;
      }
    exit;
  end;
  if b = 0 then
  begin
  {
    if SideIsRed then
      result:= -2000
    else
      result:= 2000;
    exit;
    }
  end;

  if (depth<=0) or (a+b>63) then //葉子節點
  begin
//    result:= EvaluateScore(Aboard,SideIsRed);//直接返回對局面的估值
    exit;
  end;


//    bestvalue:=-INF;//初始最佳值設為負無窮
  //生成走法

  if SideIsRed Then
    MakeRedMove(Aboard,templist)
  else

    MakeBlackMove(Aboard,templist);
  if templist.Count = 0 then
  begin
    if SideIsRed Then
      MakeBlackMove(Aboard,templist)
    else
      MakeRedMove(Aboard,templist);

    if templist.Count = 0 then // both red and black no move
    begin
      templist.Free;

//      result:= EvaluateScore(Aboard,SideIsRed);//直接返回對局面的估值
        result:=1;
      exit;
    end;


//      result := -MinMax(Aboard,Not SideIsRed,depth);//);//搜索子節點，注意前面的負號
      result:=1;
      templist.Free;
      exit;
  end;
  if depth = realdepth-1 then
  begin
    For a:= 0 to templist.Count-1 do
    begin
      Application.ProcessMessages;
      inc(result);
    end;
    templist.Free;
    exit;
  end;
  tempboard:=Aboard;
  For a:= 0 to templist.Count-1 do
  begin
  // 走一步棋;//
  //局面aboard 隨之改變
    Aboard:=tempboard;
    if SideIsRed Then
     RedboardUpdate(Aboard,strToint(templist[a]))
    else
      BlackboardUpdate(aboard,strToint(templist[a]));
    result:=result+ThinkNumber(Aboard,Not SideIsRed,depth-1);
//    value:= -MinMax(Aboard,Not SideIsRed,depth-1);//);//搜索子節點，注意前面的負號
    end;
//      if value > bestvalue then
//        bestvalue:=value;
//    end;
  templist.Free;
//  Result:= bestvalue;
end;
procedure TForm1.TojavaboardbuttonClick(Sender: TObject);
var F:Textfile;s,t,u:string;a:integer;
begin
  SaveDialog1.FileName := '*.htm';
  SaveDialog1.Filter := 'Reversi game Java File(*.htm)|*.HTM';

  if SaveDialog1.Execute then
  begin
    Assignfile(F,SaveDialog1.FileName);
    Rewrite(f);
    Writeln(f,'<HTML>');
    Writeln(f,'<Center>');
    Writeln(f,'<APPLET width="284" height="331" codebase="http://home.i-cable.com/wu/java/" code="JavaReversi8x8">');
    Writeln(f,'<PARAM name="Position" value="'+boardtofen+'">');
    If FirstIsRed then
      Writeln(f,'<PARAM name="MoveFirst" value="Red">')
    else
      Writeln(f,'<PARAM name="MoveFirst" value="Black">');
   s:='';
   for a := 0 to StepListBox.Count - 1 do
   begin
     if copy(StepListBox.Items[a],1,3) = 'Red'  then
       t := copy(StepListBox.Items[a],5,3)
     else if copy(StepListBox.Items[a],1,5) = 'Black'  then
       t := copy(StepListBox.Items[a],7,3);
     if a =  StepListBox.Count - 2 then
     begin
       if (StepListBox.items[a] = 'Red pass') and (StepListBox.items[a+1] = 'Black pass') or (StepListBox.items[a] = 'Black pass') and (StepListBox.items[a+1] = 'Red pass') then
         break;
     end;
     if copy(t,1,1) = 'p' then
        s:=s + ' P'
     Else begin
       u:= copy(t,1,1);
       t:= copy(t,3,1);
       if a = 0 then
          s := char(strtoint(u)+64)+t
       else
         s := s+ ' '+char(strtoint(u)+64)+t;
     end;

   end;

    Writeln(f,'<PARAM name="MoveList" value="'+s+'">');
    Writeln(f,'</HTML>');
    Writeln(f,'</Center>');
    Closefile(f);
  end;

end;

function Tform1.EvaluateScore(const Aboard:Tboard;const SideIsRed:Boolean):Integer;
var a,b:integer;
begin
  Score(Aboard,a,b);
  if a+b < 59 then begin
    if aboard[1][1] = 0 then
      Result:= b-a+aboard[2][1]*posmark[2][1]+aboard[1][2]*posmark[1][2]
    else
      Result:= b-a+aboard[1][1]*posmark[1][1];
    if aboard[8][1] = 0 then
      Result:= Result+aboard[7][1]*posmark[7][1]+aboard[8][2]*posmark[8][2]
    else
      Result:= Result+aboard[8][1]*posmark[8][1];
    if aboard[1][8] = 0 then
      Result:= Result+aboard[1][7]*posmark[1][7]+aboard[2][8]*posmark[2][8]
    else
      Result:= Result+aboard[1][8]*posmark[1][8];
    if aboard[8][8] = 0 then
      Result:= Result+aboard[8][7]*posmark[8][7]+aboard[7][8]*posmark[7][8]
    else
      Result:= Result+aboard[8][8]*posmark[8][8];

    if  not SideIsRed then
      Result:= -Result;

//    if SideIsRed then
//      Result:= EvaluateScoreA(Aboard,SideIsRed,redposmark)
//    else
     // Result:= EvaluateScoreA(Aboard,SideIsRed,realposmark);
//   Result := a-b-(posmark[1][1]*Aboard[1][1]+posmark[2][1]*Aboard[2][1]+posmark[7][1]*Aboard[7][1]+posmark[8][1]*Aboard[8][1]+posmark[1][2]*Aboard[1][2]+posmark[8][2]*Aboard[8][2]+posmark[1][7]*Aboard[1][7]+posmark[8][7]*Aboard[8][7]+posmark[1][8]*Aboard[1][8]+posmark[7][8]*Aboard[7][8]+posmark[8][8]*Aboard[8][8]);
 //   Result := a-b;
    // testng
//   if SideIsRed then
//     Result:= -Result;
  end
 else begin
    if SideIsRed then
    Result := b-a
  else
    Result := a-b;
 end;
end;



end.