procedure domain;8 i5 G$ I+ Z1 c# c. e
begin
- E# g' y* b" g0 z6 i: V& X2 @ This_Npc.NpcDialog(This_Player,% Y! t2 W1 T' i+ A# ~- f1 P
'看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+
# `" |; h y7 P; L9 ?% u7 U '|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');8 i! _ t3 H% c2 V
end;
Procedure _DestoryItem;
, R) @ j- w3 Vbegin/ o1 o$ Q2 Q6 o+ ]2 b# o
This_NPC.NpcDialog(This_Player,
: d0 Y: L. U9 d( K+ K3 j3 s2 | '把需要销毁的东西放进去就行啦!\ \'+
+ }0 M) I7 b6 J% e '|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+/ P5 m7 m$ J, S, r, ~& ]
'|部分物品无法销毁。'+, e* a; E; R, J
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '
' O( n1 {. X2 f );
! d5 t( e: g" F2 X) o, |end;
Procedure _DestoryItem_1; //这里NPC弹出清理框
0 o: o" K; S/ d0 Z4 C: J/ S5 ]begin
0 t7 {* d$ s' }( o- K This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:'); / q% h" Y2 z" |: s3 ?# F
end;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口( \3 t# ]7 X' D$ C# X
begin& M) c2 N4 D2 I
result := true; //我们处理防刷的方式就在这里添加
8 x J+ O9 t' s; R' o* d% A case iName of
/ G3 J$ Y5 K) H '屠龙' : result := false; //这段的意思是将物品(屠龙 ) 定义为假
7 H( h6 \2 q9 M# X '这里添加叠加的物品名字' : result := false;
* H: G! C, c+ D' x% O" _ '服务器里面刷什么物品就加什么名字在这里' : result := false;
8 }+ S6 I. U b5 I* K2 ? '金刚石' : result := false;
8 ?( B2 e0 C9 @) i6 k2 |3 s '书页' : result := false;
; @ s. [9 _3 ]( ]& F! Q7 x2 @ '祝福油' : result := false; //这里我将三样物品定义为假 false
end;- T- i$ m& i% b/ h2 ]
end;
procedure CommitItem(AType:word);
5 j$ t0 j( E" d6 a. Jbegin
' m! X C6 _. O5 S4 n$ v if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收8 q# T# H& f) O# s. L& M, T
begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else
6 T6 z# @: l) Y9 ? This_Player.TakeByClientID(This_Item.ClientItemID);
, I) p' N! Z9 r& ~2 r! \4 b$ l This_Player.NotifyClientCommitItem(1,'');
# X9 N* K+ P' F2 q9 z, o This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);
3 E5 e" o- G% S0 ? end else
+ S' T: t" ^# A+ N This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能$ @, U4 S) D, @3 R" x& {2 M. N2 J* D
//通过清理脚本来将拆0物品变成负1值 叠加问题得到解决 , _1 M3 I* k5 n1 D
end;
; j" w& W- d, i% T) }9 E f//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决
+ L" C6 i7 q0 E9 u3 c8 H//希望这个脚本能帮助广大的GM朋友
Begin- ~ q3 Q, L. a* X9 i B
domain;
, I) J S8 B5 Pend.