HighFive->StatusUpdate

[Nevec]

Сообщение от J-Fobos

http://coderx.ru/showthread.php?t=10
http://l2ph.coderx.ru/arhive/l2ph_help/

Спасибо помогло, в то место вставил этот код:

        ValueCP:=ReadD(Length(pck)-3);
        SendMessage(IntToStr(ValueCP));

Я так понял ReadD(i:index):integer считывает с позиции i 4 байта ключительно, после долгих тестов, помог в программе "преобразовщик".

Вот собственно скриптик, кто хочет потестить, пожалуйста (Пишет красноватом шрифтом в чате ваше ЦП).

const
    Name='Marilyn';                                   <= Сюда впишите свой ник.
    chat=19;                                            //15,18,19
var
    ValueCP:integer;    

procedure SendMessage(Msg:String);
begin 
    buf:=#$4A;
    WriteD(0);
    WriteD(Chat);
    WriteS(':');
    buf:=buf+#$FF+#$FF+#$FF+#$FF;
    WriteS(Msg);
    SendToClientEx(Name);
end;

begin
    if FromServer and (ConnectName=Name) and (pck[1]=#$18) then
    begin
         ValueCP:=ReadD(Length(pck)-3);
         SendMessage(IntToStr(ValueCP));
    end;
end.