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

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

[教程/工具] 【战神引擎】修复物品叠加防刷又不影响叠加的使用的教程

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

等级头衔

ID : 1

管理员

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

发表于 2026-4-25 15:31:00 | 显示全部楼层 |阅读模式
免责
战神的叠加物品可以通过背包拆了再用脚本清理垃圾回收让物品出现( x- w" j- o$ K8 v. \5 N
战神引擎刷叠加物品主要是通过垃圾清理脚本将叠加物品 清理成负1值,
下线在上线叠加物品的负1值通过下线服务器刷新
4 @8 h% D5 j" C- ]& |9 {将会出现叠加物品的最大叠加值* H# K" S) N' \  ?
别的方式还有就是祝福油 祝福油拆0后 将拆0 后的祝福油双击使用拆0后的祝福油变成负1值下线在上线
9 K. J+ c* }% ~3 g* L& i祝福油的叠加 将祝福油153的叠加代码改0这样祝福油就不会叠加. D8 S" q  h3 U7 C8 ?! Q2 z+ d
其他叠加物品的方法会将脚本上传,我会备注脚本的运行原理
脚本如下:
[backcolor=var(--local-bg-color)]
procedure domain;
. \! D& B  A, Abegin7 l4 I+ I' j5 e8 K
  This_Npc.NpcDialog(This_Player,
" V! Q/ R& n' x   '看来你需要我的帮助,\'+
   '如果你有不要的物品,我这里可以销毁\ \'+- {8 n' e% ^. j! @+ |5 L6 e8 _
   '|{cmd}<清理垃圾/@DestoryItem>\'+
   '|{cmd}<退出/@doexit>');
. Y% S1 u5 [8 r2 U+ ?end;
Procedure _DestoryItem;0 w, v& T/ a% z  ?' Z8 y' u
begin6 p1 i0 }% a% m2 H; G1 G
   This_NPC.NpcDialog(This_Player,
+ O- S8 u$ ^# _7 r8 Z; h8 y   '把需要销毁的东西放进去就行啦!\ \'+
7 L) Y( F* ~/ u( E   '|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+
* }! l$ C# p, t% l   '|部分物品无法销毁。'+' M2 u) V0 B& h8 ?
   '|{cmd}<开始销毁/@DestoryItem_1>    //脚本的开始的接口            '
- ]8 K3 ~* M/ i2 t+ N3 ]) W8 j7 J   );
( z% Y4 q+ n* k- }, M2 T* \+ H6 pend;
Procedure _DestoryItem_1; //这里NPC弹出清理框
( I" b. Y- q4 z7 T# g$ Q" c* H$ qbegin* C2 }: w3 `- x, _, f* [  n1 `* b: F
   This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:');  & U9 C) e7 t. M. M
end;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口6 W- ?( n4 M2 S" o( Y
begin, F! a# Z) q3 X
    result := true;      //我们处理防刷的方式就在这里添加
9 ?9 T" b8 R/ C& Z    case iName of; H: u, i) l/ n1 b
        '屠龙' : result := false;   //这段的意思是将物品(屠龙 )  定义为假5 F3 ?  B: N5 m$ [
       '这里添加叠加的物品名字' : result := false;
/ j1 T9 ^* V4 I6 Q      '服务器里面刷什么物品就加什么名字在这里' : result := false;   5 Q$ [% L9 v! p$ n
      '金刚石' : result := false;+ T2 {5 V) B$ o1 S
      '书页' : result := false;
6 z5 Q8 S; P& r3 v& h" Q  e& W4 L* N* q     '祝福油' : result := false; //这里我将三样物品定义为假 false
    end;/ k, \4 ]: B' L# e7 P
end;
procedure CommitItem(AType:word);" W3 o7 C6 |  u: J! ^
begin
9 X" Q: l+ u7 W5 l    if NotDestroy(This_Item.ItemName) then   //这里   NotDestroy 如果等于 清理框的物品名 定义为真 执行回收
4 L5 ]# {% N) y9 A. C8 S    begin         //刚刚我们定义了三样物品为假 FALSE  脚本执行到这的时候判断为假执行 end else
* K; C" h$ t0 C# h    This_Player.TakeByClientID(This_Item.ClientItemID);
! c  c# d, a/ A8 g1 \0 F# h" o& q    This_Player.NotifyClientCommitItem(1,'');
0 J3 J/ ^9 E" ^- v    This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);
6 Y5 ~* \2 j' y3 F! x% n    end else
, W; R; C8 a0 ^: L$ ^4 [    This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ;   //脚本执行这段  物品不在清理的范围内这样叠加物品就不能
+ f% n6 N- n( u5 F. W                                                                                                                                      //通过清理脚本来将拆0物品变成负1值  叠加问题得到解决 ) l2 ?3 I# s( h, G( x1 Q
end;7 g/ n$ U! D  B0 c7 c9 {! Y
//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决 7 Y; Y* _; m1 P, g
//希望这个脚本能帮助广大的GM朋友  
Begin. n  E% V8 B0 l1 }: j0 x* u, m
  domain;
/ i4 G. i7 S# V% Rend.

$ E% t8 w) h9 j4 t# Y) |  i' J$ D9 X- H8 U7 D: }( I1 F
免责
帖子地址打造全网最多免费游戏网站
今日来客 列表模式
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2026-6-11 06:44