 | 官位捐献脚本 |
(@buy @sell @upgradenow @getbackupgnow @repair @s_repair @@InPutString @@InPutInteger @ReclaimItem )
%100
+10
+11
+15
[@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
MOV A201
MOV A202
MOV A203
MOV A204
MOV G200
MOV G201
MOV G202
MOV G203
MOV G204
GOTO @main1
BREAK
[@main1]
\
<【 scolor="242">
[@必读]
\ \
合区后因2个区同时存在排行,所以排行显示是主区排行 \
但是您原来的区的捐赠数量不会减少,只要你重新捐赠一次 \
系统将自动检测您的再合并后游戏中的排行,并进行调整 \
假如不捐赠您的排行默认为第六名！ \
合区后假如您的名字后面加a,b,c,d后就无任何排名！ \
所以建议大家在不同区建立不同人物防止重复,谢谢支持\
[@JKPM]
只公布排行前五名捐献名单、玩家可以查看详情介绍捐款奖励及捐款说明\ \
[@查看]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#SAY
╔═══════════════════════════╗\
║ ║\
║ 感谢您对本服的支持 ║\
║
║ ║\
║
╚═══════════════════════════╝\
#ELSEACT
messagebox 对不起，捐献排行里没有您的名单!
GOTO @WYJK
BREAK
[@SHUOM]
\
[@WYJK]
\
<每次捐款最少为 scolor="250">
[@InPutInteger15]
#IF
EQUAL N15
#ACT
messagebox 请输入捐款金额!
GOTO @WYJK
BREAK
#IF
SMALL N15 50
#ACT
messagebox 对不起您没有足够的元宝!
GOTO @WYJK
BREAK
#IF
CHECKGAMEGOLD >
#ACT
GOTO @JKKS
BREAK
#IF
CHECKGAMEGOLD =
#ACT
GOTO @JKKS
BREAK
#ELSEACT
messagebox 您没有那么多的元宝!
BREAK
[@JKKS]
#IF
#ACT
GAMEGOLD -
CALCVAR HUMAN JK +
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
GOTO @开始封号
MESSAGEBOX 感谢您对本服大力支持，您现在可以享受俸禄待遇了!
BREAK
close
#ELSEACT
MESSAGEBOX 感谢您对本服大力支持，您现在可以享受俸禄待遇了!
BREAK
close
[@JKPAIM]
#IF
CHECKVAR HUMAN JK >
#ACT
GOTO @BAOCUN
MESSAGEBOX 感谢您对本服大力支持，您现在可以享受俸禄待遇了!
GOTO @开始封号
BREAK
close
#ELSEACT
GOTO @JKPAIM1
BREAK
[@JKPAIM1]
#IF
CHECKVAR HUMAN JK >
#ACT
GOTO @BAOCUN1
GOTO @开始封号
MESSAGEBOX 感谢您对本服大力支持，您现在可以享受俸禄待遇了!
BREAK
close
#ELSEACT
GOTO @JKPAIM2
BREAK
[@JKPAIM2]
#IF
CHECKVAR HUMAN JK >
#ACT
GOTO @BAOCUN2
GOTO @开始封号
MESSAGEBOX 感谢您对本服大力支持，您现在可以享受俸禄待遇了!
BREAK
close
#ELSEACT
GOTO @JKPAIM3
BREAK
[@JKPAIM3]
#IF
CHECKVAR HUMAN JK >
#ACT
GOTO @BAOCUN3
GOTO @开始封号
MESSAGEBOX 感谢您对本服大力支持，您现在可以享受俸禄待遇了!
BREAK
close
#ELSEACT
GOTO @JKPAIM4
BREAK
[@JKPAIM4]
#IF
CHECKVAR HUMAN JK >
#ACT
GOTO @BAOCUN4
GOTO @开始封号
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
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第二排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第一排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第一排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第一排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名.txt
AddTextList .\QuestDiary\元宝捐款\第一排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt
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
AddTextList .\QuestDiary\元宝捐款\第一排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt
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
AddTextList .\QuestDiary\元宝捐款\第一排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
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
AddTextList .\QuestDiary\元宝捐款\第二排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt
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
AddTextList .\QuestDiary\元宝捐款\第二排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第六排名.txt
BREAK
[@BAOCUN1]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第二排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第二排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第三排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第二排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第二排名.txt
AddTextList .\QuestDiary\元宝捐款\第二排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt
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
AddTextList .\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
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
AddTextList .\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt
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
AddTextList .\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第六排名.txt
BREAK
[@BAOCUN2]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第三排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第四排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第三排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第三排名.txt
AddTextList .\QuestDiary\元宝捐款\第三排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
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
AddTextList .\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt
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
AddTextList .\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第六排名.txt
BREAK
[@BAOCUN3]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第四排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第五排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第四排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第四排名.txt
AddTextList .\QuestDiary\元宝捐款\第四排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第六排名.txt
BREAK
[@BAOCUN4]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第五排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
ClearNameList ..\QuestDiary\元宝捐款\第五排名元宝数.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
Addnamelist ..\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第五排名元宝数.txt
AddTextList .\QuestDiary\元宝捐款\第六排名.txt
BREAK
[@开始封号]
#IF
#ACT
#CALL [\元宝捐款\爵位封号.txt] @爵位封号
