ICQ BOT...

[sergeyrulit]

Вобщем задумка сделать бот по продаже некого товара. Но застрял на одном моменте. Допустим при отправке произвольного сообщения первый раз, бот отвечает:

Welcome to **********!
Please choose your laguage:
1 - EN
2 - RU
Thank you for using service.

После этого я отправляю 2. Бот присылает:

Выберите категорию:
1 - Поиск/Купить
2 - Служба поддержки
3 - Моя корзина
0 - Выбор языка

А вот тут у меня и тормаза. Я бы мог сверять if Msg = 1 then .... Но ведь получается что сверка будет языка, а не категории т.к. в выборе языка можно тоже отослать один... Как же тогда сделать так сказать ветвление? Что бы при отправке 1 или 2 или 3 или 4 был выбор уже категории, а не языка.

[sergeyrulit]

Ps: используется компонент TICQClient.

[Marsel737]

К примеру:

var
  Pos: integer;
begin
  case pos of
  begin
    0:  
      begin
        if Msg = 1 then
        begin
          //
        end else
        begin
          //
        end;
        Inc(Pos);
        Exit;
      end;
    1: 
       begin
         //
         Inc(Pos);
       end;
  end;
end;

[sergeyrulit]

Спасибо за подсказку.

Появилась новая проблема. Допустим первый UIN посылает боту команду 1, бот увеличивает pos ( Inc(Pos) из кода выше) на 1.

Теперь если стукнет еще один UIN боту, то Pos то будет равен 1, а не 0. Так вот, как сделать так что бы для каждого UINa был уникальный Pos. Или может выносить в отдельный поток каждый UIN?.

[eoln]

Заведи массив, например, типа TPoint (или какую-нибудь структуру), X - составляющая будет хранить UIN, Y - уровень. При приходе сообщения, ищем в массиве нужный UIN по X (если не нашли, то добавляем новую запись), затем получаем уровень Y и если уровень = 1, то предложить выбор языка, если уровень = 2, то предложить категорию и т.д.

[sergeyrulit]

Спасибо. Задумку понял но с TPoint не работал. Можно пример кода "ищем в массиве нужный UIN по X (если не нашли, то добавляем новую запись), затем получаем уровень Y и если уровень = 1, то предложить выбор языка, если уровень = 2, то предложить категорию и т.д."

[raxp]

типа так...

type mas = record
 uin, poss: integer;
end;

var mass: array of mas;

procedure messagercv(uin: integer; text: string);
var i,z: integer;
     p: boolean;
begin
 p:= false;
 for i:= low(mass) to high(mass) do
  if uin = mass[i].uin then begin p:= true; z:= i; break end;
 //
 if not p then begin // вводим нового абонента с его нач.параметрами
  setlength(mass, length(mass)+1);
  mass[length(mass)-1].uin:= uin;
  mass[length(mass)-1].poss:= 0;
 end else begin // абонент есть в списке
  //
  mass[z].poss:= mass[z].poss + 1
  //
 end;
 ...
 ну и так далее
end;

смысл ясен?