声望回收装备+兑换经验和金币的Npc脚本

用于战神引擎的声望回收Npc脚本，脚本功能比较丰富，回收的装备从沃玛到赤月都有，并且还有一些武器系列，并且在NPC上增加了兑换功能，玩家可以通过回收得到的生活，兑换经验和金币，非常的方便，帮主看着不错，就提取出来了。

部分脚本

procedure  _5_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 50 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.MyShengwan := This_Player.MyShengwan+5000;								
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你成功回收！' 
    +'|{cmd}<返回/@main>');
end;
procedure _6_all;
var ZMnum , i : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 50 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(ZMnum) + '*20000点声望.\|'
    +'|{cmd}<确认回收所有赤月武器★装备/@6_True>'
    +'|{cmd}<返回/@main>');
end;
procedure  _6_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
    ZMnum := 0;
    for i := 1 to 50 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.MyShengwan := This_Player.MyShengwan+20000;								
            end;
        end; 
    end;
    This_NPC.NpcDialog(This_Player,
    '恭喜你成功回收！' 
    +'|{cmd}<返回/@main>');
end;
Begin
  domain;
end.

分享到：

赞(0)