;;QQ:67762207
[@点卷购买_1]
{
#IF
#ACT
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_QUEST"  %A9  "FLD_CHARACTER,FLD_JIFENVIP1"  [@VIP_dj]
[@VIP_dj()]
#IF
#ACT
   mov    A0      %ARG(1)
   mov    D6      %ARG(2)
   MOV    S3      4
GOTO @VIP_qianjin


[@VIP_qianjin]
#IF
equal  D6  ""
#SAY
您没购买积分卷，或者是GM还没核查确认.\
<[GM联系方式]/@helpjf>\
<[关闭]/@exit>
#act
break

#IF
equal  D6  0
#SAY
您没购买积分卷，或者是GM还没核查确认.....\
<[GM联系方式]/@helpjf>\
<[关闭]/@exit>

#ELSESAY
您购买了 {FCOLOR/10}<$OUTPUT(D6)>{FCOLOR/12} 个积分卷。\
1个点卷可以换成20点积分，您现在要取走积分卷吗？？\
\
请先检查背包是否放的下？？,每个卷1点负重 请确定负重跟格子足够！！\
<[我要取走积分卷]/@quzoudfsxxxzz> ---每个卷1点负重 请确定负重跟格子足够。\
<[关闭]/@exit>

[@quzoudfsxxxzz]
#IF
checkbaggage
#ACT
goto @asasadsdsdwewewesdsdsfddfdfd
#ELSESAY
背囊里没有位置了，整理出位置后，请再来！\ \  
<结束/@exit>


[@asasadsdsdwewewesdsdsfddfdfd]
#IF
Equal   S3   4
#ACT
Delaygoto [local] 3 @lindianjuan_111
#SAY
{FCOLOR/10}系统处理中....请稍后....{FCOLOR/12}\

[@lindianjuan_111]
#say
<取出点卷数量/@@givebacknum>\
[@@givebacknum]
#ACT
   mov  B1  %INPUTSTR
#IF
EQUAL B1 ""
#ACT
SYSMSG "不能输入空信息"
BREAK
#IF
small D6 %B1
#ACT
SYSMSG "你输入数值大于你目前拥有数量,请离开!您目前拥有<$OUTPUT(D6)>个积分卷!"
#elseact
   goto @领取购买点点卷

[@领取购买点点卷]
#ACT
MOV  D7   %B1
give  积分卷  %B1
;///////////////////////////////////////////////////
FormatStr "FLD_CHARACTER='%s'" %USERNAME
   mov   A8      %A9
   dec   D6  %B1
   FormatStr "FLD_JIFENVIP1='%s'" %D6
   UPDATEVALUESQL "TBL_QUEST" %A8 %A9
;///////////////////////////////////////////////////
MOV  D6  0
MOV  S3  0
GOTO  @loglog
#SAY
给您 {FCOLOR/10}<$OUTPUT(D7)>{FCOLOR/12}  积分卷.请拿好。\
您目前拥有<$OUTPUT(D6)>个积分卷!\
<我要继续领取积分点卷/@点卷购买_1>\
<[关闭]/@exit>\

#ELSESAY
您没购买积分卷，或者是GM还没核查确认.....\
<[GM联系方式]/@helpjf>\
<[关闭]/@exit>

[@helpjf]
#say
积分功能是一项经过长期钻研测试\
不影响游戏平衡性的服务器支撑方式\
他是大家的服务器的唯一经济来源\
如果您觉得本服确实作得不错\
在您能力范围之内,请您多多支持我们\
衷心感谢您的光临,祝您游戏开心\

\
<如何获取积分/@WHYHQ1>   ---查看GM联系方式\
<结 束/@exit>\


[@WHYHQ1]
#SAY
本服官方网址:{FCOLOR/10}<$OnlinePay>{FCOLOR/12}\
其实汇款是很方便的。整个汇款过程只需要5分钟。只要你不嫌麻烦跑一下腿。（工行需要身份证）\
步骤一、 到任意一家我们指定的银行向柜台人员要一张空白汇款单。\
按照单子上提示上写上我们帐号和汇款金额，时间日期等等。\
如果还有不明白的地方可以问柜台人员，他们会教你的。\
步骤二、 将汇款单和汇款金交给柜台。\
步骤三、 OK 汇款完毕，记得保留汇款凭证，马上回来与客服联系。\
请玩家汇款后及时与我们积分客服联系，得到确认后到我这里领取积分卷.\\
工商银行帐号：{FCOLOR/10}<$SYSSTR5>{FCOLOR/12} [即时到帐]\开户名：{FCOLOR/10}<$SYSSTR6>{FCOLOR/12}\开户地：{FCOLOR/10}<$SYSSTR7>{FCOLOR/12}\
农业银行帐号：{FCOLOR/10}<$SYSSTR8>{FCOLOR/12} [速度较慢]\开户名：{FCOLOR/10}<$SYSSTR9>{FCOLOR/12}\开户地：{FCOLOR/10}<$SYSSTR3>{FCOLOR/12}\
<结 束/@exit>\


[@loglog]
#if
dayofweek sun
#act
goto @sun0000
break

#if
dayofweek mon
#act
goto @mon1111
break

#if
dayofweek tue
#act
goto @tue2222
break

#if
dayofweek wed
#act
goto @wed3333
break

#if
dayofweek thu
#act
goto @thu4444
break

#if
dayofweek fri
#act
goto @fri5555
break

#if
dayofweek sat
#act
goto @sat6666
break

[@sun0000]
#if
#act
SaveValue "PlayerParam\积分领取客户记录.ini" [名单0] [%A0] %D7
break


[@mon1111]
#if
#act
SaveValue "PlayerParam\积分领取客户记录.ini" [名单1] [%A0] %D7
break

[@tue2222]
#if
#act
SaveValue "PlayerParam\积分领取客户记录.ini" [名单2] [%A0] %D7
break

[@wed3333]
#if
#act
SaveValue "PlayerParam\积分领取客户记录.ini" [名单3] [%A0] %D7
break

[@thu4444]
#if
#act
SaveValue "PlayerParam\积分领取客户记录.ini" [名单4] [%A0] %D7
break

[@fri5555]
#if
#act
SaveValue "PlayerParam\积分领取客户记录.ini" [名单5] [%A0] %D7
break

[@sat6666]
#if
#act
SaveValue "PlayerParam\积分领取客户记录.ini" [名单6] [%A0] %D7
break
}
;;QQ:67762207