Yoko

Code: Select all

############################Cортировка мешков в сундуке##########

sub Sort()
 dim tmpBags[254] 
 dim Bags[254] 
 var s,z,c,n,x,y 
 var i = 0 
 var bag
uo.Print('Выбери Мусорку :)...') 
uo.Exec('addobject bag') 
while uo.Targeting() 
wait(100) 
wend 
uo.DeleteJournal()
# var bag = '0x40089941'

 UO.Resend()
 UO.UseObject('bag')
 wait(1000)

# Ищем все мешочки в bag и заносим в массив 
 UO.Useobject('bag')
 UO.findtype('0x0E76','-1','bag') 
 while UO.FindCount()>0 
  tmpBags[i] = UO.GetSerial("finditem") 
  i = i + 1 
  UO.Ignore("finditem") 
  wait(100) 
  UO.findtype('0x0E76','-1','bag') 
 wend 
 UO.IgnoreReset() 
 i = i - 1 

# Сортируем полученный массив по возрастанию серийника 

 for s = 0 to i 
  c = 0 
  for z = 0 to i 
   if tmpBags[s]>tmpBags[z] then 
    c = c + 1 
   endif 
  next 
  Bags[c] = tmpBags[s] 
 next 

# Раскладываем мешочки согласно сортировке 

 for n = 0 to 254 
  if Bags[n] then 
   x = 28 + (n-10*int(n/10))*12 
   y = 53 + int(n/10)*15 
   UO.moveitem (Bags[n], 1, 'bag', str(x), str(y), 0) 
   wait(1500) 
  endif 
 next 
end sub

Code: Select all

uo.SetReceivingContainer('Помойка')  
uo.FindType(Вид рунки в паке ) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
uo.UnSetReceivingContainer('помойка')

Code: Select all

Sub Tresh()
uo.SetReceivingContainer('0x4F825C0D') \\ИД трашкана
uo.FindType(0x1F14) \\ в апострафах или просто так надо писать тип?
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
uo.UnSetReceivingContainer('0x4F825C0D')
end sub

Code: Select all

sub Tresh() 
uo.SetReceivingContainer('0x4F825C0D') 
uo.FindType(0x1F14) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
uo.UnSetReceivingContainer('0x4F825C0D') 
endif
end sub

Code: Select all

sub Tresh()  
uo.FindType(0x1F14) 
if uo.GetQuantity('finditem')>0 then 
uo.SetReceivingContainer('0x4F825C0D')
uo.Grab('0','finditem') 
uo.UnSetReceivingContainer() 
end if
end sub