传奇三积分转小号的脚本

[@积分转小号_1]
{
#IF
checklevel 45
#SAY
在我这里可以把同个ID里的人物积分互相转移。\
请输入你帐号里的另外一个人物的名称。\\
<[输入人物名称]/@@zhuanyijifen>\\
<[关闭]/@exit>
#ELSESAY
等级45以上可以执行此功能.\
<[关闭]/@exit>
[@@zhuanyijifen]
#ACT
mov S1 8
mov A0 %INPUTSTR
#IF
equal A0 ""
#SAY
人物名字不能为空。\
<[输入人物名称]/@@zhuanyijifen>\
#act
break

#IF
equal A0 %USERNAME
#SAY
请输入你帐号里的另外一个人物的名称。\\
<[输入人物名称]/@@zhuanyijifen>\\
<[关闭]/@exit>
#ELSEACT
MOV S2 3
goto @IDtest

[@IDtest]
#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %A0
ReadValueSql "TBL_CHARACTER" %A9 "FLD_CHARACTER,FLD_USERID" [@IDtests]
[@IDtests()]
#ACT
mov A1 %ARG(1)
mov A2 %ARG(2)
#IF
!Equal A2 %USERID
#SAY
只能使用同个ID里的人物积分互相转移.\\
<[输入人物名称]/@@zhuanyijifen>\\
<[关闭]/@exit>
#ACT
break
#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME

ReadValueSql "TBL_QUEST" %A9 "FLD_CHARACTER,FLD_JIFEN" [@zhuanyijifenz]
[@zhuanyijifenz()]
#IF
equal S2 3
#ACT
mov A3 %ARG(1)
mov D1 %ARG(2) ;;积分
#SAY
您当前积分为 {FCOLOR/1}<$OUTPUT(D1)>{FCOLOR/12}。 \
您要转移多少积分到 {FCOLOR/1}<$OUTPUT(A0)>{FCOLOR/12} ？\
输入要转移的积分点数:\
<[输入积分数量]/@@shurujifenx>\
#ELSESAY
。。。。。。。。。\
[@@shurujifenx]
#IF
#act
MOV S3 3
mov D2 %INPUTSTR
#IF
equal D2 ""
#SAY
积分数量不能为空.\
<[输入积分数量]/@@shurujifenx>\
<[关闭]/@exit>
#act
break
#IF
small d2 1
#SAY
请输入正确的数量。\
\
<[输入积分数量]/@@shurujifenx>\
<[关闭]/@exit>\
#act
break
#IF
elarge D2 %D1
#SAY
您身上积分没那么多呀？\
\
<[输入积分数量]/@@shurujifenx>\
<[关闭]/@exit>\
#elseact
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov A8 %A9
DEC D1 %D2
FormatStr "FLD_JIFEN='%s'" %D1
UPDATEVALUESQL "TBL_QUEST" %A8 %A9
GOTO @jifenhuanx
[@jifenhuanx]
#IF
equal S3 3
#ACT
FormatStr "FLD_CHARACTER='%s'" %A0
ReadValueSql "TBL_QUEST" %A9 "FLD_CHARACTER,FLD_JIFEN" [@zhuanyijifenx2]
#ELSESAY
。。。。。。。。。\
[@zhuanyijifenx2()]
#IF
#ACT
mov A0 %ARG(1)
mov D3 %ARG(2) ;;小号积分
#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %A0
mov A8 %A9
inc D3 %D2
FormatStr "FLD_JIFEN='%s'" %D3
UPDATEVALUESQL "TBL_QUEST" %A8 %A9
mov S3 0
#SAY
已经把 {FCOLOR/1}<$OUTPUT(D2)>{FCOLOR/12} 点积分转移到 {FCOLOR/1}<$OUTPUT(A0)>{FCOLOR/12} 身上.\
<[关闭]/@exit>\
}