Проблема в перемещением предметов.

[Venom]

Периодически возникает проблема следующего характера:
При попытке сбросить предмет в контейнер, персонаж начинает перекладывать итем с места на место (в бекпаке) и сбросить его не может.
Помогает лишь заход на клиенте и сбрасывание этого итема в ручную.

Процедура :

Code: Select all

Procedure Store_Item;
var
i: integer;
 begin
for i := 1 to 10 do  
 begin
UseObject(backpack);
wait(1000);
If FindType(Item[i], backpack) > 0 then 
 begin
while FindType(Item[i], backpack) <> 0 do
 begin
ItemID := finditem;
If not(isDead(self)) then MoveItem(ItemID, 0, $6A0949B4, 0, 0, 0); 
Wait(1000); 
AddToSystemJournal('вещь найдена '+IntToStr(i));
end;
end;
end;
wait(1000);
end; 

Может быть процедура некорректно написана ?
Посоветуйте плс, как можно побороть сею напасть.

[Vizit0r]

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