Yoko

Нужно чтобы делались Magic Arrow (если можно ещё и на Clumsy и Weaken)Собственно то я Делал такой скрипт (дуг тоже помогал) но чёт инжа выдаёт то в одном то в другом месте ошибки. Извеняюсь если подобные топы уже создавались , т.к. инет у меня не резиновый.

Всем спасибо за помощь.

Вот тебе универсальный скрипт на инскрипт
Чтобы подогнать его под другой спел нужно вписать типы регов, которые нужны на крафт, изменить тип готового скрола и изменить вот это вейт-меню:

 UO.WaitMenu ( 'Spell', 'First', 'Spell', 'Magic Arrow' ) 

Скрипт берет реги и скролы из сундука около чара, крафтит скролы, кидает их обртано в сундук, берет новые реги и т.д.

sub inscript() 
 var Sunduk = '0x403F363A'       ; Сериал сундука 
 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

З.Ы.
Этот скрипт мне кто-то дал почти год назад.
Так что хоть убейте - не помню, кто автор.

Большое спасибо