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
Тут не надо ничего Вбивать ....просто запускаешь скрипт и он попросит указать сумку с поизоном и дагер .......вот так.