Возможно ли сделать такой скрипт?

[Loken]

Чтобы он запрашивал контейнер, открывал его, смотрел всё, что лежит внтури и выписывал названия в отдельный файл? Кто может помочь с таким чудом, буду оч признателен

[ForwarD]

скажи плз аську

[Loken]

я итак у тебя в асе

[Destruction]

Возможно, токо нах оно тебе? Я бы написал, но мне леень -)

[agem]

Code: Select all

sub contents()
   Dim m[255]
   var i=1,k=1
   var f,s

   uo.print('!!Выбери Контейнер!! ') 
   uo.exec('addobject Searchcont') 
   while uo.targeting() 
   wait(100) 
   wend 

   
   f=file("c:\test.txt") 
   f.Open() 
   f.Create() 

   UO.IgnoreReset()
   UO.FindType(-1,-1,'Searchcont')
   While UO.GetQuantity('finditem')>0
      UO.Click('finditem')
      m[i]=UO.GetName('finditem')
      i=i+1
      UO.Ignore('finditem')
      UO.FindType(-1,-1,'Searchcont')
   wend
   UO.IgnoreReset()   
   k=1
   While k<i
      s=safe call f.Writeln(m[k]) 
      k=k+1
   WEnd

   f.Close()
end sub