循环自身全部技能
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
I: Integer;
begin
//SkillCount:技能个数
//Skills[n]: 第n个技能
for I := 0 to Player.SkillCount - 1 do
begin
Player.SendMessage(Format('技能:%s, 等级:%d', [Player.Skills[I].Name, Player.Skills[I].Level]));
//Player.Skills[I].Level := 3; //修改技能信息
end;
end;
============================================
推开指定的目标
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
//Push函数返回实际被推开的距离.在障碍物的影响下,实际推出距离可能小于指定的距离
if Player.Push(Random(8){随机8个方向中的一个}, Random(5) + 1{推出1-5格距离}) > 0 then
Player.Messagebox('你被推开了!');
|