wishmirls 发表于 2020-3-26 18:05:27

哒哒哒哒哒哒多多多多啊

sdzdw 发表于 2020-3-26 19:02:15

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

大狼牙棒 发表于 2020-3-28 12:28:47

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

xczhwancx 发表于 2020-3-29 09:01:59

66666666666666666666

caicb906 发表于 2020-4-10 09:25:12

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

zc185517959 发表于 2020-5-16 16:24:37

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

zc185517959 发表于 2020-5-16 17:32:22

传奇部落单机交流群：765838157

qiang8856 发表于 2020-5-17 17:09:45

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

mk195 发表于 2020-5-20 15:49:37

000000000000000000000000000000000000

mk195 发表于 2020-5-20 16:32:02

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

魔侠世界 发表于 2020-5-22 12:46:28

看看什么情况

caoyu198 发表于 2020-5-22 21:37:33

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

8046366 发表于 2020-5-24 15:03:35

:o:o:o:o:o:o:o:o

tdysoso 发表于 2020-5-29 19:01:48

11111111111111111111111111

240846169 发表于 2020-6-16 10:04:17

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

落幕後 发表于 2020-6-20 13:28:23

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

8212030 发表于 2020-6-22 18:20:43

888888888

whdwit 发表于 2020-6-25 11:09:47

收费吗！我没钱啊！

一二三四五 发表于 2020-6-26 18:05:13

1111111111

刘家明 发表于 2020-6-29 23:34:38

啦啦啦啦啦啦啦啦

xl2008 发表于 2020-6-30 12:52:50

1111111111111111111

xlkkk 发表于 2020-6-30 13:10:28

支持楼主大哥

a376609 发表于 2020-6-30 13:12:15

支持楼上的分享

twqwe 发表于 2020-6-30 14:08:52

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

twqwe 发表于 2020-6-30 15:57:33

[@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





页: 1 [2] 3 4 5 6 7
查看完整版本: GOM引擎沙城捐献带捐献排行榜完整脚本