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

Алхимия
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7294
Page 1 of 1

Author:  ЛыСиК [ 2006-04-07 18:36:19 ]
Post subject:  Алхимия

НАрод дайте скрипт на алхмию плз)

Author:  Kynep [ 2006-04-07 18:39:25 ]
Post subject:  Re: Алхимия

ЛыСиК wrote:
НАрод дайте скрипт на алхмию плз)


Code:
sub alchemy() 
VAR Exit=0, LastTimer
VAR cvet=0x09DF #Цвет готового пузыря

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',cvet,'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('300','finditem')
wait(1000)
Endif

UO.FindType('0x0F88','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','Bag')
wait(1000)
UO.Grab('300','finditem')
wait(1000)
Endif

LastTimer=UO.Timer()
UO.DeleteJournal()

UO.UseType('0x0F88')
UO.WaitMenu('What','Total Mana')       
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

Author:  ЛыСиК [ 2006-04-07 19:57:38 ]
Post subject: 

Че то я непонел че там надо делать обьясни куда надо вствлять там айд сунудука и тогдалее чтобы он варил лесер пойзон зделай плз

Author:  Kynep [ 2006-04-07 20:31:59 ]
Post subject: 

ЛыСиК wrote:
Че то я непонел че там надо делать обьясни куда надо вствлять там айд сунудука и тогдалее чтобы он варил лесер пойзон зделай плз


Code:
sub alchemy() 
VAR Exit=0, LastTimer
VAR cvet=0x0998 #Цвет готового пузыря

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',cvet,'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('300','finditem')
wait(1000)
Endif

UO.FindType('0x0F88','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','Bag')
wait(1000)
UO.Grab('300','finditem')
wait(1000)
Endif

LastTimer=UO.Timer()
UO.DeleteJournal()

UO.UseType('0x0F88')
UO.WaitMenu('What','Lesser 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


Сундуки не вставляй, просто запускаешь и указываешь прицелом, читай что просит указать

Author:  nik-kazancev [ 2006-06-10 12:07:57 ]
Post subject: 

А у регов для манок то другой цвет...
Вместо 0x0F88 надо 0x0F87 писать... И нафига он после каждой готовой манки складывает её? не лучше ли кучкой?

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