自分の駒を取れないように
ShogiNextMove/Board/KomaMoveValidater.vb (diff)| @@ -211,6 +211,9 @@ | ||
| 211 | 211 | Dim locationList As KomaLocation() = GetToLocation(kyokumen, te.FromLocation, te.Piece.Value) |
| 212 | 212 | For Each l As KomaLocation In locationList |
| 213 | 213 | If l.Col = te.ToLocation.Col AndAlso l.Row = te.ToLocation.Row Then |
| 214 | + If kyokumen.GetMasu(l).Which = te.Which Then | |
| 215 | + Return False | |
| 216 | + End If | |
| 214 | 217 | Return True |
| 215 | 218 | End If |
| 216 | 219 | Next |
bellyoshi