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

Yoko http://forum.yoko.com.ua/

У кого есть скрипты на алхимию и инскрипт по шард Доминария? http://forum.yoko.com.ua/viewtopic.php?f=20&t=5519	Page 1 of 1

Author:	Toretto [ 2006-02-05 20:05:35 ]
Post subject:	У кого есть скрипты на алхимию и инскрипт по шард Доминария?
Сабж. Отзовитесь ктонибудь плиз у кого есть

Author:	GimFlex [ 2006-02-05 20:06:30 ]
Post subject:
пиши дестрактиону в аську если не ошибаюсь он раньше на доминарии гонял

Author:	Toretto [ 2006-02-05 20:45:31 ]
Post subject:
Question wrote: пиши дестрактиону в аську если не ошибаюсь он раньше на доминарии гонял Да я писал, но у него не осталось этих скриптов.А посты которые тут были с инскриптом, кудато пропали

Author:	Destruction [ 2006-02-05 20:50:45 ]
Post subject:
Бл#, там обычный гамп, вешаем через ongump один штука и вызываем через recall. Дай 5 гринов - я скачаю уо, скачаю инж, регнусь на доминарии, зайду, найду книгу адхимика и скролы, напишу скрипт. Фо фри я таким не занимаюсь, а синтаксис ongump'а я уже забыл.

Author:	GimFlex [ 2006-02-05 21:07:26 ]
Post subject:
деньги портят людей

Author:	Destruction [ 2006-02-06 00:34:50 ]
Post subject:
Question wrote: деньги портят людей Траффик дорогой.

Author:	GimFlex [ 2006-02-06 00:41:57 ]
Post subject:
Destruction wrote: Question wrote: деньги портят людей Траффик дорогой. тогда извиняюсь трафик это святое хорошо у меня дома 2 разных анлима инетовских и каждый всего по 20 баков в месяц

Author:	Savage [ 2006-02-06 01:31:26 ]
Post subject:	Re: У кого есть скрипты на алхимию и инскрипт по шард Домина
Toretto wrote: Сабж. Отзовитесь ктонибудь плиз у кого есть На сколько ты силен в скриптинге? Есть у меня на алхимию, но он топорный, надо настраивать под себя. Без гампов, с кликами.

Author:	Destruction [ 2006-02-06 08:56:08 ]
Post subject:	Re: У кого есть скрипты на алхимию и инскрипт по шард Домина
Savage wrote: Toretto wrote: Сабж. Отзовитесь ктонибудь плиз у кого есть На сколько ты силен в скриптинге? Есть у меня на алхимию, но он топорный, надо настраивать под себя. Без гампов, с кликами. Как это без гампов? -) Гампы есть, а обрабатываешь ты их кликами -)

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

Author:	Destruction [ 2006-02-06 12:59:50 ]
Post subject:
Savage wrote: Угу, посмотрел я на двойной гамп, не разобрался как его обрабатывать и кликом сделал. Насколько я помню: Code: uo.exec("ongump 'anygump' 'кнопка'") uo.recall("рунбука","кнопка")

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

Author:

Savage [ 2006-02-06 21:24:58 ]

Post subject:

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

Code:

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

Author:

Savage [ 2006-02-06 22:24:53 ]

Post subject:

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

Code:

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

Author:	Destruction [ 2006-02-08 01:53:42 ]
Post subject:
Savage, ты чего, на доминарии играешь?

Author:	Savage [ 2006-02-08 08:36:28 ]
Post subject:
Угу. Мне тут нахаляву я в сетке.

Author:	Destruction [ 2006-02-08 09:48:55 ]
Post subject:
Savage wrote: Угу. Мне тут нахаляву я в сетке. Хы, прикольна.. Ты залазай там в зоо, там кони-лорды сидят, пока их всех Sergeo не перетамил -)

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

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/