Ultima Online Antares

sub Carpentry1()
VAR Sunduk = "0x409EF651"
VAR LOGI = "0x1BDD"
VAR SHPULKA ="0x0FA0"
VAR RUBANOK = "0x1034" ; пила
VAR STAFF = "0x0E89"
VAR t, i
UO.CancelTarget()
While Not UO.Dead()
# For i = 1 to 40
# UO.FindType(LOGI, -1, 'backpack')
# If UO.GetQuantity('finditem') < 10 Then
# UO.FindType( LOGI, -1, Sunduk )
# uo.print('POISK')
# If UO.FindCount() == 0 Then
# UO.Print ("STOP KRAFT")
# return
# else
# uo.grab(900,'finditem')
# wait( 1000 )
# endif
#
# EndIf
#
# UO.FindType(SHPULKA, -1, 'backpack')
# If UO.GetQuantity('finditem') < 1 Then
# UO.FindType( SHPULKA, -1, Sunduk )
# uo.print('POISK')
# If UO.FindCount() == 0 Then
# UO.Print ("STOP KRAFT")
# return
# else
# uo.grab(300,'finditem')
# wait( 1000 )
# endif
#
# EndIf

UO.usetype( RUBANOK);
UO.Exec("waitmenu 'Carpentry' 'Weapons & Tools' 'Weapons & Tools' 'Fishing Pole'")
# UO.Exec("waitmenu 'Carpentry' 'Weapons & Tools' 'Weapons & Tools' 'Black Staff'")
# UO.Exec("waitmenu 'Carpentry' 'Miscellaneous' 'Miscellaneous' (1)")
t = 0
uo.deletejournal()
while not uo.injournal("You put") and not uo.injournal("fail") and t < 7000
wait(200)
t = t + 100
wend
if t < 2000 then
wait(7000)
endif
# next
#sellNT()
wend
end sub

sub kepkiMOVE()
var trash = "0x402F47A1"
VAR STAFF = "0x0DBF"
UO.Print ("VIKLADKA BINTOV")
uo.findtype(STAFF)
While UO.FindCount() > 0
wait(200)
UO.SetReceivingContainer(trash)
UO.Grab('0', 'finditem')
wait(1000)
UO.UnSetReceivingContainer()
uo.findtype(STAFF)
wend
end sub

sub sellNT()
VAR tinker = "0x0DBF"
uo.ignorereset()
UO.FindType( tinker, -1, 'backpack' )
wait(200)
While UO.Count(tinker) <> 0
UO.WaitTargetObject('finditem')
uo.UseObject('0x402CC890')
wait(500)
UO.FindType( tinker, -1, 'backpack' )
wend
uo.ignorereset()
endsub