如何踢出在线人物
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
Gamelib.Kick('张三'); //踢出一个玩家
Gamelib.KickAll; //踢出全部玩家
end;
如何修改人物技能属性
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
Magic: TUserMagic; //定义一个技能对象
begin
Magic := Player.FindSkill('基础剑术'); //查找角色的技能“基础剑术”
if Magic <> nil then //如果找到了该技能
begin
Magic.TranPoint := Magic.TranPoint + 10; //将该技能的**点 + 10
Magic.Level := 1; //将该技能的等级设置为1级
Player.UpdateMagic(Magic); //发送到客户端更新该技能的信息
end;
end;
|