Кружок нубов(Вопрос-Ответ) - Страница 16

DeVolf · 05.10.2007, 22:00

//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.

где я ошибся?

-=Ma}{imuS=- · 24.06.2008, 05:03

04 7A 26 40 48 DB 96 02 00 7A C8 FF FF 3C F4 FF FF 00

-вот такой вид имеет пакет Action когда я выделяю кого либо в таргет, проблема в том что при каждом новом запуске игры он разный даже для одного и того же перса. вот мне интересно как связать это дело с его ником?

Grinch · 24.06.2008, 09:30

Цитата:

Сообщение от -=Ma}{imuS=-

04 7A 26 40 48 DB 96 02 00 7A C8 FF FF 3C F4 FF FF 00

-вот такой вид имеет пакет Action когда я выделяю кого либо в таргет, проблема в том что при каждом новом запуске игры он разный даже для одного и того же перса. вот мне интересно как связать это дело с его ником?

h ObjectID: 0x4840267A
d OriginX: 169691
d OriginY: -14214
d OriginZ: -3012
b ActionID: 0
ну и чё создаёшь массив с 5-ю данными изменяемый и заполняемый по пакетам 03 и перемещение персов ну и берёшь по нику данные h ObjectID:, OriginX:, d OriginY:, d OriginZ: и формируешь пакет актион на перса.
Не вижу проблемы очень много примеров как это делать. а как это сделать смотри в теме да будет бот и подобные.

VORON · 28.06.2008, 18:15

Цитата:

Сообщение от -=Ma}{imuS=-

04 7A 26 40 48 DB 96 02 00 7A C8 FF FF 3C F4 FF FF 00

-вот такой вид имеет пакет Action когда я выделяю кого либо в таргет, проблема в том что при каждом новом запуске игры он разный даже для одного и того же перса. вот мне интересно как связать это дело с его ником?

в ЕКШН ПАКЕТЕ УКАЗЫВАЕТСЯ ид цели с которой нужно произвести дефолтовое действие.. для моба/нпц етим действие является - "ВЗЯТЬ В ТАРГЕТ" в случае повторного использования пакета по таргету- "ДВИГАТЬСЯ К ЦЕЛИ и АТАКОВАТЬ ФИЗИКОЙ" в случае если вместо нпц/моба используется предмет на полу то- "ПОДОЙТИ И СОБРАТЬ"
пакет выглядит всегда разным потомучто ИД всех предметов и нпц- разные..
также в етом пакете используются координаты собственные.. которые тоже всегда разные.. на последнем месте в пакете указывается ФЛАГ на то что зажат ШИФТ или нет.. и или контрол
04 7A 26 40 48 DB 96 02 00 7A C8 FF FF 3C F4 FF FF 00
04- ид пакета
7A 26 40 48 - ИД ЦЕЛИ с которой нужно произвести дефолтовое действие
DB 96 02 00 - икс координата собственная
7A C8 FF FF игрик
3C F4 FF FF зет
00флаг на то что ты не зажимаеш шифт или контрол.. в случае с шифтом там будет 01 в случае с контролом чета другое..
.. P/S : я вот подумал а что будет если и шифт и контрол зажать?? ответ: переключение на АНГЛ ЯЗЫК-)

Добавлено через 2 часа 22 минуты
ДРУЗЬЯ! помагите советом= ХКОР- незнает в чем причина..
ПОРОЙ ПАКЕТХАК тормозить начинает ппц как... а порой норм.... когда тормозит симптомы такие: играю в окне лог пакетов не ведется.. скрипты никакие не запущены.. пакетхак при етом тупо тормозит.. задержка пакетов достигает 15-30 секунд
при етом если запущено второе окно без пакехака (без перехвата) то оно летает , всё видит риал тайм.. а перехваченное окно пакетхаком видит всё происходящеее с задержкой на пол минуты порой...
КОР посоветовал повысить приоритет задач на ПАКУЕТХАК... ето не помагло...
какие причины таково лага?

Stasrus · 29.06.2008, 17:07

Подскажите почему не работает?

begin
if FromClient and (ConnectName='SokolA')
and (pck=HStr('1b 04 00 00 00')) then begin
buf:=HStr('45 00 00 00 00 00 00 00 00 00');
SendToServerEx('SokolB');
pck:='';
end;
end.

п.с. Имена менял

Если посылать отдельно 1b 04 00 00 00 и 45 00 00 00 00 00 00 00 00 00 работает, сам скрипт нет, может потому что интерлюдия?

NLObP · 29.06.2008, 22:53

Цитата:

Сообщение от Stasrus

Подскажите почему не работает?

begin
if FromClient and (ConnectName='SokolA')
and (pck=HStr('1b 04 00 00 00')) then begin
buf:=HStr('45 00 00 00 00 00 00 00 00 00');
SendToServerEx('SokolB');
pck:='';
end;
end.

п.с. Имена менял

Если посылать отдельно 1b 04 00 00 00 и 45 00 00 00 00 00 00 00 00 00 работает, сам скрипт нет, может потому что интерлюдия?

Так делал?

Цитата:

Сообщение от Xkor

При получении от клиента играющего за чара с ником SokolA пакета 1b 04 00 00 00 (социальное действие "Victory") непропустит этот пакет и отправит пакет 45 00 00 00 00 00 00 00 00 00 (команда сесть) от имени клиента играющего за чара с ником SokolB, тоесть играете вы в два окна, в одном SokolA, в другом SokolB, нажимаете в первом Victory, и SokolB садится.

Stasrus · 30.06.2008, 01:10

Именно так и делал, на одном нажимал виктори теоретически второе должно было сесть, но оно не садится(

Grinch · 30.06.2008, 11:23

Цитата:

Сообщение от Stasrus

Именно так и делал, на одном нажимал виктори теоретически второе должно было сесть, но оно не садится(

имена должны соответствовать полностью в том числе и регистр букв, проверь ещё раз

liferus · 04.07.2008, 12:00

Код:

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] ?
то есть по сути: Добавление элемента в список происходит по ссылке или по значению? Другими словами: копируется ли массив при добавлении в список или туда ложится ссылка на него?
Читал мануал - не нашел этого.

Aniks · 04.07.2008, 12:07

Массив не копируется, только указатель

liferus · 04.07.2008, 14:13

получается что каждый раз нужно создавать новый массив чтоб запихнуть в список. Так?
если Point указатель, то как ему присвоить новый массив в теле процедуры?
Point:= array[0..2] of integer - ошибка синтаксиса

Добавлено через 8 минут
ошибся
CheckPointList.Add(TObject(Point)); //вроде так правильно добавлять в список массив

но как теперь его вытащить оттуда?
Point1:= Array of integer(CheckPointList[0]);
Point1:= (Array of integer)(CheckPointList[0]);
Point1:= Array(CheckPointList[0]);
все ошибки синтаксиса....

Добавлено через 26 минут
Вроде бы нашел решение
обявлять так

Код:

Point,Point1: Variant;
CheckPointList:TList;

использовать так

Код:

Point:=VarArrayCreate([0, 2], varInteger);
Point[0]:=12344;
Point[1]:=62456;
Point[2]:=-2344;

...
CheckPointList.Add(Point);
...
Point1:= CheckPointList[0];

как это работает посморю вечером