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

Пойзон
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2401
Page 1 of 1

Author:  zarg [ 2004-12-29 10:58:17 ]
Post subject:  Пойзон

У кого нить есть скрипт на пойзон под ДРВ?

Author:  zarg [ 2004-12-29 13:48:47 ]
Post subject:  Re: Пойзон

zarg wrote:
У кого нить есть скрипт на пойзон под ДРВ?

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

Author:  Askaneli [ 2004-12-29 14:19:36 ]
Post subject:  Re: Пойзон

zarg wrote:
У кого нить есть скрипт на пойзон под ДРВ?

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

Author:  zarg [ 2004-12-29 14:28:14 ]
Post subject:  Re: Пойзон

Askaneli wrote:
zarg wrote:
У кого нить есть скрипт на пойзон под ДРВ?

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

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

Author:  I'm [ 2004-12-29 15:12:46 ]
Post subject: 

Вродь работает по есть чет лишнее я знаю ;)
Code:
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

Author:  zarg [ 2004-12-29 15:31:24 ]
Post subject: 

Спасибо большое

Author:  Ekkie [ 2005-02-15 07:32:32 ]
Post subject: 

I'm wrote:
Вродь работает по есть чет лишнее я знаю ;)
Code:
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


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

Author:  BETEPAH [ 2005-02-15 09:50:42 ]
Post subject: 

Тут не надо ничего Вбивать ....просто запускаешь скрипт и он попросит указать сумку с поизоном и дагер .......вот так.

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