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