﻿[@main]
#IF
#ACT
MOV S$到期时间
MOV S$剩余时间

#IF
EQUAL S$到期时间
EQUAL S$剩余时间
CHECKNAMEDATETIMELIST ..\QuestDiary\会员系统\月卡会员数据.txt 1 S$时间 N$天数 N$小时 N$分钟
#ACT
MOV S$到期时间 <$STR(S$时间)>
MOV S$剩余时间 <$STR(N$天数)>天<$STR(N$小时)>时<$STR(N$分钟)>分

#IF
EQUAL S$到期时间
EQUAL S$剩余时间
#ACT
MOV S$到期时间 已过期
MOV S$剩余时间 00天00小时00分

#IF
#ACT
SETSTRINGBLANK S$到期时间 30 1
#SAY
<>                      <月   卡   系   统/FCOLOR=243>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
<剩余时间：/FCOLOR=149>{<$STR(S$剩余时间)>/FCOLOR=250}            <到期时间：/FCOLOR=149>{<$STR(S$到期时间)>/FCOLOR=250} \
<-------------------------------------------------------------/AUTOCOLOR=91>\ 
<月卡周期：/FCOLOR=253><[30]天，可累计时长/FCOLOR=254>      <传奇币：/FCOLOR=253>{[<$GAMEGOLD>]枚/FCOLOR=254}\  
<-------------------------------------------------------------/AUTOCOLOR=91>\
<月卡权益：/FCOLOR=243><每天领取2小时双倍经验，2枚传奇币，50000金币/FCOLOR=242>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
<一键领取每日权益/@双倍> <Hot!~>    <兑换月卡/@@InPutString50> <Hot!~>\ \

[@InPutString14]
#say
<>                      <月   卡   系   统/FCOLOR=243>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■>□□□□□□□□□□□□□□□□ <10%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\
#ACT
DelayGoto 500 @a1
[@a1]
<>                      <月   卡   系   统/FCOLOR=243>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■>□□□□□□□□□□□□□□□ <20%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\
#ACT
DelayGoto 500 @a2
[@a2]
#say
<>                      <月   卡   系   统/FCOLOR=243>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■■■>□□□□□□□□□□□□□ <30%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\
#ACT
DelayGoto 500 @a3

[@a3]
#say
<>                      <月   卡   系   统/FCOLOR=243>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■■■■■■■>□□□□□□□□□ <50%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\
#ACT
DelayGoto 500 @a4

[@a4]
<>                      <月   卡   系   统/FCOLOR=243>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■■■■■■■■■■>□□□□□□ <80%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\

#ACT
DelayGoto 500 @chek1

[@chek1]
#say
<>                      <月   卡   系   统/FCOLOR=243>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■■■■■■■■■■■■■>□□□ <90%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\

#ACT
DelayGoto 500 @chek2

[@chek2]
#say
<>                      <月   卡   系   统/FCOLOR=243>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■■■■■■■■■■■■■■■■100%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\

#ACT
DelayGoto 500 ~InPutInteger50

[~InPutInteger50]
#if
CHECKTEXTLIST ..\QuestDiary\月卡卡密\月卡卡密.txt <$STR(s14)>
#act
DelTextList ..\QuestDiary\月卡卡密\月卡卡密.txt <$STR(s14)>
ADDNAMEDATETIMELIST ..\QuestDiary\会员系统\月卡会员数据.txt 30 0 0
DELNAMELIST ..\QuestDiary\白嫖降爆率\白嫖玩家.txt
;give 高级传送卡 1
KILLMONBURSTRATE 100 0 1 1
MESSAGEBOX 恭喜：你成功购买了月卡！
SET [150] 1
SENDMSG 6 你被通过固定的游戏时间充值
goto @main
#ELSEACT
MESSAGEBOX 充值卡密错误，请与GM取得联系获取月卡卡号！
CLOSE

 
[@双倍]
#IF
EQUAL J4 1
#ACT
MESSAGEBOX 你今日已经领取过月卡权益了！\\如果你今日权益使用完毕，请明日再来领取！
#ELSEACT
GOTO @领取

[@领取]
#IF
NOT CHECKNAMEDATETIMELIST ..\QuestDiary\会员系统\月卡会员数据.txt 1 S$时间 N$天数 N$小时 N$分钟
#ACT
MESSAGEBOX 只有月卡用户才能领取每日月卡权益！
#ELSEACT
GOTO @可以领取

[@可以领取]
#IF
EQUAL J4 0 
CHECKNAMEDATETIMELIST ..\QuestDiary\会员系统\月卡会员数据.txt 1 S$时间 N$天数 N$小时 N$分钟
NOT CHECKNAMELIST ..\QuestDiary\双倍经验\GM开小灶.txt
#ACT
INC U22 7200
GAMEGOLD + 2
give 金币 50000
MOV J4 1
SENDMSG 5 尊贵的月卡用户【<$USERNAME>】领取了每日权益：2小时双倍经验时间！2枚传奇币！50000金币！
SENDMSG 7 (*)你获得了【2小时双倍经验时间！2枚传奇币！50000金币！】双倍有效时间剩余：<$STR(U22)>秒。
;-----------------------------开小灶4小时双倍经验-----------------------------
#IF
EQUAL J4 0 
CHECKNAMEDATETIMELIST ..\QuestDiary\会员系统\月卡会员数据.txt 1 S$时间 N$天数 N$小时 N$分钟
CHECKNAMELIST ..\QuestDiary\双倍经验\GM开小灶.txt
#ACT
INC U22 14400
GAMEGOLD + 3
give 金币 100000
MOV J4 1
SENDMSG 7 (*)你获得了【4小时双倍经验时间！3枚传奇币！100000金币！】双倍有效时间剩余：<$STR(U22)>秒。


