GOM/GEE行会统计系统

#act
#SAY
\ \ \ \ \ \

<>                输入想查看的行会名字\

<>                   <输入行会名称/@@inputstring9(请输入行会名称！)>

;——–
;先将行会名称赋值
;——–
[@inputstring9]
#IF
#ACT
MOV S$行会名称 <$STR(s9)>

;——–
;判断行会名称是否为空
;——–
#IF
equal s9
#ACt
MESSAGEBOX [提示]\\\你输入的行会名称有误！
break
#ELSEACT

;——–
;检测是否有此行会
;——–
#IF
CHECKTEXTLISt ..\QuestDiary\行会系统\行会名单.txt <$STR(S$行会名称)>
#ACT
MOV A270 <$STR(S$行会名称)>
MOV G170 0
MOV G171 0
MOV G172 0
MOV G173 0
MOV G174 0
MOV G175 0
CLEARNAMELIST ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt
CLEARNAMELIST ..\QuestDiary\行会系统\<$STR(S$行会名称)>\最后名单.txt
GMEXECUTE 开始提问 @获取行会信息
CLEARNAMELIST ..\QuestDiary\行会系统\人物机器码.txt
DELayCall 200 @更新信息
#ELSEACT
MESSAGEBOX [提示]\\\没有你输入的行会！
break

[@更新信息]
#IF
#ACT
OPENMERCHANTBIGDLG 4 1778 1 4 1 -86 1 791 9
DELayCall 3000 @行会标号查看
#SAY
\ \ \ \
<> 您已经提交查询行会名称！！\ \
<> 3秒后自动更新行会信息数据…\ \ \
<>                         请稍等，更新中…\
<>                         请稍等，更新中…\
<>                         请稍等，更新中…\

[@行会标号查看]
#IF
#ACT
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt S$人员名单1 N$成员消耗编号1
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt S$人员名单2 N$成员消耗编号2
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt S$人员名单3 N$成员消耗编号3
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt S$人员名单4 N$成员消耗编号4
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt S$人员名单5 N$成员消耗编号5
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt S$人员名单6 N$成员消耗编号6
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt S$人员名单7 N$成员消耗编号7
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt S$人员名单8 N$成员消耗编号8
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt S$人员名单9 N$成员消耗编号9
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt S$人员名单10 N$成员消耗编号10

GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\<$STR(S$人员名单1)>.txt S$人员消费1 0
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\<$STR(S$人员名单2)>.txt S$人员消费2 0
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\<$STR(S$人员名单3)>.txt S$人员消费3 0
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\<$STR(S$人员名单4)>.txt S$人员消费4 0
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\<$STR(S$人员名单5)>.txt S$人员消费5 0
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\<$STR(S$人员名单6)>.txt S$人员消费6 0
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\<$STR(S$人员名单7)>.txt S$人员消费7 0
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\<$STR(S$人员名单8)>.txt S$人员消费8 0
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\<$STR(S$人员名单9)>.txt S$人员消费9 0
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\<$STR(S$人员名单10)>.txt S$人员消费10 0
MOV S$获取玩家名称1 <$STR(S$人员消费1)>
MOV S$获取玩家名称2 <$STR(S$人员消费2)>
MOV S$获取玩家名称3 <$STR(S$人员消费3)>
MOV S$获取玩家名称4 <$STR(S$人员消费4)>
MOV S$获取玩家名称5 <$STR(S$人员消费5)>
MOV S$获取玩家名称6 <$STR(S$人员消费6)>
MOV S$获取玩家名称7 <$STR(S$人员消费7)>
MOV S$获取玩家名称8 <$STR(S$人员消费8)>
MOV S$获取玩家名称9 <$STR(S$人员消费9)>
MOV S$获取玩家名称10 <$STR(S$人员消费10)>
GOTO @成员消耗一页

[@成员消耗一页]
#IF
#ACT
MOV N$成员消耗页数 1
MOV N$成员消耗编号1 0
MOV N$成员消耗编号2 1
MOV N$成员消耗编号3 2
MOV N$成员消耗编号4 3
MOV N$成员消耗编号5 4
MOV N$成员消耗编号6 5
MOV N$成员消耗编号7 6
MOV N$成员消耗编号8 7
MOV N$成员消耗编号9 8
MOV N$成员消耗编号10 9
GOTO @成员消耗显示MAIN1

