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

用于战神引擎的声望回收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)