;;;QQ:67762207
[@doubleexppre]
{
#IF
#ACT
MOV D0 0
loadvalue D0 "系统设置.INI" 开区后 开启双倍npc时间

#IF
Esmall D0 %CURHOUR
#ELSEACT
break
#elsesay
开区第<$OUTPUT(D0)>小时后才会开启双倍经验系统!\\
<离开/@EXIT>\


#IF
checkcmd CHECKDOUBLEEXP
#ACT
mov D0 %P9

#IF
dayofweek Mon
#ACT
dec D0 720


#IF
dayofweek Tue
#ACT
dec D0 600

#IF
dayofweek Wed
#ACT
dec D0 480

#IF
dayofweek Thu
#ACT
dec D0 360

#IF
dayofweek Fri
#ACT
dec D0 240

#IF
dayofweek Sat
#ACT
dec D0 120


#IF
large D0 0
#SAY
____{FCOLOR/10}您好！欢迎领取奖励双倍时间。{FCOLOR/12}\
每天可以领取2小时的双倍经验时间。\
一周内可以累计。每周日24:00清零\\
你今天还剩余{FCOLOR/13}<$OUTPUT(D0)>{FCOLOR/12}分钟双倍时间。\
<领取1小时双倍时间/@doubleexp1hour(60)>  <领取2小时双倍时间/@doubleexp1hour(120)>\
<领取3小时双倍时间/@doubleexp1hour(180)>  <领取4小时双倍时间/@doubleexp1hour(240)>\\
<使用280分钟(4.6小时)双倍经验时间兑换1次炼制封魔石机会/@doubleexptoeat>\
<返回/@BACK>
#ACT
mov 剩余时间 %D0
#ELSESAY
对不起，今天的双倍时间你已经全部用完了。\
请明天再来领取。\\
<关闭/@exit>

[@doubleexp1hour()]
#ACT
mov D1 %ARG(1)

#IF
Large D1 %剩余时间
#ACT
mov D7 %剩余时间
#ELSEACT
mov D7 %D1

#IF
!checkcmd ISDUOEXP
#ACT
actcmd STARTDOUBLEEXP %D7
#SAY
双倍时间开始 <$OUTPUT(D7)>分钟。\\
<关闭/@exit>
#ELSESAY
对不起，你当前已领取的双倍经验尚未用完.\
请在系统提示双倍经验结束之后再领取.\\
<关闭/@exit>



[@doubleexptoeat]
#IF
#ACT
mov D0 %剩余时间

#IF
ELARGE D0 280
#ACT
actcmd READSQL "TBL_SCRIPTQUEST" "经验炼制" "吃经验次数"

#ELSEACT
break
#ELSESAY
对不起，你的双倍经验时间不足280分钟，无法为您兑换。\\
<关闭/@exit>


#IF
#ACT
MOV D2 %CURHOUR
MOV P1 %D2
MOV P2 20      ;;20小时间隔
DIV P1 P2
MOV D3 %P9    ;;开区到现在可以吃的次数
MOV D5 %D3

#IF
ELARGE 吃经验次数 1  ;;已经吃的次数
#ACT
actcmd SETDOUBLEEXP - 16800000
Dec 吃经验次数 1
actcmd WRITESQL "TBL_SCRIPTQUEST" "经验炼制" %吃经验次数
dec D5 %吃经验次数
#SAY
成功使用280分钟的双倍经验时间兑换1次炼制封魔石机会.\
开区到现在共可以炼制封魔石<$OUTPUT(D3)>次.\
本次兑换后，你还可以炼制<$OUTPUT(D5)>次.\
<关闭/@exit>
#ELSEACT
break
#ELSESAY
开区到现在共可以炼制封魔石<$OUTPUT(D3)>次.\
你目前可以炼制<$OUTPUT(D3)>次.\
可兑换的次数为0，无法为您兑换.\
<关闭/@exit>


#IF
ESMALL 吃经验次数 0 
#ACT
mov 吃经验次数 0
actcmd WRITESQL "TBL_SCRIPTQUEST" "经验炼制" %吃经验次数


}
;;;QQ:67762207
