procedure domain;6 i O$ S* ]. _( e S
begin
1 S L2 y P4 W$ g+ v- y' l This_Npc.NpcDialog(This_Player,
: x7 b) b6 @ s+ i* Y X '看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+9 T7 `! ~" j% W, \2 q* u
'|{cmd}<清理垃圾/@DestoryItem>\'+
'|{cmd}<退出/@doexit>');# s0 Y* g3 G5 Q/ ?& P. _& q
end;
Procedure _DestoryItem;. [7 j2 N. m6 V9 ? `
begin
- O: ?8 J& d; {* o! w7 F This_NPC.NpcDialog(This_Player,0 K$ M7 j9 i) l* T
'把需要销毁的东西放进去就行啦!\ \'+* ?0 T: |' Y* ^9 t! @/ V
'|请注意,物品销毁后将<消失/c=red>,无法找回,请<谨慎操作/c=red>!\'+% K1 @3 q8 D o( _9 M) ~
'|部分物品无法销毁。'+& ^2 t1 F1 g4 h9 a
'|{cmd}<开始销毁/@DestoryItem_1> //脚本的开始的接口 '6 U6 }# K' K2 f; L4 f$ L
);
+ Y! j+ j w4 }; F& Qend;
Procedure _DestoryItem_1; //这里NPC弹出清理框
/ s5 V# q& n2 I. @begin% s" ~8 K& h/ |$ x
This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:');
$ k+ o! J A2 M; @8 N9 K g! Bend;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean; //这里介绍下这是自定义函数接口5 `! {( K1 ]: {4 ?$ G
begin
! Y# Q3 ?+ a, ?+ V1 v result := true; //我们处理防刷的方式就在这里添加9 g4 c i& K6 r
case iName of
* X9 @8 Y# j# e' L. k '屠龙' : result := false; //这段的意思是将物品(屠龙 ) 定义为假 i/ p$ N* [) K. D' `% ]7 G
'这里添加叠加的物品名字' : result := false;
& U, s) a' C/ Y; V7 l2 S# U! I '服务器里面刷什么物品就加什么名字在这里' : result := false; 0 E: N! }+ G) i) L* a
'金刚石' : result := false;7 D' }/ G0 [) I1 q
'书页' : result := false; 4 u% u6 @! M9 v( B! t/ c
'祝福油' : result := false; //这里我将三样物品定义为假 false
end;
- z F6 |+ j7 D( `& C1 L" e8 o' nend;
procedure CommitItem(AType:word);5 ?; ` B* s6 I$ @
begin( B/ d" y4 S7 \, m# z. x3 f% L
if NotDestroy(This_Item.ItemName) then //这里 NotDestroy 如果等于 清理框的物品名 定义为真 执行回收
+ \! k" P h3 m# C# Y$ L6 m: ~1 Y begin //刚刚我们定义了三样物品为假 FALSE 脚本执行到这的时候判断为假执行 end else
( I) _5 s& d1 G4 l% d This_Player.TakeByClientID(This_Item.ClientItemID);
$ b- b' T3 i, _" N# J S/ U This_Player.NotifyClientCommitItem(1,'');# L: Q7 q' v6 Q; s
This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);
# K( H- N2 V1 H3 [, u end else / ~2 T( k+ L8 f8 ^+ @# t
This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ; //脚本执行这段 物品不在清理的范围内这样叠加物品就不能& T6 R& ]* b( U) ^/ l; O
//通过清理脚本来将拆0物品变成负1值 叠加问题得到解决
+ }# }' y/ R9 M& Wend;
. i3 u& z2 y2 J//这种处理方式不影响叠加物品的使用而又成功的将叠加刷物品解决
# O3 ]6 q7 S. {6 G2 c. ~, N8 |//希望这个脚本能帮助广大的GM朋友
Begin1 S* z+ O: X( h& X% j
domain;1 M4 T" V. U7 i) ]+ r# q8 V% p, A
end.