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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 10.06.2008, 18:49   #421
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от vovanchik Посмотреть сообщение
> IDBot1:=pck[18]+pck[19]+pck[20]+pck[21];
что за извращенство? ))) разве IDBot1:=readd(18); не проще?

а понил, вероятно для совместимости со старыми версями
Не, это просто, кому как нравится.

Последний раз редактировалось NLObP, 11.06.2008 в 00:55.
NLObP вне форума   Ответить с цитированием
Старый 11.06.2008, 09:07   #422
Заблокирован
 
Регистрация: 10.03.2008
Адрес: Тула
Сообщений: 1,098
Сказал Спасибо: 188
Имеет 108 спасибок в 60 сообщенях
DashKAaa
По умолчанию

Цитата:
Сообщение от Denis63RUS Посмотреть сообщение
У меня появился небольшой вопросик, из-за чего мошут быть тормоза в клиенте при большом скоплении народа? Т.е. если я ползуюсь LPacketHack, в нем работает скрипт, например на самоупотребление банок на ЦП/ХП, то при походе на осаду или на РБ начинаються жуткие тормоза. 100% это не из-за железа, т.к. оно просто пока ещё не может тормозить, насчёт интернета я не уверен но без программы всё вроде бы норм, бывают "подвесы" но не сильные, инет 128 кБ/с. Кто может поделиться советами по этому поводу? (изменение графики с минимальных на максимальные настройки в игре ниго не даёт)
у меня 9 окон на пакет хаке, в местах больших скоплений мобов, не каких лагов не наблюдал вообще, если только спустя 2 дня без рестарта и постоянного ботерства в 12 валкеров и 9пакет хак-окон.

конфиг своего железа скажи, какой скрпт на цп юзаешь и под какие хроники?

Добавлено через 2 минуты
Цитата:
Сообщение от pps Посмотреть сообщение
Не могли бы вы подсказать пакеты для других бафов?
Death Wishper
Greater Might
Greater Shield
не проще самому отловить ?
hstr('2F DA 04 00 00 00 00 00 00 00'); // ДЕФ ВИСПЕР
hstr('2F 6C 05 00 00 00 00 00 00 00'); // гритер ПА
hstr('2F 6D 05 00 00 00 00 00 00 00'); // гритер ПД

Последний раз редактировалось DashKAaa, 11.06.2008 в 09:07. Причина: Добавлено сообщение
DashKAaa вне форума   Ответить с цитированием
Старый 11.06.2008, 14:17   #423
Новичок
 
Аватар для Denis63RUS
 
Регистрация: 16.04.2008
Адрес: Самара
Сообщений: 24
Сказал Спасибо: 7
Имеет 6 спасибок в 3 сообщенях
Denis63RUS пока неопределено
По умолчанию

Цитата:
Сообщение от DashKAaa Посмотреть сообщение
конфиг своего железа скажи, какой скрпт на цп юзаешь и под какие хроники?
Конфиг железа:
Корпус: АТХ
БП: Термалтейк 600 ВТ
Мать: ASUS P5K Premium/AP
Проц: Intel Q6600 (степинг B3 )c кулером Термалтейк BT
Видео: GF 8800 GTS (640)
Память: 2х1 GB Corsar C4
Жесткий: 320 GB Seageate SATA2

Система не разогнана!

Скрипт:

PHP код:
//by mks
//помошник в PvP и PK.
//пьет CP и HP пробирки в нужное время(можно добавить и MP для пвп серваков), и освобождает вас от небоходимости зажатия клавиши Ctrl, которая так меня раздражает!(думаю это раздражает и не только меня)
///////////////////////////////////////////////////////
///////////////Master PvP by MKS v.1.0/////////////////
///////////////////////////////////////////////////////

//после активации скрипта необходимо выпить сначала банку CP, потом HP для получения их ID
const
   
Name='BblXyX0Jlb';  //ник перса
var
   
CurHP,MaxHP,CurCP,MaxCPinteger;
   
CPuse,HPuse,ObNamestring;

   
TimerCP,TimerHPTTimer;

procedure Init//Вызывается при включении скрипта
begin
  TimerCP
:=TTimer.Create(nil);
  
TimerCP.OnTimer:=@OnTimerCP;
  
TimerCP.enabled:=false;
  
TimerCP.interval:=800;  //интервал 1сек, т.к. чаще пить CP всеравно не будет, дабы не засорять трафик

  
TimerHP:=TTimer.Create(nil);
  
