Не понимаю почему данная конструкция пропускает вещи.
Code: Select all
procedure loot();
Begin
for i:=0 to 31 do
begin
if (findtype(kamen[i],cont)<>0)then
repeat
if((InJournalBetweenTimes('The item is out of range and cannot be moved',ctime,Now)<>-1))then
break;
MoveItem(findtype(kamen[i],cont),0,sumka,0,0,0);
wait(300);
until(findtype(kamen[i],cont)=0);
end;
end;
Code: Select all
procedure blackPerl();
begin
if(FindTypeEx($0F7A, $0000, cont, true)<>0)then
repeat
MoveItem(finditem,0,sumka,0,0,0);
wait(300);
until(FindTypeEx($0F7A, $0000, cont, true)=0);
end;
procedure lootGround();
Begin
if (findtype($1BD4,ground)<>0)then
repeat
MoveItem(finditem,0,sumka,0,0,0);
wait(300);
until(findtype($1BD4,ground)=0);
end;