回复：【Rijn】五子棋 FiveInARow 1.0.1905【pascal吧】

   for i:=1 to ChessW do
     for j:=1 to ChessW do
       if (Value[p,i,j,0].VN=2) and (Value[p,i,j,0].V>=VV[2]) and not(Value[p,i,j,0].LB)
          and not(Value[p,i,j,0].RB) and (Value[p,i,j,0].D<=5) then
       begin TPut(i,j,p);Exit;end;
   if CheckC(p,2)>0 then
   begin
     SortC(p,2,1);
     TPut(ValueC[p,1,2].X,ValueC[p,1,2].Y,p);
     Exit;
   end;
   for i:=1 to ChessW do
     for j:=1 to ChessW do
       if (Value[p,i,j,0].VN=2) and (Value[p,i,j,0].V>=VV[2]) and not(Value[p,i,j,0].LB)
          and not(Value[p,i,j,0].RB) and (Value[p,i,j,0].D<=5) then
       begin TPut(i,j,p);Exit;end;
   if CheckC(_p,2)>0 then
   begin
     SortC(_p,2,2);
     TPut(ValueC[_p,1,2].X,ValueC[_p,1,2].Y,p);
     Exit;
   end;
   if CheckC(p,1)>0 then
   begin
     SortC(p,1,2);
     TPut(ValueC[p,1,1].X,ValueC[p,1,1].Y,p);
     Exit;
   end;
   if JustBegin then
     if CheckC(_p,1)>0 then
     begin
       SortC(_p,1,2);
       t:=ValueC[_p,0,1].V;
       if t>3 then t:=Random(8)+1;
       TPut(ValueC[_p,t,1].X,ValueC[_p,t,1].Y,p);
       JustBegin:=False;
       Exit;
     end;
   begin
     x:=(ChessW div 3)+Random(ChessW div 3);
     y:=(ChessW div 3)+Random(ChessW div 3);
     TPut(x,y,p);
   end;
end;
procedure Wait;
var
   ch:Char;
begin
   repeat
   until KeyPressed;
   ch:=ReadKey;
end;
procedure Pre;
var
   i:integer;
begin
   for i:=1 to 6 do
   begin
     delay(100+random(300));
     write('.');
   end;
   InitChess;
   ViewState0(1);
   writeln('初始化成功');
   writeln('Preset Successfully');
   writeln;
   writeln('使用方向键和回车键控制');
   writeln('Use directiion keys and enter key to control');
   writeln;
   writeln('单击任何按键开始');
   writeln('Click any key to start');
   writeln;

   writeln;
   TextColor(Black);
   TextBackground(White);
   write(' Command ');
   TextColor(White);
   TextBackground(Black);
end;
var
   tx,ty,dt:Word;ch:Char;
begin
   writeln('Free Pascal IDE Version 1.0.8 [2006/08/21]');
   writeln('Compiler Version 2.0.4');
   writeln('GBD Version GDB 6.2.1');
   writeln;
   randomize;
   writeln('Detect Driver ');
   writeln('1.VGAMode');
   writeln('2.EGAMode');
   writeln('3.CGAMode');
   writeln('Choose graph mode (Auto choose VGA) ? ');
   i:=0;
   repeat
     i:=i+1;
     delay(1000);
     write('.');
   until (keypressed) or (i=7);
   if i<>7 then Ch:=ReadKey else ch:='0';
   writeln;
   R.AH:=0;
   case ch of
   '1':begin
         R.AL:=VGAMode;
         writeln('Chosen VGAMode');
       end;
   '2':begin
         R.AL:=EGAMode;
         writeln('Chosen EGAMode');
       end;
   '3':begin
         R.AL:=CGAMode;
         writeln('Chosen CGAMode');
       end;
   else
     begin
       writeln;
       repeat
         clrscr;
         TextColor(Yellow+blink);
         TextBackground(Red);
         Write('Error');
         delay(1000);
         clrscr;
         TextColor(White);
         TextBackground(Black);
         Write('Error');
         delay(1000);
       until keypressed;
       halt;
     end;
   end;
   Intr(16,R);
   DirectVideo:=False;
   writeln;
   write('Preset Graph Window ');
   for i:=1 to 3 do
   begin
     delay(100+random(100));
     write('.');
   end;
   writeln;
   write('Loading 936-Chinese Page ');

   delay(200+random(1000));
   writeln;
   writeln;
   writeln('超级五子棋');
   writeln('Five In A Row');
   writeln;
   writeln(version);
   writeln('By Rijn - Neoix');
   writeln;
   delay(200+random(200));
   writeln('1.电脑对玩家 PC(First) Player');
   writeln('2.玩家对电脑 Player(First) PC');
   writeln('3.玩家对玩家 Player Player');
   writeln('4.电脑对电脑 PC PC (Test)');
   write('选择模式 Choose a mode ? ');
   repeat until KeyPressed;
   Ch:=ReadKey;
   chose:=ord(ch)-48;
   Case chose of
     1:begin
         writeln(1);
         Pre;
         wait;
         repeat
           PC(1);
           if CheckWin(1) then begin ViewResult(1);goto Ex;end;
           ViewState0(2);
           ManTake(2);
           if CheckWin(2) then begin ViewResult(2);goto Ex;end;
           ViewState0(1);
         until FALSE;
       end;
     2:begin
         writeln(2);
         Pre;
         repeat
           ManTake(1);
           if CheckWin(1) then begin ViewResult(1);goto Ex;end;
           ViewState0(2);
           Pc(2);
           if CheckWin(2) then begin ViewResult(2);goto Ex;end;
           ViewState0(1);
         until FALSE;
       end;
     3:begin
         writeln(3);
         Pre;
         repeat
           ManTake(1);
           if CheckWin(1) then begin ViewResult(1);goto Ex;end;
           ViewState0(2);
           ManTake(2);

           if CheckWin(2) then begin ViewResult(2);goto Ex;end;
           ViewState0(1);
         until FALSE;
       end;
     4:begin
         writeln(4);
         Pre;
         wait;
         repeat
           PC(1);
           if CheckWin(1) then begin ViewResult(1);goto Ex;end;
           ViewState0(2);
           PC(2);
           if CheckWin(2) then begin ViewResult(2);goto Ex;end;
           ViewState0(1);
         until FALSE;
       end;
     else
       begin
         writeln;
         repeat
           clrscr;
           TextColor(Yellow+blink);
           TextBackground(Red);
           Write('Error');
           delay(1000);
           clrscr;
           TextColor(White);
           TextBackground(Black);
           Write('Error');
           delay(1000);
         until keypressed;
         halt;
       end;
   end;
   Ex:
   TextColor(LightGray);
   TextBackground(Black);
   writeln;
   writeln;
   writeln('游戏结束');
   writeln('Game Over');
   writeln;
   writeln('感谢使用');
   writeln('Thank you for playing');
   writeln('Rijn制作');
   writeln('Made by Rijn');
   writeln('版权归 Neoix Org 所有');
   writeln('Copyright <c> Neoix Org, 2009-2010');
   writeln;
   writeln('单击回车键退出');
   writeln('Click enter to exit');
   readln
end.
{Part2 End}