Code: Select all
sub poison()
VAR Sunduk = '0x400F89DD'
VAR poison = '0x1837'
VAR mjaso = ('0x09F1, 0x0000')
VAR gotovoe = ('0x09F1,0x0026')
VAR k
UO.Exec('set finddistance 2')
While TRUE
UO.Findtype(0x1837, 0x0000, sunduk)
UO.Grab( '1', 'finditem' )
If UO.FindCount() == 0 Then
UO.Print("resursi zakon4elisj, script terminated")
return
Endif
UO.Grab( '1', 'finditem' )
wait( 1000 )
UO.Findtype(0x09F1, 0x0000, sunduk)
If UO.FindCount() == 0 Then
UO.Print("resursi zakon4elisj, script terminated")
return
Endif
UO.Grab( '1', 'finditem' )
wait( 1000 )
UO.DeleteJournal()
UO.FindType('poison' ,-1,'backpack')
UO.useType( poison )
UO.WaitTargetType( mjaso )
wait(500)
k = 0
while NOT UO.InJournal('soobshenie pri uda4nom crafte') AND NOT UO.InJournal('soobshenie pri neuda4e ') AND ( k < 30 )
k = k + 1
wend
UO.Print( 'gotovogo mjasa ' + str( UO.Count(gotovoe ) ) )
if UO.Count( gotovoe ) > 0 then
UO.FindType( gotovoe, -1, 'backpack' )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'skinuto...' )
end if
Wend
end sub