Yoko

Code: Select all

sub bs()
var counter,z,logcount,gCount,p,CurCOnt,flag=0
dim container[9] 
container[0]= 0x40108803
container[1]= 0x401087E9
container[2]= 0x401087E2
container[3]= 0x40108815
container[4]= 0x401087E1
container[5]= 0x401087FF
container[6]= 0x401087EC
container[7]= 0x40108806
container[8]= 0x401087FC
container[9]= 0x40108805

Start:
       while not uo.Hidden() 
uo.Print('Hiding in progres...') 
uo.DeleteJournal() 
#UO.Press(9)## tab pered rubkoy
Wait(100)
uo.UseSkill('Hiding') 
wait(4100) 
wend 
wait(100) 
end if  
 UO.Print("Zagruzaem logi 100")
		wait(1000)
		UO.Findtype( 0x1BEF,0x06D6 ,0x40003F2F)
		UO.Exec( "moveitem finditem 45" ) 
		while UO.Weight>400
		wait(1000) 
		UO.DeleteJournal()
		wait(500)
		UO.UseType("0x1BEF") 
		wait(500)
        UO.LClick(158,373) 
		counter=0
		UO.DeleteJournal()
   		 while not UO.InJournal("failed") and not UO.InJournal("You put") and counter<60
			wait(500)
			counter=counter+1		
		wend	
		UO.FindType("0x1B73" )	
		
		UO.moveitem ('finditem' ,1, container[flag])	

if flag==9 then
flag=0
endif
if flag==8 then
flag=9
endif
if flag==7 then
flag=8
endif
if flag==6 then
flag=7
endif
if flag==5 then
flag=6
endif 
if flag==4 then 
flag=5 
endif 
if flag==3 then 
flag=4 
endif 
if flag==2 then 
flag=3 
endif 
if flag==1 then 
flag=2 
endif 
if flag==0 then 
flag=1 
endif 
		endif
	wend
	goto start
end sub