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

[QaK]

zorg, убейся, потом юзни поиск, потом снова убейся, это не чит-форум, если тебе хамелеон сказал - его и спрашивай!

Добавлено через 55 секунд
Sieg, ты где альтернативные потоки хочешь юзать? В скриптах? Плагинах? ПНХ перекомпилить?

[Sieg]

QaK, в скриптах.

[QaK]

Sieg, в скриптах - однозначно нет.

[Stasrus]

Подскажите как можно добавить к существуемому пакету - 00 00 00 00 00 00 00 00 00 00 00 00 00 00
Пробывал так, некатит
begin
if Fromclient and (pck[1]=#$2E) then
begin
buf:=pck + hstr('00 00 00 00 00 00 00 00 00 00 00 00 00 00')
pck :='';
SendToServer;
end;
end;

[NLObP]

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

Подскажите как можно добавить к существуемому пакету - 00 00 00 00 00 00 00 00 00 00 00 00 00 00
Пробывал так, некатит

Точку с запятой в конце строки забыл и последний энд с точкой всегда.

begin
  if Fromclient and (pck[1]=#$2E) then
  begin
    buf:=pck + hstr('00 00 00 00 00 00 00 00 00 00 00 00 00 00');
    pck :='';
    SendToServer;
  end;
end.

[Sieg]

Я никого и не прошу бота для меня писать. Всего лишь ищу способы решения поставленной задачи. Если они вообще есть.

[QaK]

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

[Sieg]

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

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

.....

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

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

[Stasrus]

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

[Stasrus]

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