Yoko

Code: Select all

#####################################################################
; Tailor2. v.1.06s (c) Edred (special for kicker)
;
sub tailoring3()
	VAR Sunduk = "0x4043310C"
	VAR Kozha = "0x1067"
	VAR Kit = "0x0F9D"
	VAR Scrol = "0x0E34"
	VAR k
	UO.CancelMenu()
	wait(500)
	UO.AutoMenu( "Leather", "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
		UO.DeleteJournal()
		UO.WaitTargetType( Kozha )
		UO.UseType( Kit )
		k = 0
		while NOT UO.InJournal('item is of') AND NOT UO.InJournal('Tailoring failed.') 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