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

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 09.08.2009, 19:54   #1
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию АвтоТаргет.Радар.Атака

При нападение на чара
Чар автоматом берет нападающего в таргет и атакует
Радар стрелка над чаром
показывает направление откуда чара атакуют

delphi Код Код:
//  автор ТАМБИК // проверял на ХБ       const   name = ' х '; // Имя    var   Timer1: TTimer;   myID:integer;   mobID,mobX,mobY,mobZ:integer;   myX,myY,myZ:integer;   autoattacka,autoAction:boolean; procedure SendMsg2(msg:string); begin   buf:=#$4A;   WriteD(0);   WriteD(10);   WriteS('');   WriteS(msg);   SendToClientEx(name); end;   procedure  RequestSocialAction;            begin            CASE ReadD(2) OF       5:begin         autoattacka:=false;         autoAction:=false;         stopRadarControl;          SendMsg2(' О Т К Л');          pck:='';          exit;          end;        6:begin          autoattacka:=true;          SendMsg2(' В К Л');          pck:='';         exit;       end;  end;  end;  procedure OnTimer1(Sender: TObject);   begin      Action;   end;   procedure Action;   begin          buf:=#$1F;          WriteD(mobID);          WriteD(myX);          WriteD(myY);          WriteD(myZ);          WriteC(00);          SendToServerEx(name);         end;   procedure startPoisk;   begin          buf:=#$F1;          WriteD(0);          WriteD(1);          WriteD(mobX);          WriteD(mobY);          WriteD(mobZ);          SendToClientEx(name);         end; procedure startAttacka;         begin         mobID:=ReadD(2);                Action;              startPoisk;            autoAction:=false;           if autoattacka then              Timer1.enabled:=true;              end;  procedure stopRadarControl;        begin        buf:=#$F1;        WriteD(0);        WriteD(1);        WriteD(myX);        WriteD(myY);        WriteD(myZ);        SendToClientEx(name);             end;  procedure  ValidatePosition;        begin          myX:=ReadD(2);          myY:=ReadD(6);          myZ:=ReadD(10);        end;  procedure Init;   begin   autoAction:=true;   autoattacka:=false;   timer1:=TTimer.Create(nil);   timer1.OnTimer:=@OnTimer1;   timer1.enabled:=false;   timer1.interval:=1000;   buf:=#$14;   SendToServerEx(name);   SendMsg2(' ВКЛ соцдействие ДА');   SendMsg2('ОТКЛ соцдействие НЕТ');   SendMsg2('TAMBIK');   end;   procedure Free;   begin   timer1.free;   end;       begin  if fromserver  and (pck[1]=#$32)  then begin//Tип: 0x32 (UserInfo)       myID:=ReadD(18);            end;  if FromClient and (pck[1]=#$34) then RequestSocialAction;  if FromServer and autoAction and (pck[1]=#$33) and (ReadD(6)=myID) then startAttacka;  if FromServer  and autoAction and (pck[1]=#$48)and(ReadD(2)<>myID)and(ReadD(6)=myID)then startAttacka;  if FromServer and (pck[1]=#$00) and (ReadD(2)=mobID) then  begin         autoAction:=true;         stopRadarControl;         timer1.enabled:=false;   if FromClient and (pck[1]=#$59) then  ValidatePosition;    end;  end.

Последний раз редактировалось TAMBIK, 23.09.2009 в 20:13. Причина: Добавлено сообщение
TAMBIK вне форума   Ответить с цитированием
За это сообщение TAMBIK нажился 4 спасибками от:
Старый 10.08.2009, 06:44   #2
Местный
 
Аватар для Scaem
 
Регистрация: 21.09.2008
Адрес: Красноярск
Сообщений: 158
Сказал Спасибо: 50
Имеет 19 спасибок в 18 сообщенях
Scaem пока неопределено
По умолчанию

расскажи как работает , как работает радар и что за атака? )
Scaem вне форума   Ответить с цитированием
Старый 10.08.2009, 20:45   #3
Новичок
 
