夜游神 发表于 2022-12-31 20:45:36

战神引擎装备兑换经验，元宝回收脚本

procedure domain;
begin
This_Npc.NpcDialog(This_Player,
   '我这里可以回收祖玛以上的装备。\'+
   '如果你有不要的装备，我这里可以给你兑换成经验，金币，元宝，金刚石，4选一\ \'+
   '|<每回收一件赤月以上饰品都会增加10点声望/c=red>\ \'+
   '|{cmd}<经验回收/@ZhuangBack>    ^<元宝回收/@ZhuangBackyb>\'+
   '|{cmd}<金刚石回收/@ZhuangBackjgs>^<金币回收/@ZhuangBackjb>\'+
   '|{cmd}<武器类回收/@wuqi>^<退出/@doexit>');
end;
procedure _wuqi;
begin
This_Npc.NpcDialog(This_Player,
   '我这里可以回收祖玛以上的武器。\'+
   '如果你有不要的武器，我这里可以给你兑换成经验，金币，元宝，金刚石，4选一\ \'+
   '|<每回收一件赤月以上饰品都会增加10点声望/c=red>\ \'+
   '|{cmd}<经验回收/@ZhuangBackwq>    ^<元宝回收/@ZhuangBackybwq>\'+
   '|{cmd}<金刚石回收/@ZhuangBackjgswq>^<金币回收/@ZhuangBackjbwq>\'+
   '|{cmd}<退出/@doexit>');
end;


PROGRAM Mir2;

{$I common.pas}
//{$I TaoZhuang.pas}

Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;

function getZBnameById(ZBid : integer) : string;
var ZBlv , ZBlvId : integer;
begin
    ZBlv := ZBid div 100;
    ZBlvId := ZBid mod 100;
    result := '';
    case ZBlv of
      1:
      begin
            case ZBlvId of
                1 : result := '天珠项链';
                2 : result := '铂金戒指';
                3 : result := '心灵手镯';
                4 : result := '生命项链';
                5 : result := '思贝儿手镯';
                6 : result := '红宝石戒指';
                7 : result := '幽灵项链';
                8 : result := '幽灵手套';
                9 : result := '龙之戒指';

            end;
      end;      
      
      2 :
      begin
            case ZBlvId of
                1 : result := '绿色项链';
                2 : result := '骑士手镯';
                3 : result := '力量戒指';
                4 : result := '恶魔铃铛';
                5 : result := '龙之手镯';
                6 : result := '紫碧螺';
                7 : result := '灵魂项链';
                8 : result := '三眼手镯';
                9 : result := '泰坦戒指';
                10 : result := '黑铁头盔';
                11 : result := '青铜腰带';
                12 : result := '紫绸靴';

            end;
      end;
      3 :
      begin
            case ZBlvId of
                1 : result := '圣战头盔';
                2 : result := '圣战项链';
                3 : result := '圣战手镯';
                4 : result := '圣战戒指';
                5 : result := '法神头盔';
                6 : result := '法神项链';
                7 : result := '法神手镯';
                8 : result := '法神戒指';
                9 : result := '天尊头盔';
                10 : result := '天尊项链';
                11 : result := '天尊手镯';
                12 : result := '天尊戒指';
                13 : result := '钢铁腰带';
                14 : result := '避魂靴';

            end;
      end;
      4 :
      begin
            case ZBlvId of
                1 : result := '雷霆项链';
                2 : result := '雷霆护腕';
                3 : result := '雷霆战戒';
                4 : result := '雷霆腰带';
                5 : result := '雷霆战靴';
                6 : result := '烈焰项链';
                7 : result := '烈焰护腕';
                8 : result := '烈焰魔戒';
                9 : result := '烈焰腰带';
                10 : result := '烈焰魔靴';
                11 : result := '光芒项链';
                12 : result := '光芒护腕';
                13 : result := '光芒道戒';
                14 : result := '光芒腰带';
                15 : result := '光芒道靴';

            end;
      end;

      5 :
      begin
            case ZBlvId of
                1 : result := '强化雷霆项链';
                2 : result := '强化雷霆护腕';
                3 : result := '强化雷霆战戒';
                4 : result := '强化雷霆腰带';
                5 : result := '强化雷霆战靴';
                6 : result := '强化烈焰项链';
                7 : result := '强化烈焰护腕';
                8 : result := '强化烈焰魔戒';
                9 : result := '强化烈焰腰带';
                10 : result := '强化烈焰魔靴';
                11 : result := '强化光芒项链';
                12 : result := '强化光芒护腕';
                13 : result := '强化光芒道戒';
                14 : result := '强化光芒腰带';
                15 : result := '强化光芒道靴';

            end;
      end;
      6 :
      begin
            case ZBlvId of
                1 : result := '迷失银河护手';
                2 : result := '迷失魔王链';
                3 : result := '迷失逐日鞋';
                4 : result := '迷失混天带';
                5 : result := '迷失将军盔';
                6 : result := '迷失元帅印';
                7 : result := '迷失菩提戒(活)';
                8 : result := '迷失闪光戒(护)';
                9 : result := '迷失幻影戒(隐)';
                10 : result := '迷失瞬影戒(麻)';
            end;
      end;
      7 :
      begin
            case ZBlvId of
                1 : result := '终极の魅影神镯';
                2 : result := '终极の魅影神链';
                3 : result := '终极の魅影神鞋';
                4 : result := '终极の魅影腰带';
                5 : result := '终极の魅影神盔';
                6 : result := '终极の传国玉玺';
                7 : result := '终极の魅影麻痹';
                8 : result := '终极の魅影护身';
                9 : result := '终极の魅影隐身';
                10 : result := '终极の魅影复活';
            end;
      end;               
    end;
end;




function getZBnameByIdWQ(ZBid : integer) : string;
var ZBlv , ZBlvId : integer;
begin
    ZBlv := ZBid div 100;
    ZBlvId := ZBid mod 100;
    result := '';
    case ZBlv of      
            1 :
      begin
            case ZBlvId of                      //沃玛
                1 : result := '银蛇';
                2 : result := '无极棍';
                3 : result := '魔杖';
                4 : result := '炼狱';

            end;
            end;
             2 :
      begin
            case ZBlvId of                     //祖玛
                1 : result := '龙纹剑';
                2 : result := '骨玉权杖';
                3 : result := '裁决之杖';

            end;
      end;
            3 :
      begin
            case ZBlvId of                      //赤月
                1 : result := '银蛇';
                2 : result := '无极棍';
                3 : result := '魔杖';
                4 : result := '炼狱';

            end;
             end;
            4 :
          begin
            case ZBlvId of                   //雷霆
                1 : result := '银蛇';
                2 : result := '无极棍';
                3 : result := '魔杖';
                4 : result := '炼狱';

            end;
            end;
            5 :
      begin
            case ZBlvId of                  //迷失
                1 : result := '银蛇';
                2 : result := '无极棍';
                3 : result := '魔杖';
                4 : result := '炼狱';

            end;
             end;
            6 :
      begin
            case ZBlvId of               // 魅影
                1 : result := '银蛇';
                2 : result := '无极棍';
                3 : result := '魔杖';
                4 : result := '炼狱';

            end;
      end;
    end;
end;

