Помогите пожалуйста разобраться в одной не хитрой процедуре.
Code: Select all
procedure checitem;
begin
if (Count(Blank) > 4) then
begin
stack(Blank,LogsColor);
wait(1500);
FindTypeEx(Blank,LogsColor,Ground,True);
Addtosystemjournal(IntToStr(FindFullQuantity) + ' Отмычек настругал.');
end;
end;
Суть проблемы вот в чем:
Версия Стелс 4.3.6 иногда вот такая фигня: You cannot pick up this item(cannot lift item), ID: $00000000
Версия Стелс 7.7.0(Визитор дал эту версию) постоянно вот такая фигня: Some inspecific error when moving item! Code 5
У админа примерно такие ошибки на консоле из-за которых банят нещадно людей:
Code: Select all
Character 0x12EC0E tried to drop item 0x44587D5B, but had not gotten an item.
Эта ошибка не моя, она забаненого плеера=) и другого скрипта, но уверен это из-за: You cannot pick up this item(cannot lift item), ID: $00000000
Мне наменули лишь на то, что нужна проверка перед стаком, Ну не могу я понять что туда еще можно поставить, помогите други пожалуйста.
З.Ы. есть еще фишинг, он берет удочку из сундука, когда в паке 0 удочек, с сундука он ее берет в пак, потом в руки, потом опять в паке пусто и он еще 1 удочку берет в пак, по такому принципу он работает с удочками, и я смотрел как идет скрипт с киента через стелс, и увидел что иногда в паке появляются фантомные удочки, которые нельзя взять, если закрыть пак и потом открыть, то фантомная удочка пропадает, но ошибка от этого недуга вот такая: You cannot pick up this item(cannot lift item), ID: $00000000
Вот процедура что я собрал.
На сундук с удочками:
Code: Select all
procedure WoodChes;
begin
FindDistance := 2;
if FindType(fishpole, Backpack) < 1 then
begin
useobject(WoodChest);
if (Count(fishpole) > 1) then
FindTypeEx(fishpole,$0000,WoodChest,True);
MoveItem(FindType(fishpole,WoodChest), 1, backpack, 0, 0, 0);
wait(1000);
end;
end;
Code: Select all
procedure Rawsteak;
begin
FindDistance := 2;
if (Count(steak) > 5) then
begin
//FindTypeEx(steak,$0000,backpack,True);
Stack(steak,$0000);
wait(500);
//FindType(steak,Ground);
Addtosystemjournal(IntToStr(FindFullQuantity) + ' стейков.');
end;
end;
Помогите пожалуйста.