Carpentry, Помогите разобратся
Генерал Полковник (32796845)11 летПрекрасная ЛедиИнквизитор
Inquisitor
Сообщений: 2017
Рег. 23.11.2013
14 января 2014 23:28
Сообщение #1
sub Carpentry()
uo.cancelmenu()
uo.automenu ('Carpentry','Weapons & Tools','Weapons & Tools','Club' )
while UO.Count('0x1BDD')>3
UO.DeleteJournal()
UO.UseType('0x1030')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("failed")
wait(300)
wend
wend
end sub

Менюшку открывает первую и все, что я делала не так?
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
15 января 2014 01:11
Сообщение #2
Weapons & Shields же (:
Генерал Полковник (32796845)11 летПрекрасная ЛедиИнквизитор
Inquisitor
Сообщений: 2017
Рег. 23.11.2013
15 января 2014 02:30
Сообщение #3
Хм, странно до этого вроде так и было, чудеса.. Ну сути дела это все также не меняет, открывается только первое меню.
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
15 января 2014 02:49
Сообщение #4
sub Carpentry()
   While not UO.Count('0x1BDD') < 10
      UO.DeleteJournal()
      UO.WaitMenu('Carpentry', 'Weapons & Shields', 'Weapons & Shields', 'Club')
      UO.UseType('0x1030')
      Repeat
         Wait(100)
      Until UO.InJournal('You put|failed')
   Wend
End Sub
Генерал Полковник (32796845)11 летПрекрасная ЛедиИнквизитор
Inquisitor
Сообщений: 2017
Рег. 23.11.2013
15 января 2014 04:43
Сообщение #5
Leprechaun,
Пасибочки огромные!! Спаситель :yahoo:
Есть только один момент, терь я не въеду как это дело объединить с тем чтобы крафтилось пока логи есть, а то он начинает крафтить крафтит 3 или 4 раза,и после фейла все..(или это изза лагов,непойму) но надо по новой скрипт запускать
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
15 января 2014 05:13
Сообщение #6
Крафтит пока в рюкзаке есть 10 бревен и больше.
Скорее всего из за лагов.

sub Carpentry()
   Var LastTimer

   While not UO.Count('0x1BDD') < 10
      UO.DeleteJournal()
      LastTimer = UO.Timer()
      UO.WaitMenu('Carpentry', 'Weapons & Shields', 'Weapons & Shields', 'Club')
      UO.UseType('0x1030')
      Repeat
         Wait(100)
      Until UO.InJournal('You put|failed') || UO.Timer() > LastTimer + 200
   Wend
End Sub
Генерал Полковник (32796845)11 летПрекрасная ЛедиИнквизитор
Inquisitor
Сообщений: 2017
Рег. 23.11.2013
15 января 2014 05:26
Сообщение #7
Цитата: Leprechaun
sub Carpentry()
Var LastTimer

While not UO.Count('0x1BDD') < 10
UO.DeleteJournal()
LastTimer = UO.Timer()
UO.WaitMenu('Carpentry', 'Weapons & Shields', 'Weapons & Shields', 'Club')
UO.UseType('0x1030')
Repeat
Wait(100)
Until UO.InJournal('You put|failed') || UO.Timer() > LastTimer + 200
Wend
End Sub

Leprechaun,

Да походу изза лагов,"обожаю" инет в белорашке счас работает все, спасибо еще раз огромное.
Капитан (8728361)11 лет
Dragonstalker
Сообщений: 129
Рег. 9.08.2013
15 января 2014 05:44
Сообщение #8
Цитата: Rinka
Да походу изза лагов,"обожаю" инет в белорашке счас работает все, спасибо еще раз огромное.


Уже несколько часов каждые 1-3 минуты зависает (;
Генерал Полковник (32796845)11 летПрекрасная ЛедиИнквизитор
Inquisitor
Сообщений: 2017
Рег. 23.11.2013
15 января 2014 07:17
Сообщение #9
Leprechaun,
О как, а я думала это мой инет..
Последние посетители (0):

 
Сейчас: 25 ноября 2024 00:32