function getZexpNum(Zlv : integer) : integer;
begin
    case Zlv of
      1 : result := 20000;
      2 : result := 50000;
      3 : result := 200000;
      4 : result := 500000;
      5 : result := 1000000;
      6 : result := 2000000;
      7 : result := 3000000;      
    end;
end;

function getZybNum(Zlv : integer) : integer;
begin
    case Zlv of
      1 : result := 2;
      2 : result := 5;
      3 : result := 20;
      4 : result := 50;
      5 : result := 100;
      6 : result := 200;
      7 : result := 300;      
    end;
end;

function getZjbNum(Zlv : integer) : integer;
begin
    case Zlv of
      1 : result := 5000;
      2 : result := 10000;
      3 : result := 50000;
      4 : result := 100000;
      5 : result := 500000;
      6 : result := 1000000;
      7 : result := 2000000;      
    end;
end;

function getZjgsNum(Zlv : integer) : integer;
begin
    case Zlv of
      1 : result := 0;
      2 : result := 2;
      3 : result := 5;
      4 : result := 10;
      5 : result := 20;
      6 : result := 50;
      7 : result := 100;      
    end;
end;

//=======================武器


function getZexpNumWuqi(Zlv : integer) : integer;
begin
    case Zlv of
      1 : result := 50000;
      2 : result := 100000;
      3 : result := 500000;
      4 : result := 1000000;
      5 : result := 50000000;
      6 : result := 80000000;
    end;
end;

function getZybNumwuqi(Zlv : integer) : integer;
begin
    case Zlv of
      1 : result := 0;
      2 : result := 50;
      3 : result := 100;
      4 : result := 0;
      5 : result := 500;
      6 : result := 1000;
    end;
end;

function getZjbNumwuqi(Zlv : integer) : integer;
begin
    case Zlv of
      1 : result := 50000;
      2 : result := 100000;
      3 : result := 500000;
      4 : result := 1000000;
      5 : result := 2000000;
      6 : result := 5000000;
    end;
end;

function getZjgsNumwuqi(Zlv : integer) : integer;
begin
    case Zlv of
      1 : result := 0;
      2 : result := 3;
      3 : result := 20;
      4 : result := 50;
      5 : result := 100;
      6 : result := 200;
    end;
end;

procedure _ZhuangBack;
begin
    This_NPC.NpcDialog(This_Player,
    '|请把不要回收的装备放在仓库，回收概不负责：\'
   +'|袄玛首饰每个回收2万经验               <一键回收/@Woma_all>\'
   +'|祖玛首饰每个回收5万经验               <一键回收/@ZUma_all>\'
   +'|赤月首饰每个回收20万经验            <一键回收/@ChiYue_all>\'
   +'|魔龙首饰每个回收50万经验            <一键回收/@molong_all>\'
   +'|强魔首饰每个回收100万经验             <一键回收/@qiangmo_all>\'
   +'|迷失首饰每个回收200万经验             <一键回收/@mishi_all>\'
   +'|魅影首饰每个回收300万经验             <一键回收/@meiying_all>\'
   +'|<退出/@doexit>'

    );

end;
//==============================武器回收


procedure _ZhuangBackwq;
begin
    This_NPC.NpcDialog(This_Player,
    '|请把不要回收的装备放在仓库，回收概不负责：\'
//   +'|袄玛武器每个回收2万经验               <一键回收/@Womawq_all>\'
   +'|祖玛武器每个回收5万经验               <一键回收/@ZUmawq_all>\'
   +'|赤月武器每个回收10万经验            <一键回收/@ChiYuewq_all>\'
   +'|魔龙武器每个回收100万经验            <一键回收/@molongwq_all>\'
//   +'|强魔武器每个回收100万经验             <一键回收/@qiangmowq_all>\'
   +'|迷失武器每个回收500万经验             <一键回收/@mishiwq_all>\'
   +'|魅影武器每个回收800万经验             <一键回收/@meiyingwq_all>\'
   +'|<退出/@doexit>'
    );

end;
////////////////////////
procedure _Womawq_all;
var WMnum , i : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(100 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                WMnum := WMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(WMnum) + '件沃玛武器，回收可获得:' + inttostr(getZexpNum(1) div 10000 * WMnum) + '万经验，你确定回收所有沃玛武器吗？\|'
    +'|{cmd}<确认回收所有沃玛武器/@Womawq_True>'
    +'|{cmd}<返回/@ZhuangBackwq>');
end;

procedure_Womawq_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(100 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                WMnum := WMnum + itemNum;
                This_Player.Take(Iname, itemNum);
               
                for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(1));
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(1) div 10000 * WMnum) + '万经验！\|'
    +'|{cmd}<返回/@ZhuangBackwqwq>');

end;

///////////////////////////

procedure _ZUmawq_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(200 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) >= 0 then
            begin
                ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(ZMnum) + '件祖玛武器，回收可获得:' + inttostr(getZexpNum(2) div 10000 * ZMnum) + '万经验，你确定回收所有祖玛武器吗？\|'
    +'|{cmd}<确认回收所有祖玛武器/@ZUmawq_True>'
    +'|{cmd}<返回/@ZhuangBackwq>');
end;

procedure_ZUmawq_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(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('经验', getZexpNum(2));
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(2) div 10000 * ZMnum) + '万经验！\|'
    +'|{cmd}<返回/@ZhuangBackwq>');

end;


procedure _Chiyuewq_all;
var CYnum , i , ShengW : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(300 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                CYnum := CYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(CYnum) + '件赤月武器，回收可获得:' + inttostr(getZexpNum(3) div 10000 * CYnum) + '万经验，获得' + inttostr(CYnum * 10) + '声望。你确定回收所有赤月武器吗？\|'
    +'|{cmd}<确认回收所有赤月武器/@Chiyuewq_True>'
    +'|{cmd}<返回/@ZhuangBackwq>');
end;

procedure_Chiyuewq_True;
var CYnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(300 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                CYnum := CYnum + itemNum;
                ShengW :=itemNum * 10;
                This_Player.Take(Iname, itemNum);
                for j := 1 to itemNum do
                This_Player.MyShengwan := This_Player.MyShengwan + 10
                This_Player.Give('经验', getZexpNum(3));
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(3) div 10000 * CYnum) + '万经验！\|'
      +'恭喜你获得' + inttostr(ShengW) + '声望\|'
    +'|{cmd}<返回/@ZhuangBackwq>');

end;


procedure _molongwq_all;
var MLnum , i : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(400 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MLnum := MLnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MLnum) + '件魔龙武器，回收可获得:' + inttostr(getZexpNum(4) div 10000 * mlnum) + '万经验，你确定回收所有魔龙武器吗？\|'
    +'|{cmd}<确认回收所有魔龙武器/@molongwq_True>'
    +'|{cmd}<返回/@ZhuangBackwq>');
end;

procedure_molongwq_True;
var MLnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(400 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MLnum := MLnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              ShengW :=itemNum * 10;
                for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(4));
                This_Player.MyShengwan := This_Player.MyShengwan + 10
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(4) div 10000 * MLnum) + '万经验！\|'
      +'恭喜你获得' + inttostr(ShengW) + '声望\|'
    +'|{cmd}<返回/@ZhuangBackwq>');

end;

