Ultima Online Antares

sub loot2()
   DIM R[21]
   var a  
   R[1] = 0x1078 #Кожа
   R[2] = 0x0F3F #Стрелы
   R[3] = 0x09F1 #Мясо
   R[4] = 0x1869 #Энчанты
   R[5] = 0x0eed #Золото
   R[6] = 0x14fb #Отмычки
   R[7] = 0x0f26 #Гранат
   R[8] = 0x0f25 #Янтарь
   R[9] = 0x0f18 #Турмалин
   R[10] = 0x0f13 #Рубин
   R[11] = 0x0f11 #Сапфир
   R[12] = 0x0f10 #Изумруд
   R[13] = 0x0f16 #Аметист
   R[14] = 0x0f15 #Цитрин
   R[15] = 0x0f26 #Алмаз
   R[16] = 0x0e37 #Small Reagent Pack
   R[17] = 0x19b9 #Big Ore
   R[18] = 0x0f8a #Pig Iron
   R[19] = 0x0f8f #Volcanic Ash
   R[20] = 0x19b7 #Small Ore
   R[21] = 0x0f8e #Serpent Scale
   uo.waittargetobject('lastcorpse')
   uo.usetype(0x0ec2); #тип кинжала, которым будем резать кожу.
   wait(300)
   UO.UseObject('lastcorpse')
   wait(300)
   for a=1 to 21
      repeat
         uo.findtype(R[a],"-1","lastcorpse")
         if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
            UO.Grab("0","finditem")
            wait(80)
         end if
      until UO.FindCount()<1
      wait(80)
   next  
end sub

   R[1] = '0x1078' #Кожа
   R[2] = '0x0F3F' #Стрелы
   R[3] = '0x09F1' #Мясо
   R[4] = '0x186'9 #Энчанты
   R[5] = '0x0eed' #Золото
   R[6] = '0x14fb' #Отмычки
   R[7] = '0x0f26' #Гранат
   R[8] = '0x0f25' #Янтарь
   R[9] = '0x0f18' #Турмалин
   R[10] = '0x0f13' #Рубин
   R[11] = '0x0f11' #Сапфир
   R[12] = '0x0f10' #Изумруд
   R[13] = '0x0f16' #Аметист
   R[14] = '0x0f15' #Цитрин
   R[15] = '0x0f26' #Алмаз
   R[16] = '0x0e37' #Small Reagent Pack
   R[17] = '0x19b9' #Big Ore
   R[18] = '0x0f8a' #Pig Iron
   R[19] = '0x0f8f' #Volcanic Ash
   R[20] = '0x19b7' #Small Ore
   R[21] = '0x0f8e' #Serpent Scale

,info

_info

Type=0x0E9C

DIM R[21]

DIM R[22]

for a=1 to 21

for a=1 to 22

            UO.Grab("0","finditem")
            wait(80)

sub loote()
DIM R[52]
var a
R[1] = '0x0EED';gold
R[2] = '0x09F1';rat rib
R[3] = '0x1078';skin
R[4] = '0x0F25';small reagent's pack
R[5] = '0x19B7';key
R[6] = '0x0F26';granate
R[7] = '0x0F11';Sapphire
R[8] = '0x0F87';Arrow
R[9] = '0x0F18'; dedwood
R[10] = '0x1869'; enchant
R[11] = '0x0F15'; batwings
R[12] = '0x0F7E'; bones
R[13] = '0x0F16'; heart
R[14] = '0x0F13'; fertil dirt
R[15] = '0x0F10'; emeral
R[16] = '0x0F89'; emera
R[17] = '0x0F7C'; emera
R[18] = '0x0F79'; emera
R[19] = '0x09B5'; emera
R[20] = '0x0F81'; emera
R[21] = '0x0F8E'; emera
R[22] = '0x0F83'; emera
R[23] = '0x0E37'; emera
R[24] = '0x14EF'; emera
R[25] = '0x13B1'; emera
R[26] = '0x13FC'; emera
R[27] = '0x0F60'; emera
R[28] = '0x13B9'; emera
R[29] = '0x1402'; emera
R[30] = '0x13B5'; emera
R[31] = '0x1404'; emera
R[32] = '0x1400'; emera
R[33] = '0x143A'; emera
R[34] = '0x143C'; emera
R[35] = '0x143E'; emera
R[36] = '0x0F3F'; emera
R[37] = '0x0E76'; emera
R[38] = '0x14FB'; emera
R[39] = '0x0991'; emera
R[40] = '0x1844'; emera
R[41] = '0x19BA'; emera
R[42] = '0x0F86'; emera
R[43] = '0x0F8C'; emera
R[44] = '0x0F8A'; emera
R[45] = '0x0C7F'; emera
R[46] = '0x0F84'; emera
R[47] = '0x0F7B'; emera
R[48] = '0x0F7A'; emera
R[49] = '0x0F85'; emera
R[50] = '0x0F88'; emera
R[51] = '0x0F8D'; emera
R[52] = '0x0F91'; emera
UO.UseObject('lastcorpse')
uo.waittargetobject('lastcorpse')
uo.usetype(0x13F6)
wait(500)
for a=1 to 52
uo.findtype(R[a],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then
UO.Grab("0","finditem")
wait(1100)
end if
wait(10)
next
wait(300)
if uo.count('0x1078') then
uo.waittargettype('0x1078')
wait(100)
endif
wait(300)
end sub