传奇三服务端脚本-关于体力爆点的解决脚本-适用于HL插件

畅游

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@体力爆点改变]
{
#if
#say
<人物角色爆点确认/@检测人物爆点等级>\
<输入您要修改体力的角色/@@确定体力爆点名字>\
<输入您要修改魔力的角色/@@确定魔力爆点名字>\

[@检测人物爆点等级]
#if
checklevel 1201
#act
SAVEVALUE "ParamControl\爆点记录.ini" 爆点帐号 %USERID 1
#SAY
操作成功,您可以上小号进行操作了!
#ELSESAY
对不起，等级不够,无法操作.

[@@确定体力爆点名字]
#ACT
LOADVALUE D8 "ParamControl\爆点记录.ini" 爆点帐号 %USERID
#IF
EQUAL D8 0
#ACT
break
#say
您帐号下的所有角色都未进行过爆点修改确认!\
请先对需要修改的人物角色进行{FCOLOR/10}爆点确认{FCOLOR/12}!
#IF
#ACT
   mov A0 %INPUTSTR
#IF
   equal A0 ""
#SAY
_{FCOLOR/10}名字不可以为空！{FCOLOR/12}\\
_<重新输入/@@确定体力爆点名字>
#ELSEACT
goto @检测体力角色名字
[@检测体力角色名字]
#IF
equal A0 %USERNAME
#SAY
_{FCOLOR/1}我不能给当前人物操作！{FCOLOR/12}\
_请用这个帐号的其他人物来进行操作！\
<关闭[url=]/@exit[/url]>
#ACT
break
#IF  
#ACT
     FormatStr "FLD_CHARACTER='%s'" %A0
     ReadValueSql  "TBL_CHARACTER" %A9 "FLD_CHARACTER,FLD_USERID,FLD_EXTRAHP"  [@体力角色名字检测]
[@体力角色名字检测()]
#ACT
      Mov  A1  %ARG(1)
      Mov  A2  %ARG(2)
      Mov  D0  %ARG(3)
#IF
     !Equal  A2  %USERID
#SAY
{FCOLOR/1}你确定<$OUTPUT(A0)>和你是在一同一个帐号里？！\\
<关闭[url=]/@exit[/url]>
#ACT
break
#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %A0
ReadValueSql  "TBL_ABILITY"  %A9  "FLD_CHARACTER,FLD_MAXHP,FLD_LEVEL"  [@Point_maxhp]
[@Point_maxhp()]
#IF
#ACT
mov       A3   %ARG(1)
mov       D3   %ARG(2)
mov       D4   %ARG(3)
#IF
!LARGE D4 1200
#ACT
break
#say
游戏角色没有达到1200级,无法进行体力修改!
#IF
#say
<$output(A0)>角色上的人物体力值现在为:<$output(D3)>,您想改为多少?\
<请输入您想改的数值/@@输入改变的体力值>
[@@输入改变的体力值]
#ACT
MOV D1 %INPUTSTR
#IF
ESMALL D1 0
#SAY
对不起，输入的数值请不要小于0!\
<请输入您想改的数值/@@输入改变的体力值>
#ACT
BREAK
#IF
LARGE D1 65000
#SAY
对不起，输入的数值请不要超过65000!\
<请输入您想改的数值/@@输入改变的体力值>
#ACT
BREAK
#if
mov D2 %D1
#IF
large D3 %D0   ;体力值大于附加值
#ACT
DEC   D3 %D0   ;体力值减去附加值
GOTO @最后体力运算
#ELSEACT
INC D3 65536
DEC D3 %D0
GOTO @最后体力运算
[@最后体力运算]
#IF
LARGE D1 %D3
#ACT
DEC D1 %D3
FormatStr "FLD_CHARACTER='%s'" %A0
mov   A8  %A9
FormatStr "FLD_EXTRAHP='%s'" %D1
UPDATEVALUESQL "TBL_CHARACTER" %A8 %A9
SAVEVALUE "ParamControl\爆点记录.ini" 爆点帐号 %USERID 0
#say
恭喜你，<$output(A0)>的体力已经改变了!
#elseact
inc D1 65536
DEC D1 %D3
FormatStr "FLD_CHARACTER='%s'" %A0
mov   A8  %A9
FormatStr "FLD_EXTRAHP='%s'" %D1
UPDATEVALUESQL "TBL_CHARACTER" %A8 %A9
SAVEVALUE "ParamControl\爆点记录.ini" 爆点帐号 %USERID 0
#ELSESAY
恭喜你，<$output(A0)>的体力已经改变了,<$output(D2)>!

[@@确定魔力爆点名字]
#ACT
LOADVALUE D8 "ParamControl\爆点记录.ini" 爆点帐号 %USERID
#IF
EQUAL D8 0
#ACT
break
#say
您帐号下的所有角色都未进行过爆点修改确认!\
请先对需要修改的人物角色进行{FCOLOR/10}爆点确认{FCOLOR/12}!
#IF
#ACT
   mov A0 %INPUTSTR
#IF
   equal A0 ""
#SAY
_{FCOLOR/10}名字不可以为空！{FCOLOR/12}\\
_<重新输入/@@确定魔力爆点名字>
#ELSEACT
goto @检测魔力角色名字
[@检测魔力角色名字]
#IF
equal A0 %USERNAME
#SAY
_{FCOLOR/1}我不能给当前人物操作！{FCOLOR/12}\
_请用这个帐号的其他人物来进行操作！\
<关闭[url=]/@exit[/url]>
#ACT
break
#IF  
#ACT
     FormatStr "FLD_CHARACTER='%s'" %A0
     ReadValueSql  "TBL_CHARACTER" %A9 "FLD_CHARACTER,FLD_USERID,FLD_EXTRAmp"  [@魔力角色名字检测]
[@魔力角色名字检测()]
#ACT
      Mov  A1  %ARG(1)
      Mov  A2  %ARG(2)
      Mov  D0  %ARG(3)
#IF
     !Equal  A2  %USERID
#SAY
{FCOLOR/1}你确定<$OUTPUT(A0)>和你是在一同一个帐号里？！\\
<关闭[url=]/@exit[/url]>
#ACT
break
#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %A0
ReadValueSql  "TBL_ABILITY"  %A9  "FLD_CHARACTER,FLD_MAXmP,FLD_LEVEL"  [@Point_maxmp]
[@Point_maxmp()]
#IF
#ACT
mov       A3   %ARG(1)
mov       D3   %ARG(2)
mov       D4   %ARG(3)
#IF
!LARGE D4 1200
#ACT
break
#say
游戏角色没有达到1200级,无法进行体力修改!
#IF
#say
<$output(A0)>角色上的人物体力值现在为:<$output(D3)>,您想改为多少?\
<请输入您想改的数值/@@输入改变的魔力值>
[@@输入改变的魔力值]
#ACT
MOV D1 %INPUTSTR
#IF
ESMALL D1 0
#SAY
对不起，输入的数值请不要小于0!\
<请输入您想改的数值/@@输入改变的魔力值>
#ACT
BREAK
#IF
LARGE D1 65000
#SAY
对不起，输入的数值请不要超过65000!\
<请输入您想改的数值/@@输入改变的魔力值>
#ACT
BREAK
#if
mov D2 %D1
#IF
large D3 %D0   ;体力值大于附加值
#ACT
DEC   D3 %D0   ;体力值减去附加值
GOTO @最后魔力运算
#ELSEACT
INC D3 65536
DEC D3 %D0
GOTO @最后魔力运算
[@最后魔力运算]
#IF
LARGE D1 %D3
#ACT
DEC D1 %D3
FormatStr "FLD_CHARACTER='%s'" %A0
mov   A8  %A9
FormatStr "FLD_EXTRAmP='%s'" %D1
UPDATEVALUESQL "TBL_CHARACTER" %A8 %A9
SAVEVALUE "ParamControl\爆点记录.ini" 爆点帐号 %USERID 0
#say
恭喜你，<$output(A0)>的魔力已经改变了!
#elseact
inc D1 65536
DEC D1 %D3
FormatStr "FLD_CHARACTER='%s'" %A0
mov   A8  %A9
FormatStr "FLD_EXTRAmP='%s'" %D1
UPDATEVALUESQL "TBL_CHARACTER" %A8 %A9
SAVEVALUE "ParamControl\爆点记录.ini" 爆点帐号 %USERID 0
#ELSESAY
恭喜你，<$output(A0)>的魔力已经改变了,<$output(D2)>!
}
;;;;;;;;;;;;;;

yoyfm

这个不错，下载看看

liuhongrui09

嘎嘎嘎嘎嘎嘎

ljg6991

好东西，值得分享，十分感谢分享,

lyx6974

谢谢楼主分享，我会继续加油的