战神手游传奇私服-装备回收脚本

脚本内容如下：

请复制以下内容，可自行修改。

PROGRAM Mir2;

{$I common.pas}

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

procedure domain;
begin
  This_Npc.NpcDialog(This_Player,
    '<不用的装备可以在我这里回收成经验和灵符！/c=red> |\'+
   '|{cmd}<装备回收/@ZhuangBack>\'+
   '|{cmd}<退出/@doexit>');//战神引擎技术交流群(佰盛):933949895
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 := '泰坦戒指';
                10 : result := '黑铁头盔';
                11 : result := '青铜腰带';
                12 : result := '紫绸靴';
    13 : result := '骨玉权杖';
    14 : result := '裁决之杖';
    15 : result := '龙纹剑';
    16 : result := '斗笠43号';
    17 : result := '斗笠44号';
    18 : result := '斗笠45号';
    19 : result := '荣誉勋章43号';
    20 : result := '荣誉勋章44号';
    21 : result := '荣誉勋章45号';
            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 := '天尊戒指';
                13 : result := '钢铁腰带';
                14 : result := '避魂靴';
    15 : result := '霓裳羽衣';
                16 : result := '天师长袍';
                17 : result := '圣战宝甲';
                18 : result := '天魔神甲';
                19 : result := '法神披风';
                20 : result := '天尊道袍';
    21 : result := '斗笠53号';
    22 : result := '斗笠54号';
    23 : result := '斗笠55号';

            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 := '天之天尊戒指';

            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 := '光芒道靴';
    16 : result := '烈焰魔盔';
       17 : result := '圣龙盔';
                18 : result := '魔龙盔';
    19 : result := '天龙盔';
    20 : result := '光芒道盔';
    21 : result := '雷霆战盔';
       22 : result := '龙牙';
                23 : result := '怒斩';
    24 : result := '逍遥扇';
    25 : result := '烈焰魔衣(男)';
                26 : result := '烈焰魔衣(女)';
    27 : result := '雷霆战甲(男)';
       28 : result := '雷霆战甲(女)';
                29 : result := '光芒道袍(男)';
    30 : result := '光芒道袍(女)';
       31 : result := '屠龙';
                32 : result := '霸者之刃';
    33 : result := '嗜魂法杖';
    34 : result := '太极戒指';
                35 : result := '狂战戒指';
    36 : result := '混世戒指';
       37 : result := '太极手镯';
                38 : result := '狂战手镯';
    39 : 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 := '天之烈焰腰带';
                16 : result := '天之烈焰魔靴';
                17 : result := '天之光芒项链';
                18 : result := '天之光芒护腕';
                19 : result := '天之光芒道戒';
                20 : result := '天之光芒腰带';
                21 : 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 := '真魂手镯';
                11 : result := '战神手镯';
    12 : result := '圣魔手镯';
       13 : result := '战神项链';
                14 : 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 := '极光项链';
                11 : result := '极光护腕';
    12 : result := '极光道戒';
       13 : result := '怒焰项链';
                14 : result := '怒焰护腕';
       15 : result := '怒焰魔戒';
                16 : result := '奔雷项链';
    17 : result := '奔雷护腕';
       18 : result := '奔雷战戒';
                19 : result := '誓言腰带(战)';
       20 : result := '誓言腰带(法)';
                21 : result := '誓言腰带(道)';
    22 : result := '预言头盔(战)';
       23 : result := '预言头盔(法)';
                24 : result := '预言头盔(道)';
       25 : result := '传说魔靴(法)';
                26 : result := '传说魔靴(战)';
    27 : result := '传说魔靴(道)';
       28 : result := '银星勋章(战)';
                29 : result := '银星勋章(道)';
    30 : result := '银星勋章(法)';
     end;
     end;
     
    end;
end;

function getZexpNum(Zlv : integer) : integer;
begin
    case Zlv of
        1 : result := 20000;
        2 : result := 80000;
        3 : result := 160000;
  4 : result := 320000;
        5 : result := 640000;
        6 : result := 1280000;
  7 : result := 3000000;
    end;
end;


procedure _ZhuangBack;
begin
    This_NPC.NpcDialog(This_Player,
    '<请选择要回收的装备种类！/c=red> |\'+
    '<不愿意回收的装备可以存到仓库！/c=red> |\' +
    +'|{cmd}<一键回收祖玛装备/@ZUma_all>      ^<一键回收赤月装备/@ChiYue_all>\'
    +'|{cmd}<一键回收天之赤月/@tianzhichiyue_all>       ^<一键回收魔龙+狂战/@molong_all>\'
 +'|{cmd}<一键回收天之魔龙/@tianzhimolong_all>   ^<一键回收开天凤天战神/@kaitian_all>'
 +'|{cmd}<一键回收黄金裁决，虎啸战甲，银星靴带盔章/@huangjin_all> '
 );
