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

[MOHTEP]

Помагите или подскажите, в каком пакете идет инфа о количестве денег чара моего. Если чесно пакеты знаю еше плохо что в каком и какие данные, но скрипты уже несложные пишу.

[Cucumber]

Как и любой другой предмет ItemList($1B), InventoryUpdate($27).

[MOHTEP]

я ето понял но где в пакете?

[Cucumber]

1B=ItemList:-(2)w(COUNT)w(itemType1)d(ObjectId)d(ITEMID)d(COUNT _ITEM)w(itemType2)w(CustType1)w(isEquipped)d(BodyP art)w(EnchantLevel)w(CustType2)
27=InventoryUpdate:w(COUNT)w(tip_operacii)w(itemTy pe1)d(ObjectId)d(ITEMID)d(COUNT_ITEM)w(itemType2)w (CustType1)w(isEquipped)d(BodyPart)w(EnchantLevel) w(CustType2)
Проверяешь весь пакет размером COUNT, если ITEMID = 57(для адены) то COUNT_ITEM кол-во адены.

[QaK]

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

Проверяешь весь пакет размером COUNT

точнее - количество предметов в инвентаре.

[Sergey]

Вот сваял скрипт (и малость содрал), пишет в приват количество денег в инвентаре.

// скрипт на количество денег в инвентаре

const
   name='CTEPBA';  //ник чара
//******************************************************************************
var
   i,k,l: integer;
//******************************************************************************
procedure Say(msg:string);
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(Name);
  WriteS(msg);
  SendToClientEx(Name);
end;
//******************************************************************************
begin

   if FromServer and (ConnectName=name)and (pck[1]=#$27)and (pck[12]=#$39)then
      begin
         i:=12;
         k:=ReadD(i);    //item ID
         l:=ReadD(i);    //количество адены
         Say('Мои деньги:');
         Say('item ID='+IntToStr(k));
         Say('количество адены='+IntToStr(l));
      end;
      
end.

Проверял он пашет. Но правда серв баганутый. Но чет у мя сомнения на правильность работы его....

[poizon]

Sergey, на вид скрипт не может работать, потомучто при приходе пакета с инвентарём надо создать базу с предметами и их количеством, а потом сканировать базу на предмет 57 (ид адены) и вытаскивать в say количество предмета.а у тебя я както не поййму как работает.я реализовывал такую функцию на основе бота рыбака ( от туда берёшь все процедуры для принятия пакетов о инвентаре) а далее всё просто

[NLObP]

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

[Sergey]

Скрипт проверял с забитым инвентарем под нехочю. Работает норм, при деиствия с деньгами он пишет в приват скок их. А я его еше подописал и те просто бегаю собираю деньги по достижении 2ккк автоматом обменивает на 1 кол. Просто у мя сомнения на верность

if FromServer and (ConnectName=name)and (pck[1]=#$27)and (pck[12]=#$39)then
      begin
         i:=12;
         k:=ReadD(i);    //item ID
         l:=ReadD(i);    //количество адены
         Say('Мои деньги:');
         Say('item ID='+IntToStr(k));
         Say('количество адены='+IntToStr(l));
      end;

есть впечатление что можно сделать подругому,чтоб проверял еше что либо по ID.

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