1
Общие вопросы / Re: если цвет пикселя не меняется
« on: June 21, 2015, 04:47:09 PM »
Во сообразил сам
Code: [Select]
up:
GETSCREEN
$b = PXL(100,100)
$j = 0
skip:
MOVE(100,100)
GETSCREEN
$a = PXL(100,100)
IF($a = $b)
$j = $j + 1
ELSE
$j = 0
goto(up)
END_IF
LOGWRITE("Ïåðåìåííàÿ: j = ", $j)
IF($j = 5)
SOUND("sign.wav")
goto(up)
END_IF
WAIT(4)
goto(skip)