[@黑暗锻造功能]
{
#IF
#SAY
　　魔道修行注重炼器，将心魔附魔在武器上，只能临时提\
升武器的威力，非长久之计。用残留在武器上的黑暗魔力来\
修炼武器，可以，这是魔道修行的高级炼\
器方法。\
　　用黑暗魔力修炼武器，要看造化，但你可以放心的是就\
算。你想试试看么？\
　　<我要修炼武器/@@equiplevel>\
　　<我想多了解一点再决定/@_SpeEvil_info>\
　　<让我再考虑一下 /@exit>\
#ACT
MOV D0
MOV D1
Break
[@_SpeEvil_info]
　　每次升级，不管成功失败，都要消耗掉武器上的黑暗魔\
力。武器现有黑暗属性的越高，升级一次消耗的黑暗魔力也\
越多。注意，武器蕴涵的灵力有限，最多只能增加7点威力。\\
　　<升级成功有什么好处？/@什么好处>\
　　<升级失败有什么损失？/@什么损失>\
　　<我能用黑暗魔力升级其他装备吗？/@其他装备吗>\
　　<返回/@黑暗锻造功能>　　<知道了>/@exit>
[@什么好处]
　　若升级成功，则武器上会增加0-1的黑暗属性，战士武\
器得到黑暗攻击属性，法师武器得到黑暗魔法属性,道士武\
器得到黑暗道术属性。\
　　黑暗属性是永久的，不是临时的!\\
　　<返回/@黑暗锻造功能>
[@什么损失]
　　若升级成功，则武器上已有的黑暗属性可能会减少，但\
你大可放心的是，黑暗魔力不能冲破武器蕴涵的灵力，所以\
你的武器再怎么升也不会破碎。\
　　<返回/@黑暗锻造功能>
[@其他装备吗]
　　用黑暗魔力升级武器，这个俺在行，但是护甲、头盔和\
首饰这些精细的玩意，俺可不懂。你去问问服装店和首饰点\
的人吧，也许他们掌握了黑暗魔力升级装备的诀窍呢！\\
　　<知道了/@exit>
[@@equiplevel]
#IF
LARGE $ITEMINFO[$PARAM(1)].DARKPOINT(0) 254
#ACT
GOTO @铸造黑暗属性
#ELSEACT
Sendmsg 7 升级黑暗武器“黑暗魔力”最少需要255点！
Break
[@铸造黑暗属性]
#IF
!EQUAL $PARAM(2) 0
!EQUAL $PARAM(3) 0
!EQUAL $PARAM(4) 0
!EQUAL $PARAM(5) 0
!EQUAL $PARAM(6) 0
!EQUAL $PARAM(7) 0
#ACT
MOV D0 $RANDOM(10)
INC D0 24
;随机属性点数
MOV D1 $RANDOM(5)
GOTO @检测属性点数
#ELSEACT
Sendmsg 5 材料不足！无法进行升级！
Break
[@检测属性点数]
#IF
EQUAL D1 0
#ACT
GOTO @铸造黑暗属性失败
#ELSEACT
GOTO @铸造黑暗属性成功
Break
[@铸造黑暗属性失败]
#IF
#ACT
MOV S0 升级失败，物品总数：
INC S0 $PARAM(0)
INC S0 \1：
INC S0 $ITEMINFO[$PARAM(1)].NAME
INC S0 \2：
INC S0 $ITEMINFO[$PARAM(2)].NAME
INC S0 \3：
INC S0 $ITEMINFO[$PARAM(3)].NAME
INC S0 \4：
INC S0 $ITEMINFO[$PARAM(4)].NAME
INC S0 \5：
INC S0 $ITEMINFO[$PARAM(5)].NAME
INC S0 \6：
INC S0 $ITEMINFO[$PARAM(6)].NAME
INC S0 \7：
INC S0 $ITEMINFO[$PARAM(7)].NAME
;取走宝石、幸运符等辅助物品
Takem $PARAM(2)
Takem $PARAM(3)
Takem $PARAM(4)
Takem $PARAM(5)
Takem $PARAM(6)
Takem $PARAM(7)
SMELTBOXRESULT 7 1
#SAY
<$STR(S0)>\
\
<返回/@main>\
#ACT
Break
[@铸造黑暗属性成功]
#IF
#ACT
;扣除黑暗魔力值
UPGRADEUSERITEM $PARAM(1) 19 - 255
;升级黑暗属性点
UPGRADEUSERITEM $PARAM(1) $STR(D0) + 1
MOV S0 武器升级成功，物品总数：
INC S0 $PARAM(0)
INC S0 \1：
INC S0 $ITEMINFO[$PARAM(1)].NAME
INC S0 \2：
INC S0 $ITEMINFO[$PARAM(2)].NAME
INC S0 \3：
INC S0 $ITEMINFO[$PARAM(3)].NAME
INC S0 \4：
INC S0 $ITEMINFO[$PARAM(4)].NAME
INC S0 \5：
INC S0 $ITEMINFO[$PARAM(5)].NAME
INC S0 \6：
INC S0 $ITEMINFO[$PARAM(6)].NAME
INC S0 \7：
INC S0 $ITEMINFO[$PARAM(7)].NAME
Takem $PARAM(2)
Takem $PARAM(3)
Takem $PARAM(4)
Takem $PARAM(5)
Takem $PARAM(6)
Takem $PARAM(7)
SMELTBOXRESULT 7 0
#SAY
<$STR(S0)>\
　　<返回/@main>\
}