Нужен срочно скрипт на Пойзонинг (шард ДРВ) !
ЗЫ: заранее ОГРОМНОЕ спасибо !
ппомогиет плз со скриптом
Moderators: Murderator+, Murderator
Мдааааа....
Да тут помойму всем впадлю поиск юзать, тока бы пофлудить )))
Just Be! Все ФИГНЯ, кроме пчёл!!! А пчёлы ваще фигня!
Code: Select all
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
попробуй вот этот ( не мой)
-=$؆=-
на дрв такие сложности не нужны.Di®A†h wrote:Скрипт берет из кучек на полу 1 шт. меда, 1 бутылку lesser poison,
травит мед, сбрасывает отравленный мед и пустую бутылку в рядом стоящий сундук.
В переменную Sunduk надо занести сериал контейнера, стоящего рядом с чаром.см. заголовок скрипта
(с) Yoko
травишь ножик(один) до опупения, бутылок не остаётся.
Re: ппомогиет плз со скриптом
Yamakasi*** wrote:Нужен срочно скрипт на Пойзонинг (шард ДРВ) !
ЗЫ: заранее ОГРОМНОЕ спасибо !
Есть скрипт который берет из сундука пустые бытылки и NS. Делает из них poison и использует сразу этот яд на меч. Мечь и mortale and pestle должны быть в сумке перед запуском скрипта. На ДРВ прекрасно работает (еще 2% до ГМ поисонинг осталось
)
Параллельно используется алхимия и качается спиритспик.
Code: Select all
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