目前比较详细的龙纹钢镶嵌功能添加教程

[@镶嵌龙纹钢]

{
#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
}

淡定，淡定，淡定……

强烈支持楼主ing……

太生气了，无法HOLD啦 >_<......

淡定，淡定，淡定……

楼主加油，我们都看好你哦。

真是难得给力的帖子啊。

强烈支持楼主ing……

无回帖，不论坛，这才是人道。

太生气了，无法HOLD啦 >_<......