Пойзон
Posted: 2004-12-29 10:58:17
У кого нить есть скрипт на пойзон под ДРВ?
zarg wrote:У кого нить есть скрипт на пойзон под ДРВ?
Askaneli wrote:zarg wrote:У кого нить есть скрипт на пойзон под ДРВ?
http://yoko.netroof.net/forum/search.php
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
I'm wrote:Вродь работает по есть чет лишнее я знаю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