Реги

Ask for help

Moderators: Murderator+, Murderator

Post Reply
mike
Posts: 82
Joined: 2004-04-06 19:53:41

Реги

Post by mike »

довольно часто инжект показывает старые значения количества реагентов, что мешает точному определению что надо купить.
Нельзя ли принудительно с помощью какой-либо команды сделать принудительное пересчитывание реагентов?
Lord Ruslan Nightmare
Expert!
Posts: 359
Joined: 2004-04-25 11:11:07
Contact:

Post by Lord Ruslan Nightmare »

Code: Select all

sub UpdateContainers(contobj)
  var cont,cnt
  uo.FindType("0x0E76","-1","contobj")
  cnt=uo.FindCount()
  while cnt>0
   uo.UseObject("finditem")
   uo.MoveItem("finditem","0","contobj",STR(uo.GetX("finditem")),STR(uo.GetY("finditem")),STR(uo.GetZ("finditem")))
   wait(100)
   uo.Ignore("finditem")
   UpdateContainers(uo.GetSerial("finditem"))
   uo.FindType("0x0E76","-1","contobj")
    cnt=uo.FindCount()
  wend
  uo.FindType("0x0E75","-1","contobj")
  cnt=uo.FindCount()
  while cnt>0
   uo.UseObject("finditem")
   uo.MoveItem("finditem","0","contobj",STR(uo.GetX("finditem")),STR(uo.GetY("finditem")),STR(uo.GetZ("finditem")))
   wait(100)
   uo.Ignore("finditem")
   UpdateContainers(uo.GetSerial("finditem"))
   uo.FindType("0x0E75","-1","contobj")
    cnt=uo.FindCount()
  wend   
end sub


вызываешь ЭТО, указав в качетсве аргумента серийник своего бакпака
Правда, работает только для сумок, насколько я понял...Но это легко модифицируется
Без труда не выловишь и рыбку из пруда,
А без пруда не выловишь её и с трудом...
Post Reply