[@main]
#IF
HAVEGUILD
#ACT
#CALL [\青春QS功能\行会招人\行会竞标变量.txt] @加载行会变量
VAR Integer GUILD 行会竞标金额
LOADVAR GUILD 行会竞标金额 ..\QuestDiary\青春QS清理\行会竞标数据.txt
#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\青春QS清理\行会竞标排名.txt 0 A16 G16
GetListString ..\QuestDiary\青春QS清理\行会竞标排名.txt 1 A17 G17
MOV S$行会第1名 <$STR(A16)>
MOV S$行会第2名 <$STR(A17)>
MOV S$行会第1数 <$STR(G16)>
MOV S$行会第2数 <$STR(G17)>
SetStringBlank <$STR(S$行会第1名)> 14 1
SetStringBlank <$STR(S$行会第2名)> 14 1
SetStringBlank <$STR(S$行会第1数)> 10 1
SetStringBlank <$STR(S$行会第2数)> 10 1
#IF
EQUAL A16
#ACT
MOV G20 0
MOV A56 开启
#IF
EQUAL A17
#ACT
MOV G21 0
MOV A57 开启
#IF
CHECKLEVELEX > 0
#ACT
MOV S$第1名状态 <$STR(A56)>
MOV S$第2名状态 <$STR(A57)>
MOV S$第1名等级 <$STR(G20)>
MOV S$第2名等级 <$STR(G21)>
SetStringBlank <$STR(S$第1名状态)> 14 1
SetStringBlank <$STR(S$第2名状态)> 14 1
SetStringBlank <$STR(S$第1名等级)> 2 1
SetStringBlank <$STR(S$第2名等级)> 2 1
#IF
CheckContainsText <$STR(S$第1名状态)> 开启
#ACT
MOV S$第1名状态 {<$STR(S$第1名状态)>/SCOLOR=250}
#IF
CheckContainsText <$STR(S$第2名状态)> 开启
#ACT
MOV S$第2名状态 {<$STR(S$第2名状态)>/SCOLOR=250}
#IF
CheckContainsText <$STR(S$第1名状态)> 关闭
#ACT
MOV S$第1名状态 {<$STR(S$第1名状态)>/SCOLOR=249}
#IF
CheckContainsText <$STR(S$第2名状态)> 关闭
#ACT
MOV S$第2名状态 {<$STR(S$第2名状态)>/SCOLOR=249}
#IF
HAVEGUILD
#ACT
MOV N$竞标价格 <$GUILD(行会竞标金额)>
#ELSEACT
MOV N$竞标价格 0
#if
CHECKLEVELEX > 0
#SAY
<--------------------------/SCOLOR=229> <行会招人/SCOLOR=9> <--------------------------/SCOLOR=229>\
\ \
<竞标第一行会：/SCOLOR=250><$STR(S$行会第1名)> <竞标价格/SCOLOR=154><：/SCOLOR=253><$STR(S$行会第1数)>\
<设置收人状态/@状态1><：/SCOLOR=253><$STR(S$第1名状态)> <设置等级/@@InPutInteger28(请输入招募等级：)><：/SCOLOR=253><$STR(S$第1名等级)><级/SCOLOR=70> <加入第一行会/@加入1>\
<Img:685:6:-6:4><Img:685:6:-241:4>\
<竞标第二行会：/SCOLOR=250><$STR(S$行会第2名)> <竞标价格/SCOLOR=154><：/SCOLOR=253><$STR(S$行会第2数)>\
<设置收人状态/@状态2><：/SCOLOR=253><$STR(S$第2名状态)> <设置等级/@@InPutInteger29(请输入招募等级：)><：/SCOLOR=253><$STR(S$第2名等级)><级/SCOLOR=70> <加入第二行会/@加入2>\
<Img:685:6:-6:4><Img:685:6:-241:4>\
<每次竞标元宝数量最低为5000元宝/SCOLOR=9> <我的行会竞标价格为：/SCOLOR=242><$STR(N$竞标价格)>\
<只显示竞标价格前两名的行会上榜/SCOLOR=9> <【我要竞标】/@@InPutInteger30(请输入要竞标的元宝数量：)>\
[@状态1]
#IF
NOT ISGUILDMASTER
#ACT
MESSAGEBOX 你不是行会掌门，无法使用！
BREAK
#IF
EQUAL A16 <$GUILDNAME>
#ACT
#ELSEACT
MESSAGEBOX 你的行会当前不是竞价第一！
BREAK
#IF
EQUAL A56 开启
#ACT
MOV A56 关闭
goto @main
BREAK
#ELSEACT
MOV A56 开启
goto @main
BREAK
[@InPutInteger28]
#IF
NOT ISGUILDMASTER
#ACT
MESSAGEBOX 你不是行会掌门，无法使用！
BREAK
#IF
EQUAL A16 <$GUILDNAME>
#ACT
#ELSEACT
MESSAGEBOX 你的行会当前不是竞价第一！
BREAK
#IF
SMALL N28 69
large N28 0
#ACT
MOV G20 <$STR(N28)>
goto @main
BREAK
#ELSEACT
MESSAGEBOX 等级设置范围:1-68级！
BREAK
[@加入1]
#IF
NOT EQUAL A56 开启
#ACT
MESSAGEBOX 加入行会失败：当前行会并不收人！
BREAK
#IF
CHECKLEVELEX < <$STR(G20)>
#ACT
MESSAGEBOX 加入行会失败：你的等级没有达到[<$STR(G20)>]级！
BREAK
#IF
HAVEGUILD
#ACT
MESSAGEBOX 加入行会失败：你已经有行会了！
BREAK
#IF
NOT EQUAL A16
#ACT
AddGuildMember <$STR(A16)> <$USERNAME>
MESSAGEBOX 加入行会成功：恭喜你加入了行会【<$STR(A16)>】。
BREAK
#ELSEACT
MESSAGEBOX 加入行会失败：目前没有行会竞得行会竞价板！
BREAK
[@状态2]
#IF
NOT ISGUILDMASTER
#ACT
MESSAGEBOX 你不是行会掌门，无法使用！
BREAK
#IF
EQUAL A17 <$GUILDNAME>
#ACT
#ELSEACT
MESSAGEBOX 你的行会当前不是竞价第一！
BREAK
#IF
EQUAL A57 开启
#ACT
MOV A57 关闭
goto @main
BREAK
#ELSEACT
MOV A57 开启
goto @main
BREAK
[@InPutInteger29]
#IF
NOT ISGUILDMASTER
#ACT
MESSAGEBOX 你不是行会掌门，无法使用！
BREAK
#IF
EQUAL A17 <$GUILDNAME>
#ACT
#ELSEACT
MESSAGEBOX 你的行会当前不是竞价第二！
BREAK
#IF
SMALL N29 69
large N29 0
#ACT
MOV G21 <$STR(N29)>
goto @main
BREAK
#ELSEACT
MESSAGEBOX 等级设置范围:1-68级！
BREAK
[@加入2]
#IF
NOT EQUAL A57 开启
#ACT
MESSAGEBOX 加入行会失败：当前行会并不收人！
BREAK
#IF
CHECKLEVELEX < <$STR(G21)>
#ACT
MESSAGEBOX 加入行会失败：你的等级没有达到[<$STR(G21)>]级！
BREAK
#IF
HAVEGUILD
#ACT
MESSAGEBOX 加入行会失败：你已经有行会了！
BREAK
#IF
NOT EQUAL A17
#ACT
AddGuildMember <$STR(A17)> <$USERNAME>
MESSAGEBOX 加入行会成功：恭喜你加入了行会【<$STR(A17)>】。
BREAK
#ELSEACT
MESSAGEBOX 加入行会失败：目前没有行会竞得行会竞价板！
BREAK
[@InPutInteger30]
#IF
HAVEGUILD
#ACT
#ELSEACT
messagebox 你没有行会,不能进行竞标！
BREAK
#IF
SMALL N30 5000
#ACT
messagebox 提示：每次竞标不能小于5000元宝！
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV P11 <$GUILD(行会竞标金额)>
INC P11 <$STR(N30)>
#IF
LARGE P11 0
#ELSEACT
messagebox 你当前所竞标的金额,累计到你们行会总额里后超出系统上限,请重新输入！\(最高累计金额21亿)
BREAK
#IF
CHECKGAMEGOLD ? <$STR(N30)>
#ACT
GAMEGOLD - <$STR(N30)>
CALCVAR GUILD 行会竞标金额 + <$STR(N30)>
SAVEVAR GUILD 行会竞标金额 ..\QuestDiary\青春QS清理\行会竞标数据.txt
GOTO @开始行会排名
GOTO @main
BREAK
#ELSEACT
messagebox 你没有<$STR(N30)>元宝,拿什么竞标？
BREAK
[@开始行会排名]
#IF
CHECKLEVELEX > 0
#ACT
SortHumVarToListEx 行会竞标金额 ..\QuestDiary\青春QS清理\行会竞标数据.txt 1 ..\QuestDiary\青春QS清理\行会竞标排名.txt 1
GetListString ..\QuestDiary\青春QS清理\行会竞标排名.txt 0 A16 G16
GetListString ..\QuestDiary\青春QS清理\行会竞标排名.txt 1 A17 G17
