用元宝提升元神境界的脚本

<我愿意用元宝让分身变得更加强大/@加强大>\
[@加强大]
　　据远古手札记载，分身修炼需经历五重境界：<COLOR=GREEN 固本、陪>\
<COLOR=GREEN 元、明心、大悟和飞升>。每普升一重境界，分身的能力便会\
大幅提升，每重境界还有很多神器，可让分身如虎添翼！\
　　经过苦心研究，我发现运用三魂七魄灵石中蕴含的灵力\
可帮助分身提升境界，<COLOR=GREEN 而且还可以提升分身的灵力值。>\\
　　<请您帮分身提升境界/@提升境界>　　<请您帮分身修炼体魄/@修炼体魄>\
　　<购买分身灵佩/@换取灵佩>\
　　<多谢指点>
[@修炼体魄]
#IF
checkys
#SAY
　　尊敬的朋友，每一位成功分身出元神的修真者，其元神的体\
魄或多或少都存在一些遗憾和缺陷，为了让大家弥补这些缺陷而\
达到完美的体魄，特为大家强化元神体魄一次，强化后，元神的\
生命力上限将得到提升，机会只有一次！\
　　好了，如果你准备好了<COLOR=GREEN 10颗星辰精华和500万金币>我就帮你\
进行元神体魄的强化。\\
　　<我带来了你需要的东西，请帮我元神炼体/@准备好了1>\
　　<我马上就去准备你要的东西>
#ELSESAY
　　你的分身呢？都没有释放出来，叫我怎么帮助你呢？\\
　　<我马上放出我的分身。>
[@准备好了1]
#IF
CHECKONLINE $YSNAME
#ACT
goto @元神可以炼体
break
#ELSESAY
　　你的分身呢？都没有释放出来，叫我怎么帮助你呢？\\
　　<我马上放出我的分身。>

[@元神可以炼体]
#IF
Check [273] 0
checkitem 星辰精华 10
CHECKGOLD 5000000
#ACT
take 星辰精华 10
TAKE 金币 5000000
SET [273] 1
HCALL $YSNAME @元神炼体力了
SENDMSG 7 恭喜你元神炼体成功...元神本体生命上限获得提升
SENDMSG 11 恭喜你元神炼体成功...元神本体生命上限获得提升
break
close
#SAY
　　恭喜你成功的为你的元神进行了体魄的修炼！\
　　练体后的元神：<COLOR=GREEN 生命力和魔法值上限获得了提升！>\
　　此后元神每提升一个境界，其自身的能力值都会有质的飞跃\
境界的提升将全面提升你元神的能力。\
　　你可以到<COLOR=GREEN 中州服装店>去找其老板，让她为里的元神量身打造\
一件适合你元神穿戴的<COLOR=GREEN 培元宝甲>，这宝甲可是能升级的哦！\\
　　<知道了，谢谢，我这就去>
#ELSESAY
　　对不起，你的元神炼体条件不足！\\
　　1.需要<COLOR=GREEN 10颗星辰精华和500万金币>\
　　2.以前没有炼体过.\\
　　<离开>

[@换取灵佩]
　　灵佩是魔法阵中各种灵力凝聚而成的奇妙之物品，分身只\
要佩戴上它，提高的能力一定会让你吃惊。\
　　但此物珍稀，只能先奖励给那些贡献突出的勇士。如果\
你也需要灵佩，那就要使用你的声望来换取。而且，灵佩源\
自然魔法阵灵力，所以还需要你交些灵石给我，催动法阵来\
获得灵佩！\
　　<我想购买青木灵佩/@青木>\
　　<我想购买白石灵佩/@白石>\
　　<我想购买紫玉灵佩/@紫玉>　　　<离开>

[@青木]
　　分身到<COLOR=GREEN 陪元境界>才可以佩带<COLOR=GREEN 青木灵佩>，青木灵佩能大大\
提高分身的防御能力，抵挡更强的攻击。\
　　要想购买青木灵佩，需要你付出<COLOR=GREEN 20个元宝>。\
　　你想现在就购买青木灵佩吗？\\
　　<是的，现在就购买/@换青木灵佩>\
　　<返回

