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 28 by yamat0jp,
Fri Aug 14 07:21:57 2015 UTC




revision 30 by yamat0jp,
Sun Aug 16 04:15:52 2015 UTC






#

Line 21 
 type


Line 21 
 type












21
 
 

















22
   TGridData = array [0 .. Count - 1] of array [0 .. Count - 1] of TStoneType;
   TGridData = array [0 .. Count - 1] of array [0 .. Count - 1] of TStoneType;

















23
 
 















24


   TPlayer = class


   TPlayer = class(TObject)















25
   private
   private

















26
     FAuto: Boolean;
     FAuto: Boolean;

















27
     FStone: TStoneType;
     FStone: TStoneType;











#

Line 30 
 type


Line 30 
 type












30
     property Stone: TStoneType read FStone write FStone;
     property Stone: TStoneType read FStone write FStone;

















31
   end;
   end;

















32
 
 















33


   TStoneGrid = class


   TStoneGrid = class(TObject)















34
   private
   private

















35
     FStrings: TGridData;
     FStrings: TGridData;

















36
     FBuffer: array [0 .. Count * Count - 4] of TGridData;
     FBuffer: array [0 .. Count * Count - 4] of TGridData;











#

Line 129 
 implementation


Line 129 
 implementation












129
 
 

















130
 {$R *.fmx}
 {$R *.fmx}

















131
 {$R *.Windows.fmx MSWINDOWS}
 {$R *.Windows.fmx MSWINDOWS}












132
 
 {$R *.XLgXhdpiTb.fmx ANDROID}







133
 
 












134
 { TStoneGrid }
 { TStoneGrid }

















135
 
 

















136
 function TStoneGrid.AddScore(X, Y: integer; const NG: array of TPoint): integer;
 function TStoneGrid.AddScore(X, Y: integer; const NG: array of TPoint): integer;











#

Line 151 
 begin


Line 153 
 begin












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

















154
   begin
   begin

















155
     result := 0;
     result := 0;















156


     inc(result, AddScore(X, Y, [Point(1, 0), Point(6, 0), Point(0, 1),


     if FTurnIndex < 50 then













157


       Point(1, 1), Point(6, 1), Point(7, 1), Point(0, 6), Point(1, 6),


       inc(result, AddScore(X, Y, [Point(1, 0), Point(6, 0), Point(0, 1),













158


       Point(6, 6), Point(7, 6), Point(1, 7), Point(6, 7)]));


         Point(1, 1), Point(6, 1), Point(7, 1), Point(0, 6), Point(1, 6),













159


 


         Point(6, 6), Point(7, 6), Point(1, 7), Point(6, 7)]));















160
     case Stone of
     case Stone of

















161
       stBlack:
       stBlack:

















162
         Stone := stWhite;
         Stone := stWhite;











#

Line 165 
 begin


Line 168 
 begin












168
         if CanSetStone(Stone, i, j, false) = true then
         if CanSetStone(Stone, i, j, false) = true then

















169
         begin
         begin

















170
           inc(result);
           inc(result);















171


           inc(result, AddScore(i, j, [Point(0, 0), Point(7, 0), Point(0, 7),


           if FTurnIndex < 50 then













172


             Point(7, 7)]));


             inc(result, AddScore(i, j, [Point(0, 0), Point(7, 0), Point(0, 7),













173


 


               Point(7, 7)]));















174
         end;
         end;

















175
   end
   end

















176
   else
   else











#

Line 353 
 begin


Line 357 
 begin












357
       inc(FTurnIndex);
       inc(FTurnIndex);

















358
       inc(FTurnNumber);
       inc(FTurnNumber);

















359
       FBuffer[FTurnIndex] := FStrings;
       FBuffer[FTurnIndex] := FStrings;












360
 
       if FGameOver = false then







361
 
       begin







362
 
         Form1.ChangePlayer;







363
 
         FActive:=true;







364
 
       end;












365
     end;
     end;

















366
     result := true;
     result := true;

















367
   end;
   end;











#

Line 406 
 end;


Line 415 
 end;












415
 
 

















416
 procedure TStoneGrid.Restart;
 procedure TStoneGrid.Restart;

















417
 begin
 begin















