踏ん張るまもなく寄り切られました。

>
> ・スクリプトに procedure SetTrap(Id:integer) を追加
>

　例えばレイヤ移動スクリプトなどで　ERASE(ID)に置き換えてその効果を確認しました。有難うございました。