Это не очень сложно я думаю.
Начнем с того, что откроем процедуры выдающие номера цитат с искомыми словами. Это
::bor::search и
::bor::search_on_data. Парсинг и выдача списка номеров происходит о второй процедуре. Чтобы показывалась случайная найденная цитата, нам надо один их результатов полученных в процедуре
::bor::search_on_data отправлять в процедуру
::bor::number которая выдает цитату по номеру.
В переменной
$result хрянится список найденных цитат. Чтобы получить из него случайную цитату перед строкой
out $nick $chan "Найденные цитаты: [join $result ", "]"
добавь строку
set bor(randresult) [lindex $result [rand [llength $result]]]
Теперь, чтобы отправить этот номер в
::bor::number вместо строки
out $nick $chan "Найденные цитаты: [join $result ", "]"
вставь строку
number $nick $uhost $hand $chan $bor(randresult)
Вот и все.