特戒合成Npc脚本(支持麻痹+复活+护身)

用于战神引擎的特戒合成NPC脚本,脚本支持支持麻痹戒指+复活戒指+护身戒指,合成的戒指种类也有六种,脚本是明文版的,合成的条件和种类可以根据自己的要求,针对性、个性化的修改。

特戒合成Npc脚本(支持麻痹+复活+护身)

特戒合成Npc脚本(支持麻痹+复活+护身)

部分脚本

PROGRAM Mir2;
{$I common.pas}
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);  
end;
procedure domain;
begin
  This_Npc.NpcDialog(This_Player,
   '|我这里有一种秘术!\'+
   '|可以将宝物三合为一,来激发更强大的力量\'+
   '|如果你有三种相同的宝物我可以帮助你合成 \'+
   '|<提示:特戒越高级效果越强哦>\'+
   '|{cmd}<特戒合成/@jiezhi>    ^</@douli>\'
    );
end;
procedure _douli;
begin
  This_Npc.NpcDialog(This_Player,
   '|我这里有一种秘术!\'+
   '|可以将宝物三合为一,来激发更强大的力量\'+
   '|<佩戴斗笠属性逆天可使攻魔道暴涨> \'+
   '|<合成主宰斗笠/@zhuzai1>  <攻魔道20-20>\'+
   '|<合成传奇斗笠/@chuanqi1>  <攻魔道40-40>\'+
   '|<合成玉兔斗笠/@yutu1>  <攻魔道60-60>\'+
   '|<合成刺影斗笠/@ciyin1>  <攻魔道80-80>\'+
   '|<合成神龙斗笠/@shenlong1>  <攻魔道100-100>\'
    );
end;
procedure _zhuzai1;
begin
  This_Npc.NpcDialog(This_Player,
   '|合成<主宰斗笠>\'+
   '|需要<10个斗笠碎片>和<100个金刚石>\'+
   '|合成费用需要<50000元宝> \'+
   '|{cmd}<合成主宰斗笠/@zhuzai11> \'
    );
end;
procedure _zhuzai11;
 begin
 if (This_Player.GetBagItemCount ('斗笠碎片') >= 10)   and (This_Player.GetBagItemCount ('金刚石') >= 100) and (This_Player.YBNum >= 50000) then
   begin
        This_Player.Take('斗笠碎片',10);
		This_Player.Take('金刚石',100);
			This_Player.ScriptRequestSubYBNum(50000);
        This_Player.Give('主宰斗笠',1);
		ServerSay('恭喜玩家<' + This_Player.Name + '>在盟重合成了主宰斗笠!', 70);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的材料不够!'); 
  end;
procedure _chuanqi1;
begin
  This_Npc.NpcDialog(This_Player,
   '|合成<传奇斗笠>\'+
   '|需要<3个主宰斗笠>和<500个金刚石>\'+
   '|合成费用需要<50000元宝> \'+
   '|{cmd}<合成传奇斗笠/@chuanqi11> \'
    );
end;
procedure _chuanqi11;
 begin
 if (This_Player.GetBagItemCount ('主宰斗笠') >= 3)   and (This_Player.GetBagItemCount ('金刚石') >= 500) and (This_Player.YBNum >= 50000) then
   begin
        This_Player.Take('主宰斗笠',3);
		This_Player.Take('金刚石',500);
			This_Player.ScriptRequestSubYBNum(50000);
        This_Player.Give('传奇斗笠',1);
		ServerSay('恭喜玩家<' + This_Player.Name + '>在盟重合成了传奇斗笠!', 70);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的材料不够!'); 
  end;
procedure _yutu1;
begin
  This_Npc.NpcDialog(This_Player,
   '|合成<玉兔斗笠>\'+
   '|需要<3个传奇斗笠>和<500个金刚石>\'+
   '|合成费用需要<100000元宝> \'+
   '|{cmd}<合成玉兔斗笠/@yutu11> \'
    );
end;
procedure _yutu11;
 begin
 if (This_Player.GetBagItemCount ('传奇斗笠') >= 3)   and (This_Player.GetBagItemCount ('金刚石') >= 500) and (This_Player.YBNum >= 100000) then
   begin
        This_Player.Take('传奇斗笠',3);
		This_Player.Take('金刚石',500);
			This_Player.ScriptRequestSubYBNum(100000);
        This_Player.Give('玉兔斗笠',1);
		ServerSay('恭喜玩家<' + This_Player.Name + '>在盟重合成了玉兔斗笠!', 70);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的材料不够!'); 
  end;
procedure _ciyin1;
begin
  This_Npc.NpcDialog(This_Player,
   '|合成<刺影斗笠>\'+
   '|需要<3玉兔斗笠>和<1000个金刚石>\'+
   '|合成费用需要<250000元宝> \'+
   '|{cmd}<合成刺影斗笠/@ciyin11> \'
    );
end;
procedure _ciyin11;
 begin
 if (This_Player.GetBagItemCount ('玉兔斗笠') >= 3)   and (This_Player.GetBagItemCount ('金刚石') >= 1000) and (This_Player.YBNum >= 250000) then
   begin
        This_Player.Take('玉兔斗笠',3);
		This_Player.Take('金刚石',1000);
			This_Player.ScriptRequestSubYBNum(250000);
        This_Player.Give('刺影斗笠',1);
		ServerSay('恭喜玩家<' + This_Player.Name + '>在盟重合成了刺影斗笠!', 70);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的材料不够!'); 
  end;
