宝宝叛变的启动和停止
unit Q57;
inte**ce
uses Classes, SysUtils;
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
implementation
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
//指定一个叛变有效时长
Gamelib.SlaveMutiny(360000{单位毫秒, 这里换算后为60分钟});
//停止叛变
Gamelib.SlaveMutiny(0);
end;
end.
=====================================================
让目标移动到指定的坐标
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
I: Integer;
AList: TActorList;
begin
Player.MoveTo(300, 300); //当前玩家移动到300x300坐标位置上,如果玩家自行控制则取消
AList := Player.Map.GetActorListAt(100, 100); //获取玩家所在地图100x100坐标上的全部怪物、人物及NPC
for I := 0 to AList.Count - 1 do //循环取得的列表
AList[I].MoveTo(300, 300, 10); //将列表中的每一个对象移动到300x300的坐标上,在这个坐标10格范围内就算移动到位
AList.Free; //GetActorListAt返回的列表一定要Free
end;
|
|