GOM引擎沙城捐献带捐献排行榜完整脚本

M引擎沙城捐献带捐献排行榜

[@MAIN]
#IF
EQUAL A2
#ACT
MOV S$第一 暂无
MOV S$第一名 0
#ELSEACT
MOV S$第一 <$STR(A2)>
MOV S$第一名 <$STR(G2)>

#IF
EQUAL A3
#ACT
MOV S$第二 暂无
MOV S$第二名 0
#ELSEACT
MOV S$第二 <$STR(A3)>
MOV S$第二名 <$STR(G3)>

#IF
EQUAL A4
#ACT
MOV S$第三 暂无
MOV S$第三名 0
#ELSEACT
MOV S$第三 <$STR(A4)>
MOV S$第三名 <$STR(G4)>

#IF
EQUAL A5
#ACT
MOV S$第四 暂无
MOV S$第四名 0
#ELSEACT
MOV S$第四 <$STR(A5)>
MOV S$第四名 <$STR(G5)>

#IF
EQUAL A6
#ACT
MOV S$第五 暂无
MOV S$第五名 0
#ELSEACT
MOV S$第五 <$STR(A6)>
MOV S$第五名 <$STR(G6)>

#IF
CHECKTEXTLIST ..\QuestDiary\捐献排行\捐献名单排行.txt <$USERNAME>
#ACT
GetStringPos ..\QuestDiary\捐献排行\捐献名单排行.txt <$USERNAME>
MOV N$排名 <$STR(N0)>
INC N$排名 1
MOV S$介绍 250#你的排位为[<$STR(N$排名)>]，累计捐献苍天币[<$HUMAN(捐献量)>]
#ELSEACT
MOV S$介绍 250#你还没有捐献过！！

#IF
#ACT
SetStringBlank <$STR(S$第一)> 18 1
SetStringBlank <$STR(S$第二)> 18 1
SetStringBlank <$STR(S$第三)> 18 1
SetStringBlank <$STR(S$第四)> 18 1
SetStringBlank <$STR(S$第五)> 18 1
SetStringBlank <$STR(S$第一名)> 7 1
SetStringBlank <$STR(S$第二名)> 7 1
SetStringBlank <$STR(S$第三名)> 7 1
SetStringBlank <$STR(S$第四名)> 7 1
SetStringBlank <$STR(S$第五名)> 7 1
OPENMERCHANTBIGDLG 113 27 1 4 -30 -100 1 435 20
#SAY
\ \ \ \ \ \ \  
<                      >                <捐献爵位/SCOLOR=254>\ \ \
<>                <国王/SCOLOR=254>→:<$STR(S$第一)><共捐献苍天币/SCOLOR=253>:<$STR(S$第一名)>   <1.5倍攻击/SCOLOR=254>\ \
<>                <亲王/SCOLOR=254>→:<$STR(S$第二)><共捐献苍天币/SCOLOR=253>:<$STR(S$第二名)>   <1.4倍攻击/SCOLOR=254>\ \
<>                <公爵/SCOLOR=254>→:<$STR(S$第三)><共捐献苍天币/SCOLOR=253>:<$STR(S$第三名)>   <1.3倍攻击/SCOLOR=254>\ \
<>                <侯爵/SCOLOR=254>→:<$STR(S$第四)><共捐献苍天币/SCOLOR=253>:<$STR(S$第四名)>   <1.2倍攻击/SCOLOR=254>\ \
<>                <子爵/SCOLOR=254>→:<$STR(S$第五)><共捐献苍天币/SCOLOR=253>:<$STR(S$第五名)>   <1.1倍攻击/SCOLOR=254>\ \

<>                    <我要捐献爵位排名|250#请输入要捐献的苍天币数量/@@InPutInteger73>　             <点击查看我的排名|<$STR(S$介绍)>/SCOLOR=251>\ \
<>                          <捐献最低100币才上榜，每天11点清零排行榜  /SCOLOR=7>\ \





[@InPutInteger73]
#IF
CHECKGAMEGIRD < <$STR(N73)>
#ACT
MESSAGEBOX 苍天币数量不足！！！
BREAK

#IF
LARGE N73 99
#ACT
GAMEGIRD - <$STR(N73)>
CALCVAR HUMAN 捐献量 + <$STR(N73)>
SAVEVAR HUMAN 捐献量 ..\QuestDiary\捐献排行\捐献变量.txt
SENDMSG 6 捐献<$STR(N73)>苍天币！！！
SortHumVarToListEx 捐献量 ..\QuestDiary\捐献排行\捐献变量.txt 1 ..\QuestDiary\捐献排行\捐献变量排行.txt 1
SortHumVarToListEx 捐献量 ..\QuestDiary\捐献排行\捐献变量.txt 1 ..\QuestDiary\捐献排行\捐献名单排行.txt 0
GetListString ..\QuestDiary\捐献排行\捐献变量排行.txt 0 S$第一姓名 N$第一捐献
GetListString ..\QuestDiary\捐献排行\捐献变量排行.txt 1 S$第二姓名 N$第二捐献
GetListString ..\QuestDiary\捐献排行\捐献变量排行.txt 2 S$第三姓名 N$第三捐献
GetListString ..\QuestDiary\捐献排行\捐献变量排行.txt 3 S$第四姓名 N$第四捐献
GetListString ..\QuestDiary\捐献排行\捐献变量排行.txt 4 S$第五姓名 N$第五捐献
SENDMOVEMSG 0 253 255 70 1 {<$USERNAME>/FCOLOR=254}捐献<$STR(N73)>苍天币，荣登捐献榜第{<$STR(N$排名)>/FCOLOR=249}名！！！
#ELSEACT
MESSAGEBOX 每次最低100币。
BREAK

#IF
LARGE N$第一捐献 9
#ACT
MOV A2 <$STR(S$第一姓名)>
MOV G2 <$STR(N$第一捐献)>

#IF
LARGE N$第二捐献 9
#ACT
MOV A3 <$STR(S$第二姓名)>
MOV G3 <$STR(N$第二捐献)>

#IF
LARGE N$第三捐献 9
#ACT
MOV A4 <$STR(S$第三姓名)>
MOV G4 <$STR(N$第三捐献)>

#IF
LARGE N$第四捐献 9
#ACT
MOV A5 <$STR(S$第四姓名)>
MOV G5 <$STR(N$第四捐献)>

#IF
LARGE N$第五捐献 9
#ACT
MOV A6 <$STR(S$第五姓名)>
MOV G6 <$STR(N$第五捐献)>

#IF
CHECKLEVELEX > 0
#ACT
Gmexecute 开始提问 @排行榜刷新
GOTO @MAIN

E: GOM引擎沙城捐献带捐献排行榜完整脚本 [修改]

奥术大师大所多

66666666666666666666666666666

就会根据规划计划

封挂发的鬼地方个

111111111111111111111111

11111111111111111111

DSDSDDSDDT  太好了 太棒了

66666666666

阿诗丹顿多多多多多多多多多

jkljkljklj

水电费水电费水电费水电费

666666666666666

wqeqw

dfsfsf

传奇整理得非常棒！我觉得传奇部落真是个好地方！

电饭锅东风化工东方红的发挥地方

GOM引擎沙城捐献带捐献排行榜完整脚本

GOM引擎沙城捐献带捐献排行榜完整脚本 [修改]

擎沙城捐献带捐献排行榜完整脚本 [修改]

看看看看看看！！！！

as大三大四的

参与/回复主题关闭
RE: GOM引擎沙城捐献带捐献排行榜完整脚本 [修改]