Добор ингот!
Posted: 2013-11-26 15:16:47
Здраствуйте!помогите со Скриптом...на добор инготов!нужен простой скрипт чтоб если в паке 50 ингов брал ещо 1000 с Сундука все время!без вставки в другой скрипт...нужен просто добор скрипт....
вот что то нашол..но работать не хочет...помогите если не трудно..
Sub GET(item, cont, min, max) ; предмет, откуда, минимум, сколько брать
If UO.Count( item ) < min Then
UO.FindType( item, '-1', cont )
if UO.FindCount() > 0 Then
uo.moveitem('finditem', max, 'backpack')
checklag()
else
UO.CancelMenu()
return
endif
Endif
end sub
Sub PUT(item, cont)
while UO.Count( item ) > 0
UO.FindType( item, -1, -1 )
UO.MoveItem( 'finditem', 0, cont )
checklag()
wend
end sub
вот что то нашол..но работать не хочет...помогите если не трудно..
Sub GET(item, cont, min, max) ; предмет, откуда, минимум, сколько брать
If UO.Count( item ) < min Then
UO.FindType( item, '-1', cont )
if UO.FindCount() > 0 Then
uo.moveitem('finditem', max, 'backpack')
checklag()
else
UO.CancelMenu()
return
endif
Endif
end sub
Sub PUT(item, cont)
while UO.Count( item ) > 0
UO.FindType( item, -1, -1 )
UO.MoveItem( 'finditem', 0, cont )
checklag()
wend
end sub