| @@ -211,7 +211,7 @@ | ||
| 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 | |
| 214 | + If Not kyokumen.GetMasu(l).IsEmpty AndAlso kyokumen.GetMasu(l).Which = te.Which Then | |
| 215 | 215 | Return False |
| 216 | 216 | End If |
| 217 | 217 | Return True |