Yoko :: Проблема с скриптом на Алхимию под шард ДРВ.

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

Проблема с скриптом на Алхимию под шард ДРВ. http://forum.yoko.com.ua/viewtopic.php?f=20&t=3236	Page 1 of 1

Author:

Killerp [ 2005-02-27 17:34:59 ]

Post subject:

Проблема с скриптом на Алхимию под шард ДРВ.

Вот скрипт на Алхимию,там он делает поисоны...А над чтоб делал иль простые хелы и кидал в мешок
Вот скрипт... ** ПОД ДрВ!!! **

Code:

sub alchemy() 
 VAR Exit=0, LastTimer 
uo.print('&Ntilde;&oacute;&iacute;&auml;&oacute;&ecirc; &ntilde; &eth;&aring;&atilde;&agrave;&igrave;&egrave; &egrave; &aacute;&oacute;&ograve;&ucirc;&euml;&ecirc;&agrave;&igrave;&egrave;') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
uo.print('&Ntilde;&oacute;&iacute;&auml;&oacute;&ecirc; &ecirc;&oacute;&auml;&agrave; &aacute;&oacute;&ograve;&ucirc;&euml;&ecirc;&egrave; &aacute;&eth;&icirc;&ntilde;&agrave;&ograve;&uuml;') 
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

Author:	Savage [ 2005-02-27 17:47:12 ]
Post subject:
Это скрипт на прокачку пойзонинга. Почему бы тебе не предложить переделать мининг скрипт под крафт бутылок?

Author:	I'm [ 2005-02-27 17:48:24 ]
Post subject:
Прошу проследовать на 5 веселых букв. Скажите как его зовут: "Поиск", "Поиск", "Поиск". Скулит наш поиск каждый день ведь посылать к нему не лень

Author:

Killerp [ 2005-02-27 18:19:37 ]

Post subject:

Я ток пож лесер бутылки переделал

Code:

sub alchemy() 
VAR Exit=0, LastTimer 
uo.print('&Ntilde;&oacute;&iacute;&auml;&oacute;&ecirc; &ntilde; &eth;&aring;&atilde;&agrave;&igrave;&egrave; &egrave; &aacute;&oacute;&ograve;&ucirc;&euml;&ecirc;&agrave;&igrave;&egrave;') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
uo.print('&Ntilde;&oacute;&iacute;&auml;&oacute;&ecirc; &ecirc;&oacute;&auml;&agrave; &aacute;&oacute;&ograve;&ucirc;&euml;&ecirc;&egrave; &aacute;&eth;&icirc;&ntilde;&agrave;&ograve;&uuml;') 
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

Author:	I'm [ 2005-02-27 18:39:19 ]
Post subject:
Killerp wrote: Я ток пож лесер бутылки переделал Я непонял но если надо чтобы он делал последнее зелье то вот Code: UO.WaitMenu('What',"(last)") Заменить соответствующую строку.

Author:	Killerp [ 2005-02-27 18:53:07 ]
Post subject:
I'm wrote: Killerp wrote: Я ток пож лесер бутылки переделал Я непонял но если надо чтобы он делал последнее зелье то вот Code: UO.WaitMenu('What',"(last)") Заменить соответствующую строку. спасиб

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