Первое что приходит в голову это поиск слов во фразе человека и выбор ответа из заранее подобранных для найденного слова. Ну типа там, человек: "Хай, чо как дела?", бот видит что есть знак вопроса и 2 слова "как" и "дела", и выбирает из своей базы ответ: "Сё тип-топ, сам как?". Ещё в одном вирт.болтуну видел функцию запоминания что говорил человек после задания вопроса ботом и занесением его в базу.
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
|