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

哒哒哒哒哒哒多多多多啊

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

收藏收藏收藏收藏收藏收藏收藏收藏收藏

66666666666666666666

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

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

传奇部落单机交流群：765838157

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

000000000000000000000000000000000000

照每个步骤安装 该换的变量也换了  游戏里面啥都出不来啊

看看什么情况

阿士大夫撒旦法师法师打发

11111111111111111111111111

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

整脚本 [修改]
高级模式
整脚本 [修改]
高级模式

888888888

收费吗！我没钱啊！

1111111111

啦啦啦啦啦啦啦啦

1111111111111111111

支持楼主大哥

支持楼上的分享

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