Page 1 of 2
не лутит (в чем ошибка)
Posted: 2015-02-14 18:52:31
by dubd
вот на резку-лутку. чар режет, но чего то не берёт. помогите пожалуйста, в чем может быть проблема.
Code: Select all
sub corpser()
uo.waittargetobject('lastcorpse')
uo.usetype('0x0F4B')
wait(500)
Lootground()
endsub
sub Lootground()
VAR n, f
Dim Loot[2]
Loot[1]='0x0F7E' ; Sceleton bones
Loot[2]='0x0EED' ; Gold Coin
UO.SetReceivingContainer('0x404B80BE') ; loot store bag
UO.UnSetReceivingContainer()
uo.print(' -= done =- ')
end sub
Re: не лутит (в чем ошибка)
Posted: 2015-02-14 20:28:14
by Mirage
ну он как бы и н е может лутать - перемещения предмета нет.
Лутать с трупа или земли надо?
Re: не лутит (в чем ошибка)
Posted: 2015-02-14 21:48:10
by dubd
с трупа!
Re: не лутит (в чем ошибка)
Posted: 2015-02-14 23:42:37
by Mirage
Re: не лутит (в чем ошибка)
Posted: 2015-02-15 00:40:24
by dubd
отлично!
у меня вот такая ошибка вылетает - CONT.
Code: Select all
sub corpser()
uo.waittargetobject('lastcorpse')
uo.usetype('0x0F4B')
wait(500)
Lootground()
endsub
sub Lootground()
VAR i
Dim Loot[2]
Loot[1]='0x0F7E' ; Sceleton bones
Loot[2]='0x0EED' ; Gold Coin
UO.UseObject( 'lastcorpse' )
wait(1000)
For i = 1 To 2
UO.FindType( Loot[i], '-1', 'lastcorpse' )
; Пока количество найденного больше 0
While UO.FindCount() > 0
; Забираем найденное в пак
UO.MoveItem( 'finditem' )
wait( 1000 )
; Ищем снова - вдруг в трупе объектов с таким типом больше одного
UO.FindType( Loot[i], '-1', Cont )
Wend
Next
UO.SetReceivingContainer('0x404B80BE') ; loot store bag
UO.UnSetReceivingContainer()
UO.Print( 'The loot was finished' )
endsub
Re: не лутит (в чем ошибка)
Posted: 2015-02-15 09:41:24
by Mirage
; Ищем снова - вдруг в трупе объектов с таким типом больше одного
надо искать в том же контейнере, соответственно Cont замени на 'lastcorpse'
, опечатка в уроке была - только сейчас заметил 
Code: Select all
UO.SetReceivingContainer('0x404B80BE') ; loot store bag
UO.UnSetReceivingContainer()
это крайние установки. Первую строку ставят в начале скрипта вторую в конце.
И если применяешь MoveItem а не Grab то эти команды не нужны. Перечитай еще раз урок и попробуй начать с разбора ТОГО скрипта а не перепаивая свой.
Re: не лутит (в чем ошибка)
Posted: 2015-02-15 15:27:26
by dubd
ох Мираж спасибо тебе большое! ты умеешь сделать чтоли конфетку
ещё вот нагло как то!
Code: Select all
sub corpser()
uo.waittargetobject('lastcorpse')
uo.usetype('0x0F4B')
wait(500)
Lootground()
endsub
sub Lootground()
VAR i
UO.SetReceivingContainer('0x401B96B1') ; loot store bag
Dim Loot[2]
Loot[0]='0x0F7E' ; Sceleton bones
Loot[1]='0x0EED' ; Gold Coin
UO.UseObject( 'lastcorpse' )
wait(1000)
For i = 0 To 1
UO.FindType( Loot[i], '-1', 'lastcorpse' )
; Пока количество найденного больше 0
While UO.FindCount() > 0
; Забираем найденное в пак
UO.MoveItem( 'finditem' )
wait( 1000 )
; Ищем снова - вдруг в трупе объектов с таким типом больше одного
UO.FindType( Loot[i], '-1', 'lastcorpse' )
Wend
Next
UO.UnSetReceivingContainer()
UO.Print( 'The loot was finished' )
endsub
не хочет в мешок складировать!
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 20:39:14
by Incorrect User
Добавь в Autostart
Code: Select all
uo.addfindlist("Corpser", "0x0F7E")
uo.addfindlist("Corpser", "0x0EED")
И сам скрипт
Code: Select all
sub corpser()
uo.waittargetobject('lastcorpse')
uo.usetype('0x0F4B')
wait(500)
Lootground()
endsub
sub Lootground()
var box = "0x401B96B1"
UO.UseObject( 'lastcorpse' )
wait(1000)
repeat
if uo.findlist("Corpser", "lastcorpse") then
uo.moveitem("finditem", 0, box)
wait(1000)
end if
until not uo.findcount()
UO.Print( 'The loot was finished' )
end sub
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 21:22:29
by dubd
спасибо большое!
автостарт - я знаю галка есть такая
а как конкретно добавить, подскажи пожалуйста. Я не пользовался до селе автостартом.
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 21:25:40
by Incorrect User
Включаешь галку, и создаешь функцию
Все что будет внутри этой функции будет автоматически запускаться при входе в уо. В нее и вставляй эти два значения.
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 22:38:00
by dubd
все сделал по инструкшону, терь пишетца - function not found. uo.findlist
у меня так:
Code: Select all
sub Autostart()
uo.addfindlist("Corpser", "0x0F7E")
uo.addfindlist("Corpser", "0x0EED")
end sub
ну и сам скрипт.
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 22:39:41
by Kynep
Создай в папке с инжой файл autoload.sc и туда помести свои функции. Они будут автоматически загружаться при каждом запуске игры.
Incorrect User, че за файндлист ты тут толкаешь? нет в инже такой функции.
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 22:53:32
by Juicy Fruit
Kynep wrote:Incorrect User, че за файндлист ты тут толкаешь? нет в инже такой функции.
viewtopic.php?f=1&t=17391&start=200#p96545 как нет, есть же.
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 22:56:08
by Incorrect User
dubd wrote:все сделал по инструкшону, терь пишетца - function not found. uo.findlist
У тебя старый инжект, скачай и установи последнюю версию из первого поста
viewtopic.php?f=1&t=17527
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 22:58:35
by dubd
да вот на новом некоторые скрипты глючат, поэтому на старом сижу. есть ли какая нибудь альтернатива?
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 23:00:09
by Incorrect User
На последнем релизе все ок. Я на нем сижу.
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 23:03:54
by dubd
спс попробую. Incorrect ведаешь пряталку как прально вставлять?
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 23:09:15
by Incorrect User
Что?
Re: не лутит (в чем ошибка)
Posted: 2015-03-11 23:39:28
by dubd
говорю спасибо что помогли
Re: не лутит (в чем ошибка)
Posted: 2015-03-12 08:14:19
by Incorrect User
Я про
dubd wrote:пряталку как прально вставлять?
Какая пряталка?