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

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

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

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;

温馨提示:本文最后更新于2022-06-14 22:45:24,某些文章具有时效性,若有错误或已失效,请在下方留言或联系吾爱游戏迷
------本页内容已结束,喜欢请分享------

感谢您的来访,获取更多优质资源请收藏本站。

© 版权声明
THE END
喜欢就支持一下吧
点赞184 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片