Yoko

Нужен срочно скрипт на Пойзонинг (шард ДРВ) !
ЗЫ: заранее ОГРОМНОЕ спасибо !

А в соседнем разделе взять слабо?

Да тут помойму всем впадлю поиск юзать, тока бы пофлудить )))

_________________
Just Be! Все ФИГНЯ, кроме пчёл!!! А пчёлы ваще фигня!

sub poison() 
; v. 1.02 (c) Edred 
; Положите рядом с чаром на пол побольше меду и lesser poison, 
; поставьте рядом сундук, занесите его сериал в переменную 
; Sunduk (туда будут сбрасываться пустые бутылки и отравленный мед) 
; Если что-то не берет - значит положили далеко от чара, 
; поправьте цифру в команде set finddistance 
; 
   VAR Sunduk = '0x404331B7' 
   VAR Med = '0x09EC' 
   VAR LesPois = '0x0F0A' 
   VAR EmpBot = '0x0F0E' 
   VAR MedSer, k 
   UO.Exec('set finddistance 2') 
   While TRUE 
      UO.FindType( Med, -1, 1 ) 
      If UO.FindCount() == 0 Then 
         UO.Print("Jars not found, script terminated") 
         return 
      Endif 
      UO.Grab( '1', 'finditem' ) 
      wait( 2000 ) 
      UO.FindType( LesPois, -1, 1 ) 
      If UO.FindCount() == 0 Then 
         UO.Print("Bottle of Poison not found, script terminated") 
         return 
      Endif 
      UO.Grab( '1', 'finditem' ) 
      wait( 2000 ) 
      UO.DeleteJournal() 
      UO.WaitTargetType( Med ) 
      UO.UseObject( 'finditem' ) 
      k = 0 
      while NOT UO.InJournal('You apply lesser poison') AND NOT UO.InJournal('You fail to apply lesser poison') AND ( k < 30 ) 
         k = k + 1 
         wait(500) 
      wend 
      UO.Print( 'meda v pake ' + str( UO.Count( Med ) ) ) 
      if UO.Count( Med ) > 0 then 
         UO.FindType( Med, -1, 'backpack' ) 
         UO.MoveItem( 'finditem', 0, Sunduk ) 
         wait( 2000 ) 
         UO.Print( 'Jar dropped' ) 
      end if 
      if UO.Count( EmpBot ) > 0 then 
         UO.FindType( EmpBot, -1, 'backpack' ) 
         UO.MoveItem( 'finditem', 0, Sunduk ) 
         wait( 2000 ) 
         UO.Print( 'Empty bottle dropped' ) 
      end if 
   Wend 
end sub 

попробуй вот этот ( не мой)

_________________
-=$؆=-

Скрипт берет из кучек на полу 1 шт. меда, 1 бутылку lesser poison,
травит мед, сбрасывает отравленный мед и пустую бутылку в рядом стоящий сундук.
В переменную Sunduk надо занести сериал контейнера, стоящего рядом с чаром.см. заголовок скрипта
(с) Yoko

_________________
-=$؆=-

на дрв такие сложности не нужны.
травишь ножик(один) до опупения, бутылок не остаётся.

Есть скрипт который берет из сундука пустые бытылки и NS. Делает из них poison и использует сразу этот яд на меч. Мечь и mortale and pestle должны быть в сумке перед запуском скрипта. На ДРВ прекрасно работает (еще 2% до ГМ поисонинг осталось )
Параллельно используется алхимия и качается спиритспик.

sub Poison() 
var LastTimer=0
var Exit=0
var TryToPoison 
while Exit<>1 
UO.DeleteJournal() 

UO.FindType('0x0F0E',-1,'backpack') ; bottle 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0000','0x401C7D02') ; bottle, container 
wait(1000) 
UO.Grab('300','finditem') 
wait(100) 
Endif 
UO.FindType('0x0F88','0x0000','backpack') ; NS 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0F88','0x0000','0x400AB9F7'); NS, container 
wait(1000) 
UO.Grab('600','finditem') 
wait(500) 
Endif 
LastTimer=UO.Timer() 
UO.WaitMenu('What','(2)') ; menu 
UO.UseType(0x0F88) ; NightShade 

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(500) 
wend 

If UO.InJournal("You toss the failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 ;time to make a dagger 
Else 
TryToPoison=1 
repeat 
UO.FindType('0x0F0E','0x0998','my') 
If UO.GetQuantity('finditem')>0 then 
UO.UseSkill('Poisoning') 
UO.WaitTargetObject('0x400D6970','finditem') ; dagger 
; UO.UseSkill('Poisoning') 
wait(4000) 
Else 
TryToPoison=0 
Endif 
EndIf 
UO.UseSkill('Spirit Speak') 
wait(3000) 
wend