Page 1 of 1
Пойзонинг.... ну нет того что мне нужно....
Posted: 2009-05-12 22:27:26
by felkon
Уважаемые если не сложно напишите сам просто не умею.... но наверно в моих словах это выглядит так....
УО.Юз скилл пойзонинг
Тычем прицелом в даггер
тычем прицелом на бутылку
дальше месага (удачно траванули или нет)
и так по кругу пока пойзонки наполу не закончатся
и все!!!....
на полу пойзонки. на дистанции 2 шага.... нужно брать по 10
Re: Пойзонинг.... ну нет того что мне нужно....
Posted: 2009-05-13 06:50:26
by Kynep
felkon wrote:Уважаемые если не сложно напишите сам просто не умею.... но наверно в моих словах это выглядит так....
УО.Юз скилл пойзонинг
Тычем прицелом в даггер
тычем прицелом на бутылку
дальше месага (удачно траванули или нет)
и так по кругу пока пойзонки наполу не закончатся
и все!!!....
на полу пойзонки. на дистанции 2 шага.... нужно брать по 10
Поиск видимо сломался.... вот на вскидку:
Code: Select all
sub poison()
var poison='0x0F0A'
var color='0x0000'
var msg='You apply the poison.'
var msg2='You fail to apply a sufficient dose of poison to it.'
var weap
uo.Exec('addobject weap')
while uo.targeting()
wait(100)
wend
uo.FindType('poison','color','backpack')
poison:
uo.DeleteJournal()
if uo.FindCount() then
uo.poison('weap')
repeat
wait(100)
until uo.InJournal(msg) or uo.InJournal(msg2)
if uo.InJournal(msg2) then
goto poison
end if
end if
end sub
Если не подойдет, то в
ПОИСКЕ еще много чего можно обнаружить.
Добор допиши сам, благо не так уж и сложно, почитав пару первых уроков можно научиться, ну или поковырять чужие скрипты. Вообщем работаем головой. "Человека проще научить ловить рыбу, чем кормить ею постоянно" ©
Posted: 2009-05-13 19:34:00
by felkon
Н у нат на вскидку я перепробовал каждый из найденых скриптов и ни один не помогает....
может особенность шарда ?
кому не сложно напишите...
Posted: 2009-05-13 20:11:29
by felkon
Всем спасибо! Нашел там откуда не ждал помощи... если кому нужен пожалуйста....
Code: Select all
sub poison()
VAR X
UO.Exec("addtype poison 0x0F0A")###пойзонка
UO.Exec("usetype 0x0E75")
UO.Exec("usetype 0x0E75")
Wait(3000)
start:
If UO.Count(0x0F0A) < 10 then
X = UO.Count(0x0F0A)
UO.Waittargetground(0x0F0A)
UO.Exec("grab 100")
While X == UO.Count(0x0F0A)
Wait(50)
Wend
End If
UO.Exec("poison 0x403C1D2A")##### даггер
goto start
end sub