Develop and Download Open Source Software

reversi-of-d

Browse Subversion Repository

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

Diff of /Unit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 18 by yamat0jp, Sat Jul 18 09:15:06 2015 UTC revision 19 by yamat0jp, Sat Jul 18 15:23:51 2015 UTC
# Line 168  var Line 168  var
168      while true do      while true do
169      begin      begin
170        s := GetStrings(X + m * i, Y + n * i);        s := GetStrings(X + m * i, Y + n * i);
171          if s = stEffect then
172            for j := 0 to List.Count-1 do
173              if List[j] <> nil then
174              begin
175                q:=List[j];
176                s:=q^.Stone;
177                break;
178              end;
179        if (s = stNone) or (s = stError) then        if (s = stNone) or (s = stError) then
180          break          break
181        else if s = Stone then        else if s = Stone then
# Line 191  var Line 199  var
199                  q^.Y := 0;                  q^.Y := 0;
200                  List.Add(q);                  List.Add(q);
201                  SetStrings(q^.Left, q^.Top, stEffect);                  SetStrings(q^.Left, q^.Top, stEffect);
202                  for k := 1 to 10 do                  for k := 1 to 100 do
203                  begin                  begin
204                    Sleep(10);                    Sleep(1);
205                    Application.ProcessMessages;                    Application.ProcessMessages;
206                  end;                  end;
207                end                end
# Line 528  procedure TForm1.MenuItem6Click(Sender: Line 536  procedure TForm1.MenuItem6Click(Sender:
536  begin  begin
537    Player1.Auto := MenuItem6.IsChecked;    Player1.Auto := MenuItem6.IsChecked;
538    Player2.Auto := MenuItem7.IsChecked;    Player2.Auto := MenuItem7.IsChecked;
   MenuItem10Click(Sender);  
539  end;  end;
540    
541  procedure TForm1.MenuItem8Click(Sender: TObject);  procedure TForm1.MenuItem8Click(Sender: TObject);
# Line 613  end; Line 620  end;
620  procedure TForm1.Timer1Timer(Sender: TObject);  procedure TForm1.Timer1Timer(Sender: TObject);
621  begin  begin
622    if (StoneGrid.Active = true) and (Index.Auto = true) then    if (StoneGrid.Active = true) and (Index.Auto = true) then
   begin  
     Timer1.Enabled := false;  
623      CompStone;      CompStone;
     Timer1.Enabled := true;  
   end;  
624  end;  end;
625    
626  procedure TForm1.Timer2Timer(Sender: TObject);  procedure TForm1.Timer2Timer(Sender: TObject);
Legend:
Removed from v.18  
changed lines
  Added in v.19
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help