Цитата:
Сообщение от 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.
|
дык это ещё должен придти от второго окна пакет на сервер чтобы проверилось условие
не проще ли че-нить типо
delphi Код:
if FromClient and (ConnectName='первое окно') and (pck=HStr('тут типа пакет написания в чат слова _фас_')) then
begin
pck:='';
SendToServerEx(HStr('тут типа пакет атаки или че там надо'),'второе окно');
end;