procedure domain;/ w$ e1 U, e8 F4 N6 x
begin _0 c9 u. {. z( O4 J3 R2 ~ X
This_Npc.NpcDialog(This_Player,
6 O- l7 I; q( \: u2 X9 K$ o '看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+0 ~4 g9 i1 Y# v3 [; j" W4 ]
'|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');! L, q) z9 p) m0 _
end;
Procedure _DestoryItem;( S6 `$ {3 x' [) g3 h3 d2 t5 p4 n
begin
# I- d. ?* \* ?3 W( ~( P This_NPC.NpcDialog(This_Player,5 p$ b; |7 K. y" [. @4 N( \
'把需要销毁的东西放进去就行啦!\ \'+ h/ H3 Q% M2 x
'|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+2 Y4 {7 z% J5 Y
'|部分物品无法销毁。'+$ i6 r/ B2 `, S) v! o
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '. R, b$ [; m( m' M* ?6 D8 N
);4 v$ [% C( e: l) z9 S6 a8 i
end;
Procedure _DestoryItem_1; //这里NPC弹出清理框3 L2 _% n+ p, d& {9 s% E
begin
% F2 g( Q, T+ a7 [ This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:'); 6 E( D: [. O. m8 {
end;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口* r" X; a1 g% g, b2 W7 t3 K d& n
begin) W1 D1 u( a- d( Z5 D9 Q
result := true; //我们处理防刷的方式就在这里添加
6 N$ \9 W1 Z1 Q) k4 d" x9 K: t; d; U case iName of3 r7 p" j( e% r4 L$ O3 Q
'屠龙' : result := false; //这段的意思是将物品(屠龙 ) 定义为假
- T i( q& n6 v '这里添加叠加的物品名字' : result := false;
: C$ y1 Y) `) v7 `5 b E7 K '服务器里面刷什么物品就加什么名字在这里' : result := false;
/ p$ z, l/ T. h- i4 J '金刚石' : result := false;9 w, x- C" @% `3 s9 Q
'书页' : result := false;
$ q, }- m9 e* k, k/ e4 n '祝福油' : result := false; //这里我将三样物品定义为假 false
end;
$ G7 |! z+ v: r5 Qend;
procedure CommitItem(AType:word);8 g0 v7 k e! v& K) W; }, C
begin
; t+ G8 v) ^. n if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收
4 I! V. ^5 I# U. V" d6 j' c) J begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else# g) _8 I" v6 q5 L( S+ M1 I
This_Player.TakeByClientID(This_Item.ClientItemID);
. u; c7 h( [' r, [ This_Player.NotifyClientCommitItem(1,'');) I+ |; A6 x5 k% f' P% q$ C( }
This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);; J1 K2 e* { M, w5 C
end else # k. c5 b+ N6 U
This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能6 z6 h1 x7 \/ J' D" X" I
//通过清理脚本来将拆0物品变成负1值 叠加问题得到解决
5 @* K$ p$ i$ \+ J |3 C% Lend;) s+ P1 w) F. Y3 m* c
//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决
$ `$ B1 O2 M3 V# X//希望这个脚本能帮助广大的GM朋友
Begin
; v0 [. J9 H6 l M% R% ~ domain;
9 w4 s( M" V. W# P! o* jend.