Page 1 of 1

Пойзон

Posted: 2004-12-29 10:58:17
by zarg
У кого нить есть скрипт на пойзон под ДРВ?

Re: Пойзон

Posted: 2004-12-29 13:48:47
by zarg
zarg wrote:У кого нить есть скрипт на пойзон под ДРВ?

Надо что бы травил дагер... заранеее спасибо.

Re: Пойзон

Posted: 2004-12-29 14:19:36
by Askaneli
zarg wrote:У кого нить есть скрипт на пойзон под ДРВ?

http://yoko.netroof.net/forum/search.php

Re: Пойзон

Posted: 2004-12-29 14:28:14
by zarg
Askaneli wrote:
zarg wrote:У кого нить есть скрипт на пойзон под ДРВ?

http://yoko.netroof.net/forum/search.php

Лучше бы скрипт дал

Posted: 2004-12-29 15:12:46
by I'm
Вродь работает по есть чет лишнее я знаю ;)

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

Posted: 2004-12-29 15:31:24
by zarg
Спасибо большое

Posted: 2005-02-15 07:32:32
by Ekkie
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


А чего тут надо измениить и где?
(ЙД и такое)

Posted: 2005-02-15 09:50:42
by BETEPAH
Тут не надо ничего Вбивать ....просто запускаешь скрипт и он попросит указать сумку с поизоном и дагер .......вот так.