|
|
传奇hero爵位捐献脚本,传奇脚本元宝捐献脚本,兼容HERO引擎
下载后不要直接覆盖,按照路径粘贴进去即可，
欢迎您使用爵位捐献系统!/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
|
|
发表于 2015-3-24 15:41:15
发表于 2015-5-2 22:12:05