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

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

где я ошибся?

[Breadfan]

гГ че там насчет в байты пялитса? А это - чье? Жми сюда!!

[dyh9l]

Breadfan, ну блиа) я тока начинал знакомство с пх некто ж мну не учил что можно по другому )))))

[Breadfan]

и второе - чтоб верно считать read'ом - надо формат строк знать. Ты знаешь аионский формат? я - нет. так что уж лучше делать "как оно работает", чем "так будет красивее, но хз как оно работает".

[dyh9l]

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

и второе - чтоб верно считать read'ом - надо формат строк знать. Ты знаешь аионский формат? я - нет. так что уж лучше делать "как оно работает", чем "так будет красивее, но хз как оно работает".

на расшифровку поглядеть вот тебе и формат строки)

[Breadfan]

от и что ему проще: обозначить в условии так как оно есть, или, чтобы комутотам угодить - лезть неизвестно куда, высматривая форматы (не факт что в инишках - от той самой нужной сборки) - и переписывать код, не зная заранее "а будет ли оно живое"?

[Kilatif]

Breadfan, с одной стороны ты прав, с другой - так привязываться к константам.. По мне это не очень хорошо. Для начала конечно не плохо, но если идти дальше, то я думаю ему самому будет легче разбивать эту вот ерунду на Read'ы и Write'ы по структурам тексать. Например, будет у него пакет на 60 байтов, какого-нибудь маленького itemlist'а и что, он будет так же вот по 60 байт переписывать? Поэтому лучше конечно сразу разбираться так, что бы было понятно, но потом упрощать для дальнейших изменений, т.е. создавать 1 скрипт для различных условий (но иногда это означает усложнят код, что, на мой взгляд, не существенный минус, если во всем разобраться)

[Deffol]

Помогите тогда разобраться
Вот у меня есть слово например, первый 4 байта это вроде ID на сообшение в чат, потом идет само сообщение, например это /брбр
Как мне сделать, чтоб Read, считывал это слово в чате?
вот у меня слово

('B9 57 76 00 2F 00 31 04 40 04 31 04 40 04 00 00')

там 12 пар байтов, я не знаю как их считать

Добавлено через 2 минуты
там даже 10 байтов слова, 2 пары нулей, это не относится к слову, я не знаю, что это, какой то ID

[SeregaZ]

if FromServer and (pck[1]=#$4A) and (pck[6]=#$03) //пати чат просят рес
  then begin
     j:=10;                 // j - стартовая позиция указателя
     //CharOID:=ReadD(j);   // -- OID перса
     //TextType:=ReadD(j); //-- индекс чата в котором пишется текст
     nick:=ReadS(j);    //-- считывается ник, и, одновременно, указатель байта сдвигается на его длинну, т.е после выполнения команды будет j:=j+(длинна_блока_оканчивающегося "00 00")
     text:=ReadS(j);    //-- считываем текст сообщения
     if (text='рес') then begin
        idtelasmerti:=pck[2]+pck[3]+pck[4]+pck[5]; //вычисление айди того, кто просит рес, то есть он труп
        buf:=HStr('04 ') + idtelasmerti;  //наведение таргета на этот труп. палевно, так как я не указал координаты трупа, но зато работает.
        SendToServer;
        rabota:='resurect';
     end
     else begin
        if (text='хил') then begin 
           rabota:='heal';
        end;
        if (text='стоп') then begin 
           rabota:='';
        end;
        if (text='офф') then begin 
           rabota:='';
           Timer01.enabled:=false;
           buf:=HStr('46');  //рестарт
           SendToServer;
        end;
     end;
  end;

кусочек кода из моего проекта.

[Kilatif]

Deffol, два последних байта нулей - обычно так обозначается конец строки, т.к. строка может быть любого размера, то как-то нужно конец обозначить - вот и обозначили двумя байтами нулей при WideString (в такой строке 2 байта определяют 1 символ), как у тебя собственно или еще может быть 1 пара нулей, если это обычная строка (1 символ = 1 байт) Я считаю все что связанно с считыванием строк нужно считывать именно через ReadS, т.к. эта процедура сама определяет где у тебя строка кончается. А именно у тебя это будет так:

...
var pos : integer; //позиция для чтения в твоем пакете
    x : integer; //ID на сообщение в чат
    s : string; //твоя строка
...
begin
  pos := 1;//ставим позицию для чтения с первого байта пакета;
  x := ReadD(pos); //читаем 4 байта ID и переменная pos сразу сместится на 4 байта и станет равна 5
  s := ReadS(pos);// считывает строку в переменную s и смещает курсор pos на количество считанных байт
end;
...

А если тебе нужно считать только строку в данном случае это будет выглядеть так:
...
pos := 5;
s := ReadS(pos);
...

Вроде нигде не ошибся

[Deffol]

кому как конечно, но мне кажется, что легче весь пакет добавить
места меньше занимает и я лучше понимаю, что к чему