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 20 by yamat0jp,
Sat Jul 18 21:05:05 2015 UTC




revision 21 by yamat0jp,
Sat Jul 18 22:36:44 2015 UTC






#

Line 41 
 type


Line 41 
 type












41
     List: TList;
     List: TList;

















42
     FEffectStone: TStoneType;
     FEffectStone: TStoneType;

















43
     FBool: Boolean;
     FBool: Boolean;












44
 
     FTerminated: Boolean;












45
     FIndex_X: integer;
     FIndex_X: integer;

















46
     FIndex_Y: integer;
     FIndex_Y: integer;

















47
     function GetStrings(X, Y: integer): TStoneType;
     function GetStrings(X, Y: integer): TStoneType;











#

Line 321 
 begin


Line 322 
 begin












322
         List.Delete(i);
         List.Delete(i);

















323
     if List.Count = 0 then
     if List.Count = 0 then

















324
     begin
     begin















325


       FActive := FBool;


       if FTerminated = true then













326


 


         FActive:=false













327


 


       else













328


 


         FActive := FBool;















329
       inc(FTurnIndex);
       inc(FTurnIndex);

















330
       inc(FTurnNumber);
       inc(FTurnNumber);

















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











#

Line 374 
 end;


Line 378 
 end;












378
 
 

















379
 procedure TStoneGrid.Pause;
 procedure TStoneGrid.Pause;

















380
 begin
 begin















381


   FBool := false;


   FTerminated:=true;
















   FActive := false;


 















382
 end;
 end;

















383
 
 

















384
 procedure TStoneGrid.Restart;
 procedure TStoneGrid.Restart;

















385
 begin
 begin















386


   FActive := true;


   if FTerminated = true then













387


   FTurnIndex := FTurnNumber;


   begin













388


 


     FActive := true;













389


 


     FTurnIndex := FTurnNumber;













390


 


     FTerminated:=false;













391


 


   end;















392
 end;
 end;

















393
 
 

















394
 procedure TStoneGrid.SetStrings(X, Y: integer; const Value: TStoneType);
 procedure TStoneGrid.SetStrings(X, Y: integer; const Value: TStoneType);











#

Line 398 
 begin


Line 405 
 begin












405
     FTurnNumber := 0
     FTurnNumber := 0

















406
   else
   else

















407
     FTurnNumber := Value;
     FTurnNumber := Value;














   FActive := false;
 













408
   FStrings := FBuffer[FTurnNumber];
   FStrings := FBuffer[FTurnNumber];

















409
 end;
 end;

















410
 
 

















411
 procedure TStoneGrid.Start;
 procedure TStoneGrid.Start;

















412
 begin
 begin

















413
   Clear;
   Clear;












414
 
   FTerminated:=false;












415
   FActive := true;
   FActive := true;

















416
 end;
 end;

















417
 
 











#

Line 490 
 end;


Line 497 
 end;












497
 
 

















498
 procedure TForm1.GameStart;
 procedure TForm1.GameStart;

















499
 begin
 begin












500
 
   Index := Player1;












501
   StoneGrid.Start;
   StoneGrid.Start;

















502
   PaintBox1.Repaint;
   PaintBox1.Repaint;














   Index := Player1;
 













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














   Timer1.Enabled := true;
 













504
 end;
 end;

















505
 
 

















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











#

Line 625 
 end;


Line 631 
 end;












631
 
 

















632
 procedure TForm1.Timer2Timer(Sender: TObject);
 procedure TForm1.Timer2Timer(Sender: TObject);

















633
 begin
 begin















634


   if StoneGrid.ListExecute = true then


   if (StoneGrid.Active = false)and(StoneGrid.ListExecute = true) then















635
     PaintBox1.Repaint;
     PaintBox1.Repaint;

















636
 end;
 end;

















637
 
 





























Legend:



Removed from v.20
 


changed lines


 
Added in v.21













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[reversi-of-d]/Unit1.pas
-revision 20 by yamat0jp,
Sat Jul 18 21:05:05 2015 UTC
+revision 21 by yamat0jp,
Sat Jul 18 22:36:44 2015 UTC
 Line 41 
 type
      List: TList;
      FEffectStone: TStoneType;
      FBool: Boolean;
+     FTerminated: Boolean;
      FIndex_X: integer;
      FIndex_Y: integer;
      function GetStrings(X, Y: integer): TStoneType;
-Line 321 
 begin
+Line 322 
 begin
          List.Delete(i);
      if List.Count = 0 then
      begin
-       FActive := FBool;
+       if FTerminated = true then
+         FActive:=false
+       else
+         FActive := FBool;
        inc(FTurnIndex);
        inc(FTurnNumber);
        FBuffer[FTurnIndex] := FStrings;
-Line 374 
 end;
+Line 378 
 end;
  procedure TStoneGrid.Pause;
  begin
-   FBool := false;
+   FTerminated:=true;
-   FActive := false;
  end;
  procedure TStoneGrid.Restart;
  begin
-   FActive := true;
+   if FTerminated = true then
-   FTurnIndex := FTurnNumber;
+   begin
+     FActive := true;
+     FTurnIndex := FTurnNumber;
+     FTerminated:=false;
+   end;
  end;
  procedure TStoneGrid.SetStrings(X, Y: integer; const Value: TStoneType);
-Line 398 
 begin
+Line 405 
 begin
      FTurnNumber := 0
    else
      FTurnNumber := Value;
-   FActive := false;
    FStrings := FBuffer[FTurnNumber];
  end;
  procedure TStoneGrid.Start;
  begin
    Clear;
+   FTerminated:=false;
    FActive := true;
  end;
-Line 490 
 end;
+Line 497 
 end;
  procedure TForm1.GameStart;
  begin
+   Index := Player1;
    StoneGrid.Start;
    PaintBox1.Repaint;
-   Index := Player1;
    Caption := '黒から始めます';
-   Timer1.Enabled := true;
  end;
  procedure TForm1.MenuItem10Click(Sender: TObject);
-Line 625 
 end;
+Line 631 
 end;
  procedure TForm1.Timer2Timer(Sender: TObject);
  begin
-   if StoneGrid.ListExecute = true then
+   if (StoneGrid.Active = false)and(StoneGrid.ListExecute = true) then
      PaintBox1.Repaint;
  end;
 Legend:



Removed from v.20
 


changed lines


 
Added in v.21
 Legend:



Removed from v.20
 


changed lines


 
Added in v.21
-Removed from v.20
+Added in v.21
-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