Кружок нубов(Вопрос-Ответ)

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

где я ошибся?

[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

[Time Trasher]

Решил написать свой первый скрипт

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]

Time Trasher, у тебя не стоит условие на юзанье банок, поэтому скрипт при приходе какого-либо пакета пытается юзнуть скилл.

[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    \\получаем банки

разве не условие? или надо его как-то по другому оформить?

[QaK]

Сообщение от Time Trasher

begin
buf:=hstr(UseCP);* *\\Посылаем запрос на юзание скила
SendToServer;
end;

Вот тут где у тебя условие?

[NLObP]

Сообщение от Time Trasher

Решил написать свой первый скрипт

begin
buf:=hstr(UseCP);   \\Посылаем запрос на юзание скила
SendToServer;
end.;

Вот ошибка!
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]

Сообщение от ;11604

А с помощью этой программы можно копировать вещи?

нет.

[QaK]

Сообщение от ;11607

Тоесть эта программа делает те вещи что можно и самому сделать?

именно =)

[Time Trasher]

если поставить после енд точку с запятой

begin
buf:=hstr(UseCP);   \\Посылаем запрос на юзание скила
SendToServer;
end;

то ПакетХак ругается на синтаксис, мол нет точки после енда

Добавлено через 2 минуты

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

Вот тут где у тебя условие?

а как сделать, чтобы условия небыло? т.е. чтобы без всяких условий посылался пакет

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

[NLObP]

Сообщение от Time Trasher

если поставить после енд точку с запятой

begin
buf:=hstr(UseCP);   \\Посылаем запрос на юзание скила
SendToServer;
end;

то ПакетХак ругается на синтаксис, мол нет точки после енда

С чего ты решил, что там должен быть END?
Почитай книжки по Паскалю.