[@镶嵌龙纹钢]
{
#IF
!CHECKITEMID $PARAM(0)
#ACT
BREAK
#IF
!CHECKITEMID $PARAM(1)
#ACT
BREAK
#IF
!CHECKITEM 龙纹晶石 1
#ACT
SENDMSG 5 对不起,你包裹里没有龙纹晶石无法镶嵌龙纹钢。
BREAK
#IF
LARGE $ITEMINFO[$PARAM(0)].ITEMEXT(87) 0
#ACT
SENDMSG 5 对不起,你的武器已经镶嵌龙纹钢,请先摘除之后再来镶嵌。
BREAK
#IF
!CHECKVARLIST $ITEMINFO[$PARAM(0)].STDNAME ..\QuestDiary\游戏读取\允许镶嵌龙纹钢.txt
#ACT
SENDMSG 5 对不起,你这个武器不允许镶嵌龙纹钢。
BREAK
#ELSEACT
MOV P30 $PARAM(2)
MOV P35 $ITEMVALSUM(龙纹晶石).DURA
#IF
!SMALL $STR(P35) $STR(P30)
#ACT
TAKE 龙纹晶石 666666
DEC P35 $STR(P30)
UpgradeUserItem $PARAM(0) 87 + $STR(P30)
TAKEM $PARAM(1)
SENDMSG 5 龙纹钢镶嵌成功。
#ELSEACT
SENDMSG 5 你的龙纹晶石不足<$STR(P30)>个,镶嵌龙纹钢失败。
break
#IF
!SMALL P35 1
#ACT
GIVE 龙纹晶石 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P35)
close
break
}
[@取下龙纹钢]
{
#IF
!CHECKITEMID $PARAM(0)
#ACT
break
#IF
!CHECKBAGSIZE 1
#ACT
SENDMSG 5 空位不足摘除龙纹钢失败。
BREAK
#IF
TRUE
#ACT
MOV P10 $PARAM(1)
DEC P10 1
GIVE 龙纹钢 1
UPGRADEUSERITEM $PARAM(10) 80 = $STR(P10)
UPGRADEUSERITEM $PARAM(0) 87 = 0
SENDMSG 5 龙纹钢摘除成功。
break
}