鉴定脚本示范

(@identify)
+82
+83
[@main]
洞察玄机，鉴定天地。关于鉴定的问题，你找我玄玄老\
道绝对错不了。不知道你是想鉴定物品呢，是想学习有关鉴\
定的知识，还是要我购买鉴定卷轴，哈哈！\\
<鉴定物品/@identify>\
<离开/@exit>\

[@identifyok]
#IF
CHECKGOLD 2000
#ACT
take 金币 2000
#ELSEACT
MESSAGEBOX 你的金币不足，无法鉴定。
break
#IF
EQUAL $ITEMINFO[$PARAM(0)].NAME 腰带(未鉴定)
EQUAL $ITEMINFO[$PARAM(0)].SVALUE(12)
#SAY
您的腰带(未鉴定)已经鉴定好了。\<返回/@main>
#ACT
takem $PARAM(0)
give 鹿皮腰带 1
break
#IF
EQUAL $ITEMINFO[$PARAM(0)].NAME 靴子(未鉴定)
EQUAL $ITEMINFO[$PARAM(0)].SVALUE(12)
#SAY
您的靴子(未鉴定)已经鉴定好了。\<返回/@main>
#ACT
takem $PARAM(0)
give 鹿皮靴子 1
break
#IF
EQUAL $ITEMINFO[$PARAM(0)].NAME 腰带(未鉴定)
#SAY
您的腰带(未鉴定)已经鉴定好了。\<返回/@main>
#ACT
Give $ITEMINFO[$PARAM(0)].SVALUE(12) 1
takem $PARAM(0)
break
#IF
EQUAL $ITEMINFO[$PARAM(0)].NAME 靴子(未鉴定)
#SAY
您的靴子(未鉴定)已经鉴定好了。\<返回/@main>
#ACT
Give $ITEMINFO[$PARAM(0)].SVALUE(12) 1
takem $PARAM(0)
break