end;

procedure _zhuangDlg(LvidStr : string);
var ZlvId , i: integer;
DlgStr , ExpStr ,Iname,Ybstr,LFstr : string;
begin
    ZlvId := strToIntDef(LvidStr,-1);
    
    ExpStr := inttostr(getZexpNum(ZlvId) div 10000) + '万';
    DlgStr := '';
    
    for i := 1 to 39 do
    begin
        Iname := getZBnameById(ZlvId * 100 + i);
        if Iname <> '' then
        begin
            DlgStr := DlgStr + '<' + Iname + '/@ZhBackTrue~' + inttostr(ZlvId * 100 + i) + '>';
            if (i mod 3) = 0 then
            DlgStr := DlgStr + '|\'
            else
            DlgStr := DlgStr + '^';
        end; 
    end; 
    
    case ZlvId of
        1 : DlgStr := DlgStr + '<一键回收祖玛装备/@ZUma_all>';
        2 : DlgStr := DlgStr + '<一键回收赤月装备/@ChiYue_all>';
        3 : DlgStr := DlgStr + '<一键回收天之赤月/@tianzhichiyue_all>';
      4 : DlgStr := DlgStr + '<一键回收魔龙+狂战/@molong_all>';
      5 : DlgStr := DlgStr + '<一键回收天之魔龙+衣服/@tianzhimolong_all>';
      6 : DlgStr := DlgStr + '<一键回收开天凤天战神/@kaitian_all>';
    end;
    
    This_NPC.NpcDialog(This_Player,
    '请选择装备进行回收，或者一键全部回收！ \'
    +'|{cmd}' + DlgStr
    );      
end;

procedure _ZhBackTrue(ZBidStr : string);
var ZBid : integer;
ZBname : string;
begin
    ZBid := StrToIntDef(ZBidStr,-1);
    ZBname := getZBnameById(ZBid);
    if ZBname <> '' then
    begin
        if This_Player.GetBagItemCount(ZBname) > 0 then
        begin
            This_Player.Take(ZBname,1);
            This_Player.Give('经验',getZexpNum(ZBid div 100));
            This_NPC.NpcDialog(This_Player,
            '恭喜你成功回收！'
            +'|{cmd}<继续回收' + ZBname + '/@ZhBackTrue~' + inttostr(ZBid) + '>'
            +'|{cmd}<返回/@ZhuangBack~' + inttostr(ZBid div 100) + '>');
        end else
        This_NPC.NpcDialog(This_Player,
        '装备不足，无法回收！\'
        +'|{cmd}<返回/@ZhuangBack~' + inttostr(ZBid div 100) + '>'
        );  
    end;
end;

procedure _ZUma_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(100 + 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(1) div 10000 * ZMnum) + '万经验，' + inttostr(getZexpNum(1) div 20000 * 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 40 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('经验', getZexpNum(1));
    This_Player.AddLF(0,getZexpNum(1) div 20000);
    ServerSay('玩家<' + This_Player.Name + '>一键回收了'+ inttostr(ZMnum) + '件祖玛装备，获得:'+ inttostr(getZexpNum(1) div 10000) + '万经验！' + inttostr(getZexpNum(1) div 20000) + '个灵符！', 2);
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你成功回收！' 
    +'|{cmd}<返回/@ZhuangBack>');

end;


procedure _Chiyue_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 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) + '万经验，' + inttostr(getZexpNum(2) div 40000 * ZMnum) + '个灵符，你确定回收所有赤月装备吗？\|'
    +'|{cmd}<确认回收所有赤月装备/@Chiyue_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;


procedure  _Chiyue_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 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));
       This_Player.AddLF(0,getZexpNum(2) div 40000);
    ServerSay('玩家<' + This_Player.Name + '>一键回收了'+ inttostr(ZMnum) + '件赤月装备，获得:'+ inttostr(getZexpNum(2) div 10000) + '万经验！' + inttostr(getZexpNum(2) div 40000) + '个灵符！', 2);
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你成功回收'
    +'|{cmd}<返回/@ZhuangBack>');

end;

