Page 1 of 1

Помогите доработать скрипт на лут

Posted: 2004-12-10 08:44:32
by PinKod
Нашел тут скрипт на лут, вроде все седалал, что надо было изменил, все работает замечательно. Но есть одна проблемка. Когда куча трупов монстров, он лутит только из последнего трупа, а предыдущие уже никак не хочет!!! Возможно ли, что бы лутить можно было из того трупа, который открыл последним? А и еще, что бы лут складывался не в основной пак, а в тот который указать?


sub Loot()
var i,n
Dim A[]

i = 1200
FOR n=1 TO
uo.findtype(A[n],"-1","lastcorpse")
if uo.findcount() > 0 then
UO.grab(1, "finditem")
uo.print("Found "+str(uo.findcount()))
Wait(i)
END if
next
end sub

Что бы сильно не засорять, удалил некоторые стоки. Отредактируйте пожалуйста.

Re: Помогите доработать скрипт на лут

Posted: 2004-12-10 11:59:07
by Ugrum.
PinKod wrote:Возможно ли, что бы лутить можно было из того трупа, который открыл последним?

Code: Select all

uo.findtype(A[n],"-1","lastcorpse") 

замени на

Code: Select all

uo.findtype(A[n],"-1","lastcontainer") 

PinKod wrote:А и еще, что бы лут складывался не в основной пак, а в тот который указать?

[yhlp_setcatchbag] поможет.
P.S.

Code: Select all

UO.grab(1, "finditem") 

В оригинале здесь не 1 а 0,но возможно тебе проще по 1 итему перетаскивать...:)

Posted: 2004-12-10 17:36:37
by PinKod
Спасибо, сейчас попробую. И он не по одной перетаскивал, а все.

Posted: 2004-12-10 18:07:04
by PinKod
Спасибо большое :) все изменил-помогло.
Хотя только так и оставил единичку, а он все равно все перетаскивает.

Posted: 2004-12-10 18:15:24
by Sfagnum
PinKod wrote:Спасибо большое :) все изменил-помогло.
Хотя только так и оставил единичку, а он все равно все перетаскивает.
чтобы утаскивал заданное кол-во надо передавать текстовый параметр, любой числовой параметр игнорируется ;)