;;=========================================
[@积分借贷111]
{
#ACT
MOV  D0  0
MOV  D1  0
MOV  D3  1

#IF
checklevel 72
#SAY
如果你想临时借积分或者点卷，我可帮助你，\
不过可别忘记归还哦，否则你将不可使用传送和批量购买\\
<借积分或点卷/@借钱XXXX>\
<归还积分或点卷/@还钱XXXX>\

#ELSESAY
对不起，你的等级太低了，我没办法借积分给你\
起码要达到72级别\

[@还钱XXXX]
#IF
check [088] 0
#SAY
你在开玩笑吗？你没欠我积分\
你真想白送我，那我不介意..嘎嘎..\
<[ 离 开 ]/@exit>\\
<[白送给NPC点卷]/@songdoandx>\
#ACT
break

#IF
check [088] 1
check [081] 1
#SAY
你上次在我这里借了36积分。\
现在是来还积分吗？真是好孩子\\
<归还上次借的积分/@归还积分X(积分,36,81)>\
#ACT
break

#IF
check [088] 1
check [082] 1
#SAY
你上次在我这里借了72积分。\
现在是来还积分吗？你人品不错\\
<归还上次借的积分/@归还积分X(积分,72,82)>\
#ACT
break

#IF
check [088] 1
check [083] 1
#SAY
你上次在我这里借了5个积分卷。\
现在是来归还积分卷吗？是个守信用的人\\
<归还上次借的积分卷/@归还点卷X(积分卷,5,83)>\
#ACT
break

#IF
check [088] 1
check [084] 1
#SAY
你上次在我这里借了288积分。\
现在是来归还积分吗？是个守信用的人\\
<归还上次借的积分/@归还积分X(积分,288,84)>\
#ACT
break

#IF
check [088] 1
check [085] 1
#SAY
你上次借了10个积分卷。\
现在是来归还积分卷吗？是个守信用的人\\
<归还上次借的积分卷/@归还点卷X(积分卷,10,85)>\
#ACT
break

[@songdoandx]
#SAY
真搞不明白，为啥世界上有这样的人呢。。\
算了，，告诉你一个绝招\
用鼠标点中一个积分卷,然后猛烈的摇晃\
据说会多出几个积分卷\
如果你测试成功了可要告诉我呀\
失败了也不能怪我哈..\

[@借钱XXXX]
#IF
check [088] 1
#SAY
上次借的积分还没还给我呢。还想借？没门！\
不把上次借的积分还我你就别想用传送和批量购买啦\
#ACT
break

#IF
check [084] 0
check [085] 0
check [088] 0
checklevel 96
#SAY
如果借了不还我，那你将不能用六面神石和批量购买\
可要考虑清楚哦！\\
等级越高，可借数量越多，你现在可以借下面的数量：\
<借贷288积分/@借贷积分X(积分,288,84)>\
<借贷10个积分卷/@借贷点卷X(积分卷,10,85)>\
#ACT
break

#IF
check [083] 0
check [082] 0
check [088] 0
checklevel 84
#SAY
如果借了不还我，那你将不能用六面神石和批量购买\
可要考虑清楚哦！\\
等级越高，可借数量越多，你现在可以借下面的数量：\
<借贷72积分/@借贷积分X(积分,72,82)>\
<借贷5个积分卷/@借贷点卷X(积分卷,5,83)>\
#ACT
break

#IF
check [081] 0
check [088] 0
checklevel 72
#SAY
如果借了不还我，那你将不能用六面神石和批量购买\
可要考虑清楚哦！\\
等级越高，可借数量越多，你现在可以借下面的数量：\
以你目前的等级，我可以借你36积分\
<借贷36积分/@借贷积分X(积分,36,81)>\
#ACT
break

[@借贷积分X()]
#ACT
MOV A0 %ARG(1)	;;物品
MOV D0 %ARG(2)	;;数量
MOV D1 %ARG(3)	;;设置变量

#IF
Equal  D3  1  ;;防快速点击
#SAY
已经借给您<$OUTPUT(D0)>点积分。可别忘记归还哦！\
否则您将无法使用六面神石和批量购买\
<[ 离 开 ]/@exit>
#ACT
MOV D3  0
SET [088] 1
actcmd SETUSERJF + %D0 借积分
goto @设置类型1

[@借贷点卷X()]
#ACT
MOV A0 %ARG(1)	;;物品
MOV D0 %ARG(2)	;;数量
MOV D1 %ARG(3)	;;设置变量

#IF
Equal  D3  1  ;;防快速点击
#SAY
已经借给您<$OUTPUT(D0)>个积分卷。可别忘记归还哦！\
否则您将无法使用六面神石和批量购买\
<[ 离 开 ]/@exit>
#ACT
MOV D3  0
SET [088] 1
give 积分卷 %D0
goto @设置类型1


[@设置类型1]
#IF
Equal  D1  81
#ACT
SET [081] 1
MOV D1  0
break

#IF
Equal  D1  82
#ACT
SET [082] 1
MOV D1  0
break

#IF
Equal  D1  83
#ACT
SET [083] 1
MOV D1  0
break

#IF
Equal  D1  84
#ACT
SET [084] 1
MOV D1  0
break

#IF
Equal  D1  85
#ACT
SET [085] 1
MOV D1  0
break

[@归还积分X()]
#ACT
MOV A0 %ARG(1)	;;物品
MOV D0 %ARG(2)	;;数量
MOV D1 %ARG(3)	;;设置变量

#IF
checkcmd CHECKUSERJF  %D0
#SAY
您归还了<$OUTPUT(D0)>点积分！\
现在您可以正常使用六面神石和批量购买\
<[ 离 开 ]/@exit>
#ACT
SET [088] 0
actcmd SETUSERJF - %D0 归还积分
GOTO  @设置类型0
#ELSESAY
你身上的积分不够\


[@归还点卷X()]
#ACT
MOV A0 %ARG(1)	;;物品
MOV D0 %ARG(2)	;;数量
MOV D1 %ARG(3)	;;设置变量

#IF
checkitem  积分卷  %D0
#SAY
您归还了<$OUTPUT(D0)>个积分卷！\
现在您可以正常使用六面神石和批量购买\
<[ 离 开 ]/@exit>
#ACT
SET [088] 0
TAKE 积分卷  %D0
GOTO  @设置类型0
#ELSESAY
你身上积分卷不够。。\


[@设置类型0]
#IF
Equal  D1  81
#ACT
SET [081] 0
MOV D1  0
break

#IF
Equal  D1  82
#ACT
SET [082] 0
MOV D1  0
break

#IF
Equal  D1  83
#ACT
SET [083] 0
MOV D1  0
break

#IF
Equal  D1  84
#ACT
SET [084] 0
MOV D1  0
break

#IF
Equal  D1  85
#ACT
SET [085] 0
MOV D1  0
break
}
;;==========================================================