messagebox(ответсмс("привет! Как ....дела?))"));



function ответсмс(string text)
{
string pyt="d:\bolt\Log.txt"; //путь к логу болталки
string pyt_prog="d:\bolt\boltalka.exe"; //путь к ехе болталки
string str[3]; //для записи ненужного текста из лога
int siz;
char ch_vhod[250];

strcpy(#ch_vhod[0], text);
siz=size(#ch_vhod[0]);
deletetext(#ch_vhod[0], "?" | "!" | "," | "." | formatic(40) | formatic(41)); //удаляем символы
text=format(#ch_vhod[0], siz); //это отправим в болталку


if(fopen (pyt, "w")!=0) {fclose();} else return -1; //удаляет прошлый лог
start(pyt_prog); //открываем болталку
while(window ("Болталка", "#32770", -1)==0) sleep(100); //ждем открытие
sleep(400);
sendtext(text, window (-1, "Edit", window ("Болталка", "#32770", -1))); key(13); sleep(100); //отправили text
activate(window ("Болталка", "#32770", -1));
keydown(MENU); sleep(100); key(F4); keyup(MENU); //закрыли
//mouse(LEFT, 655, -32, 1, window ("Болталка", "#32770", -1)); //можно так
sleep(400);

if(fopen (pyt, "r")==0) return -1;
freadline(str[0]);
fread(str[1]);
freadline(str[2]); //тут ответ
fclose();

return str[2];
}