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

Поизонинг на ЕП ошибка
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2712		 Page 1 of 1
Author:  Oymal [ 2005-01-19 11:16:02 ]
Post subject:  Поизонинг на ЕП ошибка
Cкрипт должен работать так : юзать скилл поизонинг тыкать таргетом на вещь которую нужно поизонить и тыкать на поизон батл. Почему неполучилось непонимаю. Вроть убрал что ненужно втставил скил вставил тыки а непашет. Непойму помогите если моно.



sub poison()
VAR Sunduk = '0x40292FF3'
VAR orudie = '0x1406'
VAR LesPois = '0x0F0A'
VAR EmpBot = '0x0F0E'
VAR MedSer, k
UO.Exec('set finddistance 2')
While TRUE
UO.FindType( LesPois, -1, 1 )
If UO.FindCount() == 0 Then
UO.Print("Bottle of Poison not found, script terminated")
return
Endif
UO.Grab( '1', 'finditem' )
wait( 2000 )
UO.DeleteJournal()
UO.WaitTargetType( orudie )
UO.UseSkill("Poisoning")
UO.WaitTargetType( LesPois )
k = 0
while NOT UO.InJournal('You apply lesser poison') AND NOT UO.InJournal('You fail to apply lesser poison') AND ( k < 30 )
k = k + 1
wait(500)
wend
UO.Print( 'orudie v pake ' + str( UO.Count( orudie ) ) )
if UO.Count( EmpBot ) > 0 then
UO.FindType( EmpBot, -1, 'backpack' )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 2000 )
UO.Print( 'Empty bottle dropped' )
end if
Wend
end sub
Author:  Sfagnum [ 2005-01-19 11:58:15 ]
Post subject: 
Code:
sub Poisoning()   
var idDagger='0x401E3D6F'
UO.FindType('0x0F0E','0x0998','backpack')
      While UO.GetQuantity('finditem') > 0 
         UO.DeleteJournal()
         UO.UseSkill("Poisoning") 
         UO.WaitTargetObject(idDagger,'finditem')
         while NOT UO.InJournal("You fail to apply") AND NOT UO.InJournal("You apply")
            wait(300)
         wend   
      wend
end sub
травит пока есть отрава
PS. for DRW
Author:  cruel [ 2005-01-22 08:34:32 ]
Post subject: 
сам играю на ЕП - если надо стукни в аську - 276756709 , скрипт есть уже работающий.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/