L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.
Код:
const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.
где я ошибся?
Последний раз редактировалось QaK, 30.08.2010 в 18:56.
По примеру NLObP у меня вроде получилось, но т.к., это быдлокод, вобщем попробуй
delphi Код:
const
name = '~VIP~Dunyaxa' ; //name var
ObjectIDtarget:integer;
procedure Action;
beginif(ReadD(2)=ObjectIDtarget)then pck[18]:=#$01;
ObjectIDtarget:=ReadD(2);
end;
procedure Attack;
beginif(ReadD(2)=ObjectIDtarget)then pck:='';
end;
beginif(connectname=name)and(fromclient)thencase pck[1] of
#$04: Action;
#$0A: Attack;
end;
end.
Добавлено через 10 минут
Короче, 2 екшена вызывают атаку, но если блочить екшены, брать он их больше не будет) т.е. походу, все таки надо как то убивать екшен если цель на таргете)
__________________
Последний раз редактировалось dyh9l, 12.04.2011 в 10:36.
Причина: Добавлено сообщение
i got a problem i cant make my script reads the SystemMessage packet and then send the result to party chat(its for skill reuse time )
2304=До повторного использования умения $s1 осталось $s2 мин $s3 сек.
62=SystemMessage:d(MsgID:Get.MsgID)d(typesCount:Lo op.01.0002)d(0=Str,1=Int,2=NpcID,3=ItmID,4=SklID,6 =Amnt)s(data)
delphi Код:
beginif FromServer thenbegincase pck[1] of
#$62 : if ReadD(2)=2304thenbegin
buf:=#$49;
WriteS(time left on skill to be ready);
WriteD(3);
SendToServer;
__________________
I Dont Understand Russian so well
говорит по Български
Type:0x62 (SystemMessage)
Size: 37+2
Recive time: 21:27:09:434
0002 d _messageId: Äî ïîâòîðíîãî èñïîëüçîâàíèÿ óìåíèÿ $s1 îñòàëîñü $s2 ìèí $s3 ñåê. ID:2304 (0x0900)
0006 d size: 3 (0x00000003)
[begin of repeat block 1/3]
0010 d type: 4 (0x00000004)
0014 d skill_id: 1413
0018 d skill_level: 1 (0x00000001)
[End of repeat block 1/3]
[begin of repeat block 2/3]
0022 d type: 1 (0x00000001)
0026 d Number: 2 (0x00000002)
[End of repeat block 2/3]
[begin of repeat block 3/3]
0030 d type: 1 (0x00000001)
0034 d Number: 3 (0x00000003)
[End of repeat block 3/3
now i need to make ti ReadD(26) , ReadD(34) and then do
#$49
WriteS(readD(26)+'minute(s)'+readD(34)+'second(s))
WriteD(3)
sendtoserver ......
need help
DWordToStr how ?
__________________
I Dont Understand Russian so well
говорит по Български
Последний раз редактировалось nab, 16.04.2011 в 03:15.
init
...
CurrentTargetOid:=0; //текущий таргет
........
begin
........
if fromclient thenbegincase(pck[1])of
......
#$1f: begin//actionif(readd(2)<>CurrentTargetOid)then CurrentTargetOid:=readd(2)else pck:='';
end;
......
end;
end;
.....
if fromserver and(pck[1]=#$00)and(ReadD(2)=CurrentTargetOid)then CurrentTargetOid:=0;//при смерти цели сбросить переменнуюif fromserver and(pck[1]=#$24)and(readd(2)=MyOID)then CurrentTargetOid:=0; //если таргет сбили - тож самое//иначе - отхватив чемто вроде аура флеша - будет перс стоять и курить, пока его не добьют.
.....
end.
time is not always present in the package SystemMessage, the better will look at 48=MagicSkillUse:d(CharID)d(TargetID)d(skillID:Get .Skill)d(SkillLevel)d(HitTime)d(ReuseDelay)d(X)d(Y)d(Z)d(?)d(TargetX)d(TargetY)d(TargetZ)
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 19.04.2011 в 12:41.
Здравствуйте, у меня один вопрос, который стоит меня (не опытного нуба). Возможно ли в принципе т.с. отпакетировать этот серв (x1000) http://www.rpg-club.com/bezzzymue
Заранее благодарю
Если имеется в виду подключение ПХ и его дальнейшее использование, то возможно. (В теории)
Именно это я и имел ввиду. Просто если кто точно знал и сказал, бы мне, хорошо было бы. Просто я только разбираюсь с программой и хотел узнать по зубам ли этот серв мне, да и матёрым пользователям.
__________________
Если человек вас обманул, значит, он мошенник.
Если он обманул вас дважды, значит, вы дурак.