begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
if (ok=0) and fromclient and (ConnectName=Name) and (pck[1]=#$A8) then
begin
srvconst:=ReadD(10);
Say('Константа сервера получена, можно выключать клиент=');
pck:='';
ok:=1;
end;
if (ok=1) and FromServer and (ConnectName=Name) and (pck[1]=#$D3) then
begin
pingid:= ReadD(2);
есть вопросы... допустим я сделал магазин посадил бота своего и вышел.у меня чтото купили, когда купили не нужно чтото типа валид количества предметов ?
Последний раз редактировалось poizon, 07.05.2008 в 20:41.
Причина: Добавлено сообщение
Я конечно извиняюсь за столь нубский вопрос.
У меня постоянно компилятор выбивает на "NoFreeOnClientDisconnect" Undeclared Identifier. Как понимаю незадекларированный идентификатор. Скажите как это "исправить"?)
__________________
Если вы умные в программировании и скриптописании это не значит что все такие умные! Относитесь, пожалуйста, с пониманием к таким людям!
Лажу уже который час, и так и сяк ищу, но не упоминается об этом. Я понимаю что легче послать "в поиск", но можно и просто "ткнуть меня носом". Понимаю что достал) Пожалуйста
__________________
Если вы умные в программировании и скриптописании это не значит что все такие умные! Относитесь, пожалуйста, с пониманием к таким людям!
Кто может, помогите, плиз.
Не могу включить полноценный аутгейм режим работы скриптов. После отключения клиента чар остаётся в игре, скрипты принимают и обрабатывают пакеты, НО ничего не посылают.
Использую функции NoCloseClientAfterServerDisconnect;
NoCloseServerAfterClientDisconnect;
Версия пакетхака - 3.5.13.122. Вот кусок лога проги:
Код:
Тунель ($56272772) создан
Тунель ($56272772) запущен для чтения с сокета № 344
Тунель ($56272772), Серверный сокет № 344 / Клиентский сокет № 336, Соединение с 81.25.32.15:7777 .....
Тунель ($56272772), Серверный сокет № 344 / Клиентский сокет № 336, Соединение установлено с 81.25.32.15:7777
Имя соединения для тунеля ($56272772): xxx
Script: логаут
Тунель ($56272772) Отвалились от сервера
begin NoFreeOnClientDisconnect; NoFreeOnServerDisconnect; if (ok=0) and fromclient and (ConnectName=Name) and (pck[1]=#$A8) then begin srvconst:=ReadD(10); Say('Константа сервера получена, можно выключать клиент='); pck:=''; ok:=1; end;
if (ok=1) and FromServer and (ConnectName=Name) and (pck[1]=#$D3) then begin pingid:= ReadD(2);
Супер. спасибо работает. Но есть одно но. Когда я выключаю клиент ПакетХак начинает в окно лога писать WSA error 10038/284 и очень сильно загружать процессор. Можно ли както избежать вывода этого сообщения и соответственно разгрузить проц?