91M2引擎删除和增加扩展按钮的制作详细说明

& e+ {2 a0 _( m- S, y3 ?$ F0 Q) S

, L0 r# y3 V- K/ {% M

' I5 y2 K  j' A! v( k' P. H+ V如何增加一个扩展按钮
; q4 S9 T5 ~0 _3 j
% e/ [) m$ O  @2 V# V2 c
. l! T( ]) P1 O3 Y9 h4 v) \3 T& \1 fprocedure PlayerOnLogin(Npc: TNormNpc; Player: TPlayObject);  //该函数定义位于“系统固定NPC\ManagerNpc”中，角色登陆将触发该函数
) a2 X& \4 g; R) F8 `/ G3 Ibegin
  Player.AddExtendButton('邮件系统', '邮件系统', '@ExtendButtonMail', 0); //增加一个充值按钮在客户端界面顶部小地图旁边
) k3 u$ y2 u  `3 m( s; T- R  Player.AddTopExtendButton('攻城车', '攻城车租用', '@ExtendButtonXX', 3); //增加一个充值按钮在客户端界面底部操作区
end;

  g. ]$ q; n& v  k& A

( ]3 F2 B. _. D2 |& {+ V* V; c
/ d& k/ T5 p% P( ?" q增加一个扩展按钮到客户端，AddExtendButton函数增加的位于药品栏下方，AddTopExtendButton函数增加的位于小地图左侧
按钮指向的函数位于ManagerNpc单元中，声明格式为（同常见的入口函数）： procedure FuncName(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
' x3 Q, H: B" w3 I% R/ F
6 n- ]1 u! }/ ]/ t& X# R$ ?3 J
如何删除一个扩展按钮
. @1 i" V  @. r4 E6 d3 N$ F
* d+ K+ `3 f. c, \( C
unit Q2;


inte**ce
  uses Classes, SysUtils;
6 Y. Z3 w! U% l
& J4 i9 k1 u! q9 a2 I/ \! ?# b, r: [
0 L( r+ a! i1 M) D; V: {! Vprocedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);


implementation

6 }1 X" z( K- |( d/ V9 w
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin   
0 L0 E$ f6 {6 k% b* S  Player.RemoveExtendButton('邮件系统'); //删除一个名为“邮件系统”的按钮
: Z% k3 R4 i$ Q  //注意:删除时是顶部和底部的按钮都会处理,所以在增加的时候就不应该让按钮同名
end;
6 g- _5 A1 {4 J) E
7 K$ S5 R7 o5 ?" y/ }  @0 _& {
end.

! t+ t& o" ?9 L7 _