procedure domain;4 k0 W9 X, [. D
begin
8 @ o8 s: Q9 a8 y2 h This_Npc.NpcDialog(This_Player, d! Z' c7 P- R' G* n
'看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+
3 \+ Y" U' h" s* a2 O '|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');
0 D* j0 q! [! j# k, v1 P1 Lend;
Procedure _DestoryItem;
% }; `5 e" E* lbegin
# M- }" C" r+ R6 W This_NPC.NpcDialog(This_Player,' }* q2 o+ j# w) h
'把需要销毁的东西放进去就行啦!\ \'+- e' b4 |) N0 ~0 f
'|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+
1 w' a+ n, t0 Y4 Z& C% o5 x# w* b '|部分物品无法销毁。'+( |: v: Q) S4 A; J3 s
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '7 w `2 \; O6 L2 u
);) R4 `7 p! y: H# g1 D
end;
Procedure _DestoryItem_1; //这里NPC弹出清理框
% I% J' m+ h, b& C( ^, @6 Rbegin, Q8 }7 X* J; r" W
This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:'); 2 n2 \6 i+ s* U8 j
end;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口" o( N' a2 _: Q/ L
begin
0 M* x+ |. M9 |; I result := true; //我们处理防刷的方式就在这里添加! ?6 L2 i, f6 V$ b7 Q* O4 z
case iName of
- Q" c0 v3 u9 U& g. @+ E- q '屠龙' : result := false; //这段的意思是将物品(屠龙 ) 定义为假
* U4 C B& J& V" w J4 b '这里添加叠加的物品名字' : result := false; + Y% j6 q, m+ v# o. v, y
'服务器里面刷什么物品就加什么名字在这里' : result := false;
7 N9 k" @2 S" i" A8 ? '金刚石' : result := false;: s5 A* \* h8 G( y" ^. a6 k
'书页' : result := false; + Z- B) f6 o! v+ C1 Z
'祝福油' : result := false; //这里我将三样物品定义为假 false
end;
! H& z5 B: I* W# oend;
procedure CommitItem(AType:word);
- [- V9 v% l/ ^' `2 P% \begin
7 ~5 k. N0 g# ] if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收
* L3 ]9 J2 e0 ^& ]& E9 B% W: D3 G: K begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else
5 E3 Z9 U! v' K @: M$ \- e2 p This_Player.TakeByClientID(This_Item.ClientItemID);
4 u- p i5 B. t* N t This_Player.NotifyClientCommitItem(1,'');
- ^' P; Y2 V; @* T; M* b, c: H. I This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);& t2 g; }- V/ K0 T
end else * L7 j& u5 B) s' h) @
This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能4 H* @9 p7 n; D, t8 y
//通过清理脚本来将拆0物品变成负1值 叠加问题得到解决
/ G7 C7 I! L/ P) _end;, Y- y6 I/ ]: j: a' b
//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决
' u5 |: p' }- [; E- W# R: @% C: @//希望这个脚本能帮助广大的GM朋友
Begin6 B* H3 a3 F* j# p# l$ `0 C- E
domain;
2 o. U" |$ v2 N0 h1 C; Fend.