Проблема с Поизонингом.
Posted: 2005-02-16 08:40:36
Короче...я запускаю этот скрипт вроде всё работает..
Но чар нечего не берёт и не пойзенит укаханий дагер...
Но чар нечего не берёт и не пойзенит укаханий дагер...
Code: Select all
sub Poisoning()
VAR Exit=0, LastTimer
uo.print('Bag with Poisons')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('Dagger')
uo.exec('addobject Dagger')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()
UO.FindType('0x0F0E','0x0998','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0998','Bag')
wait(1000)
UO.Grab('200','finditem')
wait(1000)
Endif
UO.FindType('0x0F0E','0x0998','backpack')
While UO.Count('0x0F0E','0x0998')>0
UO.DeleteJournal()
UO.WaitTargetObject('Dagger','finditem')
UO.UseSkill('Poisoning')
Repeat
CheckLag()
Until UO.InJournal("You apply") OR UO.InJournal("You fail to")
Wend
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub