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

Помогите со скриптом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3487		 Page 1 of 1
Author:  tushkan1986 [ 2005-03-23 20:36:27 ]
Post subject:  Помогите со скриптом
sub tinker()
VAR Sunduk = '0x4042B1A1' ; Сериал сундука
VAR Ingi = '0x1BEF' ; Тип ингов
VAR Instrum = '0x1EBC' ; Тип инструмента тинкера
VAR Bottle = '0x0F0E' ; Тип бутылки
VAR Kolvo = 200 ; Брать ингов
VAR k = 0
While TRUE
UO.FindType( Ingi, -1, Sunduk ) ; Ищем инги в сундуке
If UO.FindCount() == 0 Then
UO.Print("Iron Ingots not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Ingi ) > 0
; Пока в паке есть инги
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'empty bottle' )
UO.UseType( Instrum )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( Bottle ) > 0 then
UO.FindType( Bottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'Bottle moved' )
end if
Wend
Wend
end sub
Помогите пожалуйста изменить на тинкеринг локпиков и добавить еду ввиде рыбных котлеток, шард ДРВ. Заранее спасибо!
Author:  Leo [ 2005-03-23 20:49:32 ]
Post subject: 
Code:
sub Bottles() 
VAR eda = 0x097B 
repeat 
UO.UseSkill('Spirit') 
wait (600) 
uo.usetype(eda) 
wait (300) 
CheckLag() 
UO.FindType('0x1BEF','0x0000','backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x40316D34') ;serial sunduka s iron 
UO.Grab('100','finditem') 
wait(300) 
Endif 
if UO.count('0x14FB','0x0000')>110 then 
CheckLag() 
UO.FindType('0x14FB','0x0000','backpack') 
UO.setreceivingcontainer('0x40316D34') ;serial sunduka s iron 
UO.Grab('0','finditem') 
wait(300) 
endif 
CheckLag() 
UO.Usetype('0x1EBC') 
UO.WaitMenu('Tinkering','Tools','Tools','lockpick') 
wait (1000) 
CheckLag() 
UO.DeleteJournal() 
while not (UO.InJournal("You put") or UO.InJournal("Tinkering failed")) 
wait(300) 
wend 
UO.UnSetReceivingContainer() 
wait(200) 
until UO.Dead() 
end sub 

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
   UO.DeleteJournal() 
end sub
Author:  tushkan1986 [ 2005-03-23 21:50:00 ]
Post subject: 
Скрипт работает, спасибо, но хотелось бы еще добавить в него, чтоб он складывал в сундук локпики. Кстати а он берет из сундука айрон и брал из сундука айрон.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/