418


   FActive := true;


   FActive:=true;















419
   FGameOver := false;
   FGameOver := false;

















420
   FTurnIndex := FTurnNumber;
   FTurnIndex := FTurnNumber;

















421
 end;
 end;

















422
 
 

















423
 procedure TStoneGrid.SetActive(const Value: Boolean);
 procedure TStoneGrid.SetActive(const Value: Boolean);

















424
 begin
 begin















425


   if FGameOver = false then


   if (FGameOver = false)or(Value = false) then















426
     FActive := Value;
     FActive := Value;

















427
 end;
 end;

















428
 
 











#

Line 436 
 end;


Line 445 
 end;












445
 
 

















446
 procedure TStoneGrid.Start;
 procedure TStoneGrid.Start;

















447
 begin
 begin














   FActive := true;
 













448
   Clear;
   Clear;












449
 
   FActive := true;












450
   FGameOver := false;
   FGameOver := false;

















451
 end;
 end;

















452
 
 











#

Line 481 
 begin


Line 490 
 begin












490
     Main;
     Main;

















491
     if Execute = false then
     if Execute = false then

















492
     begin
     begin














       StoneGrid.Pause;
 













493
       m := 0;
       m := 0;

















494
       n := 0;
       n := 0;

















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











#

Line 518 
 begin


Line 526 
 begin












526
   StoneGrid.NextStone(Index.Stone, s);
   StoneGrid.NextStone(Index.Stone, s);

















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

















528
   PaintBox1.Repaint;
   PaintBox1.Repaint;














   ChangePlayer;
 










   StoneGrid.Active := true;
 













529
 end;
 end;

















530
 
 

















531
 procedure TForm1.GameStart;
 procedure TForm1.GameStart;











#

Line 623 
 end;


Line 629 
 end;












629
 
 

















630
 procedure TForm1.FormCreate(Sender: TObject);
 procedure TForm1.FormCreate(Sender: TObject);

















631
 begin
 begin












632
 
   ClientWidth:=20*Count;







633
 
   ClientHeight:=20*Count;












634
   StoneGrid := TStoneGrid.Create;
   StoneGrid := TStoneGrid.Create;

















635
   StoneGrid.ImageCount(Form1.Image1.Bitmap.Width div Form1.Image3.Bitmap.Width,
   StoneGrid.ImageCount(Form1.Image1.Bitmap.Width div Form1.Image3.Bitmap.Width,

















636
     Form1.Image1.Bitmap.Height div Form1.Image3.Bitmap.Height);
     Form1.Image1.Bitmap.Height div Form1.Image3.Bitmap.Height);











#

Line 680 
 begin


Line 688 
 begin












688
     StoneGrid.Active := false;
     StoneGrid.Active := false;

















689
     if StoneGrid.CanSetStone(Index.Stone, Floor(Point.X / Size),
     if StoneGrid.CanSetStone(Index.Stone, Floor(Point.X / Size),

















690
       Floor(Point.Y / Size), true, true) = true then
       Floor(Point.Y / Size), true, true) = true then














     begin
 













691
       PaintBox1.Repaint;
       PaintBox1.Repaint;














       ChangePlayer;
 










     end;
 













692
     StoneGrid.Active := true;
     StoneGrid.Active := true;

















693
   end;
   end;

















694
 end;
 end;





























Legend:



Removed from v.28
 


changed lines


 
Added in v.30













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[reversi-of-d]/Unit1.pas
-revision 28 by yamat0jp,
Fri Aug 14 07:21:57 2015 UTC
+revision 30 by yamat0jp,
Sun Aug 16 04:15:52 2015 UTC
 Line 21 
 type
    TGridData = array [0 .. Count - 1] of array [0 .. Count - 1] of TStoneType;
-   TPlayer = class
+   TPlayer = class(TObject)
    private
      FAuto: Boolean;
      FStone: TStoneType;
 Line 30 
 type
      property Stone: TStoneType read FStone write FStone;
    end;
-   TStoneGrid = class
+   TStoneGrid = class(TObject)
    private
      FStrings: TGridData;
      FBuffer: array [0 .. Count * Count - 4] of TGridData;
 Line 129 
 implementation
  {$R *.fmx}
  {$R *.Windows.fmx MSWINDOWS}
