sub CarpentBETEP() VAR Exit=0, LastTimer, TryToPoison 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('0x0E89','0x0000','backpack') ;тип стаффа If UO.GetQuantity('finditem')>0 Then UO.SetReceivingContainer('Bag2'); wait(1000) UO.Grab('all','finditem') wait(1000) UO.UnSetReceivingContainer() Endif UO.FindType('0x1BDD',-1,'backpack') ; тип логов If UO.GetQuantity('finditem')<10 then UO.FindType('0x1BDD','0x0000','Bag') ; тип логов,цвет логов wait(1000) UO.Grab('300','finditem') ;скоок логов брать wait(1000) Endif LastTimer=UO.Timer() CheckLag() UO.DeleteJournal() UO.UseType('0x1034') UO.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff') ;что делать wait(12000) wend end sub
sub CheckLag() IF UO.Waiting() > 0 THEN UO.Exec("canceltarget") END IF UO.DeleteJournal() UO.Click('backpack') REPEAT WAIT(50) UNTIL UO.InJournal('backpack') end sub