procedure domain;
3 Q6 b2 C6 M# u7 E- d& Pbegin
3 T5 x5 I. W, a# {' J. ~$ C$ g This_Npc.NpcDialog(This_Player,
0 R& j8 e; F- d* P8 `. G '看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+9 l- o1 q# g2 X9 D* L
'|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');0 a A0 i0 ~* j4 O
end;
Procedure _DestoryItem;3 i4 U; a8 h1 l' r2 s
begin
2 v8 Q1 C' p$ A/ o; L4 v9 g This_NPC.NpcDialog(This_Player,
! l) y0 V* W+ z3 b# Y '把需要销毁的东西放进去就行啦!\ \'+
: n6 w- X' D6 s1 c; S; e% B '|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+
( j" X& R. x, f8 P* ^6 [% [ '|部分物品无法销毁。'+) X* q/ a) P& o) ^ G) x
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '
5 Q/ J! r6 J/ z4 u: R6 \ );% P3 r# ^2 R& Z' ?0 ?# \! r
end;
Procedure _DestoryItem_1; //这里NPC弹出清理框/ @( }3 U4 C9 k; D0 u2 q- b# M+ R
begin4 v" K8 C; A; @0 ]
This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:'); ; n% x+ ?! u' [' m D5 u
end;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口
1 y4 r1 B; {8 _! s! V' n; mbegin, A5 c* p7 L6 \6 H- Z: W
result := true; //我们处理防刷的方式就在这里添加
6 r, E- a' P+ C; n' c- z case iName of$ n* D" d a% r# y, {
'屠龙' : result := false; //这段的意思是将物品(屠龙 ) 定义为假
- P( z8 \7 [3 n' H' [ '这里添加叠加的物品名字' : result := false; ; |' \) J3 j% r2 c
'服务器里面刷什么物品就加什么名字在这里' : result := false;
- E' [! r, J& _9 f7 f7 f) x' A '金刚石' : result := false;! J9 |* [ L. S9 E" q" Z
'书页' : result := false; + O! \ y+ i. K* N
'祝福油' : result := false; //这里我将三样物品定义为假 false
end;- w0 J' e# ^! b ^! i- X/ d3 a
end;
procedure CommitItem(AType:word);
$ d" `8 I/ E9 _$ s1 w; [begin; c% D; t! W( F! `% C- D% u! p# s
if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收
, n8 I+ x- ?. E begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else6 E* g0 n- J; Q+ J S
This_Player.TakeByClientID(This_Item.ClientItemID);7 Y1 y; c, D' W: M5 Q$ ]; \) {5 y
This_Player.NotifyClientCommitItem(1,'');
" x1 F/ v& F8 B G/ y+ j1 Y" q This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);
/ c: W: g8 \% W# o* x: ^ end else 5 a' m! j! H y, a- u+ \/ }
This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能( C! b, Q& s v" \
//通过清理脚本来将拆0物品变成负1值 叠加问题得到解决
1 f, @8 J# P+ T% T, V+ Send;
3 S! {) o2 V+ ]//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决
$ b) J8 ] Q7 W//希望这个脚本能帮助广大的GM朋友
Begin( S/ l1 T: \- \: B' l0 F$ C
domain;$ f0 J$ i. z4 }% b$ j7 P8 V
end.