传奇门派系统入门脚本

[@main]
#if
#act
SENDMSG 4 提升门派地位和与修炼值相关的业务请到我这里来！
#if
#act
#say
\ \
你要去那个门派，<加入门派>请到门派掌门处进行。\
<战神殿/@战神殿>   <兰若宫/@兰若宫>   <古剑阁/@古剑阁>   <仙灵岛/@仙灵岛>   <(苍月国)/SCOLOR=253>   <(凌云国)/SCOLOR=253>\
<(加入门派将随机加入一个国家,不同国家不允许加入同一行会)/SCOLOR=250>\
<拿晶石换取门派修炼值/@晶石>   <查看门派地位与战绩值可提升攻击力关系/@关系>\
<[中品晶石][上品晶石][极品晶石]门派地图小怪爆/SCOLOR=146>\
<用修炼值提升门派称谓/@门派称谓>   <修炼值换取技能/@换技能>    <修炼值换取经验/@换经验>\
<门派修炼值通过做门派任务获得,也可以再门派地图打怪获得晶石换取/SCOLOR=146>\
<师门任务在掌门处领取,每天可做20次,获得经验金钱和修炼值/SCOLOR=146>\
[@门派称谓]
#if
#act
CloseBigDialogBox
#CALL [\\数据处理\师门封号.txt] @师门封号1
[@关系]
\ \
<每10点战绩值可增加1点最大攻击力/SCOLOR=250>\
<可增加的攻击力上限与门派地位高低相关/SCOLOR=154>\
<关系如下:/SCOLOR=253><(地位越高可增加的攻击力上限越高)/SCOLOR=146>\ \
<掌门/@>    <50/SCOLOR=154><点最大攻击力/SCOLOR=250>   <使者/@>    <40/SCOLOR=154><点最大攻击力/SCOLOR=250>\
<护法/@>    <30/SCOLOR=154><点最大攻击力/SCOLOR=250>   <长老/@>    <20/SCOLOR=154><点最大攻击力/SCOLOR=250>\
<香主/@>    <10/SCOLOR=154><点最大攻击力/SCOLOR=250>   <堂主/@>    <5 /SCOLOR=154><点最大攻击力/SCOLOR=250>\
\                                                  <返回[url=]/@main[/url]>
[@晶石]
#if
check [125] 0
check [126] 0
check [127] 0
check [128] 0
#act
messagebox 对不起，你还没有门派！
break
#if
#act
#say
\ \
你可以再各个门派地图打怪，很划算的\
可以打到大量基础装备换取元宝，还有晶石\
晶石是附带产物，可以拿到我这里换取门派修炼值\
修炼值可以换取门派地位，在土城【大师姐】处享受各种待遇\
兑换规则:\
<[中品晶石]/@>= <1点/SCOLOR=146>   <[上品晶石]/SCOLOR=250>= <10点/SCOLOR=146>   <[极品晶石]>= <25点/SCOLOR=146>\ \
<我要兑换/@兑换>         <返回[url=]/@main[/url]>

[@兑换]
\ \
你要兑换那种晶石，我可以帮忙？\ \
<[中品晶石]/@>    <兑换[url=]/@@InPutInteger1>\[/url] \
<[上品晶石]/SCOLOR=250>    <兑换[url=]/@@InPutInteger2[/url]>         <返回[url=]/@main>\[/url] \
<[极品晶石]>    <兑换[url=]/@@InPutInteger3>\[/url]
<提示:极品晶石是特殊合成材料，有些地方可能用的到/SCOLOR=146>\
[@callInPutInteger1]
#IF
EQUAL N1 0
#ACT
SENDMSG 6 请输入有效数字！
break
#IF
CHECKITEM 中品晶石 <$STR(N1)>
#ACT
take 中品晶石 <$STR(N1)>
GAMEDIAMOND + <$STR(N1)>
SENDMSG 6 兑换成功，恭喜您兑换到了：<$STR(N1)>点修炼值！当前修炼值:<$GAMEDIAMOND>点!
#ELSEACT
SENDMSG 6 对不起，您身上没有<$STR(N1)>个中品晶石，操作失败！
[@callInPutInteger2]
#IF
EQUAL N2 0
#ACT
SENDMSG 6 请输入有效数字！
break
#IF
CHECKITEM 上品晶石 <$STR(N2)>
#ACT
take 上品晶石 <$STR(N2)>
MUL N5 <$STR(N2)> 10
GAMEDIAMOND + <$STR(N5)>
SENDMSG 6 兑换成功，恭喜您兑换到了：<$STR(N5)>点修炼值！当前修炼值:<$GAMEDIAMOND>点!
#ELSEACT
SENDMSG 6 对不起，您身上没有<$STR(N2)>个中品晶石，操作失败！
[@callInPutInteger3]
#IF
EQUAL N3 0
#ACT
SENDMSG 6 请输入有效数字！
break
#IF
CHECKITEM 极品晶石 <$STR(N3)>
#ACT
take 极品晶石 <$STR(N3)>
MUL N5 <$STR(N3)> 25
GAMEDIAMOND + <$STR(N5)>
SENDMSG 6 兑换成功，恭喜您兑换到了：<$STR(N5)>点修炼值！当前修炼值:<$GAMEDIAMOND>点!
#ELSEACT
SENDMSG 6 对不起，您身上没有<$STR(N3)>个中品晶石，操作失败！

