装备掉落改名 拾取恢复

Posted 2020-07-29

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

脚本方面 在 系统固定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了~