procedure _qiangmowq_all;
var QMnum , i : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(500 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                QMnum := QMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(QMnum) + '件强化魔龙武器，回收可获得:' + inttostr(getZexpNum(5) div 10000 * QMnum) + '万经验，你确定回收所有强化魔龙武器吗？\|'
    +'|{cmd}<确认回收所有强化魔龙武器/@qiangmowq_True>'
    +'|{cmd}<返回/@ZhuangBackwq>');
end;

procedure_qiangmowq_True;
var QMnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(500 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                QMnum := QMnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              ShengW :=itemNum * 10;
                for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(5));
                This_Player.MyShengwan := This_Player.MyShengwan + 10
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(5) div 10000 * QMnum) + '万经验！\|'
      +'恭喜你获得' + inttostr(ShengW) + '声望\|'
    +'|{cmd}<返回/@ZhuangBackwq>');

end;

procedure _mishiwq_all;
var MSnum , i : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(600 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MSnum := MSnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MSnum) + '件迷失武器，回收可获得:' + inttostr(getZexpNum(6) div 10000 * MSnum) + '万经验，你确定回收所有迷失武器吗？\|'
    +'|{cmd}<确认回收所有迷失武器/@mishiwq_True>'
    +'|{cmd}<返回/@ZhuangBackwq>');
end;

procedure_mishiwq_True;
var MSnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(600 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MSnum := MSnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              ShengW :=itemNum * 10;
                              //This_Player.Give('声望',1);
                for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(6));
                This_Player.MyShengwan := This_Player.MyShengwan + 10
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(6) div 10000 * MSnum) + '万经验！\|'
      +'恭喜你获得' + inttostr(ShengW) + '声望\|'
    +'|{cmd}<返回/@ZhuangBackwq>');

end;

procedure _meiyingwq_all;
var MYnum , i : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(700 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MYnum := MYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MYnum) + '件终极の魅影武器，回收可获得:' + inttostr(getZexpNum(7) div 10000 * MYnum) + '万经验，你确定回收所有终极の魅影武器吗？\|'
    +'|{cmd}<确认回收所有终极の魅影武器/@meiyingwq_True>'
    +'|{cmd}<返回/@ZhuangBackwq>');
end;

procedure_meiyingwq_True;
var MYnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(700 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MYnum := MYnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              ShengW :=itemNum * 10;
                              //This_Player.Give('声望',1);
                for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(7));
                This_Player.MyShengwan := This_Player.MyShengwan + 10
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(7) div 10000 * MYnum) + '万经验！\|'
      +'恭喜你获得' + inttostr(ShengW) + '声望\|'
    +'|{cmd}<返回/@ZhuangBackwq>');

end;
//===============================元宝


procedure _ZhuangBackybwq;
begin
    This_NPC.NpcDialog(This_Player,
    '|请把不要回收的武器放在仓库，回收概不负责：\'
// +'|袄玛武器每个回收2元宝            <一键回收/@Womaybwq_all>\'
// +'|祖玛武器每个回收5元宝            <一键回收/@ZUmaybwq_all>\'
   +'|赤月武器每个回收50元宝             <一键回收/@ChiYueybwq_all>\'
   +'|魔龙武器每个回收100元宝            <一键回收/@molongybwq_all>\'
// +'|强魔武器每个回收100元宝            <一键回收/@qiangmoybwq_all>\'
   +'|迷失武器每个回收500元宝            <一键回收/@mishiybwq_all>\'
   +'|魅影武器每个回收1000元宝         <一键回收/@meiyingybwq_all>\'
   +'|{cmd}<退出/@doexit>'

    );

end;

procedure _Womaybwq_all;
var WMnum , i : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(100 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                WMnum := WMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZybNum(1) * WMnum) + '元宝，你确定回收所有沃玛武器吗？\|'
    +'|{cmd}<确认回收所有沃玛武器/@Womaybwq_True>'
    +'|{cmd}<返回/@ZhuangBackybwq>');
end;

procedure_Womaybwq_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(100 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                WMnum := WMnum + itemNum;
                This_Player.Take(Iname, itemNum);
               

                This_Player.ScriptRequestAddYBNum(getZybNum(1) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(1) * WMnum) + '元宝！\|'
    +'|{cmd}<返回/@ZhuangBackybwq>');

end;

///////////////////////////

procedure _ZUmaybwq_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(200 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) >= 0 then
            begin
                ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(ZMnum) + '件祖玛武器，回收可获得:' + inttostr(getZybNum(2) * ZMnum) + '元宝，你确定回收所有祖玛武器吗？\|'
    +'|{cmd}<确认回收所有祖玛武器/@ZUmaybwq_True>'
    +'|{cmd}<返回/@ZhuangBackybwq>');
end;

procedure_ZUmaybwq_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(200 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                ZMnum := ZMnum + itemNum;
                This_Player.Take(Iname, itemNum);
               

                This_Player.ScriptRequestAddYBNum(getZybNum(2) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(2) * ZMnum) + '元宝！\|'
    +'|{cmd}<返回/@ZhuangBackybwq>');

end;


procedure _Chiyueybwq_all;
var CYnum , i : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(300 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                CYnum := CYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(CYnum) + '件赤月武器，回收可获得:' + inttostr(getZybNum(3) * CYnum) + '元宝，你确定回收所有赤月武器吗？\|'
    +'|{cmd}<确认回收所有赤月武器/@Chiyueybwq_True>'
    +'|{cmd}<返回/@ZhuangBackybwq>');
end;

procedure_Chiyueybwq_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(300 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                CYnum := CYnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.ScriptRequestAddYBNum(getZybNum(3) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(3) * CYnum) + '元宝！\|'

    +'|{cmd}<返回/@ZhuangBackybwq>');

end;


procedure _molongybwq_all;
var MLnum , i : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(400 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MLnum := MLnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MLnum) + '件魔龙武器，回收可获得:' + inttostr(getZybNum(4) * mlnum) + '元宝，你确定回收所有魔龙武器吗？\|'
    +'|{cmd}<确认回收所有魔龙武器/@molongybwq_True>'
    +'|{cmd}<返回/@ZhuangBackybwq>');
end;

procedure_molongybwq_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(400 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MLnum := MLnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.ScriptRequestAddYBNum(getZybNum(4) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(4) * MLnum) + '元宝！\|'

    +'|{cmd}<返回/@ZhuangBackybwq>');

end;

procedure _qiangmoybwq_all;
var QMnum , i : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(500 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                QMnum := QMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(QMnum) + '件强化魔龙武器，回收可获得:' + inttostr(getZybNum(5) * QMnum) + '元宝，你确定回收所有强化魔龙武器吗？\|'
    +'|{cmd}<确认回收所有强化魔龙武器/@qiangmoybwq_True>'
    +'|{cmd}<返回/@ZhuangBackybwq>');
end;

procedure_qiangmoybwq_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(500 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                QMnum := QMnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.ScriptRequestAddYBNum(getZybNum(5) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(5) * QMnum) + '元宝！\|'

    +'|{cmd}<返回/@ZhuangBackybwq>');

end;

procedure _mishiybwq_all;
var MSnum , i : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(600 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MSnum := MSnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MSnum) + '件迷失武器，回收可获得:' + inttostr(getZybNum(6) * MSnum) + '元宝，你确定回收所有迷失武器吗？\|'
    +'|{cmd}<确认回收所有迷失武器/@mishiybwq_True>'
    +'|{cmd}<返回/@ZhuangBackybwq>');
