svnno****@sourc*****
svnno****@sourc*****
2014年 9月 16日 (火) 12:53:02 JST
Revision: 60
http://sourceforge.jp/projects/shoginextmove/scm/svn/commits/60
Author: bellyoshi
Date: 2014-09-16 12:53:02 +0900 (Tue, 16 Sep 2014)
Log Message:
-----------
自分の駒を取れないように
Modified Paths:
--------------
ShogiNextMove/Board/KomaMoveValidater.vb
Modified: ShogiNextMove/Board/KomaMoveValidater.vb
===================================================================
--- ShogiNextMove/Board/KomaMoveValidater.vb 2014-09-16 03:50:04 UTC (rev 59)
+++ ShogiNextMove/Board/KomaMoveValidater.vb 2014-09-16 03:53:02 UTC (rev 60)
@@ -211,6 +211,9 @@
Dim locationList As KomaLocation() = GetToLocation(kyokumen, te.FromLocation, te.Piece.Value)
For Each l As KomaLocation In locationList
If l.Col = te.ToLocation.Col AndAlso l.Row = te.ToLocation.Row Then
+ If kyokumen.GetMasu(l).Which = te.Which Then
+ Return False
+ End If
Return True
End If
Next