ShamaN, я хз почему у тебя выбрасывает, но можешь попробовать вот этот скрипт. Тут кароче я когдато эксперементировал, скрипт по нажатию клавиши Yes делает рестарт и снова заходит. У меня на аккаунте был один перс, так что если у тебя несколько их то не знаю который выберется.
На моем сервере соответсвенно все работает хорошо.
delphi Код:
begin
if pck='' then exit;
//социальное действие Yes
if FromClient and (pck[1]=#$1B) and (ReadD(2)=6) then begin
pck:='';
buf:= #$46;
SendToServer;
end;
if FromServer then begin
if (pck[1]= #$13) then begin
buf:=#$0D;
WriteF(1);
WriteF(0);
WriteH(0);
sendToServer;
end;
if (pck[1]= #$15) then begin
buf:=#$D0;
WriteH(8);
sendToServer;
end;
end;
end.
Добавлено через 1 минуту
Блин пробелы в теге забыл убрать