sub Loot2()
DIM R[44]
var c
R[1] = 0x0E75 # BackPack
R[2] = 0x0EED # Coin
R[3] = 0x0F3F # Arrow
R[4] = 0x1BFB # Bolt
R[5] = 0x1078 # Hides
R[6] = 0x0F90 # Dead Wood
R[7] = 0x0F7E # Bone
R[8] = 0x1E89 # Meat demon
R[9] = 0x1E88 # Meat dragon
R[10] = 0x0F80 # Bone Demon
R[11] = 0x0F91 # Wyrms Hearts
R[12] = 0x0F82 # Blood Dragon
R[13] = 0x1087 # Earings
R[14] = 0x108A # Ring
R[15] = 0x0F26 # Diamond
R[16] = 0x0F86 # Mandrake
R[17] = 0x0F7A # Black Perl
R[18] = 0x0F88 # Nigthshade
R[19] = 0x0F8C # Sulphorius Ash
R[20] = 0x0F85 # Ginserg
R[21] = 0x0F84 # Garlic
R[22] = 0x0F8D # Spider Silk
R[23] = 0x14EF # Reagent's pack
R[24] = 0x0F22 # Antares Point
R[25] = 0x0F78 # Batwings
R[26] = 0x0F15 # Cytrine
R[27] = 0x0F16 # Ametist
R[28] = 0x0F10 # Emerald
R[29] = 0x0F18 # Tourmaline
R[30] = 0x204E # Vampir Shroud
R[31] = 0x1CED # Hearts
R[32] = 0x143C # Hammer Pick
R[33] = 0x1B78 # Vampir Shield
R[34] = 0x144F # Vampir Chest
R[35] = 0x1452 # Vampire Legs
R[36] = 0x1450 # Vapire Gloves
R[37] = 0x13C7 # Vampire Gorget
R[38] = 0x1451 # Vampire Helm
R[39] = 0x14F0 # Deed
R[40] = 0x0F11 # Sapphire
R[41] = 0x09AA # Pandora Box
R[42] = 0x19B8 # 3 ore
R[43] = 0x19BA # 2 ore
R[44] = 0x19B7 # 1 ore
UO.UseObject('lastcorpse')
wait(100)
uo.waittargetobject('lastcorpse')
uo.usetype(0x0EC3)
wait(400)
for c=1 to 2
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(2000)
end if
until UO.FindCount()<1
wait(10)
next
UO.UseType('0x143C'); ghk
UO.WarMode(1)
UO.Press(120) #F9 .sac
end sub
МЕГА КРИВО И УБОГО ! НО РАБОТАЕТ !
