procedure domain;& `4 ? h/ Q) y; b
begin- ~2 Q2 o$ ^3 S" r
This_Npc.NpcDialog(This_Player,. V% N/ X2 }9 d# h
'看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+
8 X& i$ G# w. i0 _ '|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');
7 r1 s6 S! B! r4 q, f# xend;
Procedure _DestoryItem;4 B" m* U, E% D3 ~6 i3 |: f3 o
begin
' }+ o6 B4 ~; ?6 Q, \7 a This_NPC.NpcDialog(This_Player,7 e2 X- q- |8 s
'把需要销毁的东西放进去就行啦!\ \'+
p7 L( H, r" E1 j% y '|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+
, C6 i* b" n3 }/ U2 N: X '|部分物品无法销毁。'+# }+ }4 C i& Y& f- r
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '7 R" G7 I: I7 [. g3 r( j$ J g
);' z7 E9 `- M9 b7 E( r: M( Y
end;
Procedure _DestoryItem_1; //这里NPC弹出清理框; k! c9 O5 u7 Z& M" N* N# v9 T: N6 R
begin; s7 d9 Y9 m4 a* o& g
This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:'); + n1 {. f" o0 r& b* J2 h9 m
end;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口
" G7 F" S3 C9 r5 ?begin: o0 r. [: x. R: t0 m/ b8 |2 U1 E0 I
result := true; //我们处理防刷的方式就在这里添加
@! Q* A. |. \# s1 }9 B K case iName of% W; H0 k: |7 O* {6 D- ^7 Z
'屠龙' : result := false; //这段的意思是将物品(屠龙 ) 定义为假
& j3 ?; l5 o# [ '这里添加叠加的物品名字' : result := false; [ k- |- Y$ q7 ]0 M c
'服务器里面刷什么物品就加什么名字在这里' : result := false;
8 ?/ E2 K" _1 a) w '金刚石' : result := false;
( o/ y- g8 E2 F$ L '书页' : result := false; f/ `+ ]+ M; v( N% n: v
'祝福油' : result := false; //这里我将三样物品定义为假 false
end; \4 t- t% ^# @
end;
procedure CommitItem(AType:word);
1 u0 [7 U% [) m" }5 ubegin
% F7 ~& T+ B Z% \8 v) Z. `( q if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收
7 r# v. {; V$ Y$ w n begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else1 ^' c f: Z! y4 _. d/ K6 q. C
This_Player.TakeByClientID(This_Item.ClientItemID);: L( c. z q. b) L e
This_Player.NotifyClientCommitItem(1,'');
8 e( [0 c; r: l5 k This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);
4 n2 O- P5 q2 M; C end else
0 b" I0 T5 u4 y& m; ? This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能
/ t& j$ N2 I4 { //通过清理脚本来将拆0物品变成负1值 叠加问题得到解决
$ k/ [, y) ?/ N3 z ?end;
" k# V2 G( o4 b2 N" S//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决 + o* f; g0 ~- G& O" V6 R9 E# {* a
//希望这个脚本能帮助广大的GM朋友
Begin p3 D V4 o% ?) s$ ]3 X$ d- H* B
domain;
2 p. A( u3 @" T2 Qend.