用于战神引擎的特戒合成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;