装备附魔综合Npc脚本(支持暴击+吸血+体力属性)

用于战神引擎的装备附魔脚本，脚本里面包含了暴击、吸血、体力和购买附魔材料和清除原先附魔属性的功能，这个脚本比较强打，需要配合盘古插件来实现功能，脚本是明文版，可以任何修改里面的材料、支持附魔的装备等信息。

部分脚本

end else
   if This_Player.getv(88,4)= 1 then 
   begin 
     for ck_kind := 1 to 300 do
     begin
       if ck_name2[ck_kind] = This_Item.ItemName then 
       begin          
		wuqi := ck_name[ck_kind];
         ck_num := This_Item.AddPa2; 
         ck_gold := ck_value[ck_kind];
          if (ck_num > 0) and (ck_num < 300) then begin for i:= 1 to ck_num do begin ck_gold := ck_gold ; end; end; end; end; if ck_gold > 0 then
            begin 
      This_Player.Give('附魔水晶',ck_gold);  
     This_Player.TakeByClientID(This_Item.ClientItemID);
         This_Player.NotifyClientCommitItem(1,'');
		 This_Player.Give(wuqi,1);
         This_NPC.Click_CommitItem(This_Player,1,'请投入需要恢复的装备');
      end else 
     begin
        This_Player.NotifyClientCommitItem(0,'该物品不可分解，请投入可分解的装备！');   
     end;  
end ;
  end;
procedure _goumai2;
     begin
    if (This_Player.FreeBagNum > 0 ) and (This_Player.YBNum >= 200000) then
begin
  This_Player.Give('附魔水晶',1);
 This_Player.ScriptRequestSubYBNum(200000); 
  ServerSay('玩家'+This_Player.Name+'购买一颗整个的附魔水晶！',2); 
  end else
   This_Npc.NpcDialog(This_Player,
	'对不起，你的元宝不够或者背包不足！'
	);
	end;
Procedure _goumai;
begin
 This_Npc.NpcDialog(This_Player,
	'附魔水晶珍贵无比\'+
	'|附魔水晶价格：<20万元宝>\'+
	'|附魔水晶介绍：<附魔后也可以清除还原/fcolor=223>\'+
	'|附魔水晶介绍：<可重复使用，永久保值/fcolor=223>\'+
      +'|<点击购买附魔水晶/@goumai2>\'
	   );  
end;
Procedure _baoji;
begin
 This_Npc.NpcDialog(This_Player,
	'给我装备和附魔水晶,五可以帮你附魔装备\'+
	'|附魔暴击部位：<武器 衣服>\'+
	'|附魔暴击效果：<增加暴击/fcolor=223>\'+
	'|附魔暴击材料：<2枚附魔水晶/fcolor=223>\'+
      +'|<点击开始附魔暴击/@Checkup_1>\'
	   );  
end;
Procedure _xuxue;
begin
 This_Npc.NpcDialog(This_Player,
	'给我装备和附魔水晶,五可以帮你附魔装备\'+
	'|附魔暴击部位：<战士系列戒指 手镯 项链>\'+
	'|附魔暴击效果：<物理攻击吸血10点/fcolor=223>\'+
	'|附魔暴击材料：<1枚附魔水晶/fcolor=223>\'+
      +'|<点击开始附魔暴击/@Checkup_2>\'
	   );  
end;
Procedure _tili;
begin
 This_Npc.NpcDialog(This_Player,
	'给我装备和附魔水晶,五可以帮你附魔装备\'+
	'|附魔暴击部位：<头盔 戒指 手镯 项链 腰带 靴子>\'+
	'|附魔暴击效果：<增加HP/fcolor=223>\'+
	'|附魔暴击材料：<1枚附魔水晶/fcolor=223>\'+
      +'|<点击开始附魔暴击/@Checkup_3>\'
	   );  
end;
Procedure _qingli;
begin
 This_Npc.NpcDialog(This_Player,
	'可以免费清除掉附魔并退回附魔水晶与装备\'+
	'|<但极品属性也会清除，谨慎操作>\'+
      +'|<开始清除附魔/@Checkup_4> ^<返回/@main>\'
	   );  
end;
procedure domain;
begin
      This_Npc.NpcDialog(This_Player,
	'<火龙级 无双级 圣龙级装备可以进行附魔>\'+
	'|<每件装备只能同时存在一种附魔，慎重选择>\'+
	'|<附魔将会强化装备属性并增加特殊属性/fcolor=223>\'+
	'|<附魔将清除原有极品属性/fcolor=223>\'+
	'|<所有请先附魔再进行其他强化升级/fcolor=223>\'+
	'|<附魔将会强化装备属性并增加特殊属性/fcolor=223>\'+
      +'|{cmd}<附魔暴击/@baoji>        ^<附魔吸血/@xuxue>\'
      +'|{cmd}<附魔体力/@tili>\'
      +'|{cmd}<购买附魔水晶/@goumai>        ^<免费清除附魔/@qingli>\'
      );  
end;
begin
  domain;    
end.

分享到：

赞(0)