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

[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