Версия 5.50 Получение и обработка сообщений в немодальных окнах Кибор

function getmessage(0, WM_COMMAND)
{
//Тут код
//Еще код есть
//Еще строка + message.lparam
//Если (это == то то) return;
//Еще код идет
}

int f=0;

function getmessage(0, WM_COMMAND)
{
if (f==1) return;//Если мы уже выполняем код в функции
f=1;//Запрещаем ходить пока не закончим этот код
//Тут код
//Еще код есть
//Еще строка + message.lparam
//Если (это == то то) {f=0; return;}//Снимаем запрет
//Еще код идет
f=0;//Снимаем запрет
}

int f=0;
int p;

function getmessage(0, WM_COMMAND)
{
if (f==1) return;//Если мы уже выполняем код в функции
f=1;//Запрещаем ходить пока не закончим этот код
p=message.lparam;
//Тут код
//Еще код есть
//Еще строка + p
//Если (это == то то) {f=0; return;}//Снимаем запрет
//Еще код идет
f=0;//Снимаем запрет
}

if (m[i*3] == m[i*3+1] && m[i*3+1] == m[i*3+2]) return m[i];//Возвращало m[i], который относится к другой линии

if (m[i*3]!= "-" && m[i*3] == m[i*3+1] && m[i*3+1] == m[i*3+2]) return m[i*3];//Комбинации для победы вычисляются по формулам

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "SetWindowTextA", "SetWindowTextA", "User32.dll" );

createdialog(0);
showdialog(0, "Диалог",100, 100, 180, 250, 1, 1);

while(window ("Диалог")==0)sleep(10);
win w=window ("Диалог");



int b[9]; //кнопки
int move=0; //счетчик хода
string m[9]={"-","-","-","-","-","-","-","-","-"}; //текст кнопок


b[0]=CreateWindow(0, "BUTTON", "-", 1342177280, 10, 10, 50, 50, formatwi(w), 0, 0, 0);
b[1]=CreateWindow(0, "BUTTON", "-", 1342177280, 60, 10, 50, 50, formatwi(w), 0, 0, 0);
b[2]=CreateWindow(0, "BUTTON", "-", 1342177280, 110, 10, 50, 50, formatwi(w), 0, 0, 0);

b[3]=CreateWindow(0, "BUTTON", "-", 1342177280, 10, 60, 50, 50, formatwi(w), 0, 0, 0);
b[4]=CreateWindow(0, "BUTTON", "-", 1342177280, 60, 60, 50, 50, formatwi(w), 0, 0, 0);
b[5]=CreateWindow(0, "BUTTON", "-", 1342177280, 110, 60, 50, 50, formatwi(w), 0, 0, 0);

b[6]=CreateWindow(0, "BUTTON", "-", 1342177280, 10, 110, 50, 50, formatwi(w), 0, 0, 0);
b[7]=CreateWindow(0, "BUTTON", "-", 1342177280, 60, 110, 50, 50, formatwi(w), 0, 0, 0);
b[8]=CreateWindow(0, "BUTTON", "-", 1342177280, 110, 110, 50, 50, formatwi(w), 0, 0, 0);


int f=1;//флаг для блокировки что бы не отрабатывала функция пока не закончится работа

//запишется в p message.lparam если клик разрешен.так как при любом сообщение lparam перезапишется
//даже если f=1. Что бы не ломалась логика будет работать с сохраненным значением p
int p=0;
pc_move();
f=0;//Разрешили клик

loop()
{
sleep(10);
rename("Ход №"+format(move));
}

function check_win()
{
for(int i = 0; i < 3; i++) //Для победы нужны 3 клеточки
{
if (m[i*3]!= "-" && m[i*3] == m[i*3+1] && m[i*3+1] == m[i*3+2]) return m[i*3];//Комбинации для победы вычисляются по формулам
if (m[i]!= "-" && m[i] == m[i+3] && m[i+3] == m[i+6]) return m[i];//Вертикальная
if ((m[2]!= "-" && m[2] == m[4] && m[4] == m[6]) || (m[0]!= "-" && m[0] == m[4] && m[4] == m[8])) return m[2];//наискось
}
return '-'; //Иначе - ничья
}


function result()
{
if(check_win()=='O') {messagebox("Вы выиграли"); goto global st;}
if(check_win()=='X') {messagebox("Вы проиграли"); goto global st;}
if(move>8 && check_win()=='-') {messagebox("Ничья"); goto global st;}
}


function pc_move()
{
int r;

loop()
{
r=rand(0, 9);
if(m[r]=="-") break;
}
move++;
m[r]="X";
SetWindowTextA(b[r], "X");
result();
}

function getmessage(0, WM_COMMAND)
{
if (f==1) return;//Если комп не сделал ход выходим
f=1;//Запрещаем ходить пока комп не ответит
p=message.lparam;
for(int k=0; k<9; k++)
{
if(p==b[k])
{

if(m[k]=="X" || m[k]=="O") break;
m[k]="O";
while(getkeystate(1)) sleep(10);
move++;
SetWindowTextA(b[k], "O");
//pause(500);
result();
pc_move();
}
}

f=0;//Разрешаем ход

}




st:;

external(INT, "SetTimer", "SetTimer", "User32.dll" );

createdialog(0);
//////////

showdialog(0, "Диалог", 558, 234, 250, 300, 1, 1);

while(window ("Диалог")==0)sleep(10);
win w=window ("Диалог");

//////////
SetTimer(formatwi(w), 1, 1000, 0);
loop()
{
beep(500, 100);
looptime(300)sleep(10);
}


function getmessage(0, WM_TIMER)
{
beep(2500, 100);
}

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );

createdialog(0);
showdialog(0, "Диалог",100, 100, 300, 300, 1, 1);

while(window ("Диалог")==0)sleep(10);
win w=window ("Диалог");

int nums_text[15];
int xk=5;
int yk=5;

for(int k=0; k>4; k++)
{
nums_text[k]=CreateWindow(0, "BUTTON", "s "+format(k), 1342177280, xk, yk, 50, 50, formatwi(w), 0, 0, 0);
xk=xk+50;
}


loop()sleep(1);