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 10 by yamat0jp, Mon Jul 13 10:29:57 2015 UTC revision 12 by yamat0jp, Mon Jul 13 22:33:52 2015 UTC
# Line 287  procedure TStoneGrid.SetTurnNumber(const Line 287  procedure TStoneGrid.SetTurnNumber(const
287  begin  begin
288    if Value > FTurnIndex then    if Value > FTurnIndex then
289      FTurnNumber := FTurnIndex      FTurnNumber := FTurnIndex
290      else if Value < 0 then
291        FTurnNumber := 0
292    else    else
293      FTurnNumber := Value;      FTurnNumber := Value;
294    FActive := false;    FActive := false;
# Line 318  var Line 320  var
320    begin    begin
321      result := false;      result := false;
322      for i := 0 to Count - 1 do      for i := 0 to Count - 1 do
     begin  
323        for j := 0 to Count - 1 do        for j := 0 to Count - 1 do
324          if StoneGrid.CanSetStone(Index.Stone, i, j, false) = true then          if StoneGrid.CanSetStone(Index.Stone, i, j, false) = true then
325          begin          begin
326            result := true;            result := true;
327            break;            Exit;
328          end;          end;
       if result = true then  
         break;  
     end;  
329    end;    end;
330    
331  begin  begin
# Line 393  begin Line 391  begin
391        TurnNumber := TurnNumber + 1        TurnNumber := TurnNumber + 1
392      else      else
393        TurnNumber := TurnNumber - 1;        TurnNumber := TurnNumber - 1;
394      ChangePlayer;
395    PaintBox1.Repaint;    PaintBox1.Repaint;
396  end;  end;
397    
# Line 500  end; Line 499  end;
499    
500  procedure TForm1.PaintBox1Tap(Sender: TObject; const Point: TPointF);  procedure TForm1.PaintBox1Tap(Sender: TObject; const Point: TPointF);
501  begin  begin
502    if (Player1.Auto = false)or(Player2.Auto = false) then    if Index.Auto = false then
     MenuItem10Click(Sender);  
   if (StoneGrid.Active = true) and (Index.Auto = false) then  
503    begin    begin
504        MenuItem10Click(Sender);
505      if StoneGrid.CanSetStone(Index.Stone, Floor(Point.X / Size),      if StoneGrid.CanSetStone(Index.Stone, Floor(Point.X / Size),
506        Floor(Point.Y / Size), true, true) = true then        Floor(Point.Y / Size), true, true) = true then
507      begin      begin
Legend:
Removed from v.10  
changed lines
  Added in v.12
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help