Yoko

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