91M2

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

首先在物品数据库 把 怪物掉落触发功能脚本 和 拾取时触发功能脚本 勾上
凡是要用到该功能的装备全部勾上

脚本方面 在 系统固定NPC QFunctionNpc 下的对应脚本添加修改

//怪物掉落物品触发(针对监视物品):Owner:物品所属玩家,Monster:掉落怪物,item:物品,X, Y 掉落物品的坐标位置 Accept:是否允许掉落
procedure MonDropItem(Npc: TNormNpc; Owner: TPlayObject; Monster: TActor; Item: TUserItem; Map: TEnvirnoment; const X, Y: Integer; var Accept: Boolean);
begin
if Item.StdMode in [5..8,10,11,15..24,26..28,30,35] then //检测为装备物品
begin
Item.Rename(Item.Name + '[未鉴定]');
end;
end;


//玩家从地上捡物品触发
procedure PickupItem(Npc: TNormNpc; Player: TPlayObject; Envir: TEnvirnoment; UserItem: TUserItem; var Accept: Boolean);
begin
if Item.StdMode in [5..8,10,11,15..24,26..28,30,35] then //检测为装备物品
begin
if pos('[未鉴定]',UserItem.name) > 0 then //如果是未鉴定物品
begin
Item.RevertName;
end;
end;
end;


如果需要其他操作的话 比如修改属性什么的 自行添加即可

最后加一句,看到觉得有用的话 回复一句~
让我知道我这没白写就OK了~

posted on 2016-06-24 17:45  大七七七七七七七  阅读(284)  评论(0编辑  收藏  举报