procedure domain;
. \! D& B A, Abegin7 l4 I+ I' j5 e8 K
This_Npc.NpcDialog(This_Player,
" V! Q/ R& n' x '看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+- {8 n' e% ^. j! @+ |5 L6 e8 _
'|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');
. Y% S1 u5 [8 r2 U+ ?end;
Procedure _DestoryItem;0 w, v& T/ a% z ?' Z8 y' u
begin6 p1 i0 }% a% m2 H; G1 G
This_NPC.NpcDialog(This_Player,
+ O- S8 u$ ^# _7 r8 Z; h8 y '把需要销毁的东西放进去就行啦!\ \'+
7 L) Y( F* ~/ u( E '|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+
* }! l$ C# p, t% l '|部分物品无法销毁。'+' M2 u) V0 B& h8 ?
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '
- ]8 K3 ~* M/ i2 t+ N3 ]) W8 j7 J );
( z% Y4 q+ n* k- }, M2 T* \+ H6 pend;
Procedure _DestoryItem_1; //这里NPC弹出清理框
( I" b. Y- q4 z7 T# g$ Q" c* H$ qbegin* C2 }: w3 `- x, _, f* [ n1 `* b: F
This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:'); & U9 C) e7 t. M. M
end;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口6 W- ?( n4 M2 S" o( Y
begin, F! a# Z) q3 X
result := true; //我们处理防刷的方式就在这里添加
9 ?9 T" b8 R/ C& Z case iName of; H: u, i) l/ n1 b
'屠龙' : result := false; //这段的意思是将物品(屠龙 ) 定义为假5 F3 ? B: N5 m$ [
'这里添加叠加的物品名字' : result := false;
/ j1 T9 ^* V4 I6 Q '服务器里面刷什么物品就加什么名字在这里' : result := false; 5 Q$ [% L9 v! p$ n
'金刚石' : result := false;+ T2 {5 V) B$ o1 S
'书页' : result := false;
6 z5 Q8 S; P& r3 v& h" Q e& W4 L* N* q '祝福油' : result := false; //这里我将三样物品定义为假 false
end;/ k, \4 ]: B' L# e7 P
end;
procedure CommitItem(AType:word);" W3 o7 C6 | u: J! ^
begin
9 X" Q: l+ u7 W5 l if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收
4 L5 ]# {% N) y9 A. C8 S begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else
* K; C" h$ t0 C# h This_Player.TakeByClientID(This_Item.ClientItemID);
! c c# d, a/ A8 g1 \0 F# h" o& q This_Player.NotifyClientCommitItem(1,'');
0 J3 J/ ^9 E" ^- v This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);
6 Y5 ~* \2 j' y3 F! x% n end else
, W; R; C8 a0 ^: L$ ^4 [ This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能
+ f% n6 N- n( u5 F. W //通过清理脚本来将拆0物品变成负1值 叠加问题得到解决 ) l2 ?3 I# s( h, G( x1 Q
end;7 g/ n$ U! D B0 c7 c9 {! Y
//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决 7 Y; Y* _; m1 P, g
//希望这个脚本能帮助广大的GM朋友
Begin. n E% V8 B0 l1 }: j0 x* u, m
domain;
/ i4 G. i7 S# V% Rend.