玄玄老人.txt

企业版传奇世界本

[@玄玄]
{
　　阿修罗神、海底妖魔，这些妖孽终于开始肆虐了。自上\
次修罗大战以来的七百年安宁就要结束了。真希望人类勇士\
能够早日斩妖除魔，还中州一个安宁。\
　　你要是为了元神修炼之术而来就尽管开口，这时候我说\
什么也不能置身事外。\\
　　<听说您可以为元神炼丹/@炼丹>\
　　<哦不，我是来找你帮我熔炼宝石的。/@帮石>\
　　<我还有点别的事情找你/@别的事>\

[@炼丹]
　　正是如此，元神分身本身蕴涵的<COLOR=GREEN 灵力>可以用来炼制各种\
<COLOR=GREEN 灵丹>，让你的元神成长的更快。\
　　我守了这丹炉大半辈子，相信不会有谁比我更了解炼丹\
之术，你想炼什么样的丹药给元神分身用呢？\\
　　<补元丹/@补元丹>\
　　<归元丹/@归元丹>\
　　<离开/@exit>

[@补元丹]
　　分身的元气是用来释放<COLOR=GREEN 组合技能>的，当你分身受到连续\
击打，自身的元气就会慢慢苏醒。元气集满就可以释放威力\
强大的组合技能。\
　　补元丹可以让你的<COLOR=GREEN 元气增长速度快一倍>，这样就更容易\
用出组合技了。\
　　<COLOR=GREEN 3点灵力>就可以炼制出一颗补元丹了。\
　　<好的，现在就炼制/@炼制8>\
　　<返回/@炼丹>

[@炼制8]
#IF
checkys
#ACT
mov p0 0
MOV p0 $YSPOINT
goto @检查灵力数量
break
#ELSESAY
　　你的分身呢？都没有释放出来，叫我怎么帮助你呢？\\
　　<我马上放出我的分身。/@exit>

[@检查灵力数量]
#IF
LARGE P0 2
#ACT
YSPOINT - 3
give 补元丹 1
SENDMSG 5 你成功炼制出了一颗：补元丹
break
#ELSESAY
　　你的元神灵力只有<$YSPOINT>点，叫我怎么帮助你呢？\\
　　<我马上收集灵力去。/@exit>

[@归元丹]
　　归元丹是非常神奇的丹药，只要元神分身服下归元丹，\
无论何时，分身的<COLOR=GREEN 元气就会瞬间回满>。\
　　归元丹可以让元神分身随时都可以使用威力强大的组合\
技。\
　　归元丹需要<COLOR=GREEN 9点灵力>才可以炼制。\
　　<好的，现在就炼知/@炼制9>\
　　<返回/@炼丹>

[@炼制9]
#IF
checkys
#ACT
mov p0 0
MOV p0 $YSPOINT
goto @检查灵力数量3
break
#ELSESAY
　　你的分身呢？都没有释放出来，叫我怎么帮助你呢？\\
　　<我马上放出我的分身。/@exit>

[@检查灵力数量3]
#IF
LARGE P0 8
#ACT
YSPOINT - 9
give 归元丹 1
SENDMSG 5 你成功炼制出了一颗：归元丹
break
#ELSESAY
　　你的元神灵力只有<$YSPOINT>点，叫我怎么帮助你呢？\\
　　<我马上收集灵力去。/@exit>



[@帮石]
宝石通玄，玄机无限。关于宝石的问题，你找我玄玄老道绝对错\
不了。不知道你是想熔炼宝石呢，是想学习有关宝石的知识，还\
是要我帮你打开那个谁也无法打开的宝石箱子，哈哈！\\
<熔炼宝石/@熔炼宝石>\
<有关宝石的知识/@知识>\
<关于《宝石配方》/@配方>\
<宝石仓库/@宝仓>\
<离开/@exit>

[@配方]
目前宝石熔炼的配方是：\
　　红宝石X2+蓝宝石X2+绿宝石X2=<color=green 圣魔石>\
　　红宝石X4+蓝宝石X5+绿宝石X4=<color=green 金刚石>\
　　红宝石X5+蓝宝石X6+绿宝石X6=<color=green 水云石>\
　　红宝石X6+蓝宝石X6+绿宝石X7=<color=green 冰月石>\
　　红宝石X7+蓝宝石X7+绿宝石X7=<color=green 火晶石>\
　　红宝石X8+蓝宝石X8+绿宝石X8=<color=green 圣甲石>\
　　红宝石X9+蓝宝石X9+绿宝石X11=<color=green 魔甲石>\
　　红宝石X13+蓝宝石X12+绿宝石X14=<color=green 魔咒石>　　　　　　<返回/@帮石>

[@宝仓]
#CALL [\商人\仓库.txt] @宝石仓库


[@别的事]
　　你尽管说，找我到底有什么事情？以我老道的本领，没\
有什么不能帮你的。\\
　　<我想学习锻造技能？/@锻造技能>\\
　　<离开/@exit>

[@锻造技能]
#IF
CHECKLEVELEX < 50
#ACT
messagebox 要学习锻造技能至少需要等级50级才可以！
break
#IF
Check [11] 1
#ACT
messagebox 你当前已经学习了[武器锻造]技能了！！\一个人物终身只能选择学习一种锻造技能！
break
#IF
Check [12] 1
#ACT
messagebox 你当前已经学习了[盔甲锻造]技能了！！\一个人物终身只能选择学习一种锻造技能！
break
#IF
Check [13] 1
#ACT
messagebox 你当前已经学习了[首饰锻造]技能了！！\一个人物终身只能选择学习一种锻造技能！
break
#IF
Check [11] 0
Check [12] 0
Check [13] 0
#SAY
　　锻造炉能锻造天下各种神兵利器、盔甲、首饰！只要你学会\
锻造技能后，你就可以在中州锻造炉处锻造出你想要的物品！\
　　锻造技能分：武器锻造、盔甲锻造、首饰锻造\
　　一人终身只能选择一种来学习和使用！请妥善选择！<color=purple 学习时>\
<color=purple 需要等级50级和20万人物经验值！>\\
　　选择<学习武器锻造/@学习武器>　　<学习盔甲锻造/@学习盔甲>　　<学习首饰锻造/@学习首饰>\\
　　　　　　　　　　　　　　　　　　　　　　　　<返回上页/@main>


[@学习武器]
#IF
CHECKLEVELEX < 50
#ACT
messagebox 要学习锻造技能至少需要等级50级才可以！
break
#IF
CHECKEXP < 200000
#ACT
messagebox 要学习锻造技能至少需要20万人物经验值才可以！
break
#IF
Check [11] 0
Check [12] 0
Check [13] 0
#ACT
SET [11] 1
SET [12] 0
SET [13] 0
CHANGEEXP - 200000
SENDMSG 0 恭喜[<$USERNAME>]花费[20万]经验值在玄玄老人处学会了[武器锻造]技能！
messagebox 恭喜你成功学会了[武器锻造]技能！\从现在开始你可以在[中州锻造炉]处进行武器锻造了！
close
#ELSEACT
messagebox 一个人物终身只能选择学习一种锻造技能！
break

[@学习盔甲]
#IF
CHECKLEVELEX < 50
#ACT
messagebox 要学习锻造技能至少需要等级50级才可以！
break
#IF
CHECKEXP < 200000
#ACT
messagebox 要学习锻造技能至少需要20万人物经验值才可以！
break
#IF
Check [11] 0
Check [12] 0
Check [13] 0
#ACT
SET [11] 0
SET [12] 1
SET [13] 0
CHANGEEXP - 200000
SENDMSG 0 恭喜[<$USERNAME>]花费[20万]经验值在玄玄老人处学会了[盔甲锻造]技能！
messagebox 恭喜你成功学会了[盔甲锻造]技能！\从现在开始你可以在[中州锻造炉]处进行盔甲锻造了！
close
#ELSEACT
messagebox 一个人物终身只能选择学习一种锻造技能！
break

[@学习首饰]
#IF
CHECKLEVELEX < 50
#ACT
messagebox 要学习锻造技能至少需要等级50级才可以！
break
#IF
CHECKEXP < 200000
#ACT
messagebox 要学习锻造技能至少需要20万人物经验值才可以！
break
#IF
Check [11] 0
Check [12] 0
Check [13] 0
#ACT
SET [11] 0
SET [12] 0
SET [13] 1
CHANGEEXP - 200000
SENDMSG 0 恭喜[<$USERNAME>]花费[20万]经验值在玄玄老人处学会了[首饰锻造]技能！
messagebox 恭喜你成功学会了[首饰锻造]技能！\从现在开始你可以在[中州锻造炉]处进行首饰锻造了！
close
#ELSEACT
messagebox 一个人物终身只能选择学习一种锻造技能！
break



[@知识]
　　具有神奇能量的宝石共分为以下五个等级\
1、.初级宝石：红宝石、蓝宝石、绿宝石（无属性）\
2、.小宝石  3、中宝石  4、大宝石  5、宝石\
初级宝石通过“熔炼”将变成各类有属性的小宝石。随后，\
六颗完全相同的宝石又可以通过“凝炼”升级成高一等级\
的宝石。两颗种类不同但是级别相同的宝石还可以进行合\
成，这将可能大大提高宝石的威力！有属性的宝石可以佩\
戴在人物栏最下方的第三格。怎么样，心动了吧，宝石正\
被怪物们牢牢看守着，快去寻找吧！  <好的，明白了/@exit>


[@熔炼宝石]
熔炼宝石系统已经开启，最初级的宝石（红宝石、蓝宝石、\
绿宝石）是没有属性的，需要将三种宝石放在一起熔炼才可\
以获得强大的力量。幸好，我现在已经拿到传说中的《熔炼\
神术》按照上面的方法，我现在就可以给你进行宝石熔炼。\
宝石熔炼至少需要三色无属性的宝石<color=red 6颗>以上才有几率合成\
成功哦，我可是会不客气的收走你包裹中的所有宝石。你做\
好充分准备了吗？同色宝石最低<color=red 4颗>.不同色宝石最低<color=red 6颗>.\
<准备好了，请熔炼包裹中的宝石吧/@开始炼>\
<稍等，让我再考虑考虑/@>\

[@开始炼]
#if
#act
mov p0 0
mov p1 0
mov p2 0
mov D6 0
#if
checkitem 红宝石 1
#act
mov p0 1
#if
checkitem 红宝石 2
#act
mov p0 2
#if
checkitem 红宝石 3
#act
mov p0 3
#if
checkitem 红宝石 4
#act
mov p0 4
#if
checkitem 红宝石 5
#act
mov p0 5
#if
checkitem 红宝石 6
#act
mov p0 6
#if
checkitem 红宝石 7
#act
mov p0 7
#if
checkitem 红宝石 8
#act
mov p0 8
#if
checkitem 红宝石 9
#act
mov p0 9
#if
checkitem 红宝石 10
#act
mov p0 10
#if
checkitem 红宝石 11
#act
mov p0 11
#if
checkitem 红宝石 12
#act
mov p0 12
#if
checkitem 红宝石 13
#act
mov p0 13
#if
checkitem 红宝石 14
#act
mov p0 14
#if
checkitem 红宝石 15
#act
mov p0 15
#if
checkitem 蓝宝石 1
#act
mov p1 1
#if
checkitem 蓝宝石 2
#act
mov p1 2
#if
checkitem 蓝宝石 3
#act
mov p1 3
#if
checkitem 蓝宝石 4
#act
mov p1 4
#if
checkitem 蓝宝石 5
#act
mov p1 5
#if
checkitem 蓝宝石 6
#act
mov p1 6
#if
checkitem 蓝宝石 7
#act
mov p1 7
#if
checkitem 蓝宝石 8
#act
mov p1 8
#if
checkitem 蓝宝石 9
#act
mov p1 9
#if
checkitem 蓝宝石 10
#act
mov p1 10
#if
checkitem 蓝宝石 11
#act
mov p1 11
#if
checkitem 蓝宝石 12
#act
mov p1 12
#if
checkitem 蓝宝石 13
#act
mov p1 13
#if
checkitem 蓝宝石 14
#act
mov p1 14
#if
checkitem 蓝宝石 15
#act
mov p1 15
#if
checkitem 绿宝石 1
#act
mov p2 1
#if
checkitem 绿宝石 2
#act
mov p2 2
#if
checkitem 绿宝石 3
#act
mov p2 3
#if
checkitem 绿宝石 4
#act
mov p2 4
#if
checkitem 绿宝石 5
#act
mov p2 5
#if
checkitem 绿宝石 6
#act
mov p2 6
#if
checkitem 绿宝石 7
#act
mov p2 7
#if
checkitem 绿宝石 8
#act
mov p2 8
#if
checkitem 绿宝石 9
#act
mov p2 9
#if
checkitem 绿宝石 10
#act
mov p2 10
#if
checkitem 绿宝石 11
#act
mov p2 11
#if
checkitem 绿宝石 12
#act
mov p2 12
#if
checkitem 绿宝石 13
#act
mov p2 13
#if
checkitem 绿宝石 14
#act
mov p2 14
#if
checkitem 绿宝石 15
#act
mov p2 15
#if
#act
inc p0 $STR(P1)
#if
#act
inc p0 $STR(P2)
goto @xiayiburl1
break

[@xiayiburl1]
#if
small p0 6
#ACT
mov P0 0
#SAY
　\
对不起，最少需要<color=red 6颗>各种宝石才能进行熔炼.\
#if
LARGE p0 5
#ACT
goto @xiayiburl
break


[@xiayiburl]
#if
LARGE p0 36
#ACT
take 红宝石 40
take 蓝宝石 40
take 绿宝石 40
mov D6 8
goto @熔炼进度表
break
#if
LARGE p0 28
#ACT
take 红宝石 40
take 蓝宝石 40
take 绿宝石 40
mov D6 7
goto @熔炼进度表
break
#if
LARGE p0 23
#ACT
take 红宝石 40
take 蓝宝石 40
take 绿宝石 40
mov D6 6
goto @熔炼进度表
break
#if
LARGE p0 20
#ACT
take 红宝石 40
take 蓝宝石 40
take 绿宝石 40
mov D6 5
goto @熔炼进度表
break
#if
LARGE p0 18
#ACT
take 红宝石 40
take 蓝宝石 40
take 绿宝石 40
mov D6 4
goto @熔炼进度表
break
#if
LARGE p0 16
#ACT
take 红宝石 40
take 蓝宝石 40
take 绿宝石 40
mov D6 3
goto @熔炼进度表
break