procedure domain;; s& {, I* G& X+ {+ _. K, V. x0 o1 F' S
begin$ L$ ^7 h+ L# z) j/ Z# M; @( h
This_Npc.NpcDialog(This_Player,
, p! a' L' h: }" @2 N5 a '看来你需要我的帮助，\'+
'如果你有不要的物品，我这里可以销毁\ \'+
: `9 _3 h9 N- I f& q- a5 F$ H '|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');
9 N( E: Q5 A! B. O6 I; A9 }+ iend;
Procedure _DestoryItem;
( K: B, N, I A( Y+ D1 ?6 pbegin
8 P! W8 {: x3 W4 W7 ^ L This_NPC.NpcDialog(This_Player,
1 _; p% F6 ?$ B: w! J' W! G6 w '把需要销毁的东西放进去就行啦！\ \'+
9 B3 ?6 M7 d; G3 f0 d. x- b2 q '|请注意，物品销毁后将<消失/c=red>，无法找回，请<谨慎操作/c=red>！\'+
% `6 u" k( }* s+ m2 Z& j '|部分物品无法销毁。'+, _- \1 @2 S9 T7 _
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '
0 K' f( e0 i/ l& X6 z$ h R' c* V );' K7 U* E) {$ b& ^* _7 Y' }) Y
end;
Procedure _DestoryItem_1; //这里NPC弹出清理框2 N% O% k' s! e( f8 f8 D+ E
begin
9 A9 G" K. s) \/ Y This_NPC.Click_CommitItem(This_Player,1,'待销毁道具：');
8 |3 ^3 V* I; M9 oend;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口( u3 @2 p' f' v8 ?: d
begin
1 e Y1 {' D, m( ~ result := true; //我们处理防刷的方式就在这里添加# G& A- t- b5 ?3 W; C& i; ~: I
case iName of
% a5 r- l, |1 j. F '屠龙' : result := false; //这段的意思是将物品（屠龙 ） 定义为假
: e7 i/ m' V: U0 C* [ '这里添加叠加的物品名字' : result := false;
7 q, L8 J6 v" ?. Q- H5 b8 [ '服务器里面刷什么物品就加什么名字在这里' : result := false; 5 e. W4 d# m( D# }9 `
'金刚石' : result := false;+ p+ I2 h! ]: P4 U, q' o) Z
'书页' : result := false; 3 @- v8 Y0 l- S
'祝福油' : result := false; //这里我将三样物品定义为假 false
end;
3 }8 }- h& t6 u% B% i1 Eend;
procedure CommitItem(AType:word);1 D2 d( M) R6 ^6 H
begin
/ P, }: y k) @8 t if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收
# R7 Q0 N3 r/ `$ ~- C2 P; l begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else
0 l: y3 b( w' |6 H/ c This_Player.TakeByClientID(This_Item.ClientItemID);$ [4 w1 o: f1 S f3 E
This_Player.NotifyClientCommitItem(1,'');
( n) O G, E* I6 q, z c9 L$ g7 z This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);/ k' B+ t/ v: \+ f
end else & X) o1 s' h# B+ S# ~2 Y6 Y* \
This_Player.NotifyClientCommitItem(0,'该物品不可销毁，请投入可销毁的物品！'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能* B3 g- Q' G8 j* u" {$ _
//通过清理脚本来将拆0物品变成负1值 叠加问题得到解决 ! `% _: f1 N& |$ V# `
end;
( d5 h, y- x8 J6 z- w$ P$ ]" K) n//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决
* W2 G$ @; {4 m//希望这个脚本能帮助广大的GM朋友
Begin. k& j( e0 ?# u7 o5 [
domain;
- c8 t9 f; b4 W) T7 j' u8 Z8 |end.
发表于 