Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Жесткий скриптинг
Войти через OpenID

Жесткий скриптинг Раздел для обсуждения готовых и тестируемых скриптов
Внимание! В разделе введена жесткая модерация, темы и сообщения публикуются только после проверки модераторами

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 24.04.2010, 11:14   #41
Новичок
 
Регистрация: 24.04.2010
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
ER ER пока неопределено
По умолчанию

Код:
const
   nik='KpucaTX';

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('34 05 00 00 00')) then   //34 05 00 00 00 (Social No)

       begin
       buf:=hstr('FE 52 00 ');//окно удаления арГ
        SendToClient;
        delay(300);
          pck:='';
          Buf:=#$D0#$45#$00;
          WriteD(WeaponID);
          SendToServerEx(nik);
          Buf:=#$D0#$46#$00;
          WriteD(WeaponID);
          SendToServerEx(nik);

       end;

//Augment
    if FromClient and (pck = HStr('34 06 00 00 00')) then    //34 06 00 00 00  (Social Yes)
       begin
       buf:=hstr('FE 51 00 ');//окно Арг
          SendToClient;
          delay(300);
          pck:='';
          Buf:=#$D0#$26#$00;
          WriteD(WeaponID);
          SendToServerEx(nik);
          delay(50);
          Buf:=#$D0#$27#$00;
          WriteD(WeaponID);
          WriteD(LsID);
          SendToServerEx(nik);
          delay(50);
          Buf:=#$D0#$28#$00;
          WriteD(WeaponID);
          WriteD(LsID);
          WriteD(GemID);
          WriteD(GemCount);
          WriteD(zero);
          SendToServerEx(nik);
          delay(50);
          Buf:=#$D0#$44#$00;
          WriteD(WeaponID);
          WriteD(LsID);
          WriteD(GemID);
          WriteD(GemCount);
          WriteD(zero);
          SendToServerEx(nik);
          end;
end.
la2world.ru
Hlb

проблема в том что WeaponID меняется после аугментации и ее снятия. Как возможно это исправить?

пробывал это:
http://coderx.ru/showthread.php?t=4070

так же изменик пакеты аугментации и ее снятия на свои в PacketsT2. И ничего не помогло
ER ER вне форума   Ответить с цитированием
Старый 14.12.2010, 12:15   #42
Местный
 
Аватар для L2.exe
 
Регистрация: 09.12.2010
Сообщений: 106
Сказал Спасибо: 18
Имеет 46 спасибок в 45 сообщенях
L2.exe пока неопределено
Смех

PHP код:
begin
buf
:=hstr('FE 52 00 ');//окно удаления лс
  
SendToClient;
buf:=hstr('FE 51 00 ');//окно Арг
  
SendToClient;
  
buf:=hstr('43 26 00 0E 1C 07 10');//вещь
  
SendToServer;
   
buf:=hstr('43 27 00 0E 1C 07 10 7D 46 06 10');//лс
   
SendToServer;
   
buf:=hstr('43 28 00 0E 1C 07 10 7D 46 06 10 93 5D 05 10 19 00 00 00');//гемы
   
SendToServer;
buf:=hstr('FE 51 00 ');//окно удаления арг
  
SendToClient;

  
buf:=hstr('43 45 00 5D FB 03 10  ');//вещь
  
SendToServer;
end
Это не в 1 нажатие

Не моё)),украл где то)),но вроде работает
L2.exe вне форума   Ответить с цитированием
За это сообщение L2.exe нажился спасибкой от:
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Жесткий скриптинг


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 19:14.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!