Проблема в перемещением предметов.
Posted: 10.03.2011 13:04
Периодически возникает проблема следующего характера:
При попытке сбросить предмет в контейнер, персонаж начинает перекладывать итем с места на место (в бекпаке) и сбросить его не может.
Помогает лишь заход на клиенте и сбрасывание этого итема в ручную.
Процедура :
Может быть процедура некорректно написана ?
Посоветуйте плс, как можно побороть сею напасть.
При попытке сбросить предмет в контейнер, персонаж начинает перекладывать итем с места на место (в бекпаке) и сбросить его не может.
Помогает лишь заход на клиенте и сбрасывание этого итема в ручную.
Процедура :
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;
Посоветуйте плс, как можно побороть сею напасть.