procedure _shenlong1;
begin
  This_Npc.NpcDialog(This_Player,
   '|合成<神龙斗笠>\'+
   '|需要<3玉兔斗笠>和<1000个金刚石>\'+
   '|合成费用需要<500000元宝> \'+
   '|{cmd}<合成神龙斗笠/@shenlong11> \'
    );
end;
procedure _shenlong11;
 begin
 if (This_Player.GetBagItemCount ('刺影斗笠') >= 3)   and (This_Player.GetBagItemCount ('金刚石') >= 2000) and (This_Player.YBNum >= 500000) then
   begin
        This_Player.Take('刺影斗笠',3);
		This_Player.Take('金刚石',2000);
			This_Player.ScriptRequestSubYBNum(500000);
        This_Player.Give('神龙斗笠',1);
		ServerSay('恭喜玩家<' + This_Player.Name + '>在盟重合成了神龙斗笠!', 70);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的材料不够!'); 
  end;
procedure _jiezhi;
begin
  This_Npc.NpcDialog(This_Player,
   '|我这里有一种秘术!\'+
   '|可以将宝物三合为一,来激发更强大的力量\'+
   '|如果你有三种相同的宝物我可以帮助你合成 \'+
   '|{cmd}<麻痹戒指/@mabi>    ^<护身戒指/@hushen>^<复活戒指/@fuhuo>\'
    );
end;
procedure _mabi;
begin
  This_Npc.NpcDialog(This_Player,
   '|我这里有一种秘术! ^<合成麻痹戒指/@1>\'+
   '|可以将宝物三合为一,来激发更强大的力量\'+
   '|如果你有三种相同的宝物我可以帮助你合成 \'+
   '|{cmd}<合成荣耀麻痹/@mabi1>    ^<合成主宰麻痹/@mabi2>^<合成传奇麻痹/@mabi3>\'+
   '|{cmd}<合成玉兔麻痹/@mabi4>    ^<合成刺影麻痹/@mabi5>^<合成神龙麻痹/@mabi6>\'
    );
end;
procedure _mabi1;
begin
  This_Npc.NpcDialog(This_Player,
   '|合成<荣耀麻痹>\'+
   '|需要<10个麻痹戒指碎片>,<50个金刚石>,<3个麻痹戒指>\'+
   '|合成费用需要<20000元宝> \'+
   '|{cmd}<合成荣耀麻痹/@mabi11> \'
    );
end;
procedure _1;
 begin
 if (This_Player.GetBagItemCount ('麻痹戒指碎片') >= 50)  and (This_Player.YBNum >= 50000) then
   begin
        This_Player.Take('麻痹戒指碎片',50);
			This_Player.ScriptRequestSubYBNum(50000);
        This_Player.Give('麻痹戒指',1);
		ServerSay('恭喜玩家<' + This_Player.Name + '>在盟重合成了麻痹戒指!', 70);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'合成普通麻痹戒指需要麻痹戒指碎片50个元宝5万,你的材料不够!'); 
  end;
procedure _mabi11;
 begin
 if (This_Player.GetBagItemCount ('麻痹戒指碎片') >= 10)   and (This_Player.GetBagItemCount ('金刚石') >= 50)and (This_Player.GetBagItemCount ('麻痹戒指') >= 3) and (This_Player.YBNum >= 20000) then
   begin
        This_Player.Take('麻痹戒指碎片',10);
		This_Player.Take('麻痹戒指',3);
		This_Player.Take('金刚石',50);
			This_Player.ScriptRequestSubYBNum(20000);
        This_Player.Give('荣耀麻痹神戒',1);
		ServerSay('恭喜玩家<' + This_Player.Name + '>在盟重合成了荣耀麻痹神戒!', 70);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的材料不够!'); 
  end;
procedure _mabi2;
begin
  This_Npc.NpcDialog(This_Player,
   '|合成<主宰麻痹>\'+
   '|需要<3个荣耀麻痹>和<100个金刚石>\'+
   '|合成费用需要<20000元宝> \'+
   '|{cmd}<合成主宰麻痹/@mabi22> \'
    );
end;
procedure _mabi22;
 begin
 if (This_Player.GetBagItemCount ('荣耀麻痹神戒') >= 3)   and (This_Player.GetBagItemCount ('金刚石') >= 100) and (This_Player.YBNum >= 20000) then
   begin
        This_Player.Take('荣耀麻痹神戒',3);
		This_Player.Take('金刚石',100);
			This_Player.ScriptRequestSubYBNum(20000);
        This_Player.Give('主宰麻痹神戒',1);
		ServerSay('恭喜玩家<' + This_Player.Name + '>在盟重合成了主宰麻痹神戒!', 70);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你的材料不够!'); 
  end;
procedure _mabi3;
begin
  This_Npc.NpcDialog(This_Player,
   '|合成<传奇麻痹>\'+
   '|需要<3个主宰麻痹>和<200个金刚石>\'+
   '|合成费用需要<50000元宝> \'+
   '|{cmd}<合成传奇麻痹/@mabi33> \'
    );
end;
分享到:
赞(0)