战神引擎叠加物品简单防刷教程

管理员

——能双击的物品——

直接说就是战神引擎自带的BUG能双击使用的物品拆分0个出来然后无限使用成负数个，

使用后小退上线负数就会变成叠加的最大数999(具体数字看数据设置多大)。

这个的防止方法基本就是把数据库的这个叠加物品做成不不能叠加，

修改方法就是：数据库取消物品的叠加（打开数据库找到mir3库，在stditems表里面，

我们找到可以叠加物品的，在stdmode字段设置为0，shape字段也设置为0，DuraMax这个是持久字段设置为1），

如果我们需要这个物品叠加使用可以写成仓库脚本比如这样的:

  a7 i" O1 w5 z6 T) i( M' z2 l

——不能双击的材料物品——

不能使用的材料物品想刷的话基本就是拆分成0个，

然后找清除垃圾NPC清除这个0个的材料然后小退登录这个物品数量就会变成能叠加的最大数量999(具体数字看数据设置多大)。

修改方法就是：材料需要的多做成不可叠加有点不好操作，不过你也可以做成仓库脚本使用，

不过最最简单的方法就是既需要用到清理垃圾的NPC我们就在这个NPC做个限制就可以了！

具体代码如下

1. program mir2;
   
2. 
   6 h0 S! e9 q% i/ b7 F& ]1 I
3. procedure _exit;
   
4. begin
   2 x: _5 F2 p8 f
5.     This_NPC.CloseDialog(This_Player);
   + l& H; ?) f5 |6 v% r2 b) Z
6.     exit;
   
7. end;
   
8. 
   
9. Procedure _DestoryItem;
   
10. begin
    $ @1 N" w8 D5 \
11.    This_NPC.NpcDialog(This_Player,
    6 M) b+ ^( l+ v- _7 b1 n
12.    '把需要销毁的东西放进去就行啦！\ \'+
    
13.    '|请注意，物品销毁后将<消失/c=red>，无法找回，请<谨慎操作/c=red>！\'+
    % A/ l2 g7 I* V6 p9 o' f0 j$ b- C  k
14.    '|部分物品无法销毁。'+
    
15.    '|{cmd}<开始销毁/@DestoryItem_1>                '
    % L* b; z0 |! d& ^; Q* Q
16.    );
    
17. end;
    
18. Procedure _DestoryItem_1;
    
19. begin
      t9 u' F$ i, M; z  _2 b  n
20.    This_NPC.Click_CommitItem(This_Player,1,'待销毁道具：');
    
21. end;
    
22. //-------------删除道具--------------------
    4 R+ M! t8 g3 b
23. function NotDestroy(iName : string):boolean;
    
24. begin
    
25.     result := true;
    
26.     case iName of
    
27.         '魔血石(小)' : result := false;
    2 F% ?  v& B8 d
28.         '魔血石(中)' : result := false;
    
29.         '魔血石(大)' : result := false;
    
30.         '魔血石(小)(绑)' : result := false;
    5 B, U! \- {) y4 f2 R3 @7 M1 Y
31.         '魔血石(中)(绑)' : result := false;
    
32.         '魔血石(大)(绑)' : result := false;
    + G' D) y% z* e( v1 e, K% g
33.         '气血石(小)' : result := false;
    
34.         '气血石(中)' : result := false;
    
35.         '气血石(大)' : result := false;
    ; y8 O3 G; ^! z1 i$ B. M& n1 {
36.         '气血石(小)(绑)' : result := false;
    ! q6 ~: F$ [4 H0 L8 _2 r2 D
37.         '气血石(中)(绑)' : result := false;
    
38.         '气血石(大)(绑)' : result := false;
    5 q8 `5 I- n% t- N' t$ u' o% K7 P
39.         '幻魔石(小)' : result := false;
    ) L' d: c0 t3 |0 i. ^. x
40.         '幻魔石(中)' : result := false;
    . k2 f2 d" h' E2 N# c
41.         '幻魔石(大)' : result := false;
    ( g1 p% H8 Q: D* g' f6 D- |# U
42.         '幻魔石(小)(绑)' : result := false;
    
43.         '幻魔石(中)(绑)' : result := false;
    / H* v" r" W+ C! w+ w  p2 d
44.         '幻魔石(大)(绑)' : result := false;
    ( `$ t2 y0 p# ~5 S% g3 z' T
45.         
    
46.     end;
    . w& E1 B$ L! R5 @% t9 ?
47. end;
    
48. procedure CommitItem(AType:word);
    9 d. M' r' z2 \* c6 G" f
49. var bkxh : string ;
    
50. begin
    4 D6 b) C" b1 [0 s! }
51. bkxh := This_Item.ItemName;
    
52. if (bkxh <> '金刚石' ) and (bkxh <> '书页' ) then    // 这里添加修改不可销毁的物品
    . \$ q! o# ?9 W/ {
53. begin
    
54.     if NotDestroy(This_Item.ItemName) then
    
55.     begin
    
56.     This_Player.TakeByClientID(This_Item.ClientItemID);
    
57.     This_Player.NotifyClientCommitItem(1,'');
    + |  ?" G# g) v6 H
58.     This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);
    ; w0 m' [' l: n1 W! \
59.     end else
    
60.     This_Player.NotifyClientCommitItem(0,'该物品不可销毁，请投入可销毁的物品！');
    7 W+ f; }# i6 D4 r
61. end
    
62. else
    - ^( b+ j4 H& |  L
63. This_Player.NotifyClientCommitItem(0,'该物品不可销毁，请投入可销毁的物品！');
      A: Y) v1 U& ]) G7 h9 b5 i* R
64.          
    
65. end;
    
66. //------
    
67. begin
    - K2 G5 ^! \" W0 W7 h
68.     This_NPC.NpcDialog(This_Player,
    4 u, ~& @5 s$ J9 i7 g" Q
69. +'我可以把你不用的物品销毁\'
    
70. +'请慎重考虑哦！'
    / B* Q; a6 D! Q* y' Y* m3 U
71.     +'|{cmd}<物品销毁/@DestoryItem>\'
    3 d" V$ N2 e6 V; a) f
72.     );
    - B# T& w/ |9 Y1 p8 W8 b# S) b" b7 ?
73. end.

复制代码

if (bkxh <> '金刚石' ) and (bkxh <> '书页' ) and (bkxh <> '物品名称' ) then // 这里添加修改不可销毁的物品

直接在后台添加你叠加的材料物品，这样就无法销毁也就拆分的0个就一直是0个！

+ B* [* f" v5 h. F