На, держи, ме мучайся =) :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.