Вопрос по выбору файла для скрипта.

[BETEP]

Привет всем!
Вот нашел скрипт на Лумбер (очень удачный скрипт).Я его малость модернизировал.
Но у меня проблемка.Прошу помочь советом.

Кратко о скрипте:
Скрипт при включении определенной переменной собирает координаты деревьев в файл Trees.bat
(переменную потом можно отключить и он не будет собирать кординаты а сразу выгрузит их из файла)
var f=file("C:\trees.dat") так как файл один, то можно ли к примеру поставить в начале скрипта строчку
о вопросе выбора файла ?

То есть скрипт перед началом скрипта будет задавать вопрос "Какой файл с координатами выбрать?"
var f=file("C:\trees.dat")
var f2=file("C:\trees2.dat")
var f3=file("C:\trees3.dat")
И если я к примеру написал F3 то он запустит файл 3.
Как это сделать? Подскажите плиз. Заранее благодарен.

[Lord Ruslan Nightmare]

практически никак
легче повесить несколько алиасов на разные хоткеи
алиас - это такой sub в 3 строчки (из которых две - это sub имя() и end sub), запускающий скрипт и передающий ему в качестве параметра имя файла и любые другие связынные прибамбасы (например - номер руны, по которой реколлиться)

[Biga]

Ну, можно и извращаться %))))

sub f1()
if uo.getglobal("waitf")==1 then
uo.setglobal("waitf",2)
end if
end sub

sub f1()
if uo.getglobal("waitf")==1 then
uo.setglobal("waitf",3)
end if
end sub

sub script1()
var s=""
var i=0
uo.setglobal("waitf",1)
uo.print("Press f1 for... or f2 for ...")
i=0
repeat
wait(300)
i=i+1
until not uo.getglobal("waitf")==1 or i>100
if i>100 then
uo.print("Too slow")
uo.exec("Terminate script1")
end if
if uo.getglobal("waitf")==2 then
s="first string"
end if
if uo.getglobal("waitf")==3 then
s="second string"
end if
...
end sub


А сам я пользуюсь другим извратом

sub script2()
var i=0
uo.print("Say c1 for ... or c2 for ...")
i=0
repeat
wait(300)
i=i+1
until uo.injournal("MyNaMe:") or i>100
if i>100 then
uo.print("Too slow")
uo.exec("Terminate script2")
end if
if uo.injournal("MyNaMe: c1") then
s="first string"
end if
if uo.injournal("MyNaMe: c2") then
s="second string"
end if
...
end sub

[user]

Мда... а понятие массив кому нибудь знакомо?

Не видели никогда такой вещи?

VAR g,j
g=3
DIM file[3]

file[1]=(путь)
file[2]=(путь)
file[3]=(путь)

While 1
For j=0 to (g-1)
.....
Next

[Lord Ruslan Nightmare]

дело не в том, как хранить что-то в памяти, а в том, как получить ввод от пользователя.