Yoko

Posted: **2005-01-19 11:16:02**

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

Posted: **2005-01-19 11:58:15**

Code: Select all

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

Posted: **2005-01-22 08:34:32**

сам играю на ЕП - если надо стукни в аську - 276756709 , скрипт есть уже работающий.

Yoko

Поизонинг на ЕП ошибка

Поизонинг на ЕП ошибка