夜游神论坛,传奇一条龙,GM论坛,GM部落

 找回密码
 立即注册

QQ登录

只需一步,快速开始

安全 996 php 88A
查看: 3470|回复: 9

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

  [复制链接]

签到天数: 806 天

[LV.10]以坛为家III

3138

主题

3879

帖子

3万

钻石

Rank: 9Rank: 9Rank: 9

积分
7017

最佳新人活跃会员推广达人以坛为家灌水之王热心会员

QQ
发表于 2018-1-3 21:40:30 | 显示全部楼层 |阅读模式
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@体力爆点改变]
{
#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)>!
}
;;;;;;;;;;;;;;






上一篇:传奇三服务端离线挂机程序 - 0721插件版
下一篇:传奇3任务系统-江湖事迹
锄禾日当午,签到不辛苦...
回复

使用道具 举报

签到天数: 1 天

[LV.1]初来乍到

0

主题

102

帖子

526

钻石

Rank: 1

积分
102
发表于 2018-1-5 10:57:17 | 显示全部楼层
这个不错,下载看看
GM论坛-速记=mir300.com,传奇服务端,传奇版本库,GM部落,gm基地,传奇3技术论坛,传奇3论坛
回复

使用道具 举报

签到天数: 1 天

[LV.1]初来乍到

1

主题

225

帖子

158

钻石

Rank: 2

积分
227
发表于 2018-1-20 21:11:24 | 显示全部楼层
嘎嘎嘎嘎嘎嘎
回复

使用道具 举报

签到天数: 562 天

[LV.9]以坛为家II

1

主题

501

帖子

1475

钻石

Rank: 3Rank: 3

积分
503
发表于 2018-11-23 08:53:06 | 显示全部楼层
好东西,值得分享,十分感谢分享,
...
回复

使用道具 举报

签到天数: 340 天

[LV.8]以坛为家I

0

主题

1167

帖子

1391

钻石

Rank: 4

积分
1167
发表于 2019-6-21 12:13:09 | 显示全部楼层
谢谢楼主分享,我会继续加油的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

传奇广告代理|传奇脚本|微变传奇|单职业传奇|热血传奇|传奇私服|GM论坛|英雄合击|小黑屋|百度统计|夜游神论坛 |网站地图

Powered by Discuz! X3.4© 2001-2013 Comsenz Inc.