Yoko
http://forum.yoko.com.ua/

ппомогиет плз со скриптом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1981		 Page 1 of 1
Author:  Yamakasi*** [ 2004-11-17 21:22:20 ]
Post subject:  ппомогиет плз со скриптом
Нужен срочно скрипт на Пойзонинг (шард ДРВ) !
ЗЫ: заранее ОГРОМНОЕ спасибо !
Author:  AGRS [ 2004-11-17 23:01:17 ]
Post subject: 
А в соседнем разделе взять слабо?
Author:  Leks [ 2004-11-18 02:17:20 ]
Post subject:  Мдааааа....
Да тут помойму всем впадлю поиск юзать, тока бы пофлудить )))
Author:  Di®A†h [ 2004-11-18 14:17:05 ]
Post subject: 
Code:
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

попробуй вот этот ( не мой)
Author:  Di®A†h [ 2004-11-18 14:19:06 ]
Post subject: 
Скрипт берет из кучек на полу 1 шт. меда, 1 бутылку lesser poison,
травит мед, сбрасывает отравленный мед и пустую бутылку в рядом стоящий сундук.
В переменную Sunduk надо занести сериал контейнера, стоящего рядом с чаром.см. заголовок скрипта
(с) Yoko
Author:  Sfagnum [ 2004-11-18 14:55:35 ]
Post subject: 
Di®A†h wrote:
Скрипт берет из кучек на полу 1 шт. меда, 1 бутылку lesser poison,
травит мед, сбрасывает отравленный мед и пустую бутылку в рядом стоящий сундук.
В переменную Sunduk надо занести сериал контейнера, стоящего рядом с чаром.см. заголовок скрипта
(с) Yoko
на дрв такие сложности не нужны.
травишь ножик(один) до опупения, бутылок не остаётся.
Author:  MitAl [ 2004-11-18 16:02:10 ]
Post subject:  Re: ппомогиет плз со скриптом
Yamakasi*** wrote:
Нужен срочно скрипт на Пойзонинг (шард ДРВ) !
ЗЫ: заранее ОГРОМНОЕ спасибо !


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

Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/