Собсно вопрос заключается в следующем:
К скрипту на поштучное производство стрел, нужно прикрутить функцию перекладывания готовой стрелы или в бэкпак или в сундук откуда берутся шафты. Это всё из за того что БК скрипт на сервере написан так чтобы стрелы, если их делать по одной, падали в пак и не стакались. А тут ещё ограничение в 140 итемов в паке. Поэтому необходимо или перекладывать их обратно в контейнер или ещё раз в пак кидать, тогда они складываюся. Я что то прикрутил, но это что то не работает, потому как нет строчки которая указывает куда нужно перекладывать готовые стрелы, как я понял.
Вот исходный скрипт :
Code: Select all
sub Bowcraft()
repeat
UO.FindType('0x1BD4','0x0000','backpack')
put:
If UO.GetQuantity('finditem')<1 then
UO.FindType('0x1BD4','0x0000','0x720581FB') ;Сериал сундука
UO.Grab('1','finditem')
wait(800)
Endif
UO.FindType('0x1bd4','0x0000','backpack')
If UO.GetQuantity('finditem')<1 then
goto put
Endif
wait(100)
UO.Usetype('0x1bd4')
UO.WaitTargetType('0x1BD1')
UO.WaitMenu('What you you want to create?','Arrow')
wait(800)
UO.DeleteJournal()
while not (UO.InJournal('You create some arrows and put them in your pack') or UO.InJournal('You destroy some materials'))
wait(100)
until UO.Dead()
end subА вот с недоделанным куском:
Code: Select all
sub Bowcraft()
repeat
UO.FindType('0x1BD4','0x0000','backpack')
put:
If UO.GetQuantity('finditem')<1 then
UO.FindType('0x1BD4','0x0000','0x720581FB') ;Сериал сундука
UO.Grab('1','finditem')
wait(800)
Endif
UO.FindType('0x1bd4','0x0000','backpack')
If UO.GetQuantity('finditem')<1 then
goto put
Endif
wait(100)
UO.Usetype('0x1bd4')
UO.WaitTargetType('0x1BD1')
UO.WaitMenu('What you you want to create?','Arrow')
wait(800)
UO.DeleteJournal()
while not (UO.InJournal('You create some arrows and put them in your pack') or UO.InJournal('You destroy some materials'))
wait(600)
UO.FindType('0x0F3F') ;стрелы
If UO.GetQuantity('0x0F3F') == 1 then
UO.Grab('1','0x0F3F')
wait(600)
Else
If UO.FindCount() < 1 then
wait(100)
UO.Print( 'No arrows' )
wait(100)
Endif
Endif
until UO.Dead()
end subИ в первом и во втором варианте всё работает, но абсолютно одинаково (т.е никто ничего не перекладывает), что не удивительно. Что ещё нужно добавить чтобы скрипт заработал полностью?
Заранее благодарю за возможные ответы.
З.Ы Правда иногда на 13 строчку ошибка вылетает, "GoTo - Некорректное определение цикла в скрипте!!?" пишет... с чем это связано тоже не могу понять...
