Yoko

Posted: **2005-03-23 20:36:27**

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
Помогите пожалуйста изменить на тинкеринг локпиков и добавить еду ввиде рыбных котлеток, шард ДРВ. Заранее спасибо!

Posted: **2005-03-23 20:49:32**

Code: Select all

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

Posted: **2005-03-23 21:50:00**

Скрипт работает, спасибо, но хотелось бы еще добавить в него, чтоб он складывал в сундук локпики. Кстати а он берет из сундука айрон и брал из сундука айрон.

Yoko

Помогите со скриптом

Помогите со скриптом