end;

procedure_mishiybwq_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(600 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MSnum := MSnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.ScriptRequestAddYBNum(getZybNum(6) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(6) * MSnum) + '元宝！\|'

    +'|{cmd}<返回/@ZhuangBackybwq>');

end;

procedure _meiyingybwq_all;
var MYnum , i : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(700 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MYnum := MYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MYnum) + '件终极の魅影武器，回收可获得:' + inttostr(getZybNum(7) * MYnum) + '元宝，你确定回收所有终极の魅影武器吗？\|'
    +'|{cmd}<确认回收所有终极の魅影武器/@meiyingybwq_True>'
    +'|{cmd}<返回/@ZhuangBackybwq>');
end;

procedure_meiyingybwq_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(700 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MYnum := MYnum + itemNum;
                This_Player.Take(Iname, itemNum);

                              

                This_Player.ScriptRequestAddYBNum(getZybNum(7)*itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(7) * MYnum) + '元宝！\|'

    +'|{cmd}<返回/@ZhuangBackybwq>');

end;
//=============================金刚石



procedure _ZhuangBackjgswq;
begin
    This_NPC.NpcDialog(This_Player,
    '|请把不要回收的武器放在仓库，回收概不负责：\'
//   +'|袄玛武器每个回收2金刚石            <一键回收/@Womajgswq_all>\'
   +'|祖玛武器每个回收3金刚石            <一键回收/@ZUmajgswq_all>\'
   +'|赤月武器每个回收20金刚石            <一键回收/@ChiYuejgswq_all>\'
   +'|魔龙武器每个回收50金刚石            <一键回收/@molongjgswq_all>\'
//   +'|强魔武器每个回收100金刚石          <一键回收/@qiangmojgswq_all>\'
   +'|迷失武器每个回收100金刚石          <一键回收/@mishijgswq_all>\'
   +'|魅影武器每个回收200金刚石          <一键回收/@meiyingjgswq_all>\'
   +'|{cmd}<退出/@doexit>'

    );

end;

procedure _Womajgswq_all;
var WMnum , i : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(100 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                WMnum := WMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZjgsNum(1) * WMnum) + '金刚石，你确定回收所有沃玛武器吗？\|'
    +'|{cmd}<确认回收所有沃玛武器/@Womajgswq_True>'
    +'|{cmd}<返回/@ZhuangBackjgswq>');
end;

procedure_Womajgswq_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(100 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                WMnum := WMnum + itemNum;
                This_Player.Take(Iname, itemNum);
             This_Player.Give('金刚石',getZjgsNum(1) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(1) * WMnum) + '金刚石！\|'
    +'|{cmd}<返回/@ZhuangBackjgswq>');

end;

///////////////////////////

procedure _ZUmajgswq_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(200 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) >= 0 then
            begin
                ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(ZMnum) + '件祖玛武器，回收可获得:' + inttostr(getZjgsNum(2) * ZMnum) + '金刚石，你确定回收所有祖玛武器吗？\|'
    +'|{cmd}<确认回收所有祖玛武器/@ZUmajgswq_True>'
    +'|{cmd}<返回/@ZhuangBackjgswq>');
end;

procedure_ZUmajgswq_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(200 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                ZMnum := ZMnum + itemNum;
                This_Player.Take(Iname, itemNum);
               This_Player.Give('金刚石',getZjgsNum(2) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(2) * ZMnum) + '金刚石！\|'
    +'|{cmd}<返回/@ZhuangBackjgswq>');

end;


procedure _Chiyuejgswq_all;
var CYnum , i : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(300 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                CYnum := CYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(CYnum) + '件赤月武器，回收可获得:' + inttostr(getZjgsNum(3) * CYnum) + '金刚石，你确定回收所有赤月武器吗？\|'
    +'|{cmd}<确认回收所有赤月武器/@Chiyuejgswq_True>'
    +'|{cmd}<返回/@ZhuangBackjgswq>');
end;

procedure_Chiyuejgswq_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(300 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                CYnum := CYnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.Give('金刚石',getZjgsNum(3) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(3) * CYnum) + '金刚石！\|'

    +'|{cmd}<返回/@ZhuangBackjgswq>');

end;


procedure _molongjgswq_all;
var MLnum , i : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(400 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MLnum := MLnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MLnum) + '件魔龙武器，回收可获得:' + inttostr(getZjgsNum(4) * mlnum) + '金刚石，你确定回收所有魔龙武器吗？\|'
    +'|{cmd}<确认回收所有魔龙武器/@molongjgswq_True>'
    +'|{cmd}<返回/@ZhuangBackjgswq>');
end;

procedure_molongjgswq_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(400 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MLnum := MLnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.Give('金刚石',getZjgsNum(4) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(4) * MLnum) + '金刚石！\|'

    +'|{cmd}<返回/@ZhuangBackjgswq>');

end;

procedure _qiangmojgswq_all;
var QMnum , i : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(500 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                QMnum := QMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(QMnum) + '件强化魔龙武器，回收可获得:' + inttostr(getZjgsNum(5) * QMnum) + '金刚石，你确定回收所有强化魔龙武器吗？\|'
    +'|{cmd}<确认回收所有强化魔龙武器/@qiangmojgswq_True>'
    +'|{cmd}<返回/@ZhuangBackjgswq>');
end;

procedure_qiangmojgswq_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(500 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                QMnum := QMnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.Give('金刚石',getZjgsNum(5) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(5) * QMnum) + '金刚石！\|'

    +'|{cmd}<返回/@ZhuangBackjgswq>');

end;

procedure _mishijgswq_all;
var MSnum , i : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(600 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MSnum := MSnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MSnum) + '件迷失武器，回收可获得:' + inttostr(getZjgsNum(6) * MSnum) + '金刚石，你确定回收所有迷失武器吗？\|'
    +'|{cmd}<确认回收所有迷失武器/@mishigswq_True>'
    +'|{cmd}<返回/@ZhuangBackjgswq>');
end;

procedure_mishijgswq_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(600 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MSnum := MSnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              
                This_Player.Give('金刚石',getZjgsNum(6) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(6) * MSnum) + '金刚石！\|'

    +'|{cmd}<返回/@ZhuangBackjgswq>');

end;

procedure _meiyingjgswq_all;
var MYnum , i : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(700 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MYnum := MYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MYnum) + '件终极の魅影武器，回收可获得:' + inttostr(getZjgsNum(7) * MYnum) + '金刚石，你确定回收所有终极の魅影武器吗？\|'
    +'|{cmd}<确认回收所有终极の魅影武器/@meiyingjgswq_True>'
    +'|{cmd}<返回/@ZhuangBackjgswq>');
end;

procedure_meiyingjgswq_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(700 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MYnum := MYnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              

                              

                This_Player.Give('金刚石',getZjgsNum(7)*itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(7) * MYnum) + '金刚石！\|'

    +'|{cmd}<返回/@ZhuangBackjgswq>');

end;


//=============================金币

