Page 1 of 1
помогите с боукравтом ...не могу никак понять
Posted: 2006-06-28 15:34:31
by Джесси
Пытаюсь переделать скрипт на боукрафт из скрипта Yoko на тинкеринг , так как Edred'a скрипт не работает .
Смысл прост :
-чар вынимает из сундука 10 логов
-режет логи на шафты
-складывает шафты обратно в сундук
-опять достаёт 10 логов
Code: Select all
sub shaft()
VAR Sunduk = '0x40021344' ; Сериал сундука
VAR Logi = '0x1BDD' ; Тип логов
VAR dagger = '0x0F51' ; даггер
VAR Shafts = '0x1BD4' ; Тип шафтов
VAR Kolvo = 10 ; Брать логов для одного крафта
VAR k = 0
While TRUE
UO.FindType( Logi, -1, Sunduk ) ; Ищем логи в сундуке
If UO.FindCount() == 0 Then
UO.Print("Logs not found , script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Logi ) > 0
; Пока в паке есть логи
UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + 'logs' )
UO.DeleteJournal()
UO.CancelMenu()
UO.UseType( dagger )
UO.WaitMenu ('bowcraft', 'shaft' )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( shaft ) > 0 then
UO.FindType( shaft, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'shafts moved' )
end if
Wend
Wend
end sub
Posted: 2006-06-28 18:17:46
by Nmy
Code: Select all
sub shaft()
VAR Sunduk = '0x40021344' ; Сериал сундука
VAR Logi = '0x1BDD' ; Тип логов
VAR dagger = '0x0F51' ; даггер
VAR Shafts = '0x1BD4' ; Тип шафтов
VAR Kolvo = 10 ; Брать логов для одного крафта
VAR k = 0
While TRUE
UO.FindType( Logi, -1, Sunduk ) ; Ищем логи в сундуке
If UO.FindCount() Then
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
else
return
end if
While UO.Count( Logi ) > 0
; Пока в паке есть логи
UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + 'logs' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('What do you want to carve', 'shaft' )
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
k = k + 1
wait(300)
wend
wend
if UO.Count( shaft ) > 0 then
UO.FindType( shaft, -1, 'backpack')
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'shafts moved' )
end if
wend
end sub
пробуй ...
Posted: 2006-06-28 18:50:52
by Джесси
таже байда
берёт логи
считает оставшееся кол-во
wait menu cancelled : What do you want to carve
Now waiting for menu ...
Auto target cancelled
You can't see the target
Posted: 2006-06-28 20:12:20
by Scripts Writer
В теме то что ищут многие, последним постом я отписал работающий скрипт на боукрафт специально для шарда ФВ-пробуй.Проверено
Re:
Posted: 2011-01-23 23:24:06
by WolF538
Scripts Writer wrote:В теме то что ищут многие, последним постом я отписал работающий скрипт на боукрафт специально для шарда ФВ-пробуй.Проверено
Оч прошу поподробней, я тут не нашел рабочего скрипта для ФВ чтобы брал шафты и перья и делал из них стрелы, весь форум облазил
но под фв так и не нашел
помогите пожалуйста Заранее благодарен )
Re: Re:
Posted: 2011-01-23 23:49:15
by Mirage
WolF538 wrote:Scripts Writer wrote:В теме то что ищут многие, последним постом я отписал работающий скрипт на боукрафт специально для шарда ФВ-пробуй.Проверено
Оч прошу поподробней, я тут не нашел рабочего скрипта для ФВ чтобы брал шафты и перья и делал из них стрелы, весь форум облазил
но под фв так и не нашел
помогите пожалуйста Заранее благодарен )
Логично было бы предположить что задавая вопрос по сообщению 2006 года ответ надо искать в сообщениях 2006 года. Например
вот тут
Re: помогите с боукравтом ...не могу никак понять
Posted: 2011-01-27 16:21:28
by WolF538
Блин
шард forgotten world )) там перья и шафты нужны .. надо чтобы он просто переносил в пак и крафтил, получившееся выкладывал . Думал имеется скрипт такой. Благодарю за ответ !
Re: помогите с боукравтом ...не могу никак понять
Posted: 2011-01-27 18:14:52
by Mirage
я же написал выше ссылку где есть готовый скрипт.
Re: помогите с боукравтом ...не могу никак понять
Posted: 2011-01-27 23:43:34
by WolF538
Там же без перьев