Пока разбирался с этой проблемой нашёл выход...
перед перетаскиванием в пак снять с вещи игнор, потом перетащить в пак, потом проверить наличие вещи в паке. Если вещи в паке нету - вернуть игнор на место.
Code:
sub TakeAllFromGround() {
uo::ignorereset();
$bpack=uo::getserial('backpack');
uo::set("finddistance","1");
uo::findtype("-1","-1","ground");
while(uo::findcount()) {
$ser=uo::getserial("finditem");
uo::print($ser);
if($ser ne uo::getserial('self')) {
uo::ignore($ser,"off");
uo::grab(0,$ser);
&wait(650);
}
if(uo::containerof($ser) ne $bpack) {
uo::ignore("finditem","on");
uo::print("Can't GET");
}
uo::findtype("-1","-1","ground");
}
uo::ignorereset();
}
Сори за синтаксис, перехожу на перловый script.dll
(кстати всем рекомендую)
