Page 1 of 1

У кого есть скрипты на алхимию и инскрипт по шард Доминария?

Posted: 2006-02-05 20:05:35
by Toretto
Сабж.
Отзовитесь ктонибудь плиз у кого есть

Posted: 2006-02-05 20:06:30
by GimFlex
пиши дестрактиону в аську если не ошибаюсь он раньше на доминарии гонял :)

Posted: 2006-02-05 20:45:31
by Toretto
Question wrote:пиши дестрактиону в аську если не ошибаюсь он раньше на доминарии гонял :)


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

Posted: 2006-02-05 20:50:45
by Destruction
Бл#, там обычный гамп, вешаем через ongump один штука и вызываем через recall.

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

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

Posted: 2006-02-05 21:07:26
by GimFlex
деньги портят людей :)

Posted: 2006-02-06 00:34:50
by Destruction
Question wrote:деньги портят людей :)

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

Posted: 2006-02-06 00:41:57
by GimFlex
Destruction wrote:
Question wrote:деньги портят людей :)

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


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

Re: У кого есть скрипты на алхимию и инскрипт по шард Домина

Posted: 2006-02-06 01:31:26
by Savage
Toretto wrote:Сабж.
Отзовитесь ктонибудь плиз у кого есть

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

Re: У кого есть скрипты на алхимию и инскрипт по шард Домина

Posted: 2006-02-06 08:56:08
by Destruction
Savage wrote:
Toretto wrote:Сабж.
Отзовитесь ктонибудь плиз у кого есть

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

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

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

Posted: 2006-02-06 10:08:26
by Savage
Угу, посмотрел я на двойной гамп, не разобрался как его обрабатывать и кликом сделал.

Posted: 2006-02-06 12:59:50
by Destruction
Savage wrote:Угу, посмотрел я на двойной гамп, не разобрался как его обрабатывать и кликом сделал.

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

Code: Select all

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

Posted: 2006-02-06 16:06:02
by Savage
В том то и хрень что ани гамп будет первый использовать. А по номеру гампа че то не хочет работать.

Posted: 2006-02-06 21:24:58
by Savage
Все, разобрался. Токо почему то две ловушки на гампы не работают, пришлось первый рекалом гасить..

Code: Select all

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

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

Code: Select all

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

Posted: 2006-02-08 01:53:42
by Destruction
Savage, ты чего, на доминарии играешь? :shock:

Posted: 2006-02-08 08:36:28
by Savage
Угу. Мне тут нахаляву я в сетке.

Posted: 2006-02-08 09:48:55
by Destruction
Savage wrote:Угу. Мне тут нахаляву я в сетке.

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

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

Posted: 2006-02-14 00:45:42
by Toretto
Savage, блин, выручил старина, спасиб те огромное )