Yoko

Code: Select all

sub Tailor() 

VAR LastTimer 

VAR Sunduk = '0x40845051' ; Сундук с тряпками и нитками 

VAR Sunduk1 = '0x4047A79A' ; Сундук с пустыми мешками 

VAR Sunduk2 = '0x40846188' ;Сундук с готовой продукцией 

VAR Meshok = '0x0E76' ; тип мешка 

VAR MeshSer, d 

VAR Cloth = '0x175D' ; Тип тряпок 

VAR Nit = '0x0FA0' ; Тип ниток 

VAR Kit = '0x0F9D' ; Тип инструмента 

VAR Item = '0x1F01' ; Jester's cap 

VAR KolL = 150 

VAR KolN = 10 

VAR k , n, r , i 



while true 

k=0 

UO.FindType( Meshok, -1, Sunduk1 ) 

MeshSer = UO.GetSerial( 'finditem' ) 

UO.Grab( '1', 'finditem' ) 

wait( 2000 ) 

UO.MoveItem( MeshSer, 0, Sunduk2 ) 

repeat 

r=0 

while UO.Count(Cloth)<KolL 

n=UO.Count(Cloth) 

UO.FindType(Cloth,-1,Sunduk) 

UO.Grab(str(KolL-n),'finditem') 

wait(100) 

;CheckLag() 

wend 

while UO.Count(Nit)<KolN 

n=UO.Count(Nit) 

r=r+1 

UO.FindType(Nit,-1,Sunduk) 

UO.Grab(str(KolN-n+1),'finditem') 

wait(100) 

;CheckLag() 

if r>20 then 

uo.Exec('terminate all') 

endif 

wend 
repeat 

UO.DeleteJournal() 

LastTimer=UO.Timer() 

UO.WaittargetType( Cloth ) 

UO.Usetype(Kit) 

UO.WaitMenu('Cloth','Shirts','Shirts','Jester cap') 

UO.DeleteJournal() 

repeat 

wait(500) 

until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('target') or UO.Timer()>LastTimer+200 

until UO.Count(Cloth)<145 or UO.Count(Nit)<1 



d=uo.Count(Item) 

k=k+d 

while UO.Count( Item ) > 0 

UO.FindType( Item, -1, -1 ) 

UO.MoveItem( 'finditem', 0, MeshSer ) 

wait( 500 ) 
wend 

until k>=200 

eat() 

wend 

end sub 

########################################################### 

sub CheckLag() 

########################################################### 

UO.DeleteJournal() 

UO.Click('backpack') 

repeat 

wait(100) 

until UO.InJournal('Backpack') 

end sub 

######################################### 

sub eat() 

########################################################### 

UO.DeleteJournal() 

repeat 

if UO.Count('0x097B')>0 then ;еда ( баранина вроде ) 

UO.UseType('0x097B') ; тожесамое 

wait(500) 

else 

return 

end if 

Until UO.InJournal("stuffed!") OR UO.InJournal("think")OR UO.InJournal("need that") 

end sub