Page 1 of 1
Проблема с скриптом на Алхимию под шард ДРВ.
Posted: 2005-02-27 17:34:59
by Killerp
Вот скрипт на Алхимию,там он делает поисоны...А над чтоб делал иль простые хелы и кидал в мешок
Вот скрипт... ** ПОД ДрВ!!! **
Code: Select all
sub alchemy()
VAR Exit=0, LastTimer
uo.print('Ñóíäóê ñ ðåãàìè è áóòûëêàìè')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('Ñóíäóê êóäà áóòûëêè áðîñàòü')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()
UO.FindType('0x0F0E','0x0998','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x0F0E',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','Bag')
wait(1000)
UO.Grab('500','finditem')
wait(1000)
Endif
UO.FindType('0x0F88','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','Bag')
wait(1000)
UO.Grab('400','finditem')
wait(1000)
Endif
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.UseType('0x0F88')
UO.WaitMenu('What','Poison')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(500)
wend
If UO.InJournal("You toss the failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub
Posted: 2005-02-27 17:47:12
by Savage
Это скрипт на прокачку пойзонинга. Почему бы тебе не предложить переделать мининг скрипт под крафт бутылок?
Posted: 2005-02-27 17:48:24
by I'm
Прошу проследовать на 5 веселых букв.
Скажите как его зовут: "Поиск", "Поиск", "Поиск".
Скулит наш поиск каждый день ведь посылать к нему не лень
Posted: 2005-02-27 18:19:37
by Killerp
Я ток пож лесер бутылки переделал
Code: Select all
sub alchemy()
VAR Exit=0, LastTimer
uo.print('Ñóíäóê ñ ðåãàìè è áóòûëêàìè')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('Ñóíäóê êóäà áóòûëêè áðîñàòü')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()
UO.FindType('0x0F0E','0x0998','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x0F0E',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','Bag')
wait(1000)
UO.Grab('500','finditem')
wait(1000)
Endif
UO.FindType('0x0F85','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F85','0x0000','Bag')
wait(1000)
UO.Grab('400','finditem')
wait(1000)
Endif
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.UseType('0x0F85')
UO.WaitMenu('What','Heal')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(500)
wend
If UO.InJournal("You toss the failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub
Posted: 2005-02-27 18:39:19
by I'm
Killerp wrote:Я ток пож лесер бутылки переделал
Я непонял но если надо чтобы он делал последнее зелье то вот
Заменить соответствующую строку.
Posted: 2005-02-27 18:53:07
by Killerp
I'm wrote:Killerp wrote:Я ток пож лесер бутылки переделал
Я непонял но если надо чтобы он делал последнее зелье то вот
Заменить соответствующую строку.
спасиб