黑暗武器的实例脚本(一)
[@黑暗武器]
{
魔道修行注重炼器，将心魔附魔在武器上，只能临时提升武\
器的威力，非长久之计。用残留在武器上的黑暗魔力来修炼武器\
，可以<COLOR=GREEN 永久提升武器威力>，这是魔道修行的高级炼器方法。\
用黑暗魔力修炼武器，要看造化，但你可以放心的是就算<COLOR=GREEN 失>\
<COLOR=GREEN 败了，武器也不会破碎>。你想试试看么？\
提示:<COLOR=red 放6张幸运符在升级框中一起升级可以100%升级成功！>\
<我要修炼武器/@@equiplevel>\
<我想多了解一点再决定/@多介绍>\
<增加装备黑暗魔力/@购买黑暗>
[@购买黑暗]
装备的黑暗魔力可以在游戏中杀怪、参加活动、做任务等获\
得！还可以用镇魔符直接点在附魔后的装备上增加！\
因为<COLOR=GREEN 没有附魔过的装备不能直接使用镇魔符增加黑暗魔力>，\
所以如果你想给你的装备增加黑暗魔力的话，就可以拿镇魔符来\
找我，我就帮你把镇魔符里的黑暗力量给你增加到你指定的装备\
上去！<COLOR=GREEN 每张镇魔符可增加80到90点左右的黑暗魔力！>\\
我要<用镇魔符增加装备黑暗魔力/@增加y>\
<返回/@main>
[@增加y]
#ACT
checkitembox 放入你想增加的装备 1 141
[@getboxitem141]
#IF
CHECKVARLIST $CHECKBOXITEM.STDMODE ..\衣服类型.txt
#ACT
GOTO @keieijia
break
#IF
CHECKVARLIST $CHECKBOXITEM.STDMODE ..\武器类型.txt
#ACT
GOTO @keieijia
break
#IF
CHECKVARLIST $CHECKBOXITEM.STDMODE ..\首饰类型.txt
#ACT
GOTO @keieijia
break
#ELSEACT
messagebox 当前物品不能增加黑暗魔力！
break
[@keieijia]
#IF
checkitem 镇魔符 1
#ACT
take 镇魔符 1
UPGRADECHECKITEMBOX 19 + 85
SENDMSG 5 装备的黑暗魔力提升了！
#ELSEACT
messagebox 你包内没有镇魔符，不能增加黑暗魔力！\ \镇魔符可以在商城里用元宝购买！
break
[@多介绍]
每次升级，不管成功失败，都要消耗掉武器上的黑暗魔\
力。武器现有黑暗属性的越高，升级一次消耗的黑暗魔力也\
越多。注意，武器蕴涵的灵力有限，最多只能增加7点威力。\\
<升级成功有什么好处？/@jf123>\
<升级失败有什么损失？/@gfdfsg>\
<我能用黑暗魔力升级其它装备吗？/@4563h>\
<返回/@升级黑暗> <知道了/@exit>
[@jf123]
若升级成功，则武器上会增加0—1的黑暗属性，战士武\
器得到黑暗攻击属性，法师武器得到黑暗魔法属性，道士武\
器得到黑暗道术属性。\
呵呵，黑暗属性是永久的，不是临时的！\\
<返回/@多介绍>
[@gfdfsg]
若升级失败，则武器上已有的黑暗属性可能会减少，但\
你大可放心的是，黑暗魔力不能冲破武器蕴涵的灵力，所以\
你的武器再怎么升也不会破碎。\\
<返回/@多介绍>
[@4563h]
用黑暗魔力升级武器，这个俺在行，但是护甲、头盔和\
首饰这些精细的玩意，俺可不懂。你去问问服装店和首饰店\
的人吧，也许他们也掌握了黑暗魔力升级装备的诀窍呢！\\
<返回/@多介绍>
[@@equiplevel]
#IF
CHECKVARLIST $SUPERBOXITEM(0).STDMODE ..\武器类型.txt
#ACT
MOV D3 0
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级！
break
close
#IF
checkjob warrior
#ACT
MOV D5 $SUPERBOXITEM(0).DARKPOINT[0]
MOV D4 $SUPERBOXITEM(0).DARKPOINT[2]
CALCVAR HUMAN SCH = $SUPERBOXITEM(0).DARKPOINT[2]
CALCVAR HUMAN SCH * 200
CALCVAR HUMAN SCH + 200
GOTO @ZHANSHSHOU1
break
#IF
checkjob wizard
#ACT
MOV D5 $SUPERBOXITEM(0).DARKPOINT[0]
MOV D4 $SUPERBOXITEM(0).DARKPOINT[4]
CALCVAR HUMAN SCH = $SUPERBOXITEM(0).DARKPOINT[4]
CALCVAR HUMAN SCH * 200
CALCVAR HUMAN SCH + 200
GOTO @ZHANSHSHOU1
break
#IF
checkjob taoist
#ACT
MOV D5 $SUPERBOXITEM(0).DARKPOINT[0]
MOV D4 $SUPERBOXITEM(0).DARKPOINT[6]
CALCVAR HUMAN SCH = $SUPERBOXITEM(0).DARKPOINT[6]
CALCVAR HUMAN SCH * 200
CALCVAR HUMAN SCH + 200
GOTO @ZHANSHSHOU1
break
[@ZHANSHSHOU1]
#IF
LARGE D4 6
#ACT
messagebox 当前装备的黑暗属性值已经达到最高限制7点了，不能进行升级！
break
close
#IF
SMALL D5 $HUMAN(SCH)
#ACT
messagebox 当前装备黑暗魔力值不足<$HUMAN(SCH)>，不能进行升级！
break
close
#ELSEACT
goto @检查幸运符
break
[@检查幸运符]
#IF
EQUAL $SUPERBOXITEM(1).NAME 幸运符
EQUAL $SUPERBOXITEM(2).NAME 幸运符
EQUAL $SUPERBOXITEM(3).NAME 幸运符
EQUAL $SUPERBOXITEM(4).NAME 幸运符
EQUAL $SUPERBOXITEM(5).NAME 幸运符
EQUAL $SUPERBOXITEM(6).NAME 幸运符
#ACT
TAKESUPERBOXITEM 1
TAKESUPERBOXITEM 2
TAKESUPERBOXITEM 3
TAKESUPERBOXITEM 4
TAKESUPERBOXITEM 5
TAKESUPERBOXITEM 6
MOV D3 88
SETSUPERBOXRESULT 0
break
#IF
LARGE D4 3
#ACT
GOTO @wQJL111
break
#IF
LARGE D4 1
#ACT
GOTO @wQJL112
break
#ELSEACT
GOTO @wQJL113
break
[@wQJL113]
#IF
random 5
#ACT
MOV D3 0
SETSUPERBOXRESULT 0
break
#ELSEACT
MOV D3 88
SETSUPERBOXRESULT 0
break
[@wQJL112]
#IF
random 20
#ACT
MOV D3 88
SETSUPERBOXRESULT 0
break
#ELSEACT
MOV D3 0
SETSUPERBOXRESULT 0
break
[@wQJL111]
#IF
random 50
#ACT
MOV D3 88
SETSUPERBOXRESULT 0
break
#ELSEACT
MOV D3 0
SETSUPERBOXRESULT 0
break
[~@equiplevel_ok]
[~@equiplevel_fail]
#IF
EQUAL D3 88
#ACT
GOTO @炼化成功
#ELSEACT
UPGRADESUPERITEMBOX 19 - $HUMAN(SCH)
SENDMSG 5 很遗憾！您的武器黑暗属性升级失败了！
break
KICK
[@炼化成功]
#IF
checkjob warrior
CHECKVAR HUMAN SCH > 100
#ACT
UPGRADESUPERITEMBOX 19 - $HUMAN(SCH)
UPGRADESUPERITEMBOX 21 + 1
SENDMSG 5 恭喜您,您的首饰充分炼化了黑暗魔力,,升级成功了为了安全请下线再上请谅解
messagebox 恭喜您,您的首饰充分炼化了黑暗魔力,,升级成功了为了安全请下线再上请谅解
KICK
#IF
checkjob wizard
CHECKVAR HUMAN SCH > 100
#ACT
UPGRADESUPERITEMBOX 19 - $HUMAN(SCH)
UPGRADESUPERITEMBOX 23 + 1
SENDMSG 5 恭喜您,您的首饰充分炼化了黑暗魔力,,升级成功了为了安全请下线再上请谅解
messagebox 恭喜您,您的首饰充分炼化了黑暗魔力,,升级成功了为了安全请下线再上请谅解
KICK
#IF
checkjob taoist
CHECKVAR HUMAN SCH > 100
#ACT
UPGRADESUPERITEMBOX 19 - $HUMAN(SCH)
UPGRADESUPERITEMBOX 25 + 1
SENDMSG 5 恭喜您,您的首饰充分炼化了黑暗魔力,升级成功了为了安全请下线再上请谅解
messagebox 恭喜您,您的首饰充分炼化了黑暗魔力,升级成功了为了安全请下线再上请谅解\
KICK
}
| 
| 网站首页 
| 联系我们 
| 传世一条龙