if Uo.count('что-то') < СКОЛЬКО then 
   UO.FindType('0x1f4c','-1',Box) ;
   UO.Grab(STR(СКОЛЬКО - Uo.count('что-то')),'finditem') ; синтаксис не уверен. Но так работать должно
   wait(WaitTime) 
endif

; ((rune-1)*6)+2 ; Recall Scroll | Code [2]
; ((rune-1)*6)+3 ; Drop Rune | Code [3]
; ((rune-1)*6)+5 ; Recall ReGi | Code [5]
; ((rune-1)*6)+6 ; Gate ReGi | Code [6]

sub Rune_Book_OSI(RuneBook, Rune, Code)
   var N
   UO.Set('norbcheck','1') 
   UO.Set('norbcalc','1')
   N = ((rune-1)*6) + Code
#   ======== Recall Regi --> Recall Scroll ========
   if Code == 5 then
      if UO.BM>0 and UO.BP>0 and UO.MR>0 then
         UO.Recall(RuneBook, N)
         UO.Print("Recall - regi")
      else
         UO.Recall(RuneBook, (N - 3))
         UO.Print("Recall - scroll")
      endif
   endif
#   ======== Recall Scroll ========
   if Code == 2 then
      UO.Recall(RuneBook, N)
      UO.Print("Recall - scroll")
   endif
#   ======== Gate ========
   if Code == 6 then
      if UO.SA>0 and UO.BP>0 and UO.MR>0 then
         UO.Recall(RuneBook, N)
         UO.Print("Gate")
      else
         UO.Print("No Gate")
      endif
   endif
#   ======== Rune Drop ========
   if Code == 3 then
      UO.Recall(RuneBook, N)
      UO.Print("Rune Drop")
   endif
end sub

for i=1 to (Col_files_and_rune)
FileCoord[i]=safe call f.ReadString() 
Uo.Exec('addobject Rune_to_mine') 
Uo.Print(FileCoord[i]) 
while Uo.Targeting() 
wait(100) 
wend 
Rune_mine[i]=uo.getserial('Rune_to_mine') 
next