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

скрипт на пойзонинг
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3502
Page 1 of 1

Author:  nekro [ 2005-03-25 12:08:40 ]
Post subject:  скрипт на пойзонинг

У кого есть скрипт на пойзонинг самый просто чтоб чар просто травил даггер
и чуть чуть посложнее чтоб чар делал лессер пойзоны и ими пойзонил даггер
заранее спасибо

Author:  MitAl [ 2005-03-25 14:17:49 ]
Post subject:  Re: скрипт на пойзонинг

nekro wrote:
У кого есть скрипт на пойзонинг самый просто чтоб чар просто травил даггер
и чуть чуть посложнее чтоб чар делал лессер пойзоны и ими пойзонил даггер
заранее спасибо


Вот самый простой: берет из сумки пойсоны и травит ими даггер
Code:
sub Poisoning() 
var LastTimer=0
var Exit=0
var TryToPoison=1

while Exit<>1
UO.DeleteJournal()

UO.FindType('0x0F0E',-1,'backpack') ; poison bottle
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0998','0x400AB9F7') ; poison bottle container
wait(1000)
UO.Grab('300','finditem')
wait(100)
Endif

repeat
UO.FindType('0x0F0E','0x0998','my')
If UO.GetQuantity('finditem')>0 then
   UO.UseSkill('Poisoning')
   UO.WaitTargetObject('0x400D6970','finditem') ; dagger
   wait(4000)
   TryToPoison=1
Else
   TryToPoison=0
Endif

until TryToPoison <> 0
wend


А вот скрипт который сначала делает пойзоны а потом ими травит даггер
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
wend

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/