1
Общие вопросы / Re: Каждые 10 пикселей заносить в массив
« on: October 18, 2017, 02:39:53 PM »большущее спасибоCode: (clickermann) [Select]IF(ISKEYDOWN(#Z)=1)
WHILE(ISKEYDOWN(#Z)=1)
WAITMS(5)
END_CYC
$x1 = $_xmouse
$y1 = $_ymouse
$check = 0
WHILE((ISKEYDOWN(#Z)=0)&($check = 0))
IF(ISKEYDOWN(#X)=1)
WHILE(ISKEYDOWN(#X)=1)
WAITMS(5)
END_CYC
$x2 = $_xmouse
$check = 1
IF($x1 < $x2)
FOR($i=$x1,$i<$x2,10)
arrpush($aCor,$i)
arrpush($aCor,$y1)
END_CYC
ELSE
FOR($i=$x1,$i>$x2,-10)
arrpush($aCor,$i)
arrpush($aCor,$y1)
END_CYC
END_IF
//=== Вывод массива в лог для тестирования ====
LOGCLEAR
FOR($a=0,$a<ARRSIZE($aCor))
LOGWRITE ($aCor[$a])
END_CYC
HALT
//=============================================
ELSE
WAITMS(20)
END_IF
END_CYC
ELSE
WAITMS(20)
END_IF