не лутит (в чем ошибка)

[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 

[Mirage]

ну он как бы и н е может лутать - перемещения предмета нет.
Лутать с трупа или земли надо?

[dubd]

с трупа!

[Mirage]

3 урок скриптинга в конце первого поста

[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

[Mirage]

; Ищем снова - вдруг в трупе объектов с таким типом больше одного

надо искать в том же контейнере, соответственно Cont замени на 'lastcorpse' , опечатка в уроке была - только сейчас заметил

Code: Select all

UO.SetReceivingContainer('0x404B80BE') ; loot store bag
UO.UnSetReceivingContainer()

это крайние установки. Первую строку ставят в начале скрипта вторую в конце.
И если применяешь MoveItem а не Grab то эти команды не нужны. Перечитай еще раз урок и попробуй начать с разбора ТОГО скрипта а не перепаивая свой.

[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

не хочет в мешок складировать!

[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

[dubd]

спасибо большое!
автостарт - я знаю галка есть такая а как конкретно добавить, подскажи пожалуйста. Я не пользовался до селе автостартом.

[Incorrect User]

Включаешь галку, и создаешь функцию

Code: Select all

sub Autostart()
end sub

Все что будет внутри этой функции будет автоматически запускаться при входе в уо. В нее и вставляй эти два значения.

[dubd]

все сделал по инструкшону, терь пишетца - function not found. uo.findlist

у меня так:

Code: Select all

sub Autostart()
uo.addfindlist("Corpser", "0x0F7E")
uo.addfindlist("Corpser", "0x0EED")
end sub

ну и сам скрипт.

[Kynep]

Создай в папке с инжой файл autoload.sc и туда помести свои функции. Они будут автоматически загружаться при каждом запуске игры.

Incorrect User, че за файндлист ты тут толкаешь? нет в инже такой функции.

[Juicy Fruit]

Incorrect User, че за файндлист ты тут толкаешь? нет в инже такой функции.

viewtopic.php?f=1&t=17391&start=200#p96545 как нет, есть же.

[Incorrect User]

все сделал по инструкшону, терь пишетца - function not found. uo.findlist

У тебя старый инжект, скачай и установи последнюю версию из первого поста viewtopic.php?f=1&t=17527

[dubd]

да вот на новом некоторые скрипты глючат, поэтому на старом сижу. есть ли какая нибудь альтернатива?

[Incorrect User]

На последнем релизе все ок. Я на нем сижу.

[dubd]

спс попробую. Incorrect ведаешь пряталку как прально вставлять?

[Incorrect User]

Что?

[dubd]

говорю спасибо что помогли

[Incorrect User]

Я про

пряталку как прально вставлять?

Какая пряталка?