+ {$R *.XLgXhdpiTb.fmx ANDROID}
  { TStoneGrid }
  function TStoneGrid.AddScore(X, Y: integer; const NG: array of TPoint): integer;
-Line 151 
 begin
+Line 153 
 begin
    if CanSetStone(Stone, X, Y, true) = true then
    begin
      result := 0;
-     inc(result, AddScore(X, Y, [Point(1, 0), Point(6, 0), Point(0, 1),
+     if FTurnIndex < 50 then
-       Point(1, 1), Point(6, 1), Point(7, 1), Point(0, 6), Point(1, 6),
+       inc(result, AddScore(X, Y, [Point(1, 0), Point(6, 0), Point(0, 1),
-       Point(6, 6), Point(7, 6), Point(1, 7), Point(6, 7)]));
+         Point(1, 1), Point(6, 1), Point(7, 1), Point(0, 6), Point(1, 6),
+         Point(6, 6), Point(7, 6), Point(1, 7), Point(6, 7)]));
      case Stone of
        stBlack:
          Stone := stWhite;
-Line 165 
 begin
+Line 168 
 begin
          if CanSetStone(Stone, i, j, false) = true then
          begin
            inc(result);
-           inc(result, AddScore(i, j, [Point(0, 0), Point(7, 0), Point(0, 7),
+           if FTurnIndex < 50 then
-             Point(7, 7)]));
+             inc(result, AddScore(i, j, [Point(0, 0), Point(7, 0), Point(0, 7),
+               Point(7, 7)]));
          end;
    end
    else
-Line 353 
 begin
+Line 357 
 begin
        inc(FTurnIndex);
        inc(FTurnNumber);
        FBuffer[FTurnIndex] := FStrings;
+       if FGameOver = false then
+       begin
+         Form1.ChangePlayer;
+         FActive:=true;
+       end;
      end;
      result := true;
    end;
-Line 406 
 end;
+Line 415 
 end;
  procedure TStoneGrid.Restart;
  begin
-   FActive := true;
+   FActive:=true;
    FGameOver := false;
    FTurnIndex := FTurnNumber;
  end;
  procedure TStoneGrid.SetActive(const Value: Boolean);
  begin
-   if FGameOver = false then
+   if (FGameOver = false)or(Value = false) then
      FActive := Value;
  end;
-Line 436 
 end;
+Line 445 
 end;
  procedure TStoneGrid.Start;
  begin
-   FActive := true;
    Clear;
+   FActive := true;
    FGameOver := false;
  end;
-Line 481 
 begin
+Line 490 
 begin
      Main;
      if Execute = false then
      begin
-       StoneGrid.Pause;
        m := 0;
        n := 0;
        for i := 0 to Count - 1 do
-Line 518 
 begin
+Line 526 
 begin
    StoneGrid.NextStone(Index.Stone, s);
    StoneGrid.CanSetStone(Index.Stone, s.X, s.Y, true, true);
    PaintBox1.Repaint;
-   ChangePlayer;
-   StoneGrid.Active := true;
  end;
  procedure TForm1.GameStart;
-Line 623 
 end;
+Line 629 
 end;
  procedure TForm1.FormCreate(Sender: TObject);
  begin
+   ClientWidth:=20*Count;
+   ClientHeight:=20*Count;
    StoneGrid := TStoneGrid.Create;
    StoneGrid.ImageCount(Form1.Image1.Bitmap.Width div Form1.Image3.Bitmap.Width,
      Form1.Image1.Bitmap.Height div Form1.Image3.Bitmap.Height);
-Line 680 
 begin
+Line 688 
 begin
      StoneGrid.Active := false;
      if StoneGrid.CanSetStone(Index.Stone, Floor(Point.X / Size),
        Floor(Point.Y / Size), true, true) = true then
-     begin
        PaintBox1.Repaint;
-       ChangePlayer;
-     end;
      StoneGrid.Active := true;
    end;
  end;
 Legend:



Removed from v.28
 


changed lines


 
Added in v.30
 Legend:



Removed from v.28
 


changed lines


 
Added in v.30
-Removed from v.28
+Added in v.30
-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