Gom引擎脚本-爵位捐献

GM版***

(@buy @sell @upgradenow @getbackupgnow @repair @s_repair @@InPutString @@InPutInteger @ReclaimItem )
%100
+10
+11
+15

[@main]
#IF
CHECKLEVELEX > 0
#ACT
LOADVAR HUMAN JK ..\QuestDiary\我的易网制作\重要数据\元宝捐款.txt
SortHumVarToListEx JK ..\QuestDiary\我的易网制作\重要数据\元宝捐款.txt 1 ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 1
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 0 S1 N1
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 1 S2 N2
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 2 S3 N3
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 3 S4 N4
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 4 S5 N5
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 5 S6 N6
SetStringBlank S1 14 0
SetStringBlank S2 14 0
SetStringBlank S3 14 0
SetStringBlank S4 14 0
SetStringBlank S5 14 0
SetStringBlank S6 14 0
MOV S7 <$USERNAME>
INC S7 :<$HUMAN(JK)>
GetStringPos ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt <$STR(S7)>
INC N0 1
MOV N18 <$STR(N0)>
MOV S8


#IF
EQUAL N0 1
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:15>
goto @main1
BREAK

#IF
EQUAL N0 2
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:31>
goto @main1
BREAK

#IF
EQUAL N0 3
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:47>
goto @main1
BREAK

#IF
EQUAL N0 4
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:63>
goto @main1
BREAK

#IF
EQUAL N0 5
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:79>
goto @main1
BREAK

#IF
EQUAL N0 6
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:95>
goto @main1
#ELSEACT
goto @main1
BREAK



[@MAIN1]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#act
#SAY
　      顺序     昵称         所捐金额<$STR(S8)>\
<皇帝/SCOLOR=151><Img:8:0:0:0> 第一名  <$STR(S1)>  <$STR(N1)>     \
<公爵/SCOLOR=151><Img:8:0:0:0> 第二名  <$STR(S2)>  <$STR(N2)>\
<候爵/SCOLOR=151><Img:8:0:0:0> 第三名  <$STR(S3)>  <$STR(N3)>\
<伯爵/SCOLOR=151><Img:8:0:0:0> 第四名  <$STR(S4)>  <$STR(N4)>\
<子爵/SCOLOR=151><Img:8:0:0:0> 第五名  <$STR(S5)>  <$STR(N5)>\
<男爵/SCOLOR=151><Img:8:0:0:0> 第六名  <$STR(S6)>  <$STR(N6)>\
\
<Img:13:0:0:0><更新爵位捐献第一名上线攻魔道+15+HP200点+护体神盾/SCOLOR=253><Img:13:0:0:0>\
<你当前处于排行榜第/SCOLOR=151>{<$STR(N18)>/SCOLOR=249}<名！/SCOLOR=151> <我要捐款/@WYJK> <捐款奖励及捐款说明/@SHUOM>
\ \
#ELSESAY
　      顺序     昵称         所捐金额<$STR(S8)>\
<皇帝/SCOLOR=151><Img:8:0:0:0> 第一名  <$STR(S1)>  <$STR(N1)>\
<公爵/SCOLOR=151><Img:8:0:0:0> 第二名  <$STR(S2)>  <$STR(N2)>\
<候爵/SCOLOR=151><Img:8:0:0:0> 第三名  <$STR(S3)>  <$STR(N3)>\
<伯爵/SCOLOR=151><Img:8:0:0:0> 第四名  <$STR(S4)>  <$STR(N4)>\
<子爵/SCOLOR=151><Img:8:0:0:0> 第五名  <$STR(S5)>  <$STR(N5)>\
<男爵/SCOLOR=151><Img:8:0:0:0> 第六名  <$STR(S6)>  <$STR(N6)>\
\
<Img:13:0:0:0><更新爵位捐献第一名上线攻魔道+15+HP200点+护体神盾/SCOLOR=253><Img:13:0:0:0>\
<你当前处于排行榜第/SCOLOR=151>{<$STR(N18)>/SCOLOR=249}<名！/SCOLOR=151> <我要捐款/@WYJK> <捐款奖励及捐款说明/@SHUOM>
\ \
;<Img:14:0:-190:15>
;<Img:14:0:-190:31>
;<Img:14:0:-190:47>
;<Img:14:0:-190:63>
;<Img:14:0:-190:79>
;<Img:14:0:-190:95>
;




