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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Oymal
Posts: 14
Joined: 2004-12-08 12:04:36
Contact:

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

Post by Oymal »

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
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

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
cruel
Posts: 5
Joined: 2004-05-16 05:09:09

Post by cruel »

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