[VORON]

я делал кучу разновидностей подобных ботов.. поетому накуя ты пати виндоу смотриш???
смотри- СТАТУС ПАДЕЙТ!
оттуда выдергивай инфу про ХП и МП... и про лимиты ХП и МП тоже (ммаксимальное кол-во) лимиты для того чтобы скрипт сделать универсальным типа 70% от шкалы- лить ХП.. а не фиксировать ето число константой каждый раз- переправля для нового лвл-)...
спс за твой грамотный вопрос нам.. красиво так всё нарисовал в красках- стало всё понятно сразу...
впредь если вопросы возникнут- спрашивай максимально уточняя что именно не выходит.. чтоб мы поняли..
павкет СТАТУС АПДЕЙТ приходит каждый раз при изменении кол-ва ХП и МП.... и не только.. при бафах еще и т.д.
поетому нефиг пати окно смотреть!! смотри СТАТУС АБДЕЙТ!

Добавлено спустя 5 минут 29 секунд:
MKS, я нехачу сказать что твой скрипт кривой.. просто если выдергивать инфу из СТАТУС АБДЕЙТ то ето более коректней.. и работать будет дажэ без создания пати..
P.S.- протестировано

Добавлено спустя 2 минуты:
Re: ДА БУДЕТ БОТ!

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

Эта процедура одинаково работает на C4 и IL

var
 MyID, CurHP, MaxHP : integer;

procedure StatsUpdate;
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do begin
    case pck[i*8+10] of
      #$09: CurHP:=ReadD(i*8+14);
      #$0A: MaxHP:=ReadD(i*8+14);
    end;
  end;
end;

begin
  if (ConnectName=Name) and FromServer then begin
    case pck[1] of
      #$0E: begin
          if (MyID=ReadD(2)) then StatsUpdate;
      end;
    end;
  end;
end.

не проверял но думаю он прав...
СТАТУС АПДЕЙТ ИСПОЛЬЗУЕТСЯ!