[@main]
#IF
CHECK [056] 1
NOT EQUAL T1 <$USERMACHINEID>
EQUAL T2 <$MACHINEID>
#ACT
messagebox 对不起，授权限制此功能，无法使用此功能！
BREAK
#IF
#ACT
GOTO @排名刷新A
#IF
; 没有进小总统时
EQUAL A490
#ACT
GOTO @单总统捐献数据读取
break
#IF
NOT EQUAL A490
#ACT
GOTO @多总统捐献数据读取
BREAK
; MOV A495 <$STR(S$捐献A_01)>
; MOV A496 <$STR(S$捐献A_02)>
; MOV A497 <$STR(S$捐献A_03)>
; MOV A498 <$STR(S$捐献A_04)>
; MOV A499 <$STR(S$捐献A_05)>
; MOV G495 <$STR(N$捐献B_01)>
; MOV G496 <$STR(N$捐献B_02)>
; MOV G497 <$STR(N$捐献B_03)>
; MOV G498 <$STR(N$捐献B_04)>
; MOV G499 <$STR(N$捐献B_05)>
[@单总统捐献数据读取]
#IF
#ACT
MOV S$捐献A_01 <$STR(A495)>
MOV S$捐献A_02 <$STR(A496)>
MOV S$捐献A_03 <$STR(A497)>
MOV S$捐献A_04 <$STR(A498)>
MOV S$捐献A_05 <$STR(A499)>
MOV S$捐献B_01 <$STR(G495)>
MOV S$捐献B_02 <$STR(G496)>
MOV S$捐献B_03 <$STR(G497)>
MOV S$捐献B_04 <$STR(G498)>
MOV S$捐献B_05 <$STR(G499)>
SetStringBlank S$捐献A_01 20 1
SetStringBlank S$捐献A_02 20 1
SetStringBlank S$捐献A_03 20 1
SetStringBlank S$捐献A_04 20 1
SetStringBlank S$捐献A_05 20 1
SetStringBlank S$捐献B_01 10 1
SetStringBlank S$捐献B_02 10 1
SetStringBlank S$捐献B_03 10 1
SetStringBlank S$捐献B_04 10 1
SetStringBlank S$捐献B_05 10 1
GOTO @总统开始显示
[@多总统捐献数据读取]
#IF
LARGE G1 1
#ACT
MOV S$捐献B_01 2500000
#ELSEACT
MOV S$捐献B_01 500000
#IF
#ACT
MOV S$捐献C_01
MOV S$捐献C_02
MOV S$捐献C_03
MOV S$捐献C_04
MOV S$捐献C_05
MOV S$捐献C_06
MOV S$捐献C_07
MOV S$捐献C_08
MOV S$捐献C_09
MOV S$捐献C_10
MOV S$捐献D_01
MOV N$大总统A0 0
MOV N$大总统A1 1
MOV N$大总统A2 2
MOV N$大总统A3 3
MOV N$大总统A4 4
MOV N$大总统A5 5
MOV N$大总统A6 6
MOV N$大总统A7 7
MOV N$大总统A8 8
MOV N$大总统A9 9
GOTO @开始循环大总统
[@开始循环大总统]
#if
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$STR(N$大总统A0)> S$捐献C_01
GetListString ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$STR(N$大总统A1)> S$捐献C_02
GetListString ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$STR(N$大总统A2)> S$捐献C_03
GetListString ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$STR(N$大总统A3)> S$捐献C_04
GetListString ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$STR(N$大总统A4)> S$捐献C_05
GetListString ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$STR(N$大总统A5)> S$捐献C_06
GetListString ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$STR(N$大总统A6)> S$捐献C_07
GetListString ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$STR(N$大总统A7)> S$捐献C_08
GetListString ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$STR(N$大总统A8)> S$捐献C_09
GetListString ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$STR(N$大总统A9)> S$捐献C_10
#IF
NOT EQUAL S$捐献C_10
#ACT
INC N$大总统A0 10
INC N$大总统A1 10
INC N$大总统A2 10
INC N$大总统A3 10
INC N$大总统A4 10
INC N$大总统A5 10
INC N$大总统A6 10
INC N$大总统A7 10
INC N$大总统A8 10
INC N$大总统A9 10
SetStringBlank S$捐献C_01 18 1
SetStringBlank S$捐献C_02 18 1
SetStringBlank S$捐献C_03 18 1
SetStringBlank S$捐献C_04 18 1
SetStringBlank S$捐献C_05 18 1
SetStringBlank S$捐献C_06 18 1
SetStringBlank S$捐献C_07 18 1
SetStringBlank S$捐献C_08 18 1
SetStringBlank S$捐献C_09 18 1
SetStringBlank S$捐献C_10 18 1
INC S$捐献D_01 243#<$STR(S$捐献C_01)>
INC S$捐献D_01 <$STR(S$捐献C_02)>
INC S$捐献D_01 <$STR(S$捐献C_03)>
INC S$捐献D_01 <$STR(S$捐献C_04)>
INC S$捐献D_01 <$STR(S$捐献C_05)>
INC S$捐献D_01 <$STR(S$捐献C_06)>
INC S$捐献D_01 <$STR(S$捐献C_07)>
INC S$捐献D_01 <$STR(S$捐献C_08)>
INC S$捐献D_01 <$STR(S$捐献C_09)>
INC S$捐献D_01 <$STR(S$捐献C_10)>^
MOV S$捐献第1_A
GOTO @开始循环大总统
#ELSEACT
MOV S$捐献A_01 请在点击此处查看总统|249#☆☆封顶总统☆☆^
SetStringBlank S$捐献C_01 18 1
SetStringBlank S$捐献C_02 18 1
SetStringBlank S$捐献C_03 18 1
SetStringBlank S$捐献C_04 18 1
SetStringBlank S$捐献C_05 18 1
SetStringBlank S$捐献C_06 18 1
SetStringBlank S$捐献C_07 18 1
SetStringBlank S$捐献C_08 18 1
SetStringBlank S$捐献C_09 18 1
SetStringBlank S$捐献C_10 18 1
INC S$捐献D_01 243#<$STR(S$捐献C_01)>
INC S$捐献D_01 <$STR(S$捐献C_02)>
INC S$捐献D_01 <$STR(S$捐献C_03)>
INC S$捐献D_01 <$STR(S$捐献C_04)>
INC S$捐献D_01 <$STR(S$捐献C_05)>
INC S$捐献D_01 <$STR(S$捐献C_06)>
INC S$捐献D_01 <$STR(S$捐献C_07)>
INC S$捐献D_01 <$STR(S$捐献C_08)>
INC S$捐献D_01 <$STR(S$捐献C_09)>
INC S$捐献D_01 <$STR(S$捐献C_10)>^
INC S$捐献A_01 <$STR(S$捐献D_01)>
GOTO @开始循环小总统
[@开始循环小总统]
#IF
#ACT
MOV S$捐献C_01
MOV S$捐献C_02
MOV S$捐献C_03
MOV S$捐献C_04
MOV S$捐献C_05
MOV S$捐献C_06
MOV S$捐献C_07
MOV S$捐献C_08
MOV S$捐献C_09
MOV S$捐献C_10
MOV N$共享第一A0 0
MOV N$共享第一A1 1
MOV N$共享第一A2 2
MOV N$共享第一A3 3
MOV N$共享第一A4 4
MOV N$共享第一A5 5
MOV N$共享第一A6 6
MOV N$共享第一A7 7
MOV N$共享第一A8 8
MOV N$共享第一A9 9
MOV S$捐献D_01
GOTO @开始循环小总统A
[@开始循环小总统A]
#if
#ACT
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(N$共享第一A0)> S$捐献C_01
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(N$共享第一A1)> S$捐献C_02
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(N$共享第一A2)> S$捐献C_03
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(N$共享第一A3)> S$捐献C_04
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(N$共享第一A4)> S$捐献C_05
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(N$共享第一A5)> S$捐献C_06
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(N$共享第一A6)> S$捐献C_07
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(N$共享第一A7)> S$捐献C_08
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(N$共享第一A8)> S$捐献C_09
GetListString ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(N$共享第一A9)> S$捐献C_10
#IF
NOT EQUAL S$捐献C_10
#ACT
INC N$共享第一A0 10
INC N$共享第一A1 10
INC N$共享第一A2 10
INC N$共享第一A3 10
INC N$共享第一A4 10
INC N$共享第一A5 10
INC N$共享第一A6 10
INC N$共享第一A7 10
INC N$共享第一A8 10
INC N$共享第一A9 10
SetStringBlank S$捐献C_01 18 1
SetStringBlank S$捐献C_02 18 1
SetStringBlank S$捐献C_03 18 1
SetStringBlank S$捐献C_04 18 1
SetStringBlank S$捐献C_05 18 1
SetStringBlank S$捐献C_06 18 1
SetStringBlank S$捐献C_07 18 1
SetStringBlank S$捐献C_08 18 1
SetStringBlank S$捐献C_09 18 1
SetStringBlank S$捐献C_10 18 1
INC S$捐献D_01 250#<$STR(S$捐献C_01)>
INC S$捐献D_01 <$STR(S$捐献C_02)>
INC S$捐献D_01 <$STR(S$捐献C_03)>
INC S$捐献D_01 <$STR(S$捐献C_04)>
INC S$捐献D_01 <$STR(S$捐献C_05)>
INC S$捐献D_01 <$STR(S$捐献C_06)>
INC S$捐献D_01 <$STR(S$捐献C_07)>
INC S$捐献D_01 <$STR(S$捐献C_08)>
INC S$捐献D_01 <$STR(S$捐献C_09)>
INC S$捐献D_01 <$STR(S$捐献C_10)>^
GOTO @开始循环小总统A
#ELSEACT
INC S$捐献A_01 254#☆☆普通总统☆☆^
SetStringBlank S$捐献C_01 18 1
SetStringBlank S$捐献C_02 18 1
SetStringBlank S$捐献C_03 18 1
SetStringBlank S$捐献C_04 18 1
SetStringBlank S$捐献C_05 18 1
SetStringBlank S$捐献C_06 18 1
SetStringBlank S$捐献C_07 18 1
SetStringBlank S$捐献C_08 18 1
SetStringBlank S$捐献C_09 18 1
SetStringBlank S$捐献C_10 18 1
INC S$捐献D_01 250#<$STR(S$捐献C_01)>
INC S$捐献D_01 <$STR(S$捐献C_02)>
INC S$捐献D_01 <$STR(S$捐献C_03)>
INC S$捐献D_01 <$STR(S$捐献C_04)>
INC S$捐献D_01 <$STR(S$捐献C_05)>
INC S$捐献D_01 <$STR(S$捐献C_06)>
INC S$捐献D_01 <$STR(S$捐献C_07)>
INC S$捐献D_01 <$STR(S$捐献C_08)>
INC S$捐献D_01 <$STR(S$捐献C_09)>
INC S$捐献D_01 <$STR(S$捐献C_10)>^
INC S$捐献A_01 <$STR(S$捐献D_01)>
MOV S$捐献A_02 <$STR(A496)>
MOV S$捐献A_03 <$STR(A497)>
MOV S$捐献A_04 <$STR(A498)>
MOV S$捐献A_05 <$STR(A499)>
MOV S$捐献B_02 <$STR(G495)>
MOV S$捐献B_02 <$STR(G496)>
MOV S$捐献B_03 <$STR(G497)>
MOV S$捐献B_04 <$STR(G498)>
MOV S$捐献B_05 <$STR(G499)>
SetStringBlank S$捐献A_02 20 1
SetStringBlank S$捐献A_03 20 1
SetStringBlank S$捐献A_04 20 1
SetStringBlank S$捐献A_05 20 1
SetStringBlank S$捐献B_01 10 1
SetStringBlank S$捐献B_02 10 1
SetStringBlank S$捐献B_03 10 1
SetStringBlank S$捐献B_04 10 1
SetStringBlank S$捐献B_05 10 1
GOTO @总统开始显示
BREAK
[@总统开始显示]
#IF
#ACT
MOV N$爵位显示元宝 <$HUMAN(爵位捐献)>
MOV S$捐款显示 <我要捐款/@@InPutInteger99>
;天选之人名单显示处理
#IF
EQUAL A407 1
#ACT
MOV S$天选名单 ☆天选之人名单☆|^<$STR(A420)>
#ELSEACT
MOV S$天选名单 ☆天选之人名单☆|^无
; 一合后,显示的封榜元宝数,决定是否有总统属性
#IF
LARGE G1 1
#ACT
MOV N$封顶显示元宝 2500000
#ELSEACT
MOV N$封顶显示元宝 500000
; 一合后,已经是小总统,显示已捐献的元宝250W
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME>
LARGE G1 1
#ACT
MOV N$爵位显示元宝 2500000
MOV S$捐款显示 <我要捐款/@@InPutInteger99>
; 一合前,已经是小总统,50W,则显示成为大总统
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME>
SMALL G1 2
#ACT
MOV N$爵位显示元宝 500000
MOV S$捐款显示 <捐献大总统/@成为大总统>
; 天选之人领取显示
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\天选之人确认.txt <$USERNAME>
#ACT
MOV S$天选显示 <天选之人领取/@天选之人领取>
#ELSEACT
MOV S$天选显示
#IF
#ACT
OPENMERCHANTBIGDLG 6 1386 1 0 0 0 1
#SAY
<> <≮欢迎您使用俸禄捐献系统≯/AUTOCOLOR=241,238,249,95,70,133,146>\ \ \ \
<> <★总统★/SCOLOR=253> {<$STR(S$捐献A_01)>/SCOLOR=249} {<$STR(S$捐献B_01)>/SCOLOR=253} <40-40攻魔道/SCOLOR=253>\
<> <★公爵★/SCOLOR=249> {<$STR(S$捐献A_02)>/SCOLOR=249} {<$STR(S$捐献B_02)>/SCOLOR=249} <30-30攻魔道/SCOLOR=249>\
<> <★侯爵★/SCOLOR=243> {<$STR(S$捐献A_03)>/SCOLOR=243} {<$STR(S$捐献B_03)>/SCOLOR=243} <20-20攻魔道/SCOLOR=243>\
<> <★伯爵★/SCOLOR=250> {<$STR(S$捐献A_04)>/SCOLOR=250} {<$STR(S$捐献B_04)>/SCOLOR=250} <15-15攻魔道/SCOLOR=250>\
<> <★子爵★/SCOLOR=254> {<$STR(S$捐献A_05)>/SCOLOR=254} {<$STR(S$捐献B_05)>/SCOLOR=254} <10-10攻魔道/SCOLOR=254>\
<> <普通捐献/SCOLOR=242> {第六名及以后捐献/SCOLOR=242} {5000/SCOLOR=242} < 5 - 5攻魔道/SCOLOR=242>\ \
<天选之人:><总统随机获得/SCOLOR=254><"天选之人"/SCOLOR=253><名额,可获得/SCOLOR=254><无双剑甲/SCOLOR=253><随机一件/SCOLOR=254> {<$STR(S$天选名单)>/SCOLOR=253}\
\ <开区2小时后开始触发天选之人活动> <名额根据封榜数量随机产生5-20个/SCOLOR=250>\
<总统介绍:>{捐献达到<$STR(N$封顶显示元宝)>元宝封榜的可获得总统属性加成,总统名额无限制/SCOLOR=242}\ \
<捐献大总统:/SCOLOR=250><封榜后，额外捐献450万元宝，等级达到60级必爆/SCOLOR=254><无双剑甲/SCOLOR=253><随机一件/SCOLOR=254>\
\ <大总统额外获得+3%暴击+3%攻伤+5%体力+5%物理魔法减伤/AUTOCOLOR=241,238,249,95,70,133,146><(可叠加天一减伤)/SCOLOR=251>\
<您当前捐献:/SCOLOR=250>{<$STR(N$爵位显示元宝)>/SCOLOR=116}<个元宝/SCOLOR=250> <$STR(S$天选显示)> <$STR(S$捐款显示)> <关闭/@EXIT>\
[@天选之人领取]
#IF
SMALL G14 7231
#ACT
messagebox 对不起！当前还没有天选之人无法领取
BREAK
#IF
CHECK [491] 1
#ACT
messagebox 对不起！您已经领取了天选之人，请勿重复领取
BREAK
#IF
CHECK [491] 0
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\天选之人确认.txt <$USERNAME>
#ACT
SET [491] 1
SET [492] 1
messagebox 恭喜您领取了天选之人，请前往任意圣龙地图击杀怪物.
BREAK
#ELSEACT
messagebox 对不起！您不是天选之人无法领取奖励
BREAK
[@成为大总统]
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$USERNAME>
#ACT
messagebox 对不起！您已经成为大总统无法捐献
BREAK
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME>
#ACT
messagebox 您是否捐献[4500000]四百五十万元宝，成为大总统 @确认成为大总统 @EXIT
BREAK
[@确认成为大总统]
#IF
CHECKGAMEGOLD < 4500000
#ACT
messagebox 对不起!您的元宝不足，无法成为大总统
BREAK
#IF
CHECKGAMEGOLD > 4499999
#ACT
GAMEGOLD - 4500000
SET [493] 1
DelTextList ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME>
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$USERNAME>
CONFERTITLE 大总统
messagebox 恭喜您成为大总统，等级达到60级可额外获得无双剑甲一个
GOTO @MAIN
BREAK
[@InPutInteger99]
#IF
EQUAL N99
#ACT
messagebox 请输入捐款金额!
GOTO @main
BREAK
#OR
CheckContainsText <$STR(N99)> @
CheckContainsText <$STR(N99)> $
#ACT
MESSAGEBOX 对不起！请不要使用特殊字符@，$
BREAK
#IF
SMALL N99 5000
#ACT
messagebox 您的捐款金额小于5000元宝!
GOTO @main
BREAK
; 一合后,250W,才能成为总统
#IF
LARGE G1 1
#ACT
GOTO @合区总统捐献处理
BREAK
; 一合前的大总统
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\大总统.txt <$USERNAME>
#ACT
messagebox 对不起！您已经成为大总统无法捐献
GOTO @main
BREAK
; 一合前,50W,就能成为总统
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME>
#ACT
messagebox 你已经捐款50万元宝封顶不能捐献了!
GOTO @main
BREAK
#IF
#ACT
MOV N$总量控制 500000
DEC N$总量控制 <$HUMAN(爵位捐献)>
#IF
small N$总量控制 <$STR(N99)>
#ACT
messagebox 您的捐献已经超过封顶，是否直接捐献到总统，扣除“<$STR(N$总量控制)>元宝”\其余元宝自动回到背包 @确认捐献a @取消
BREAK
#IF
#ACT
messagebox 您是否确定您要捐献<$STR(N99)>个元宝，一经确认无法退回 @确认捐献 @取消
BREAK
[@确认捐献]
#IF
LARGE N99 4999
CHECKGAMEGOLD > <$STR(N99)>
#ACT
GAMEGOLD - <$STR(N99)>
INC G324 <$STR(N99)>
INC U1 <$STR(N99)>
CALCVAR HUMAN 爵位捐献 + <$STR(N99)>
SAVEVAR HUMAN 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt
goto @爵位检测
#ELSEACT
messagebox 您没有足够的元宝！
BREAK
[@确认捐献a]
#IF
LARGE N99 4999
CHECKGAMEGOLD > <$STR(N$总量控制)>
#ACT
GAMEGOLD - <$STR(N$总量控制)>
INC G324 <$STR(N$总量控制)>
INC U1 <$STR(N$总量控制)>
CALCVAR HUMAN 爵位捐献 + <$STR(N$总量控制)>
SAVEVAR HUMAN 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt
goto @爵位检测
#ELSEACT
messagebox 您没有足够的元宝！
BREAK
[@合区总统捐献处理]
#IF
LARGE <$HUMAN(爵位捐献)> 2499999
#ACT
messagebox 对不起！您已经成为总统无法继续捐献
BREAK
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME>
#ACT
messagebox 你已经捐款250万封顶不能捐献了!
BREAK
#IF
#ACT
MOV N$总量控制 2500000
DEC N$总量控制 <$HUMAN(爵位捐献)>
#IF
small N$总量控制 <$STR(N99)>
#ACT
messagebox 您的捐献已经超过封顶，是否直接捐献到总统，扣除“<$STR(N$总量控制)>元宝”\其余元宝自动回到背包 @确认捐献C @取消
BREAK
#IF
#ACT
messagebox 您是否确定您要捐献<$STR(N99)>个元宝，一经确认无法退回 @确认捐献CC @取消
BREAK
[@确认捐献C]
#IF
LARGE N99 4999
CHECKGAMEGOLD > <$STR(N$总量控制)>
#ACT
GAMEGOLD - <$STR(N$总量控制)>
INC G324 <$STR(N$总量控制)>
INC U1 <$STR(N$总量控制)>
CALCVAR HUMAN 爵位捐献 + <$STR(N$总量控制)>
SAVEVAR HUMAN 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt
goto @爵位检测
#ELSEACT
messagebox 您没有足够的元宝！
BREAK
[@确认捐献CC]
#IF
LARGE N99 4999
CHECKGAMEGOLD > <$STR(N99)>
#ACT
GAMEGOLD - <$STR(N99)>
INC G324 <$STR(N99)>
INC U1 <$STR(N99)>
CALCVAR HUMAN 爵位捐献 + <$STR(N99)>
SAVEVAR HUMAN 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt
goto @爵位检测
#ELSEACT
messagebox 您没有足够的元宝！
BREAK
[@爵位检测]
; 初始捐献属性给予
#IF
CHECKTITLE 捐献属性6
#ACT
#ELSEACT
CONFERTITLE 捐献属性6
; 第一次,单总统处理, 捐献达到小总统的元宝数,则把加入小总统共享第一的名单
#IF
NOT CHECKVAR HUMAN 爵位捐献 < <$STR(N$封顶显示元宝)>
EQUAL A490
not CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME>
#ACT
; 方便显示总统
MOV A490 多
; 总统名额加1
INC G488 1
; 天选之人使用的总统个数,计算名额使用
INC G90 1
; 总统天字抽取使用标志位
SET [490] 1
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME> 0
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\天选之人.txt <$USERNAME>
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款达『<$STR(N$封顶显示元宝)>万元宝』获得总统称号，上线攻魔道+40.
CALCVAR HUMAN 爵位捐献 = 0
SAVEVAR HUMAN 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt
DelTextList ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt [<$USERNAME>]
DelTextList ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt 爵位捐献=0
GOTO @排名刷新
BREAK
; 多总统处理
#IF
NOT CHECKVAR HUMAN 爵位捐献 < <$STR(N$封顶显示元宝)>
NOT EQUAL A490
NOT CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME>
#ACT
INC G488 1
INC G90 1
SET [490] 1
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME> 0
AddTextListEx ..\QuestDiary\数据文件\爵位捐献\天选之人.txt <$USERNAME>
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款达『<$STR(N$封顶显示元宝)>万元宝』获得总统称号，上线攻魔道+40.
CALCVAR HUMAN 爵位捐献 = 0
SAVEVAR HUMAN 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt
DelTextList ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt [<$USERNAME>]
DelTextList ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt 爵位捐献=0
GOTO @排名刷新
BREAK
; 非总统的排名刷新
#IF
EQUAL A490
#ACT
; 单总统的排名提示
GOTO @排名提示A
#ELSEACT
; 多总统的排名提示,不显示抢总统的广播
GOTO @排名提示B
[@排名提示A]
#IF
CHECKVAR HUMAN 爵位捐献 > <$STR(G495)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N99)>』元宝抢走了玩家『<$STR(A495)>』总统称号，上线攻魔道+40.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN 爵位捐献 > <$STR(G496)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N99)>』元宝抢走了玩家『<$STR(A496)>』公爵称号，上线攻魔道+30.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN 爵位捐献 > <$STR(G497)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N99)>』元宝抢走了玩家『<$STR(A497)>』侯爵称号，上线攻魔道+20.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN 爵位捐献 > <$STR(G498)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N99)>』元宝抢走了玩家『<$STR(A498)>』伯爵称号，上线攻魔道+15.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN 爵位捐献 > <$STR(G499)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N99)>』元宝抢走了玩家『<$STR(A499)>』子爵称号，上线攻魔道+10.
GOTO @排名刷新
BREAK
[@排名提示B]
#IF
CHECKVAR HUMAN 爵位捐献 > <$STR(G496)>
not CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$STR(S$捐献A_01)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N99)>』元宝抢走了玩家『<$STR(A496)>』公爵称号，上线攻魔道+30.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN 爵位捐献 > <$STR(G497)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N99)>』元宝抢走了玩家『<$STR(A497)>』侯爵称号，上线攻魔道+20.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN 爵位捐献 > <$STR(G498)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N99)>』元宝抢走了玩家『<$STR(A498)>』伯爵称号，上线攻魔道+15.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN 爵位捐献 > <$STR(G499)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N99)>』元宝抢走了玩家『<$STR(A499)>』子爵称号，上线攻魔道+10.
GOTO @排名刷新
BREAK
; NPC上的显示刷新
[@排名刷新]
#IF
EQUAL A490
#ACT
; 单总统的排名刷新
SortHumVarToListEx 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt 1 ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 1
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 0 S$捐献A_01 N$捐献B_01
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 1 S$捐献A_02 N$捐献B_02
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 2 S$捐献A_03 N$捐献B_03
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 3 S$捐献A_04 N$捐献B_04
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 4 S$捐献A_05 N$捐献B_05
MOV A495 <$STR(S$捐献A_01)>
MOV A496 <$STR(S$捐献A_02)>
MOV A497 <$STR(S$捐献A_03)>
MOV A498 <$STR(S$捐献A_04)>
MOV A499 <$STR(S$捐献A_05)>
MOV G495 <$STR(N$捐献B_01)>
MOV G496 <$STR(N$捐献B_02)>
MOV G497 <$STR(N$捐献B_03)>
MOV G498 <$STR(N$捐献B_04)>
MOV G499 <$STR(N$捐献B_05)>
GOTO @MAIN
#ELSEACT
; 多总统只从公爵开始刷新
SortHumVarToListEx 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt 1 ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 1
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 0 S$捐献A_02 N$捐献B_02
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 1 S$捐献A_03 N$捐献B_03
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 2 S$捐献A_04 N$捐献B_04
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 3 S$捐献A_05 N$捐献B_05
MOV A496 <$STR(S$捐献A_02)>
MOV A497 <$STR(S$捐献A_03)>
MOV A498 <$STR(S$捐献A_04)>
MOV A499 <$STR(S$捐献A_05)>
MOV G496 <$STR(N$捐献B_02)>
MOV G497 <$STR(N$捐献B_03)>
MOV G498 <$STR(N$捐献B_04)>
MOV G499 <$STR(N$捐献B_05)>
GOTO @MAIN
; 已经是小总统的情况下,给属性
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME>
#ACT
#CALL [\系统功能\称号文件\普通称号读取.txt] @普通称号读取
BREAK
#OR
EQUAL A495 <$USERNAME>
EQUAL A496 <$USERNAME>
EQUAL A497 <$USERNAME>
EQUAL A498 <$USERNAME>
EQUAL A499 <$USERNAME>
#ACT
Gmexecute 开始提问 @捐献属性更新
BREAK
; 点NPC时使用的
[@排名刷新A]
#IF
EQUAL A490
#ACT
SortHumVarToListEx 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt 1 ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 1
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 0 S$捐献A_01 N$捐献B_01
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 1 S$捐献A_02 N$捐献B_02
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 2 S$捐献A_03 N$捐献B_03
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 3 S$捐献A_04 N$捐献B_04
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 4 S$捐献A_05 N$捐献B_05
MOV A495 <$STR(S$捐献A_01)>
MOV A496 <$STR(S$捐献A_02)>
MOV A497 <$STR(S$捐献A_03)>
MOV A498 <$STR(S$捐献A_04)>
MOV A499 <$STR(S$捐献A_05)>
MOV G495 <$STR(N$捐献B_01)>
MOV G496 <$STR(N$捐献B_02)>
MOV G497 <$STR(N$捐献B_03)>
MOV G498 <$STR(N$捐献B_04)>
MOV G499 <$STR(N$捐献B_05)>
#ELSEACT
SortHumVarToListEx 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt 1 ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 1
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 0 S$捐献A_02 N$捐献B_02
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 1 S$捐献A_03 N$捐献B_03
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 2 S$捐献A_04 N$捐献B_04
GetListString ..\QuestDiary\数据文件\爵位捐献\爵位排行.txt 3 S$捐献A_05 N$捐献B_05
MOV A496 <$STR(S$捐献A_02)>
MOV A497 <$STR(S$捐献A_03)>
MOV A498 <$STR(S$捐献A_04)>
MOV A499 <$STR(S$捐献A_05)>
MOV G496 <$STR(N$捐献B_02)>
MOV G497 <$STR(N$捐献B_03)>
MOV G498 <$STR(N$捐献B_04)>
MOV G499 <$STR(N$捐献B_05)>
