Poisoning для дрв
Posted: 2005-05-13 08:03:48
А нетли у кого скрипта для прокачи поизона на дрв то есть в сундуке лежать нс и бутылки он делает lesser poison и наазывает на даггер.
Code: Select all
sub AlchemyPoison()
var Exit=0, LastTimer, TryToPoison
while Exit<>1
uo.DeleteJournal()
uo.FindType('0x0F0E',-1,'backpack') ; Бутылки
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x0F0E','0x0000','0x40145721') ; Контейнер с бутылками (bottle, container)
wait(1000)
uo.Grab('500','finditem')
wait(100)
end if
uo.FindType('0x0F88','0x0000','backpack') ; Найт шейд
if uo.GetQuantity('finditem')<20 then
uo.FindType('0x0F88','0x0000','0x4015ABDF') ; Найт шейд , Контейнер
wait(1000)
uo.Grab('1000','finditem')
wait(500)
end if
LastTimer=uo.Timer()
uo.WaitMenu('What','(last)') ; Меню
uo.UseType(0x0F88) ; Найт Шейд
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 ; Время создания даггера
else
TryToPoison=1
repeat
uo.FindType('0x0F0E','0x0998','my')
if uo.GetQuantity('finditem')>0 then
uo.UseSkill('Poisoning')
uo.WaitTargetObject('0x4018A3B3','finditem') ; Даггер
wait(4000)
else
TryToPoison=0
end if
end if
uo.UseSkill('Spirit Speak')
wait(3000)
wend
end sub