您所在的位置:首页 > 脚本技术 > 正文

爵位捐赠,元宝捐献脚本

作者:仿盛大游戏网 来源:www.210pk.com 发布日期:2017-03-06 17:56 浏览次数:
这几天经常有朋友问起这个新开传奇私服爵位捐赠脚本,所以现在就把这个爵位捐赠脚本分享给大家,具体是用元宝还是用金币大家改下脚本就可以了,非常简单。
 
首先添加脚本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
 
}
 
这样一个完整的元宝捐献脚本就添加完成了,具体奖励的属性大家也可以修改。
找传奇游戏,就上210pk!
推荐游戏
传奇激情押镖完整活动脚本
夏日万人签到活动脚本分享
热门攻略

Copyright © 2018-2019 www.210pk.com All rights reserved

210PK传奇新服网涵盖了各种热门又好玩的仿盛大传奇游戏,是玩家首选的新开传奇网站!