[@换青木灵佩]www.
#if
CHECKGAMEGOLD > 19
#ACT
GAMEGOLD - 20
give 青木灵佩 1
SENDMSG 7 恭喜你成功购买了　[青木灵佩]
break
close
#ELSESAY
你购买的条件不足\
需要20个元宝\\
<知道了>
[@白石]
　　分身到<COLOR=GREEN 明心境界>才可以佩戴<COLOR=GREEN 白石灵佩>，白石灵佩不但可\
以提高分身的能力，而且这些能力还能附加到主人身上！\
　　要想购买白石灵佩，需要你付出<COLOR=GREEN 40个元宝>\
　　你想现在就购买白石灵佩吗？\\
　　<是的，现在就购买/@换白石灵佩>\
　　<返回>
[@换白石灵佩]
#if
CHECKGAMEGOLD > 39
#ACT
GAMEGOLD - 40
give 白石灵佩 1
SENDMSG 7 恭喜你成功购买了　[白石灵佩]
break
close
#ELSESAY
你购买的条件不足\
需要40个元宝\\
<知道了>
[@紫玉]
　　分身到大悟境界才可以佩带紫玉灵佩，紫玉灵佩可以使\
分身的能力得到全面提高，而且这些能力还能附加到主人\
身上！\
　　要想换取紫玉灵佩，需要你付出70点声望，再给我一些\
三魂七魄灵石，灵石蕴含灵力之和至少50点才行。\
　　你想现在就换取紫玉灵佩吗？\\
　　<是的，现在就换取/@换紫玉灵佩>\
　　<返回>
[@换紫玉灵佩]
#if
CHECKGAMEGOLD > 79
#ACT
GAMEGOLD - 80
give 紫玉灵佩 1
SENDMSG 7 恭喜你成功购买了　[紫玉灵佩]
break
close
#ELSESAY
你购买的条件不足\
需要80个元宝\\
<知道了>
[@提升境界]
#IF
checkys
#ACT
MOV D0 $YSLEVEL
MOV S20 $YSGENDER
MOV S21 $YSJOB
goto @显示境
#ELSESAY
　　你的分身呢？都没有释放出来，叫我怎么帮助你呢？\\
　　<我马上放出我的分身。>
[@显示境]
尊敬的修真者，你元神当前的状态是:\\
　　元神<COLOR=GREEN 名字：><$YSNAME>\
　　元神<COLOR=GREEN 性别：><$YSGENDER>　　　元神<COLOR=GREEN 等级：><$YSLEVEL>\
　　元神<COLOR=GREEN 职业：><$YSJOB>　　元神<COLOR=GREEN 境界：><$HUMAN(YSJ)>\\
　　每次提升元神的境界都要满足一定的修炼条件才可以提升\
每提升一次境界，元神的能力都会大幅度的提升！\
　　<我要提升元神境界/@提升元神境界>　<离开>
[@提升元神境界]
#IF
CHECKONLINE $YSNAME
#ACT
goto @元神可以提升境界
break
#ELSESAY
　　你的分身呢？都没有释放出来，叫我怎么帮助你呢？\\
　　<我马上放出我的分身。>
[@元神可以提升境界]
#IF
Check [272] 0
#ACT
SET [272] 1
CALCVAR HUMAN YSJ = 固本期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
goto @提升元神境界一
break
#ELSEACT
goto @提升元神境界一
break
[@提升元神境界一]
#IF
CHECKVAR HUMAN YSJ = 固本期
#ACT
goto @固本期
break
#IF
CHECKVAR HUMAN YSJ = 培元初期
#ACT
goto @培元初期
break
#IF
CHECKVAR HUMAN YSJ = 培元中期
#ACT
goto @培元中期
break
#IF
CHECKVAR HUMAN YSJ = 培元后期
#ACT
goto @培元后期
break
#IF
CHECKVAR HUMAN YSJ = 明心初期
#ACT
goto @明心初期
break
#IF
CHECKVAR HUMAN YSJ = 明心中期
#ACT
goto @明心中期
break
#IF
CHECKVAR HUMAN YSJ = 明心后期
#ACT
goto @明心后期
break
#IF
CHECKVAR HUMAN YSJ = 大悟初期
#ACT
goto @大悟初期
break
#IF
CHECKVAR HUMAN YSJ = 大悟中期
#ACT
goto @大悟中期
break
#IF
CHECKVAR HUMAN YSJ = 大悟后期
#ACT
goto @大悟后期
break
#ELSESAY
你元神出现异常...或者境界太高了..\\
<离开>

