DaveMorgan
19.10.2012, 12:54
Здравствуйте!
Ребят, столкнулся с такой проблемой.
На данный момент пишу скрипт на офлайн трейд бота на N количество окон. Хочу реализовать это все на l2phx.
Суть проблемы заключается в том, что команда SendToServerEX() и SendToClietnEX() не отправляет пакеты при закрытом клиенте и поддержании коннекта через команду NoCloseServerAfterClientDisconnect;
Вот к примеру, запускаем в скриптменеджере скрипт, который будет держать соединение с сервером без клиента (для теста брал пока одно соединение пожтому и использую команду SendToServer):
begin
NoCloseServerAfterClientDisconnect;
if fromserver and (pck[1]=#$D3) then begin
buf:=#$b1;
WriteD(ReadD(2));
WriteD(47);
writeC(0);
writeC(24);
writeC(0);
writeC(0);
SendToServer;
end;
end.
Далее в текущем осединении во вкладке дополнительно выполняем скрипт, который присваивает текущему соединению имя:
begin
setname('ololoPRO100PWNZ')
end;
После выполнения в этой же вкладке запускаем другой скрипт, который отправляет сообщение на сервер.
VAR
name: string;
begin
name:=ConnectName;
buf:=Hstr('D0 00 00 F8 00 84 00 00 00 0D F0 0D F0');
SendToServerEX(name);
sendmsg(name) //Для проверки текущего состояния переменной name
end;
Если не закрывать клиент, все работет, пакеты отправляются но, стоит закрыть клиет так все, пакеты через команду SendToServerEX(name) не отправляются хотя через команду SendToServer все идет замечательно. Проверял переменную name, в ней все нормально, но пакеты не отправляются.
Голову себе уже сломал. В чем проблема? что я не так делаю?!? :confused:
Ребят, столкнулся с такой проблемой.
На данный момент пишу скрипт на офлайн трейд бота на N количество окон. Хочу реализовать это все на l2phx.
Суть проблемы заключается в том, что команда SendToServerEX() и SendToClietnEX() не отправляет пакеты при закрытом клиенте и поддержании коннекта через команду NoCloseServerAfterClientDisconnect;
Вот к примеру, запускаем в скриптменеджере скрипт, который будет держать соединение с сервером без клиента (для теста брал пока одно соединение пожтому и использую команду SendToServer):
begin
NoCloseServerAfterClientDisconnect;
if fromserver and (pck[1]=#$D3) then begin
buf:=#$b1;
WriteD(ReadD(2));
WriteD(47);
writeC(0);
writeC(24);
writeC(0);
writeC(0);
SendToServer;
end;
end.
Далее в текущем осединении во вкладке дополнительно выполняем скрипт, который присваивает текущему соединению имя:
begin
setname('ololoPRO100PWNZ')
end;
После выполнения в этой же вкладке запускаем другой скрипт, который отправляет сообщение на сервер.
VAR
name: string;
begin
name:=ConnectName;
buf:=Hstr('D0 00 00 F8 00 84 00 00 00 0D F0 0D F0');
SendToServerEX(name);
sendmsg(name) //Для проверки текущего состояния переменной name
end;
Если не закрывать клиент, все работет, пакеты отправляются но, стоит закрыть клиет так все, пакеты через команду SendToServerEX(name) не отправляются хотя через команду SendToServer все идет замечательно. Проверял переменную name, в ней все нормально, но пакеты не отправляются.
Голову себе уже сломал. В чем проблема? что я не так делаю?!? :confused: