procedure domain;9 d2 W. D7 i) n0 f/ P( @4 [$ V- X# n
begin0 C# V' O5 r0 A: l( P# J2 ^
This_Npc.NpcDialog(This_Player,/ ]/ q: ~( s T: C: z( S9 }
'看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+
& y8 _( N* ~3 {9 ?" a '|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');
7 p" A ~ @$ _) qend;
Procedure _DestoryItem;
; W: J( h# r$ zbegin: i' Z/ n( s& f4 r
This_NPC.NpcDialog(This_Player,) F! Y X$ C# Q0 y: ]5 j$ @8 Z5 z" V
'把需要销毁的东西放进去就行啦!\ \'+
. g) O1 k# `) e# P3 b '|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+, \/ b) c K5 _5 d8 M+ C+ c3 [
'|部分物品无法销毁。'+, [# W, R w3 @ W' ^
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 ': x" ~9 p% C) Q# v* \. ?
);
- I$ V7 p9 C! d0 ]$ e- eend;
Procedure _DestoryItem_1; //这里NPC弹出清理框
1 N8 m5 p8 o) D S% E& s. tbegin& X1 \2 y+ X" `; |) ~7 ]2 a; l% d
This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:');
, |( B$ g: Z( l; }$ B4 Eend;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口
' f+ A9 t4 Q$ p% t* X5 z$ d# wbegin9 I% `/ Q; W# ~: S, C( S, I! ?
result := true; //我们处理防刷的方式就在这里添加) `: g" e: i5 O. M
case iName of" _5 |2 b; n) Z- [
'屠龙' : result := false; //这段的意思是将物品(屠龙 ) 定义为假
5 s3 P* |0 P% t- |9 Z '这里添加叠加的物品名字' : result := false;
) Y2 l) B* ?" P: D! Y9 W# C '服务器里面刷什么物品就加什么名字在这里' : result := false;
1 K+ x w9 B- I2 a! `+ Q+ e+ u9 `: z '金刚石' : result := false;
4 \) ~" {+ D: G' i '书页' : result := false; " Z* s! |1 w O* p* k( ~" s- U% b
'祝福油' : result := false; //这里我将三样物品定义为假 false
end;
" Z' ~( r) D# K$ V* D& Send;
procedure CommitItem(AType:word);
& n; `% l9 U( n* M9 mbegin- ~8 K3 Q. J& s* K
if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收
( A7 F/ Y9 P, C. q begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else& A3 f* F2 A' H; s5 }1 z
This_Player.TakeByClientID(This_Item.ClientItemID);6 Y( r, t& e3 e
This_Player.NotifyClientCommitItem(1,'');. e0 s- r* {0 n" U- t1 \0 s2 p
This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);
% C7 k7 g9 T7 f$ L0 C5 K0 L end else 9 X( f ^2 h* L$ B b
This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能9 |6 A5 p7 d- T* I
//通过清理脚本来将拆0物品变成负1值 叠加问题得到解决 . W2 c3 u. W: o' f
end;
1 y- Q6 y; C4 b& F9 R, P" q//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决 3 b3 K* r9 d& q% _
//希望这个脚本能帮助广大的GM朋友
Begin' f: e3 T6 y+ h
domain;
4 U$ V2 q/ [2 x6 G/ ?. Dend.