[@成员消耗下一页]
#IF
equal <$STR(S$获取玩家名称10)> 暂无
#ACT
messagebox 已经最后一页！
#elseact
INC N$成员消耗页数 1
INC N$成员消耗编号1 10
INC N$成员消耗编号2 10
INC N$成员消耗编号3 10
INC N$成员消耗编号4 10
INC N$成员消耗编号5 10
INC N$成员消耗编号6 10
INC N$成员消耗编号7 10
INC N$成员消耗编号8 10
INC N$成员消耗编号9 10
INC N$成员消耗编号10 10
GOTO @成员消耗显示MAIN1
BREAK

[@成员消耗上一页]
#IF
LARGE N$成员消耗页数 1
#ACT
DEC N$成员消耗页数 1
DEC N$成员消耗编号1 10
DEC N$成员消耗编号2 10
DEC N$成员消耗编号3 10
DEC N$成员消耗编号4 10
DEC N$成员消耗编号5 10
DEC N$成员消耗编号6 10
DEC N$成员消耗编号7 10
DEC N$成员消耗编号8 10
DEC N$成员消耗编号9 10
DEC N$成员消耗编号10 10
GOTO @成员消耗显示MAIN1

[@返回查询]
#if
#act
#CALL [\行会系统\查看行会系统.txt] @sange查看行会
break

[@成员消耗显示MAIN1]
#ACT
GOTO @成员消耗变量声明
CloseBigDialogBox
OPENMERCHANTBIGDLG 4 1778 1 4 1 -86 1 791 9
#say

\ \                                     当前行会：<$STR(S$行会名称)> \ \
<>  <当前在线人数：/SCOLOR=22><$STR(G170)>       <独立机器码人数：/SCOLOR=22><$STR(G171)>\
<>  <共充值金币：/SCOLOR=215><$STR(G172)> <背包剩余金币：/SCOLOR=215><$STR(G173)> <背包元宝：/SCOLOR=215><$STR(G174)>\
<>  <服务器消耗：/SCOLOR=215><$STR(G175)> <返回查询页面/@返回查询>\ \
\  <1>: <$STR(S$获取玩家名称1)>    \ \
\  <2>: <$STR(S$获取玩家名称2)> \ \
\  <3>: <$STR(S$获取玩家名称3)> \ \
\  <4>: <$STR(S$获取玩家名称4)> \ \
\  <5>: <$STR(S$获取玩家名称5)> \ \
\  <6>: <$STR(S$获取玩家名称6)> \ \
\  <7>: <$STR(S$获取玩家名称7)> \ \
\  <8>: <$STR(S$获取玩家名称8)> \ \
\  <9>: <$STR(S$获取玩家名称9)> \ \
\  <10>: <$STR(S$获取玩家名称10)> \ \
\ \
<>          <往上翻页/@成员消耗上一页>　　　<往下翻页/@成员消耗下一页>

[@成员消耗变量声明]
#IF
#ACT
MOV S$人员名单1 暂无
MOV S$人员名单2 暂无
MOV S$人员名单3 暂无
MOV S$人员名单4 暂无
MOV S$人员名单5 暂无
MOV S$人员名单6 暂无
MOV S$人员名单7 暂无
MOV S$人员名单8 暂无
MOV S$人员名单9 暂无
MOV S$人员名单10 暂无
MOV S$获取玩家名称1 暂无
MOV S$获取玩家名称2 暂无
MOV S$获取玩家名称3 暂无
MOV S$获取玩家名称4 暂无
MOV S$获取玩家名称5 暂无
MOV S$获取玩家名称6 暂无
MOV S$获取玩家名称7 暂无
MOV S$获取玩家名称8 暂无
MOV S$获取玩家名称9 暂无
MOV S$获取玩家名称10 暂无
mov S$人员消费1 暂无
mov S$人员消费2 暂无
mov S$人员消费3 暂无
mov S$人员消费4 暂无
mov S$人员消费5 暂无
mov S$人员消费6 暂无
mov S$人员消费7 暂无
mov S$人员消费8 暂无
mov S$人员消费9 暂无
mov S$人员消费10 暂无
GetRandomText ..\QuestDiary\行会系统\<$STR(S$行会名称)>\最后名单.txt S$最后名单 0
GetStringPos ..\QuestDiary\行会系统\<$STR(S$行会名称)>\人员名单.txt <$STR(S$最后名单)>