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

L2PacketHack Форум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела! Обсуждение багов Lineage ЗАПРЕЩЕНО!

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 05.10.2007, 22:00   #1
Новичок
 
Регистрация: 05.10.2007
Адрес: Украина
Сообщений: 19
Сказал Спасибо: 0
Имеет 23 спасибок в 13 сообщенях
DeVolf пока неопределено
По умолчанию Кружок нубов(Вопрос-Ответ)

//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.
DeVolf вне форума   Ответить с цитированием
За это сообщение DeVolf нажился 6 спасибками от:
Старый 10.07.2008, 05:53   #161
Рыцарь
 
Аватар для VORON
 
Регистрация: 06.08.2007
Сообщений: 209
Сказал Спасибо: 6
Имеет 67 спасибок в 34 сообщенях
VORON пока неопределено
По умолчанию

Цитата:
Сообщение от liferus Посмотреть сообщение
Код:
var
CheckPointList: TList;
Point: array[0..2] of integer;
begin
    CheckPointList:=TList.Create;
    Point[0]:=111;
    CheckPointList.Add(Point);
    Point[0]:=222;
    CheckPointList.Add(Point);
//
end;
Вопрос: array(CheckPointList[0])[0] равно ли array(CheckPointList[1])[0] ?
то есть по сути: Добавление элемента в список происходит по ссылке или по значению? Другими словами: копируется ли массив при добавлении в список или туда ложится ссылка на него?
Читал мануал - не нашел этого.
м.. поднимался вопрос месяца 2 назад про двумерные и 3-х мерные и т.д. массивы.. но пришли к выводу вроде что нельзя ето на фаст скрипт создать.. но кто то вроде придумал какото муляж 2-у мерного масива.. array of array типа того... но хз чем експеримент закончился.. епомню в какой теме ето обсуждалось.. но помню что синтаксис объявления двумерного массива от дельфи тут некатит..
щас вот подумал.. а может RECORD создать? типа x[1].y[2]= xxxx
__________________
Цитата:
Сообщение от pybukon
прежде чета попросить я немнога раскажу чтоб вы понили как мне плоха
Цитата:
Сообщение от Byrger
А как сделать мой скрипт бесконечным?
Цитата:
Сообщение от XKOR
.. каждый день ионизированной ногой протирает больную)
Цитата:
Сообщение от PsyR
Вылоджите пожалуйста скрипт на рыбалку желательно что бы сам в ВХ клал адаптированый под шоки и так же скрипт на ТТ рец, тоже с диалогами

Последний раз редактировалось VORON, 10.07.2008 в 05:56.
VORON вне форума   Ответить с цитированием
Старый 18.07.2008, 14:25   #162
Новичок
 
Регистрация: 18.07.2008
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Time Trasher пока неопределено
По умолчанию

