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

  x6 {. y3 G% g6 E6 F! S



9 ]6 q4 C  o- Q( R4 P如何增加一个扩展按钮


procedure PlayerOnLogin(Npc: TNormNpc; Player: TPlayObject);  //该函数定义位于“系统固定NPC\ManagerNpc”中，角色登陆将触发该函数
begin
  Player.AddExtendButton('邮件系统', '邮件系统', '@ExtendButtonMail', 0); //增加一个充值按钮在客户端界面顶部小地图旁边
  Player.AddTopExtendButton('攻城车', '攻城车租用', '@ExtendButtonXX', 3); //增加一个充值按钮在客户端界面底部操作区
6 d: \, D1 k6 D- T- z. yend;
, o/ g4 L6 x0 r$ D; @; C: V7 e4 D



8 \# k- ~1 ?. m% }- U增加一个扩展按钮到客户端，AddExtendButton函数增加的位于药品栏下方，AddTopExtendButton函数增加的位于小地图左侧
& l/ Z  i; s! Y  P) |5 X4 A按钮指向的函数位于ManagerNpc单元中，声明格式为（同常见的入口函数）： procedure FuncName(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

% W" k* _2 D* A; t( P
如何删除一个扩展按钮


unit Q2;
6 z# @0 Y1 _5 ]0 d5 Y. r

inte**ce
' _$ ?: g% e* g0 G' n4 A8 R" e( r  uses Classes, SysUtils;
6 l# K; p  ?3 M3 v0 n9 t, @

( t. G9 m0 k6 cprocedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);


implementation
/ M+ J+ w2 ?- t/ g+ w5 |1 [
/ `# k3 g( r( l
% A0 A# b! T* U9 [- {1 i  V6 ]procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin   
/ g$ e8 C' m+ ~9 ]( H( z  Player.RemoveExtendButton('邮件系统'); //删除一个名为“邮件系统”的按钮
, ]. P8 i) p3 c$ o5 S$ O  //注意:删除时是顶部和底部的按钮都会处理,所以在增加的时候就不应该让按钮同名
end;

- a6 ?/ C+ h7 k* p
end.