procedure domain;
N$ `* j2 s' k$ v ^: x- y& nbegin
0 n# n7 M- {9 d, B0 c This_Npc.NpcDialog(This_Player,6 T- z+ {( s6 |/ p F6 }% f
'看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+
( Q& T) i+ \7 d# M, q( ]. p '|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');& t x5 T3 B6 ~
end;
Procedure _DestoryItem;
! G2 H3 x; v7 @! [- @) bbegin5 m; T- N/ w; V4 k3 C
This_NPC.NpcDialog(This_Player,
4 L* ?$ x* ~: V: M N1 Z '把需要销毁的东西放进去就行啦!\ \'+
z2 ]- w$ o$ c+ I! E '|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+2 T5 k: b) J# n+ N: O- Q$ J
'|部分物品无法销毁。'+, Y- B( A- V3 G L
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '
# Q0 [; J) ^2 L0 I* x );
& R% ^+ x6 R& I9 Y9 Y+ Qend;
Procedure _DestoryItem_1; //这里NPC弹出清理框2 p# A! B; n+ [+ o$ B
begin
! q' r) d+ b8 R/ r+ n/ Q This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:'); ' X( r( x; I% ~4 y# e
end;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口
' J4 Q$ `' s/ [5 M( h( Nbegin
3 p2 @# ]7 E0 D' y. y0 K result := true; //我们处理防刷的方式就在这里添加# q( p" I6 z( Q$ F7 F7 J; y
case iName of \" h& E& T" ]- a
'屠龙' : result := false; //这段的意思是将物品(屠龙 ) 定义为假7 q% D, V$ p+ V5 k- S6 D9 P
'这里添加叠加的物品名字' : result := false; 4 f: U) Y* G# t/ l; o
'服务器里面刷什么物品就加什么名字在这里' : result := false;
# ^1 v/ V3 N8 v$ F% }, A8 Y '金刚石' : result := false;* ~0 h4 e7 A2 K7 v6 ?
'书页' : result := false; ' r7 X6 x' a7 h p
'祝福油' : result := false; //这里我将三样物品定义为假 false
end;
4 I, J$ v! I% J1 ]end;
procedure CommitItem(AType:word);3 t4 c H, T; A
begin0 g0 B6 H4 c0 u$ ]1 [
if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收+ F# ^! d3 Y4 T6 G! ]
begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else. W& V& O4 X. {% E0 m- V
This_Player.TakeByClientID(This_Item.ClientItemID);
5 N) E7 j9 @& l5 [0 O7 u$ Z This_Player.NotifyClientCommitItem(1,'');3 P' Q% u6 U% E4 l) ]
This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);2 R' G) P$ b9 @- Y: Y( K
end else - a% C: Z* y8 h
This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能) ]; u. Z+ Y. p0 P
//通过清理脚本来将拆0物品变成负1值 叠加问题得到解决 5 }, M! u9 w$ V# e# ]
end;( O' ~" h! X U- C' M$ |
//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决 + i8 e" Z; K9 Z+ o( A8 U
//希望这个脚本能帮助广大的GM朋友
Begin
" O$ M/ }* ^6 B8 v& ^ domain;
; }* ^5 h4 ~8 Qend.