全服捐献元宝统计并公告脚本对于这个脚本我就一一介绍了.

[@开始捐献排名]
{
#IF
CHECKVAR HUMAN 捐献元宝 > 19999
#ELSEACT
BREAK
#IF
CHECKVAR HUMAN 捐献元宝 < <$GLOBAL(捐献第六名个数)>
#ACT
BREAK
#IF
CheckVar GLOBAL 捐献第一名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第一名个数 = <$HUMAN(捐献元宝)>
BREAK
#IF
CHECKVAR HUMAN 捐献元宝 > <$GLOBAL(捐献第一名个数)>
#ACT
MOV S0 <$GLOBAL(捐献第一名名字)>
CALCVAR GLOBAL 捐献第六名名字 = <$GLOBAL(捐献第五名名字)>
CALCVAR GLOBAL 捐献第六名个数 = <$GLOBAL(捐献第五名个数)>
CALCVAR GLOBAL 捐献第五名名字 = <$GLOBAL(捐献第四名名字)>
CALCVAR GLOBAL 捐献第五名个数 = <$GLOBAL(捐献第四名个数)>
CALCVAR GLOBAL 捐献第四名名字 = <$GLOBAL(捐献第三名名字)>
CALCVAR GLOBAL 捐献第四名个数 = <$GLOBAL(捐献第三名个数)>
CALCVAR GLOBAL 捐献第三名名字 = <$GLOBAL(捐献第二名名字)>
CALCVAR GLOBAL 捐献第三名个数 = <$GLOBAL(捐献第二名个数)>
CALCVAR GLOBAL 捐献第二名名字 = <$GLOBAL(捐献第一名名字)>
CALCVAR GLOBAL 捐献第二名个数 = <$GLOBAL(捐献第一名个数)>
CALCVAR GLOBAL 捐献第一名名字 = <$USERNAME>
CALCVAR GLOBAL 捐献第一名个数 = <$HUMAN(捐献元宝)>
SAVEVAR GLOBAL 捐献第一名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第一名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第二名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第二名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第三名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第三名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
GuildNoticeMsg 251 165 玩家<$USERNAME>捐献了<$HUMAN(捐献元宝)>元宝，抢走了[<$STR(S0)>]的爵位《总统》，附加属性攻魔道增加[100-100]！
MOV P0 1
GOTO @抢夺通知
GOTO @修补捐献排名2
break
#IF
CheckVar GLOBAL 捐献第二名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第二名个数 = <$HUMAN(捐献元宝)>
BREAK
#IF
CHECKVAR HUMAN 捐献元宝 > <$GLOBAL(捐献第二名个数)>
#ACT
MOV S0 <$GLOBAL(捐献第二名名字)>
CALCVAR GLOBAL 捐献第六名名字 = <$GLOBAL(捐献第五名名字)>
CALCVAR GLOBAL 捐献第六名个数 = <$GLOBAL(捐献第五名个数)>
CALCVAR GLOBAL 捐献第五名名字 = <$GLOBAL(捐献第四名名字)>
CALCVAR GLOBAL 捐献第五名个数 = <$GLOBAL(捐献第四名个数)>
CALCVAR GLOBAL 捐献第四名名字 = <$GLOBAL(捐献第三名名字)>
CALCVAR GLOBAL 捐献第四名个数 = <$GLOBAL(捐献第三名个数)>
CALCVAR GLOBAL 捐献第三名名字 = <$GLOBAL(捐献第二名名字)>
CALCVAR GLOBAL 捐献第三名个数 = <$GLOBAL(捐献第二名个数)>
CALCVAR GLOBAL 捐献第二名名字 = <$USERNAME>
CALCVAR GLOBAL 捐献第二名个数 = <$HUMAN(捐献元宝)>
SAVEVAR GLOBAL 捐献第二名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第二名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第三名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第三名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
GuildNoticeMsg 251 165 玩家<$USERNAME>捐献了<$HUMAN(捐献元宝)>元宝，抢走了[<$STR(S0)>]的爵位《公爵》，附加属性攻魔道增加[80-80]！
MOV P0 2
GOTO @抢夺通知
GOTO @修补捐献排名3
BREAK
#IF
CheckVar GLOBAL 捐献第三名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第三名个数 = <$HUMAN(捐献元宝)>
BREAK
#IF
CHECKVAR HUMAN 捐献元宝 > <$GLOBAL(捐献第三名个数)>
#ACT
MOV S0 <$GLOBAL(捐献第三名名字)>
CALCVAR GLOBAL 捐献第六名名字 = <$GLOBAL(捐献第五名名字)>
CALCVAR GLOBAL 捐献第六名个数 = <$GLOBAL(捐献第五名个数)>
CALCVAR GLOBAL 捐献第五名名字 = <$GLOBAL(捐献第四名名字)>
CALCVAR GLOBAL 捐献第五名个数 = <$GLOBAL(捐献第四名个数)>
CALCVAR GLOBAL 捐献第四名名字 = <$GLOBAL(捐献第三名名字)>
CALCVAR GLOBAL 捐献第四名个数 = <$GLOBAL(捐献第三名个数)>
CALCVAR GLOBAL 捐献第三名名字 = <$USERNAME>
CALCVAR GLOBAL 捐献第三名个数 = <$HUMAN(捐献元宝)>
SAVEVAR GLOBAL 捐献第三名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第三名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
GuildNoticeMsg 251 165 玩家<$USERNAME>捐献了<$HUMAN(捐献元宝)>元宝，抢走了[<$STR(S0)>]的爵位《侯爵》，附加属性攻魔道增加[60-60]！
MOV P0 3
GOTO @抢夺通知
GOTO @修补捐献排名4
BREAK
#IF
CheckVar GLOBAL 捐献第四名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第四名个数 = <$HUMAN(捐献元宝)>
BREAK
#IF
CHECKVAR HUMAN 捐献元宝 > <$GLOBAL(捐献第四名个数)>
#ACT
MOV S0 <$GLOBAL(捐献第四名名字)>
CALCVAR GLOBAL 捐献第六名名字 = <$GLOBAL(捐献第五名名字)>
CALCVAR GLOBAL 捐献第六名个数 = <$GLOBAL(捐献第五名个数)>
CALCVAR GLOBAL 捐献第五名名字 = <$GLOBAL(捐献第四名名字)>
CALCVAR GLOBAL 捐献第五名个数 = <$GLOBAL(捐献第四名个数)>
CALCVAR GLOBAL 捐献第四名名字 = <$USERNAME>
CALCVAR GLOBAL 捐献第四名个数 = <$HUMAN(捐献元宝)>
SAVEVAR GLOBAL 捐献第四名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
GuildNoticeMsg 251 165 玩家<$USERNAME>捐献了<$HUMAN(捐献元宝)>元宝，抢走了[<$STR(S0)>]的爵位《伯爵》，附加属性攻魔道增加[40-40]！
MOV P0 4
GOTO @抢夺通知
GOTO @修补捐献排名5
BREAK
#IF
CheckVar GLOBAL 捐献第五名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第五名个数 = <$HUMAN(捐献元宝)>
BREAK
#IF
CHECKVAR HUMAN 捐献元宝 > <$GLOBAL(捐献第五名个数)>
#ACT
MOV S0 <$GLOBAL(捐献第五名名字)>
CALCVAR GLOBAL 捐献第六名名字 = <$GLOBAL(捐献第五名名字)>
CALCVAR GLOBAL 捐献第六名个数 = <$GLOBAL(捐献第五名个数)>
CALCVAR GLOBAL 捐献第五名名字 = <$USERNAME>
CALCVAR GLOBAL 捐献第五名个数 = <$HUMAN(捐献元宝)>
SAVEVAR GLOBAL 捐献第五名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
GuildNoticeMsg 251 165 玩家<$USERNAME>捐献了<$HUMAN(捐献元宝)>元宝，抢走了[<$STR(S0)>]的爵位《子爵》，附加属性攻魔道增加[20-20]！
MOV P0 5
GOTO @抢夺通知
GOTO @修补捐献排名6
BREAK
#IF
CheckVar GLOBAL 捐献第六名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第六名个数 = <$HUMAN(捐献元宝)>
BREAK
#IF
CHECKVAR HUMAN 捐献元宝 > <$GLOBAL(捐献第六名个数)>
#ACT
CALCVAR GLOBAL 捐献第六名名字 = <$USERNAME>
CALCVAR GLOBAL 捐献第六名个数 = <$HUMAN(捐献元宝)>
BREAK
[@修补捐献排名2]
#IF
CheckVar GLOBAL 捐献第二名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第二名名字 = <$GLOBAL(捐献第三名名字)>
CALCVAR GLOBAL 捐献第二名个数 = <$GLOBAL(捐献第三名个数)>
CALCVAR GLOBAL 捐献第三名名字 = <$GLOBAL(捐献第四名名字)>
CALCVAR GLOBAL 捐献第三名个数 = <$GLOBAL(捐献第四名个数)>
CALCVAR GLOBAL 捐献第四名名字 = <$GLOBAL(捐献第五名名字)>
CALCVAR GLOBAL 捐献第四名个数 = <$GLOBAL(捐献第五名个数)>
CALCVAR GLOBAL 捐献第五名名字 = <$GLOBAL(捐献第六名名字)>
CALCVAR GLOBAL 捐献第五名个数 = <$GLOBAL(捐献第六名个数)>
SAVEVAR GLOBAL 捐献第二名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第二名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第三名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第三名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
break
#ELSEACT
GOTO @修补捐献排名3
BREAK
[@修补捐献排名3]
#IF
CheckVar GLOBAL 捐献第三名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第三名名字 = <$GLOBAL(捐献第四名名字)>
CALCVAR GLOBAL 捐献第三名个数 = <$GLOBAL(捐献第四名个数)>
CALCVAR GLOBAL 捐献第四名名字 = <$GLOBAL(捐献第五名名字)>
CALCVAR GLOBAL 捐献第四名个数 = <$GLOBAL(捐献第五名个数)>
CALCVAR GLOBAL 捐献第五名名字 = <$GLOBAL(捐献第六名名字)>
CALCVAR GLOBAL 捐献第五名个数 = <$GLOBAL(捐献第六名个数)>
SAVEVAR GLOBAL 捐献第三名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第三名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
break
#ELSEACT
GOTO @修补捐献排名4
BREAK
[@修补捐献排名4]
#IF
CheckVar GLOBAL 捐献第四名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第四名名字 = <$GLOBAL(捐献第五名名字)>
CALCVAR GLOBAL 捐献第四名个数 = <$GLOBAL(捐献第五名个数)>
CALCVAR GLOBAL 捐献第五名名字 = <$GLOBAL(捐献第六名名字)>
CALCVAR GLOBAL 捐献第五名个数 = <$GLOBAL(捐献第六名个数)>
SAVEVAR GLOBAL 捐献第四名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第四名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
break
#ELSEACT
GOTO @修补捐献排名5
BREAK
[@修补捐献排名5]
#IF
CheckVar GLOBAL 捐献第五名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第五名名字 = <$GLOBAL(捐献第六名名字)>
CALCVAR GLOBAL 捐献第五名个数 = <$GLOBAL(捐献第六名个数)>
SAVEVAR GLOBAL 捐献第五名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第五名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
break
#ELSEACT
GOTO @修补捐献排名6
BREAK
[@修补捐献排名6]
#IF
CheckVar GLOBAL 捐献第六名名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 捐献第六名名字 = 　
CALCVAR GLOBAL 捐献第六名个数 = 20000
SAVEVAR GLOBAL 捐献第六名名字 ..\QuestDiary\数据文件\捐献排名数据.txt
SAVEVAR GLOBAL 捐献第六名个数 ..\QuestDiary\数据文件\捐献排名数据.txt
break
[@抢夺通知]
#IF
S0.CHECKONLINE
#ELSEACT
BREAK
#IF
EQUAL P0 1
#ACT
S0.MOV S1 通知：\　\您的爵位被《
S0.INC S1 <$USERNAME>
S0.INC S1 》抢走了，附加属性攻魔道降低了\　\您现在的爵位是公爵，附加属性攻魔道增加<80-80>！
HCALL <$STR(S0)> @恢复封号
BREAK
#IF
EQUAL P0 2
#ACT
S0.MOV S1 通知：\　\您的爵位被《
S0.INC S1 <$USERNAME>
S0.INC S1 》抢走了，附加属性攻魔道减少了\　\您现在的爵位是侯爵，附加属性攻魔道增加<60-60>！
HCALL <$STR(S0)> @恢复封号
BREAK
#IF
EQUAL P0 3
#ACT
S0.MOV S1 通知：\　\您的爵位被《
S0.INC S1 <$USERNAME>
S0.INC S1 》抢走了，附加属性攻魔道减少了\　\您现在的爵位是伯爵，附加属性攻魔道增加<40-40>！
HCALL <$STR(S0)> @恢复封号
BREAK
#IF
EQUAL P0 4
#ACT
S0.MOV S1 通知：\　\您的爵位被《
S0.INC S1 <$USERNAME>
S0.INC S1 》抢走了，附加属性攻魔道减少了\　\您现在的爵位是子爵，附加属性攻魔道增加<20-20>！
HCALL <$STR(S0)> @恢复封号
BREAK
#IF
EQUAL P0 5
#ACT
S0.MOV S1 通知：\　\您的爵位被《
S0.INC S1 <$USERNAME>
S0.INC S1 》抢走了，附加属性攻魔道减少了\　\您现在的爵位是少爵，附加属性攻魔道增加<10-10>！
HCALL <$STR(S0)> @恢复封号
BREAK
}