用于战神引擎的一键回收元宝脚本，这个脚本非常的有代表性，因为战神引擎的版本大部分都是复古类型，回收也是每一个版本必备的npc功能，今天帮主在测试迪奥合击看到了这个脚本，提取出来，分享给大家，支持一键，对玩家来说，非常的方便。而且回收的装备从祖玛到魔龙全部都有。脚本也是明文版的，可以任意修改里面的回收内容。

部分脚本

PROGRAM Mir2;
{$I TaoZhuang.pas}
{$I common.pas}
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
  This_Npc.NpcDialog(This_Player,
   '|<祖玛回收:/c=red>每件2元宝^<一键收祖玛装备/@77_all>\'+
   '|<赤月装备:/c=red>每件5元宝　^<一键收赤月装备/@1_all>\'+
   '|<雷霆装备:/c=red>每件10元宝　^<一键收雷霆装备/@2_all>\'+
   '|<强化装备:/c=red>每件50元宝^<一键收强化装备/@6_all>\'+
   '|<战神装备:/c=red>每件200元宝　^<一键收战神装备/@3_all>\'+
   '|<星王装备:/c=red>每件800元宝^<一键收星王装备/@4_all>\'+
   '|<怒斩天魔衣:/c=red>每件50元宝　^<一键收怒斩天魔衣/@11_all>\'+
   '|<雷霆屠龙:/c=red>每件200元宝　^<一键收雷霆剑甲/@22_all>\'+
   '|<开天系列:/c=red>每件2000元宝  ^<一键收开天系列/@33_all>\'+
   '|<回收注意:/c=red>不想回收的装备请放置仓库\'+
   '|{cmd}<退出/@doexit>');
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 := '斗笠43号';
	     		16 : result := '斗笠44号';
				17 : result := '斗笠45号';
				18 : result := '荣誉勋章43号';
				19 : result := '荣誉勋章44号';
				20 : 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 := '逍遥扇';
            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 := '光芒腰带';
                15 : result := '光芒道靴';
				16 : result := '烈焰魔盔';
			    17 : result := '圣龙盔';
                18 : result := '魔龙盔';
				19 : result := '天龙盔';
				20 : result := '光芒道盔';
                21 : result := '烈焰魔盔';
				22 : result := '雷霆战盔';
            end;
        end;