procedure _tianzhichiyue_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(300 + 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(3) div 10000 * ZMnum) + '万经验，' + inttostr(getZexpNum(3) div 40000 * ZMnum) + '个灵符，你确定回收所有天之赤月装备吗？\|'
    +'|{cmd}<确认回收所有天之赤月装备/@tianzhichiyue_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure  _tianzhichiyue_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 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('经验', getZexpNum(3));
                This_Player.AddLF(0,getZexpNum(3) div 40000);
    ServerSay('玩家<' + This_Player.Name + '>一键回收了'+ inttostr(ZMnum) + '件天之赤月装备，获得:'+ inttostr(getZexpNum(3) div 10000) + '万经验！' + inttostr(getZexpNum(3) div 40000) + '个灵符！', 2);
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你成功回收！'
    +'|{cmd}<返回/@ZhuangBack>');

end;

 

 

procedure _molong_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 39 do
    begin
        Iname := getZBnameById(400 + 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(4) div 10000 * ZMnum) + '万经验，' + inttostr(getZexpNum(4) div 64000 * ZMnum) + '个灵符，你确定回收所有魔龙装备吗？\|'
    +'|{cmd}<确认回收所有魔龙装备/@molong_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure  _molong_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 39 do
    begin
        Iname := getZBnameById(400 + 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(4));
    This_Player.AddLF(0,getZexpNum(4) div 64000);
    ServerSay('玩家<' + This_Player.Name + '>一键回收了'+ inttostr(ZMnum) + '件魔龙装备，获得:'+ inttostr(getZexpNum(4) div 10000) + '万经验！' + inttostr(getZexpNum(4) div 64000) + '个灵符！', 2);
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你回收成功！'
    +'|{cmd}<返回/@ZhuangBack>');

end;

 

 


procedure _tianzhimolong_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 21 do
    begin
        Iname := getZBnameById(500 + 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(5) div 10000 * ZMnum) + '万经验，' + inttostr(getZexpNum(5) div 64000 * ZMnum) + '个灵符，你确定回收所有天之魔龙装备吗？\|'
    +'|{cmd}<确认回收所有天之魔龙装备/@tianzhimolong_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure  _tianzhimolong_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 21 do
    begin
        Iname := getZBnameById(500 + 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(5));
                This_Player.AddLF(0,getZexpNum(5) div 64000);
    ServerSay('玩家<' + This_Player.Name + '>一键回收了'+ inttostr(ZMnum) + '件天之魔龙装备，获得:'+ inttostr(getZexpNum(5) div 10000) + '万经验！' + inttostr(getZexpNum(5) div 64000) + '个灵符！', 2);
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(5) div 10000 * ZMnum) + '万经验！' + inttostr(getZexpNum(5) div 64000 * ZMnum) + '个灵符！\|'
    +'|{cmd}<返回/@ZhuangBack>');

end;

 


procedure _kaitian_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 14 do
    begin
        Iname := getZBnameById(600 + 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(6) div 10000 * ZMnum) + '万经验，' + inttostr(getZexpNum(6) div 64000 * ZMnum) + '个灵符，你确定回收所有开天装备吗？\|'
    +'|{cmd}<确认回收所有开天战神装备/@kaitian_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;

procedure  _kaitian_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 14 do
    begin
        Iname := getZBnameById(600 + 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(6));
    This_Player.AddLF(0,getZexpNum(6) div 64000);
    ServerSay('玩家<' + This_Player.Name + '>一键回收了'+ inttostr(ZMnum) + '件开天装备，获得:'+ inttostr(getZexpNum(6) div 10000) + '万经验！' + inttostr(getZexpNum(6) div 64000) + '个灵符！', 2);
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(6) div 10000 * ZMnum) + '万经验！' + inttostr(getZexpNum(6) div 64000 * ZMnum) + '个灵符！\|'
    +'|{cmd}<返回/@ZhuangBack>');

end;


procedure _huangjin_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 30 do
    begin
        Iname := getZBnameById(700 + 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(7) div 10000 * ZMnum) + '万经验，' + inttostr(getZexpNum(7) div 60000 * ZMnum) + '个灵符，你确定回收所有黄金装备吗？\|'
    +'|{cmd}<确认回收所有黄金系列装备/@huangjin_True>'
    +'|{cmd}<返回/@ZhuangBack>');
end;


procedure  _huangjin_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 30 do
    begin
        Iname := getZBnameById(700 + 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(7));
    This_Player.AddLF(0,getZexpNum(7) div 60000);
    ServerSay('玩家<' + This_Player.Name + '>一键回收了'+ inttostr(ZMnum) + '件黄金装备，获得:'+ inttostr(getZexpNum(7) div 10000) + '万经验！' + inttostr(getZexpNum(7) div 60000) + '个灵符！', 2);
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getZexpNum(7) div 10000 * ZMnum) + '万经验！' + inttostr(getZexpNum(7) div 60000 * ZMnum) + '个灵符！\|'
    +'|{cmd}<返回/@ZhuangBack>');

end;


Begin
  domain;
end.