Ktulu
13.07.2004, 08:28
Скрипт на пойсонинг для УоСкрипт
что-то в нём глючит
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_F8); // 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.
что-то в нём глючит
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_F8); // 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.