Yoko

Code: Select all

sub main()
var counter,flag=0
dim container[6]
container[0]=0x4003F61E
container[1]=0x4003F61E
container[2]=0x4003F61E
container[3]=0x4003F61E
container[4]=0x4003F61E
container[5]=0x4003F61E
	start:
        UO.Print("Berem 300 skrolov")
		UO.Findtype( 0x0E34,  0x0000, 0x4003F61E )	
		UO.Exec( "moveitem finditem 350" )
		wait(1000)
		
UO.Print("Berem 300 bloodmosa")
		UO.Findtype( 0x0F7B,  0x0000, 0x4003F61E )	
		UO.Exec( "moveitem finditem 350" )
		wait(1000)
		
UO.Print("Berem 300 mandrake")
		UO.Findtype( 0x0F86,  0x0000, 0x4003F61E )	
		UO.Exec( "moveitem finditem 350" )
		wait(1000)
		
UO.Print("Berem 300 black pearls")
		UO.Findtype( 0x0F8D,  0x0000, 0x4003F61E )	
		UO.Exec( "moveitem finditem 350" )
		wait(1000)
		
UO.UseType("0x1F99")
wait(1000)
UO.UseType("0x0978")
wait(1000)	
	
	while UO.Weight>110
		UO.DeleteJournal()    
		UO.UseType("0x0E34")
		wait(1900)
		UO.LClick(461,453)  
		wait(500)
		counter=0
		wait(100)
   		 while not UO.InJournal("You fail to inscribe") and not UO.InJournal("You put") and counter<60
			wait(500)
			counter=counter+1		
		wend	
		UO.FindType("0x1F6C" )	
		
		UO.moveitem ('finditem' ,1, container[flag])	
		if flag==5 then
			flag=0
		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
	wend
	goto start
end sub