BuffBot

[PanAm]

В этой теме есть неплохой скрипт
http://coderx.ru/showthread.php?t=15
конкретно тут
http://coderx.ru/showpost.php?p=56&postcount=5
Вас должны интересовать итемы с itemType2=3.

[NLObP]

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

Тут еще такой вопрос , какой пакет обрабатывает инвентарь? Мне нужно вытаскивать кол-во квест итемов при отключенном клиенте.

Пакеты от сервера с данными инвентаря:

1B=ItemListPacket:w(window)w(ListCount)w(itemType1)h(ObjectID)i(ItemID)d(count)w(itemType2)w(CustType1)w(isEquipped)d(BodyPart)w(EnchantLevel)w(CustType2)d(Augment)d(--)
27=InventoryUpdate:w(count)w(1add2mod3remove)w(itemType1)d(ObjectID)i(ItemId)d(Count)w(itemType2)w(cusType1)w(isEquipped)d(BodyPart)w(EnchantLevel)w(cusType2)

[Arhangel]

Добрый день,хотел использовать скрипт на авто-пати,который есть в этом топике:
begin
if FromServer and (pck[1]=#$39) then begin //от сервера получен пакет $39 AskJoinParty
if ReadS(2) = 'Ник чара' //проверяем от кого
buf:=hstr('2A 01 00 00 00'); //Создаем пакет "принять пати"
else
delay(5000)
buf:=hstr('2A 00 00 00 00'); //Создаем пакет "Отказать в пати"
pck :=''; //убиваем этот пакет
SendToServer; //Отправляем его на сервер
end;
end.

Но замучала ошибка List index out of bounds (8) и соответсвенно скрипт не пашет,как от нее избавиться?

[QaK]

Arhangel, какие хроники? delay нафиг убери, зачем pck:='' делаешь?

[Arhangel]

Хроники Камаель СТ1.5

begin
if FromServer and (pck[1]=#$39) then //от сервера получен пакет $39 AskJoinParty
if ReadS(2) = 'ApxaHrel' then begin //проверяем от кого
buf:=hstr('2A 01 00 00 00'); //Создаем пакет "принять пати"
SendToServer; //Отправляем его на сервер
end;
end.

Результат тот же

[QaK]

Arhangel, с какого перепугу 2A - это ответ на прием? 43 поставь вместо 2А и будет тебе счастье, а может и не будет, в дальнейшем - кури матчасть.

[Arhangel]

Да с 2а ошибся,точно 43 должно быть...но дела это особо не меняет...ошибка всеравно лезет...может я скрипт не туда вставляю...

[QaK]

Arhangel, встречный вопрос: куда ты скрипт вставляешь, сколько окон у тебя одновременно запущено?если несколько тогда условие править надо
If Fromserver and (ConnectName='имяперса');
и SendToServerEx('имяперса');

[Arhangel]

Точно,вставил
If Fromserver and (ConnectName='имяперса');
и SendToServerEx('имяперса');
И ошибка исчезла...скрипт заработал,большое спасибо за помощь.

[QaK]

Arhangel, you wellcome =)