Yoko

Code: Select all

sub carpaper()
	var edatype='0x103B'
	var logitype='0x1BDD'
	var nitki='0x0FA0'
	var sawtype='0x1030'
	var udochkatype='0x0DBF'
	
	#-- Ñóìêè --#
	var sumkalognit='0x41735CFD'
	var sumka1='0x41450969'
	var sumka2='0x4020DDF6'
	var sumka3='0x4146AB21'
	var sumka4='0x40BAAE92'
	var sumka5='0x40335528'
	var sumka6='0x40D48CE2'
	var sumka7='0x4145096B'
	var sumka8='0x4144F507'
	var sumka9='0x4145096A'
	
	#-- Ïðî÷åå --#
	var timeout=0,stopklad = 0
	var kuda,stop=0
	
	start:
		# Áåð¸ì ëîãè è íèòêè
		uo.deletejournal()
		If uo.Count(logitype) < 20 Then
			UO.Findtype(logitype,'-1',sumkalognit)
			UO.grab('300','finditem')
			wait(1500)
		end if
		if uo.Count(nitki) < 10 then
			UO.Findtype(nitki,'-1',sumkalognit)
			UO.grab('100','finditem')
			wait(1500)
		end if
		# Êóøàåì
		uo.usetype(edatype)
		wait(700)
		uo.usetype(edatype)
		wait(700)
		
		# Äåëàåì óäî÷êè
		repeat
			stop = 0
			If uo.Count(logitype) < 20 Then
				stop=1
			endif
			if uo.Count(nitki) < 10 then
				stop=1
			endif			
			
			CheckLag()
			UO.Exec("waitmenu 'Carpentry' 'Weapons & Tools' 'Weapons & Tools' 'fishing pole'")
			UO.usetype(sawtype)
			wait(500)
			repeat
    			timeout=timeout+500
    			wait(500)
			until UO.injournal("You put") OR UO.Injournal("You fail") OR (timeout>10000)
			timeout=0		
			UO.deletejournal()		
		until uo.injournal("with what you have") or stop==1
		
		UO.setreceivingcontainer(sumka1)
    	UO.findtype(udochkatype,-1,sumka1)
	    if uo.findcount()>245 then
    		UO.setreceivingcontainer(sumka2)
	        UO.findtype(udochkatype,-1,sumka2)
        	if uo.findcount()>245 then
    	    	UO.setreceivingcontainer(sumka3)
	            UO.findtype(udochkatype,-1,sumka3)
            	if uo.findcount()>245 then
             		UO.setreceivingcontainer(sumka4)
              		UO.findtype(udochkatype,-1,sumka4)
               		if uo.findcount()>245 then 
                		UO.setreceivingcontainer(sumka5)
	                 	UO.findtype(udochkatype,-1,sumka5)
    	              	if uo.findcount()>245 then 
        		  			UO.setreceivingcontainer(sumka6)
                   			UO.findtype(udochkatype,-1,sumka6)
			                if uo.findcount()>245 then 
            					UO.setreceivingcontainer(sumka7)
                      			UO.findtype(udochkatype,-1,sumka7)
                      			if uo.findcount()>245 then  
                      				UO.setreceivingcontainer(sumka8)
                        			UO.findtype(udochkatype,-1,sumka8)
                         			if uo.findcount()>245 then
                          				UO.setreceivingcontainer(sumka9)
                           				UO.findtype(udochkatype,-1,sumka9)
                             			if uo.findcount()>245 then
                             				uo.print("ALL BAGS ARE FULL")
                             				UO.CloseUO()
                         				endif
                     				endif
                   				endif
                 			endif
               			endif 
             		endif
           		endif
         	endif      
        endif
		
		while uo.findcount() > 0
			UO.findtype(udochkatype,-1,"pack") 
    		UO.grab(0,"finditem")
			wait(800)
		wend
		uo.unsetreceivingcontainer()
	wait(1000)
	goto start
end sub




sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub