Yoko
http://forum.yoko.com.ua/

Реги
http://forum.yoko.com.ua/viewtopic.php?f=3&t=522		 Page 1 of 1
Author:  mike [ 2004-06-07 12:41:51 ]
Post subject:  Реги
довольно часто инжект показывает старые значения количества реагентов, что мешает точному определению что надо купить.
Нельзя ли принудительно с помощью какой-либо команды сделать принудительное пересчитывание реагентов?
Author:  Lord Ruslan Nightmare [ 2004-06-07 13:59:13 ]
Post subject: 
Code:
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


вызываешь ЭТО, указав в качетсве аргумента серийник своего бакпака
Правда, работает только для сумок, насколько я понял...Но это легко модифицируется
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/