blue引擎月卡脚本
[@月卡]
{
#IF
CHECKLEVELEX > 1
#ACT
GOTO @检查1
#ELSEACT
SENDMSG 5 提示:本服仿盛大2002年的设置,11级后需充卡才能游戏
SENDMSG 5 提示:本服不支持固定电话和短信充值
[@检查1]
#if
checkNameList ..\QuestDiary\月卡\月卡名单.txt HardDisk
#act
goto @月卡检查
#elseact
SENDMSG 5 提示:你的帐户没有冲值,请充月卡在进行游戏
mapmove ykfj
[@月卡检查]
#IF
CHECKUSERDATE ..\QuestDiary\月卡\时间记载.txt > 30 p0 p1 HardDisk
#ACT
DelNameList ..\QuestDiary\月卡\月卡名单.txt HardDisk
DELUSERDATE ..\QuestDiary\月卡\时间记载.txt HardDisk
SENDMSG 6 提示:月卡时间已到!
#IF
checknamelist ..\QuestDiary\月卡\月卡名单.txt HardDisk
#ACT
SENDMSG 6 提示:月卡时间剩余<$STR(p1)>天!
#ELSEACT
SENDMSG 5 提示:你的帐户没有冲值,请充卡在进行游戏
mapmove ykfj
}
|