~~~ {  此单元只有一个入口函数，即：  procedure Main(Npc: TNormNpc; const Command: String; Args: TArgs);   Command:外部传入的标识   Args:外部传入的参数 一个完整的控制请求为:IP或域名:端口/Command.html?PassWord=xxxx&Command=标识符&Params=参数(参数以";"分开,如果参数本身包含";"则以"\;"表示) 如：http://127.0.0.1:16888/Command.html?PassWord=12345&Command=MyCommand&Params=1;2;3;4  在实际应用中，可通过外部应用（比如网站服务器、GM自己定义的远程控制EXE）和M2通信，当通过身份验证后，可触发此单元的Main函数调用，比如玩家在网站注册时填写了推荐人，PHP通过和M2通信给推荐人发放奖励 } Unit ExternalNpc;    Interface  Uses Classes, SysUtils;      Procedure Main(Npc: TNormNpc; Const Command: String; Args: TArgs);    Implementation   Procedure Getwebgift(Args: TArgs);  Var    AName: String;               APlayer: TPlayObject;  Begin    AName   :=  Args.Str[0];   If AName<>'' Then  Begin                      APlayer :=  GameLib.Findplayer(AName);     If APlayer <> Nil Then    Begin            //dosomething!            End;   End;  End;    Procedure Main(Npc: TNormNpc; Const Command: String; Args: TArgs);  Begin    If Command = '发放网页奖励' Then  Begin        Getwebgift(Args);   End;  End;    End. ~~~