Код:
//******************************************************************************
begin
// при приходе от сервера пакета 21 InventoryUpdate выполнить
if FromServer and (ConnectName=name) and (pck[1]=#$21) then begin
i:=12; // пропускаем
k:=ReadD(i); // считываем
i:=i+4; // пропускаем
if ( k=57) then begin // если к равно ID предмета выполнить
l:=ReadD(i); // считываем
Say('Мои деньги:');
Say('item ID='+IntToStr(k));
Say('количество адены='+IntToStr(l));
end;
end;
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Последний раз редактировалось TAMBIK, 19.10.2009 в 11:02.
|