﻿[@月卡脚本]

{
#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=250>\
<-------------------------------------------------------------/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!~>    <兑换月卡/@InPutInteger50> <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
CHECKGameGird > 199
#act
GameGird - 200
ADDNAMEDATETIMELIST ..\QuestDiary\会员系统\月卡会员数据.txt 30 0 0
DELNAMELIST ..\QuestDiary\白嫖降爆率\白嫖玩家.txt
;give 高级传送卡 1
KILLMONBURSTRATE 100 0 1 1
MESSAGEBOX 恭喜：你成功购买了月卡！
SET [150] 1
SENDMSG 6 你被通过固定的游戏时间充值
SENDMSG 1 尊贵的用户【<$USERNAME>】通过包裹内的月卡按钮，成功充值月卡一张！记得每日领取月卡权益哦！
SENDMSG 1 尊敬的用户【<$USERNAME>】通过包裹内的月卡按钮，成功充值月卡一张！记得每日领取月卡权益哦！
SENDMSG 1 尊敬的用户【<$USERNAME>】通过包裹内的月卡按钮，成功充值月卡一张！记得每日领取月卡权益哦！
goto @月卡脚本
#ELSEACT
MESSAGEBOX 你的赞助好像不够！每日可领取一次，点冲值领取。
CLOSE


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

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

[@可以领取]
#IF
checklevelex < 46
#ACT
GOTO @领取1
#ELSEACT
GOTO @领取2

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


[@领取2]
#IF
EQUAL J4 0 
CHECKNAMEDATETIMELIST ..\QuestDiary\会员系统\月卡会员数据.txt 1 S$时间 N$天数 N$小时 N$分钟
#ACT
INC U22 7200
GAMEGOLD + 2
give 金币 50000
give 黑铁矿石
MOV J4 1
SENDMSG 1 (*)尊贵的月卡用户【<$USERNAME>】已达到46级，领取了每日权益：2小时双倍经验时间！2枚传奇币！1块纯度30的黑铁矿！50000金币！
SENDMSG 1 (*)尊贵的月卡用户【<$USERNAME>】已达到46级，领取了每日权益：2小时双倍经验时间！2枚传奇币！1块纯度30的黑铁矿！50000金币！
SENDMSG 1 (*)尊贵的月卡用户【<$USERNAME>】已达到46级，领取了每日权益：2小时双倍经验时间！2枚传奇币！1块纯度30的黑铁矿！50000金币！
SENDMSG 7 (*)你获得了【2小时双倍经验时间！2枚传奇币！50000金币！】双倍有效时间剩余：<$STR(U22)>秒。

}
