Yoko

sub Craft_Blanc() 
  var paper='0x1F24' 
  var blanc='0x0E34' 
  var instrument='0x40029C88' 
  var k , i 
  
  DIM material[2] 
  
  material[0]='0x175D' 
  material[1]='0x1BD7' 

  while not uo.Dead() 
    for i = 0 to 1 
      uo.FindType(material[i],'-1','backpack') 
      if not uo.FindCOunt() then 
        uo.FindType(material[i],'-1','ground') 
        if uo.FindCount() then 
          uo.moveitem('finditem','50') 
          wait(750) 
        end if 
      end if 
    next 
    ## Êðàôò áóìàãè ## 
    repeat 
      uo.DeleteJournal() 
      k = 0 
      uo.WaitMenu('Carpentry','Paper') 
      uo.UseObject(instrument) 
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) 
        k = k + 1 
        wait(500) 
      wend 
    until uo.InJournal('You put') 
    ## Êðàôò ïåðãàìåíòà ## 
    repeat 
      k = 0 
      uo.DeleteJournal() 
      uo.WaitMenu('Carpentry','Parchment') 
      uo.UseObject(instrument)    
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) 
        k = k + 1 
        wait(500) 
      wend 
      wait(500) 
    until uo.InJournal('You put') 
    ## Êðàôò áëàíêà ## 
    repeat 
      k = 0 
      uo.DeleteJournal() 
      uo.WaitMenu('Carpentry','blank') 
      uo.UseObject(instrument) 
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) 
        k = k + 1 
        wait(500) 
      wend  
    until uo.InJournal('You put') 
    uo.FindType(blanc,'-1','backpack') 
    if uo.FindCount() then 
      uo.moveitem('finditem','all','ground') 
      wait(750) 
    end if 
  wend 
end sub

UO.Automenu( 'ля-ля-ля, тополя', '(' + str(i) + ')' )