L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
Может непонятно при чем тут БД? Так ведь принцип одинаков, вобщем посмотришь-поймешь
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
const
Name='';
var MyID:Word;
OID:String;
begin
if (FromServer) and (pck[1]=#$27) and (ReadD(12)=726) then
OID:=pck[8]+pck[9]+pck[10]+pck[11];
if FromServer and (pck[1]=#$04) then MyID:=ReadD(18);
if FromServer and (pck[1]=#$0e) and (ReadD(2)=MyID) then
if ReadD(6)=4 then
if (ReadD(82)<=400) then //400 - кол-во MP при котором начнется пьянка.
begin
buf:=#$14+OID+#$00#$00#$00#$00;
SendToServerEx(Name);
end;
end.
работает каряво, постоянно пьет МР банки пока не зальет полностю, на "400 - кол-во MP при котором начнется пьянка " даже не смотрит.
кроме того пьет не через каждые 15 сек а постоянно систем чат аж разрывается...
помогите разобратся, надо чтобы пил только при определенном кол-ве МП, предполагаю что ошибка здесь: if (ReadD(82)<=400), возможно вместо 82 другая цифра должна быть и скрипт просто не туда смотрит, но пакет UserInfo настолько большой я не смог найти там CurrentMP, да и вобще не знаю как искать конкретный кусок
возможно вместо 82 другая цифра должна быть и скрипт просто не туда смотрит, но пакет UserInfo настолько большой я не смог найти там CurrentMP, да и вобще не знаю как искать конкретный кусок
Скачай 4 версию пакетхака. Там для своего чара можно посмотреть смещение для MP. Смещение зависит от длины имени, поэтому разное.
тут только один момент - если используются несколько окон, то в OnTimer неопределенность куда посылать пакет, надо использовать SendToServerExt и явно указывать соединение
ок, спс.
вот тока я не понимаю как старые скрипты типа "Бот - локомотив", или скрипт на бутылки НР определяют это самое смещение, причем я их включаю на разных персах с разными именами и всегда работает
Хроники Камаель
Столкнулся с тем что команда в пакете RequestBypassToServer все время разная, и передается в предыдущем пакете от сервера NpcHtmlInfo. Вот сваял процедуру запоминающую содержимое и количество этих команд.
delphi Код:
const
name='';
var
kolvocmd,j,x:integer; //-kolvocmd- итоговое количество команд j,x- вспомогательные переменные
CmdNpc:array[1..50] ofstring; //массив с командами, 50 - взято с большим запасом// у телепортеров обычно примерно всего 20 команд
findt,oldpck:string; //вспомогательные переменные//---------------------procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClientEx(Name);
end;
//---------------------procedure CmdNpcParc;
Begin
kolvocmd:=0;
for j:=1to50dobegin// предварительная очистка массива
CmdNpc[j]:='';
end;
for j:=1tolength(oldpck)dobegin// побуквенная проверка строки oldpckfor x:=0to9dobegin
findt:=findt+oldpck[j+x];
end;
if findt='bypass -h 'thenbeginfor x:=10to25dobegin
CmdNpc[kolvocmd+1]:=CmdNpc[kolvocmd+1]+oldpck[j+x];
end;
kolvocmd:=kolvocmd+1;
end;
findt:='';
end;
end;
//---------------------------------beginif fromserver and(pck[1]=#$19)thenbegin// в процедуру передается содержимое пакета NpcHtmlInfo
oldpck:=ReadS(6);
CmdNpcParc;
SendMsg('Количество- '+inttostr(kolvocmd));
for j:=1to kolvocmd dobegin
SendMsg(inttostr(j)+'ая- '+CmdNpc[j]);
end;
end;
end.
Не зная точно команд работы с частью строки сделал все через циклы, может как то подправить\сократить?
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 28.08.2008 в 16:28.