Messages

1

Общие вопросы / Re: массивы картинок

« on: October 31, 2013, 03:12:22 PM »

С появлением массивов получится.

Как вариант можно так

Code: (clickermann) [Select]

$pictures[0]="file1.bmp"
$pictures[1]="file2.bmp"
$pictures[2]="file3.bmp"
$pictures[3]="file4.bmp"

for ($i, $i<ARRSIZE ($pictures) )
GETSCREEN 
IF_PICTURE_IN (0,0, $_xmax,$_ymax, $pictures[$i])
  print("Найдена картинка ",$pictures[$i]," в координатах X=", $_return1, ", Y=", $_return2)
// действие
END_IF
end_cyc

2

Общие вопросы / Re: tfread

« on: October 31, 2013, 02:55:19 PM »

Для начала нужно отказаться от вывода ошибок
В настройках вкладка "Интерпретатор", ставим галочку "Игнорировать ошибки"

Код привожу только для того что бы считать пустые строки, Кликерманн пропускает ошибки и так наура, но при выполнении
STRLEN (tfread($filename, $i)) - у меня зависал Кликерманн наглухо.

[spoiler]

Code: (clickermann) [Select]

$filename = "filename.txt"
$stringsinfile = TFCOUNT ($filename)
$count = 0 // колличество пустых строк

LOGWRITE ("-= Всего ",$stringsinfile," строк =-")
for ($i, $i<$stringsinfile)

IF(STRLEN (STRFILTER (tfread($filename, $i),"abcdefghjklmnopqrstuvwxyz",1)) = 0)
INC($count)
END_IF

$string = TFREAD ($filename, $i)
// действие со стокой $string
LOGWRITE ($string)
end_cyc
LOGWRITE ("-= Пустых строк ",$count," =-")[/spoiler]