Написал код. Почти все работает.
проблема в следующем: пока зажата лкм не реагирует на нажатия кнопок.
Нажимаю "1" (или другую назначенную клавишу) - курсор встает, куда надо и все работает.
Но после этого не реагирует на другие кнопки, пока не кликнешь лкм.
SUB(Will) //подпрограмма установки мыши с зажатой лкм на нужную координату
LUP($_xmouse, $_ymouse)
WAITMS(10)
LDOWN($X[$N], $Y[$N])
print("координаты ", $X[$N],",", $Y[$N])
END_SUB
LOGCLEAR
$csv = "koorda.csv" //задаем имя файла с координатами
strseparate(TFREAD($csv, 2), ",", $Names) //читаем строку файла в массив $Names
print ("$Names[3]=",$Names[3] ) //печатаем элемент для проверки
strseparate(TFREAD($csv, 3), ",", $X) //читаем строку файла в массив $X
print ("$X[3]=",$X[3] ) //печатаем элемент для проверки
strseparate(TFREAD($csv, 4), ",", $y) //читаем строку файла в массив $y
print ("$y[3]=",$y[3] ) //печатаем элемент для проверки
print("массив создан успешно")
print()
WHILE(1) // начало бесконечного цикла
//нажатие клавиши и устранение дребезга
getkeysdown($kvar) // задаем переменную - какая клавиша нажата
getkeysdown($kvar1)
WHILE($kvar= $kvar1) //если клавиша не отпущена, то подвисаем в цикле и ждем
getkeysdown($kvar1)
waitms(15)
END_CYC
SWITCH($kvar) // по условию, какая клавиша нажата - ветвим процесс
CASE(#1)
print("нажата 1")
$n=1 // задаем номер для координат из массива
print("позиция мыши ",$Names[$N])
Will()
CASE(#2)
print("нажата 2")
$n=2
print("позиция мыши ",$Names[$N])
Will()
CASE(#3)
print("нажата 3")
$n=3
print("позиция мыши ",$Names[$N])
Will()
CASE(#4)
print("нажата 4")
$n=4
print("позиция мыши ",$Names[$N])
Will()
CASE(#5)
print("нажата 5")
$n=5
print("позиция мыши ",$Names[$N])
Will()
CASE(#6)
print("нажата 6")
$n=6
print("позиция мыши ",$Names[$N])
Will()
END_SWITCH
waitms(15)
END_CYC
haltt
потом опрос клавиш хочу убрать в цикл - для этого заготовлены строки в csv под коды клавиш Key code1-3
содержимое файла koorda.csv
0,1,2,3,4,5,6
0,Whill,Y,R,G,B,all
x,90,34,75,109,146,85
y,854,925,927,926,927,960
Key code1,0,0,0,0,0,0
Key code2,0,0,0,0,0,0
Key code3,0,0,0,0,0,0