[@换技能]
#IF
checkjob warrior
#ACT
#say
\ \
你是战士，你可以从下列技能中选择：\
请确定你没有学习过该技能  <你当前的修炼值/SCOLOR=253>：<$GAMEDIAMOND><点/SCOLOR=253>\ \
<金刚伏魔/@金刚伏魔>(地丁)  <600点修炼值/SCOLOR=250>\
<破凡剑诀/@破凡剑诀>(开天)  <1000点修炼值/SCOLOR=250>\
<追云逐日/@追云逐日>(逐日)  <700点修炼值/SCOLOR=250>       <返回[url=]/@main>\[/url]
<狮子吼/@狮子吼>            <200点修炼值/SCOLOR=250>\
#IF
checkjob wizard
#ACT
#say
\ \
你是法师，你可以从下列技能中选择：\
请确定你没有学习过该技能  <你当前的修炼值/SCOLOR=253>：<$GAMEDIAMOND><点/SCOLOR=253>\ \
<极阳雷动/@极阳雷动>(流星火雨)    <900点修炼值/SCOLOR=250>\
<九天御雷式/@九天御雷式>(群体雷电术)  <400点修炼值/SCOLOR=250>\
<十八灭魔手/@十八灭魔手>(灭天火)  <200点修炼值/SCOLOR=250>       <返回[url=]/@main>\[/url]
#IF
checkjob taoist
#ACT
#say
\ \
你是道士，你可以从下列技能中选择：\
请确定你没有学习过该技能  <你当前的修炼值/SCOLOR=253>：<$GAMEDIAMOND><点/SCOLOR=253>\ \
<灭魔心经/@灭魔心经>(无极真气)    <900点修炼值/SCOLOR=250>\
<风卷残云/@风卷残云>(飓风破)  <500点修炼值/SCOLOR=250>\
<神武术/@神武术>(神武术)  <200点修炼值/SCOLOR=250>       <返回[url=]/@main>\[/url]
<群体施毒术/@群体施毒术>(群毒)  <150点修炼值/SCOLOR=250>\

[@灭魔心经]
#if
CHECKGAMEDIAMOND < 900
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 900
ADDSKILL 灭魔心经 1
messagebox 恭喜你学会了[灭魔心经]！
goto @换技能
[@风卷残云]
#if
CHECKGAMEDIAMOND < 500
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 500
ADDSKILL 风卷残云 1
messagebox 恭喜你学会了[风卷残云]！
goto @换技能
[@神武术]
#if
CHECKGAMEDIAMOND < 200
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 200
ADDSKILL 神武术 1
messagebox 恭喜你学会了[神武术]！
goto @换技能
[@群体施毒术]
#if
CHECKGAMEDIAMOND < 150
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 150
ADDSKILL 群体施毒术 1
messagebox 恭喜你学会了[群体施毒术]！
goto @换技能
[@极阳雷动]
#if
CHECKGAMEDIAMOND < 900
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 900
ADDSKILL 极阳雷动 1
messagebox 恭喜你学会了[极阳雷动]！
goto @换技能
[@九天御雷式]
#if
CHECKGAMEDIAMOND < 400
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 400
ADDSKILL 九天御雷式 1
messagebox 恭喜你学会了[九天御雷式]！
goto @换技能
[@十八灭魔手]
#if
CHECKGAMEDIAMOND < 200
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 200
ADDSKILL 十八灭魔手 1
messagebox 恭喜你学会了[十八灭魔手]！
goto @换技能
[@金刚伏魔]
#if
CHECKGAMEDIAMOND < 600
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 600
ADDSKILL 金刚伏魔 1
messagebox 恭喜你学会了[金刚伏魔]！
goto @换技能

[@破凡剑诀]
#if
CHECKGAMEDIAMOND < 1000
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 1000
ADDSKILL 破凡剑诀 1
messagebox 恭喜你学会了[破凡剑诀]！
goto @换技能
[@追云逐日]
#if
CHECKGAMEDIAMOND < 700
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 700
ADDSKILL 追云逐日 1
messagebox 恭喜你学会了[追云逐日]！
goto @换技能

[@狮子吼]
#if
CHECKGAMEDIAMOND < 200
#act
messagebox 你的修炼值不够！
break
#if
#act
GAMEDIAMOND - 200
ADDSKILL 狮子吼 1
messagebox 恭喜你学会了[狮子吼]！
goto @换技能
[@换经验]
\ \
多余的师门修炼值可以拿来兑换成经验\
兑换比例1:90万经验，欲换从速！\
一次性最多只能兑换2000点修炼值<(否则经验丢失概不负责)>\ \
<开始兑换[url=]/@@InPutInteger6[/url]>
[@callInPutInteger6]
#IF
EQUAL N6 0
#ACT
SENDMSG 6 请输入有效数字！
break
#IF
CHECKGAMEDIAMOND > <$STR(N6)>
#ACT
MUL N5 <$STR(N6)> 900000
CHANGEEXP + <$STR(N5)>
GAMEDIAMOND - <$STR(N6)>
SENDMSG 6 兑换成功，恭喜您兑换到了：<$STR(N5)>点经验！剩余：<$GAMEDIAMOND>点修炼值！
#ELSEACT
SENDMSG 6 对不起，您身上没有<$STR(N6)>点修炼值，操作失败！
[@战神殿]
#if
#act
give 回城卷 1
mapmove zsd 137 57
[@兰若宫]
#if
#act
give 回城卷 1
mapmove lrg 69 35
[@仙灵岛]
#if
#act
give 回城卷 1
mapmove xld 38 36
[@古剑阁]
#if
#act
give 回城卷 1
mapmove gjg 35 47