0E=StatusUpdate:h(ObjectID)d(AttribCount)d(AttrID) d(AttrValue)
пакет приходит и от других чаров вроде h(ObjectID) надо свой вроде как вписывать?
чтобы не пить когда другой обнавляется у мня так было на сервере.
ну если что вот:
Код:
if FromServer and (pck[1]=#$A6) and (MyID=0) then begin //berem svoi ID (выделить себя)
MyID:=readd(2);
//Say(inttostr(MyID));
end;
и при приходе 0E проверяем кто атрибуты меняет:
if FromServer and (pck[1]=#$0E) then begin //pit' ili ne pit'...
if (MyID=readd(2)) then begin
....
тут пьем по скрипту
....//Drink(ReadD(30)); //cp
end;