[@固本期]
你元神当前阶段的境界是:<COLOR=GREEN 固本期>\\
　　下一阶段元神境界是:培元初期\
　　元神<COLOR=GREEN 固本期>升级到<COLOR=GREEN 培元初期>的条件是:\
　　1、元神的等级31级或31级以上\
　　2、5元宝即可提升境界\\
　　<满足条件提升元神境界/@提升境界1>　<离开>

[@提升境界1]
#if
LARGE D0 30
CHECKGAMEGOLD > 4
#ACT
GAMEGOLD - 5
YSFENGHAO 1
CALCVAR HUMAN YSJ = 培元初期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
HCALL $YSNAME @元神境界1
SENDMSG 7 恭喜你元神的境界获得提升至　[培元初期]
SENDMSG 11 恭喜你元神的境界获得提升　　　　元神生命值上限获得增加　　　　　元神魔法值上限获得增加
break
close
#ELSESAY
你提升元神境界的条件不足\
元神等级31级以上+5元宝\\
<知道了>

[@培元初期]
你元神当前阶段的境界是:<COLOR=GREEN 培元初期>\\
　　下一阶段元神境界是:培元中期\
　　元神<COLOR=GREEN 陪元初期>升级到<COLOR=GREEN 培元中期>的条件是:\
　　1、元神的等级36级或36级以上\
　　2、10元宝即可提升元神境界\\
　　<满足条件提升元神境界/@提升境界2>　<离开>

[@提升境界2]
#if
LARGE D0 36
CHECKGAMEGOLD > 9
#ACT
GAMEGOLD - 10
YSFENGHAO 2
CALCVAR HUMAN YSJ = 培元中期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
HCALL $YSNAME @元神境界2
SENDMSG 7 恭喜你元神的境界获得提升至　[培元中期]
SENDMSG 11 恭喜你元神的境界获得提升　　　　元神生命值上限获得增加　　　　　元神魔法值上限获得增加
break
close
#ELSESAY
你提升元神境界的条件不足\
元神等级36级以上+10元宝\\
<知道了>

[@培元中期]
你元神当前阶段的境界是:<COLOR=GREEN 培元中期>\\
　　下一阶段元神境界是:培元后期\
　　元神<COLOR=GREEN 培元中期>升级到<COLOR=GREEN 培元后期>的条件是:\
　　1、元神的等级42级或42级以上\
　　2、20元宝即可提升境界\\
　　<满足条件提升元神境界/@提升境界3>　<离开>

[@提升境界3]
#if
LARGE D0 42
CHECKGAMEGOLD > 19
#ACT
GAMEGOLD - 20
YSFENGHAO 3
CALCVAR HUMAN YSJ = 培元后期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
HCALL $YSNAME @元神境界3
SENDMSG 7 恭喜你元神的境界获得提升至　[培元后期]
SENDMSG 11 恭喜你元神的境界获得提升　　　　元神生命值上限获得增加　　　　　元神魔法值上限获得增加
break
close
#ELSESAY
你提升元神境界的条件不足\
元神等级42级以上+20元宝\\
<知道了>

