procedure domain;
9 y, X$ I4 ]; P. x3 ~) O& abegin
, D9 ?( ?* Y3 Y This_Npc.NpcDialog(This_Player,
3 R6 S. U5 {2 H7 n5 i' l6 G# X, K! D '看来你需要我的帮助，\'+
'如果你有不要的物品，我这里可以销毁\ \'+0 G' T2 L( W* c# O* G. J M) X7 h2 Y
'|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');* ~% x# Z9 Q9 W# F
end;
Procedure _DestoryItem;% J$ ~( Z' x# \7 b1 A
begin
* s$ m7 b+ ^: _* A" D This_NPC.NpcDialog(This_Player,
" V/ h8 l- P3 W; P9 D '把需要销毁的东西放进去就行啦！\ \'+! N* |1 u! T p& \! y+ H k& ~
'|请注意，物品销毁后将<消失/c=red>，无法找回，请<谨慎操作/c=red>！\'+
/ O: `9 T9 q H- W '|部分物品无法销毁。'+ \. A2 a. f# a5 ^# e0 i6 N
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '
, B% i: h4 X ^5 O2 \ );( U' Y# A$ j& R% q7 ^0 M- f. B
end;
Procedure _DestoryItem_1; //这里NPC弹出清理框
6 l8 ]* i1 I- i- U; s+ }begin. J% y% `* J: i& ~3 K
This_NPC.Click_CommitItem(This_Player,1,'待销毁道具：');
6 s4 Z9 o8 u) }2 L# }( vend;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口" ]# }, q3 V( t
begin, ~4 v+ C% S* {8 T' q) R
result := true; //我们处理防刷的方式就在这里添加: \. D- ]2 o# j! Y
case iName of
! F* s- N2 V" O '屠龙' : result := false; //这段的意思是将物品（屠龙 ） 定义为假
# `- H9 {. E D& ^! N: H '这里添加叠加的物品名字' : result := false;
: r( C! ~3 B8 e. m) M) a ~ '服务器里面刷什么物品就加什么名字在这里' : result := false; $ M1 H& \' l" N
'金刚石' : result := false;) K+ m: S9 q6 Q1 W
'书页' : result := false; / q% f' \- L$ N2 ?9 k6 e: G
'祝福油' : result := false; //这里我将三样物品定义为假 false
end;
) b" G* b* S* M3 |' iend;
procedure CommitItem(AType:word);3 G- h" d: t' I6 M/ W A3 y
begin
0 V2 V! l# K3 ^: c# G a" G- ~ if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收' E* A4 s$ }0 g2 e
begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else3 l% K- w) U' r0 J- D$ e: v$ r2 N
This_Player.TakeByClientID(This_Item.ClientItemID);
4 L' i1 _0 P- `/ S2 y0 d D This_Player.NotifyClientCommitItem(1,'');6 r2 W/ s) b v% }% o- A$ r
This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);5 n, ?& @" p' O: y, |
end else
! C1 @8 ^/ v" O7 S( b0 |, t5 F This_Player.NotifyClientCommitItem(0,'该物品不可销毁，请投入可销毁的物品！'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能
( @* i4 s$ l( X //通过清理脚本来将拆0物品变成负1值 叠加问题得到解决
* ~. l. O& W/ `end;0 I/ `. S" `$ S* o
//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决 3 P. ^0 d/ a8 ]( z5 H$ P
//希望这个脚本能帮助广大的GM朋友
Begin
+ Z9 J/ L: M: f; h% Y8 C4 v domain;
' Z& w# Z$ j$ r6 K! m% _end.
发表于 