Кружок нубов(Вопрос-Ответ)

[supernewbie]

Сообщение от J-Fobos

Для всех соединений один скрипт. Проблема решается очень просто. Вот пример:

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.

дык это ещё должен придти от второго окна пакет на сервер чтобы проверилось условие
не проще ли че-нить типо

if FromClient and (ConnectName='первое окно') and (pck=HStr('тут типа пакет написания в чат слова _фас_')) then 
begin
pck:='';
SendToServerEx(HStr('тут типа пакет атаки или че там надо'),'второе окно');
end;