ICQ бот

[Pavelok]

Здраствуите! такои вопрос: делаю я бота нашел исходник в нете

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String); 
var
icq: cardinal;
begin
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ': ' + Msg);
if Msg='Привет' then
ICQClient1.SendMessage(icq,'Привет')
end;

end.

здесь если боту написать привет то он ответит тоже привет, а как сделать чтоб допустим я отправил ему 'как дела?' он ответил 'норма'.
если сделать повторную процедуру кода то он ругается

[maladoy]

if Msg='как Дела?' then
ICQClient1.SendMessage(icq,'Норма')

вставь перед end-ом!

[Pavelok]

спасибо!но не работает я уже пробывал так вот какую он ошибку выдаёт
[Ошибка] Unit1.pas(129): Missing operator or semicolon

[maladoy]

после

ICQClient1.SendMessage(icq,'Привет')

поставь ;

[Pavelok]

всё спасибо работает!
а ещё один вопрос если мне отправили сообщение имеющие знак '?' то он ответит что нибудь

[maladoy]

ага теорему Ферма начнет доказывать!!!
нет конечно вы же ему не сказали что отвечать!

[Bayazet]

эм.. нет. для того, чтобы бот ответил на сообщение '?' надо написать:

if Msg='?' then
ICQClient1.SendMessage(icq,'что-то отвечаем')

[Pavelok]

Спасибо большое!
а чтоб весь его словарный запас можно было через блокнот открыть?

[KORN]

создавай текстовый файл и загружай его через tstrings; (примеры на форуме приводились не однократно, так что в поиск) загружай файл и обрабатывай в зависимости от сообщений

[xameleon4]

попробуй вот так

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
icq: cardinal;
begin
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ': ' + Msg);
if Msg='как Дела?' then
ICQClient1.SendMessage(icq,'Норма')

begin
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ': ' + Msg);
if Msg='Привет' then
ICQClient1.SendMessage(icq,'Привет')
end;
end;
end.