Yoko

Сабж.
Отзовитесь ктонибудь плиз у кого есть

пиши дестрактиону в аську если не ошибаюсь он раньше на доминарии гонял

Да я писал, но у него не осталось этих скриптов.А посты которые тут были с инскриптом, кудато пропали

Бл#, там обычный гамп, вешаем через ongump один штука и вызываем через recall.

Дай 5 гринов - я скачаю уо, скачаю инж, регнусь на доминарии, зайду, найду книгу адхимика и скролы, напишу скрипт.

Фо фри я таким не занимаюсь, а синтаксис ongump'а я уже забыл.

деньги портят людей

Траффик дорогой.

тогда извиняюсь трафик это святое хорошо у меня дома 2 разных анлима инетовских и каждый всего по 20 баков в месяц

На сколько ты силен в скриптинге? Есть у меня на алхимию, но он топорный, надо настраивать под себя. Без гампов, с кликами.

Как это без гампов? -)

Гампы есть, а обрабатываешь ты их кликами -)

Угу, посмотрел я на двойной гамп, не разобрался как его обрабатывать и кликом сделал.

Насколько я помню:

uo.exec("ongump 'anygump' 'кнопка'")
uo.recall("рунбука","кнопка")

В том то и хрень что ани гамп будет первый использовать. А по номеру гампа че то не хочет работать.

Все, разобрался. Токо почему то две ловушки на гампы не работают, пришлось первый рекалом гасить..

sub alchtrain()
   VAR Exit=0, LastTimer, TryToPoison
   VAR Store='0x40024D41',Kniga='0x4002BF04'
   VAR Dagger='0x40014BA2'
   VAR FirstGump='0x00000457'
   VAR SecondGump='0x00000462'

   While TRUE
;      ToHide()
      UO.DeleteJournal()

      If UO.Count('0x0F0E')<2 then
         UO.FindType('0x0F0E','0x0000',Store)
         wait(1000)
         UO.Grab('400','finditem')
         wait(1000)
      Endif

      UO.FindType('0x0F88','0x0000','backpack')
      If UO.GetQuantity('finditem')<2 then
         UO.FindType('0x0F88','0x0000',Store)
         wait(1000)
         UO.Grab('800','finditem')
         wait(1000)
      Endif


;      UO.OnGump('anyserial',FirstGump,'14')
      
      UO.OnGump('anyserial',SecondGump,'2')
      UO.Recall(Kniga,'14')
      Repeat
         wait(200)
      Until UO.InJournal("You put|fail")

      If UO.InJournal("You put") OR UO.Count('0x0F0A') then
         While UO.Count('0x0F0A')
            UO.DeleteJournal()
;            ToHide()
            UO.FindType('0x0F0A','0x0000','backpack')
            wait(200)
            If UO.FindCount() Then
               UO.WaitTargetObject(Dagger,'finditem')
               UO.UseSkill('Poisoning')
               Repeat
                  wait(200)
               Until UO.InJournal("fail|You apply")
            Endif
         Wend
      EndIf
   Wend   
end sub

Ну вот скрипт на варево!
Значит настройка такая: Прописываем в скрипт сериал книги рецептов, Id второго гампа если он у вас другой. Его можно узнать если открыть книгу, выбрать пошен, потом еще раз выбрать, как книга закроется давим в клиенте ,infogump и смотрим в текстовом окне сверху Id гампа. Правим количество регов и бутылок которое надо брать чару и подбираем номера кнопок. Номер второй кнопки можно посмотреть в инфо в нижней строке напротив слова replay. А первую надо подобрать эксперементально. Для этого прилагается внизу маленький скриптик TB1. Ставим номер кнопки наугад и запускаем его (ид книги незабудьте поправить). Изменяем номер пока не откроется нужная страница. Ну и второй скрипт TB2 для проверки правильности отрабатывания гампа.

sub alchdomi()
   VAR Exit=0, LastTimer, TryToPoison
   VAR SecondGump='0x00000462'   ; GUMP Id, otkrit` knigu vibrat` potion i ,infogump
   VAR RegAmmount='800'      ; skoko regov nabirat`
   VAR BottleAmmount='400'      ; skoko butilok
   VAR BottleType='0x0F0E'      ; tip pustoy banki
   VAR Kniga='0x4002BF04'      ; Id knigi receptov
   VAR Button1='14'         ; knopka na pervom GUMPe
   VAR Button2='2'            ; knopka na vtorom GUMPe


   UO.Print("Pokaji sunduk s regami!")
   UO.AddObject('Store')
   While UO.Targeting()
      wait(200)
   Wend
   UO.UseObject('Store')

   UO.Print("Pokaji reagent!")
   UO.AddObject('Reagent')
   While UO.Targeting()
      wait(200)
   Wend
   
   While TRUE
;      ToHide()
      UO.DeleteJournal()

      If UO.Count(BottleType)<1 then
         UO.UnSetCatchBag()
         UO.FindType(BottleType,'0x0000','Store')
         wait(500)
         UO.Grab(BottleAmmount,'finditem')
         wait(500)
         UO.SetCatchBag('Store')
      Endif

      If UO.Count(UO.GetGraphic('Reagent'))<10 then
         UO.UnSetCatchBag()
         UO.FindType(UO.GetGraphic('Reagent'),'0x0000','Store')
         wait(500)
         UO.Grab(RegAmmount,'finditem')
         wait(500)
         UO.SetCatchBag('Store')
      Endif

      UO.OnGump('anyserial',SecondGump,Button2)
      UO.Recall(Kniga,Button1)

      Repeat
         wait(200)
      Until UO.InJournal("You put|fail")
   Wend   
end sub


sub TB1()
   VAR Kniga='0x4002BF04'      ; Id knigi receptov
   VAR Button1='2'         ; knopka na pervom GUMPe

   UO.Recall(Kniga,Button1)
end sub


sub TB2()
   VAR SecondGump='0x00000462'   ; GUMP Id, otkrit` knigu vibrat` potion i ,infogump
   VAR Button2='3'         ; knopka na pervom GUMPe

   UO.OnGump('anyserial',SecondGump,Button2)
   TB1()
end sub

Savage, ты чего, на доминарии играешь?

Угу. Мне тут нахаляву я в сетке.

Хы, прикольна..

Ты залазай там в зоо, там кони-лорды сидят, пока их всех Sergeo не перетамил -)

Savage, блин, выручил старина, спасиб те огромное )