战神引擎一键回收祖玛—星王Npc脚本(元宝回收)

用于战神引擎一键回收祖玛—星王Npc脚本，回收以后，玩家可以得到对应的元宝，回收脚本从祖玛到星王等装备都有，非常的全面，适合1.76-1.80复古手游版本，默认回收元宝，可以根据自己的要求，修改里面装备对应的回收元宝的数量。脚本自带装备判断功能，牵扯到了TaoZhuang.pas、common.pas这份文件。

部分脚本

procedure  _6_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(getZYBNum(11));
				begin
				for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(11));								
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你成功回收！' 
    +'|{cmd}<返回/@main>');
end;
end;
procedure  _66_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(getZYBNum(12));
				begin
				for j := 1 to itemNum do
                This_Player.Give('经验', getZexpNum(12));								
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你成功回收！' 
    +'|{cmd}<返回/@main>');
end;
end;
procedure _77_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(1200 + 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(12) * ZMnum) + '个元宝\|'
    +'|{cmd}<确认回收所有祖玛/@77_True>'
    +'|{cmd}<返回/@main>');
end;
procedure  _77_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 40 do
    begin
        Iname := getZBnameById(1200 + 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(getZYBNum(12));
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你成功回收！' 
    +'|{cmd}<返回/@main>');
end;
end;
Begin
TZJH_NPC;
  domain;
end.

分享到：

赞(0)