在同一个游戏ID里可能有好几个人物,这个脚本能实现同ID间人物积分的相互转移.
有了这个脚本,相信会给传奇3私服玩家带来更多的乐趣.
[@积分转移k]
{
#IF
checklevel 46
#SAY
在我这里可以把同个ID里的人物积分互相转移。\
等级46以上可以执行此功能.转移前请确保身上积分不少于10点.\
请输入你帐号里的另外一个人物的名称。\
\
<[输入人物名称]/@@zhuanyijifen>\
\
<[返回上一页]/@youxijifen>\
<[关闭]/@exit>
#ELSESAY
等级46以上可以执行此功能.\
<[返回上一页]/@youxijifen>\
<[关闭]/@exit>
[@@zhuanyijifen]
#ACT
mov S1 8
mov A0 %INPUTSTR
#IF
equal A0 ""
#SAY
人物名字不能为空。\
<[输入人物名称]/@@zhuanyijifen>\
#act
break
#IF
equal A0 %USERNAME
#SAY
请输入你帐号里的另外一个人物的名称。\
\
<[输入人物名称]/@@zhuanyijifen>\
\
<[返回上一页]/@youxijifen>\
<[关闭]/@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里的人物积分互相转移.\
转好后请过5分钟后登陆小号!\
\
<[输入人物名称]/@@zhuanyijifen>\
\
<[返回上一页]/@youxijifen>\
<[关闭]/@exit>
#ACT
break
#IF
#ACT
FormatStr "FLD_CHARACTER=%s" %USERNAME
ReadValueSql "TBL_QUEST" %A9 "FLD_CHARACTER,FLD_JIFEN" [@zhuanyijifenz]
[@zhuanyijifenz()]
#IF
#ACT
mov A3 %ARG(1)
mov D1 %ARG(2) ;;积分
#IF
large D1 10
#SAY
您当前积分为 {FCOLOR/1}<$OUTPUT(D1)>{FCOLOR/12}。 \
您要转移多少积分到 {FCOLOR/1}<$OUTPUT(A0)>{FCOLOR/12} ？\
输入要转移的积分点数:\
<[输入积分数量]/@@shurujifenxssx>\
#ELSESAY
身上积分少于10点，不允许转移。\
<[关闭]/@exit>\
[@@shurujifenxssx]
#IF
#act
MOV S3 3
mov D2 %INPUTSTR
#IF
equal D2 ""
#SAY
积分数量不能为空.\
<[输入积分数量]/@@shurujifenxssx>\
<[关闭]/@exit>
#act
break
#IF
esmall D2 1
#SAY
积分数量不能为负.\
<[输入积分数量]/@@shurujifenxssx>\
<[关闭]/@exit>
#act
break
#IF
elarge D2 %D1
#SAY
您身上积分没那么多呀？\
\
<[输入积分数量]/@@shurujifenxssx>\
<[关闭]/@exit>\
#elseact
FormatStr "FLD_CHARACTER=%s" %USERNAME
mov A8 %A9
DEC D1 %D2
FormatStr "FLD_JIFEN=%s" %D1
UPDATEVALUESQL "TBL_QUEST" %A8 %A9
GOTO @jifenhuanxzxxxxx
[@jifenhuanxzxxxxx]
#IF
equal S3 3
#ACT
FormatStr "FLD_CHARACTER=%s" %A0
ReadValueSql "TBL_QUEST" %A9 "FLD_CHARACTER,FLD_JIFEN" [@zhuanyijifenx2xxv]
#ELSESAY
。。。。。。。。。\
[@zhuanyijifenx2xxv()]
#IF
#ACT
mov A0 %ARG(1)
mov D3 %ARG(2) ;;小号积分
#IF
equal S3 3
#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} 身上.\
请过5分钟后再登陆 {FCOLOR/1}<$OUTPUT(A0)>{FCOLOR/12} 这个人物，否则积分有可能不被保存.\
<[关闭]/@exit>\
#ELSESAY
身上积分少于10点，不允许转移。\
<[关闭]/@exit>\
}
本文出自:
搜传奇3转载请注明来处：http://www.so373.com/showarticle.asp?id=118
