NLObP, ну да можно и без базы, типа цикл проверяет itemid в пакете если находит 57 то считывает d(count) след раз
delphi Код:
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;