Проблемка млин...

Ask for help

Moderators: Murderator+, Murderator

Post Reply
jin
Posts: 8
Joined: 2006-04-05 19:58:43

Проблемка млин...

Post by jin »

Ребят, подскажите, лутить должно в радиусе двух тайлов от себя... а не лутит :(((

Code: Select all

sub Loot() 
if uo.Waiting() then
uo.CancelTarget()
end if
var L, Exit
dim Loot[3]
   Loot[0]=0x0F09 # Стренж банки
   Loot[1]=0x0EED # Голд
   Loot[2]=0x19B9 # Руда
uo.SetReceivingContainer('Backpak')
wait(200)
for L=0 to 2
Exit=0
repeat
uo.FindType(Loot[L],'-2',"ground")
if uo.GetQuantity('finditem')>0 then
uo.Grab(STR(0),'finditem')
wait(300)
else
Exit=1
end if
until Exit==1
next
uo.UnSetReceivingContainer()
end sub
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Re: Проблемка млин...

Post by Scripts Writer »

jin wrote:Ребят, подскажите, лутить должно в радиусе двух тайлов от себя... а не лутит :(((

Code: Select all

sub Loot() 
if uo.Waiting() then
uo.CancelTarget()
end if
var L, Exit
dim Loot[3]
   Loot[0]=0x0F09 # Стренж банки
   Loot[1]=0x0EED # Голд
   Loot[2]=0x19B9 # Руда
uo.SetReceivingContainer('Backpak')
wait(200)
for L=0 to 2
Exit=0
repeat
uo.FindType(Loot[L],'-2',"ground")
if uo.GetQuantity('finditem')>0 then
uo.Grab(STR(0),'finditem')
wait(300)
else
Exit=1
end if
until Exit==1
next
uo.UnSetReceivingContainer()
end sub




Code: Select all

sub Loot() 
uo.Set('finddistance','2')
if uo.Waiting() then
uo.CancelTarget()
end if
var L, Exit
dim Loot[3]
   Loot[0]=0x0F09 # Стренж банки
   Loot[1]=0x0EED # Голд
   Loot[2]=0x19B9 # Руда
uo.SetReceivingContainer('Backpak')
wait(200)
for L=0 to 2
Exit=0
repeat
uo.FindType(Loot[L],'-2',"ground")
if uo.GetQuantity('finditem')>0 then
uo.Grab(STR(0),'finditem')
wait(300)
else
Exit=1
end if
until Exit==1
next
uo.UnSetReceivingContainer()
end sub


пробуй
jin
Posts: 8
Joined: 2006-04-05 19:58:43

Re: Проблемка млин...

Post by jin »

You Must Die wrote:sub Loot()
uo.Set('finddistance','2')
...........

пробуй

ОГРОМНОЕ Спасибо :)
Post Reply