> 　結構どころか　大変至極ですよ。有難うございます。

アンケートにもありましたので実装しましたが、人気コマンドになりそうですね。

> ついでですが　
> スクリプト
> procedure Hot(Id:integer);
> 指定Idの要素を強調表示（ヒット色）。
>
> は　表示だけでトラップ状態にはならないわけですね。

はい、一時的に表示色を変えるだけの機能しかありません。
SetTrap(id:integer)とか要りますかね？