procedure _ZhuangBackjbwq;
begin
    This_NPC.NpcDialog(This_Player,
    '|请把不要回收的武器放在仓库，回收概不负责：\'
   +'|袄玛武器每个回收50000金币            <一键回收/@Womajbwq_all>\'
   +'|祖玛武器每个回收10W金币            <一键回收/@ZUmajbwq_all>\'
   +'|赤月武器每个回收50W金币            <一键回收/@ChiYuejbwq_all>\'
   +'|魔龙武器每个回收100W金币            <一键回收/@molongjbwq_all>\'
//+'|强魔武器每个回收50W金币          <一键回收/@qiangmojbwq_all>\'
   +'|迷失武器每个回收200W金币          <一键回收/@mishijbwq_all>\'
   +'|魅影武器每个回收500W金币          <一键回收/@meiyingjbwq_all>\'
   +'|{cmd}<退出/@doexit>'

    );

end;

procedure _Womajbwq_all;
var WMnum , i : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(100 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                WMnum := WMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZjbNumwuqi(1) * WMnum) + '金币，你确定回收所有沃玛武器吗？\|'
    +'|{cmd}<确认回收所有沃玛武器/@Womajbwq_True>'
    +'|{cmd}<返回/@ZhuangBackjbwq>');
end;

procedure_Womajbwq_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(100 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                WMnum := WMnum + itemNum;
                This_Player.Take(Iname, itemNum);
            This_Player.AddGold(getZjbNumwuqi(1) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNumwuqi(1) * WMnum) + '金币！\|'
    +'|{cmd}<返回/@ZhuangBackjbwq>');

end;

///////////////////////////

procedure _ZUmajbwq_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(200 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) >= 0 then
            begin
                ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(ZMnum) + '件祖玛武器，回收可获得:' + inttostr(getZjbNumwuqi(2) * ZMnum) + '金币，你确定回收所有祖玛武器吗？\|'
    +'|{cmd}<确认回收所有祖玛武器/@ZUmajbwq_True>'
    +'|{cmd}<返回/@ZhuangBackjbwq>');
end;

procedure_ZUmajbwq_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(200 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                ZMnum := ZMnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.AddGold(1000);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNumwuqi(2) * ZMnum) + '金币！\|'
    +'|{cmd}<返回/@ZhuangBackjbwq>');

end;


procedure _Chiyuejbwq_all;
var CYnum , i : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(300 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                CYnum := CYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(CYnum) + '件赤月武器，回收可获得:' + inttostr(getZjbNumwuqi(3) * CYnum) + '金币，你确定回收所有赤月武器吗？\|'
    +'|{cmd}<确认回收所有赤月武器/@Chiyuejbwq_True>'
    +'|{cmd}<返回/@ZhuangBackjbwq>');
end;

procedure_Chiyuejbwq_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(300 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                CYnum := CYnum + itemNum;
                This_Player.Take(Iname, itemNum);
               This_Player.AddGold(getZjbNumwuqi(3) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNumwuqi(3) * CYnum) + '金币！\|'

    +'|{cmd}<返回/@ZhuangBackjbwq>');

end;


procedure _molongjbwq_all;
var MLnum , i : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(400 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MLnum := MLnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MLnum) + '件魔龙武器，回收可获得:' + inttostr(getZjbNumwuqi(4) * mlnum) + '金币，你确定回收所有魔龙武器吗？\|'
    +'|{cmd}<确认回收所有魔龙武器/@molongjbwq_True>'
    +'|{cmd}<返回/@ZhuangBackjbwq>');
end;

procedure_molongjbwq_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(400 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MLnum := MLnum + itemNum;
                This_Player.Take(Iname, itemNum);
               This_Player.AddGold(getZjbNumwuqi(4) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNumwuqi(4) * MLnum) + '金币！\|'

    +'|{cmd}<返回/@ZhuangBackjbwq>');

end;

procedure _qiangmojbwq_all;
var QMnum , i : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(500 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                QMnum := QMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(QMnum) + '件强化魔龙武器，回收可获得:' + inttostr(getZjbNumwuqi(5) * QMnum) + '金币，你确定回收所有强化魔龙武器吗？\|'
    +'|{cmd}<确认回收所有强化魔龙武器/@qiangmojbwq_True>'
    +'|{cmd}<返回/@ZhuangBackjbwq>');
end;

procedure_qiangmojbwq_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(500 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                QMnum := QMnum + itemNum;
                This_Player.Take(Iname, itemNum);
               This_Player.AddGold(getZjbNumwuqi(5) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNumwuqi(5) * QMnum) + '金币！\|'

    +'|{cmd}<返回/@ZhuangBackjbwq>');

end;

procedure _mishijbwq_all;
var MSnum , i : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(600 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MSnum := MSnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MSnum) + '件迷失武器，回收可获得:' + inttostr(getZjbNumwuqi(6) * MSnum) + '金币，你确定回收所有迷失武器吗？\|'
    +'|{cmd}<确认回收所有迷失武器/@mishijbwq_True>'
    +'|{cmd}<返回/@ZhuangBackjbwq>');
end;

procedure_mishijbwq_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(600 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MSnum := MSnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              
               This_Player.AddGold(getZjbNumwuqi(6) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNumwuqi(6) * MSnum) + '金币！\|'

    +'|{cmd}<返回/@ZhuangBackjbwq>');

end;

procedure _meiyingjbwq_all;
var MYnum , i : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(700 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MYnum := MYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MYnum) + '件终极の魅影武器，回收可获得:' + inttostr(getZjbNumwuqi(7) * MYnum) + '金币，你确定回收所有终极の魅影武器吗？\|'
    +'|{cmd}<确认回收所有终极の魅影武器/@meiyingjbwq_True>'
    +'|{cmd}<返回/@ZhuangBackjbwq>');
end;

procedure_meiyingjbwq_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameByIdWQ(700 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MYnum := MYnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.AddGold(getZjbNumwuqi(7)*itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNumwuqi(7) * MYnum) + '金币！\|'

    +'|{cmd}<返回/@ZhuangBackjbwq>');

end;

//======================================
////////////////////////
procedure _Woma_all;
var WMnum , i : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(100 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                WMnum := WMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZexpNum(1) div 10000 * WMnum) + '万经验，你确定回收所有沃玛装备吗？\|'
    +'|{cmd}<确认回收所有沃玛装备/@Woma_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure_Woma_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(100 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                WMnum := WMnum + itemNum;
                This_Player.Take(Iname, itemNum);
               
                for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(1));
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(1) div 10000 * WMnum) + '万经验！\|'
    +'|{cmd}<返回/@ZhuangBack>');

end;



procedure _ZUma_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(200 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) >= 0 then
            begin
                ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(ZMnum) + '件祖玛装备，回收可获得:' + inttostr(getZexpNum(2) div 10000 * ZMnum) + '万经验，你确定回收所有祖玛装备吗？\|'
    +'|{cmd}<确认回收所有祖玛装备/@ZUma_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure_ZUma_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 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('经验', getZexpNum(2));
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(2) div 10000 * ZMnum) + '万经验！\|'
    +'|{cmd}<返回/@ZhuangBack>');

end;


