[@main]
#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
#ACT
MOV N$刀会员 9000
DEC N$刀会员 <$STR(J96)>
#SAY
========================================================\
还差 [<ImgNum:1:<$STR(N$刀会员)>:-2:0:0:>] 刀获得会员资格 <[免费获取]/@免费>／天\
<提示：每攻击怪物一下为一刀,每天晚上12点清空刀数>\
[@免费]
MessageBox 会员未到期，无需办理
break
EQUAL N$刀会员 0
ADDNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 0 0
;会员商铺9折
SetShopItemPriceRate 90
KILLMONEXPRATE 200 86400 1
POWERRATE 120 86400 1
MessageBox 你的会员到期时间是【<$STR(S$时间)>】
#ELSESAY
[@会员]
#ELSEACT
ADDNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 30 0 0
KILLMONEXPRATE 200 2592000 1
POWERRATE 120 2592000 1
[@元宝服务]
<拆镶嵌/@服务1> <对蒙元宝/@服务2>\
[@服务1]
放入需要拆卸的装备,第一次收费1000元宝，每次拆卸都会累加100元宝\ \
<ITEMBOX:1:22:392:260:176:0:0:5,6,10,11,15,20,21,22,23,24,26:254#此处放入需拆卸的装备>\ \
[@ItemIntoBox1]
镶嵌位置一：<$STR(S$镶宝石1)> <[拆除]/@拆除1> 镶嵌位置二：<$STR(S$镶宝石2)> <[拆除]/@拆除2>\
镶嵌位置三：<$STR(S$镶宝石3)> <[拆除]/@拆除3> 镶嵌位置四：<$STR(S$镶宝石4)> <[拆除]/@拆除4>\
镶嵌位置五：<$STR(S$镶宝石5)> <[拆除]/@拆除5> 镶嵌位置六：<$STR(S$镶宝石6)> <[拆除]/@拆除6>\
镶嵌位置七：<$STR(S$镶宝石7)> <[拆除]/@拆除7> 镶嵌位置八：<$STR(S$镶宝石8)> <[拆除]/@拆除8>\ \
<[一键拆除]/@一键拆除> 放入的装备有多少镶嵌返还多少，只需消费一次元宝\
GetItemStoneInfo boxitem1 0 0 <$STR(S$镶宝石1)>
GetItemStoneInfo boxitem1 1 0 <$STR(S$镶宝石2)>
GetItemStoneInfo boxitem1 2 0 <$STR(S$镶宝石3)>
GetItemStoneInfo boxitem1 3 0 <$STR(S$镶宝石4)>
GetItemStoneInfo boxitem1 4 0 <$STR(S$镶宝石5)>
GetItemStoneInfo boxitem1 5 0 <$STR(S$镶宝石6)>
GetItemStoneInfo boxitem1 6 0 <$STR(S$镶宝石7)>
GetItemStoneInfo boxitem1 7 0 <$STR(S$镶宝石8)>
MOV N$元宝累计 1000
INC N$元宝累计 <$STR(J171)>
[@拆除1]
CHECKGAMEGOLD > <$STR(N$元宝累计)>
GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 1
INC J171 100
你的元宝不够【<$STR(N$元宝累计)>】
[@拆除2]
ItemoffStone boxitem1 2
[@拆除3]
ItemoffStone boxitem1 3
[@拆除4]
ItemoffStone boxitem1 4
[@拆除5]
ItemoffStone boxitem1 5
[@拆除6]
ItemoffStone boxitem1 6
[@拆除7]
ItemoffStone boxitem1 7
[@拆除8]
ItemoffStone boxitem1 8
[@一键拆除]
[@服务2]
下注你要对对蒙的元宝<IMG:2155:34:0:0>数量\ \
<INPUTNUM:1:0:-10:100:0:0:255:251:1:100:禁止为空，最小对对蒙元宝数量为1，最大为100:输入对对蒙元宝数量:247>\
<IMG:2155:34:0:0> <TEXT:[对对蒙下注]:0:0:1/@对蒙元宝>\ \
<IMG:1642:29:2:-8> <TEXT:[对对蒙玩法]:7:0/@对对蒙玩法>\
[@对蒙元宝]
MOV N$对对蒙数值 <$NPCINPUT(1)>
;SENDMSG 5 【<$STR(N$对对蒙数值)>】
CHECKGAMEGOLD > <$STR(N$对对蒙数值)>
RANDOMEX 1 1
GameGold - <$STR(N$对对蒙数值)>
GetRandomText ..\QuestDiary\三单职业\武器经验满\道士武器经验值满.txt <$STR(S$随机武器)>
GetDBItemFieldValue <$STR(S$随机武器)> SC2 <$STR(N$武器属性上限)>
GetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>
RANDOMEX 1 2
GetRandomText ..\QuestDiary\三单职业\武器经验满\法师武器经验值满.txt <$STR(S$随机武器)>
GetDBItemFieldValue <$STR(S$随机武器)> MC2 <$STR(N$武器属性上限)>
RANDOMEX 1 3
GetRandomText ..\QuestDiary\三单职业\武器经验满\战士武器经验值满.txt <$STR(S$随机武器)>
GetDBItemFieldValue <$STR(S$随机武器)> DC2 <$STR(N$武器属性上限)>
CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\战士武器经验值满.txt <$STR(S$随机武器)>
EQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
<[再来一局]/@服务2>\
CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\法师武器经验值满.txt <$STR(S$随机武器)>
CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\道士武器经验值满.txt <$STR(S$随机武器)>
当前对对蒙的装备是\ \
<对对蒙失败> 损失 <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>\ \
[@对对蒙玩法]
玩家先消费指定元宝数量，点击对对蒙下注，然后系统会随机显示一件\
武器，根据武器属性的上限与玩家下注的元宝数量相同，将会获得元\
下注数量与系统显示武器属性上限相同，双倍下注元宝奖励\
下注数量与系统显示武器属性上限不同，损失下注元宝\
<[返 回]/@服务2>\
