Для всех соединений один скрипт. Проблема решается очень просто. Вот пример:
Код:
var
fas: boolean;
Procedure Init;
begin
fas:=false;
end;
begin
if (FromClient) and (ConnectName='первое окно') and (pck=HStr('тут типа пакет написания в чат слова _фас_')) then
begin
fas:=true;
pck:='';
end;
if (FromClient) and (ConnectName='второе окно') and (fas) then
begin
fas:=false;
//ботик бежит и кусает все что движется :)
end;
end.