;;;QQ:67762207==
[@炼制封魔石]
{
#IF
#ACT
loadvalue D8 "系统设置.INI" 开区后 开启封魔石时间

#IF
large D8 %CURHOUR
#ACT
break
#SAY
开区<$OUTPUT(D8)>小时开放炼制封魔石功能.\\
<[ 返 回 ]/@main>\

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

mov 总经验次数 %CURHOUR
div 总经验次数 20
mov 总经验次数 %P9
mov P1 %总经验次数
mov P2 20
mul P1 P2
mov D1 %CURHOUR
dec D1 %P9

#IF
large 总经验次数 %吃经验次数    ;;检测总次数大于已经吃过的次数
#SAY
{FCOLOR/10}欢迎使用积分系统，您目前还有{FCOLOR/10} <$USERJF> 点积分{FCOLOR/12}\
本服务器炼制封魔石是{FCOLOR/10}20小时一次{FCOLOR/12}，开区后开始计算
开区至今总时间:<$OUTPUT(CURHOUR)> 小时,总共可炼制{FCOLOR/10}<$OUTPUT(总经验次数)>{FCOLOR/12}次封魔石\
你已经炼制了{FCOLOR/10}<$OUTPUT(吃经验次数)>{FCOLOR/12}次\

#ELSESAY
本服务器炼制封魔石是{FCOLOR/10}20小时一次{FCOLOR/12}，开区后开始计算。\
开区至今总时间:<$OUTPUT(CURHOUR)> 小时,总共可炼制{FCOLOR/10}<$OUTPUT(总经验次数)>{FCOLOR/12}次封魔石\
你已经炼制了{FCOLOR/10}<$OUTPUT(吃经验次数)>{FCOLOR/12}次\
没有使用的次数会帮你自动累计。用完为止\
你的炼制时间已经用完，请在{FCOLOR/10} <$OUTPUT(D1)> {FCOLOR/12}小时后再来\


#IF
large 总经验次数 %吃经验次数  
#SAY
<[炼制6个封魔石]/@炼制经验(360000000,6,36,60)> 获得3.6亿经验,60声望,需要36点积分\

#IF
large 总经验次数 %吃经验次数 
Checklevel 80
#SAY
<[炼制8个封魔石]/@炼制经验(480000000,8,48,80)> 获得4.8亿经验,80声望,需要48点积分\

#IF
#SAY
<[ 返 回 ]/@main>\

[@炼制经验()]
#ACT
mov 炼制经验数 %ARG(1)
mov 封魔石数 %ARG(2)
mov 经验积分数 %ARG(3)
mov 经验声望数 %ARG(4)

#IF
checkcmd CHECKUSERJF %经验积分数
#ACT
actcmd SETUSERJF - %经验积分数 吃经验
GIVEEXPEX %炼制经验数
actcmd SETFAME + %经验声望数
give 封魔石 %封魔石数
sysmsg "获得经验值 <$OUTPUT(炼制经验数)>"
INC 吃经验次数 1
actcmd WRITESQL "TBL_SCRIPTQUEST" "经验炼制" %吃经验次数
#SAY
成功炼制了<$OUTPUT(封魔石数)>个封魔石，获得了<$OUTPUT(炼制经验数)>经验。\
  <[ 返 回 ]/@main>\
  <[ 离 开 ]/@exit>
#elseact
break
#ELSESAY
对不起，您的积分不够多...\
<离 开/@exit>
}
;;;QQ:67762207==
