装备附魔脚本(增加剑甲额外的特殊属性)

战神引擎装备附魔npc脚本，附魔过程需要金刚石等材料，脚本是明文版，可以任意修改里面的使用条件，附魔就是增加剑甲额外的特殊属性，比如暴击、绿毒等。脚本从迪奥合击里面提取出来的，里面需要的星王神石你们可以换成你们自己版本里面的某个材料。然后添加怪物爆出或者商铺购买等方式让玩家获得。

装备附魔脚本(增加剑甲额外的特殊属性)

部分脚本

program Mir2;
procedure _doexit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _1;
begin
if  (This_Player.GetBagItemCount ('开天') >= 1) and (This_Player.GetBagItemCount ('金刚石') >= 100)   and (This_Player.GetBagItemCount ('星王神石') >= 1)  and (This_Player.YBNum >= 50000)     then
begin
        This_Player.Take('金刚石',100);
		This_Player.Take('星王神石',1);
		This_Player.Take('开天',1);
		This_Player.ScriptRequestSubYBNum(50000);
        This_Player.Give('开天[附魔]',1);
		ServerSay('恭喜玩家【' + This_Player.Name + '】获得了开天[附魔]！', 3);
end	else
        This_NPC.NpcDialog(This_Player,'你的材料不够！'); 
end;
procedure _2;
begin
if (This_Player.GetBagItemCount ('镇天') >= 1) and(This_Player.GetBagItemCount ('金刚石') >= 100)   and (This_Player.GetBagItemCount ('星王神石') >= 1)  and (This_Player.YBNum >= 50000)     then
begin
        This_Player.Take('金刚石',100);
		This_Player.Take('镇天',1);
		This_Player.Take('星王神石',1);
		This_Player.ScriptRequestSubYBNum(50000);
        This_Player.Give('镇天[附魔]',1);
		ServerSay('恭喜玩家【' + This_Player.Name + '】获得了镇天[附魔]！', 3);
end	else
        This_NPC.NpcDialog(This_Player,'你的材料不够！'); 
end;
procedure _3;
begin
if (This_Player.GetBagItemCount ('玄天') >= 1) and(This_Player.GetBagItemCount ('金刚石') >= 100)   and (This_Player.GetBagItemCount ('星王神石') >= 1)  and (This_Player.YBNum >= 50000)     then
begin
        This_Player.Take('金刚石',100);
		This_Player.Take('玄天',1);
		This_Player.Take('星王神石',1);
		This_Player.ScriptRequestSubYBNum(50000);
        This_Player.Give('玄天[附魔]',1);
		ServerSay('恭喜玩家【' + This_Player.Name + '】获得了玄天[附魔]！', 3);
end	else
        This_NPC.NpcDialog(This_Player,'你的材料不够！'); 
end;
procedure _4;
begin
if (This_Player.GetBagItemCount ('凤天魔甲') >= 1) and (This_Player.GetBagItemCount ('金刚石') >= 100)   and (This_Player.GetBagItemCount ('星王神石') >= 1)  and (This_Player.YBNum >= 50000)     then
begin
        This_Player.Take('金刚石',100);
		This_Player.Take('凤天魔甲',1);
		This_Player.Take('星王神石',1);
		This_Player.ScriptRequestSubYBNum(50000);
        This_Player.Give('凤天魔甲[附魔]',1);
		ServerSay('恭喜玩家【' + This_Player.Name + '】获得了凤天魔甲[附魔]！', 3);
end	else
        This_NPC.NpcDialog(This_Player,'你的材料不够！'); 
end;

分享到：

赞(0)