Commit: 32 - doubutu (svn)

どうぶつしょうぎの完全解析をするGUI

Commit MetaInfo

• Revision: 32 (tree)
• Time: 2015-07-22 17:53:00
• Author: bellyoshi

Log Message

Change Summary

• modified: doubutu.UI.Form/Move.vb
• modified: doubutu.UI.Form/Board.vb

Incremental Difference

--- doubutu.UI.Form/Move.vb	(revision 31)
+++ doubutu.UI.Form/Move.vb	(revision 32)
@@ -80,6 +80,14 @@
         Return False
     End Function
 
+    ''' <summary>
+    ''' なったか
+    ''' </summary>
+    ''' <value></value>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Property IsPromote As Boolean
+
     Public Shared Operator =(ByVal op1 As Move, ByVal op2 As Move)
         Return op1.ToString = op2.ToString
     End Operator

--- doubutu.UI.Form/Board.vb	(revision 31)
+++ doubutu.UI.Form/Board.vb	(revision 32)
@@ -235,7 +235,12 @@
                 _Capured(CapuredKomaIndex(capturedPiece)) -= 1
             End If
             SetCells(move.ToPos, move.CapturedPiece)
-            SetCells(move.FromPos, move.Koma)
+            If move.IsPromote Then
+                SetCells(move.FromPos, move.Koma - 1) 'にわとりをヒヨコに変換
+            Else
+                SetCells(move.FromPos, move.Koma)
+            End If
+
         End If
         _side = -_side
     End Sub
@@ -253,7 +258,10 @@
                     move.CapturedPiece = GetCells(move.ToPos)
                 End If
             End If
-            SetCells(move.ToPos, GetCells(move.FromPos))
+            If move.Koma <> GetCells(move.FromPos) Then
+                move.IsPromote = True
+            End If
+            SetCells(move.ToPos, move.Koma)
             SetCells(move.FromPos, Koma.Empty)
         End If
     End Sub