Регистрация: 06.08.2009
Сообщений: 3
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
kopacb пока неопределено
По умолчанию

2 TAMBIK: скажи пожалуста реально ли на ИТ это поменять?
Дело в том что все пакеты изменил кроме вот этого:
(pck[1]=#$48)
его содержание в пакетах T0(тоесть ИТ) просто нету.
А так все подоходит вродебы.
kopacb вне форума   Ответить с цитированием
Старый 10.08.2009, 21:15   #4
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

kopacb,
есть он и там 48
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK вне форума   Ответить с цитированием
Старый 04.09.2009, 10:22   #5
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

delphi Код Код:
//  автор ТАМБИК //  грация финал       const   name = ' х '; // Имя    var   Timer1: TTimer;   myID:integer;   mobID,mobX,mobY,mobZ:integer;   myX,myY,myZ:integer;   autoattacka,autoAction:boolean; procedure SendMsg2(msg:string); begin   buf:=#$4A;   WriteD(0);   WriteD(10);   WriteS('');   WriteS(msg);   SendToClientEx(name); end;   procedure  RequestSocialAction;            begin            CASE ReadD(2) OF       25:begin         autoattacka:=false;         autoAction:=false;         stopRadarControl;          SendMsg2(' О Т К Л');          pck:='';          exit;          end;        24:begin          autoattacka:=true;          SendMsg2(' В К Л');          pck:='';         exit;       end;  end;  end;  procedure OnTimer1(Sender: TObject);   begin      Action;   end;   procedure Action;   begin          buf:=#$1F;          WriteD(mobID);          WriteD(myX);          WriteD(myY);          WriteD(myZ);          WriteC(00);          SendToServerEx(name);         end;   procedure startPoisk;   begin          buf:=#$F1;          WriteD(0);          WriteD(1);          WriteD(mobX);          WriteD(mobY);          WriteD(mobZ);          SendToClientEx(name);         end; procedure startAttacka;         begin         mobID:=ReadD(2);                Action;              startPoisk;            autoAction:=false;           if autoattacka then              Timer1.enabled:=true;              end;  procedure stopRadarControl;        begin        buf:=#$F1;        WriteD(0);        WriteD(1);        WriteD(myX);        WriteD(myY);        WriteD(myZ);        SendToClientEx(name);             end;  procedure  ValidatePosition;        begin          myX:=ReadD(2);          myY:=ReadD(6);          myZ:=ReadD(10);        end;  procedure Init;   begin   autoAction:=true;   autoattacka:=false;   timer1:=TTimer.Create(nil);   timer1.OnTimer:=@OnTimer1;   timer1.enabled:=false;   timer1.interval:=1000;   buf:=#$14;   SendToServerEx(name);   SendMsg2(' ВКЛ соцдействие ДА');   SendMsg2('ОТКЛ соцдействие НЕТ');   SendMsg2('TAMBIK');   end;   procedure Free;   begin   timer1.free;   end;       begin  if fromserver  and (pck[1]=#$32)  then begin//Tип: 0x32 (UserInfo)       myID:=ReadD(18);            end;  if FromClient and (pck[1]=#$56) then RequestSocialAction;  if FromServer and autoAction and (pck[1]=#$33) and (ReadD(6)=myID) then startAttacka;  if FromServer  and autoAction and (pck[1]=#$48)and(ReadD(2)<>myID)and(ReadD(6)=myID)then startAttacka;  if FromServer and (pck[1]=#$00) and (ReadD(2)=mobID) then  begin         autoAction:=true;         stopRadarControl;         timer1.enabled:=false;   if FromClient and (pck[1]=#$59) then  ValidatePosition;    end;  end.
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать

Последний раз редактировалось TAMBIK, 06.09.2009 в 11:17.
TAMBIK вне форума   Ответить с цитированием
За это сообщение TAMBIK нажился спасибкой от:
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



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

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


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

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

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