炼制经验]

ping5562

[@炼制经验]
{
#ACT
MOV D0 0
mov D7 6  ;;防止快速点击
loadvalue D0 "系统设置.INI" 时间控制 开启每日炼制时间  ;;开区多少小时后开始炼制
#if
Esmall D0 %CURHOUR
#ACT
FormatStr "FLD_CHARACTER='%s'" %username
ReadValueSql "TBL_QUEST" %A9 "FLD_buchi" @N_2
#elsesay
开区72小时后才会开启每日炼制系统!\\
<[ 返 回 ]/@main>\
[@N_2()]
#ACT
MOV D2 %CURHOUR
MOV D8 %ARG(1)
MOV P1  %D2
MOV P2  20      ;;20小时间隔
DIV P1 P2
MOV  D3  %P9    ;;D3开区到现在可以吃的次数
MOV  P4  %P9
INC  P4  1
#Act
MOV P6  %P4
MOV P8  20   
MUL P6  P8
Mov  P5  %P9  
DEC  P5  %D2    ;;距离下一次吃经验时间
#IF
small D3 900
large  D3   %D8    ;;检测总次数大于已经吃过的次数
#SAY
{FCOLOR/1}【每日炼制经验】{FCOLOR/12}\
炼制经验是{FCOLOR/10}20小时一次{FCOLOR/12}，
开区至今总时间：{FCOLOR/10}<$CURHOUR>{FCOLOR/12}小时\总共可炼制{FCOLOR/10} <$OUTPUT(D3)> {FCOLOR/12}次经验，你已经炼制了{FCOLOR/10} <$OUTPUT(D8)> {FCOLOR/12}次\\
#ELSESAY
{FCOLOR/1}【每日炼制经验】{FCOLOR/12}\
炼制经验是{FCOLOR/10}20小时一次{FCOLOR/12}，
开区至今总时间：{FCOLOR/10} <$CURHOUR>{FCOLOR/12}小时\总共可炼制{FCOLOR/10} <$OUTPUT(D3)> {FCOLOR/12}次经验，你已经炼制了{FCOLOR/10} <$OUTPUT(D8)> {FCOLOR/12}次\\
请明天再来炼制\
#IF
large  D3   %D8
small D3 900
#SAY
<【炼制 炼制:1亿经验 消耗金币:500万】/@开始炼制(4,100000000,5000000)>\\
<【炼制 炼制:2亿经验 消耗金币:1000万】/@开始炼制(4,200000000,10000000)>\\
<【炼制 炼制:3亿经验 消耗金币:3000万】/@开始炼制(4,300000000,30000000)>\\
<【炼制 炼制:5亿经验 消耗贡献点:10点】/@开始炼制+(4,500000000,10)>\\
;;<【炼制 炼制:15亿经验 消耗贡献点:30点】/@开始炼制+(4,1500000000,30)>\\
<【返   回】[url=]/@main>\[/url]


;;-----------------------------------------炼制创造之石
[@开始炼制()]
#ACT
MOV D5 %ARG(1)
MOV D6 %ARG(2)
MOV D7 %ARG(3)
GOTO @处理封魔石
[@处理封魔石]
#IF
!Checkgroupcount 1
checkgold %D7
#ACT
take 金币 %D7
Delaygoto [local] 2 @giveexp1++
#SAY
{FCOLOR/10}金币已经扣除，系统正在处理经验中......{FCOLOR/12}\
请不要操作其他动作,否则后果自负\
#ELSESAY
对不起，您的金币已经不够多了或者组队了...\
<【返   回】/@炼制经验>\
[@giveexp1++]
#if
large  D3   %D8
#ACT
ADDEXP %D6
INC D8 1
FormatStr "FLD_CHARACTER='%s'" %username
mov A5 %A9
FormatStr "FLD_buchi='%s'" %D8
UPDATEVALUESQL "TBL_QUEST" %A5 %A9
GOTO @炼制经验
#ELSEACT
SYSMSG "您金币不足,或您已经吃够累积次数了!"

;;-----------------------------------------炼制创造之石
[@开始炼制+()]
#ACT
MOV D5 %ARG(1)
MOV D6 %ARG(2)
MOV D7 %ARG(3)
GOTO @处理封魔石+
[@处理封魔石+]
#IF
!Checkgroupcount 1
CheckJfPoint %D7
#ACT
SUBJFPOINT %D7
Delaygoto [local] 2 @giveexp22++
#SAY
{FCOLOR/10}贡献点已经扣除，系统正在处理经验中......{FCOLOR/12}\
请不要操作其他动作,否则后果自负\
#ELSESAY
对不起，您的贡献点已经不够多了或者组队了...\
<【返   回】/@炼制经验>\
[@giveexp22++]
#if
large  D3   %D8
#ACT
ADDEXP %D6
INC D8 1
FormatStr "FLD_CHARACTER='%s'" %username
mov A5 %A9
FormatStr "FLD_buchi='%s'" %D8
UPDATEVALUESQL "TBL_QUEST" %A5 %A9
GOTO @炼制经验
#ELSEACT
SYSMSG "您已经吃够累积次数了!"
}