implementation
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
I: Integer;
AItem: TUserItem;
begin
//方法1:通过NPC拿走玩家的物品
Npc.Take(Player, '乌木剑', 1); //拿走一把乌木剑
for I := 0 to Player.MaxBagSize - 1 do //循环背包
begin
AItem := Player.BagItem[I]; //取出一个背包物品
if AItem <> nil then //如果物品存在
Npc.TakeItem(Player, AItem); //收走物品
end;