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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 13.03.2008, 18:26   #41
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Код:
const CharName='Сюдапишешьимятвоегочара';

procedure Init;
begin
end;

procedure Free;
begin
end;

begin
//сначала пример блока от клиента с заменой
if (FromClient) and (ConnectName=CharName) then 
begin if pck=#$2F+#$06+#$00 //пример абсолютно нереальный сюда ставишь свой пакет
         then begin pck:=''; //блокируем пакет
                          buf:=#$2F+#$07 //аналогично формируем другой пакет
                          SendToServerEx(CharName); // посылаем подмененный пакет 
                end;

end;
//для блокировки со стороны сервера и замены изменить FromClient на FromServer и SendToServerEx на SendToClientEx
end.
А вообше - учись юзать поиск, таких решений уже 1000 раз просили и писали.
QaK вне форума   Ответить с цитированием
Старый 13.03.2008, 20:06   #42
Гость
 
Сообщений: n/a
По умолчанию

Поиска кoрявый ИМХО
Код:
const CharName='OrcCanFly';
begin
if (FromClient) then
begin if (pck=HStr('45 00 00 00 00 00 00 00 00 00'))
         then begin pck:='';
                end;
end;
end.
Собственно долже блокировать вот такой-то пакет, но не работает.... Тыркните носом в ошибку...
  Ответить с цитированием
Старый 14.03.2008, 16:28   #43
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от Cowcanfly
Собственно долже блокировать вот такой-то пакет, но не работает.... Тыркните носом в ошибку..
поменяй в условии
if fromClient
на
if (fromclient) and (ConnectName=CharName)

ты уверен что именно такой пакет отправляет клиент?
QaK вне форума   Ответить с цитированием
Старый 14.03.2008, 16:45   #44
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

Cowcanfly
я б написал так
Код:
const
  MyAction = 0;
begin
if FromClient and pck[1]=#$45 then
  if ReadD(2) = MyAction then
     pck:='';
end.
PanAm вне форума   Ответить с цитированием
Старый 14.03.2008, 17:31   #45
Гость
 
Сообщений: n/a
По умолчанию Re:

Цитата:
Сообщение от lQaKl
Цитата:
Сообщение от Cowcanfly
Собственно долже блокировать вот такой-то пакет, но не работает.... Тыркните носом в ошибку..
ты уверен что именно такой пакет отправляет клиент?
Это идёт расшифрованый пакет интерлюдии, это пакет, чтобы сесть...
Если нужно не расшифрованые посылать, где их посмотреть?...
  Ответить с цитированием
Старый 20.04.2008, 04:36   #46
Новичок
 
Регистрация: 20.04.2008
Сообщений: 8
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
h82w8 пока неопределено
По умолчанию

если часть пакета постоянно меняется, то как написать скрипт чтоб он видел этот пакет всегда?
h82w8 вне форума   Ответить с цитированием
Старый 20.04.2008, 04:40   #47
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от h82w8 Посмотреть сообщение
если часть пакета постоянно меняется, то как написать скрипт чтоб он видел этот пакет всегда?
У пакета есть идентификатор (первый байт). По нему и определяй.
NLObP вне форума   Ответить с цитированием
Старый 20.04.2008, 04:43   #48
Новичок
 
Регистрация: 20.04.2008
Сообщений: 8
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
h82w8 пока неопределено
По умолчанию

ну вот пример скрипта
begin
if FromClient and (ConnectName='name')
and (pck=HStr('15 55 B0 F1)) then begin //B0 F1 постоянно меняются
buf:=HStr('51 55 B0 F1'); // но мне надо чтобы пакет изменялся всегда на этот
SendToServerEx('name);
pck:='';
end;
end.
что надо изменить чтобы всегда работало? не писать целый пакет а токо ту часть которая не меняется или как?
h82w8 вне форума   Ответить с цитированием
Старый 20.04.2008, 13:10   #49
Пользователь
 
Аватар для Emocean
 
Регистрация: 04.02.2008
Сообщений: 63
Сказал Спасибо: 44
Имеет 25 спасибок в 15 сообщенях
Emocean
По умолчанию

Цитата:
Сообщение от h82w8 Посмотреть сообщение
что надо изменить чтобы всегда работало?
По идее надо так:
Код:
begin
if FromClient and (ConnectName='name')
and pck[1]=#$15 then begin
buf:=HStr('51 55 B0 F1');
SendToServerEx('name);
pck:='';
end;
end.
Но ты уверен, что тебе нужны именно эти пакеты?
Цитата:
15=TradeRequest:h(ObjectID)
51=RequestSurrenderPledgeWar:s(PledgeName)
Короче что-то здесь не так)

Последний раз редактировалось Emocean, 20.04.2008 в 13:14.
Emocean вне форума   Ответить с цитированием
Старый 20.04.2008, 16:32   #50
Новичок
 
Регистрация: 20.04.2008
Сообщений: 8
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
h82w8 пока неопределено
По умолчанию

нет я от балды пакеты написал
как вычислить pck[1]=#$15 из обычного пакета?
h82w8 вне форума   Ответить с цитированием
Ответ

  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

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