设为首页收藏本站 国外访客:

 找回密码
 立即注册
搜索
查看: 187

[教程/工具] 传奇脚本免费分享-捡到更强的装备则向玩家提示

[复制链接]
灌水成绩
17703
95
18202
主题
帖子
积分

等级头衔

ID : 1

管理员

积分成就 威望 : 9
贡献 : 9
下载币 : 377
在线时间 : 1639 小时
注册时间 : 2013-9-5
最后登录 : 2026-6-7

发表于 昨天 22:49 | 显示全部楼层 |阅读模式
免责
使用了热血传奇官方十周年自带ui,安全健康绿色环保(ui_n.wzl)/ _$ j" v5 k; [6 S
具有装备位置判断,是武器就比较捡起的武器和正在使用的武器* ~% x( v5 `% W& [9 B& U$ [5 \
具有职业判断,比如角色是法师,就比较捡起的装备和地上的装备两者的魔法攻击力7 G% o5 B; r9 p1 c" r% _5 V. f
具有等级判断,如果等级太高则不弹出提示框' g- [5 w9 C5 v* a% t4 @
具有性别判断(衣服),比如男角色捡起女衣服时不会弹出
建议有一定脚本基础的人根据以下提示使用脚本:
2 m+ `2 o4 N( ~将此脚本安装于QF中,作为捡取事件[@PickUpItemEX]中的一部分
& Q+ e# D8 W8 p0 u+ q: _5 R( H, {演示图片中对话框里的图片素材需要自己调整,不会的话请自行搜索或请教他人- a" o# p8 i8 K3 R$ T9 i
演示图片中的对话框,位置是可调的,只需找到OPENMERCHANTBIGDLG语句,修改它的第五第六个参数(是X,Y的微调参数)
# M$ ?. R- P1 k  q+ m脚本中使用了变量P0P1P2S0S1S2等,其实是很不建议这么做的;请在文本编辑器内使用ctrl+h,把每个变量替换成你想用的变量(建议自定义变量,比如n$捡起并比较0,S$捡起并比较0等
请注意和其他脚本冲突的情况.比如这个脚本放在拾取鉴定脚本之后继续执行才比较合适
扩展须知:
  D% m* ^& n( Y0 a此脚本只认装备的攻击力魔法力和精神力值(先看最大值再看最小值),如果想加入其他属性的比较(比如防御)...就自个看着办吧
' Z+ K" h" ]: K+ B" W' X此脚本只认等级大小的判断,如果想加入其他判断,比如职业&等级那种...还是自个看着办吧,但比上一个简单* t6 y- J' e9 G. o

* z; B7 A- @: F( a以上功能是可以做到的,但脚本技术上和逻辑上稍微有些难度,,萌新可能搞不定
脚本:
[@PickUpItemEX]#actLINKPICKUPITEMmov p0 0GetItemFieldValue -1 needlevel p0GetItemFieldValue -1 need p1#ifequal p1 0small <$Level> <$STR(P0)>#actbreak#elseactmov p0 0GetItemFieldValue -1 stdmode p0#ifequal <$GENDER> 0equal <$STR(P0)> 10#actgoto @捡物比较(0,<$Job>)#ifequal <$GENDER> 1equal <$STR(P0)> 11#actgoto @捡物比较(0,<$Job>)#orequal <$STR(P0)> 5equal <$STR(P0)> 6#actgoto @捡物比较(1,<$Job>)#ifequal <$STR(P0)> 30#actgoto @捡物比较(2,<$Job>)#orequal <$STR(P0)> 19equal <$STR(P0)> 20equal <$STR(P0)> 21#actgoto @捡物比较(3,<$Job>)#orequal <$STR(P0)> 15#actgoto @捡物比较(4,<$Job>)#orequal <$STR(P0)> 24equal <$STR(P0)> 26#actgoto @捡物比较(5,<$Job>)#orequal <$STR(P0)> 22equal <$STR(P0)> 23#actgoto @捡物比较(7,<$Job>)#ifequal <$STR(P0)> 25#actgoto @捡物比较(9,<$Job>)#ifequal <$STR(P0)> 64#actgoto @捡物比较(10,<$Job>)#ifequal <$STR(P0)> 62#actgoto @捡物比较(11,<$Job>)#ifequal <$STR(P0)> 63#actgoto @捡物比较(12,<$Job>)[@捡物比较]#actmov p0 <$SCRIPTPARAM1>mov p1 <$SCRIPTPARAM2>#ifequal p1 0#actmov s0 dc#ifequal p1 1#actmov s0 mc#ifequal p1 2#actmov s0 sc#if#actMOV p1 0mov p2 0GetItemFieldValue -1 h<$STR(S0)> p1GetItemFieldValue <$SCRIPTPARAM1> h<$STR(S0)> p2#iflarge p1 <$STR(P2)>#actgoto @捡物对话框提示break#elseactGetItemFieldValue -1 1<$STR(S0)> p1GetItemFieldValue <$SCRIPTPARAM1> 1<$STR(S0)> p2#iflarge p1 <$STR(P2)>#actgoto @捡物对话框提示break#orequal p0 5equal p0 7#actinc p0 1goto @捡物比较(<$STR(P0)>,<$Job>)[@捡物对话框提示]#actOPENMERCHANTBIGDLG 1 1590 0 3 -100 -250 1 380 3 0mov s1 无mov s2 无GetItemFieldValue -1 name_g s1GetUserItemName <$STR(P0)> S2GetItemFieldValue -1 idx p1clearLinkItemmov s0 <ItemShow:<$STR(P1)>:0:18:23:0:3>inc s0MOV S3 <ImgEx:1:1668:1669:1670:5:-25:/@捡物换装备(INC S3 <$STR(S1)>,<$STR(P0)>)>#say<$STR(S0)> \      恭喜你获得更强的装备[<$STR(S1)>]\      是否替换身上正在穿的[<$STR(S2)>]?\          是          否\       <$STR(S3)>    <ImgEx:1:1668:1669:1670:12:-25:/@EXIT>[@捡物换装备]#actclosemov s0 <$SCRIPTPARAM1>mov p0 <$SCRIPTPARAM2>#ifCheckItem <$STR(S0)> 1 0 1#actTakeOnItem <$STR(S0)> <$STR(p0)>#elseactsendmsg 5 你的背包里已没有此装备!
20201215最新更新
优化了脚本(减少变量的占用,和解除一了不必要的装备绑定状态); T% t" P! m  @9 o
因为好多人都在给我赞,所以我受到了鼓励!
* Q& i: J! h& ?# C/ d然后就花了很多精力来优化它
[@PickUpItemEX]#actLINKPICKUPITEM mov p0 0GetItemFieldValue -1 needlevel p0GetItemFieldValue -1 need p1#ifequal p1 0small <$Level> <$STR(P0)>#actupdateitem -1clearLinkItembreak#elseactmov p0 0GetItemFieldValue -1 stdmode p0#ifequal <$GENDER> 0equal <$STR(P0)> 10#actgoto @捡物比较(0)break#ifequal <$GENDER> 1equal <$STR(P0)> 11#actgoto @捡物比较(0)break#orequal <$STR(P0)> 5equal <$STR(P0)> 6#actgoto @捡物比较(1)break#ifequal <$STR(P0)> 30#actgoto @捡物比较(2)break#orequal <$STR(P0)> 19equal <$STR(P0)> 20equal <$STR(P0)> 21#actgoto @捡物比较(3)break#orequal <$STR(P0)> 15#actgoto @捡物比较(4)break#orequal <$STR(P0)> 24equal <$STR(P0)> 26#actgoto @捡物比较(5)break#orequal <$STR(P0)> 22equal <$STR(P0)> 23#actgoto @捡物比较(7)break#ifequal <$STR(P0)> 25#actgoto @捡物比较(9)break#ifequal <$STR(P0)> 64#actgoto @捡物比较(10)break#ifequal <$STR(P0)> 62#actgoto @捡物比较(11)break#ifequal <$STR(P0)> 63#actgoto @捡物比较(12)break[@捡物比较]#actmov p0 <$SCRIPTPARAM1>#ifequal <$Job> 0#actmov s0 dc#ifequal <$Job> 1#actmov s0 mc#ifequal <$Job> 2#actmov s0 sc#if#actMOV p1 0mov p2 0GetItemFieldValue -1 h<$STR(S0)> p1GetItemFieldValue <$SCRIPTPARAM1> h<$STR(S0)> p2#iflarge p1 <$STR(P2)>#actgoto @捡物对话框提示break#elseactGetItemFieldValue -1 1<$STR(S0)> p3inc p1 <$STR(p3)>GetItemFieldValue <$SCRIPTPARAM1> 1<$STR(S0)> p3inc p2 <$STR(p3)>#iflarge p1 <$STR(P2)>#actgoto @捡物对话框提示break#orequal p0 5equal p0 7#actinc p0 1goto @捡物比较(<$STR(P0)>)#elseactupdateitem -1clearLinkItem[@捡物对话框提示]#actOPENMERCHANTBIGDLG 1 1590 0 3 -100 -250 1 380 3 0mov s1 无mov s2 无GetItemFieldValue -1 name_g s1GetUserItemName <$STR(P0)> S2GetItemFieldValue -1 idx p1updateitem -1clearLinkItemmov s0 <ItemShow:<$STR(P1)>:0:18:23:0:3>inc s0 MOV S3 <ImgEx:1:1668:1669:1670:5:-25:/@捡物换装备(INC S3 <$STR(S1)>,<$STR(P0)>)>#say<$STR(S0)> \      恭喜你获得新装备[<$STR(S1)>]\      是否替换身上的[<$STR(S2)>]?\          是          否\       <$STR(S3)>    <ImgEx:1:1668:1669:1670:12:-25:/@EXIT>[@捡物换装备]#actclosemov s0 <$SCRIPTPARAM1>mov p0 <$SCRIPTPARAM2>#ifCheckItem <$STR(S0)> 1 0 1#actTakeOnItem <$STR(S0)> <$STR(p0)>#elseactsendmsg 5 你的背包里已没有此装备!
! r/ y2 ?- {. C6 ]; n1 D& p- Y' S- v% y
免责
帖子地址打造全网最多免费游戏网站
今日来客 列表模式
回复

使用道具 举报

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

本版积分规则

QQ|Archiver|手机版|小黑屋|蔡州手游 |网站地图 wapmz.com

GMT+8, 2026-6-7 09:15