[@培元后期]
你元神当前阶段的境界是:<COLOR=GREEN 培元后期>\\
　　下一阶段元神境界是:明心初期\
　　元神<COLOR=GREEN 培元后期>升级到<COLOR=GREEN 明心初期>的条件是:\
　　1、元神的等级46级或46级以上\
　　2、30元宝即可提升境界\\
　　<满足条件提升元神境界/@提升境界4>　<离开>

[@提升境界4]
#if
LARGE D0 46
CHECKGAMEGOLD > 29
#ACT
GAMEGOLD - 30
YSFENGHAO 4
CALCVAR HUMAN YSJ = 明心初期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
HCALL $YSNAME @元神境界4
SENDMSG 7 恭喜你元神的境界获得提升至　[明心初期]
SENDMSG 11 恭喜你元神的境界获得提升　　　　元神生命值上限获得增加　　　　　元神魔法值上限获得增加
break
close
#ELSESAY
你提升元神境界的条件不足\
元神等级46级以上+30元宝\\
<知道了>

[@明心初期]
你元神当前阶段的境界是:<COLOR=GREEN 明心初期>\\
　　下一阶段元神境界是:明心中期\
　　元神<COLOR=GREEN 明心初期>升级到<COLOR=GREEN 明心中期>的条件是:\
　　1、元神的等级48级或48级以上\
　　2、40元宝即可提升境界\\
　　<满足条件提升元神境界/@提升境界5>　<离开>

[@提升境界5]
#if
LARGE D0 48
CHECKGAMEGOLD > 39
#ACT
GAMEGOLD - 40
YSFENGHAO 5
CALCVAR HUMAN YSJ = 明心中期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
HCALL $YSNAME @元神境界5
SENDMSG 7 恭喜你元神的境界获得提升至　[明心中期]
SENDMSG 11 恭喜你元神的境界获得提升　　　　元神生命值上限获得增加　　　　　元神魔法值上限获得增加
break
close
#ELSESAY
你提升元神境界的条件不足\
元神等级48级以上+40元宝\\
<知道了>

[@明心中期]
你元神当前阶段的境界是:<COLOR=GREEN 明心中期>\\
　　下一阶段元神境界是:明心后期\
　　元神<COLOR=GREEN 明心中期>升级到<COLOR=GREEN 明心后期>的条件是:\
　　1、元神的等级50级或50级以上\
　　2、60元宝即可提升境界\\
　　<满足条件提升元神境界/@提升境界6>　<离开>

