激情传奇行会战赌元宝脚本

(@@InPutInteger, @@InPutString)
[@MAIN]
#IF
HAVEGUILD
#ACT
CloseBigDialogBox
#ELSEACT
close
MESSAGEBOX 你还没有加入行会呢!
BREAK

#IF
CHECKGUILDLIST ..\QuestDiary\Mrrp系列脚本\行会据点战\Mrrp_据点战行会变量申明名单.txt
#ELSEACT
ADDGUILDLIST ..\QuestDiary\Mrrp系列脚本\行会据点战\Mrrp_据点战行会变量申明名单.txt
;据点战混战模式人物名字
VAR String GUILD $Mrrp_JDZ2N0
;混战模式行会在线人数
VAR Integer GUILD $Mrrp_JDZ2ZX
;混战模式行会据点人数
VAR Integer GUILD $Mrrp_JDZ2JD
;混战模式行会X坐标
VAR Integer GUILD $Mrrp_JDZ2XZB
;混战模式行会Y坐标
VAR Integer GUILD $Mrrp_JDZ2YZB
;混战模式行会进入状态
VAR Integer GUILD $Mrrp_JDZ2HZT1

#IF
CHECKGUILDLIST ..\QuestDiary\Mrrp系列脚本\行会据点战\Mrrp_据点战行会变量清除名单.txt
#ELSEACT
ADDGUILDLIST ..\QuestDiary\Mrrp系列脚本\行会据点战\Mrrp_据点战行会变量清除名单.txt
CALCVAR GUILD $Mrrp_JDZ2N0 =
CALCVAR GUILD $Mrrp_JDZ2ZX = 0
CALCVAR GUILD $Mrrp_JDZ2JD = 0
CALCVAR GUILD $Mrrp_JDZ2XZB = 0
CALCVAR GUILD $Mrrp_JDZ2YZB = 0
CALCVAR GUILD $Mrrp_JDZ2HZT1 = 0

#IF
HAVEGUILD
#SAY
对战模式:由一个行会向另外一个行会发起挑战,发起方和对战方都\
　　　　 需要赌金,赌金由发起方设定,比赛结束后所有赌金归胜利\
　　　　 方所得.(系统收取5%的手续费)\ \
混战模式:由一个行会发起赛事,其他欲参赛的行会在规定的时间内可\
　　　　 随意进入参加,所有行会均需要赌金,赌金由发起方设定,比\
　　　　 赛结束后所有赌金归胜利方所得.(系统收取5%的手续费)\ \
『<对战模式/@Mrrp_对战模式>』　　　　　　『<混战模式/@Mrrp_混战模式>』　　　　　　『<关闭对话/@EXIT>』

[@Mrrp_对战模式]
活动规则:从发起赛事开始,5分钟后如无行会迎战,则退回发起方赌金\
　　　　 并取消本次赛事,如有行会迎战,则开始30分钟倒计时,时间\
　　　　 到则赛事结束,其中前15分钟迎战行会可以随意进入参赛,15\
　　　　 分钟后关闭赛场大门,任何人将无法进入赛场,直到赛事结束.\
　　　　 赛事结束时统计光圈内各行会人数,人数最多者为胜利方,所\
　　　　 有赌金归胜利方所得.(系统收取5%的手续费)\
#IF
CHECKVAR GLOBAL $Mrrp_JDZ1N1 =
#SAY
挑战行会:$暂无数据　　赌金:0元宝\
#ELSESAY
挑战行会:<$GLOBAL($Mrrp_JDZ1N1)>　　赌金:<$GLOBAL($Mrrp_JDZ1G1)>元宝\

#IF
CHECKVAR GLOBAL $Mrrp_JDZ1N1 =
#SAY
迎战行会:$暂无数据　　赌金:0元宝\
#ELSESAY
迎战行会:<$GLOBAL($Mrrp_JDZ1N2)>　　赌金:<$GLOBAL($Mrrp_JDZ1G1)>元宝\

#IF
CHECKVAR GLOBAL $Mrrp_JDZ1N1 =
#SAY
『<发起赛事/@Mrrp_发起赛事对战>』

#IF
CHECKVAR GLOBAL $Mrrp_JDZ1ZT = 等待
CHECKVAR GLOBAL $Mrrp_JDZ1N2 =
#SAY
『<迎战赛事/@Mrrp_迎战赛事对战>』

#IF
CHECKVAR GLOBAL $Mrrp_JDZ1TIME > 900
CHECKVAR GLOBAL $Mrrp_JDZ1TIME < 1800
#SAY
『<进入赛场/@Mrrp_进入赛场对战>』

#IF
CHECKVAR GLOBAL $Mrrp_JDZ1ZT = 开始
CHECKVAR GLOBAL $Mrrp_JDZ1TIME > 0
CHECKVAR GLOBAL $Mrrp_JDZ1TIME < 901
#SAY
『<查看战况/@Mrrp_查看战况对战>』

#IF
#SAY
　　　　　　『<切换模式/@MAIN>』　　　　　　『<关闭对话/@EXIT>』

[@Mrrp_查看战况对战]
#IF
CHECKVAR GLOBAL $Mrrp_JDZ1ZT = 开始
#ELSEACT
GOTO @Mrrp_对战模式
MESSAGEBOX [错误]:现在并没有行会据点战的赛事.
break

#IF
CHECKVAR GLOBAL $Mrrp_JDZ1N1 =
#SAY
挑战行会:$暂无数据　当前在线人数为:0人　抢占据点人数为:0人\ \
#ELSESAY
挑战行会:<$GLOBAL($Mrrp_JDZ1N1)>　当前在线人数为:<$GLOBAL($Mrrp_JDZ1ZX1)>人　抢占据点人数为:<$GLOBAL($Mrrp_JDZ1JD1)>人\ \

#IF
CHECKVAR GLOBAL $Mrrp_JDZ1N2 =
#SAY
挑战行会:$暂无数据　当前在线人数为:0人　抢占据点人数为:0人\ \
#ELSESAY
挑战行会:<$GLOBAL($Mrrp_JDZ1N2)>　当前在线人数为:<$GLOBAL($Mrrp_JDZ1ZX2)>人　抢占据点人数为:<$GLOBAL($Mrrp_JDZ1JD2)>人\ \

#IF
#SAY
距离[行会据点战]结束还有:<$GLOBAL($Mrrp_JDZ1TIME)>秒...　　　『<刷新/@Mrrp_查看战况对战>』

[@Mrrp_发起赛事对战]
发起赛事步骤:\
1.输入迎战行会的名字(可不输入,不输入时任何行会均可迎战)\
2.输入赛事的赌金数量\ \
当前指定的迎战行会为:<$STR(S10)>\
当前赛事的赌金数量为:<$STR(N10)>个元宝\ \
『<请输入指定应战行会/@@InPutString10>』可不输入,不输入时任何行会均可迎战.\
『<请输入挑战物品数量/@@InPutInteger10>』　　　　　　　　　　　　　『<返回上页/@Mrrp_对战模式>』\