Diff of /Unit1.pas

OSDN > Find Software > reversi-of-d

 Browse Subversion Repository



/[reversi-of-d]/Unit1.pas




Diff of /Unit1.pas



 Parent Directory

|  Revision Log



|  Patch














revision 25 by yamat0jp,
Mon Jul 20 00:50:13 2015 UTC




revision 26 by yamat0jp,
Mon Jul 20 07:09:07 2015 UTC






#

Line 53 
 type


Line 53 
 type












53
     function CalScore(Stone: TStoneType; X, Y: integer): integer;
     function CalScore(Stone: TStoneType; X, Y: integer): integer;

















54
     function CanSetStone(Stone: TStoneType; X, Y: integer; Reverse: Boolean;
     function CanSetStone(Stone: TStoneType; X, Y: integer; Reverse: Boolean;

















55
       const Visible: Boolean = false): Boolean;
       const Visible: Boolean = false): Boolean;















56


     function NextStone(Stone: TStoneType): TPoint;


     function NextStone(Stone: TStoneType; var Pos: TPoint): Boolean;















57
     procedure Start;
     procedure Start;

















58
     procedure Restart;
     procedure Restart;

















59
     procedure Pause;
     procedure Pause;











#

Line 134 
 function TStoneGrid.CalScore(Stone: TSto


Line 134 
 function TStoneGrid.CalScore(Stone: TSto












134
 var
 var

















135
   i, j: integer;
   i, j: integer;

















136
 begin
 begin















137


   result:=0;


   result := 0;















138
   if CanSetStone(Stone, X, Y, true) = true then
   if CanSetStone(Stone, X, Y, true) = true then

















139
   begin
   begin

















140
     if Stone = stEffect then
     if Stone = stEffect then















141


       Stone:=FEffectStone;


       Stone := FEffectStone;















142
     case Stone of
     case Stone of

















143
       stBlack:
       stBlack:

















144
         Stone := stWhite;
         Stone := stWhite;

















145
       stWhite:
       stWhite:

















146
         Stone := stBlack;
         Stone := stBlack;















147


       else


     else













148


         Exit;


       Exit;















149
     end;
     end;

















150
     for i := 0 to Count - 1 do
     for i := 0 to Count - 1 do

















151
       for j := 0 to Count - 1 do
       for j := 0 to Count - 1 do











#

Line 334 
 begin


Line 334 
 begin












334
   end;
   end;

















335
 end;
 end;

















336
 
 















337


 function TStoneGrid.NextStone(Stone: TStoneType): TPoint;


 function TStoneGrid.NextStone(Stone: TStoneType; var Pos: TPoint): Boolean;















338
 var
 var

















339
   i, j, m, n: integer;
   i, j, m, n: integer;

















340
 begin
 begin











#

Line 343 
 begin


Line 343 
 begin












343
     for j := 0 to Count - 1 do
     for j := 0 to Count - 1 do

















344
     begin
     begin

















345
       m := CalScore(Stone, i, j);
       m := CalScore(Stone, i, j);















346


       if ((n = 0)and(m > 0)) or ((0 < m) and (m < n)) then


       if ((n = 0) and (m > 0)) or ((0 < m) and (m < n)) then















347
       begin
       begin

















348
         n := m;
         n := m;















349


         result := Point(i, j);


         Pos := Point(i, j);















350
       end;
       end;

















351
     end;
     end;















352


   if n = 0 then


   result := not(n = 0);
















     result := Point(-1, -1);


 















353
 end;
 end;

















354
 
 

















355
 procedure TStoneGrid.Paint(Canvas: TCanvas);
 procedure TStoneGrid.Paint(Canvas: TCanvas);











#

Line 485 
 procedure TForm1.CompStone;


Line 484 
 procedure TForm1.CompStone;












484
 var
 var

















485
   s: TPoint;
   s: TPoint;

















486
 begin
 begin















487


   s := StoneGrid.NextStone(Index.Stone);


   if StoneGrid.NextStone(Index.Stone, s) = true then













488


   StoneGrid.CanSetStone(Index.Stone, s.X, s.Y, true, true);


   begin













489


   PaintBox1.Repaint;


     StoneGrid.CanSetStone(Index.Stone, s.X, s.Y, true, true);













490


   ChangePlayer;


     PaintBox1.Repaint;













491


 


     ChangePlayer;













492


 


   end;















493
 end;
 end;

















494
 
 

















495
 procedure TForm1.GameStart;
 procedure TForm1.GameStart;

















496
 begin
 begin















497


   Timer1.Enabled:=false;


   Timer1.Enabled := false;















498
   Index := Player1;
   Index := Player1;

















499
   StoneGrid.Start;
   StoneGrid.Start;

















500
   PaintBox1.Repaint;
   PaintBox1.Repaint;

















501
   Caption := '黒から始めます';
   Caption := '黒から始めます';















502


   Timer1.Enabled:=true;


   Timer1.Enabled := true;















503
 end;
 end;

















504
 
 

















505
 procedure TForm1.MenuItem10Click(Sender: TObject);
 procedure TForm1.MenuItem10Click(Sender: TObject);





























Legend:



Removed from v.25
 


changed lines


 
Added in v.26













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[reversi-of-d]/Unit1.pas
-revision 25 by yamat0jp,
Mon Jul 20 00:50:13 2015 UTC
+revision 26 by yamat0jp,
Mon Jul 20 07:09:07 2015 UTC
 Line 53 
 type
      function CalScore(Stone: TStoneType; X, Y: integer): integer;
      function CanSetStone(Stone: TStoneType; X, Y: integer; Reverse: Boolean;
        const Visible: Boolean = false): Boolean;
-     function NextStone(Stone: TStoneType): TPoint;
+     function NextStone(Stone: TStoneType; var Pos: TPoint): Boolean;
      procedure Start;
      procedure Restart;
      procedure Pause;
 Line 134 
 function TStoneGrid.CalScore(Stone: TSto
  var
    i, j: integer;
  begin
-   result:=0;
+   result := 0;
    if CanSetStone(Stone, X, Y, true) = true then
    begin
      if Stone = stEffect then
-       Stone:=FEffectStone;
+       Stone := FEffectStone;
      case Stone of
        stBlack:
          Stone := stWhite;
        stWhite:
          Stone := stBlack;
-       else
+     else
-         Exit;
+       Exit;
      end;
      for i := 0 to Count - 1 do
        for j := 0 to Count - 1 do
 Line 334 
 begin
    end;
  end;
- function TStoneGrid.NextStone(Stone: TStoneType): TPoint;
+ function TStoneGrid.NextStone(Stone: TStoneType; var Pos: TPoint): Boolean;
  var
    i, j, m, n: integer;
  begin
 Line 343 
 begin
      for j := 0 to Count - 1 do
      begin
        m := CalScore(Stone, i, j);
-       if ((n = 0)and(m > 0)) or ((0 < m) and (m < n)) then
+       if ((n = 0) and (m > 0)) or ((0 < m) and (m < n)) then
        begin
          n := m;
-         result := Point(i, j);
+         Pos := Point(i, j);
        end;
      end;
-   if n = 0 then
+   result := not(n = 0);
-     result := Point(-1, -1);
  end;
  procedure TStoneGrid.Paint(Canvas: TCanvas);
-Line 485 
 procedure TForm1.CompStone;
+Line 484 
 procedure TForm1.CompStone;
  var
    s: TPoint;
  begin
-   s := StoneGrid.NextStone(Index.Stone);
+   if StoneGrid.NextStone(Index.Stone, s) = true then
-   StoneGrid.CanSetStone(Index.Stone, s.X, s.Y, true, true);
+   begin
-   PaintBox1.Repaint;
+     StoneGrid.CanSetStone(Index.Stone, s.X, s.Y, true, true);
-   ChangePlayer;
+     PaintBox1.Repaint;
+     ChangePlayer;
+   end;
  end;
  procedure TForm1.GameStart;
  begin
-   Timer1.Enabled:=false;
+   Timer1.Enabled := false;
    Index := Player1;
    StoneGrid.Start;
    PaintBox1.Repaint;
    Caption := '黒から始めます';
-   Timer1.Enabled:=true;
+   Timer1.Enabled := true;
  end;
  procedure TForm1.MenuItem10Click(Sender: TObject);
 Legend:



Removed from v.25
 


changed lines


 
Added in v.26
 Legend:



Removed from v.25
 


changed lines


 
Added in v.26
-Removed from v.25
+Added in v.26
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

reversi-of-d

Browse Subversion Repository