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 19 by yamat0jp, Sat Jul 18 15:23:51 2015 UTC revision 20 by yamat0jp, Sat Jul 18 21:05:05 2015 UTC
# Line 39  type Line 39  type
39      FTurnIndex: integer;      FTurnIndex: integer;
40      FActive: Boolean;      FActive: Boolean;
41      List: TList;      List: TList;
42        FEffectStone: TStoneType;
43      FBool: Boolean;      FBool: Boolean;
44      FIndex_X: integer;      FIndex_X: integer;
45      FIndex_Y: integer;      FIndex_Y: integer;
# Line 133  var Line 134  var
134  begin  begin
135    if CanSetStone(Stone, X, Y, true) = true then    if CanSetStone(Stone, X, Y, true) = true then
136    begin    begin
137      if Stone = stBlack then      case Stone of
138        Stone := stWhite      stBlack:
139      else        Stone := stWhite;
140        stWhite:
141        Stone := stBlack;        Stone := stBlack;
142        stEffect:
143          Stone := FEffectStone;
144        end;
145      result := 0;      result := 0;
146      for i := 0 to Count - 1 do      for i := 0 to Count - 1 do
147        for j := 0 to Count - 1 do        for j := 0 to Count - 1 do
# Line 169  var Line 174  var
174      begin      begin
175        s := GetStrings(X + m * i, Y + n * i);        s := GetStrings(X + m * i, Y + n * i);
176        if s = stEffect then        if s = stEffect then
177          for j := 0 to List.Count-1 do          s:=FEffectStone;
           if List[j] <> nil then  
           begin  
             q:=List[j];  
             s:=q^.Stone;  
             break;  
           end;  
178        if (s = stNone) or (s = stError) then        if (s = stNone) or (s = stError) then
179          break          break
180        else if s = Stone then        else if s = Stone then
# Line 191  var Line 190  var
190                Form1.PaintBox1.Repaint;                Form1.PaintBox1.Repaint;
191                if Visible = true then                if Visible = true then
192                begin                begin
193                    FEffectStone:=Stone;
194                  New(q);                  New(q);
195                  q^.Left := X + m * j;                  q^.Left := X + m * j;
196                  q^.Top := Y + n * j;                  q^.Top := Y + n * j;
Legend:
Removed from v.19  
changed lines
  Added in v.20
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help