procedure domain;
0 E* H+ }6 F1 ~2 L$ o6 y( E" z Jbegin
6 J& j9 Z; q9 r1 _; b This_Npc.NpcDialog(This_Player,
- g- ^' T. v5 I8 u' n3 m% [' i '看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+
4 ~! [( D2 \4 O1 \$ }, u '|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');0 Z+ Q2 m# D g
end;
Procedure _DestoryItem;( N- C5 ]- j7 Q/ R" b
begin! T3 n; b& K! X, l
This_NPC.NpcDialog(This_Player,
( @+ Q4 M* ]' H1 I3 _% s '把需要销毁的东西放进去就行啦!\ \'+
7 |- n# L+ o4 d L$ K" w" ?! o '|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+
* {6 o, d: @9 R: O* z '|部分物品无法销毁。'+
1 m3 W9 m1 ?+ ~$ b& \ '|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '
- w8 C0 F3 `3 I );; f: H, x3 p n9 Q4 |, T8 m
end;
Procedure _DestoryItem_1; //这里NPC弹出清理框
% }, G; H- q/ X3 Ybegin" P) _4 i0 U( P
This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:'); 9 ?, u' o2 d/ O9 W; N0 y. n/ k
end;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口3 f/ A# B- m6 ~3 h# |; s
begin
% X9 K/ {, r7 e: Y5 h result := true; //我们处理防刷的方式就在这里添加
* F9 \% e- {) q0 b: s6 L! X case iName of
F5 {& F# L. {" u8 h; n# f '屠龙' : result := false; //这段的意思是将物品(屠龙 ) 定义为假, } f" S7 _) A4 q/ B3 O
'这里添加叠加的物品名字' : result := false;
4 r$ k- n: Y9 [% z# l3 x '服务器里面刷什么物品就加什么名字在这里' : result := false;
% l9 d2 x, A. V/ o0 k" y7 e '金刚石' : result := false;" w( v$ _3 p" e
'书页' : result := false;
: B& ^; a7 e- n- U7 H '祝福油' : result := false; //这里我将三样物品定义为假 false
end;! J/ z) Y z5 ?4 m( `7 q7 h; i
end;
procedure CommitItem(AType:word);4 V& u$ E9 P8 S" J
begin! [# y/ T1 B1 \( j P
if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收8 {7 u8 X: ^6 s2 V& ?. Q
begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else
3 K+ O" n9 V2 u" n2 i- V+ G This_Player.TakeByClientID(This_Item.ClientItemID);3 a8 {1 a' V* K: N# L, ~
This_Player.NotifyClientCommitItem(1,'');
3 X3 h" C: @* h. Q$ J$ Z This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);# {/ m! X, P8 o8 ]* \( c: _
end else
}7 \1 R+ N$ c% A" ~" V This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能
; e% Q$ r! e7 n //通过清理脚本来将拆0物品变成负1值 叠加问题得到解决
: D K# c6 W8 O1 n/ e6 ^end;+ D3 t2 R2 [* C4 r4 y" m$ V# E
//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决 - H3 c! g' x7 _! u2 j
//希望这个脚本能帮助广大的GM朋友
Begin
9 E3 C. H, M4 {( Y; E( `; P E1 S/ D domain;
* M! g4 T& U) M1 ~end.