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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Toretto
Posts: 12
Joined: 2004-11-26 16:43:57
Location: Королёв М.О.

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

Post by Toretto »

Сабж.
Отзовитесь ктонибудь плиз у кого есть
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

пиши дестрактиону в аську если не ошибаюсь он раньше на доминарии гонял :)
Toretto
Posts: 12
Joined: 2004-11-26 16:43:57
Location: Королёв М.О.

Post by Toretto »

Question wrote:пиши дестрактиону в аську если не ошибаюсь он раньше на доминарии гонял :)
Да я писал, но у него не осталось этих скриптов.А посты которые тут были с инскриптом, кудато пропали :o
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

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

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

Фо фри я таким не занимаюсь, а синтаксис ongump'а я уже забыл.
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

деньги портят людей :)
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Question wrote:деньги портят людей :)
Траффик дорогой. :cry:
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

Destruction wrote:
Question wrote:деньги портят людей :)
Траффик дорогой. :cry:
тогда извиняюсь трафик это святое хорошо у меня дома 2 разных анлима инетовских и каждый всего по 20 баков в месяц :)
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

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

Post by Savage »

Toretto wrote:Сабж.
Отзовитесь ктонибудь плиз у кого есть
На сколько ты силен в скриптинге? Есть у меня на алхимию, но он топорный, надо настраивать под себя. Без гампов, с кликами.
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

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

Post by Destruction »

Savage wrote:
Toretto wrote:Сабж.
Отзовитесь ктонибудь плиз у кого есть
На сколько ты силен в скриптинге? Есть у меня на алхимию, но он топорный, надо настраивать под себя. Без гампов, с кликами.
Как это без гампов? -)

Гампы есть, а обрабатываешь ты их кликами -)
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Угу, посмотрел я на двойной гамп, не разобрался как его обрабатывать и кликом сделал.
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

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

Code: Select all

uo.exec("ongump 'anygump' 'кнопка'")
uo.recall("рунбука","кнопка")
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

В том то и хрень что ани гамп будет первый использовать. А по номеру гампа че то не хочет работать.
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post 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
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post 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
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Savage, ты чего, на доминарии играешь? :shock:
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Угу. Мне тут нахаляву я в сетке.
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Savage wrote:Угу. Мне тут нахаляву я в сетке.
Хы, прикольна..

Ты залазай там в зоо, там кони-лорды сидят, пока их всех Sergeo не перетамил -)
Toretto
Posts: 12
Joined: 2004-11-26 16:43:57
Location: Королёв М.О.

Post by Toretto »

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