GEE引擎爵位捐献脚本

[@main]
<欢迎您使用爵位捐献系统!/SCOLOR=253>\
<收取爵位捐献金额提供给沙城每天的攻沙奖励!/SCOLOR=146>\
<爵位捐献不仅可以给你带来身份象征而且还有不错的属性叠加!/SCOLOR=146>\　
Q  Q.群: 5 5 842 63 73  \
『<我要捐款/@开始捐款>』\
『<查看捐款排名/@捐款排名>』\　\
『<捐款奖励及捐款说明/@捐款说明>』\

[@捐款排名]
#say
<欢迎您使用爵位捐献系统,以下是本服爵位捐献排名信息:/SCOLOR=116>\ \
<第一名/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>:<男爵>:<查看是否在排名内/@查看>\ \
『<我要捐款/@开始捐款>』 『<返回主页/@main>』

[@查看]
#IF
EQUAL T10 <$USERNAME>
#ACT
messagebox 你已记录在第六名内,如有更高排名则忽略词条！
#ELSEACT
messagebox 您不在第六排名里!
GOTO @开始捐款
BREAK

[@捐款说明]
{欢迎您以下是捐献获得属性奖励说明:/SCOLOR=116}\ \
{第一名:上线攻魔道+ :12-12/SCOLOR=250}\
{第二名:上线攻魔道+ :10-10/SCOLOR=250}\
{第三名:上线攻魔道+ :8-8/SCOLOR=250}\
{第四名:上线攻魔道+ :6-6/SCOLOR=250}\
{第五名:上线攻魔道+ :4-4/SCOLOR=250}\
{第六名:上线攻魔道+ :2-2/SCOLOR=250}\
<提示:第六名无限名额.只要超5000元宝的都可以排到第6名.>\ \
『<我要捐款/@开始捐款>』 『<返回主页/@main>』

[@开始捐款]
{捐款详细说明:/SCOLOR=116}\ \
使用说明:在输入框内输入<捐款金额>\
{第一次捐款不得低于5000元宝否则不列入排名/SCOLOR=253}\
{友情提示:每次捐款最少为1000元宝以上/SCOLOR=250}\ \
『<输入要捐款金额/@@InPutInteger1(请输入捐献元宝数量>』\ \
『<返回主页/@main>』\

[@InPutInteger1]
#if
check [450] 0
#act
goto @one第一次
BREAK

#if
check [450] 1
#act
goto @one每次
BREAK


[@one第一次]
#if
LARGE N1 4999
#act
goto @第一捐献
#elseact
MESSAGEBOX 捐献错误:第一次输入捐献数量最少为:5000元宝！
BREAK

[@one每次]
#if
LARGE N1 999
#act
goto @每次捐献
#ELSEACT
MESSAGEBOX 捐献错误:每次捐献数量应大于1000元宝！
BREAK

;====================================================

[@每次捐献]
#if
CHECKGAMEGOLD ? <$STR(N1)>
#act
GAMEGOLD - <$STR(N1)>
INC <$HUMAN(JK)> <$STR(N1)>
SAVEVAR HUMAN JK ..\QuestDiary\元宝捐款\元宝捐款.txt
SENDMSG 7 提示：本次共捐款：<$STR(N1)>，共捐款：【<$HUMAN(JK)>】
Delaygoto 100 @检测排名对比
#ELSEACT
MESSAGEBOX 我看看,你好像没有足够的元宝捐献吧!
BREAK


[@第一捐献]
#if
CHECKGAMEGOLD ? <$STR(N1)>
#act
GAMEGOLD - <$STR(N1)>
SET [450] 1
INC <$HUMAN(JK)> <$STR(N1)>
SAVEVAR HUMAN JK ..\QuestDiary\元宝捐款\元宝捐款.txt
MOV T10 <$USERNAME>
SENDMSG 7 提示：本次共捐款：<$STR(N1)>，共捐款：【<$HUMAN(JK)>】
Delaygoto 100 @检测排名对比
#ELSEACT
MESSAGEBOX 我看看,你好像没有足够的元宝捐献吧!
BREAK

;-------------------------------------------------------------------------------
[@检测排名对比]
#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 <$STR(A200)>
MOV G201 <$STR(G200)>
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK

#IF
EQUAL <$STR(A202)> <$USERNAME>
#ACT
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$STR(A201)>
MOV G201 <$STR(G200)>
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK

#IF
EQUAL <$STR(A203)> <$USERNAME>
#ACT
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$STR(A200)>
MOV G201 <$STR(G200)>
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK

#ELSEACT
MOV A204 <$STR(A203)>
MOV A203 <$STR(A202)>
MOV A202 <$STR(A201)>
MOV A201 <$STR(A200)>
MOV A200 <$USERNAME>
MOV G204 <$STR(G203)>
MOV G203 <$STR(G202)>
MOV G202 <$STR(G201)>
MOV G201 <$STR(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 <$STR(A202)>
MOV G202 <$STR(G201)>
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(JK)>
BREAK

#IF
EQUAL A203 <$USERNAME>
#ACT
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(JK)>
BREAK

#ELSEACT
MOV A204 <$STR(A203)>
MOV A203 <$STR(A202)>
MOV A202 <$STR(A201)>
MOV A201 <$USERNAME>
MOV G204 <$STR(G203)>
MOV G203 <$STR(G202)>
MOV G202 <$STR(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 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$USERNAME>
MOV G202 <$HUMAN(JK)>
BREAK

#ELSEACT
MOV A204 <$STR(A203)>
MOV A203 <$STR(A202)>
MOV A202 <$USERNAME>
MOV G204 <$STR(G203)>
MOV G203 <$STR(G202)>
MOV G202 <$HUMAN(JK)>
BREAK

[@BAOCUN3]
#IF
EQUAL A203 <$USERNAME>
#ACT
MOV A203 <$USERNAME>
MOV G203 <$HUMAN(JK)>
BREAK
#ELSEACT
MOV A204 <$STR(A203)>
MOV A203 <$USERNAME>
MOV G204 <$STR(G203)>
MOV G203 <$HUMAN(JK)>
BREAK

[@BAOCUN4]
#IF
EQUAL A204 <$USERNAME>
#ACT
MOV A204 <$USERNAME>
MOV G204 <$HUMAN(JK)>
BREAK
#ELSEACT
BREAK

传奇部落值得信赖开传奇一条龙就找传奇部落

思钱想厚 发表于 2018-3-21 11:01
传奇部落值得信赖开传奇一条龙就找传奇部落

6ehehehehehehhejeuejee

523791 发表于 2018-12-12 15:04
6ehehehehehehhejeuejee

HOHO明明哦公明狗狗公民

sad撒多撒多所多撒多撒