нужна небольшая помощь

[akkerman]

Здравствуйте. Мне нужна помощ по написанию не очень трудного скрипта: Суть его в том что когда в инвентаре остется 5 штук Blessed Scroll Enchant Weapon S ,скрипт отправит нужный мне пакет серверу
Покрайней мере я не могу понять как зделать данную проверку.

[QaK]

akkerman, читай топ "да будет бот"и ветку "жесткий скриптинг", туева хонна примеров, осталось только понять,что тебе надо и выдрать кускамииз наработок.

[Fer123]

Или топ Полезные функции ищи "Инвентаризация".

[akkerman]

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

[Fer123]

http://coderx.ru/showpost.php?p=56&postcount=5
не знаю правда для каких хроник...
Так вот есть там функция function GetInv(obj,up,down:integer): integer;
где obj это то по чему ищем, up по какому полю ищем, down по какому полю выводим.
Тоесть для твоего случая должно быть GetInv(ID заточки,2,3).
Но это в том случае что заточки в одном слоте, а если нет то надо другую функцию писать

[akkerman]

к сожалению у меня interlude и заточки занимают не 1 слот ... есть какойто еще выход ?

[Fer123]

function GetInv2(obj:integer): integer; 
var
  i: integer;
begin
  for i:=0 to 79 do if Inventory[i,2]=obj then Result:=Result+Inventory[i,3];
end;

Просто вставь между основными begin и end проверку
if GetInv2(ID скрола)<=5 then
begin
...
end;

[akkerman]

begin
if GetInv2('6577')<=5 then begin
buf:=HStr('1F 9F 6E 05 00 1C 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 B1 19 00 00 01 00 00 00 ');
SendToServerEx('fuck');
pck:='';
end;
end.




скрипт ругается.. что может быть не так

[Fer123]

pck:=''; это лишнее
и ковычки убери в GetInv2('6577'), это тип интежер а не строка.

[akkerman]

begin
if GetInv2(6577)<=5 then begin
buf:=HStr('нужный мне пакет');
SendToServerEx('fuck');
end;
end.

Выделил красным на что ругается