procedure _Chiyue_all;
var CYnum , i , ShengW : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(300 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                CYnum := CYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(CYnum) + '件赤月装备，回收可获得:' + inttostr(getZexpNum(3) div 10000 * CYnum) + '万经验，获得' + inttostr(CYnum * 10) + '声望。你确定回收所有赤月装备吗？\|'
    +'|{cmd}<确认回收所有赤月装备/@Chiyue_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure_Chiyue_True;
var CYnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(300 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                CYnum := CYnum + itemNum;
                ShengW :=itemNum * 10;
                This_Player.Take(Iname, itemNum);
                for j := 1 to itemNum do
                This_Player.MyShengwan := This_Player.MyShengwan + 10
                This_Player.Give('经验', getZexpNum(3));
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(3) div 10000 * CYnum) + '万经验！\|'
      +'恭喜你获得' + inttostr(ShengW) + '声望\|'
    +'|{cmd}<返回/@ZhuangBack>');

end;


procedure _molong_all;
var MLnum , i : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(400 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MLnum := MLnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MLnum) + '件魔龙装备，回收可获得:' + inttostr(getZexpNum(4) div 10000 * mlnum) + '万经验，你确定回收所有魔龙装备吗？\|'
    +'|{cmd}<确认回收所有魔龙装备/@molong_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure_molong_True;
var MLnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(400 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MLnum := MLnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              ShengW :=itemNum * 10;
                for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(4));
                This_Player.MyShengwan := This_Player.MyShengwan + 10
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(4) div 10000 * MLnum) + '万经验！\|'
      +'恭喜你获得' + inttostr(ShengW) + '声望\|'
    +'|{cmd}<返回/@ZhuangBack>');

end;

procedure _qiangmo_all;
var QMnum , i : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(500 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                QMnum := QMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(QMnum) + '件强化魔龙装备，回收可获得:' + inttostr(getZexpNum(5) div 10000 * QMnum) + '万经验，你确定回收所有强化魔龙装备吗？\|'
    +'|{cmd}<确认回收所有强化魔龙装备/@qiangmo_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure_qiangmo_True;
var QMnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(500 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                QMnum := QMnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              ShengW :=itemNum * 10;
                for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(5));
                This_Player.MyShengwan := This_Player.MyShengwan + 10
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(5) div 10000 * QMnum) + '万经验！\|'
      +'恭喜你获得' + inttostr(ShengW) + '声望\|'
    +'|{cmd}<返回/@ZhuangBack>');

end;

procedure _mishi_all;
var MSnum , i : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(600 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MSnum := MSnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MSnum) + '件迷失装备，回收可获得:' + inttostr(getZexpNum(6) div 10000 * MSnum) + '万经验，你确定回收所有迷失装备吗？\|'
    +'|{cmd}<确认回收所有迷失装备/@mishi_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure_mishi_True;
var MSnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(600 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MSnum := MSnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              ShengW :=itemNum * 10;
                              //This_Player.Give('声望',1);
                for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(6));
                This_Player.MyShengwan := This_Player.MyShengwan + 10
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(6) div 10000 * MSnum) + '万经验！\|'
      +'恭喜你获得' + inttostr(ShengW) + '声望\|'
    +'|{cmd}<返回/@ZhuangBack>');

end;

procedure _meiying_all;
var MYnum , i : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(700 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MYnum := MYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MYnum) + '件终极の魅影装备，回收可获得:' + inttostr(getZexpNum(7) div 10000 * MYnum) + '万经验，你确定回收所有终极の魅影装备吗？\|'
    +'|{cmd}<确认回收所有终极の魅影装备/@_meiying_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure_meiying_True;
var MYnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(700 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MYnum := MYnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              ShengW :=itemNum * 10;
                              //This_Player.Give('声望',1);
                for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(7));
                This_Player.MyShengwan := This_Player.MyShengwan + 10
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(7) div 10000 * MYnum) + '万经验！\|'
      +'恭喜你获得' + inttostr(ShengW) + '声望\|'
    +'|{cmd}<返回/@ZhuangBack>');

end;
//===============================元宝


procedure _ZhuangBackyb;
begin
    This_NPC.NpcDialog(This_Player,
    '|请把不要回收的装备放在仓库，回收概不负责：\'
   +'|袄玛首饰每个回收2元宝            <一键回收/@Womayb_all>\'
   +'|祖玛首饰每个回收5元宝            <一键回收/@ZUmayb_all>\'
   +'|赤月首饰每个回收20元宝            <一键回收/@ChiYueyb_all>\'
   +'|魔龙首饰每个回收50元宝            <一键回收/@molongyb_all>\'
   +'|强魔首饰每个回收100元宝          <一键回收/@qiangmoyb_all>\'
   +'|迷失首饰每个回收200元宝          <一键回收/@mishiyb_all>\'
   +'|魅影首饰每个回收300元宝          <一键回收/@meiyingyb_all>\'
   +'|{cmd}<退出/@doexit>'

    );

end;

procedure _Womayb_all;
var WMnum , i : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(100 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                WMnum := WMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZybNum(1) * WMnum) + '元宝，你确定回收所有沃玛装备吗？\|'
    +'|{cmd}<确认回收所有沃玛装备/@Womayb_True>'
    +'|{cmd}<返回/@ZhuangBackyb>');
end;

procedure_Womayb_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(100 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                WMnum := WMnum + itemNum;
                This_Player.Take(Iname, itemNum);
               

                This_Player.ScriptRequestAddYBNum(getZybNum(1) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(1) * WMnum) + '元宝！\|'
    +'|{cmd}<返回/@ZhuangBackyb>');

end;

///////////////////////////

procedure _ZUmayb_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(200 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) >= 0 then
            begin
                ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(ZMnum) + '件祖玛装备，回收可获得:' + inttostr(getZybNum(2) * ZMnum) + '元宝，你确定回收所有祖玛装备吗？\|'
    +'|{cmd}<确认回收所有祖玛装备/@ZUmayb_True>'
    +'|{cmd}<返回/@ZhuangBackyb>');
end;

procedure_ZUmayb_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 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);
               

                This_Player.ScriptRequestAddYBNum(getZybNum(2) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(2) * ZMnum) + '元宝！\|'
    +'|{cmd}<返回/@ZhuangBackyb>');

end;


procedure _Chiyueyb_all;
var CYnum , i : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(300 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                CYnum := CYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(CYnum) + '件赤月装备，回收可获得:' + inttostr(getZybNum(3) * CYnum) + '元宝，你确定回收所有赤月装备吗？\|'
    +'|{cmd}<确认回收所有赤月装备/@Chiyueyb_True>'
    +'|{cmd}<返回/@ZhuangBackyb>');
end;

procedure_Chiyueyb_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(300 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                CYnum := CYnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.ScriptRequestAddYBNum(getZybNum(3) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(3) * CYnum) + '元宝！\|'

    +'|{cmd}<返回/@ZhuangBackyb>');

end;


procedure _molongyb_all;
var MLnum , i : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(400 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MLnum := MLnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MLnum) + '件魔龙装备，回收可获得:' + inttostr(getZybNum(4) * mlnum) + '元宝，你确定回收所有魔龙装备吗？\|'
    +'|{cmd}<确认回收所有魔龙装备/@molongyb_True>'
    +'|{cmd}<返回/@ZhuangBackyb>');
end;

procedure_molongyb_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(400 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MLnum := MLnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.ScriptRequestAddYBNum(getZybNum(4) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(4) * MLnum) + '元宝！\|'

    +'|{cmd}<返回/@ZhuangBackyb>');

