战神引擎NPC的武器剑甲+装备首饰互换脚本，默认的脚本只有衣服互换，武器和首饰自己对照去写。
PROGRAM Mir2;
{$I common.pas}
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
This_Npc.NpcDialog(This_Player,
‘|我这里有一种秘术!\’+
‘|<提示:免费衣服男女互换>\’+
‘|<提示:免费衣服男女互换>\’+
‘|<提示:免费衣服男女互换> \’+
‘|{cmd}<传奇神甲男换女 yuan1=””> <传奇神甲女换男 yuan2=””>\’+
‘|{cmd}<玉兔神甲男换女 yuan3=””> <玉兔神甲女换男 yuan4=””>\’+
‘|{cmd}<刺影战甲男换女 yuan5=””> <刺影战甲女换男 yuan6=””>\’+
‘|{cmd}<神龙夺命男换女 yuan7=””> <神龙夺命女换男 yuan8=””>\’+
‘|{cmd}<神龍追魂男换女 yuan9=””> <神龍追魂女换男 yuan10=””>\’+
‘|{cmd}<神龙化圣男换女 yuan11=””> <神龙化圣女换男 yuan12=””>\’+
‘|{cmd}<恶魔神甲男换女 yuan13=””> <恶魔神甲女换男 yuan14=””>\’+
‘|{cmd}<风云神甲男换女 yuan15=””> <风云神甲女换男 yuan16=””>\’+
‘|{cmd}<藐视一切男换女 yuan17=””> <藐视一切女换男 yuan18=””>\’
);
end;
procedure _yuan1;
begin
if (This_Player.GetBagItemCount (‘传奇神甲(男)’) >= 1) then
begin
This_Player.Take(‘传奇神甲(男)’,1);
This_Player.Give(‘传奇神甲(女)’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了传奇神甲(女)！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有传奇神甲(男),无法互换.！’);
end;
procedure _yuan2;
begin
if (This_Player.GetBagItemCount (‘传奇神甲(女)’) >= 1) then
begin
This_Player.Take(‘传奇神甲(女)’,1);
This_Player.Give(‘传奇神甲(男)’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了传奇神甲(男)！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有传奇神甲(女),无法互换.！’);
end;
procedure _yuan4;
begin
if (This_Player.GetBagItemCount (‘玉兔神甲(女)’) >= 1) then
begin
This_Player.Take(‘玉兔神甲(女)’,1);
This_Player.Give(‘玉兔神甲(男)’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了玉兔神甲(男)！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有玉兔神甲(女),无法互换.！’);
end;
procedure _yuan3;
begin
if (This_Player.GetBagItemCount (‘玉兔神甲(男)’) >= 1) then
begin
This_Player.Take(‘玉兔神甲(男)’,1);
This_Player.Give(‘玉兔神甲(女)’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了玉兔神甲(女)！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有玉兔神甲(男),无法互换.！’);
end;
procedure _yuan5;
begin
if (This_Player.GetBagItemCount (‘刺影战甲’) >= 1) then
begin
This_Player.Take(‘刺影战甲’,1);
This_Player.Give(‘刺影战袍’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了刺影战袍！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有刺影战甲,无法互换.！’);
end;
procedure _yuan6;
begin
if (This_Player.GetBagItemCount (‘刺影战袍’) >= 1) then
begin
This_Player.Take(‘刺影战袍’,1);
This_Player.Give(‘刺影战甲’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了刺影战甲！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有刺影战袍,无法互换.！’);
end;
procedure _yuan8;
begin
if (This_Player.GetBagItemCount (‘神龙夺命袍’) >= 1) then
begin
This_Player.Take(‘神龙夺命袍’,1);
This_Player.Give(‘神龙夺命甲’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了神龙夺命甲！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有神龙夺命袍,无法互换.！’);
end;
procedure _yuan7;
begin
if (This_Player.GetBagItemCount (‘神龙夺命甲’) >= 1) then
begin
This_Player.Take(‘神龙夺命甲’,1);
This_Player.Give(‘神龙夺命袍’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了神龙夺命袍！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有神龙夺命甲,无法互换.！’);
end;
procedure _yuan9;
begin
if (This_Player.GetBagItemCount (‘神龍追魂甲’) >= 1) then
begin
This_Player.Take(‘神龍追魂甲’,1);
This_Player.Give(‘神龍追魂袍’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了神龍追魂袍！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有神龍追魂甲,无法互换.！’);
end;
procedure _yuan10;
begin
if (This_Player.GetBagItemCount (‘神龍追魂袍’) >= 1) then
begin
This_Player.Take(‘神龍追魂袍’,1);
This_Player.Give(‘神龍追魂甲’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了神龍追魂甲！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有神龍追魂袍,无法互换.！’);
end;
procedure _yuan12;
begin
if (This_Player.GetBagItemCount (‘神龙化圣袍’) >= 1) then
begin
This_Player.Take(‘神龙化圣袍’,1);
This_Player.Give(‘神龙化圣甲’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了神龙化圣甲！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有神龙化圣袍,无法互换.！’);
end;
procedure _yuan11;
begin
if (This_Player.GetBagItemCount (‘神龙化圣甲’) >= 1) then
begin
This_Player.Take(‘神龙化圣甲’,1);
This_Player.Give(‘神龙化圣袍’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了神龙化圣袍！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有神龙化圣甲,无法互换.！’);
end;
procedure _yuan13;
begin
if (This_Player.GetBagItemCount (‘恶魔神甲(男)’) >= 1) then
begin
This_Player.Take(‘恶魔神甲(男)’,1);
This_Player.Give(‘恶魔神甲(女)’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了恶魔神甲(女)！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有恶魔神甲(男),无法互换.！’);
end;
procedure _yuan14;
begin
if (This_Player.GetBagItemCount (‘恶魔神甲(女)’) >= 1) then
begin
This_Player.Take(‘恶魔神甲(女)’,1);
This_Player.Give(‘恶魔神甲(男)’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了恶魔神甲(男)！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有恶魔神甲(女),无法互换.！’);
end;
procedure _yuan16;
begin
if (This_Player.GetBagItemCount (‘风云神甲(女)’) >= 1) then
begin
This_Player.Take(‘风云神甲(女)’,1);
This_Player.Give(‘风云神甲(男)’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了风云神甲(男)！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有风云神甲(女),无法互换.！’);
end;
procedure _yuan15;
begin
if (This_Player.GetBagItemCount (‘风云神甲(男)’) >= 1) then
begin
This_Player.Take(‘风云神甲(男)’,1);
This_Player.Give(‘风云神甲(女)’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了风云神甲(女)！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有风云神甲(男),无法互换.！’);
end;
procedure _yuan18;
begin
if (This_Player.GetBagItemCount (‘藐视一切甲(女)’) >= 1) then
begin
This_Player.Take(‘藐视一切甲(女)’,1);
This_Player.Give(‘藐视一切甲(男)’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了藐视一切甲(男)！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有藐视一切甲(女),无法互换.！’);
end;
procedure _yuan17;
begin
if (This_Player.GetBagItemCount (‘藐视一切甲(男)’) >= 1) then
begin
This_Player.Take(‘藐视一切甲(男)’,1);
This_Player.Give(‘藐视一切甲(女)’,1);
ServerSay(‘恭喜玩家<‘ + This_Player.Name + ‘>在盟重互换了藐视一切甲(女)！’, 70);
end
else
This_NPC.NpcDialog(This_Player,
‘勇士无法包里面没有藐视一切甲(男),无法互换.！’);
end;
