战神引擎武器剑甲+装备首饰互换脚本

战神引擎武器剑甲+装备首饰互换脚本。这个方便玩家兑换装备。

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;