91M2引擎的传奇如何克隆玩家为人形怪?

如何克隆玩家为人形怪

方法1 直接从现有玩家克隆：

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
AObj: TActor;
begin
//直接克隆当前玩家
AObj := Gamelib.AddClonePlayer(Player{克隆对象}, '鸭梨山大'{克隆后角色的名称}, Player.Map{指定克隆对象的目标地图}, 100, 100{目标地图的坐标});
if AObj <> nil then //克隆可能会失败,所以需要判断是否为nil
begin
   AObj.Master := Player; //将克隆的对象设置为当前玩家的下属   
   AObj.MasterRoyaltyTick := 60 * 60 * 1000; //设置下属的有效期为60分钟
end;
end;

方法2 从文件中加载玩家数据克隆：

1. 首先需要在特殊情况下保存玩家数据
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
//将当前玩家的数据保存到本地文件(Envir目录下面)
Gamelib.SavePlayerToFile(Player, 'Store\第一战士.dat');
end;

2. 然后根据需要执行克隆
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
AObj: TActor;
begin
//直接克隆当前玩家
AObj := Gamelib.AddClonePlayerFromFile('Store\第一战士.dat'{要克隆的玩家数据文件}, '鸭梨山大'{克隆后角色的名称}, Player.Map{指定克隆对象的目标地图}, 100, 100{目标地图的坐标});
if AObj <> nil then //克隆可能会失败,所以需要判断是否为nil
begin
   AObj.Master := Player; //将克隆的对象设置为当前玩家的下属   
   AObj.MasterRoyaltyTick := 10 * 60 * 1000; //设置下属的有效期为10分钟
end;   

//如果不设置为下属,则克隆对象将是一个普通怪物
end;

注意：通过克隆出来的人形怪不会爆出任何装备

版权声明

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

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

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

发发呆，回回帖，工作结束~

呵呵，低调，低调！

呵呵，低调，低调！

纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

确实是难得好帖啊，顶先！

又抢到前排了。哈，不用怀疑，不用惊讶，你也没有看错！