TimerHP.OnTimer:=@OnTimerHP;
  
TimerHP.enabled:=false;
  
TimerHP.interval:=13000//интервал 15сек, т.к. действие одной бутылки = 15сек
end;

procedure OnTimerCP(SenderTObject);
begin
  buf
:=CPuse;
  
SendToServerEx(Name);
end;
procedure OnTimerHP(SenderTObject);
begin
  buf
:=HPuse;
  
SendToServerEx(Name);
end;

procedure Free//Вызывается при выключении скрипта
begin
  TimerCP
.free;
  
TimerHP.free;
  
HPuse:='';
  
CPuse:='';
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//пьем сначала CP, потом HP банку что б запомнить их ID(я решил взять эти пакеты целиком, дабы не усложнять)
  
if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse='') then CPuse:=pck;
  
if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse<>pck) and (HPuse='') then HPuse:=pck;

if FromServer and (ConnectName=Name) and (pck[1]=#$04) then
ObName:=pck[18]+pck[19]+pck[20]+pck[21];
//считываем текущие и максимальные значения CP и HP
if FromServer and (pck[1]+pck[6]=#$0E#$04) and (pck[2]+pck[3]+pck[4]+pck[5]=ObName) then
  
begin
    CurHP
:=ReadD(14);
    
MaxHP:=ReadD(22);
    
CurCP:=ReadD(30);
    
MaxCP:=ReadD(38);
  
end;

end
На сервере стоит интерлюдия

Добавлено через 7 минут
Да и чуть не забыл, играю обычно через 1,79 ИГ валкер, + 5 ботов через 10.8.6 ООГ валкер. LPacketHack перехватывает только клиента, ООГ идут естественно через WP 5,07. Вот, вроде всё выложил
__________________
Всё можно починить, если вертеть в руках достаточно долго!

Последний раз редактировалось Denis63RUS, 11.06.2008 в 14:17. Причина: Добавлено сообщение
Denis63RUS вне форума   Ответить с цитированием
Старый 11.06.2008, 14:41   #424
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

А скрипт у тебя работате? Что-то я не вижу чтобы он лечил и восстанавливал СР. Нет проверок, что пора пить банки. И сами таймеры выключены.
NLObP вне форума   Ответить с цитированием
Старый 11.06.2008, 14:43   #425
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

Цитата:
Сообщение от NLObP Посмотреть сообщение
А скрипт у тебя работате? Что-то я не вижу чтобы он лечил и восстанавливал СР. Нет проверок, что пора пить банки. И сами таймеры выключены.
спс а то думал что я уже чего то не понимаю.
Grinch вне форума   Ответить с цитированием
Старый 11.06.2008, 16:48   #426
Новичок
 
Аватар для Denis63RUS
 
Регистрация: 16.04.2008
Адрес: Самара
Сообщений: 24
Сказал Спасибо: 7
Имеет 6 спасибок в 3 сообщенях
Denis63RUS пока неопределено
По умолчанию

Цитата:
Сообщение от NLObP Посмотреть сообщение
А скрипт у тебя работате? Что-то я не вижу чтобы он лечил и восстанавливал СР. Нет проверок, что пора пить банки. И сами таймеры выключены.
DDDD
Извеняюсь, скрипт скапировал неправильно , а я и непосмотрел даже^^

Вот полный:

delphi Код:
//by mks //помошник в PvP и PK. //пьет CP и HP пробирки в нужное время(можно добавить и MP для пвп серваков), и освобождает вас от небоходимости зажатия клавиши Ctrl, которая так меня раздражает!(думаю это раздражает и не только меня) /////////////////////////////////////////////////////// ///////////////Master PvP by MKS v.1.0///////////////// /////////////////////////////////////////////////////// //после активации скрипта необходимо выпить сначала банку CP, потом HP для получения их ID const    Name='XakuM'//ник перса var    CurHP,MaxHP,CurCP,MaxCP: integer;    CPuse,HPuse,ObName: string;    TimerCP,TimerHP: TTimer; procedure Init; //Вызывается при включении скрипта begin   TimerCP:=TTimer.Create(nil);   TimerCP.OnTimer:=@OnTimerCP;   TimerCP.enabled:=false;   TimerCP.interval:=800//интервал 1сек, т.к. чаще пить CP всеравно не будет, дабы не засорять трафик   TimerHP:=TTimer.Create(nil);   TimerHP.OnTimer:=@OnTimerHP;   TimerHP.enabled:=false;   TimerHP.interval:=13000; //интервал 15сек, т.к. действие одной бутылки = 15сек end; procedure OnTimerCP(Sender: TObject); begin   buf:=CPuse;   SendToServerEx(Name); end; procedure OnTimerHP(Sender: TObject); begin   buf:=HPuse;   SendToServerEx(Name); end; procedure Free; //Вызывается при выключении скрипта begin   TimerCP.free;   TimerHP.free;   HPuse:='';   CPuse:=''; end; //основная часть скрипта //вызывается при приходе каждого пакета если скрипт включен begin //пьем сначала CP, потом HP банку что б запомнить их ID(я решил взять эти пакеты целиком, дабы не усложнять)   if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse='') then CPuse:=pck;   if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse<>pck) and (HPuse='') then HPuse:=pck; if FromServer and (ConnectName=Name) and (pck[1]=#$04) then ObName:=pck[18]+pck[19]+pck[20]+pck[21]; //считываем текущие и максимальные значения CP и HP if FromServer and (pck[1]+pck[6]=#$0E#$04) and (pck[2]+pck[3]+pck[4]+pck[5]=ObName) then   begin     CurHP:=ReadD(14);     MaxHP:=ReadD(22);     CurCP:=ReadD(30);     MaxCP:=ReadD(38);   end; //если вы используете не грэйтер CP то вместо 200 подставьте кол-во CP сколько восстанавливает 1 банка if (CurCP<MaxCP-200) and (CPuse<>'') then TimerCP.enabled:=true else TimerCP.enabled:=false; if (CurHP<MaxHP) and (HPuse<>'') then TimerHP.enabled:=true else TimerHP.enabled:=false; end.

Добавлено через 9 минут
Да, и ещё один вопрос, который начинал обсуждаться в ветке пакеты, но там ответа я не нашёл. Хочу написать скрипт на сигнализациюю о появлении в области досягаемости врага (т.е. клан вара), только никак немогу найти в каком пакете приходит информация о них Я думал что в CharInfo, но пока там ненашёл, можно конечно сделать и проще, через Пакет CharInfo и через совпадение по названию клана, но хотелось бы по всё по уму
__________________
Всё можно починить, если вертеть в руках достаточно долго!

Последний раз редактировалось Denis63RUS, 11.06.2008 в 16:48. Причина: Добавлено сообщение
Denis63RUS вне форума   Ответить с цитированием
Старый 11.06.2008, 19:22   #427
Заблокирован
 
Регистрация: 10.03.2008
Адрес: Тула
Сообщений: 1,098
Сказал Спасибо: 188
Имеет 108 спасибок в 60 сообщенях
DashKAaa
По умолчанию

Этот скрипт под интерлюду на ЦП не пашет вообще
DashKAaa вне форума   Ответить с цитированием
Старый 12.06.2008, 09:58   #428
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от DashKAaa Посмотреть сообщение
Этот скрипт под интерлюду на ЦП не пашет вообще
Скорее всего только из-за неправильных смещений
Код:
    CurHP:=ReadD(14);
    MaxHP:=ReadD(22);
    CurCP:=ReadD(30);
    MaxCP:=ReadD(38);
а так должен работать. Почему бы не работать? Руками пьются бутылки СР?
NLObP вне форума   Ответить с цитированием
Старый 12.06.2008, 16:08   #429
Пользователь
 
Регистрация: 13.10.2007
Сообщений: 40
Сказал Спасибо: 14
Имеет 6 спасибок в 5 сообщенях
Silmaril
По умолчанию

Denis63RUS, посмотри SiedgeFlag в пакете 03, вроде оно
Silmaril вне форума   Ответить с цитированием
Старый 12.06.2008, 20:25   #430
Новичок
 
Аватар для Rackot
 
Регистрация: 12.06.2008
Сообщений: 5
Сказал Спасибо: 2
Имеет 1 спасибку в 1 сообщении
Rackot пока неопределено
По умолчанию

Вопрос, а каким образом лучше реализовать автодетект наличия на себе селф бафов(ака Батл Роар, Рэйдж у дестроера) и соответсвенно при обнаружении отсутсвия таковых и при условии что бафы откатились,юзать их снова?
//мб вопрос ламерский и не в то теме Оо
Rackot вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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