Клиент

[dyh9l]

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

О действительно отправил апперинг, а ето "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. 


Т.к. я постоянно любил на оффлайне оставлять по 20 окон, я столкнулся с аналогичной проблемой, я думаю это причина конкретно в самих либо методах либо ПХ, потому, что единственное решение, как это помогало исправить, я просто брал скрипт и редактировал в нем любую строчку (хоть просто комментарий добавлял) и сохранял снова, и только после этого снова запускал окно л2 и кнопка "выход" уже реагировала нормально.

[Breadfan]

это палата №6 какая-то....Попробую пояснить еще раз...
Между получением команды на телепорт в какую-либо точку, и проявлением в ней, клиент должен "подготовиться" (чтото выгрузить\чтото подгрузить), и лишь затем получать инфу о своем новом окружении - как то - нпс,игроки...Так вот, клиент, дабы делать все поочередно, сначала выполняет необходимые операции, и лишь затем отправляет серверу пакет appearing - сигнализируя о том, что новая локация загружена, и он готов получить данные об окружении. Пока сервер не получит этот пакет, персонаж будет "невидим" для остальных (сервер считает что персонаж вроде как все еще перемещается), и ессно - сам не будет видеть окружающих - нафига серверу слать данные, если клиент еще локацию не загрузил?
Что тут неясного-то?
Если ты запустишь "скрипт" с клиентом наподобие такого:

PHP код:

begin
 If (fromclient and (pck[1]=#$3A)) then pck:='';
end. 


то, надеюсь, поймешь к чему я клоню. Уточню - запустить скрипт, и сделать тп куда угодно.

[vahes]

железные нервы

[Breadfan]

тот скрипт что наваян - смахивает на суровое комбо из скриптов для ИЛ и финала. Определись с хрониками. Почему у тебя вместо $84 стоит $7E?

[palvy]

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

тот скрипт что наваян - смахивает на суровое комбо из скриптов для ИЛ и финала. Определись с хрониками. Почему у тебя вместо $84 стоит $7E?

Мужики, флопой пользуюсь 1 месяц, читал, изучал, щас создал темку ( не судите строго). в знак благодарность, могу поделится скриптом на ловлю лс в одно нажатие, или авто ловлю лс, на крит атаку или на физ атаку)

[SeregaZ]

ты мне одно скажи - что за флопа? старый трехдюймовый дисковод, но женского рода? форум посвящен программе с несколько другим названием... а второй момент: всякие читорские методы мы не обсуждаем тут исключительно программерский подход, о том как что-то автоматизировать, то есть что-бы программа что-то делала за тебя - а читы, это так сказать, случайное недразумение...

[palvy]

}{опрошо, L2PacketHack v%s by CoderX.ru Team. причем тут читы? ловля лс в два нажатия? скарипт автоматизирует посылку айцди пухи, айди лс, айди гем стоунов, количество гейм стовнов при нажатии соц действия "приветствие", ето не чит, а автоматизация процеса вставки лс....

Добавлено через 4 минуты
ну в моих кругах, все говорят флопа, хлапекс, но юзают л2пхикс( согласить флопа в разворном звучит ярче, в принцепе не пользовался ниразу, но насколько понимаю принцип роботы у них один и тут же, только авторы разные)

Добавлено через 1 минуту

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

пользуюсь 1 месяц, читал, изучал, щас создал темку ( не судите строго)

в принцепе мож но было и простить, а не катить бочку....

[SeregaZ]

а... так то про камни речь шла что атака и крит? а я думал читеришь извиняюсь тада... называй программу "пэха" с ударением на последний слог. л2пх (элдвапэха) уже как-то не актуально, ведь помимо ладвы уже давно айон тоже фурычит

[palvy]

Ребята, все равно приходится перезаходить чтоб сработал скрипт, от как часы:
1) логин + пароль.
2) перс1
3)система+выход

4)логин+пароль
5)перс1
6)системы+выход и срипт сработал, соединение осталось.


( в после третего клиент отправляет на сервер пакет инвентарлит, а после 6 сервер клиенту пакет leaveworld).

хелп плиз!

