Вот скрипт:

Var Forge='0x401FD813' ;Это форжа 
Var Sunduk='0x400AEE18' ;Это сундук где инги 
Var TItem='0x1404' ;Это тип итема который крафтаем, War Fork в данном случае 

sub MenuIron() 
   uo.cancelmenu() 
   uo.automenu('Blacksmithing','Weapons') 
   uo.automenu('Weapons','Spears & Forks') 
   uo.automenu('Spears & Forks','war fork (8 iron ingot)') 
end sub 

sub MenuColor() 
   uo.cancelmenu() 
   uo.automenu('Blacksmithing','Colored Armor & Weapons') 
   uo.automenu('Colored Armor & Weapons','Weapons') 
   uo.automenu('Weapons','Spears & Forks') 
   uo.automenu('Spears & Forks','War Fork') 
end sub 

sub BlacksmithyWarFork() 
VAR i=1 

Dim TIngot[18] ; Типы ингов 
For i=1 To 18 
   TIngot[i]='0x1BEF' ;Большинство ингов этого типа 
next 
TIngot[5]='0x1BE3' ;Copper 
TIngot[7]='0x1BE5' ;Silver 
TIngot[9]='0x1BE9' ;Shadow 

Dim CIngot[18] ; Цвета ингов 
CIngot[1]='0x0000' ;Iron 
CIngot[2]='0x0750' ;Rusty 
CIngot[3]='0x0590' ;Old Copper 
CIngot[4]='0x060A' ;Dull Copper 
CIngot[5]='0x0000' ;Copper 
CIngot[6]='0x0488' ;Bronze 
CIngot[7]='0x0000' ;Silver 
CIngot[8]='0x0000' ;Gold 
CIngot[9]='0x096B' ;Shadow 
CIngot[10]='0x0014' ;Rose 
CIngot[11]='0x0193' ;Agapite 
CIngot[12]='0x04C2' ;Blood Rock 
CIngot[13]='0x07D5' ;Verite 
CIngot[14]='0x00CE' ;Valorite 
CIngot[15]='0x052D' ;Mytheril 
CIngot[16]='0x0455' ;Black Rock 
CIngot[17]='0x0028' ;Obsidian 
CIngot[18]='0x08AF' ;Plutonium 

MenuIron() 

uo.useobject(Sunduk) 
wait(200) 

While 1==1 
ff: 
   UO.FindType(TIngot[i],CIngot[i],'backpack') 
   Wait(200) 
   If UO.Count(TIngot[i],CIngot[i])<8 Then 
      If UO.Count(TIngot[i],CIngot[i])>0 Then 
         UO.SetReceivingContainer(Sunduk) 
         cheklag() 
         UO.Grab('0','finditem') 
         wait(1000) 
         UO.UnSetReceivingContainer() 
      end if 
      UO.FindType(TIngot[i],CIngot[i],Sunduk) 
      Wait(200) 
      If UO.GetQuantity('finditem')>=8 Then 
         cheklag() 
         UO.Grab('100','finditem') 
         Wait(1000) 
      else 
         i=i+1 
         If i>18 Then 
            uo.closeuo() 
         end if 
         MenuColor() 
         goto ff 
      end if 
   end if 

   cheklag() 
   UO.DeleteJournal() 
   UO.UseType(TIngot[i],CIngot[i]) 

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
      wait(50) 
   wend 

   UO.FindType(TItem,-1,'backpack') 
   wait(10) 
   If UO.GetQuantity('finditem')>0 then 
      UO.WaitTargetObject('finditem') 
      UO.UseObject(Forge) 
      Wait(1000) 
   Endif  
wend 
end sub 

sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
Until UO.InJournal("backpack") 
end sub


после запуска просто закрывает уо !!!! Помогите!ПЛЗ!

 uo.closeuo() 

Dim TIngot[18] ; Типы ингов 
For i=1 To 18 
   TIngot[i]='0x1BEF' ;Большинство ингов этого типа 
next 
TIngot[5]='0x1BE3' ;Copper 
TIngot[7]='0x1BE5' ;Silver 
TIngot[9]='0x1BE9' ;Shadow