武器升级幸运+9自定义Npc脚本带素材

用于战神引擎手游版本的武器升级幸运+9自定义Npc脚本带素材，脚本的功能除了可以升级武器幸运，还可以转移幸运、绑定武器、诅咒清晰、购买物品等功能，脚本从凌天里面提取的，默认兼容3.0的客户端，其他的细节喜欢这类自定义的兄弟自行添加测试。牵扯到的脚本文件帮主都提取出来了，脚本升级的材料和货币可以任意修改。

武器升级幸运+9自定义Npc脚本带素材

部分脚本

begin
   if getzbmz(This_Item.ItemName) >= 13 then
   begin
   OKKK('失败','该武器已经绑定');
   This_Player.NotifyClientCommitItem(0,'失败,该武器已经绑定！');
   This_NPC.Click_CommitItem(This_Player,1,'待绑定装备：');
   Exit;
   end;
   if This_Player.GetV(111,31) >= 7 then
   begin
   if This_Player.GoldNum >= 100 then
   begin
   This_Player.DecGold(100);
   This_Player.Give(This_Item.ItemName+'★', 1);
   This_Player.NotifyClientCommitItem(0,'武器以成功绑定，请到转移界面提取你的幸运值！');
   This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
   NOTICE('绑定成功','武器已成功绑定');
   This_Player.Take(This_Item.ItemName,1);
   This_NPC.Click_CommitItem(This_Player,1,'待绑定装备：');
   end else
   begin
   OKKK('失败','金币不足100');
   end;
   end else
   begin
   OKKK('失败','请先保存幸运值或你的幸运没有达到+7');
   This_Player.NotifyClientCommitItem(0,'失败，请先保存幸运值或你的幸运没有达到+7');
   This_NPC.Click_CommitItem(This_Player,1,'待绑定装备：');
   end;
   end;
   5:
   if getzbmz(This_Item.ItemName) <> 0 then
   begin
   if (This_Player.GoldNum >= 50) and (This_Item.AddPa4 <= 0) then
   begin
   if getzbmz(This_Item.ItemName) <= 12 then begin This_Player.DecGold(50); This_Player.Give(This_Item.ItemName, 1); This_Player.NotifyClientCommitItem(0,'武器诅咒成功洗白白，请到转移界面提取你的幸运值！'); This_NPC.NotifyClientUPdBagItem(This_Player,This_Item); NOTICE('洗练成功','武器已成功洗白白'); This_Player.Take(This_Item.ItemName,1); This_NPC.Click_CommitItem(This_Player,1,'待洗练装备：'); end else begin This_Player.DecGold(50); This_Player.Give(This_Item.ItemName+'★', 1); This_Player.NotifyClientCommitItem(0,'武器诅咒成功洗白白，请到转移界面提取你的幸运值！'); This_NPC.NotifyClientUPdBagItem(This_Player,This_Item); NOTICE('洗练成功','武器已成功洗白白'); This_Player.Take(This_Item.ItemName,1); This_NPC.Click_CommitItem(This_Player,1,'待洗练装备：'); end; end else begin OKKK('失败','金币不足50或你的幸运值未保存'); end; end else begin OKKK('失败','该物品不支持诅咒洗练'); This_Player.NotifyClientCommitItem(0,'失败，该物品不支持诅咒洗练'); This_NPC.Click_CommitItem(This_Player,1,'待洗练装备：'); end; end; end; procedure _gmxy(id :integer); begin if This_Player.GetV(111,id) = 1 then begin OKKK('失败','你已经购买了+'+inttostr(id-20)+'幸运的必成'); Exit; end; begin if This_Player.GoldNum >= getbcjg(id) then
begin
This_Player.DecGold(getbcjg(id));
This_Player.SetV(111,id,1);
NOTICE('购买成功','成功购买+'+inttostr(id-20)+'幸运必成');
end else
OKKK('失败','金币不足');
end;
end; 
function xin(price, num: Integer):boolean; 
begin
   result := true; 
end;
begin
	domain;
end.

分享到：

赞(0)