91M2引擎传奇版本中实现自定义的客户端命令集

实现自定义的客户端命令集

客户端输入命令后，将触发ManagerNPC中的ProcessCommand函数，ProcessCommand函数定义为：

procedure ProcessCommand(Npc: TNormNpc; Player: TPlayObject; const Command: String; Args: TArgs; var Handled: Boolean);
NPC指向ManagerNPC对象，Player为当前输入命令的玩家,Command为命令名,Args为参数，Handled表示是否处理

以千里传音功能为例：
procedure ProcessCommand(Npc: TNormNpc; Player: TPlayObject; const Command: String; Args: TArgs; var Handled: Boolean);
begin
    if Command = '千里传音' then //如果玩家输入的是 @千里传音 这个字符串
    begin
        if (Player.Charm<>nil) and SameText(Player.Charm.Name, '千里传音') then //如果玩家的宝石位装备有物品并且这个物品的名字叫“千里传音”
        begin
            Gamelib.BroadcastSay(Message, 0, 0);   //世界喊话  
            //减掉物品1次使用次数
            Player.Charm.Dura := Player.Charm.Dura - 1000; //将宝石位物品的持久减1000点（客户端显示持久减少1点）
            Player.UpdateItem(Player.Charm); //发送消息到客户端，让客户端实时的更新宝石位物品
        end;
        Handled := True; //表示此次操作完成，M2引擎将不继续处理此命令,如果不设置为True,M2可能会继续处理该命令
    end;

    if Player.ISAdmin then
    begin
        //如果玩家是管理员身份，则处理这里实现的命令部分
    end
end;


注：因ManagerNPC、QFunctionNPC及MapEventNPC等系统特殊NPC处理的内容较多，因此如果一个函数里面处理的内容过多，则考虑将相关内容写到一个新的单元中。如示范版中将客户端命令集处理放到一个“客户端命令集”脚本中

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

楼主发贴辛苦了，谢谢楼主分享！

感谢站长分享传奇教程，让我学习到很多知识。

这个帖子不回对不起自己！

在这里可以学到很多传奇一条龙开区时遇到的问题。

很多架设问题在这里可以找到，真是太好啦。

比较全的传奇教程分享网站，站长辛苦了。

这个帖子不回对不起自己！

很多架设问题在这里可以找到，真是太好啦。

楼主发贴辛苦了，谢谢楼主分享！