Количество денег в инвентаре....

[NLObP]

Он наврное проверял с пустым инвентарём, где только деньги.
В принципи можно без занесения в базу.
1B=ItemListPacket:w(window)w(ListCount)w(itemType1 )h(ObjectID)i(ItemID)d(count)
В цикле пока ListCount не закончилось проверяем соответствие на требуемое ItemID и берем count.

[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;

[NLObP]

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

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

Sergey как раз и проверяет этот пакет.

Добавлено через 10 минут

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

Просто у мя сомнения на верность

Сейчас внимательно посмотрел, вроде всё правильно. В чем у тебя сомнения? Добавь еще проверку пакета 1B и будет то что надо!

[ChiterEPT]

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

Сейчас внимательно посмотрел, вроде всё правильно. В чем у тебя сомнения? Добавь еще проверку пакета 1B и будет то что надо!

Незнаю в чем сомнения у Сергея, но у меня есть определенные сомнения...

Скрипт проверяет наличие в двенадцатом байте значения #$39(как я понял HEX ID адены) и только тогда считывает информацию о кол-ве аден. Но ведь не всегда информация об адене идет именно с двенадцатого байта ... ИЛИ Я ОШИБАЮСЬ???

[NLObP]

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

Незнаю в чем сомнения у Сергея, но у меня есть определенные сомнения...

Скрипт проверяет наличие в двенадцатом байте значения #$39(как я понял HEX ID адены) и только тогда считывает информацию о кол-ве аден. Но ведь не всегда информация об адене идет именно с двенадцатого байта ... ИЛИ Я ОШИБАЮСЬ???

в пакете #$27 скорее всего может случиться облом, если несколько предметов будет в пакете, но на практике проверять надо, может всегда один предмет описывается.