[poizon]

NLObP, ну да можно и без базы, типа цикл проверяет itemid в пакете если находит 57 то считывает d(count) след раз

procedure howmanyadena
var
adena,j,i:integer;
begin
j:=4;
listcount:=readh(j);
 for i:=1 to listcount do begin
 j:=j+6;
  if (readd(j)=57) then begin 
  adena:=readd(j);
  break;
  end;
 j:=j+26;
end;

if fromserver and (pck[1]:=#$1b) then howmanyadena

вот такой скриптик в adena будет записано кол адены, но запускать надо уже в окне выбора персонажа. скрипт не проверял.это набросок.
+ещё приходит пакет о изменении количества предметов , для него тоже надо писать процедуру.
end;