Yoko :: Алхимия

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/