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

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

Sieg, я говорю о том, что бот на скриптах - неудачная идея.

[Stasrus]

Подскажите как присвоить переменной несколько байт с серидины пакета, просто незнаю команды...
Вот допустим пакет 2A 01 12 34 56 78 99 нужно присвоить переменной 12 56 99 с этого пакета

[Sieg]

QaK, а я еще раз говорю, что не собираюсь писать полнофункционального бота.

Добавлено через 6 минут
2Stasrus,
var
tmp :String;

.....

begin
if FromServer and (pck[1]=#$2A) then tmp:=pck[3]+pck[5]+pck[7];
end.

Я только не могу понять, чего ты добьешся, беспорядочно выхватывая байты и складируя их в некоторую переменную.

[Stasrus]

Sieg, спасибо!, пытаюсь дешифровать свой сервак..
еще возникла небольшая проблемка, ругается на скобочку.
tmp:=pck[4]+pck[5] xor ($FFFF);
Подскажите как пользоваться функцией xor

[ratvier]

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

Вот еслиб это Си был, то вопросов нима.....

Я тут где-то выкладывал хидер для си, там остается ток немного шаманства под конкретный компилятор и линковщик

[Sieg]

Stasrus, Он не на скобочку ругается, а на несовместимость типов. Я вот только не могу понять, какой ему тип надо поставить. String, integer, double, variant, даже boolean попробовал - эффект одинаковый.

Добавлено через 2 минуты
ratvier, икх... моя бубен нету. Моя как танцевать шаманский танец низнает.
А если серъезно, то я даже примерно не представляю, что надо делать с такими словами как "хидер".

Добавлено через 1 минуту
Хм.. вот че подумал.. А в твоем этом "хидере" можно подключать .net ? =)

[ratvier]

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

что надо делать с такими словами как "хидер".

#include

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

Хм.. вот че подумал.. А в твоем этом "хидере" можно подключать .net ? =)

Понятие не имею, наверное, можно

[Stasrus]

Проблемму так и не решил, кто знает подскажите как
http://coderx.ru/showpost.php?p=24934&postcount=334

[mOBSCENE]

Так может:
tmp:=WORD(pck[4]+pck[5]) xor WORD($FFFF);

Хотя не ясно какого типа tmp

[Stasrus]

тип переменной разные ставил все равно ругается.
Еще такой вопроик как можно убить все пакеты кроме нетпинга сервер-клиент\клиент-сервер после получения 0x03 (EnterWorld)