Ultima Online Antares

sub Loot()  ;Ëóò
DIM R[51]; è çäåñ òîæ íàäà äîáàâëÿòü
var c
R[1] = 0x1869 # Enchant
R[2] = 0x09B5 # Serpent`s Eggs 
R[3] = 0x0EE3 # Pautinka
R[4] = 0x0F8E  # Serpent`s Scales
R[5] = 0x0EED # Golden coins
R[6] = 0x1BDD
R[7] = 0x1CED # Goblin,Orc Heart
R[8] = 0x09F1 # Rib`s m9CKo
R[9] = 0x0F8A # Pig Iron
R[10] = 0x19BA # ore
R[11] = 0x0F90 # Dead Wood
R[12] = 0x0F7E # Bone
R[13] = 0x1BD1 # Feathers(ïåðüÿ)
R[14] = 0x0F87 # Eye of Newt
R[15] = 0x19B9
R[16] = 0x09B9 # Pti4e m9cko
R[17] = 0x1607 # KypuHblE Ho}l{ku
R[18] = 0x11F4 # Dark Fur
R[19] = 0x0F78 # Batwing
R[20] = 0x1844 # Orc Flacks
R[21] = 0x0F3F
R[22] = 0x108A # Ring
R[23] = 0x1087 # Errings
R[24] = 0x1010 # Key
R[25] = 0x0F8F # Vulcanic Ash
R[26] = 0x1085 # Lizard Beard`s
R[27] = 0x1F0B # Orcish Helm
R[28] = 0x0F82 # Dragon Blood
R[29] = 0x1E89 # Dragon Meat
R[30] = 0x141B # Orc Mask
R[31] = 0x19B7 # 1 ore
R[32] = 0x0F8B # Pumice 
R[33] = 0x0F7F # Brimstone
R[34] = 0x0F83 # Executioners Cap
R[35] = 0x1BFB # Bolts
R[36] = 0x0F13 # Rubys
R[37] = 0x0F11 # Sapphire
R[38] = 0x0F18 # Tourmaline
R[39] = 0x0F15 # Citrines
R[40] = 0x0F10 # Emeralds
R[41] = 0x0F16 # Amethyst
R[42] = 0x0F26 # Diamonds
R[43] = 0x0E34 # Blank Scrolls
R[44] = 0x1F6D # Summon Undead scroll
R[45] = 0x1F71 # Hallucination scroll
R[46] = 0x0E36 # Fire bolt scroll
R[47] = 0x1F64 # polimorph
R[48] = 0x1F69 # Summon Demon scroll
R[49] = 0x0E81 # Druid staff
R[50] = 0x1547 # Deer Mask
R[51] = 0x1078 # êîæà
UO.UseObject('lastcorpse')
wait(100)
uo.exec("warmode '0'")
uo.waittargetobject('lastcorpse')
uo.usetype(0x0F51);òàéï íàæà
wait(400)
uo.usetype(0x13B1);òàéï îðóæûÿ ëóê àðá è ò ä

for c=1 to 51 ;Äàáàâëÿ¸ áîëøå åñëè òàèïû äîáàâëÿø
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(1000)
end if
until UO.FindCount()<1
wait(10)
next
uo.exec("warmode '1'")
wait(10)
  UO.Exec("waitmenu 'Tracking' 'Players'")
  UO.Exec("useskill 'Tracking'")
 wait(100)
end sub

sub Loot1()
uo.useobject('lastcorpse')
UO.FindType(-1,-1,'lastcontainer')
while uo.FindCount()>0
UO.FindType(-1,-1,'lastcontainer')
UO.MoveItem('finditem',0,'backpak')
wait(1100)
wend
end sub

sub POREZ()
  uo.Set('finddistance','3')
  uo.WaitTargetObject('lastcontainer')
  uo.usetype('0x0F51','0x0000')
  wait(500)
  uo.usetype(0x13B1)
end sub