装备经验回收Npc脚本(用装备换经验)

用于战神引擎的装备回收经验的NPC脚本，脚本上面有元宝和经验2个回收选项，如果不要元宝，可以直接在脚本里面隐藏元宝回收的文字就行了，脚本里面自带了十套装备，注释了六套，明文版的文件，可以任意修改里面的回收装备名字和玩家获得的经验值。

装备经验回收Npc脚本(用装备换经验)

部分脚本

procedure _wangzhe1_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 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(getGoldNum(7) div 1 * ZMnum) + '个元宝，你确定回收所有王者装备吗？\|'
    +'|{cmd}<确认回收所有王者装备/@wangzhe1_True>'
    +'|{cmd}<返回/@zhuangDlg_22>');
end;
procedure  _wangzhe1_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 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.ScriptRequestAddYBNum(getGoldNum(7));
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getGoldNum(7) div 1 * ZMnum) + '个元宝！\|'
    +'|{cmd}<返回/@zhuangDlg_22>');
end;
procedure _tianlong1_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(800 + 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(getGoldNum(8) div 1 * ZMnum) + '个元宝，你确定回收所有天龙装备吗？\|'
    +'|{cmd}<确认回收所有天龙装备/@tianlong1_True>'
    +'|{cmd}<返回/@zhuangDlg_22>');
end;
procedure  _tianlong1_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(800 + 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.ScriptRequestAddYBNum(getGoldNum(8));
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getGoldNum(8) div 1 * ZMnum) + '个元宝！\|'
    +'|{cmd}<返回/@zhuangDlg_22>');
end;
//主宰
procedure _zhuzai1_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(900 + 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(getGoldNum(9) div 1 * ZMnum) + '个元宝，你确定回收所有主宰装备吗？\|'
    +'|{cmd}<确认回收所有主宰装备/@zhuzai1_True>'
    +'|{cmd}<返回/@zhuangDlg_22>');
end;
procedure  _zhuzai1_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(900 + 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.ScriptRequestAddYBNum(getGoldNum(9));
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getGoldNum(9) div 1 * ZMnum) + '个元宝！\|'
    +'|{cmd}<返回/@zhuangDlg_22>');
end;
//传奇
procedure _chuanqi1_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(1000 + 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(getGoldNum(10) div 1 * ZMnum) + '个元宝，你确定回收所有传奇装备吗？\|'
    +'|{cmd}<确认回收所有传奇装备/@chuanqi1_True>'
    +'|{cmd}<返回/@zhuangDlg_22>');
end;
procedure  _chuanqi1_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(1000 + 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.ScriptRequestAddYBNum(getGoldNum(10));
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getGoldNum(10) div 1 * ZMnum) + '个元宝！\|'
    +'|{cmd}<返回/@zhuangDlg_22>');
end;
//天神
procedure _tianshen1_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(1100 + 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(getGoldNum(11) div 1 * ZMnum) + '个元宝，你确定回收所有天神装备吗？\|'
    +'|{cmd}<确认回收所有天神装备/@tianshen1_True>'
    +'|{cmd}<返回/@zhuangDlg_22>');
end;
procedure  _tianshen1_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(1100 + 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.ScriptRequestAddYBNum(getGoldNum(11));
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你获得:' + inttostr(getGoldNum(11) div 1 * ZMnum) + '个元宝！\|'
    +'|{cmd}<返回/@zhuangDlg_22>');
end;
Begin
  domain;
end.

分享到：

赞(0)