Местный
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
|
читаешь это:
delphi Код:
52=PartySmallWindowUpdate:d(MemberObjId)s(MemberName)d(CurrentCP)d(MaxCP)d(CurrentHP)d(MaxHP)d(CurrentMP)d(MaxMP)d(Level)d(ClassID:Get.ClassID)
и используя полученые данные формируешь
delphi Код:
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
примерно так
Оффтоп
delphi Код:
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.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 27.05.2011 в 20:27.
|