直接移动到空格处，或者空格处有友方棋子时交换位置，我写的代码如下
(define castling (
(verify (in-zone? play-zone))
$1
(verify not-enemy?)
cascade
from
(opposite $1)
add
))
刚开始写好的时候没问题，后来就开始报错，找了好久才发现是这条报错，而且只是提示非法移动，并不影响我继续玩，请问该怎么处理不让他报错啊

移动后升变
(define shift-Scout (
$1
(verify (in-zone? $3))
(verify not-friend?)
(prisoner-check)
(if enemy?
(first-empty)
(convert-prisoner)
)
(create $2)
(add-partial move-2nd)
))
设置标记
(define curse (
(verify last-to?)
$1
(while (in-zone? play-zone)
(if (and not-empty?(not-flag? bCurse)(not-piece? Princess))
from
(set-flag bCurse true)
add-partial move-3rd)
$1
)
))
选棋子升变
(define switch (
(verify (or last-to?
(and (last-from? 1i)(not-friend? 1i)(piece? Rook 1i)此处省略一大串检测)
))
$1
(while (in-zone? play-zone)
(if (and friend? (not-piece? Princess))
from
(if (piece? Rook) (change-type Ambush_Rook))此处省略一大串升变
add)
$1
)
))

升变其他子，自身也升变
(define scout (
(if (or (and (not-friend? 3iv)(piece? Rook 3iv))此处省略一大串检测
)
(change-type $2)
$1
(while (in-zone? play-zone)
(if (and enemy? (not-piece? Princess))
from(if (piece? Rook) (change-type Ambush_Rook))此处省略一大串升变
(add-partial frame))
$1)
)))
追加的frame移动
(define shift-Scout (
(verify not-last-to?)
$1
(verify (in-zone? $2))
(verify not-friend?)
(if (not-piece? Princess)
(prisoner-check))
(if enemy?
(first-empty)
(convert-prisoner)
)
(add-partial move-2nd)
))
设置标记
(define curse (
(verify last-to?)
$1
(while (in-zone? play-zone)
(if (and not-empty?(not-flag? bCurse)(not-piece? Princess))
from
(set-flag bCurse true)
add-partial move-3rd)
$1
)
))
还是之前的问题，升变其他棋子之后，最后增加棋步的我判断不在原来的棋子上了，所以第二步左右移动执行不了

我又来了
(define curse (
to-prison
to-board；回到棋盘最角落
(while (on-board? n)
mark
(while (on-board? e)
(set-curse);注释见下
e
)
(set-curse);注释见下
back
n
)
(while (on-board? e)
(set-curse);注释见下
e
)
(set-curse);注释见下
e
))
(define set-curse
(if (and not-empty?(not-piece? King))
(if (friend? curse-flag)
from
flip
cascade
to-remove
add-copy
else
from
flip
flip
cascade
to-remove;移动到curse-flag这个格子
add-copy
)))
目的是选棋盘一个棋子，把它复制一个curse-flag这个格子里充当标记，碰到的问题是1.我需要点curse-flag这个格子而不是点对应的棋子，2.己方的棋子能正常复制一份，敌方的棋子就直接丢进去了