Кинуть прицел на однотипный предмет

[Denton]

Играю я на сервере Махаон. Там есть такой заворот: крафтятся гвозди баночками по пять штук. Для того, чтобы они сложились в стек, необходимо два раза тыкнуть мышей по какой-то из банок и таргетом указать на такую-же банку. Ну никак не могу написать такую макру. Все время получается или не видит гвоздей совсем или тыкает по 1 банке и таргет возвращает на нее-же.
Условие еще такое... гвозди можно складывать только в паке, не в мешочках, не на земле (даже если мешочек лежит в инвентаре).

Вот приведу свои попытки:

Code: Select all

sub Gvozdi()
  if uo.Waiting() then
     uo.CancelTarget()
  endif
  var a,Exit
  dim gvozdi[1]
  gvozdi[0]=0x102E
  uo.Print('Складываем гвозди.')
  wait(500)
  for a=0 to 0
     Exit=0
     repeat
        uo.findtype(gvozdi[a],-1,'backpack')
        if uo.GetQuantity('finditem')>0 then
           uo.waittargettype('0x102E')
           uo.useobject('finditem')
           wait(1500)
        else
           Exit=1
        endif
     until Exit==1
  next
uo.Print('Гвозди сложены.')
end sub

[-=JoKeR=-]

Нафига делать массив если в нём один элемент ? =)

Code: Select all

sub Gvozdi()
var gvozdi = '0x102E '
var Exit = 0
  if uo.Waiting() then 
     uo.CancelTarget() 
  endif 
  uo.Print('Складываем гвозди...') 
  wait(500) 
     repeat 
        uo.findtype(gvozdi,-1,'backpack') 
        if uo.FindCount() > 0 then 
           uo.waittargettype('gvozdi') 
           uo.useobject('finditem') 
           wait(1500) 
        else 
           Exit = 1 
        endif 
     until Exit = 1 
  uo.Print('Гвозди сложены.') 
end sub

Вроде так, хз, попробуй =)

[Denton]

Пробовал так, не работает. Пишет:

Items found: 4
No item found. Next target request will be cancelled.
Укажите коробку, куда пересыпать гвозди.
отменено.


Т.е. гвозди он находит, использует, а вот прицел не бросает на другую коробку (No item found...)

[-=JoKeR=-]

Тогда хз =)
К экспертам.

[Denton]

Должно же быть какое-то решение...

[Okypok]

Попробуй-ка

Code: Select all

sub Gvozdi()
var gvo
var gvozdi = '0x102E'

uo.findtype(gvozdi,-1,'backpack')
if uo.findcount() then
uo.CancelTarget() 
wait(300)
gvo=UO.GetSerial('finditem')
wait(400)
UO.Ignore('finditem')
wait(100)
uo.findtype(gvozdi,-1,'backpack')
uo.waittargettype('finditem')
wait(100)
uo.useobject(gvo)
 UO.IgnoreReset()
else
return
end if
end sub

[Denton]

Есть. Спасибо Окурок, немного подправил твой скрипт и все заработало.

Code: Select all

sub Gvozdi()
  
  var gvo, exit
  var gvozdi = '0x102E'
  
  uo.Print('Складываем гвозди.')
  repeat
    uo.DeleteJournal()
    uo.findtype(gvozdi,-1,'backpack')
    if uo.findcount()>1 then
      uo.CancelTarget()
      wait(300)
      gvo=UO.GetSerial('finditem')
      wait(400)
      UO.Ignore('finditem')
      wait(100)
      uo.findtype(gvozdi,-1,'backpack')
      uo.waittargetobject('finditem')
      wait(100)
      uo.useobject(gvo)
      UO.IgnoreReset()
      repeat
        wait(100)
      until uo.injournal('Вы пересыпали гвозди')
    else
      exit = 1
    end if
  until exit == 1
end sub

[Okypok]

А что дает твой Exit? Плохо соображаю с утра

[Denton]

значение переменной exit - это условие для остановки макроса. Если найденных объектов не больше одного, то выполняется условие прекращения цикла repeat .... until exit == 1

[Okypok]

А простой return не подходит?

[Denton]

return закрывает макрос. Могу ошибаться, конечно, но у меня не работал как возвратная функция...