Ultima Online Antares

####### АВТОЛУТ ########
sub autolootr()
var corpse,i,j,meshok ,kortik
uo.set('finddistance','2')
uo.set('distance','2')
DIM R[26]
R[0] = 0x0EED # золотишко
R[1] = 0x1078 # шкуры
R[2] = 0x0F3F # стрелы
R[3] = 0x14EF # диды
R[4] = 0x0E37 # регпаки
R[5] = 0x09F1 # мясо
R[6] = 0x0F16 # аметисты
R[7] = 0x0F10 # эмеральды
R[8] = 0x0F15 # цитрины
R[9] = 0x0F26 # диаманды
R[10] = 0x0F7E # кости
R[11] = 0x0F8E # серпент скайлс  
R[12] = 0x1869 # энч
R[13] = 0x0F87 # глазки
R[14] = 0x0F82 # Dragons Blood
R[15] = 0x0F83 # сердца
R[16] = 0x0F7A # блэк перл (для Фул Рефреш)
R[17] = 0x0F86 # мандрейк рут (для Греат Стр)
R[18] = 0x0F84 # гарлик (для Греат Кур и для Арма)
R[19] = 0x0F85 # гинсенг (для Греат Хил )
R[20] = 0x0F8C # сулфос аш
R[21]= 0x0F7B # блуд мос (для Греат Агилити)
R[22]= 0x0F88 # найтшэйд (для Хомериков)
R[23]= 0x0E24 # бутылки
R[24]= 0x0F18 # турмалины
R[25]= 0x1BFB # болты

# РЕГИ
# = 0x0F7A # блэк перл (для Фул Рефреш)
# = 0x0F86 # мандрейк рут (для Греат Стр)
# = 0x0F84 # гарлик (для Греат Кур и для Арма)
# = 0x0F85 # гинсенг (для Греат Хил )
# = 0x0F8D # спайдер силк
# = 0x0F8C # сулфос аш
# = 0x0F7B # блуд мос (для Греат Агилити)
# = 0x0F88 # найтшэйд (для Хомериков)
# = 0x0F8E # серпент скайлс
# = 0x0F87 # глазки

# ВСЕ ОСТАЛЬНОЕ
# = 0x1078 # шкуры
# = 0x1BDD # логи
# = 0x1BF2 # инги
# = 0x14EF # диды
# = 0x0E37 # регпаки
# = 0x09F1 # мясо
# = 0x0F7E # кости
# = 0x19B7 # оре (руда)
# = 0x0F83 # сердца

# КАМНИ:
# = 0x0F15 # цитрины
# = 0x0F13 # рубины
# = 0x0F11 # сапфиры  
# = 0x0F26 # гранаты
# = 0x0F26 # диаманды
# = 0x0F16 # аметисты
# = 0x0F18 # турмалины  
# = 0x0F10 # эмеральды
# = 0x0F25 # амберы

  uo.print('Укажи кортик???')
  uo.addobject('kortik')
  while uo.targeting()
  wait(2000)
  wend

uo.print('Куда скидывать лут???')
uo.addobject('meshok')
while uo.targeting()
wait(100)
wend

while true

while uo.countonground('0x2006') > 0
uo.findtype('0x2006','-1','ground')
if uo.findcount() > 0 then
corpse=uo.getserial('finditem')
uo.useobject(corpse)
wait(500)

  uo.useobject('kortik')
  uo.waittargetobject(corpse)
  wait(1000)
uo.print("Start looting!!")
for i=0 to 25
j=0
  
repeat
UO.FindType(R[i],-1,corpse)
if UO.GetQuantity('finditem') then
uo.print("Looting......!")
UO.Grab('finditem','0','meshok')
wait(500)

end if

j = j + 1
if j > 15 then
goto stuck
end if
until uo.findcount()==0
next
stuck:
uo.ignore(corpse)
Else
uo.print("No Corpses Beside!!!")
end if
end:
wend
wait(100)
wend
end sub

uo.setreceivingcontainer('meshok')
uo.grab('-1', 'finditem')