Пойзон

[zarg]

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

[zarg]

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

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

[Askaneli]

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

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

[zarg]

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

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

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

[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 

[zarg]

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

[Ekkie]

Вродь работает по есть чет лишнее я знаю

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 

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

[BETEPAH]

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