发布一套传奇月卡兼点卡脚本，优先扣除月卡

摘要： 该脚本提取APP2.5D引擎中的一个版本，本打算自用，发现引擎不支持反取NOT功能，也懒得修改了，索性用CHECKUSERDATE命令实现了，现在此脚本用不到了，晒出来吧，理...

该脚本提取APP2.5D引擎中的一个版本，本打算自用，发现引擎不支持反取NOT功能，也懒得修改了，索性用CHECKUSERDATE命令实现了，现在此脚本用不到了，晒出来吧，理论上所有APP、GEE/GOM引擎通用，支持反取NOT功能的引擎通用

引擎必须支持反取NOT功能，否则脚本无效，不支持的话自行修改吧

▲▲▲▲▲▲▲▲▲▲▲▲▲QuestDiary▲▲▲▲▲▲▲▲▲
[@个人变量]
{
#IF
#ACT
VAR Integer Human 点卡时间
VAR Integer Human 月卡时间
LOADVAR HUMAN 点卡时间 ..\QuestDiary\数据文件\点卡变量.txt
LOADVAR HUMAN 月卡时间 ..\QuestDiary\数据文件\月卡变量.txt
}

▲▲▲▲▲▲▲▲▲▲▲▲▲qm-▲▲▲▲▲▲▲▲▲

[@Login]
#CALL [\登陆\个人变量.txt] @个人变量
DELAYGOTO 1 @检测点卡

[@检测点卡]
#IF
NOT CHECKLEVEL 30
#ACT
SENDMSG 5 30级以下玩家可免费游戏，祝你玩得愉快！
BREAK
#ELSEACT
goto @检测点卡1
BREAK

[@检测点卡1]
#if
CheckNameList ../QuestDiary/数据/月卡消费.txt
#ACT
SENDMSG 5 尊敬的月卡用户，您今日已登陆过游戏，不再重复扣除月卡时间，祝你玩得愉快！
BREAK

#IF
NOT CheckVar Human 月卡时间 = 0
#ACT
MOV N1 <$human(月卡时间)>
DEC N1 1
CalcVar  HUMAN 月卡时间 = <$str(n1)>
SAVEVAR HUMAN 月卡时间 ..\QuestDiary\数据\月卡变量.txt
SENDMSG 5 尊敬的月卡用户，您今日是第一次登陆游戏，本次将扣除一天的月卡时间，当前剩余月卡时间为：<$human(月卡时间)>天！祝你玩得愉快！
AddNameList ../QuestDiary/数据/月卡消费.txt
BREAK

#IF
NOT CheckVar Human 点卡时间 = 0
#ACT
SENDMSG 5 尊敬的点卡用户，游戏按照分钟为单位扣除时间，不足一分钟不扣除游戏点卡时间，当前剩余点卡时间为：<$human(点卡时间)>分钟！祝你玩得愉快！
;DELAYGOTO 60 @点卡扣除时间
BREAK

#IF
CheckVar Human 点卡时间 = 0
#ACT
MAPmove dkxz 20 18
MESSAGEBOX 尊敬的用户，您的游戏时间已到期，请前往商城购买点卡或月卡充值后继续游戏！
;DELAYGOTO 60 @点卡扣除时间
BREAK