职业更换+装备对换Ncp脚本(战神引擎手游)

用于战神引擎手游服务端的职业和转变对换脚本，脚本用于玩家对换装备和职业套装，这样打到了其他职业的装备，但又不想白白回收掉的玩家来说，直接在这里对换就行，但需要元宝才行，因为脚本是明文版的，可以任意修改里面的兑换内容和元宝数量

部分脚本

PROGRAM Mir2;
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure domain; 
begin
    This_NPC.NpcDialog(This_Player,
       '☆欢迎光临【寒刀沉默】装备改造☆\|'              
     +'☆在这里你可以把不同职业的装备进行改造。☆\|'
     +'☆☆也可以改变衣服性别。!☆☆\|'	 
    +'不过需要一定的元宝~！！||\'
    +'{cmd}<衣服男女改造/@yifu> \' 
    +'{cmd}<职业改造/@zhiye> \' 
	);
end;
procedure _yifu;
begin
    This_NPC.NpcDialog(This_Player,
       '☆点击下方兑换☆\|'+   
       '☆55级衣服【1000 元宝】☆|<女道换男道/@55yifu1>☆<男道换女道/@55yifu2>\|'+  
	   '<女战换男战/@55yifu3>☆<男战换女战/@55yifu4>\|'+
	   '<女法换男法/@55yifu5>☆<男法换女法/@55yifu6>\|'+
       '☆65级衣服【3000元宝】☆|<女道换男道/@65yifu1>☆<男道换女道/@65yifu2>\|'+
	   '<女战换男战/@65yifu3>☆<男战换女战/@65yifu4>\|'+
	   '<女法换男法/@65yifu5>☆<男法换女法/@65yifu6>\|'	   
	);
end;
procedure _65yifu1;
begin
if This_Player.YBNum >= 3000 then
begin
if This_Player.GetBagItemCount('不灭V紫神铠(道)')   >= 1 then    //检测物品
begin
This_Player.ScriptRequestSubYBNum(3000);
This_Player.Take('不灭V紫神铠(道)' , 1);
This_Player.Give('不灭V紫神甲(道)' , 1);
This_Npc.NpcDialog(This_Player,
'兑换成功！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'你没有兑换的装备？！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'没有3000元宝！！！  ');
end;
procedure _65yifu2;
begin
if This_Player.YBNum >= 3000 then
begin
if This_Player.GetBagItemCount('不灭V紫神甲(道)')   >= 1 then    //检测物品
begin
This_Player.ScriptRequestSubYBNum(3000);
This_Player.Take('不灭V紫神甲(道)' , 1);
This_Player.Give('不灭V紫神铠(道)' , 1);
This_Npc.NpcDialog(This_Player,
'兑换成功！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'你没有兑换的装备？！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'没有3000元宝！！！  ');
end;
procedure _65yifu3;
begin
if This_Player.YBNum >= 3000 then
begin
if This_Player.GetBagItemCount('不灭V紫神铠(战)')   >= 1 then    //检测物品
begin
This_Player.ScriptRequestSubYBNum(3000);
This_Player.Take('不灭V紫神铠(战)' , 1);
This_Player.Give('不灭V紫神甲(战)' , 1);
This_Npc.NpcDialog(This_Player,
'兑换成功！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'你没有兑换的装备？！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'没有3000元宝！！！  ');
end;
procedure _65yifu4;
begin
if This_Player.YBNum >= 3000 then
begin
if This_Player.GetBagItemCount('不灭V紫神甲(战)')   >= 1 then    //检测物品
begin
This_Player.ScriptRequestSubYBNum(3000);
This_Player.Take('不灭V紫神甲(战)' , 1);
This_Player.Give('不灭V紫神铠(战)' , 1);
This_Npc.NpcDialog(This_Player,
'兑换成功！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'你没有兑换的装备？！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'没有3000元宝！！！  ');
end;
procedure _65yifu5;
begin
if This_Player.YBNum >= 3000 then
begin
if This_Player.GetBagItemCount('不灭V紫神铠(法)')   >= 1 then    //检测物品
begin
This_Player.ScriptRequestSubYBNum(3000);
This_Player.Take('不灭V紫神铠(法)' , 1);
This_Player.Give('不灭V紫神甲(法)' , 1);
This_Npc.NpcDialog(This_Player,
'兑换成功！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'你没有兑换的装备？！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'没有3000元宝！！！  ');
end;
procedure _65yifu6;
begin
if This_Player.YBNum >= 3000 then
begin
if This_Player.GetBagItemCount('不灭V紫神甲(法)')   >= 1 then    //检测物品
begin
This_Player.ScriptRequestSubYBNum(3000);
This_Player.Take('不灭V紫神甲(法)' , 1);
This_Player.Give('不灭V紫神铠(法)' , 1);
This_Npc.NpcDialog(This_Player,
'兑换成功！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'你没有兑换的装备？！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'没有3000元宝！！！  ');
end;
procedure _55yifu1;
begin
if This_Player.YBNum >= 1000 then
begin
if This_Player.GetBagItemCount('龙皇霸凤铠(道)')   >= 1 then    //检测物品
begin
This_Player.ScriptRequestSubYBNum(1000);
This_Player.Take('龙皇霸凤铠(道)' , 1);
This_Player.Give('龙皇霸龙甲(道)' , 1);
This_Npc.NpcDialog(This_Player,
'兑换成功！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'你没有兑换的装备？！！！  ');
end else
This_Npc.NpcDialog(This_Player,
'没有1000元宝！！！  ');
end;

分享到：

赞(0)