У кого есть скрипты на алхимию и инскрипт по шард Доминария?
Posted: 2006-02-05 20:05:35
Сабж.
Отзовитесь ктонибудь плиз у кого есть
Отзовитесь ктонибудь плиз у кого есть
All sides of Injection
https://yoko.uokit.com/
Question wrote:пиши дестрактиону в аську если не ошибаюсь он раньше на доминарии гонял
Question wrote:деньги портят людей
Destruction wrote:Question wrote:деньги портят людей
Траффик дорогой.
Toretto wrote:Сабж.
Отзовитесь ктонибудь плиз у кого есть
Savage wrote:Toretto wrote:Сабж.
Отзовитесь ктонибудь плиз у кого есть
На сколько ты силен в скриптинге? Есть у меня на алхимию, но он топорный, надо настраивать под себя. Без гампов, с кликами.
Savage wrote:Угу, посмотрел я на двойной гамп, не разобрался как его обрабатывать и кликом сделал.
Code: Select all
uo.exec("ongump 'anygump' 'кнопка'")
uo.recall("рунбука","кнопка")
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
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
Savage wrote:Угу. Мне тут нахаляву я в сетке.