传奇服务端里的爵位捐献排名系统传奇开区脚本

[@元宝捐献]
{

<欢迎您使用爵位捐献系统!/SCOLOR=253>
<收取爵位捐献金额提供给沙城每天的攻沙奖励!/SCOLOR=146>

<我要捐款/@WYJK>         <捐款排名/@捐款排名>

<捐款奖励及捐款说明/@捐款说明>
[@捐款排名]

<第一名/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
╔═══════════════════════════╗
║　　　　　　　　　　　　　　　　　　　　　　　　　　　║
║　　　　　　　　　感谢您对本服的支持　 　　　　　　　 ║
║　　　　　　　 您上线时攻魔道同时增加2点 　　　　　　 ║
║　　　　　　　　　　　　　　　　　　　　　　　　　　　║
║　　　　　　　　　　　　　　　　　　　　　　　　　　　║
╚═══════════════════════════╝
#ELSEACT
messagebox 您不在第六排名里!
GOTO @WYJK
BREAK
[@捐款说明]
每次捐款不得少于50元宝!
第一名:上线攻魔道+12
第二名:上线攻魔道+10
第三名:上线攻魔道+8
第四名:上线攻魔道+6
第五名:上线攻魔道+4
第六名:上线攻魔道+2  
第六名无限名额.只要超50元宝的都可以排到第6名！！

<返回/@爵位捐献>
[@WYJK]
使用说明:在输入框内输入<捐款金额>
每次捐款最少为<50元宝>!
第一次捐款最多为<50元宝>否则不列入排名
<输入要捐款金额/@@InPutInteger1>
[@InPutInteger1]
#IF
LARGE N0 49
CHECKGAMEGOLD > N0 > 49
#ACT
GAMEGOLD - N0
INC <$HUMAN(JK)> <$STR(N0)>
SAVEVAR HUMAN JK ..QuestDiary元宝捐款元宝捐款.txt
ADDNAMELIST ..QuestDiary元宝捐款第六排名.txt
SENDMSG 5 测试完后删除：本次共捐款：<$STR(N0)>，共捐款：【<$HUMAN(JK)>】
Delaygoto 100 @JKPAIM
BREAK
#ELSEACT
MESSAGEBOX 你没钱或者输入有误!
BREAK
close1
[@JKPAIM]
#IF
LARGE <$HUMAN(JK)> <$STR(G200)>
#ACT
GOTO @BAOCUN
MESSAGEBOX 感谢您对本服的支持,目前排名第一!
BREAK
close
#ELSEACT
GOTO @JKPAIM1
BREAK
[@JKPAIM1]
#IF
LARGE <$HUMAN(JK)> <$STR(G201)>
#ACT
GOTO @BAOCUN1
MESSAGEBOX 感谢您对本服的支持,目前排名第二!
BREAK
close
#ELSEACT
GOTO @JKPAIM2
BREAK
[@JKPAIM2]
#IF
LARGE <$HUMAN(JK)> <$STR(G202)>
#ACT
GOTO @BAOCUN2
MESSAGEBOX 感谢您对本服的支持,目前排名第三!
BREAK
close
#ELSEACT
GOTO @JKPAIM3
BREAK
[@JKPAIM3]
#IF
LARGE <$HUMAN(JK)> <$STR(G203)>
#ACT
GOTO @BAOCUN3
MESSAGEBOX 感谢您对本服的支持,目前排名第四!
BREAK
close
#ELSEACT
GOTO @JKPAIM4
BREAK
[@JKPAIM4]
#IF
LARGE <$HUMAN(JK)> <$STR(G204)>
#ACT
GOTO @BAOCUN4
MESSAGEBOX 感谢您对本服的支持,目前排名第五!
BREAK
close
#ELSEACT
MESSAGEBOX 感谢您对本服的支持,目前排名第六!
BREAK
close
[@BAOCUN]
#IF
EQUAL <$STR(A200)> <$USERNAME>
#ACT
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK
#IF
EQUAL <$STR(A201)> <$USERNAME>
#ACT
MOV A201 A200
MOV G201 G200
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK
#IF
EQUAL <$STR(A202)> <$USERNAME>
#ACT
MOV A202 A201
MOV G202 G201
MOV A201 A200
MOV G201 G200
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK
#IF
EQUAL <$STR(A203)> <$USERNAME>
#ACT
MOV A203 A202
MOV G203 G202
MOV A202 A201
MOV G202 G201
MOV A201 A200
MOV G201 G200
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK
#ELSEACT
MOV A204 A203
MOV A203 A202
MOV A202 A201
MOV A201 A200
MOV A200 <$USERNAME>
MOV G204 G203
MOV G203 G202
MOV G202 G201
MOV G201 G200
MOV G200 <$HUMAN(JK)>
BREAK
[@BAOCUN1]
#IF
EQUAL A201 <$USERNAME>
#ACT
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(JK)>
BREAK
#IF
EQUAL A202 <$USERNAME>
#ACT
MOV A202 A201
MOV G202 G201
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(JK)>
BREAK
#IF
EQUAL A203 <$USERNAME>
#ACT
MOV A203 A202
MOV G203 G202
MOV A202 A201
MOV G202 G201
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(JK)>
BREAK
#ELSEACT
MOV A204 A203
MOV A203 A202
MOV A202 A201
MOV A201 <$USERNAME>
MOV G204 G203
MOV G203 G202
MOV G202 G201
MOV G201 <$HUMAN(JK)>
BREAK
[@BAOCUN2]
#IF
EQUAL A202 <$USERNAME>
#ACT
MOV A202 <$USERNAME>
MOV G202 <$HUMAN(JK)>
BREAK
#IF
EQUAL A202 <$USERNAME>
#ACT
MOV A203 A202
MOV G203 G202
MOV A202 <$USERNAME>
MOV G202 <$HUMAN(JK)>
BREAK
#ELSEACT
MOV A204 A203
MOV A203 A202
MOV A202 <$USERNAME>
MOV G204 G203
MOV G203 G202
MOV G202 <$HUMAN(JK)>
BREAK
[@BAOCUN3]
#IF
EQUAL A203 <$USERNAME>
#ACT
MOV A203 <$USERNAME>
MOV G203 <$HUMAN(JK)>
BREAK
#ELSEACT
MOV A204 A203
MOV A203 <$USERNAME>
MOV G204 G203
MOV G203 <$HUMAN(JK)>
BREAK
[@BAOCUN4]
#IF
EQUAL A204 <$USERNAME>
#ACT
MOV A204 <$USERNAME>
MOV G204 <$HUMAN(JK)>
BREAK
#ELSEACT
BREAK
}