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

+ b- `# s& t9 E


8 c- U& t/ L8 U如何增加一个扩展按钮


  N" a* H& M3 h9 g2 Rprocedure PlayerOnLogin(Npc: TNormNpc; Player: TPlayObject);  //该函数定义位于“系统固定NPC\ManagerNpc”中，角色登陆将触发该函数
6 e% P" T8 Z: d/ P7 xbegin
  Player.AddExtendButton('邮件系统', '邮件系统', '@ExtendButtonMail', 0); //增加一个充值按钮在客户端界面顶部小地图旁边
  A1 Y7 B% \, A9 x. ~  Player.AddTopExtendButton('攻城车', '攻城车租用', '@ExtendButtonXX', 3); //增加一个充值按钮在客户端界面底部操作区
) z2 i( }: a, a8 Gend;
) j: s; G) F7 W3 N% q* ]3 B: [

% z3 M3 s# b: f1 C
, u' n. D/ ^7 ?/ O
增加一个扩展按钮到客户端，AddExtendButton函数增加的位于药品栏下方，AddTopExtendButton函数增加的位于小地图左侧
0 g7 o# v) s; m' u按钮指向的函数位于ManagerNpc单元中，声明格式为（同常见的入口函数）： procedure FuncName(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

+ ?# A- o; R% s0 L5 s) ]
如何删除一个扩展按钮
2 F. p! H: R7 r4 U2 [8 ]/ A! u" _3 Y. K

- q& j7 z1 m: g0 Hunit Q2;

" u6 v6 L1 h! G6 M
inte**ce
  uses Classes, SysUtils;
  k. r. ~$ e- Y' B# Q1 t+ h

. Y7 C$ K8 H) N) d4 `# m4 _procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

, ~& k) T' y7 g4 F7 s
7 i5 {- Z+ r- `+ T1 Ximplementation
4 m  ~2 n. z9 }9 z7 ]# d7 N

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin   
  Player.RemoveExtendButton('邮件系统'); //删除一个名为“邮件系统”的按钮
, ~6 a$ g6 A" A/ |7 U/ J  //注意:删除时是顶部和底部的按钮都会处理,所以在增加的时候就不应该让按钮同名
end;
& P; f3 D* H: X' ~6 s: R

" p( e- L4 D# |7 o1 U" ?) Eend.
& ]; l1 ^7 _: D- j
& h" }( {9 L$ Y0 Y