Вывод OutGame бота из игры. И вопросы по процедурам NoFree..

[xkor]

Сообщение от АрхиНуб

Сейчас поэксперементирую с YesFree... вызову его из другой процедуры может чего и получится...

кстати я тут подумал, задать для какого соединения выполнять YesFree... можно выполнив перед её вызовом ConnectID:=0; например
так что NoFreeOnClientDisconnectEX опять начинаю считать ненужным)

[ChiterEPT]

Сообщение от xkor

так что NoFreeOnClientDisconnectEX опять начинаю считать ненужным)

Да ф топку его :D С этим уже разобрались. Я его не оттуда откуда надо вызывал =)

[QaK]

Сообщение от xkor

сначала не обратил внимания, эти процедуры нельзя вызывать внутри процедур Init или Free ибо они действуют на соединение для которого они вызваны а Init и Free непривязаны к конкретному соединению!

Я же говорил!!!

Сообщение от lQaKl

2) Попробуй прописать не во Free, а отдльную процедурку сделай, которая будет вызываться, например, при определенных условиях(тыркнул кнопку,конец скрипта).

а ты мне не верил =)

[ChiterEPT]

Сообщение от lQaKl

:friends: :beer:

Гы офтоп развели =) А если честно то процедуры YesFree у меня и так и так соединения не разрывают.

Добавлено спустя 3 минуты 30 секунд:
У кого корректно работаю процедуры YesFreeOnClientDisconnect; YesFreeOnServerDisconnect; напишите тут, откуда вы их вызываете?

[QaK]

Сообщение от АрхиНуб

У кого корректно работаю процедуры YesFreeOnClientDisconnect; YesFreeOnServerDisconnect; напишите тут, откуда вы их вызываете?

Если успею - дома сегодня проверю ...

[scorpio818]

     //оставлять саппорта в игре после закрытия клиента или нет
     if SupportPlus and (not SupportFlag) and (ConnectName = Support) then begin
         ConnectID:=ConnectIDByName(Support);
         NoFreeOnClientDisconnect;
         NoFreeOnServerDisconnect;
         SendMsgEx('Режим Маклауда включен...',ConnectName);
         SupportFlag:=true;
     end;

При выполнении этого куска кода сообщение получает именно саппорт, но при закрытии клиента с саппортом в L2PH соединение с именем саппорта остается, а чар из игры выходит (наблюдаю из второго окна).

Раньше (буквально несколько дней назад) NoFreeOnClientDisconnect; и NoFreeOnServerDisconnect; у меня сидели в Init; и всё работало так, как предполагалось, т.е. при закрытии окна с саппортом тот оставался в игре. Потом что-то поломалось и саппорт стал из игры вылетать сразу по закрытию окна. Я полез сюда читать тонкости использования, в результате чего родился вышеприведённый кусок кода, вставленный в основное тело скрипта. Но саппорт по-прежнему вылетает...

p.s. Там лишняя перестраховка (ConnectID:=ConnectIDByName(Support) но это уже от безысходности... Ведь работало же! В чем может быть причина?

Возможно на сервер посылается логаут...
Вот рабочий кусок из моего скрипта

  if FromClient and (ConnectName=Name) and (pck[1]=#$1B) then begin
    case ReadD(2) of //SocialID
      //социальное действие Yes для начала
      6: begin
            if ready then begin
             pck:='';
             NoFreeOnClientDisconnect;
             NoFreeOnServerDisconnect;
             //started:=true;
             //timer1.enabled:=true;
             buf:=#$7E; //LogOutOk
             SendToClientEx(Name);
            end;
      end;
    end;
  end;

[ChiterEPT]

Сообщение от ratvier

Возможно на сервер посылается логаут...

Сообщение от scorpio818

Раньше (буквально несколько дней назад) NoFreeOnClientDisconnect; и NoFreeOnServerDisconnect; у меня сидели в Init; и всё работало так, как предполагалось, т.е. при закрытии окна с саппортом тот оставался в игре.

Судя по всему у Скорпиона818 и раньше на сервер посылался логаут и все работало. Вообще на своей практике заметил, что сервера, как правило, не закрывают соединения при получении пакета ЛогАут от клиента, они просто проверяют возможность выхода из игры и если выход возможен сервер отсылает клиенту пакет 7Е ЛогАутОк и клиент уже сам разрывает соединение. Хотя конечно возможны исключения, где сервер получив пакет ЛогАут от клиента проверит возможно ли разорвать соединение и в случае положительного ответа разорвет его сам (врядли).

Проверь вариант предложенный ratvierом. Конечно трудно назвать этот кусок ЕГО куском от скрипта (уж больно он напоминает немного измененный кусок скрипта из темы "ДА БУДЕТ БОТ") ну неважно :)

P.S.

Сообщение от scorpio818

Режим Маклауда включен...

Улыбнуло :D

[ratvier]

Конечно трудно назвать этот кусок ЕГО куском от скрипта (уж больно он напоминает немного измененный кусок скрипта из темы "ДА БУДЕТ БОТ")

Это была моя первая попытка отвечать на пинги, сейчас работает более элегантно, но не идееально
зы решил всё-таки зарегиться :)

[scorpio818]

Сообщение от ratvier

Возможно на сервер посылается логаут...

Именно так и было. Вот рабочий вариант:

     if SupportPlus and (ConnectName = Support) then begin
         if not SupportFlag then begin
             ConnectID:=ConnectIDByName(Support);
             NoFreeOnClientDisconnect;
             NoFreeOnServerDisconnect;
             SendMsgEx('Режим Маклауда включен...',ConnectName);
             SupportFlag:=true;
         end;
         if FromClient and (pck[1] = Logout) then begin
             pck:=''; //не пропускать на сервер Logout от клиента
             buf:=LogOutOk;
             SendToClient; //сказать клиенту, что логаут разрешен
         end;
     end;