[@提升境界6]
#if
LARGE D0 50
CHECKGAMEGOLD > 59
#ACT
GAMEGOLD - 60
YSFENGHAO 6
CALCVAR HUMAN YSJ = 明心后期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
HCALL $YSNAME @元神境界6
SENDMSG 7 恭喜你元神的境界获得提升至　[明心后期]
SENDMSG 11 恭喜你元神的境界获得提升　　　　元神生命值上限获得增加　　　　　元神魔法值上限获得增加
break
close
#ELSESAY
你提升元神境界的条件不足\
元神等级50级以上+60元宝\\
<知道了>
[@明心后期]
你元神当前阶段的境界是:<COLOR=GREEN 明心后期>\\
　　下一阶段元神境界是:大悟初期\
　　元神<COLOR=GREEN 明心后期>升级到<COLOR=GREEN 大悟初期>的条件是:\
　　1、元神的等级53级或53级以上\
　　2、80元宝即可提升境界\\
　　<满足条件提升元神境界/@提升境界7>　<离开>
[@提升境界7]
#if
LARGE D0 53
CHECKGAMEGOLD > 79
#ACT
GAMEGOLD - 80
YSFENGHAO 7
CALCVAR HUMAN YSJ = 大悟初期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
HCALL $YSNAME @元神境界7
SENDMSG 7 恭喜你元神的境界获得提升至　[大悟初期]
SENDMSG 11 恭喜你元神的境界获得提升　　　　元神生命值上限获得增加　　　　　元神魔法值上限获得增加
break
close
#ELSESAY
你提升元神境界的条件不足\
元神等级53级以上+80元宝\\
<知道了>
[@大悟初期]
你元神当前阶段的境界是:<COLOR=GREEN 大悟初期>\\
　　下一阶段元神境界是:大悟中期\
　　元神<COLOR=GREEN 大悟初期>升级到<COLOR=GREEN 大悟中期>的条件是:\
　　1、元神的等级55级或55级以上\
　　2、100元宝即可提升境界\\
　　<满足条件提升元神境界/@提升境界8>　<离开>
[@提升境界8]
#if
LARGE D0 55
CHECKGAMEGOLD > 99
#ACT
GAMEGOLD - 100
YSFENGHAO 8
CALCVAR HUMAN YSJ = 大悟中期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
HCALL $YSNAME @元神境界8
SENDMSG 7 恭喜你元神的境界获得提升至　[大悟中期]
SENDMSG 11 恭喜你元神的境界获得提升　　　　元神生命值上限获得增加　　　　　元神魔法值上限获得增加
break
close
#ELSESAY
你提升元神境界的条件不足\
元神等级55级以上+100元宝\\
<知道了>
[@大悟中期]
你元神当前阶段的境界是:<COLOR=GREEN 大悟中期>\\
　　下一阶段元神境界是:大悟后期\
　　元神<COLOR=GREEN 大悟中期>升级到<COLOR=GREEN 大悟后期>的条件是:\
　　1、元神的等级57级或57级以上\
　　2、140元宝即可提升境界\\
　　<满足条件提升元神境界/@提升境界9>　<离开>
[@提升境界9]
#if
LARGE D0 57
CHECKGAMEGOLD > 139
#ACT
GAMEGOLD - 140
YSFENGHAO 9
CALCVAR HUMAN YSJ = 大悟后期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
HCALL $YSNAME @元神境界9
SENDMSG 7 恭喜你元神的境界获得提升至　[大悟后期]
SENDMSG 11 恭喜你元神的境界获得提升　　　　元神生命值上限获得增加　　　　　元神魔法值上限获得增加
break
close
#ELSESAY
你提升元神境界的条件不足\
元神等级57级以上+140元宝\\
<知道了>
[@大悟后期]
你元神当前阶段的境界是:<COLOR=GREEN 大悟后期>\\
　　下一阶段元神境界是:飞升期\
　　元神<COLOR=GREEN 大悟后期>升级到<COLOR=GREEN 飞升期>的条件是:\
　　1、元神的等级60级或60级以上\
　　2、200元宝即可提升境界\\
　　<满足条件提升元神境界/@提升境界10>　<离开>
[@提升境界10]
#if
LARGE D0 60
CHECKGAMEGOLD > 199
#ACT
GAMEGOLD - 200
close
YSFENGHAO 10
CALCVAR HUMAN YSJ = 飞升期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
HCALL $YSNAME @元神境界10
SENDMSG 7 恭喜你元神的境界获得提升至　[飞升期]
SENDMSG 11 恭喜你元神的境界获得提升　　　　元神生命值上限获得增加　　　　　元神魔法值上限获得增加
break
close
#ELSESAY
你提升元神境界的条件不足\
元神等级60级以上+200元宝\\
<知道了>
[@gotomap1]
#if
checkys
#act
CALCVAR HUMAN YSJ = 固本期
SAVEVAR HUMAN YSJ ..\QuestDiary\数据文件\YSJSave.txt
SENDMSG 2 三魂化形得精神、七魄炼体凝肉身，历经磨难，魂魄合一之后，勇士%s修炼元神分身成功，光芒照亮了大陆！
SENDMSG 8 三魂化形得精神、七魄炼体凝肉身，历经磨难，魂魄合一之后，勇士%s修炼元神分身成功，光芒照亮了大陆！
SENDMSG 10 三魂化形得精神、七魄炼体凝肉身，历经磨难，魂魄合一之后，勇士%s修炼元神分身成功，光芒照亮了大陆！
MAPMOVE QUEYSH00 8 19