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

[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

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

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

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

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

[Deffol]

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

[Kilatif]

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

[SandeL]

народ вот есть скрипт

http://rghost.ru/10029911 (залил на файло так как суда он нехотел заливатся типо много символов.)

Можно ли в этом скрипте увиличить скорость точки???Если да покажите как)

[Breadfan]

т.е. вот эти загадочные комментарии:
..........
Timer02.interval:=300; //<<== время выбора скролл
............................
Timer03.interval:=500; //<<== время между заточкой
.....................
тебе ни о чем не говорят?