Code: Select all
#####################################################################
; Tailor2. v.1.03b (c) Edred
;
; Крафтим из кожи и воска (берется из сундука) бланк скроллы и
; скидываем их в этот же сундук.
;
sub tailor2()
VAR Sunduk = "0x404CFAA3"
VAR Kozha = "0x1067"
VAR Vosk = "0x1423"
VAR Kit = "0x0F9D"
VAR Scrol = "0x0E34"
VAR k
UO.CancelMenu()
wait(500)
UO.AutoMenu( "Blank's", "blank scroll" )
While TRUE
If UO.Count( Kozha ) == 0 Then
UO.FindType( Kozha, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Leathers not found, script terminated")
return
Endif
UO.Grab( '1', 'finditem' )
wait(500)
while UO.Count( Kozha ) == 0
wait(100)
wend
Endif
If UO.Count( Vosk ) == 0 Then
UO.FindType( Vosk, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Beeswaxs not found, script terminated")
return
Endif
UO.Grab( '1', 'finditem' )
wait(500)
while UO.Count( Vosk ) == 0
wait(100)
wend
Endif
UO.DeleteJournal()
UO.WaitTargetType( Kozha )
UO.UseType( Kit )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
k = k + 1
wait(300)
wend
if UO.Count( Scrol ) > 0 then
UO.FindType( Scrol )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 500 )
while UO.Count( Scrol ) > 0
wait(100)
wend
endif
Wend
UO.CancelMenu()
end sub
