Если больше, можно оптимизировать кучей способов.
Например:
SUB(action, $filename)
IF($click1 < $_ms)
LCLICK(840, 260)
WAIT(1)
FOR($i=1, $i <= TFCOUNT($filename))
TOCLIP(TFREAD($filename, $i))
WAITMS(1000)
KEYDOWN(#CTRL)
WAITMS(50)
KEYPRESS(#V)
KEYUP(#CTRL)
WAITMS(50)
END_CYC
$click1 = $_ms+1000
END_IF
END_SUB
SUB(finder, $n_f, $x1_f, $x2_f, $y1_f, $y2_f, $pic_f, $act_f)
IF($find[$n_f] = 0)
GETSCREEN($x1_f, $x2_f, $y1_f, $y2_f)
COLORMODE(6)
IF_PICTURE_IN($x1_f, $x2_f, $y1_f, $y2_f, $pic_f)
$find[$n_f] = 1
action($act_f)
END_IF
END_IF
END_SUB
IF($repeat = 0)
$repeat = 1
STRSEPARATE("0:0:0:0:0:0:0", ":", $find)
END_IF
finder(0, 710,230,730,260, "деятельность.bmp", "музыка.txt")
finder(1, 730,360,770,400, "интересы.bmp", "интересы.txt")
finder(2, 200,200,222,222, "ехали.bmp", "ехали.txt")
finder(3, 300,300,333,333, "медведи.bmp", "медведи.txt")
finder(4, 300,300,333,333, "на.bmp", "на.txt")
finder(5, 300,300,333,333, "велосипеде.bmp", "велосипеде.txt")
finder(6, 300,300,333,333, "конец.bmp", "конец.txt")