Решил написать свой первый скрипт
delphi Код:
const UseCP='2F 2C 05 00 00 01 00 00 00 00 ';  \\Пакет на использование скила CP='27 01 00 02 00 04 00 5D 32 10 40 D8 15 00 00 33 01 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 ';    \\Пакет на получения банок RelogReq='46';   \\Запрос релога CharSel='0D 00 00 00 00';  \\Выбор чара begin buf:=hstr(UseCP);   \\Посылаем запрос на юзание скила SendToServer; end.; if FromServer and (pck=27 01 00 02 00 04 00 5D 32 10 40 D8 15 00 00 33 01 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00) then    \\получаем банки begin buf:=hstr(RelogRec);   \\посылаем запрос на релог SendToServer; end; if FromServer and (pck=5F 01 00 00 00 6F 00 6B 00 20 00 6D 00 65 00 72 00 6F 00 6E 00 67 00 7E 00 20 00 6B 00 68 00 61 00 68 00 61 00 00 00) then  \\получаем подтверждение релога begin buf:=hstr(CharSel);   \\Посылаем выбор чара SendToServer; end; end.
Думаю ошибок в коде оОченнь много после получения цп банок, скрипт начинает постоянно посылать пакеты на юзание скила, вместо того чтобы делать релогин(

Последний раз редактировалось QaK, 18.07.2008 в 14:36.
Time Trasher вне форума   Ответить с цитированием
Старый 18.07.2008, 14:51   #163
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Time Trasher, у тебя не стоит условие на юзанье банок, поэтому скрипт при приходе какого-либо пакета пытается юзнуть скилл.
QaK вне форума   Ответить с цитированием
Старый 18.07.2008, 15:06   #164
Новичок
 
Регистрация: 18.07.2008
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Time Trasher пока неопределено
По умолчанию

QaK, а
Код:
if FromServer and (pck=27 01 00 02 00 04 00 5D 32 10 40 D8 15 00 00 33 01 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00) then    \\получаем банки
разве не условие? или надо его как-то по другому оформить?
Time Trasher вне форума   Ответить с цитированием
Старый 18.07.2008, 15:08   #165
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от Time Trasher Посмотреть сообщение
begin
buf:=hstr(UseCP);* *\\Посылаем запрос на юзание скила
SendToServer;
end;
Вот тут где у тебя условие?
QaK вне форума   Ответить с цитированием
Старый 18.07.2008, 15:50   #166
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от Time Trasher Посмотреть сообщение
Решил написать свой первый скрипт
delphi Код:
begin buf:=hstr(UseCP);   \\Посылаем запрос на юзание скила SendToServer; end.;
Вот ошибка!
END. (энд с точкой) - может быть только в конце программы!
Дальше программа не будет выполняться.
Цитата:
delphi Код:
if FromServer and (pck=27 01 00 02 00 04 00 5D 32 10 40 D8 15 00 00 33 01 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00) then    \\получаем банки begin buf:=hstr(RelogRec);   \\посылаем запрос на релог SendToServer; end; if FromServer and (pck=5F 01 00 00 00 6F 00 6B 00 20 00 6D 00 65 00 72 00 6F 00 6E 00 67 00 7E 00 20 00 6B 00 68 00 61 00 68 00 61 00 00 00) then  \\получаем подтверждение релога begin buf:=hstr(CharSel);   \\Посылаем выбор чара SendToServer; end; end.
NLObP вне форума   Ответить с цитированием
Старый 18.07.2008, 16:17   #167
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от ;11604
А с помощью этой программы можно копировать вещи?
нет.
QaK вне форума   Ответить с цитированием
Старый 18.07.2008, 16:19   #168
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от ;11607
Тоесть эта программа делает те вещи что можно и самому сделать?
именно =)
QaK вне форума   Ответить с цитированием
Старый 18.07.2008, 17:52   #169
Новичок
 
Регистрация: 18.07.2008
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Time Trasher пока неопределено
По умолчанию

если поставить после енд точку с запятой
Код:
begin
buf:=hstr(UseCP);   \\Посылаем запрос на юзание скила
SendToServer;
end;
то ПакетХак ругается на синтаксис, мол нет точки после енда

Добавлено через 2 минуты
Цитата:
Сообщение от QaK Посмотреть сообщение
Вот тут где у тебя условие?
а как сделать, чтобы условия небыло? т.е. чтобы без всяких условий посылался пакет

Добавлено через 15 минут
кстати после релогина подключение остается, т.е. скрипт будет выполняться после релогина?

Последний раз редактировалось Time Trasher, 18.07.2008 в 17:52. Причина: Добавлено сообщение
Time Trasher вне форума   Ответить с цитированием
Старый 18.07.2008, 17:54   #170
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от Time Trasher Посмотреть сообщение
если поставить после енд точку с запятой
Код:
begin
buf:=hstr(UseCP);   \\Посылаем запрос на юзание скила
SendToServer;
end;
то ПакетХак ругается на синтаксис, мол нет точки после енда
С чего ты решил, что там должен быть END?
Почитай книжки по Паскалю.
NLObP вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

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


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

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

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