Прошу помощи
Posted: 2009-04-01 21:18:28
Прошу помощи есть скрипт :
sub loot()
DIM R[48]
var c
var meshok=' Тип мешка ' #
R[1] = 0x0EED # Coin
R[2] = 0x13B1 # Enchant
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
R[45] = 0x0F25 # amber
R[46] = 0x14FB # lock
R[47] = 0x0F13 # rybi
R[48] = 0x0F7B # rybi
UO.UseObject('lastcorpse')
wait(100)
uo.FindType(meshok,'-1','lastcorpse') ; Ищем мешок в трупе
if uo.FindCount() then ; Проверка-есть ли в трупе мешок
uo.UseObject('finditem') ; Открываем мешок
for c=1 to 48
repeat
uo.findtype(R[c],"-1","lastcontainer") ; Ищем выше перечисленные вещи в мешке.
if UO.FindCount()>0 then ; Если в мешке есть чёто , тогда лутаем
UO.Grab("0","finditem")
wait(1000)
end if
until UO.FindCount()<1
wait(10)
next
end if
end sub
лутает из мешка то что прописано и голду из самого трупа.... а что нужно дописать или доделать поправить поправьте
чтобы то что осталось в трупе долутал.... заранее огромное спасибо
sub loot()
DIM R[48]
var c
var meshok=' Тип мешка ' #
R[1] = 0x0EED # Coin
R[2] = 0x13B1 # Enchant
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
R[45] = 0x0F25 # amber
R[46] = 0x14FB # lock
R[47] = 0x0F13 # rybi
R[48] = 0x0F7B # rybi
UO.UseObject('lastcorpse')
wait(100)
uo.FindType(meshok,'-1','lastcorpse') ; Ищем мешок в трупе
if uo.FindCount() then ; Проверка-есть ли в трупе мешок
uo.UseObject('finditem') ; Открываем мешок
for c=1 to 48
repeat
uo.findtype(R[c],"-1","lastcontainer") ; Ищем выше перечисленные вещи в мешке.
if UO.FindCount()>0 then ; Если в мешке есть чёто , тогда лутаем
UO.Grab("0","finditem")
wait(1000)
end if
until UO.FindCount()<1
wait(10)
next
end if
end sub
лутает из мешка то что прописано и голду из самого трупа.... а что нужно дописать или доделать поправить поправьте
