战神引擎一键打捆/捆绑装备Npc脚本

用于战神引擎一键打捆/捆绑装备Npc脚本,脚本上面默认还有3个回收功能,如果版本里面已经有了回收NPC,可以直接隐藏掉上面的3个回收功能按钮,如果要用,根据自己的版本情况,针对性的修改回收装备的名单即可。

战神引擎一键打捆/捆绑装备Npc脚本

战神引擎一键打捆/捆绑装备Npc脚本

部分脚本

end;
//---------------------------------------声望回收结束---------------------------------------
procedure  _1_KB;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
  ZMnum := 0;
    for i := 1 to 11 do
    begin
        Iname := getZBnameById(100 + i);
        if Iname <> '' then
        begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                ZMnum := ZMnum + itemNum;
                This_Player.Take(Iname, itemNum);
                for j := 1 to itemNum do
				This_Player.Give('祖玛卷轴',getkbjzNum(1));					
            end;
        end; 
    end;	
   This_Player.PlayerNotice('你的包裹中有' + inttostr(ZMnum) + '件祖玛首饰,获得了:' + inttostr(getkbjzNum(1) * ZMnum) + '个祖玛卷轴!',0);	
end;
procedure  _2_KB;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
  ZMnum := 0;
    for i := 1 to 14 do
    begin
        Iname := getZBnameById(200 + i);
        if Iname <> '' then
        begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                ZMnum := ZMnum + itemNum;
                This_Player.Take(Iname, itemNum);
                for j := 1 to itemNum do
				This_Player.Give('赤月卷轴',getkbjzNum(2));					
            end;
        end; 
    end;	
   This_Player.PlayerNotice('你的包裹中有' + inttostr(ZMnum) + '件赤月首饰,获得了:' + inttostr(getkbjzNum(2) * ZMnum) + '个赤月卷轴!',0);	
end;
procedure  _3_KB;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
  ZMnum := 0;
    for i := 1 to 19 do
    begin
        Iname := getZBnameById(300 + i);
        if Iname <> '' then
        begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                ZMnum := ZMnum + itemNum;
                This_Player.Take(Iname, itemNum);
                for j := 1 to itemNum do
				This_Player.Give('魔龙卷轴',getkbjzNum(3));					
            end;
        end; 
    end;	
   This_Player.PlayerNotice('你的包裹中有' + inttostr(ZMnum) + '件魔龙首饰,获得了:' + inttostr(getkbjzNum(3) * ZMnum) + '个魔龙卷轴!',0);	
end;
procedure domain;
begin
This_Npc.NpcDialog(This_Player,
   '|<我这里可给你提供,祖玛级以上的装备回收服务,可以回收元宝,经验,声望!/c=243>\'+
    +'|{cmd}<回收元宝/@huishou1> ^<回收经验/@huishou2>\' 
    +'|{cmd}<回收声望/@huishou3> ^<一键捆绑/@huishou4>\' 	
   // +'|{cmd}<回收经验/@huishou2>\' 
	);
end;
Begin
  domain;
end.
分享到:
赞(0)