Yoko

Уважаемые если не сложно напишите сам просто не умею.... но наверно в моих словах это выглядит так....
УО.Юз скилл пойзонинг
Тычем прицелом в даггер
тычем прицелом на бутылку

дальше месага (удачно траванули или нет)
и так по кругу пока пойзонки наполу не закончатся
и все!!!....

на полу пойзонки. на дистанции 2 шага.... нужно брать по 10

Поиск видимо сломался.... вот на вскидку:

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

Если не подойдет, то в ПОИСКЕ еще много чего можно обнаружить.
Добор допиши сам, благо не так уж и сложно, почитав пару первых уроков можно научиться, ну или поковырять чужие скрипты. Вообщем работаем головой. "Человека проще научить ловить рыбу, чем кормить ею постоянно" ©

Н у нат на вскидку я перепробовал каждый из найденых скриптов и ни один не помогает....

может особенность шарда ?

кому не сложно напишите...

Всем спасибо! Нашел там откуда не ждал помощи... если кому нужен пожалуйста....

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