О действительно отправил апперинг, а ето "3А", все заработало))), тут такой вопрос:
Шаманил с скриптом и получил работоспособную модель на 50 %, так как надо открыть клиент, ввести лог и пароль, зайти на перса, включить скрипт, потом нажать кнопку выход, но окно не закрывается. ( так как я запускаю л2 постоянно через иг бота то комбинация "ctrl+Q" "убивает" клиент, как бы через диспечер задачь снять процес. Соединение рвется, повторно открываю окно захожу на акаунт, на клиент, нажимаю кнопку выход, окно опять не закрывается, нажимаю контрол+кю( если перед етим не нажимать выход то не работает). и вуаля соединение остается, все работает.
А вот и вопрос что в скрипте не так? Почему надо дважды запускать одного и тогоже перса?
Вот сам скрипт:
PHP код:
const
nik='Proba';
var
ctfid,k: integer;
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure OnTimer01(Sender: TObject);
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
k:=0;
end;
procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin
end;
procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin
end;
procedure offclient;
begin
pck:='';
NoCloseServerAfterClientDisconnect;
NoCloseClientAfterServerDisconnect;
buf:=#$7E;
SendToClientEx(nik);
end;
begin
if (connectname=nik) and (fromclient) and (pck[1]=#$00) then offclient;
//отправляем ответ на ивент
if k=1 then
begin
buf:=hstr('C6 BF 07 00 00 01 00 00 00');
WriteD(ctfid);
SendToServerEx(nik); k:=0;
end;
// читаем айди запроса
if Fromserver and (ConnectName=nik) and (pck[1]= HStr('F3')) then
begin
ctfid:=readd(102);
k:=1;
end;
end.