玄玄老人私服脚本(2)

[@元宝购买]
#IF
checkitem 七魄石 1
#ACT
MessageBox 对不起，您已经购买一个，请不要多次购买！\
break
close
#IF
CHECKGAMEGOLD > 1
#ACT
GAMEGOLD - 2
give 七魄石 1
CALCVAR HUMAN 消费 + 2
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
CALCVAR HUMAN JFD + 20
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
MessageBox 您已经购买了一个七魄石，并且获得了20点积分。
SENDMSG 5 您当前元宝数量为:<$GAMEGOLD>　（您可以在红秀那了解怎么样冲值元宝）
#ELSEACT
MessageBox 对不起，您的元宝不足，购买失败！需要2个元宝！
break
close

[@炼制]
#IF
Check [248] 1
#ACT
goto @修真
break
#if
checkitem 星辰精华 1
#ACT
take 星辰精华 1
SET [248] 1
goto @修真
#ELSEACT
MessageBox 对不起，您的星辰精华不足1个！

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

[@神术]
如果你找到了《熔炼神术》，就把他交给我的徒弟吧，他\
就在土城的(225,439)那里，我们会永远感激你的！\\
<好的，让我去找找/@exit>

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

[@鉴定宝贝]
洞察玄机，鉴定天地。关于鉴定的问题，你找我玄玄老道\
绝对错不了。不知道你是想鉴定物品呢，是想学习有关鉴\
定的知识，还是要我购买鉴定卷轴，哈哈！\\
<鉴定物品/@鉴定物>　　<了解有关鉴定的知识/@坚知识>　　<购入鉴定卷轴/@购鉴卷>\
<离开/@exit>

[@坚知识]
在上一场正邪之战中，牺牲的英雄们留下了一些神奇的宝\
物（战靴和腰带）。怪物们由于惧怕宝物正义的力量，用\
妖力将它们封印，使它们看起来与普通的物品一样。所以，\
这些战靴和腰带必须经过“鉴定”才会显露出它们强大的\
力量！除了回城让我来鉴定之外，你也可以随身备一些鉴\
定卷轴，这样就可以随时一睹上古宝物的真容了。\\
<离开/@exit>

[@鉴定物]
#CALL [\物品鉴定\鉴定物品.txt] @鉴定物品

[@别的事]
　　你尽管说，找我到底有什么事情？以我老道的本领，没\
有什么不能帮你的。\\
　　<我的天之玄兵怎么发挥不出威力啊？/@天之>\
　　<麻烦你帮我把隐身蚕甲捆起来。/@隐身>\
　　<离开/@exit>

[@1111]
五色补天石是我的远古祖师玄天道尊流传下来的宝物，具有\
奇妙无比的效果，它能够弥补你在武、道、魔修炼过程中的\
先天不足。你觉得你在升级的过程中错过了什么吗？你曾经\
留下遗憾吗？让我来帮你，战歌网，只要你把五色补天石交给我，凭\
借玄天道尊流传下来的神秘精神力量，我可以帮你试试看能\
否弥补遗憾。不过，能否成功，一切看上天的眷顾。\
<那谢谢了/@jinx>\
<不相信你/@exit>\

[@jinx]
年轻人，欺骗是不对的，你应该对你的一言一行负责！只有\
这样才能在未来的生活中赢得尊重。\\
<好惭愧/@exit>

[@知识]
　　具有神奇能量的宝石共分为以下五个等级\
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