ДА БУДЕТ БOT!

[QaK]

На, держи, ме мучайся =) :D

const NameKom='УБЕР-ПАПКО-НАГИБАТЕЛЬ';
var CurHP,MaxHp,CurMP,MaxMP,CurCP,MaxCP:integer

procedure StatsUpdate;
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do
    case pck[i*8+10] of
      #$09: CurHP:=ReadD(i*8+14);
      #$0A: MaxHP:=ReadD(i*8+14);
      #$0B: CurMP:=ReadD(i*8+14);
      #$0C: MaxMP:=ReadD(i*8+14);
      #$21: CurCP:=ReadD(i*8+14);
      #$22: MaxCP:=ReadD(i*8+14);
    end;
end;
//============================
//Основная часть скрипта
//Вызывается при приходе любого пакета
begin
if FromServer and (pck[1]=#$0E) and (ConnectName = NameKom)
                     then StatsUpdate;
end.