传奇脚本免费分享-捡到更强的装备则向玩家提示

china0396

使用了热血传奇官方十周年自带ui,安全健康绿色环保(ui_n.wzl)
/ M& a* W9 S' q" O1 k4 V* W/ j# M具有装备位置判断,是武器就比较捡起的武器和正在使用的武器
) x# M* J3 F' S0 Y2 F; g具有职业判断,比如角色是法师,就比较捡起的装备和地上的装备两者的魔法攻击力
, ~0 _6 B" }0 _* ?具有等级判断,如果等级太高则不弹出提示框
具有性别判断(衣服),比如男角色捡起女衣服时不会弹出

建议有一定脚本基础的人根据以下提示使用脚本:
  k2 z2 x" b: e: }5 \6 Q# J- A" p将此脚本安装于QF中,作为捡取事件[@PickUpItemEX]中的一部分
1 j* F) i+ G+ P" g, i1 k& [# n演示图片中对话框里的图片素材需要自己调整,不会的话请自行搜索或请教他人
9 L7 ^9 w4 ?% Y6 y4 n# N演示图片中的对话框,位置是可调的,只需找到OPENMERCHANTBIGDLG语句,修改它的第五第六个参数(是X,Y的微调参数)
  ~3 `8 i' a8 |脚本中使用了变量P0P1P2S0S1S2等,其实是很不建议这么做的;请在文本编辑器内使用ctrl+h,把每个变量替换成你想用的变量(建议自定义变量,比如n$捡起并比较0,S$捡起并比较0等

请注意和其他脚本冲突的情况.比如这个脚本放在拾取鉴定脚本之后继续执行才比较合适

扩展须知:
* u" z+ W( F  z8 @" l  s此脚本只认装备的攻击力魔法力和精神力值(先看最大值再看最小值),如果想加入其他属性的比较(比如防御)...就自个看着办吧
/ _8 _/ m. p6 X( L此脚本只认等级大小的判断,如果想加入其他判断,比如职业&等级那种...还是自个看着办吧,但比上一个简单

9 c# M$ p' T# h( X' Y% \. }) M以上功能是可以做到的,但脚本技术上和逻辑上稍微有些难度,,萌新可能搞不定

脚本:

[@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最新更新

优化了脚本(减少变量的占用,和解除一了不必要的装备绑定状态)
8 {+ |+ u0 B7 p/ s, E- c因为好多人都在给我赞,所以我受到了鼓励!
然后就花了很多精力来优化它

[@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 你的背包里已没有此装备!