end;

procedure _qiangmoyb_all;
var QMnum , i : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(500 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                QMnum := QMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(QMnum) + '件强化魔龙装备，回收可获得:' + inttostr(getZybNum(5) * QMnum) + '元宝，你确定回收所有强化魔龙装备吗？\|'
    +'|{cmd}<确认回收所有强化魔龙装备/@qiangmoyb_True>'
    +'|{cmd}<返回/@ZhuangBackyb>');
end;

procedure_qiangmoyb_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(500 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                QMnum := QMnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.ScriptRequestAddYBNum(getZybNum(5) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(5) * QMnum) + '元宝！\|'

    +'|{cmd}<返回/@ZhuangBackyb>');

end;

procedure _mishiyb_all;
var MSnum , i : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(600 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MSnum := MSnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MSnum) + '件迷失装备，回收可获得:' + inttostr(getZybNum(6) * MSnum) + '元宝，你确定回收所有迷失装备吗？\|'
    +'|{cmd}<确认回收所有迷失装备/@mishiyb_True>'
    +'|{cmd}<返回/@ZhuangBackyb>');
end;

procedure_mishiyb_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(600 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MSnum := MSnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.ScriptRequestAddYBNum(getZybNum(6) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(6) * MSnum) + '元宝！\|'

    +'|{cmd}<返回/@ZhuangBackyb>');

end;

procedure _meiyingyb_all;
var MYnum , i : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(700 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MYnum := MYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MYnum) + '件终极の魅影装备，回收可获得:' + inttostr(getZybNum(7) * MYnum) + '元宝，你确定回收所有终极の魅影装备吗？\|'
    +'|{cmd}<确认回收所有终极の魅影装备/@meiyingyb_True>'
    +'|{cmd}<返回/@ZhuangBackyb>');
end;

procedure_meiyingyb_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(700 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MYnum := MYnum + itemNum;
                This_Player.Take(Iname, itemNum);

                              

                This_Player.ScriptRequestAddYBNum(getZybNum(7)*itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZybNum(7) * MYnum) + '元宝！\|'

    +'|{cmd}<返回/@ZhuangBackyb>');

end;
//=============================金刚石



procedure _ZhuangBackjgs;
begin
    This_NPC.NpcDialog(This_Player,
    '|请把不要回收的装备放在仓库，回收概不负责：\'
   +'|袄玛首饰每个回收2金刚石            <一键回收/@Womajgs_all>\'
   +'|祖玛首饰每个回收5金刚石            <一键回收/@ZUmajgs_all>\'
   +'|赤月首饰每个回收20金刚石            <一键回收/@ChiYuejgs_all>\'
   +'|魔龙首饰每个回收50金刚石            <一键回收/@molongjgs_all>\'
   +'|强魔首饰每个回收100金刚石          <一键回收/@qiangmojgs_all>\'
   +'|迷失首饰每个回收200金刚石          <一键回收/@mishijgs_all>\'
   +'|魅影首饰每个回收300金刚石          <一键回收/@meiyingjgs_all>\'
   +'|{cmd}<退出/@doexit>'

    );

end;

procedure _Womajgs_all;
var WMnum , i : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(100 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                WMnum := WMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZjgsNum(1) * WMnum) + '金刚石，你确定回收所有沃玛装备吗？\|'
    +'|{cmd}<确认回收所有沃玛装备/@Womajgs_True>'
    +'|{cmd}<返回/@ZhuangBackjgs>');
end;

procedure_Womajgs_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(100 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                WMnum := WMnum + itemNum;
                This_Player.Take(Iname, itemNum);
             This_Player.Give('金刚石',getZjgsNum(1) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(1) * WMnum) + '金刚石！\|'
    +'|{cmd}<返回/@ZhuangBackjgs>');

end;

///////////////////////////

procedure _ZUmajgs_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(200 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) >= 0 then
            begin
                ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(ZMnum) + '件祖玛装备，回收可获得:' + inttostr(getZjgsNum(2) * ZMnum) + '金刚石，你确定回收所有祖玛装备吗？\|'
    +'|{cmd}<确认回收所有祖玛装备/@ZUmajgs_True>'
    +'|{cmd}<返回/@ZhuangBackjgs>');
end;

procedure_ZUmajgs_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 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);
               This_Player.Give('金刚石',getZjgsNum(2) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(2) * ZMnum) + '金刚石！\|'
    +'|{cmd}<返回/@ZhuangBackjgs>');

end;


procedure _Chiyuejgs_all;
var CYnum , i : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(300 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                CYnum := CYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(CYnum) + '件赤月装备，回收可获得:' + inttostr(getZjgsNum(3) * CYnum) + '金刚石，你确定回收所有赤月装备吗？\|'
    +'|{cmd}<确认回收所有赤月装备/@Chiyuejgs_True>'
    +'|{cmd}<返回/@ZhuangBackjgs>');
end;

procedure_Chiyuejgs_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(300 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                CYnum := CYnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.Give('金刚石',getZjgsNum(3) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(3) * CYnum) + '金刚石！\|'

    +'|{cmd}<返回/@ZhuangBackjgs>');

end;


procedure _molongjgs_all;
var MLnum , i : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(400 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MLnum := MLnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MLnum) + '件魔龙装备，回收可获得:' + inttostr(getZjgsNum(4) * mlnum) + '金刚石，你确定回收所有魔龙装备吗？\|'
    +'|{cmd}<确认回收所有魔龙装备/@molongjgs_True>'
    +'|{cmd}<返回/@ZhuangBackjgs>');
end;

procedure_molongjgs_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(400 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MLnum := MLnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.Give('金刚石',getZjgsNum(4) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(4) * MLnum) + '金刚石！\|'

    +'|{cmd}<返回/@ZhuangBackjgs>');

end;

procedure _qiangmojgs_all;
var QMnum , i : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(500 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                QMnum := QMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(QMnum) + '件强化魔龙装备，回收可获得:' + inttostr(getZjgsNum(5) * QMnum) + '金刚石，你确定回收所有强化魔龙装备吗？\|'
    +'|{cmd}<确认回收所有强化魔龙装备/@qiangmojgs_True>'
    +'|{cmd}<返回/@ZhuangBackjgs>');
end;

procedure_qiangmojgs_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(500 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                QMnum := QMnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.Give('金刚石',getZjgsNum(5) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(5) * QMnum) + '金刚石！\|'

    +'|{cmd}<返回/@ZhuangBackjgs>');

end;

procedure _mishijgs_all;
var MSnum , i : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(600 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MSnum := MSnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MSnum) + '件迷失装备，回收可获得:' + inttostr(getZjgsNum(6) * MSnum) + '金刚石，你确定回收所有迷失装备吗？\|'
    +'|{cmd}<确认回收所有迷失装备/@mishijgs_True>'
    +'|{cmd}<返回/@ZhuangBackjgs>');
end;

procedure_mishijgs_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(600 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MSnum := MSnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              
                This_Player.Give('金刚石',getZjgsNum(6) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(6) * MSnum) + '金刚石！\|'

    +'|{cmd}<返回/@ZhuangBackjgs>');

end;

