Почему цикл не работает ?
WinActivate, RAGЕ Мultiplayer ahk_class 60826
*Numpad1::
Loop
{
Label1:
BlockInput, SendAndMouse
SendInput, {sc17}
Label2:
MouseGetPos, 1242, 420
PixelGetColor, color, 1242, 420, alt
Var4 = %color%
if ( var4 = 0x )
{
sleep 500
MouseGetPos, 1580, 440
PixelGetColor, color, 1580, 440, alt
Var1 = %color%
if ( var1 = 0x2A68FC ) | ( var1 = 0x1C5FFC ) | ( var1 = 0x1C60FC ) | ( var1 = 0x1C61FC )
{
SendInput, {Numpad3}
BlockInput, Default
}
else
{
Click Left 550,394 ,
sleep, 200
Click Left 550, 520,
BlockInput, Default
sleep 5000
Label3:
MouseGetPos, 1051, 898
PixelGetColor, color, 1051, 898, alt
Var2 = %color%
if ( var2 = 0x0000FF )
{
Send {Click}
Send {Click}
Send {Click}
Send {Click}
Send {Click}
Send {Click}
Goto, Label3
}
else
{
MouseGetPos, 624, 1024
PixelGetColor, color, 624, 1024, alt
Var3 = %color%
if ( var3 = 0x00FF4E )
{
Goto, Label1
}
else
{
Goto, Label3
}
}
}
}
else
{
Goto, Label2
}
}
Return
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.