пакет в котором есть информация о ХП выделенного игрока

[Rity]

да С4

[NLObP]

Можно взять в пакете

s0E=StatusUpdate:h(psize)c(ID)d(ObjectID)d(AttribCount:For.0002)d(AttrID:Get.FSup)d(AttrValue)

Расшифровка AttrValue

function GetFSup(ar1 : integer) : string;
// внешняя ф-ция, вызывается не из скрипта, а по аргументу
// :Get.FSup - Status Update ID
begin
  case ar1 of
    01: result := 'Level';      02: result := 'EXP';         03: result := 'STR';
    04: result := 'DEX';        05: result := 'CON';         06: result := 'INT';
    07: result := 'WIT';        08: result := 'MEN';         09: result := 'cur_HP';
    $0A: result := 'max_HP';   $0B: result := 'cur_MP';     $0C: result := 'max_MP';
    $0D: result := 'SP';       $0E: result := 'cur_Load';   $0F: result := 'max_Load';
    $11: result := 'P_ATK';    $12: result := 'ATK_SPD';    $13: result := 'P_DEF';
    $14: result := 'Evasion';  $15: result := 'Accuracy';   $16: result := 'Critical'
    $17: result := 'M_ATK';    $18: result := 'CAST_SPD';   $19: result := 'M_DEF';
    $1A: result := 'PVP_FLAG'; $1B: result := 'KARMA';      $21: result := 'cur_CP';
    $22: result := 'max_CP';
    else result := '?'
  end;
  result := #2+result+#15;
end;;

ps: взято из wpp Sauron'а

[Rity]

спасибо большое

Добавлено через 11 минут
чета всеранво не пойму как узнать ХП
и выводилось к примеру в
procedure SendMsg(msg:string);

begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;

те через этот пакет можно узнать и левел и ЦП..
как сделать что писался левел хп и цп в SendMsg

[NLObP]

Сообщение от Rity

спасибо большое

Добавлено через 11 минут
чета всеранво не пойму как узнать ХП
и выводилось к примеру в
procedure SendMsg(msg:string);

begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;

те через этот пакет можно узнать и левел и ЦП..
как сделать что писался левел хп и цп в SendMsg

Из пакета StatusUpdate это можно узнать, при условии, что эти параметры изменяются, например ты бъешь чара, то в пакете будет приходить изменение HP, CP и возможно MP.

По второму вопросу. Сформируй строковую переменную msg и отсылай её.

[xkor]

NLObP, СР и МР там приходят только для твоего чара.., да и НР цели приходит только при выделении...

[Rity]

допустим эта чась скрипта узнает координаты имя расса пол и тп..

if FromServer and (pck[1]=#$03) then
  begin
   I:=2;
   X:=Readd(i);
   Y:=ReadD(i);
   Z:=ReadD(i);
   I:=22;
   Name:=ReadS(i);
   RaceID:=ReadD(i);
   SexID:=ReadD(i);
   ClassID:=ReadD(i);
..

как подобнам способом узнать хп цп мп

if FromServer and (pck[1]=#$0E) then
  begin
   ..
   .. 
 end;

[NLObP]

Сообщение от Rity

как подобнам способом узнать хп цп мп

Примерно так. По ObjectID узнавай чьи данные в этом пакете.

procedure TargetStatusUpdate;       //обновление данных о цели
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do
    case pck[i*8+10] of
      #$09: AttackerHP:=ReadD(i*8+14);
      #$0A: AttackerMaxHP:=ReadD(i*8+14);
    end;
end;

//***************************************************************
procedure StatusUpdate;       //обновление данных о себе
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do
    case pck[i*8+10] of
      #$09: MyHP:=ReadD(i*8+14);
      #$0A: MyMaxHP:=ReadD(i*8+14);
      #$0B: MyMP:=ReadD(i*8+14);
      #$0C: MyMaxMP:=ReadD(i*8+14);
    end;
  if (MyMaxHP<>0) then        //вычисляем процентное соотношение хп
  begin
    PercentHP:=strtoint(EditHealt.Text);
    NeedBuy:=strtoint(EditLure.Text);
    but:=Round((MyMaxHP/100)*PercentHP); //при каком количестве хп юзать бутылку лечения
  end;
end;

begin
...
      if FromServer and (pck[1]=#$0E) then begin
          //msg.Lines.Add('S>Пакет StatusUpdate #$0E');
          if (MyOID=ReadD(2)) then StatusUpdate; //обновление информации о хп
          if (AttackerOID=ReadD(2)) then TargetStatusUpdate; //обновление информации о хп
      end;

...
end.

[Rity]

ура!
СПАСИБО ОГРОМНОЕ


еше бы кто помог с http://coderx.ru/showthread.php?t=606

[PanAm]

Вот мой скриптик
Только исходник DLL я где-то потерял, завтра на работе посмотрю

[PanAm]

тут вроде нехватает только НР сопартийцев...