procedure _meiyingjgs_all;
var MYnum , i : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(700 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MYnum := MYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MYnum) + '件终极の魅影装备，回收可获得:' + inttostr(getZjgsNum(7) * MYnum) + '金刚石，你确定回收所有终极の魅影装备吗？\|'
    +'|{cmd}<确认回收所有终极の魅影装备/@meiyingjgs_True>'
    +'|{cmd}<返回/@ZhuangBackjgs>');
end;

procedure_meiyingjgs_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(700 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MYnum := MYnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              

                              

                This_Player.Give('金刚石',getZjgsNum(7)*itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjgsNum(7) * MYnum) + '金刚石！\|'

    +'|{cmd}<返回/@ZhuangBackjgs>');

end;


//=============================金币

procedure _ZhuangBackjb;
begin
    This_NPC.NpcDialog(This_Player,
    '|请把不要回收的装备放在仓库，回收概不负责：\'
   +'|袄玛首饰每个回收5000金币            <一键回收/@Womajb_all>\'
   +'|祖玛首饰每个回收1W金币            <一键回收/@ZUmajb_all>\'
   +'|赤月首饰每个回收5W金币            <一键回收/@ChiYuejb_all>\'
   +'|魔龙首饰每个回收10W金币            <一键回收/@molongjb_all>\'
   +'|强魔首饰每个回收50W金币          <一键回收/@qiangmojb_all>\'
   +'|迷失首饰每个回收100W金币          <一键回收/@mishijb_all>\'
   +'|魅影首饰每个回收200W金币          <一键回收/@meiyingjb_all>\'
   +'|{cmd}<退出/@doexit>'

    );

end;

procedure _Womajb_all;
var WMnum , i : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(100 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                WMnum := WMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZjbNum(1) * WMnum) + '金币，你确定回收所有沃玛装备吗？\|'
    +'|{cmd}<确认回收所有沃玛装备/@Womajb_True>'
    +'|{cmd}<返回/@ZhuangBackjb>');
end;

procedure_Womajb_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
    WMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(100 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                WMnum := WMnum + itemNum;
                This_Player.Take(Iname, itemNum);
            This_Player.AddGold(getZjbNum(1) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNum(1) * WMnum) + '金币！\|'
    +'|{cmd}<返回/@ZhuangBackjb>');

end;

///////////////////////////

procedure _ZUmajb_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(200 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) >= 0 then
            begin
                ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(ZMnum) + '件祖玛装备，回收可获得:' + inttostr(getZjbNum(2) * ZMnum) + '金币，你确定回收所有祖玛装备吗？\|'
    +'|{cmd}<确认回收所有祖玛装备/@ZUmajb_True>'
    +'|{cmd}<返回/@ZhuangBackjb>');
end;

procedure_ZUmajb_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 15 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);
                This_Player.AddGold(1000);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNum(2) * ZMnum) + '金币！\|'
    +'|{cmd}<返回/@ZhuangBackjb>');

end;


procedure _Chiyuejb_all;
var CYnum , i : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(300 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                CYnum := CYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(CYnum) + '件赤月装备，回收可获得:' + inttostr(getZjbNum(3) * CYnum) + '金币，你确定回收所有赤月装备吗？\|'
    +'|{cmd}<确认回收所有赤月装备/@Chiyuejb_True>'
    +'|{cmd}<返回/@ZhuangBackjb>');
end;

procedure_Chiyuejb_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
    CYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(300 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                CYnum := CYnum + itemNum;
                This_Player.Take(Iname, itemNum);
               This_Player.AddGold(getZjbNum(3) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNum(3) * CYnum) + '金币！\|'

    +'|{cmd}<返回/@ZhuangBackjb>');

end;


procedure _molongjb_all;
var MLnum , i : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(400 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MLnum := MLnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MLnum) + '件魔龙装备，回收可获得:' + inttostr(getZjbNum(4) * mlnum) + '金币，你确定回收所有魔龙装备吗？\|'
    +'|{cmd}<确认回收所有魔龙装备/@molongjb_True>'
    +'|{cmd}<返回/@ZhuangBackjb>');
end;

procedure_molongjb_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
    MLnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(400 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MLnum := MLnum + itemNum;
                This_Player.Take(Iname, itemNum);
               This_Player.AddGold(getZjbNum(4) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNum(4) * MLnum) + '金币！\|'

    +'|{cmd}<返回/@ZhuangBackjb>');

end;

procedure _qiangmojb_all;
var QMnum , i : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(500 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                QMnum := QMnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(QMnum) + '件强化魔龙装备，回收可获得:' + inttostr(getZjbNum(5) * QMnum) + '金币，你确定回收所有强化魔龙装备吗？\|'
    +'|{cmd}<确认回收所有强化魔龙装备/@qiangmojb_True>'
    +'|{cmd}<返回/@ZhuangBackjb>');
end;

procedure_qiangmojb_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
    QMnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(500 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                QMnum := QMnum + itemNum;
                This_Player.Take(Iname, itemNum);
               This_Player.AddGold(getZjbNum(5) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNum(5) * QMnum) + '金币！\|'

    +'|{cmd}<返回/@ZhuangBackjb>');

end;

procedure _mishijb_all;
var MSnum , i : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(600 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MSnum := MSnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MSnum) + '件迷失装备，回收可获得:' + inttostr(getZjbNum(6) * MSnum) + '金币，你确定回收所有迷失装备吗？\|'
    +'|{cmd}<确认回收所有迷失装备/@mishijb_True>'
    +'|{cmd}<返回/@ZhuangBackjb>');
end;

procedure_mishijb_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
    MSnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(600 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MSnum := MSnum + itemNum;
                This_Player.Take(Iname, itemNum);
                              
               This_Player.AddGold(getZjbNum(6) * itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNum(6) * MSnum) + '金币！\|'

    +'|{cmd}<返回/@ZhuangBackjb>');

end;

procedure _meiyingjb_all;
var MYnum , i : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(700 + i);
      if Iname <> '' then
      begin
            if This_Player.GetBagItemCount(Iname) > 0 then
            begin
                MYnum := MYnum + This_Player.GetBagItemCount(Iname);
            end;
      end;
    end;
   
    This_NPC.NpcDialog(This_Player,
    '你的包裹中有' + inttostr(MYnum) + '件终极の魅影装备，回收可获得:' + inttostr(getZjbNum(7) * MYnum) + '金币，你确定回收所有终极の魅影装备吗？\|'
    +'|{cmd}<确认回收所有终极の魅影装备/@meiyingjb_True>'
    +'|{cmd}<返回/@ZhuangBackjb>');
end;

procedure_meiyingjb_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
    MYnum := 0;
    for i := 1 to 15 do
    begin
      Iname := getZBnameById(700 + i);
      if Iname <> '' then
      begin
            itemNum := This_Player.GetBagItemCount(Iname);
            if itemNum > 0 then
            begin
                MYnum := MYnum + itemNum;
                This_Player.Take(Iname, itemNum);
                This_Player.AddGold(getZjbNum(7)*itemNum);
            end;
      end;
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZjbNum(7) * MYnum) + '金币！\|'

    +'|{cmd}<返回/@ZhuangBackjb>');

end;
   
Begin
//TZJH_NPC;
domain;
end.

Chinese.Doll 发表于 2023-12-28 12:12:13

积分任务
页: [1]
查看完整版本: 战神引擎装备兑换经验，元宝回收脚本