77M2引擎如何让他人执行指定的脚本讲解和命令范例

如何让他人执行指定的脚本
unit Q2;

inte**ce
  uses  Classes, SysUtils, DateUtils;

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
procedure SayHello(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

implementation

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
  APlayer: TPlayObject;
begin
  Npc.Say(Player, 'Hello!!!'); //对当前玩家Player说话  
  APlayer := GameLib.FindPlayer('张三'); //在M2中找出一个名叫“张三”的人
  if APlayer <> nil then //如果"张三"在线
  begin                     
    //方法1(推荐)：
    SayHello(Npc, APlayer, nil);   //直接调用函数执行,最后一个参数如果传递为nil，则在对应的函数处理要避免访问或者需要保护处理   

    //方法2:
    APlayer.CallMethod(Npc, '@Q2.SayHello'); //最终效果和方法1相同,这里多了一个回传到M2中的步骤,在调用SayHello函数时,存在Args对象

    //两者使用的区别在于，方法1简单直接且更高效,但是需要自行处理Args参数,如果直接传递当前的Args参数则可能是不对的,因为当前Args参数
    //针对的是当前函数调用者,而在让其他玩家触发函数的时候,可能当前的Args参数并不合适,同时方法1调用方式如果函数名改变的时候在编译期
    //是能被发现的；方法2则是将字符串“@Q2.SayHello”回传给M2,解析出对应的SayHello函数及参数，然后再调用SayHello,这种方式会自动产生
    //Args参数,但是当SayHello更名的时候如果不主动修改方法2这里的参数将会造成玩家不会执行对应的函数调用,所以使用方法2就必须自己同步
    //维护相关参数
  end;
end;

procedure SayHello(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
  Npc.Say(Player, 'Hello!!!');
end;

我只是路过打酱油的。

真是被感动的痛哭流涕……

无回帖，不论坛，这才是人道。

真是难得给力的帖子啊。

感恩无私的分享与奉献 :)

楼主加油，我们都看好你哦。

无回帖，不论坛，这才是人道。

激动人心，无法言表！

无回帖，不论坛，这才是人道。