Yoko

sub inscript() 
 var Sunduk = '0x4002ED12'       ; Сериал сундука 
 var Scroll = '0x0E34'           ; бланк скрол, тип 
 var k = 0 
 var MakedScroll  = '0x1F32'       ; готовый скрол, тип 
 var reg1 = '0x0F88'         ; сюда вписать реги, нужные для крафта 
 var reg2 = '0x0F7A' 
 var reg3 = '' 
 var reg4 = '' 
 VAR t 

 While TRUE 
  UO.FindType( Scroll, -1, Sunduk ) 
  if UO.FindCount() == 0 Then 
   UO.Print( "Blank scrolls not found, script terminated" ) 
   return 
  end if 
  UO.Grab( '100', 'finditem' ) 
  wait( 2000 ) 

  UO.FindType( reg1, -1, Sunduk )    
  if UO.FindCount() == 0 Then 
  UO.Print( "Reagents not found, script terminated" ) 
   return 
  end if 
  UO.Grab( '100', 'finditem' )  
  wait( 2000 ) 

  UO.FindType( reg2, -1, Sunduk )   ; активировать для крафта других свитков 
  if UO.FindCount() == 0 Then 
   UO.Print( "Reagents not found, script terminated" ) 
   return 
  end if 
  UO.Grab( '100', 'finditem' )  
  wait( 2000 ) 

 ; UO.FindType( reg3, -1, Sunduk )    
 ;  if UO.FindCount() == 0 Then 
 ;  UO.Print( "Reagents not found, script terminated" ) 
 ;  return 
 ; end if 
 ; UO.Grab( Str(100), 'finditem' )  
 ; wait( 2000 ) 

 ; UO.FindType( reg4, -1, Sunduk )    
 ; if UO.FindCount() == 0 Then 
 ;  UO.Print( "Reagents not found, script terminated" ) 
 ;  return 
 ; end if 
 ; UO.Grab( Str(100), 'finditem' )  
 ; wait( 2000 ) 
  While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0 
   UO.DeleteJournal() 
   While NOT UO.InJournal( 'You are at peace') 
    UO.UseSkill("Meditation") 
    Wait(1000) 
   Wend 
   UO.DeleteJournal() 
    While NOT UO.InJournal( 'You are at peace') 
    UO.UseSkill("Meditation") 
    Wait(1000) 
   Wend 
   UO.DeleteJournal() 
   UO.CancelMenu() 
   UO.WaitMenu ( 'Spell', 'First', 'Spell', 'Magic Arrow' ) 
   UO.UseType( Scroll ) 
   k = 0 
   while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 ) 
    k = k + 1 
    wait( 500 ) 
   wend 
   if UO.Count( MakedScroll ) > 0 then 
    UO.FindType( MakedScroll, -1, -1 ) 
    UO.MoveItem( 'finditem', 0, Sunduk ) 
    wait( 1000 ) 
   end if 
  wend 

;  if UO.Count( reg1 ) > 0 then 
;   UO.FindType( reg1, -1, -1 ) 
;   UO.MoveItem( 'finditem', 0, Sunduk ) 
;   wait( 1000 ) 
;  end if 

;  if UO.Count( reg2 ) > 0 then ; активировать для крафта других свитков 
;   UO.FindType( reg2, -1, -1 ) 
;   UO.MoveItem( 'finditem', 0, Sunduk ) 
;   wait( 1000 ) 
;  end if 

;  if UO.Count( reg3 ) > 0 then 
;   UO.FindType( reg3, -1, -1 ) 
;   UO.MoveItem( 'finditem', 0, Sunduk ) 
;   wait( 1000 ) 
;  end if 

;  if UO.Count( reg4 ) > 0 then 
;   UO.FindType( reg4, -1, -1 ) 
;   UO.MoveItem( 'finditem', 0, Sunduk ) 
;   wait( 1000 ) 
;  end if 
 Wend 
end sub