чтоб завести 20 окон надо ввести 40 раз логи + пароль((((((

PHP код:

const
   nik='май';
   

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 NetPing;
begin
buf:=#$A8;
WriteD(ReadD(2));
WriteD(5); 
WriteD(6144);
SendToServerEx(nik);
end;

procedure offclient;
begin
pck:='';
NoCloseServerAfterClientDisconnect;
NoCloseClientAfterServerDisconnect;
buf:=#$84;
SendToClientEx(nik);
end;

begin
if (connectname=nik) and (fromclient) and (pck[1]=#$00) then offclient;
if (connectname=nik) and (fromserver) and (pck[1]=#$D3) then NetPing;

   

//Cancel Augment
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   //56 0D 00 00 00 00 00 00 00 00 (Social No)

       begin
          ctfid:=readd(102);
          k:=1;
          

       end;


          
end. 


Добавлено через 4 минуты
а вот и крипт на ловлю лс по нажатию 2 соц действий.
расшифровка:
1)подходиш к гному
2) включаеш скрипт
3)вручную как обычно вставляеш лс в пуху( если лс уже стоит, то предварительно надо снять, потом включить скрипт)
4) вручную снимаеш лс
5) соц действие "приветствие" вставка лс
6) сой действие "победа" вынимает лс.

PHP код:

const
   nik='Lspyxa';

var
   WeaponID, LsID, GemID, GemCount, zero: integer;

procedure Init; //Вызывается при включении скрипта
begin

end;

procedure OnTimer01(Sender: TObject);
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    if FromClient and (pck[1]=#$D0) then
        begin
           WeaponID:=ReadD(4);
           LsID:=ReadD(8);
           GemID:=ReadD(12);
           GemCount:=ReadD(16);
           zero:=ReadD(20);
        end;

//Cancel Augment

    if FromClient and (pck = HStr('56 0D 00 00 00 00 00 00 00 00 ')) then   //56 0D 00 00 00 00 00 00 00 00 (Social No)

       begin
       buf:=hstr('FE 52 00 ');//окно удаления арГ
        SendToClient;
        delay(300);
          pck:='';
          buf:=hstr('23 30 00 30 00 00 00 ');
          SendToServer;
          Buf:=#$D0#$42#$00;
          WriteD(WeaponID);
          SendToServer;
          Buf:=#$D0#$43#$00;
          WriteD(WeaponID);
          SendToServer;

       end;

//Augment
    if FromClient and (pck = HStr('56 0C 00 00 00 00 00 00 00 00 ')) then    //56 0C 00 00 00 00 00 00 00 00 (Social Yes)
       begin
       buf:=hstr('FE 51 00 ');//окно Арг
          SendToClient;
          delay(300);
          pck:=''; 
          buf:=hstr('23 30 00 30 00 00 00 ');
          SendToServer;
          Buf:=#$D0#$26#$00;
          WriteD(WeaponID);
          SendToServer;
          delay(50);
          Buf:=#$D0#$27#$00;
          WriteD(WeaponID);
          WriteD(LsID);
          SendToServer;
          delay(50);
          Buf:=#$D0#$28#$00;
          WriteD(WeaponID);
          WriteD(LsID);
          WriteD(GemID);
          WriteD(GemCount);
          WriteD(zero);
          SendToServer;
          delay(50);
          Buf:=#$D0#$41#$00;
          WriteD(WeaponID);
          WriteD(LsID);
          WriteD(GemID);
          WriteD(GemCount);
          WriteD(zero);
          SendToServer;
          end;
end. 


[Breadfan]

Вобщем. Вот отключение почти в "голом" виде:
Оффтоп

PHP код:

const
nameCon='АяПростоБулка';
var
tempnick,tempstr:string;
tempint:integer;
procedure Init; //Вызывается при включении скрипта
begin
sendmsg('begin');
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;

begin
    if ConnectName<>nameCon then exit;
    if fromserver then begin
       if pck[1]=#$4a then begin
            tempint:=10;
            tempnick:=ReadS(tempint);tempint:=tempint+4;
            tempstr:=ReadS(tempint);sendMSG(tempnick+' сообщает: '+tempstr);
       end; 
       
       exit;//заглушка, мне не требовалось
    end else begin
        if pck[1]=#$00 then begin
            pck:=''; 
            NoCloseServerAfterClientDisconnect; 
            NoCloseClientAfterServerDisconnect; 
            sendMsg('Клиент - отключен, соединение сохранено');
            buf:=#$84;SendToClientEx(nameCon);exit;
        end;
    end;
end. 


Вот такой лог получил в итоге (в чат пишет СладкаяПупсенька, а на скрипте - АяПростоБулка):
Оффтоп

18.03.2014 19:02:51 Имя соединения для тунеля ($257055264): АяПростоБулка
18.03.2014 19:02:57 Script: АяПростоБулка сообщает: Вас приветствует сервер Arena-World
18.03.2014 19:02:57 Script: АяПростоБулка сообщает: Сайт сервера: http://www.Arena-World.com
18.03.2014 19:02:57 Script: АяПростоБулка сообщает: Добро пожаловать на сервер от команды High Five x5000
18.03.2014 19:02:57 Script: АяПростоБулка сообщает: Связь с администрацией осуществляется только через форум!
18.03.2014 19:02:57 Script: АяПростоБулка сообщает: О всех найденых недоработках просьба сообщать на форум.
18.03.2014 19:02:57 Script: АяПростоБулка сообщает: PvP Zona > use command .pvp
18.03.2014 19:02:57 Script: АяПростоБулка сообщает: Farm Zona > use command .farm_hard>.farm_low
18.03.2014 19:02:57 Script: АяПростоБулка сообщает: Желаем приятной игры!
18.03.2014 19:03:09 Script: Клиент - отключен, соединение сохранено
18.03.2014 19:03:09 Тунель ($257055264) Отвалились от клиента
18.03.2014 19:03:19 Script: СладкаяПупсенька сообщает: 12345
18.03.2014 19:03:22 Script: СладкаяПупсенька сообщает: 54321
18.03.2014 19:03:43 Script: СладкаяПупсенька сообщает: ---------------

Где ты у себя напорол - что "по два раза заводить перса приходится" - без понятия.
ЗЫ спасибо администрации сервера за возможность демонстрации и т.д....