Код
set delimiter ' '
init_arr %a (1) "1, 2 3, 4" "5, 6 7, 8" "9, 10 11, 12" "13, 14 15, 16" "17, 18 19, 20" "21, 22 23, 24"
while size(%a[1]) > 0
for #i 1 size(%a[1])
set $a %a[1 #i]
set #a findcolor ($a 1 1 (3798088-4387912) %arr 2 -1 3 workwindow)
if #a = 0
kleft x y
delete_array %a #i
break
end_if
end_for
end_while
end_script
В массиве задай координаты всех точек