[@hequ]
\
拿完沙之后的合区清理排名！！ \  \
捐献后必须小腿才可生效！！！ \  \
<返回/@main>

[@捐款用]
<第一名/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>:<男爵>:         <查看是否在排名内,只要捐款500即可排名/@查看>\ \
<我要捐款/@main>             <捐款奖励及捐款说明/@SHUOM>    \ \ \ \ \



[@查看]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
messagebox 您在第六排名里!
#ELSEACT
messagebox 您不在第六排名里!
GOTO @WYJK
BREAK

[@SHUOM]
每次捐款不得少于500元宝!\
第一名:上线攻魔道+15+HP200点+护体神盾<Img:13:0:0:0>\
第二名:上线攻魔道+5\
第三名:上线攻魔道+4\
第四名:上线攻魔道+3\
第五名:上线攻魔道+2\
第六名:上线攻魔道+1\  
第六名无限名额.只要超500元宝的都可以排到第6名！！\
\
<返回/@捐款用>

[@WYJK]
#ACT
#SAY
使用说明:在输入框内输入<捐款金额>\
每次捐款最少为<500元宝>!\
第一次捐款最多为<500元宝>否则不列入排名\
<输入要捐款金额/@@InPutInteger15>\


[@InPutInteger15]
#IF
EQUAL N15
#ACT
messagebox 请输入捐款金额!
GOTO @WYJK
BREAK

#IF
SMALL N15 500
#ACT
messagebox 您所要的捐款的金额小于500元宝!
BREAK


#IF
CHECKGAMEGOLD > <$STR(N15)>
#ACT
GAMEGOLD - <$STR(N15)>
CALCVAR HUMAN JK + <$STR(N15)>
SAVEVAR HUMAN JK ..\QuestDiary\我的易网制作\重要数据\元宝捐款.txt
Addnamelist ..\QuestDiary\元宝捐款\第六排名.txt
MESSAGEBOX 感谢您对本服的支持!捐献后必须小腿才可生效！
#ELSEACT
messagebox 您没有足够的元宝！
BREAK


#IF
CHECKVAR HUMAN JK > <$STR(N1)>
#ACT
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S1)>』皇帝称号，上线攻魔道+15+HP200点+护体神盾.
GOTO @排名刷新
BREAK

#IF
CHECKVAR HUMAN JK > <$STR(N2)>
#ACT
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S2)>』公爵称号，上线攻魔道+5+HP200点+护体神盾.
GOTO @排名刷新
BREAK


#IF
CHECKVAR HUMAN JK > <$STR(N3)>
#ACT
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S3)>』侯爵称号，上线攻魔道+4.
GOTO @排名刷新
BREAK



#IF
CHECKVAR HUMAN JK > <$STR(N4)>
#ACT
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S4)>』伯爵称号，上线攻魔道+3.
GOTO @排名刷新
BREAK


#IF
CHECKVAR HUMAN JK > <$STR(N5)>
#ACT
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S5)>』子爵称号，上线攻魔道+2.
GOTO @排名刷新
BREAK


[@排名刷新]
#ACT
SortHumVarToListEx JK ..\QuestDiary\我的易网制作\重要数据\元宝捐款.txt 1 ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 1
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 0 S1 N1
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 1 S2 N2
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 2 S3 N3
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 3 S4 N4
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 4 S5 N5
GetListString ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt 5 S6 N6
ClearNameList ..\QuestDiary\元宝捐款\第一排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
AddTextList ..\QuestDiary\元宝捐款\第一排名.txt <$STR(S1)>
AddTextList ..\QuestDiary\元宝捐款\第二排名.txt <$STR(S2)>
AddTextList ..\QuestDiary\元宝捐款\第三排名.txt <$STR(S3)>
AddTextList ..\QuestDiary\元宝捐款\第四排名.txt <$STR(S4)>
AddTextList ..\QuestDiary\元宝捐款\第五排名.txt <$STR(S5)>
MOV S7 <$USERNAME>
INC S7 :<$HUMAN(JK)>
GetStringPos ..\QuestDiary\我的易网制作\重要数据\捐款排行.txt <$STR(S7)>
INC N0 1
MOV N18 <$STR(N0)>