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

procedure domain;. J& G2 W+ e( q5 M, E1 w1 p
begin, X3 l' y7 D' P7 v  n: e1 G
  This_Npc.NpcDialog(This_Player,
. w' x: f  S$ b   '看来你需要我的帮助，\'+

   '如果你有不要的物品，我这里可以销毁\ \'+9 [6 k$ K0 A" O# w: ]' E
   '|{cmd}<清理垃圾/@DestoryItem>\'+

   '|{cmd}<退出/@doexit>');! J9 q* u& m) T- ?/ r& q% u) t
end;

Procedure _DestoryItem;1 c2 l9 ?. V3 a+ i9 R7 K  c& C0 |* s
begin! ?+ N8 K% Q& ?2 y0 M  `
   This_NPC.NpcDialog(This_Player,8 L9 A- T' t% p- _2 _9 a* v9 \
   '把需要销毁的东西放进去就行啦！\ \'+( h, L0 V" @: h8 F$ O
   '|请注意，物品销毁后将<消失/c=red>，无法找回，请<谨慎操作/c=red>！\'+. @: r9 W* G- F  C* R7 |' {: g. K
   '|部分物品无法销毁。'+
4 e5 @: V- Y: a3 d& j+ F   '|{cmd}<开始销毁/@DestoryItem_1>    //脚本的开始的接口            '  s) A6 J2 J" C3 B; s, q
   );  O4 z# A7 p' S1 G- v" E6 H
end;

Procedure _DestoryItem_1; //这里NPC弹出清理框
, n4 b% V1 K2 S+ Ebegin
5 v- M7 O0 ^1 x   This_NPC.Click_CommitItem(This_Player,1,'待销毁道具：');  6 `$ O% Y$ o/ t% l
end;

//-------------删除道具--------------------

function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口
; K- _8 p. ^7 i- Zbegin: @' e+ Z' q4 y% E  t, s
    result := true;      //我们处理防刷的方式就在这里添加
4 o8 b( j" H- g8 b  ^    case iName of) z, F- k5 j$ Y& n: U& X
        '屠龙' : result := false;   //这段的意思是将物品（屠龙 ）  定义为假
# z0 H! q8 P9 @, N7 b9 j! C& @       '这里添加叠加的物品名字' : result := false;
& ~8 W, g& }, }1 S7 P( N/ Y      '服务器里面刷什么物品就加什么名字在这里' : result := false;   
$ {- Q6 a4 p+ ~3 n      '金刚石' : result := false;
* g" U) `2 w" C      '书页' : result := false;
; B7 d) Y' N, I1 R) l     '祝福油' : result := false; //这里我将三样物品定义为假 false

    end;
/ ]0 S# J% a: Y( X% ?4 T+ J, Rend;

procedure CommitItem(AType:word);
! T" e: j! I! o) ~. [3 mbegin# y5 Z: }) Q. w$ Y8 K+ E& K# ]8 y8 l7 Y
    if NotDestroy(This_Item.ItemName) then   //这里   NotDestroy 如果等于 清理框的物品名 定义为真 执行回收
  `/ b8 b0 w7 t8 u    begin         //刚刚我们定义了三样物品为假 FALSE  脚本执行到这的时候判断为假执行 end else5 K7 d8 _$ `  F5 j" N/ \5 m
    This_Player.TakeByClientID(This_Item.ClientItemID);  x# ?5 T0 `+ v# _8 `
    This_Player.NotifyClientCommitItem(1,'');
6 q! S/ e% [7 |6 n    This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);
) ~2 O: N" e( g    end else
1 R6 k2 h* D9 X# t9 |9 w/ g    This_Player.NotifyClientCommitItem(0,'该物品不可销毁，请投入可销毁的物品！'); ;   //脚本执行这段  物品不在清理的范围内这样叠加物品就不能  d* ]* d0 |# ?- {( r
                                                                                                                                      //通过清理脚本来将拆0物品变成负1值  叠加问题得到解决 4 \2 }4 P/ h3 |7 _! ^' f: n
end;" v* L- S8 L9 k$ W4 I
//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决 ' D7 a- s1 ~( P- B0 e
//希望这个脚本能帮助广大的GM朋友  

Begin
: ]! O" O. a0 T2 x0 S# O, |  domain;: Y- z1 a8 q: g2 ?  E, U4 Y; z
end.