爵位捐赠,元宝捐献脚本
发布时间:2017-3-6 22:18:20 作者：www.fsdcq.com 浏览次数：1189
这几天经常有朋友问起这个100%仿盛大传奇爵位捐赠脚本，所以现在就把这个爵位捐赠脚本分享给大家，具体是用元宝还是用金币大家改下脚本就可以了，非常简单。
首先添加脚本NPC 爵位排行-3.txt 下面的脚本的具体内容：
(@buy @sell @upgradenow @getbackupgnow @repair @s_repair @@InPutString @@InPutInteger @ReclaimItem )
%100
+10
+11
+15
[@main]
<$USERNAME><你好,欢迎来到/SCOLOR=243><$SERVERNAME>. \
<捐赠元宝最底数额/SCOLOR=253><50>,<请携带好后点击捐款/SCOLOR=253> \
<获得爵位,会给相应的隐藏属性,还有绚丽的称谓/SCOLOR=253> \ \
<New./SCOLOR=250><爵位捐献/@捐款用> <合区后无排名初始捐50小退即可/SCOLOR=241>\
<New.><玩家必读/@必读> <清理前排行榜第1-5名获得> \
<⒈司令/SCOLOR=250><+8> <⒉军长/SCOLOR=250><+6> <⒊师长/SCOLOR=250><+5> <⒋旅长/SCOLOR=250><+4> <⒌团长/SCOLOR=250><+3> <⒍营长/SCOLOR=250><+2> \
<注意;初始捐赠不要高于50以上，以防被系统默认为50/SCOLOR=254>\
<再次捐献最高100w元宝/SCOLOR=254> \
[@必读]
\
合区后因2个区同时存在排行,所以排行显示是主区排行 \
但是您原来的区的捐赠数量不会减少,只要你重新捐赠一次 \
系统将自动检测您的再合并后游戏中的排行,并进行调整,加入不捐赠 \
您的排行默认为第六名,合区后假如您的名字后面加a,b,c,d了后请联系 \
管理员，人员调整您的捐赠数额.建议大家在不同区建立不同人物防止重 \
复,谢谢玩家对本服的支持 \ \
<返回/@main>
[@捐款用]
#IF
#ACT
GetRandomText .\QuestDiary\元宝捐款\第一排名.txt S21
GetRandomText .\QuestDiary\元宝捐款\第二排名.txt S22
GetRandomText .\QuestDiary\元宝捐款\第三排名.txt S23
GetRandomText .\QuestDiary\元宝捐款\第四排名.txt S24
GetRandomText .\QuestDiary\元宝捐款\第五排名.txt S25
GetRandomText .\QuestDiary\元宝捐款\第一排名元宝数.txt S31
GetRandomText .\QuestDiary\元宝捐款\第二排名元宝数.txt S32
GetRandomText .\QuestDiary\元宝捐款\第三排名元宝数.txt S33
GetRandomText .\QuestDiary\元宝捐款\第四排名元宝数.txt S34
GetRandomText .\QuestDiary\元宝捐款\第五排名元宝数.txt S35
MOV A200 <$STR(S21)>
MOV A201 <$STR(S22)>
MOV A202 <$STR(S23)>
MOV A203 <$STR(S24)>
MOV A204 <$STR(S25)>
MOV G200 <$STR(S31)>
MOV G201 <$STR(S32)>
MOV G202 <$STR(S33)>
MOV G203 <$STR(S34)>
MOV G204 <$STR(S35)>
GOTO @捐款用1
BREAK
[@捐款用1]
\
<欢迎您使用爵位捐献系统!/SCOLOR=253>\
\
<我要捐款/@WYJK> <捐款排名/@JKPM>\
\
<捐款奖励及捐款说明/@SHUOM>\
[@JKPM]
\
<第一名/SCOLOR=253>:<司令>:<$STR(A200)> <所捐金额/SCOLOR=146>:<$STR(G200)>\
<第二名/SCOLOR=253>:<军长>:<$STR(A201)> <所捐金额/SCOLOR=146>:<$STR(G201)>\
<第三名/SCOLOR=253>:<师长>:<$STR(A202)> <所捐金额/SCOLOR=146>:<$STR(G202)>\
<第四名/SCOLOR=253>:<旅长>:<$STR(A203)> <所捐金额/SCOLOR=146>:<$STR(G203)>\
<第五名/SCOLOR=253>:<团长>:<$STR(A204)> <所捐金额/SCOLOR=146>:<$STR(G204)>\
<第六名/SCOLOR=253>:<营长>:<查看是否在排名内/@查看>\
\
<返回/@捐款用>\
[@查看]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#SAY
╔═══════════════════════════╗\
║ ║\
║ 感谢您对本服的支持 ║\
║ 您上线时攻魔道同时增加1点 ║\
║ ║\
║ ║\
╚═══════════════════════════╝\
#ELSEACT
messagebox 您不在第六排名里!
GOTO @WYJK
BREAK
[@SHUOM]
每次捐款不得少于50元宝!\
第一名:上线攻魔道+8\
第二名:上线攻魔道+6\
第三名:上线攻魔道+5\
第四名:上线攻魔道+4\
第五名:上线攻魔道+3\
第六名:上线攻魔道+2\
第六名无限名额.只要超50元宝的都可以排到第6名！！\
\
<返回/@捐款用>
[@WYJK]
使用说明:在输入框内输入<捐款金额>\
每次捐款最少为<50元宝>!最大<100W元宝>\
第一次捐款最多为<50元宝>否则不列入排名\
<输入要捐款金额/@@InPutInteger15>\
[@CallInPutInteger15]
#IF
EQUAL N15
#ACT
messagebox 请输入捐款金额!
GOTO @WYJK
BREAK
#IF
SMALL N15 50
#ACT
messagebox 您所要的捐款的金额小于50元宝!
GOTO @WYJK
BREAK
#IF
large N15 1000000
#ACT
messagebox 每次捐款金额不能大于100w元宝!
GOTO @WYJK
BREAK
#IF
CHECKGAMEGOLD > <$STR(N15)>
#ACT
GOTO @JKKS
BREAK
#IF
CHECKGAMEGOLD = <$STR(N15)>
#ACT
GOTO @JKKS
BREAK
#ELSEACT
messagebox 您没有那么多的元宝!
BREAK
[@JKKS]
#IF
#ACT
GAMEGOLD - <$STR(N15)>
CALCVAR HUMAN JK + <$STR(N15)>
SAVEVAR HUMAN JK ..\QuestDiary\数据文件\元宝捐款.txt
GOTO @JKJC
BREAK
[@JKJC]
#IF
CHECKVAR HUMAN JK > 49
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
GOTO @JKPAIM
BREAK
#IF
CHECKVAR HUMAN JK > 49
#ACT
Addnamelist ..\QuestDiary\元宝捐款\第六排名.txt
messagebox 感谢您对本服的支持!
BREAK
close
#ELSEACT
MESSAGEBOX 感谢您对本服的支持!
BREAK
close
[@JKPAIM]
#IF
CHECKVAR HUMAN JK > <$STR(G200)>
#ACT
GOTO @BAOCUN
MESSAGEBOX 感谢您对本服的支持!
BREAK
close
#ELSEACT
GOTO @JKPAIM1
BREAK
[@JKPAIM1]
#IF
CHECKVAR HUMAN JK > <$STR(G201)>
#ACT
GOTO @BAOCUN1
MESSAGEBOX 感谢您对本服的支持!
BREAK
close
#ELSEACT
GOTO @JKPAIM2
BREAK
[@JKPAIM2]
#IF
CHECKVAR HUMAN JK > <$STR(G202)>
#ACT
GOTO @BAOCUN2
MESSAGEBOX 感谢您对本服的支持!
BREAK
close
#ELSEACT
GOTO @JKPAIM3
BREAK
[@JKPAIM3]
#IF
CHECKVAR HUMAN JK > <$STR(G203)>
#ACT
GOTO @BAOCUN3
MESSAGEBOX 感谢您对本服的支持!
BREAK
close
#ELSEACT
GOTO @JKPAIM4
BREAK
[@JKPAIM4]
#IF
CHECKVAR HUMAN JK > <$STR(G204)>
#ACT
GOTO @BAOCUN4
MESSAGEBOX 感谢您对本服的支持!
BREAK
close
#ELSEACT
MESSAGEBOX 感谢您对本服的支持!
BREAK
close
[@BAOCUN]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第一排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第一排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第一排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第一排名.txt
AddTextList .\QuestDiary\元宝捐款\第一排名元宝数.txt <$HUMAN(JK)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第二排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第一排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第一排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第一排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名.txt <$STR(A200)>
AddTextList .\QuestDiary\元宝捐款\第一排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt <$STR(G200)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第三排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第一排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第一排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第一排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名.txt <$STR(A200)>
AddTextList .\QuestDiary\元宝捐款\第一排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt <$STR(G200)>
AddTextList .\QuestDiary\元宝捐款\第三排名.txt <$STR(A201)>
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$STR(G201)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第四排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第一排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第一排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第一排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名.txt <$STR(A200)>
AddTextList .\QuestDiary\元宝捐款\第一排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt <$STR(G200)>
AddTextList .\QuestDiary\元宝捐款\第三排名.txt <$STR(A201)>
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$STR(G201)>
AddTextList .\QuestDiary\元宝捐款\第四排名.txt <$STR(A202)>
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$STR(G202)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第五排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第一排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第一排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第一排名.txt
AddTextList .\QuestDiary\元宝捐款\第一排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第二排名.txt <$STR(A200)>
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt <$STR(G200)>
AddTextList .\QuestDiary\元宝捐款\第三排名.txt <$STR(A201)>
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$STR(G201)>
AddTextList .\QuestDiary\元宝捐款\第四排名.txt <$STR(A202)>
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$STR(G202)>
AddTextList .\QuestDiary\元宝捐款\第五排名.txt <$STR(A203)>
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt <$STR(G203)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第一排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第一排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第一排名.txt
AddTextList .\QuestDiary\元宝捐款\第一排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第二排名.txt <$STR(A200)>
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt <$STR(G200)>
AddTextList .\QuestDiary\元宝捐款\第三排名.txt <$STR(A201)>
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$STR(G201)>
AddTextList .\QuestDiary\元宝捐款\第四排名.txt <$STR(A202)>
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$STR(G202)>
AddTextList .\QuestDiary\元宝捐款\第五排名.txt <$STR(A203)>
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt <$STR(G203)>
AddTextList .\QuestDiary\元宝捐款\第六排名.txt <$STR(A204)>
#CALL [\元宝捐款\获得爵位.txt] @爵位封号
#CALL [\数据文件\天下第一\获得爵位加天下第一.txt] @爵位加天下第一
BREAK
[@BAOCUN1]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第二排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第二排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt <$HUMAN(JK)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第三排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第二排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第三排名.txt <$STR(A201)>
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$STR(G201)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第四排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第二排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第三排名.txt <$STR(A201)>
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$STR(G201)>
AddTextList .\QuestDiary\元宝捐款\第四排名.txt <$STR(A202)>
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$STR(G202)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第五排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第二排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第三排名.txt <$STR(A201)>
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$STR(G201)>
AddTextList .\QuestDiary\元宝捐款\第四排名.txt <$STR(A202)>
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$STR(G202)>
AddTextList .\QuestDiary\元宝捐款\第五排名.txt <$STR(A203)>
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt <$STR(G203)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第二排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第三排名.txt <$STR(A201)>
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$STR(G201)>
AddTextList .\QuestDiary\元宝捐款\第四排名.txt <$STR(A202)>
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$STR(G202)>
AddTextList .\QuestDiary\元宝捐款\第五排名.txt <$STR(A203)>
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt <$STR(G203)>
AddTextList .\QuestDiary\元宝捐款\第六排名.txt <$STR(A203)>
#CALL [\元宝捐款\获得爵位.txt] @爵位封号
#CALL [\数据文件\天下第一\获得爵位加天下第一.txt] @爵位加天下第一
BREAK
[@BAOCUN2]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第三排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$HUMAN(JK)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第四排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第四排名.txt <$STR(A202)>
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$STR(G202)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第五排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第四排名.txt <$STR(A202)>
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$STR(G202)>
AddTextList .\QuestDiary\元宝捐款\第五排名.txt <$STR(A203)>
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt <$STR(G203)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第四排名.txt <$STR(A202)>
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$STR(G202)>
AddTextList .\QuestDiary\元宝捐款\第五排名.txt <$STR(A203)>
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt <$STR(G203)>
AddTextList .\QuestDiary\元宝捐款\第六排名.txt <$STR(A204)>
#CALL [\元宝捐款\获得爵位.txt] @爵位封号
#CALL [\数据文件\天下第一\获得爵位加天下第一.txt] @爵位加天下第一
BREAK
[@BAOCUN3]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第四排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$HUMAN(JK)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第五排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第五排名.txt <$STR(A203)>
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt <$STR(G203)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第六排名.txt <$STR(A204)>
#CALL [\元宝捐款\获得爵位.txt] @爵位封号
#CALL [\数据文件\天下第一\获得爵位加天下第一.txt] @爵位加天下第一
BREAK
[@BAOCUN4]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第五排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt <$HUMAN(JK)>
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt <$HUMAN(JK)>
AddTextList .\QuestDiary\元宝捐款\第六排名.txt <$STR(A204)>
#CALL [\元宝捐款\获得爵位.txt] @爵位封号
#CALL [\数据文件\天下第一\获得爵位加天下第一.txt] @爵位加天下第一
BREAK
在QManage.txt登录脚本内添加以下登录触发内容。
#CALL [\元宝捐款\元宝捐款数据.txt] @刷新
#CALL [\元宝捐款\元宝捐款奖励.txt] @奖励
#CALL [\游戏登陆\检测IP.txt] @检测检测
#CALL [\游戏登陆\登陆脚本.txt] @登陆设置
#CALL [\元宝捐款\爵位封号.txt] @爵位封号
QuestDiary\元宝捐款\元宝捐款奖励.txt内添加以下内容
[@奖励]
{
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第一排名.txt
#ACT
ChangeHumAbility 6 + 8
ChangeHumAbility 8 + 8
ChangeHumAbility 10 + 8
SENDMSG 5 您是元宝捐款第一名,奖励攻魔道上限+8
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第二排名.txt
#ACT
ChangeHumAbility 6 + 6
ChangeHumAbility 8 + 6
ChangeHumAbility 10 + 6
SENDMSG 5 您是元宝捐款第二名,奖励攻魔道上限+6
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第三排名.txt
#ACT
ChangeHumAbility 6 + 5
ChangeHumAbility 8 + 5
ChangeHumAbility 10 + 5
SENDMSG 5 您是元宝捐款第三名,奖励攻魔道上限+5
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第四排名.txt
#ACT
ChangeHumAbility 6 + 4
ChangeHumAbility 8 + 4
ChangeHumAbility 10 + 4
SENDMSG 5 您是元宝捐款第四名,奖励攻魔道上限+4
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第五排名.txt
#ACT
ChangeHumAbility 6 + 3
ChangeHumAbility 8 + 3
ChangeHumAbility 10 + 3
SENDMSG 5 您是元宝捐款第五名,奖励攻魔道上限+3
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
ChangeHumAbility 6 + 2
ChangeHumAbility 8 + 2
ChangeHumAbility 10 + 2
SENDMSG 5 您是元宝捐款第六名,奖励攻魔道上限+2
BREAK
#ELSEACT
BREAK
}
\元宝捐款\元宝捐款数据.txt内添加以下内容。
[@刷新]
{
#IF
#ACT
GetRandomText .\QuestDiary\元宝捐款\第一排名.txt S21
GetRandomText .\QuestDiary\元宝捐款\第二排名.txt S22
GetRandomText .\QuestDiary\元宝捐款\第三排名.txt S80
GetRandomText .\QuestDiary\元宝捐款\第四排名.txt S24
GetRandomText .\QuestDiary\元宝捐款\第五排名.txt S25
GetRandomText .\QuestDiary\元宝捐款\第一排名元宝数.txt S31
GetRandomText .\QuestDiary\元宝捐款\第二排名元宝数.txt S32
GetRandomText .\QuestDiary\元宝捐款\第三排名元宝数.txt S33
GetRandomText .\QuestDiary\元宝捐款\第四排名元宝数.txt S34
GetRandomText .\QuestDiary\元宝捐款\第五排名元宝数.txt S35
MOV A200 <$STR(S21)>
MOV A201 <$STR(S22)>
MOV A202 <$STR(S80)>
MOV A203 <$STR(S24)>
MOV A204 <$STR(S25)>
MOV G200 <$STR(S31)>
MOV G201 <$STR(S32)>
MOV G202 <$STR(S33)>
MOV G203 <$STR(S34)>
MOV G204 <$STR(S35)>
BREAK
}
这样一个完整的元宝捐献脚本就添加完成了，具体奖励的属性大家也可以修改。
- 仿盛大传奇里战士单挑恶魔祭坛攻略 03-07
- 高手解析：灵兽玩法全攻略 11-20
- AutocomfigURL_AutocomfigURL劫持解决方 06-30
- 符文强化碎片攻略和获取方法 01-07
- 独家：传奇网站被劫持解决方法 07-02
- 传奇私服勋章消失的原因和解决方法 05-11
- 仿盛大五元之力属性解析 05-07
- 免费分享：仿盛大一键钢纹脚本 05-06
- 传奇私服自动攻沙，自动功城脚本 05-05
- 玩仿盛大传奇能赚钱吗？ 01-09
