Скрипт на пойсонинг для УоСкрипт
что-то в нём глючит

Program UOScriptTest;

/// пойзонинг
/// необходимо, чтобы в рюкзке были:бутылки с ядом, кинжал. Рюкзак д.б. "верхним окном".
/// лучше поставить радом хилера

var BAGPACK, DAGGERID, POISONID: LongInt;



begin
// определяем рюкзак
GetTopGumpHandle(BAGPACK); // определяем рюкзак

say ('lets rock');


SetLastSkill(30);
FindObject(BAGPACK, 3921, DAGGERID);

// накладываем яд
repeat

FindObject(BAGPACK, 3850, POISONID); //ищем яд
SetLastTarget(DAGGERID);
SendKey(k_F; // lastskill+lasttarget выбор кинжала для травли
Delay(2000);
WaitForTarget(2000);
SetLastTarget(POISONID); // запоминаем яд
Delay(2500);
SendKey(k_F11); // lasttarget на яд
Delay(1000);
SendKey(k_Esc); // сбиваем прицел (если остался)
WaitForMessage('You apply the poison' or 'You fail to apply', 5000); // ждемс результата
Until 1=2;
// Until FindObject(BAGPACK, 3850, POISONID) = False;

end.