Волкер от vpnbot

[Breadfan]

читаешь это:

52=PartySmallWindowUpdate:d(MemberObjId)s(MemberName)d(CurrentCP)d(MaxCP)d(CurrentHP)d(MaxHP)d(CurrentMP)d(MaxMP)d(Level)d(ClassID:Get.ClassID)

и используя полученые данные формируешь

18=StatusUpdate:d(ObjectID)d(AttribCount:Loop.01.0002)d(AttrID:Get.FSup)d(AttrValue)

используя: d(ObjectID)=d(MemberObjId), d(AttribCount:Loop.01.0002)=6, значения d(AttrID:Get.FSup) -
CUR_HP = 9;
MAX_HP = 10;
CUR_MP = 11;
MAX_MP = 12;
CUR_CP = 33;
MAX_CP = 34
примерно так
Оффтоп

Var
PObject, PCurCP, PMaxCP, PCurHP, PMaxHP, PCurMP, PMaxMP, i:integer;
PName,ConName:string;
tmp,tmp1,Tmp2:string;
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
begin
    if fromserver and (pck[1]=#$52) then begin
        i:=2;
        PObject:=ReadD(i);
        PName:=ReadS(i);
        PcurCP:=ReadD(i);
        PMaxCP:=ReadD(i);
        PCurHP:=ReadD(i);
        PMaxHP:=ReadD(i);
        PCurMP:=ReadD(i);
        PMaxMP:=ReadD(i);
        buf:=#$18;
        WriteMask('dddddddddd',[PObject,6,09,PCurHP,10,PMaxHP,11,PCurMP,12,PMaxMP,33,PCurCP,34,PMaxCP]);
        Sendtoclient;
    end;
end.