传奇引擎拾取鉴定脚本，拾取物品时收走并给新的极品装备

大刀

QFunction-0.txt
拾物极品.txt  里写你需要拾取给极品的装备
H4  作用于防止每次丢物品在地上拾取都变极品，只有怪物掉出的新装备才算在内
give 物品详细见说明要给什么样的极品在于自己开发

[@PickupItem]
#IF
COMPVAL <$PARAM(7)> > <$STR(H4)>
CHECKSTRINGLIST ..\QuestDiary\抽取数据\拾物极品.txt <$PARAM(1)> HardDisk
#ACT
SENDMSG 5 你拾取了<$PARAM(1)>，物品编号<$PARAM(7)>
TAKE <$PARAM(7)> 1
give <$PARAM(1)> 1 1 10
MOV H4  <$CURITEMID>